I tried this in REXX, more familiar for me than DFSORT. My code:
Stor = '' ALPHA.1 = 'A' ALPHA.2 = 'B' ALPHA.3 = 'C' ALPHA.4 = 'D' ALPHA.5 = 'E' ALPHA.6 = 'F' "ALLOC F(IFILE) DA('BDB204.OUTLIST(FROM)') SHR REUSE " "ALLOC F(OFILE) DA('BDB204.OUTLIST(TO)') SHR REUSE " "EXECIO * DISKR IFILE (STEM REC. FINIS " Suffix = 0 DO I = 1 TO REC.0 Parse Value REC.I , with DBID . . WORD1 Dbname VERSION . If POS(Dbname,Stor) > 0 Then Suffix = Suffix + 1 Else Suffix = 1 Stor = Stor || Dbname OUT.I = 'UTL COPY,TABLE,'||Dbname|| , VERSION || ','|| WORD1 || RIGHT('000' ||DBID,4) || ALPHA.Suffix SAY REC.I SAY OUT.I END "EXECIO * DISKW OFILE (STEM OUT. FINIS " 400 B400-DATABASE 1001 BRN B400-BRANCH-BLDG (1001) T UTL COPY,TABLE,B400-BRANCH-BLDG(1001),BRN0400A 400 B400-DATABASE 3 HST B400-TRANHIST (0003) H UTL COPY,TABLE,B400-TRANHIST(0003),HST0400A 400 B400-DATABASE 4 HST B400-TRANHIST (0004) H UTL COPY,TABLE,B400-TRANHIST(0004),HST0400B 400 B400-DATABASE 5 HST B400-TRANHIST (0005) H UTL COPY,TABLE,B400-TRANHIST(0005),HST0400C *** On Fri, Nov 10, 2023 at 4:56 AM Don Johnson < 000002ee771a0785-dmarc-requ...@listserv.ua.edu> wrote: > Kolusu, thanks once again! This is now complete and working as I had hoped! > > Have a good evening! > Don > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- Wayne V. Bickerdike ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN