SHARE
TWEET

Untitled

a guest Apr 4th, 2015 425 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //VIL0010D JOB UNIVER,CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID            
  2. //STEP01 EXEC PGM=SORT                                              
  3. //SYSPRINT DD SYSOUT=*                                              
  4. //SYSOUT DD SYSOUT=*                                                
  5. //SORTIN DD DSN=VIL0014.VISDARB2,DISP=SHR                          
  6. //SORTOF01 DD DSN=VIL0014.ATOI,                                    
  7. // DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,                              
  8. // SPACE=(CYL,(1,1)),                                              
  9. // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)                                
  10. //SORTOF02 DD DSN=VIL0014.JTOR,                                    
  11. // DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,                              
  12. // SPACE=(CYL,(1,1)),                                              
  13. // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)                                
  14. //SORTOF03 DD DSN=VIL0014.STOZ,                                    
  15. // DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,                              
  16. // SPACE=(CYL,(1,1)),                                              
  17. // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)                                
  18. //SYSIN DD *                                                        
  19.  SORT FIELDS=COPY                                                  
  20.  OUTFIL FILES=01,INCLUDE=(21,1,CH,GE,C'A',AND,21,1,CH,LE,C'I')      
  21.  OUTFIL FILES=02,INCLUDE=(21,1,CH,GE,C'J',AND,21,1,CH,LE,C'R')      
  22.  OUTFIL FILES=03,SAVE
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