Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //SHE0008 JOB (BR),'REPORT ', CLASS=A, MSGCLASS=A, MSGLEVEL=(1,1).
- //NOTIFY=&SYSUID
- //STEP01 EXEC PGM=ICETOOL
- //SYSPRINT DD SYSOUT=*
- //SYSOUT DD SYSOUT=*
- //INPUT1 DD DSN=SHECICS.ZEUSBANK.BRANCHES,DISP=SHR
- //SYSIN DD *
- DISPLAY FROM (INPUT1) LIST(REPORT)-
- TITLE('LIST OF ZEUSBANK BRANCHES')-
- HEADER('SORTCODE') ON (8,4,ZD)-
- HEADER('FLAG') ON (12,4,CH)-
- HEADER('BRANCH NAME') ON (44,4,CH)-
- /*
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement