Not being sure if the original post required individual members,
the output
of IEBPTPCH could be modified.....
from : MEMBER NAME to ./ ADD etc etc
so as to provide input to IEBUPDTE. I'm not sure of how trailing
blanks
will be treated.
I did something like this years ago, but in reverse, VB to FB. I
had the
luxury of PDSMAN but the concept is the same.
Editorial P.S. : I never liked VB in the past, still don't, won't
like it
for the next few months.
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-
m...@listserv.ua.edu] On
Behalf Of Sri h Kolusu
Sent: Friday, February 13, 2015 10:21 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: FB to VB PDS
Paul,
Yes I am offering him a choice as you can get both. If your shop
has FILE
Manager you can use the following JCL
FB to VB PDS
//******************************************************************
//* COPY ALL MEMBERS FROM FB PDS AND CREATE A VB PDS *
//* X = Primay Space Y = Secondary Space Z = Directory Blocks *
//* 1 Directory Block can contain 5 or 6 members *
//* DirBlocksReq = INT(Num Of Member To Create / 5 + .99 ) *
//******************************************************************
//STEP0100 EXEC PGM=FILEMGR
//SYSPRINT DD SYSOUT=*
//DDIN DD DISP=SHR,DSN=Your Input FB PDS
//DDOUT DD DSN=Your Output VB PDS,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=VB,LRECL=84),
// SPACE=(CYL,(X,Y,Z),RLSE)
//SYSIN DD *
$$FILEM DSC INPUT=DDIN OUTPUT=DDOUT MEMBER=*
//*
FB to VB Sequential File
//******************************************************************
//* COPY ALL MEMBERS FROM FB PDS AND CREATE VB SEQUENTIAL FILE *
//******************************************************************
//STEP0100 EXEC PGM=FILEMGR
//SYSPRINT DD SYSOUT=*
//DDIN DD DISP=SHR,DSN=Your Input FB PDS
//DDOUT DD DSN=Your Output VB Seq file,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=VB,LRECL=84),
// SPACE=(CYL,(X,Y),RLSE)
//SYSIN DD *
$$FILEM DSC INPUT=DDIN OUTPUT=DDOUT MEMBER=*
//*
If you don't have File manager then you can go the traditional
route of
punching(PGM=IEBPTPCH) the pds members to a sequential dataset and
then
using SORT to create the VB file.
//******************************************************************
//* PUNCH ALL MEMBERS TO A SEQUENTIAL FILE (CREATES AN FBA FILE) *
//******************************************************************
//STEP0100 EXEC PGM=IEBPTPCH
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=Your Input FB PDS
//SYSUT2 DD DSN=&&PDSMEM,DISP=(,PASS),SPACE=(CYL,(X,Y),RLSE)
//SYSIN DD *
PUNCH TYPORG=PO
//*
//******************************************************************
//* PUNCH ALL MEMBERS TO A SEQUENTIAL VB FILE *
//******************************************************************
//STEP0200 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&PDSMEM,DISP=SHR
//SORTOUT DD DSN=Your Output VB Seq file,
// DISP=(NEW,CATLG,DELETE),
// RECFM=VB,
// SPACE=(CYL,(X,Y),RLSE)
//SYSIN DD *
OPTION COPY
OMIT COND=(2,11,CH,EQ,C'MEMBER NAME')
INREC BUILD=(2,80)
OUTFIL FTOV
//*
Thanks,
Kolusu
DFSORT Development
IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on
02/12/2015 04:35:05 PM:
From: Paul Gilmartin <0000000433f07816-dmarc-requ...@listserv.ua.edu>
To: IBM-MAIN@LISTSERV.UA.EDU
Date: 02/12/2015 04:35 PM
Subject: Re: FB to VB PDS
Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU>
On 2015-02-12 16:17, Sri h Kolusu wrote:
Fred,
Do you need the Output to be also a PDS? or sequential file with
contents
of each member written one after another?
Are you offering him a choice?
I suppose there's a middle ground: All the input members
concatenated
into a single member of the output PDS.
IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on
02/12/2015 03:04:28 PM:
From: Fred Kaptein <fred.kapt...@hp.com>
To: IBM-MAIN@LISTSERV.UA.EDU
Date: 02/12/2015 03:05 PM
Subject: FB to VB PDS
Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU>
Does any one have any conversion utilities to copy a complete PDS
of many members from FB to VB format.
Won't ISPF Copy utility do this?
Do you want trailing blanks preserved? Stripped? Other (specify)?
I was much vexed decades ago when I used ISPF Copy with binary data,
PS VB to PS VB, IIRC, and all trailing x'40' vanished.
-- gil
---------------------------------------------------------------------
-
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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
