//KC03XXX  JOB 'NAME HERE',
//              MSGCLASS=H,    H means Held Queue.
//              MSGLEVEL=(2,1),  1,1 is all jcl and all statements cant remember what (2,1) is lol
//              NOTIFY=KC03XXX
//*
//* COMMENT BLOCK
//*
//PRINT    EXEC PGM=IEBPTPCH   - PRINT IS THE JOB NAME.
//SYSUT1   DD DSN=KC03XXX.COMP52.POLYFILE, - REFERENCING POLY FILE CREATED IN ASS1
//                DISP=(SHR,KEEP,KEEP) - BECAUSE WE'RE REFERENCING ANOTHER FILE SHARE AND KEEP.
//SYSUT2   DD SYSOUT=H
//SYSPRINT DD SYSOUT=H
//SYSIN    DD *
* This section will take in all the input stuff
  PRINT MAXFLDS=8    - This says there are a maximum of 8 fields in the file.
     TITLE ITEM=('NUMBER'),  - This sets the headers eg in cobol.
              ITEM=('name',12), there 5 more.
              ITEM=
              ITEM=
              ITEM=
              ITEM=
              ITEM=
              ITEM=
      RECORD FIELD=(5,1,,1) - this tells the program okay: its taking the first 5 characters from the input
      data set and will be the first 5 characters in the output dataset. hence 5,1,,1 5 characters. 1 first 5
      from input, first 5 to output.


     * add a delimiter
     /*
     end program
     //