RACF

//STEP010  EXEC PGM=IRRDBU00,REGION=48M,PARM=NOLOCKINPUT              
//SYSPRINT DD SYSOUT=*                                                
//INDD1 DD  DISP=SHR,                                                  
//          DSN=RACF.DATABASE                                        
//OUTDD DD  DSN=HLQ.RACF.BACKUP,                              
//          DISP=(NEW,CATLG,DELETE),                                  
//          UNIT=SYSDA,SPACE=(CYL,(650,50),RLSE),              
//          DCB=(RECFM=VB,LRECL=4096,BLKSIZE=20480)                    
//******************************************************************  
//ST0200 EXEC PGM=SORT                                                
//SORTIN   DD DSN=HLQ.RACF.BACKUP,DISP=SHR                    
//SORTOUT  DD DSN=HLQ.RACF.SEL200,                          
//          DISP=(NEW,CATLG,DELETE),                                  
//          UNIT=SYSDA,SPACE=(TRK,(50,15),RLSE),                
//          DCB=(RECFM=VB,LRECL=4096,BLKSIZE=20480)                    
//SYSOUT   DD SYSOUT=*                                                
//SYSIN    DD *                                                        
 SORT FIELDS=COPY                                                      
 INCLUDE COND=(5,4,CH,EQ,C'0200') 
/*  

000001 /* REXX */                                                              
000002 pgm_dsn= "HLQ.A.COBOL"                                                      
000003                                                                          
000004 ADDRESS "ISPEXEC SELECT PGM(ISPSTRT) PARM(EPDF '"pgm_dsn"' V)"
000005                                                                                       
000006 EXIT