Author: sergeyken
Posted: Fri Aug 12, 2016 3:08 am (GMT 5.5)
FILEAID can do the job
Confirmation of results: RECFM=VB --> RECFM=FB
_________________
Tyrannosaurus-REXX
Posted: Fri Aug 12, 2016 3:08 am (GMT 5.5)
FILEAID can do the job
| Code: |
| //FILECOPY EXEC PGM=FILEAID //SYSPRINT DD SYSOUT=* //* //* INPUT DATA FILES //DD01 DD DISP=SHR,DSN=&SYSUID..INPUT1 //DD02 DD DISP=SHR,DSN=&SYSUID..INPUT2 //DD03 DD DISP=SHR,DSN=&SYSUID..INPUT3 //* OUTPUT DATA FILES //DD01O DD DISP=(NEW,PASS), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0), // DSN=&&OUTFILE1 //DD02O DD DISP=(NEW,PASS), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0), // DSN=&&OUTFILE2 //DD03O DD DISP=(NEW,PASS), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0), // DSN=&&OUTFILE3 //* //SYSIN DD * $$DD01 COPY $$DD02 COPY $$DD03 COPY //* |
Confirmation of results: RECFM=VB --> RECFM=FB
| Code: |
DD01 DSN=$USER.INPUT1 OPENED AS PS, RECFM=VB,LRECL=300,BLKSIZE=27968,VOL=STGA88 DD01O DSN=SYS16224.T172619.RA000.#123456.R0188163 OPENED AS PS, RECFM=FB,LRECL=80,BLKSIZE=80,VOL=WRKT0M $$DD01 COPY ABOVE FUNCTION ENDED ON NORMAL EOD RC=0 RECORDS-READ=15,COPIED=15 15 RECORDS WRITTEN TO DD01O-SYS16224.T172619.RA000.#1233456.R0188163 VOL=WRKT0M DD02 DSN=$USER.INPUT2 OPENED AS PS, RECFM=VB,LRECL=300,BLKSIZE=27968,VOL=STGA88 DD02O DSN=SYS16224.T172619.RA000.#123456.R0188164 OPENED AS PS, RECFM=FB,LRECL=80,BLKSIZE=80,VOL=WRKT0M $$DD02 COPY ABOVE FUNCTION ENDED ON NORMAL EOD RC=0 RECORDS-READ=15,COPIED=15 15 RECORDS WRITTEN TO DD01O-SYS16224.T172619.RA000.#1233456.R0188164 VOL=WRKT0M DD03 DSN=$USER.INPUT3 OPENED AS PS, RECFM=VB,LRECL=300,BLKSIZE=27968,VOL=STGA88 DD03O DSN=SYS16224.T172619.RA000.#123456.R0188165 OPENED AS PS, RECFM=FB,LRECL=80,BLKSIZE=80,VOL=WRKT0M $$DD03 COPY ABOVE FUNCTION ENDED ON NORMAL EOD RC=0 RECORDS-READ=15,COPIED=15 15 RECORDS WRITTEN TO DD01O-SYS16224.T172619.RA000.#1233456.R0188165 VOL=WRKT0M |
_________________
Tyrannosaurus-REXX