That's a concatenation of PS datasets, which {B|S]SAM can handle if you set the
unlike attributes bit. For a concatenation of PO you'd need to use EXCP.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
________________________________________
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of Sri
h Kolusu <skol...@us.ibm.com>
Sent: Monday, May 13, 2019 12:27 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Concatenating VB and FB ?
>>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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
