|
FMIMEBODY O E DISK USROPN EXTDESC('MERCURY/QCLSRC')
F EXTFILE('QTEMP/MIMEBODY')
F EXTMBR('DFT')
D CRTMIMEBODY S 32A INZ('CRTSRCPF QTEMP/MIMEBODY +
D MBR(DFT)')
C CALL 'QCMDEXC'
C PARM CRTMIMEBODY
C PARM 32 CMDLEN 15 5
C OPEN MIMEBODY
C EVAL SRCDTA = 'Scheduled Activity Information'
C WRITE QCLSRC
C SETON LR
Message . . . . : Record format QCLSRC not in member DFT.
Cause . . . . . : The record format name, QCLSRC, that was specified on the
get interface is not in member DFT file MIMEBODY in library QTEMP.
Recovery . . . : Specify the name of a record format that is used by member
DFT and try your request again.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.