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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
