zOs/REXX/MARECLOA

//YMARELOA JOB (CP00,KE50),                                             00010001
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//S1       EXEC PGM=DSNUTILB,PARM='DBZF,YMARELOA.LOAD'                  00020001
//SYSMAP   DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBZF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
EXEC SQL
     DECLARE CUR1 CURSOR FOR
         SELECT DB, TS, PA, TYP, TST, DSN FROM
         (
         SELECT '' DB, '' TS, -1 PA,
                '' TYP, CURRENT TIMESTAMP TST, '' DSN
            FROM SYSIBM.SYSCOPY
         UNION ALL SELECT DBNAME DB, TSNAME TS, DSNUM PA,
                ICTYPE TYP, TIMESTAMP TST, DSNAME DSN
            FROM SYSIBM.SYSCOPY
            WHERE ICTYPE IN ('I', 'F', 'R', 'S', 'W', 'Y')
         UNION ALL SELECT DBNAME DB, TSNAME TS, PARTITION PA,
             'c' TYP, CREATEDTS TST, '' DSN
             FROM SYSIBM.SYSTABLEPART
         ) X
ENDEXEC
LOAD DATA INCURSOR CUR1  LOG NO  RESUME NO REPLACE COPYDDN(TCOPYD)
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
      STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
 INTO TABLE  $MAREC.$COPY