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
