SeanHoppe.com Cleo Code Samples 830 Inbound Report - EDI830FSR
A*=========================================================================
A* TRANSACTION: PLANNING SCHEDULE - (830) FORECAST FILE
A*=========================================================================
A R EDI830FSTR TEXT('830 FORECAST FILE')
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 FSTSEQ 6S 0 TEXT('FORECAST SEQ # .............')
A*
A FST01 15S 3 TEXT('QUANTITY ............. FST01')
A FST02 1A TEXT('FORECAST QUAL ........ FST02')
A FST02D 15A TEXT('FORECAST QUAL DESC... FST02D')
A FST03 1A TEXT('FORECAST TIMING QUAL.. FST03')
A FST03D 15A TEXT('FORECAST T/QUAL DESC FST03D')
A FST04 8S 0 TEXT('DATE ................. FST04')
A*
