SeanHoppe.com Cleo Code Samples 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
