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