JCL to List Migrated Datasets
LIST MIGRATED DATASETS STARTING WITH A QUALIFIER
//LSTMIGR JOB (XXXXXXX,,,,,XXXX),' ',// CLASS=T,MSGCLASS=Y,NOTIFY=&SYSUID,// REGION=0M//*//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)//SYSTSIN DD *EXEC 'SYS1.SAMPLIB(IGGCSIRX)' EXECUSERID.**//*//STEP002 EXEC PGM=SORT//SYSOUT DD SYSOUT=*//SYSPRINT DD SYSOUT=*//SYSUDUMP DD SYSOUT=*//REPORT1 DD SYSOUT=*//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)//SYSIN DD *SORT FIELDS=COPYINCLUDE COND=(64,6,CH,EQ,C'MIGRAT')/*