Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
How to Convert RECFM VB TO FB OR Viceversa

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
Author Message
Venkatesan Arumugam

New User


Joined: 28 Jun 2005
Posts: 3

PostPosted: Tue Jun 28, 2005 11:42 am    Post subject: How to Convert RECFM VB TO FB OR Viceversa
Reply with quote

Hi Guys,
i am new to this portal, nice to join with u people, anyone can tell me about the conversion of the Record format From VB(Variable Block) To FB(Fixed Block).

Thanks & Regards,
Venkatesan Arumugam.
Back to top
View user's profile Send private message
References
machswap

New User


Joined: 19 Apr 2005
Posts: 14

PostPosted: Tue Jun 28, 2005 2:14 pm    Post subject: Re: How to Convert RECFM VB TO FB OR Viceversa
Reply with quote

Hi,

This jcl will convert a file of format variable to fixed.

//STEP0010 EXEC PGM=SORT
//SORTIN DD DSN=input file,DISP=SHR
//SORTOUT1 DD DSN=FV99T.TEST2,
// DISP=(NEW,CATLG,DELETE),LRECL=50,
// RECFM=FB
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FNAMES=SORTOUT1,VTOF,
OUTREC=(1:1,50)
END
/*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//

Please try this....
Back to top
View user's profile Send private message
jz1b0c

Active User


Joined: 25 Jan 2004
Posts: 180
Location: Toronto, Canada

PostPosted: Tue Jun 28, 2005 6:12 pm    Post subject: Re: How to Convert RECFM VB TO FB OR Viceversa
Reply with quote

keep the JCL as it is, and use the below sysin (make necessary changes)

SYSIN :
INREC FIELDS=(01:01,06,
07:4Z,
88:2620,1)
SORT FIELDS=COPY
OUTREC FIELDS=(01:07,82),CONVERT
END
Back to top
View user's profile Send private message
MGIndaco

Moderator


Joined: 10 Mar 2005
Posts: 478
Location: Milan, Italy

PostPosted: Tue Jun 28, 2005 10:15 pm    Post subject:
Reply with quote

You can also use other IBM utility as IEBGENER to do the same.
Code:
//STEP010I EXEC PGM=IEBGENER                           
//SYSPRINT DD SYSOUT=*                                 
//SYSIN    DD *                                         
 GENERATE MAXFLDS=1                                     
 RECORD FIELD=(350,1,,1)                               
//SYSUT1   DD DISP=SHR,DSN=myVBinput
//SYSUT2   DD DISP=(,CATLG),UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE),
//            DCB=(RECFM=FB,LRECL=350,BLKSIZE=3500),
//            DSN=myFBoutput

For more detail about this utility see this link:
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt1u104/CCONTENTS
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 4677
Location: San Jose, CA

PostPosted: Tue Jun 28, 2005 10:17 pm    Post subject:
Reply with quote

For more information on using DFSORT's VTOF (or CONVERT) parameter, see:

http://www.ibm.com/servers/storage/support/software/sort/mvs/tricks/srtmst01.html#t11
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1