|
Hi Here are sources: File F78P00 A R I78P00 A TEXT('Current date') A D0WEK 2A A D0MTH 2A A D0YER 4A File is located not in QTEMP library CL code: J78P00: PGM MONMSG MSGID(CPF0000 CPC0000 CPD0000) CLRPFM FILE(F78P00) CALL P78P00 ENDPGM RPG code: FF78P00 O E DISK C TIME $WK120 120 ..... C MOVELD4WEK D0WEK C MOVELD4MTH D0MTH C MOVELD4YER D0YER C WRITEI78P00 41 ..... In Log i have only info that job was submitted and then that file was cleared. Regards Tomasz Skorza
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.