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)' EXEC

USERID.**

//*

//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=COPY

INCLUDE COND=(64,6,CH,EQ,C'MIGRAT')

/*