SeanHoppe.com Cleo Code Samples CLEO DDS - 830 Inbound Report - EI830DTL
A*=========================================================================
A* TRANSACTION: PLANNING SCHEDULE - (830) DETAIL FILE
A*=========================================================================
A R EDI830DTLR TEXT('830 DETAIL 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 BFR11 22A TEXT('PO # .......................')
A DTLSEQ 6S 0 TEXT('DETAIL SEQUENCE NUMBER......')
A*
A LIN01 20A TEXT('ASSIGNED ID........... LIN01')
A LIN02 2A TEXT('PRODUCT/SERVICE ID QL. LIN02')
A LIN02D 15A TEXT('PRD/SRV ID QUAL DESP. LIN02D')
A LIN03 48A TEXT('PRODUCT/SERVICE ID.... LIN03')
A LIN04 2A TEXT('PRODUCT/SERVICE ID QL. LIN04')
A LIN04D 15A TEXT('PRD/SRV ID QUAL DESP. LIN04D')
A LIN05 48A TEXT('PRODUCT/SERVICE ID ... LIN05')
A LIN06 2A TEXT('PRODUCT/SERVICE ID QL. LIN06')
A LIN06D 15A TEXT('PRD/SRV ID QUAL DESP. LIN06D')
A LIN07 48A TEXT('PRODUCT/SERVICE ID.... LIN07')
A*
A UIT01 2A TEXT('UNIT OF MEAS CODE .... UIT01')
A UIT01D 15A TEXT('UNIT OF MEAS COD DESP UIT01D')
A*
A PER01 2A TEXT('CONTACT FUNCT CODE ... PER01')
A PER01D 15A TEXT('CONTACT FUN CODE DESP PER01D')
A PER02 60A TEXT('NAME ................. PER02')
A PER03 2A TEXT('COMM # QUAL .......... PER03')
A PER03D 15A TEXT('COMM # QUAL DESP..... PER03D')
A PER04 80A TEXT('COMM # ............... PER04')
A*
A SDP01 2A TEXT('SHIP/DELV PAT CODE ... SDP01')
A SDP01D 15A TEXT('SHP/DEL PAT CODE DESP SDP01D')
A SDP02 1A TEXT('SHIP/DELV PAT TIM COD..SDP02')
A SDP02D 15A TEXT('SHP/DEL PAT T/COD DSP SDP02D')
A*
