|
Another solution would be to add a data structure for the source file to the program and use that for his I/O:
FQCLSRC UF F 92 DISK IQCLSRC AA 01 * D SOURCE E DS EXTNAME(QCLSRC)
C *entry plist C parm filename 24 * C read QCLSRC SOURCE * C eval SrcDta = 'delete ' + filename C update qclsrc SOURCE * C eval *inlr = *on
Jeff Young Sr. Programmer Analyst
IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions V5R2 IBM Certified Specialist- e(logo) server i5Series Technical Solutions Designer V5R3
IBM Certified Specialist- e(logo)server i5Series Technical Solutions Implementer V5R3
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.