After creating an automated script for FTP, this will clear the password that was used to authenticate the user ID. Although the file is defined for our use, it can be easily modified for any flat file used for an FTP script. The FTP source file is a multi-membered file with a member created for each workstation using the FTP scripting programs.
0001.00
0002.00 * Clear password from source file
0003.00
0004.00 H option(*nodebugio)
0006.00
0007.00 Fftpsrc uf f 500 disk usropn
0008.00
0009.00 D w_data s like(data)
0010.00 D pos s 3 0
0011.00 D w_cmd s 256a inz varying
0012.00 D cmd s 256a inz
0013.00 D length s 15 5
0014.00
0015.00 D sds
0016.00 D ftpdev 244 253
0017.00
0018.00 Iftpsrc aa
0019.00 I 1 500 data
0020.00
0021.00 C eval w_cmd = 'OVRDBF FILE(FTPSRC) MBR('
0022.00 C + %trim(ftpdev) + ')'
0023.00 C exsr DoCmd
0024.00
0025.00 C open ftpsrc
0026.00 C read ftpsrc
0027.00 C clear w_data
0028.00 C reset pos
0029.00 C eval pos = %scan(' ' : data )
0030.00 C eval w_data = %subst(data : 1 : pos - 1 )
0031.00 C clear data
0032.00 C eval data = w_data
0033.00 C except upddata
0034.00 C close ftpsrc
0035.00
0036.00 C eval w_cmd = 'DLTOVR *ALL'
0037.00 C exsr DoCmd
0038.00
0039.00 C eval *inlr = *on
0040.00
0041.00 *-----------------------
0042.00 C DoCmd begsr
0043.00
0044.00 C eval length = %len(w_cmd)
0045.00 C reset cmd
0046.00 C movel w_cmd cmd
0047.00 C call(e) 'QCMDEXC' p_cmd
0048.00 C reset w_cmd
0049.00
0050.00 C endsr
0051.00
0052.00 *-----------------------
0053.00 C *inzsr begsr
0054.00
0055.00 C p_cmd plist
0056.00 C parm cmd
0057.00 C parm length
0058.00
0059.00 C endsr
0060.00
0061.00 *-----------------------
0062.00 * output with exception
0063.00 Oftpsrc e upddata
0064.00 O data 500
================================== MORE INFORMATION ON THIS TOPIC ==================================
The Best Web Links: tips, tutorials and more.
Ask your programming questions--or help out your peers by answering them--in our live discussion forums.
Ask the Experts yourself: Our application development gurus are waiting to answer your programming questions.
This was first published in December 2003