Figure 3 - CL program to retrieve the IFS directory listing via FTP

PGM
　OVRDBF FILE(INPUT) TOFILE(MYLIB/QCLSRC) MBR(FTPSCRIPT)
　CHGCURLIB MYLIB
　FTP RMTSYS(SYSxxx)
　ENDPGM