JCL to List Migrated Datasets

 

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

/*