>>Concatenation of FB and VB isn't going to work. I prefer VB, but changing
it after the fact is a user hostile move.
Utilities like File-Manager are quite capable of handling concatenation of
VB with FB datasets. As long as your VB dataset is the first dataset in
concatenation you can copy the copy the contents.
Here is a simple example.
//*****************************************************************
//* CREATE A FB AND VB DATASET USING DFSORT *
//* FB DATASET WILL HAVE THE 1-3 RECORDS *
//* VB DATASET WILL HAVE THE 4-6 RECORDS *
//*****************************************************************
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
ABC
DEF
GHI
JKL
MNO
QRS
//FB DD DSN=&&FB,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE)
//VB DD DSN=&&VB,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE)
//SYSIN DD *
OPTION COPY
INREC OVERLAY=(80:1,3,CHANGE=(1,C'ABC',C'A',
C'MNO',C'M'),
NOMATCH=(C' '))
OUTFIL FNAMES=FB,ENDREC=3
OUTFIL FNAMES=VB,FTOV,STARTREC=4,VLTRIM=C' '
//*
//*****************************************************************
//* CONCATENATE A VB AND FB DATASET AND COPY IT TO USING FILEMGR *
//* IF VB DATASET IS CONCATENATED FIRST, THE COPY IS SUCCESSFUL *
//*****************************************************************
//STEP0200 EXEC PGM=FILEMGR
//SYSPRINT DD SYSOUT=*
//DDIN DD DISP=(OLD,PASS),DSN=&&VB
// DD DISP=(OLD,PASS),DSN=&&FB
//DDOUT DD SYSOUT=*
//SYSIN DD *
$$FILEM DSC
//*
//*****************************************************************
//* CONCATENATE A FB AND VB DATASET AND COPY IT TO USING FILEMGR *
//* IF FB DATASET IS CONCATENATED FIRST, THE RESULT IS JUST A *
//* COPY OF FB AND ENDS WITH A RETURN CODE OF 16. *
//*****************************************************************
//STEP0300 EXEC PGM=FILEMGR
//SYSPRINT DD SYSOUT=*
//DDIN DD DISP=(OLD,PASS),DSN=&&FB
// DD DISP=(OLD,PASS),DSN=&&VB
//DDOUT DD SYSOUT=*
//SYSIN DD *
$$FILEM DSC
//*
The output from step0200 is (VB is concatenated first)
JKL
MNO
M
QRS
ABC
A
DEF
GHI
Relavant messages from File-manager
IBM File Manager for z/OS
$$FILEM DSC
FMNBA377 3 record(s) read from DDIN/SYS19133.T092252.RA000.CONFBVB.VB.H03
FMNBA377 3 record(s) read from DDIN/SYS19133.T092252.RA000.CONFBVB.FB.H03
FMNBB298 6 record(s) copied: 0 truncated: 0 fields truncated
The output from step0300 is (FB is concatenated first)
ABC
A
DEF
GHI
Relevant messages from File-Manager
IBM File Manager for z/OS
$$FILEM DSC
FMNBA377 3 record(s) read from DDIN/SYS19133.T092252.RA000.CONFBVB.FB.H03
FMNBA355 Record size (3) invalid for FIXED,80 output
FMNBA377 1 record(s) read from DDIN/SYS19133.T092252.RA000.CONFBVB.VB.H03
FMNBB441 Copy procedure terminated. 3 rec(s) processed
Thanks,
Kolusu
IBM Corporation
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
