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