SHARE
TWEET

procedūra SUKL

a guest Apr 3rd, 2015 379 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //STEP01 EXEC PGM=SORT                              
  2. //SYSPRINT DD SYSOUT=*                              
  3. //SYSOUT DD SYSOUT=*                                
  4. //SYSIN DD DSN=VIL0014.MASTER.CSLIB(&CS),DISP=SHR    
  5. //SORTIN DD DSN=&INPUT1,DISP=SHR                    
  6. //       DD DSN=&INPUT2,DISP=SHR                    
  7. //       DD DSN=&INPUT3,DISP=SHR                    
  8. //       DD DSN=&INPUT4,DISP=SHR                    
  9. //SORTOUT DD DSN=&OUTPUT,DISP=(NEW,CATLG,DELETE),    
  10. // SPACE=(TRK,(1,1)),                                
  11. // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS)
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