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

CLEO DDS - 830 Inbound Report - EI830SL1

     A*=========================================================================
     A* TRANSACTION: PLANNING SCHEDULE (830) - DETAIL - SHIP/RECEIVE
     A*=========================================================================
     A          R IS830R                    PFILE(EDI830DSR)
     A*-------------------------------------------------------------------------
     A            ISMSID                    RENAME(MSGID)
     A            ISMLOG                    RENAME(MSGREF)
     A            ISTPCD                    RENAME(TPCODE)
     A            ISBRCH                    RENAME(BRANCH)
     A            ISCUST                    RENAME(CUSTNO)
     A            ISDUNS                    RENAME(DUNSNO)
     A            ISCRUS                    RENAME(CRTUSR)
     A            ISCRDT                    RENAME(CRTDTE)
     A            ISCRTM                    RENAME(CRTTME)
     A*
     A            ISPO                      RENAME(BFR11)
     A            ISLNNO                    RENAME(DTLSEQ)
     A            ISSQNO                    RENAME(SHPSEQ)
     A*
     A            ISQTQL                    RENAME(SHP01)
     A            ISQTQD                    RENAME(SHP01D)
     A            ISQTY                     RENAME(SHP02)
     A            ISDTQL                    RENAME(SHP03)
     A            ISDTQD                    RENAME(SHP03D)
     A            ISDT01                    RENAME(SHP04)
     A            ISDT02                    RENAME(SHP06)
     A*
     A          K ISMLOG
     A          K ISLNNO
     A          K ISSQNO




By: on