SeanHoppe.com > Cleo Code Samples > 830 Inbound Report - EI830FL1

CLEO DDS - 830 Inbound Report - EI830FL1

     A*=========================================================================
     A* TRANSACTION: PLANNING SCHEDULE - (830) FORECAST FILE
     A*=========================================================================
     A          R IF830R                    PFILE(EDI830FST)
     A*-------------------------------------------------------------------------
     A            IFMSID                    RENAME(MSGID)
     A            IFMLOG                    RENAME(MSGREF)
     A            IFTPCD                    RENAME(TPCODE)
     A            IFBRCH                    RENAME(BRANCH)
     A            IFCUST                    RENAME(CUSTNO)
     A            IFDUNS                    RENAME(DUNSNO)
     A            IFCRUS                    RENAME(CRTUSR)
     A            IFCRDT                    RENAME(CRTDTE)
     A            IFCRTM                    RENAME(CRTTME)
     A*
     A            IFPO                      RENAME(BFR11)
     A            IFLNNO                    RENAME(DTLSEQ)
     A            IFSQNO                    RENAME(FSTSEQ)
     A*
     A            IFQTY                     RENAME(FST01)
     A            IFFCQL                    RENAME(FST02)
     A            IFFCQD                    RENAME(FST02D)
     A            IFTMQL                    RENAME(FST03)
     A            IFTMQD                    RENAME(FST03D)
     A            IFDT01                    RENAME(FST04)
     A*
     A          K IFMLOG
     A          K IFLNNO
     A          K IFSQNO




By: on