SHARE
TWEET

PCASE1

a guest Oct 20th, 2017 161 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //PCASE1 PROC PROG1=PROG,PROG2=PROG,PROG3=PROG,                
  2. //       NEW=NEWDD,SORTIN=SORTDD,PDSDS=PDSDD,TEMP1=TEMP,        
  3. //       TEMP2=TEMP,TEMP3=TEMP                                  
  4. //* CREATE NEW DATASET                                          
  5. //CREATE  EXEC PROC=CREATE,PROG=&PROG1,NEW=&NEW,LIKE=&SORTIN,  
  6. //             PDSDS=&PDSDS                                    
  7. //* SORT A GIVEN DS AND PUT IT IN THE NEW DS                    
  8. //SORT    EXEC PGM=&PROG2                                      
  9. //SYSOUT    DD SYSOUT=*                                        
  10. //SORTIN    DD DSN=&SORTIN,DISP=SHR                            
  11. //SORTOUT   DD DSN=&NEW,DISP=(MOD,CATLG,DELETE)                
  12. //SYSIN     DD DUMMY                                            
  13. //COPY1   EXEC PROC=COPY,PROG=&PROG3,MEMBER='COPY1',TEMP=&TEMP1,
  14. //             PDSDS=&PDSDS                    
  15. //COPY2   EXEC PROC=COPY,PROG=&PROG3,MEMBER='COPY2',TEMP=&TEMP2,
  16. //             PDSDS=&PDSDS                                    
  17. //COPY3   EXEC PROC=COPY,PROG=&PROG3,MEMBER='COPY3',TEMP=&TEMP3,
  18. //             PDSDS=&PDSDS                                    
  19. //DELETE  EXEC DELETE
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top