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

CLEO DDS - 830 Inbound Report - EI830HL0

A*=========================================================================
     A* TRANSACTION: Planning Schedule (830) - HEADER FILE
     A*=========================================================================
     A                                      UNIQUE
     A          R IH830R                    PFILE(EDI830HDR)
     A*-------------------------------------------------------------------------
     A            IHMSID                    RENAME(MSGID)
     A            IHMLOG                    RENAME(MSGREF)
     A            IHTPCD                    RENAME(TPCODE)
     A            IHBRCH                    RENAME(BRANCH)
     A            IHCUST                    RENAME(CUSTNO)
     A            IHDUNS                    RENAME(DUNSNO)
     A            IHCRUS                    RENAME(CRTUSR)
     A            IHCRDT                    RENAME(CRTDTE)
     A            IHCRTM                    RENAME(CRTTME)
     A*
     A            IHPRTF                    RENAME(PRTFLG)
     A            IHPRCF                    RENAME(PRCFLG)
     A*
     A            IHCUSN                    RENAME(CUSTNM)
     A*
     A            IHPURP                    RENAME(BFR01)
     A            IHPURD                    RENAME(BFR01D)
     A            IHRELN                    RENAME(BFR03)
     A            IHFCTP                    RENAME(BFR04)
     A            IHFCTD                    RENAME(BFR04D)
     A            IHFCQQ                    RENAME(BFR05)
     A            IHFCQD                    RENAME(BFR05D)
     A            IHF1DT                    RENAME(BFR06)
     A            IHF2DT                    RENAME(BFR07)
     A            IHF3DT                    RENAME(BFR08)
     A            IHPO                      RENAME(BFR11)
     A*
     A            IHENQA                    RENAME(N101A)
     A            IHENDA                    RENAME(N101AD)
     A            IHENNA                    RENAME(N102A)
     A            IHIDQA                    RENAME(N103A)
     A            IHIQDA                    RENAME(N103AD)
     A            IHIDCA                    RENAME(N104A)
     A            IHNM1A                    RENAME(N201A)
     A            IHNM2A                    RENAME(N202A)
     A            IHAD1A                    RENAME(N3011A)
     A            IHAD2A                    RENAME(N3021A)
     A            IHAD3A                    RENAME(N3012A)
     A            IHAD4A                    RENAME(N3022A)
     A            IHCTYA                    RENAME(N401A)
     A            IHSTA                     RENAME(N402A)
     A            IHZIPA                    RENAME(N403A)
     A            IHCOUA                    RENAME(N404A)
     A            IHCNFA                    RENAME(PER01A)
     A            IHCNDA                    RENAME(PER1AD)
     A            IHCNMA                    RENAME(PER02A)
     A            IHCNQA                    RENAME(PER03A)
     A            IHCQAD                    RENAME(PER3AD)
     A            IHCNNA                    RENAME(PER04A)
     A*
     A            IHENQB                    RENAME(N101B)
     A            IHENDB                    RENAME(N101BD)
     A            IHENNB                    RENAME(N102B)
     A            IHIDQB                    RENAME(N103B)
     A            IHIQDB                    RENAME(N103BD)
     A            IHIDCB                    RENAME(N104B)
     A            IHNM1B                    RENAME(N201B)
     A            IHNM2B                    RENAME(N202B)
     A            IHAD1B                    RENAME(N3011B)
     A            IHAD2B                    RENAME(N3021B)
     A            IHAD3B                    RENAME(N3012B)
     A            IHAD4B                    RENAME(N3022B)
     A            IHCTYB                    RENAME(N401B)
     A            IHSTB                     RENAME(N402B)
     A            IHZIPB                    RENAME(N403B)
     A            IHCOUB                    RENAME(N404B)
     A            IHCNFB                    RENAME(PER01B)
     A            IHCNDB                    RENAME(PER1BD)
     A            IHCNMB                    RENAME(PER02B)
     A            IHCNQB                    RENAME(PER03B)
     A            IHCQBD                    RENAME(PER3BD)
     A            IHCNNB                    RENAME(PER04B)
     A*
     A            IHENQC                    RENAME(N101C)
     A            IHENDC                    RENAME(N101CD)
     A            IHENNC                    RENAME(N102C)
     A            IHIDQC                    RENAME(N103C)
     A            IHIQDC                    RENAME(N103CD)
     A            IHIDCC                    RENAME(N104C)
     A            IHNM1C                    RENAME(N201C)
     A            IHNM2C                    RENAME(N202C)
     A            IHAD1C                    RENAME(N3011C)
     A            IHAD2C                    RENAME(N3021C)
     A            IHAD3C                    RENAME(N3012C)
     A            IHAD4C                    RENAME(N3022C)
     A            IHCTYC                    RENAME(N401C)
     A            IHSTC                     RENAME(N402C)
     A            IHZIPC                    RENAME(N403C)
     A            IHCOUC                    RENAME(N404C)
     A            IHCNFC                    RENAME(PER01C)
     A            IHCNDC                    RENAME(PER1CD)
     A            IHCNMC                    RENAME(PER02C)
     A            IHCNQC                    RENAME(PER03C)
     A            IHCQCD                    RENAME(PER3CD)
     A            IHCNNC                    RENAME(PER04C)
     A*
     A            IHTLIN                    RENAME(CTT01)
     A            IHTOTL                    RENAME(CTT02)
     A*
     A          K IHMLOG




By: on