The IEBUPDTE step in your JCL doesn't do what you think it does. Although the step ends with return code 0, the resulting PDS is RECFM=F LRECL=80 BLKSIZE=80.
Bill On Fri, 13 Feb 2015 09:59:03 -0800, Sri h Kolusu wrote: > >It certainly can be done. We did not hear anything from OP and hence did >not show the IEBPTCH - SORT - IEBUPDTE route. For anyone who is >interested here is the JCL > >//****************************************************************** >//* 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 >//* >//****************************************************************** >//* CREATE CONTROL CARDS AS INPUT FOR IEBUPDTE PROGRAM * >//****************************************************************** >//STEP0200 EXEC PGM=SORT >//SYSOUT DD SYSOUT=* >//SORTIN DD DSN=&&PDSMEM,DISP=SHR >//SORTOUT DD DSN=&&O,DISP=(,PASS),SPACE=(CYL,(Y,Y),RLSE),RECFM=FB >//SYSIN DD * > OPTION COPY > INREC BUILD=(2,80) > OUTREC IFTHEN=(WHEN=(1,11,CH,EQ,C'MEMBER NAME'), > BUILD=(C'./ ADD NAME=',14,8,80:X)) >//* >//****************************************************************** >//* CREATE A VB PDS FROM A SEQUENTIAL FB FILE * >//* 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 ) * >//****************************************************************** >//****************************************************************** >//STEP0300 EXEC PGM=IEBUPDTE,PARM=NEW,COND=(0,NE,STEP0200) >//SYSUT2 DD DSN=Your Output VB PDS, >// DISP=(NEW,CATLG,DELETE), >// UNIT=SYSDA, >// DCB=(RECFM=VB,LRECL=84), >// SPACE=(CYL,(X,Y,Z),RLSE) >//SYSPRINT DD SYSOUT=* >//SYSIN DD DSN=&&O,DISP=(OLD,PASS) > > >Thanks, >Kolusu > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
