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