SeanHoppe.com › CLEO Examples › FTP Clean-up
EXTOL CLEO EDI Integrator -- FTP Clean-ups
Extol Integrator supplies a command (FTPCLNUP)that can be inserted into an FTP receive script to delete files that were received. This deletion occurs after a successful receive, on the FTP server.
This set-up is time-tested and has been working for me since 2006. If you have any questions about implementing the EXTOL Command: FTPCLNUP, Contact Me.
Seq# Function Script text
50 CMDEXC ADDMBR MBR(CI@CL) PFILE(@NL/QTXTSRC) MBROPT(*REPLACE) TEXT('@CS/@NP JOB:@JN/@JU/@JB')
60 CMDEXC ADDMBR MBR(CO@CL) PFILE(@NL/QTXTSRC) MBROPT(*REPLACE) TEXT('@CS/@NP JOB:@JN/@JU/@JB')
Seq# Function Script text
310 CMDEXC OVRDBF FILE(QTXTSRC) TOFILE(@NL/QTXTSRC) MBR(CI@CL)
320 SETUP OPEN
370 WRTLINE UserName PassWord
380 WRTLINE cd upload
390 SETUP CLOSE
400 CMDEXC DLTOVR FILE(QTXTSRC)
450 CMDEXC SBMJOB CMD(FTPCLNUP LOGFILE(@NL/QTXTSRC) LOGMBR(O@CL) CLNUPFILE(@NL/QTXTSRC) CLNUPMBR(CI@CL) CLNUPLOGF(@NL/QTXTSRC) CLNUPLOGM(CO@CL) FRMSGF(@NL/FTPMSGF) FRMSGID(FTP0001) TCMSGF(@NL/FTPMSGF) TCMSGID(FTP0002) RMTSYS(ftp.customersite.com) RNMDEL(D) RUNSCN(Y) PATTERN(*MSGID) MSGQ(C@CL) MSGF(@NL/FTPMSGF) MSGID(USR9003)) JOB(FTPCLNUP) JOBD(EXTSYS/EXTRNJOBD)
451 CMDEXC CPYSRCF FROMFILE(@NL/QTXTSRC) TOFILE(*PRINT) FROMMBR(I@CL)
452 CMDEXC CPYSRCF FROMFILE(@NL/QTXTSRC) TOFILE(*PRINT) FROMMBR(O@CL)
455 CMDEXC SBMJOB CMD(RMVM FILE(@NL/QTXTSRC) MBR(O@CL)) JOBQ(EXTOL)
456 CMDEXC SBMJOB CMD(RMVM FILE(@NL/@NC) MBR(T@CL)) JOBQ(EXTOL)
457 CMDEXC RMVM FILE(@NL/@NC) MBR(R@CL)
458 CMDEXC SBMJOB CMD(RMVM FILE(@NL/QTXTSRC) MBR(CI@CL)) JOBQ(EXTOL)
459 CMDEXC SBMJOB CMD(RMVM FILE(@NL/QTXTSRC) MBR(CO@CL)) JOBQ(EXTOL)
460 CMDEXC SBMJOB CMD(RMVM FILE(@NL/@NC) MBR(I@CL)) JOBQ(EXTOL)
500 EXIT
Below is a screenshot of the FTPMSGF file. This file is mandatory in our example. We use the entries to scan for predetermined messages.
By: Sean Hoppe on
