SHARE
TWEET

Untitled

a guest Nov 17th, 2017 213 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  //SHE0008 JOB (BR),'REPORT    ', CLASS=A, MSGCLASS=A, MSGLEVEL=(1,1).
  2.  //NOTIFY=&SYSUID                                                    
  3.  //STEP01   EXEC PGM=ICETOOL                                          
  4.  //SYSPRINT DD SYSOUT=*                                              
  5.  //SYSOUT   DD SYSOUT=*                                              
  6.  //INPUT1   DD DSN=SHECICS.ZEUSBANK.BRANCHES,DISP=SHR                
  7.  //SYSIN    DD *                                                      
  8.    DISPLAY FROM (INPUT1) LIST(REPORT)-                                
  9.    TITLE('LIST OF ZEUSBANK BRANCHES')-                                
  10.    HEADER('SORTCODE') ON (8,4,ZD)-                                    
  11.    HEADER('FLAG') ON (12,4,CH)-                                      
  12.    HEADER('BRANCH NAME') ON (44,4,CH)-                                  
  13.  /*
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top