zOs/TX/PER09INS

//A540769E  JOB (CP00,KE50),                                            00010001
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=A540769
//*MAIN CLASS=DBTF ,SYSTEM=S12
//S01      EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99                       00020001
//SYSTSIN  DD *
    DSN SYSTEM(DBAF)
   RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSIN    DD *
select current timestamp from sysibm.sysdummy1;
insert into A540769.tPer09
select 1+mod(row_number() over ()-1, 600), createdts,
       strip(tbcreator) || '.' || strip(tbname)
       || ':' || strip(name) || ' type = ' || colType
    from sysibm.syscolumns
    where createdts > current timestamp - 10 years
    fetch first 100000 rows only
;
select current timestamp from sysibm.sysdummy1;
commit;
select current timestamp from sysibm.sysdummy1;