|
If a temporary sorted copy of the data is acceptabl, perhaps:
crtpf qtemp/jobparmx srcfile(srclib/ddssrcf) srcmbr(jobparms)
mbr(tempdata) size( ) ...
...
/* clrpfm qtemp/jobparmx mbr(tempdata) -- implicit in fmtdta.? */
FMTDTA INFILE((MNR/JOBPARMS DMS200_100) (MNR/JOBPARMS DMS200_ALL))
OUTFILE(QTEMP/JOBPARMX) SRCFILE(srclib/ddssrcf) SRCMBR(JOBPARMF)
ovrdbf PARMS TOFILE(QTEMP/JOBPARMX) MBR(tempdata)
call pgm(dms200)
...
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.