zOs/TX/PER24LOA

//A540769L  JOB (CP00,KE50),                                            00010001
//         MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
//         NOTIFY=&SYSUID
//*MAIN CLASS=LOG0
//S1       EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD'                  00020001
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
EXEC SQL
DECLARE C1 CURSOR FOR
with n (n) as
( select 1 from sysibm.sysDummy1
  union all select n+1 from n where n < 9
)
, a as
(
   select name, tbcreator, tbname, row_number() over () r
     from sysibm.syscolumns, n
)
select value(mod(r, 700), 999) part,
       left(name, 20) key,
            repeat(strip(char(r)) || ':' || strip(tbCreator)
              || '.' || strip(tbName) || '&' || strip(name)
              || ' ' , 20) text
    from a
ENDEXEC
LOAD DATA LOG NO -- RESUME NO REPLACE COPYDDN(TCOPYD)
   INCURSOR C1 REPLACE COPYDDN(TCOPYS)
          STATISTICS INDEX ALL
 SORTKEYS
 SORTDEVT DISK
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE A540769.TPER24S1
LOAD DATA LOG NO -- RESUME NO REPLACE COPYDDN(TCOPYD)
   INCURSOR C1 REPLACE COPYDDN(TCOPYS)
          STATISTICS INDEX ALL
 SORTKEYS
 SORTDEVT DISK
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE A540769.TPER24C1
LOAD DATA LOG NO -- RESUME NO REPLACE COPYDDN(TCOPYD)
   INCURSOR C1 REPLACE COPYDDN(TCOPYS)
          STATISTICS INDEX ALL
 SORTKEYS
 SORTDEVT DISK
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE A540769.TPER24G1
LOAD DATA LOG NO -- RESUME NO REPLACE COPYDDN(TCOPYD)
   INCURSOR C1 REPLACE COPYDDN(TCOPYS)
          STATISTICS INDEX ALL
 SORTKEYS
 SORTDEVT DISK
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE A540769.TPER24P1