Sample Order Header File
1 2 3 4 5 6 7 8 9 10 11 12 13 | File . . : OHEAD Record format . : OHEADR Record length . . : 63 Library . : DAS File type . . . : PF Number of fields . : 8 Text . . : Order Header Field Type Size Key Text X1DEL Char 1 Status X1CMP Zoned 3,0 1 Company No. X1ORD Zoned 9,0 2 Order Number X1TYPE Char 1 Transaction Type X1ORDT Zoned 8,0 Order Date X1CUST Char 10 Customer Number X1PO Char 20 PO Number X1OTOT Zoned 11,2 Order Total |
Sample CL Program
1 2 3 4 5 | PGM DCLF FILE(OHEAD) OPNID(RENAME) RCVF OPNID(RENAME) SNDPGMMSG MSG(&RENAME_X1CUST) TOPGMQ(*EXT) ENDPGM |
Look at the spool file for the compiled CL program
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | 100- PGM 200- DCLF FILE(OHEAD) OPNID(RENAME) QUALIFIED FILE NAME - DAS/OHEAD RECORD FORMAT NAME - OHEADR CL VARIABLE TYPE LENGTH PRECISION TEXT &RENAME_X1DEL *CHAR 1 Status &RENAME_X1CMP *DEC 3 0 Company No. &RENAME_X1ORD *DEC 9 0 Order Number &RENAME_X1TYPE *CHAR 1 Transaction Type &RENAME_X1ORDT *DEC 8 0 Order Date &RENAME_X1CUST *CHAR 10 Customer Number &RENAME_X1PO *CHAR 20 PO Number &RENAME_X1OTOT *DEC 11 2 Order Total 300- RCVF OPNID(RENAME) 400- SNDPGMMSG MSG(&RENAME_X1CUST) TOPGMQ(*EXT) 500- ENDPGM |
No comments:
Post a Comment
NO JUNK, Please try to keep this clean and related to the topic at hand.
Comments are for users to ask questions, collaborate or improve on existing.