Agree, however, it took me less than 2 minutes to add the code for FIELD card.
I was responding to the original, however, here's the extra code, OUT2.I = 'RPT FIELD,TABLE,'||Dbname|| VERSION SAY REC.I SAY OUT.I SAY OUT2.I D "EXECIO * DISKW OFILE (STEM OUT. FINIS " "EXECIO * DISKW OFILE (STEM OUT2. FINIS " Adding a return code for an empty file is also trivial. On Fri, Nov 10, 2023 at 2:28 PM Sri h Kolusu <[email protected]> wrote: > >> I tried this in REXX, more familiar for me than DFSORT. > > Wayne, > > Thanks for the REXX code, however, please note that there is additional > processing. OP wants to generate 2 different command files and make a copy > of the input along with setting a return code if the input file is empty, > so that they can skip further processing. > > Rexx is good at some tasks, but it is not good at I/O when compared to > DFSORT. > > Thanks, > Kolusu > DFSORT Development > IBM Corporation > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > -- Wayne V. Bickerdike ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
