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:[email protected]] On Behalf Of Sri h Kolusu Sent: Friday, February 13, 2015 10:21 AM To: [email protected] 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 <[email protected]> wrote on 02/12/2015 04:35:05 PM: > From: Paul Gilmartin <[email protected]> > To: [email protected] > Date: 02/12/2015 04:35 PM > Subject: Re: FB to VB PDS > Sent by: IBM Mainframe Discussion List <[email protected]> > > 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 <[email protected]> wrote on > > 02/12/2015 03:04:28 PM: > > > >> From: Fred Kaptein <[email protected]> > >> To: [email protected] > >> Date: 02/12/2015 03:05 PM > >> Subject: FB to VB PDS > >> Sent by: IBM Mainframe Discussion List <[email protected]> > >> > >> 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 [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
