SHARE
TWEET

Untitled

a guest Feb 24th, 2015 401 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //KC03XXX  JOB 'NAME HERE',
  2. //              MSGCLASS=H,    H means Held Queue.
  3. //              MSGLEVEL=(2,1),  1,1 is all jcl and all statements cant remember what (2,1) is lol
  4. //              NOTIFY=KC03XXX
  5. //*
  6. //* COMMENT BLOCK
  7. //*
  8. //PRINT    EXEC PGM=IEBPTPCH   - PRINT IS THE JOB NAME.
  9. //SYSUT1   DD DSN=KC03XXX.COMP52.POLYFILE, - REFERENCING POLY FILE CREATED IN ASS1
  10. //                DISP=(SHR,KEEP,KEEP) - BECAUSE WE'RE REFERENCING ANOTHER FILE SHARE AND KEEP.
  11. //SYSUT2   DD SYSOUT=H
  12. //SYSPRINT DD SYSOUT=H
  13. //SYSIN    DD *
  14. * This section will take in all the input stuff
  15.  PRINT MAXFLDS=8    - This says there are a maximum of 8 fields in the file.
  16.     TITLE ITEM=('NUMBER'),  - This sets the headers eg in cobol.
  17.               ITEM=('name',12), there 5 more.    
  18.                           ITEM=
  19.                           ITEM=
  20.                           ITEM=
  21.                           ITEM=
  22.                           ITEM=
  23.                           ITEM=
  24.      RECORD FIELD=(5,1,,1) - this tells the program okay: its taking the first 5 characters from the input
  25.           data set and will be the first 5 characters in the output dataset. hence 5,1,,1 5 characters. 1 first 5
  26.           from input, first 5 to output.
  27.          
  28.          
  29.          * add a delimiter
  30.          /*
  31.          end program
  32.          //
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