SeanHoppe.com Cleo Code Samples CLEO DDS - 830 Inbound Report - EI830DL1
A*=========================================================================
A* TRANSACTION: PLANNING SCHEDULE - (830) DETAIL FILE
A*=========================================================================
A R ID830R PFILE(EDI830DTL)
A*-------------------------------------------------------------------------
A IDMSID RENAME(MSGID)
A IDMLOG RENAME(MSGREF)
A IDTPCD RENAME(TPCODE)
A IDBRCH RENAME(BRANCH)
A IDCUST RENAME(CUSTNO)
A IDDUNS RENAME(DUNSNO)
A IDCRUS RENAME(CRTUSR)
A IDCRDT RENAME(CRTDTE)
A IDCRTM RENAME(CRTTME)
A*
A IDPO RENAME(BFR11)
A IDLNNO RENAME(DTLSEQ)
A*
A IDASLN RENAME(LIN01)
A IDPQ01 RENAME(LIN02)
A IDPQ1D RENAME(LIN02D)
A IDPS01 RENAME(LIN03)
A IDPQ02 RENAME(LIN04)
A IDPQ2D RENAME(LIN04D)
A IDPS02 RENAME(LIN05)
A IDPQ03 RENAME(LIN06)
A IDPQ3D RENAME(LIN06D)
A IDPS03 RENAME(LIN07)
A*
A IDUOM RENAME(UIT01)
A IDUOMD RENAME(UIT01D)
A*
A IDCNFU RENAME(PER01)
A IDCNFD RENAME(PER01D)
A IDCNFN RENAME(PER02)
A IDCNQL RENAME(PER03)
A IDCNQD RENAME(PER03D)
A IDCNNM RENAME(PER04)
A*
A IDSCPC RENAME(SDP01)
A IDSCPD RENAME(SDP01D)
A IDSCTC RENAME(SDP02)
A IDSCTD RENAME(SDP02D)
A*
A K IDMLOG
A K IDLNNO
