I would probably use a 26 char ALPHA string and index into that to avoid the stem variable with the hard coded A to F.
or a Hex to Char based on the suffix value.... Been a while since I saw Datacom/DB dictionary output :) On Fri, Nov 10, 2023 at 1:13 PM Wayne Bickerdike <[email protected]> wrote: > 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 < > [email protected]> 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 [email protected] with the message: INFO IBM-MAIN >> > > > -- > Wayne V. Bickerdike > > -- Wayne V. Bickerdike ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
