LIST MIGRATED DATASETS STARTING WITH A QUALIFIER
//LSTMIGR Â JOB (XXXXXXX,,,,,XXXX),’ Â Â Â Â ‘, Â Â Â Â Â Â Â Â Â Â Â // Â Â Â Â Â Â CLASS=T,MSGCLASS=Y,NOTIFY=&SYSUID, Â Â Â Â Â Â Â Â Â Â //STEP000 Â EXEC PGM=IEFBR14 Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â //DD01 Â Â DD Â DSN=USERID.ABC.LIST, Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â // Â Â Â Â Â Â DISP=(MOD,DELETE),UNIT=SYSDA Â Â Â Â Â Â Â Â Â Â Â Â Â //DD02 Â Â DD Â DSN=USERID.ABC.LIST.SORT, Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â // Â Â Â Â Â Â DISP=(MOD,DELETE),UNIT=SYSDA Â Â Â Â Â Â Â Â Â Â Â Â Â //STEP001 Â EXEC PGM=IKJEFT1B Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â //SYSTSPRT DD DSN=USERID.ABC.LIST, Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â // Â Â Â Â Â Â DISP=(NEW,CATLG,CATLG),UNIT=SYSDA,SPACE=(CYL,(2,2)), Â Â // Â Â Â Â Â Â DCB=(RECFM=FB,LRECL=80,BLKSIZE=0) Â Â Â Â Â Â Â Â Â Â Â Â EXEC ‘SYS1.SAMPLIB(IGGCSIRX)’ EXEC Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â //SORTIN Â DD Â DISP=SHR,DSN=USERID.ABC.LIST Â Â Â Â Â Â Â Â Â Â Â Â //SORTOUT Â DD DSN=USERID.ABC.LIST.SORT, Â Â Â Â Â Â Â Â Â Â Â Â Â Â // Â Â Â Â Â Â DISP=(NEW,CATLG,CATLG),UNIT=SYSDA,SPACE=(CYL,(2,2)), // Â Â Â Â Â Â DCB=(RECFM=FB,LRECL=80,BLKSIZE=0) Â Â Â Â Â Â Â Â Â Â //SORTWK01 DD Â UNIT=DISK,SPACE=(CYL,(20,5),RLSE) Â Â Â Â Â Â Â Â Â //SORTWK02 DD Â UNIT=DISK,SPACE=(CYL,(20,5),RLSE) Â Â Â Â Â Â Â Â Â //SORTWK03 DD Â UNIT=DISK,SPACE=(CYL,(20,5),RLSE) Â Â Â Â Â Â Â Â Â Â INCLUDE COND=(64,6,CH,EQ,C’MIGRAT’) Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â