SHARE
TWEET

Untitled

a guest Jan 10th, 2017 205 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //SORT1 JOB                                          
  2. //SR1 EXEC PGM=SORT                                  
  3. //SYSOUT DD SYSOUT=*                                  
  4. //SORTIN DD *                                        
  5.    zos                                                
  6.    jcl                                                
  7.    dataset                                            
  8.    ispf                                              
  9. //SORTOUT DD DSN=devoir.terms,DISP=(NEW,CATLG),      
  10. //   UNIT=3390,                                      
  11. //   SPACE=(TRK,1),                                  
  12. //   DCB=(RECFM=FB,LRECL=29,BLKSIZE=0,DSORG=PS),      
  13. //   VOL=SER                                          
  14. //SYSIN DD *                                          
  15.     SORT FIELDS=(1,20,CH,A)
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