SeanHoppe.com Cleo Code Samples 830 Inbound Report - EDI830HDR
A*=========================================================================
A* TRANSACTION: Planning Schedule (830) - HEADER FILE
A*=========================================================================
A R EDI830HDRR TEXT('830 HEADER FORMAT')
A*-------------------------------------------------------------------------
A MSGID 3A TEXT('MESSAGE ID..................')
A MSGREF 11S 0 TEXT('MESSAGE REFERENCE NUMBER....')
A TPCODE 6A TEXT('TRADING PARTNER CODE........')
A BRANCH 2A TEXT('BRANCH......................')
A CUSTNO 8A TEXT('CUSTOMER NUMBER.............')
A DUNSNO 13A TEXT('DUNS NUMBER - 13 (N104).....')
A CRTUSR 10A TEXT('CREATE USER.................')
A CRTDTE 8S 0 TEXT('CREATE DATE.................')
A CRTTME 8S 0 TEXT('CREATE TIME.................')
A*
A PRTFLG 1A TEXT('PRINT FLAG..................')
A PRCFLG 1A TEXT('PROCESS FLAG................')
A*
A CUSTNM 35A TEXT('CUSTOMER NAME...............')
A*
A BFR01 2A TEXT('TRANS SET PURPOSE CODE BFR01')
A BFR01D 15A TEXT('TRANS SET P/CODE DESP BFR01D')
A BFR03 30A TEXT('RELEASE #............. BFR03')
A BFR04 2A TEXT('FORCAST TYPE QUAL..... BFR04')
A BFR04D 15A TEXT('FORCAST TYP QUAL DESP BFR04D')
A BFR05 1A TEXT('FORECAST QUANT QUAL... BFR05')
A BFR05D 15A TEXT('FORECAST QTY QLF DESP BFR05D')
A BFR06 8S 0 TEXT('DATE.................. BFR06')
A BFR07 8S 0 TEXT('DATE.................. BFR07')
A BFR08 8S 0 TEXT('DATE.................. BFR08')
A BFR11 22A TEXT('PO #.................. BFR11')
A*
A N101A 3A TEXT('ENTITY ID CODE A...... N101A')
A N101AD 15A TEXT('ENTITY ID CODE A DESP N101AD')
A N102A 60A TEXT('NAME A................ N102A')
A N103A 2A TEXT('ID CODE QUAL A........ N103A')
A N103AD 15A TEXT('ID CODE QUAL A DESP.. N103AD')
A N104A 80A TEXT('ID CODE A............. N104A')
A N201A 60A TEXT('NAME 1 A ............. N201A')
A N202A 60A TEXT('NAME 2 A ............. N202A')
A N3011A 55A TEXT('ADDRESS INFO 1 A .... N3011A')
A N3021A 55A TEXT('ADDRESS INFO 2 A .... N3021A')
A N3012A 55A TEXT('ADDRESS INFO 1 A .... N3012A')
A N3022A 55A TEXT('ADDRESS INFO 2 A .... N3022A')
A N401A 30A TEXT('CITY NAME A .......... N401A')
A N402A 2A TEXT('STATE/PROV CODE A .... N402A')
A N403A 15A TEXT('POSTAL CODE A ........ N403A')
A N404A 3A TEXT('COUNTRY CODE A ....... N404A')
A PER01A 2A TEXT('CONTACT FUNCT COD A . PER01A')
A PER1AD 15A TEXT('CONTACT F/CODE A DESP PER1AD')
A PER02A 60A TEXT('NAME A................PER02A')
A PER03A 2A TEXT('COMM # QUAL A.........PER03A')
A PER3AD 15A TEXT('COMM # QUAL A DESP.. PER3AD')
A PER04A 80A TEXT('COMM # A..............PER04A')
A*
A N101B 3A TEXT('ENTITY ID CODE B...... N101B')
A N101BD 15A TEXT('ENTITY ID CODE B DESP N101BD')
A N102B 60A TEXT('NAME B................ N102B')
A N103B 2A TEXT('ID CODE QUAL B........ N103B')
A N103BD 15A TEXT('ID CODE QUAL B DESP.. N103BD')
A N104B 80A TEXT('ID CODE B ............ N104B')
A N201B 60A TEXT('NAME 1 B ............. N201B')
A N202B 60A TEXT('NAME 2 B ............. N202B')
A N3011B 55A TEXT('ADDRESS INFO 1 B .... N3011B')
A N3021B 55A TEXT('ADDRESS INFO 2 B .... N3021B')
A N3012B 55A TEXT('ADDRESS INFO 1 B .... N3012B')
A N3022B 55A TEXT('ADDRESS INFO 2 B .... N3022B')
A N401B 30A TEXT('CITY NAME B .......... N401B')
A N402B 2A TEXT('STATE/PROV CODE B .... N402B')
A N403B 15A TEXT('POSTAL CODE B ........ N403B')
A N404B 3A TEXT('COUNTRY CODE B ....... N404B')
A PER01B 2A TEXT('CONTACT FUNCT COD B . PER01B')
A PER1BD 15A TEXT('CONTACT F/CODE A DESP PER1BD')
A PER02B 60A TEXT('NAME B ...............PER02B')
A PER03B 2A TEXT('COMM # QUAL B ........PER03B')
A PER3BD 15A TEXT('COMM # QUAL B DESP.. PER3BD')
A PER04B 80A TEXT('COMM # B .............PER04B')
A*
A N101C 3A TEXT('ENTITY ID CODE C...... N101C')
A N101CD 15A TEXT('ENTITY ID CODE C DESP N101CD')
A N102C 60A TEXT('NAME C................ N102C')
A N103C 2A TEXT('ID CODE QUAL C........ N103C')
A N103CD 15A TEXT('ID CODE QUAL C DESP.. N103CD')
A N104C 80A TEXT('ID CODE C ............ N104C')
A N201C 60A TEXT('NAME 1 C ............. N201C')
A N202C 60A TEXT('NAME 2 C ............. N202C')
A N3011C 55A TEXT('ADDRESS INFO 1 C .... N3011C')
A N3021C 55A TEXT('ADDRESS INFO 2 C .... N3021C')
A N3012C 55A TEXT('ADDRESS INFO 1 C .... N3012C')
A N3022C 55A TEXT('ADDRESS INFO 2 C .... N3022C')
A N401C 30A TEXT('CITY NAME C .......... N401C')
A N402C 2A TEXT('STATE/PROV CODE C .... N402C')
A N403C 15A TEXT('POSTAL CODE C ........ N403C')
A N404C 3A TEXT('COUNTRY CODE C ....... N404C')
A PER01C 2A TEXT('CONTACT FUNCT COD C . PER01C')
A PER1CD 15A TEXT('CONTACT F/CODE C DESP PER1CD')
A PER02C 60A TEXT('NAME C ...............PER02C')
A PER03C 2A TEXT('COMM # QUAL C ........PER03C')
A PER3CD 15A TEXT('COMM # QUAL C DESP.. PER3CD')
A PER04C 80A TEXT('COMM # C .............PER04C')
A*
A CTT01 6S 0 TEXT('# OF LINE ITEMS........CTT01')
A CTT02 10S 2 TEXT('HASH TOTAL.............CTT02')
A*
