Variable record length ( In JCL)

Anand78 · New User Joined: 06 Mar 2006 Posts: 50 Location: PUNE

Hi All,

Can any one tell me about how to specify DCB parameters for variable record length?

Input file is of VB
Output file is to be created with FB recfm.

I will more greatful if anybody send more information about this topic.

plese do reply..

Regards
Anand

Prasanthhere · Active User Joined: 03 Aug 2005 Posts: 306

For variable record length the DCB parametere can be

RECFM=V
LRECL is the logical record length
BLKSIZE equals LRECL plus 4.

shekhar1s · New User Joined: 13 Apr 2006 Posts: 14 Location: USA

DCB For Variable length record....
DCB=(DSORG=PS,LRECL=80,RECFM=VB,BLKSIZE=800)
Block size should be in multiples of record length. And as per my knowledge.. it automatically takes the four bytes when we declare the record format as VB(variable length).

And About output file... u can create it in the JCL itself or using 3.2 option..

please let me know if i'm wrong....
Thanks
Shekhar

Rupesh.Kothari · Member of the Month Joined: 27 Apr 2005 Posts: 463

Hi Anand,

Husna · New User Joined: 02 Jun 2006 Posts: 49

Hi,

Will you please let me know about the four bytes when we declare the record format as VB(variable length). It will store the variable length at the begining of the first four bytes or end of the last four bytes.

guptae · Posted: Wed Jun 21, 2006 12:02 pm

It will store the length in first 4 bytes

sathish_seabiscuit · New User Joined: 14 Jun 2006 Posts: 4

We can use ICEGENER utility.

In the code,
RIS&ENV..P370.UNLOAD.RECIPTSI.BSAM - Variable length file
RIS&ENV..P370.RECIPTSI.BSAM -Fixed length file
RISL3701 is given at last.

//ICEGEN01 EXEC PGM=ICEGENER,COND=(04,LT)
//*
//SYSUT1 DD
DSN=RIS&ENV..P370.UNLOAD.RECIPTSI.BSAM,
// DISP=SHR
//SYSUT2 DD DSN=RIS&ENV..P370.RECIPTSI.BSAM,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=173),
// SPACE=(173,&SPMED.,RLSE),
// UNIT=&UNITWRK
//SYSIN DD DSN=&QUAL..PARMLIB(RISL3701),
// DISP=SHR
//SORTMSG DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=Z
//*

Parm RISL3701,

GENERATE MAXFLDS=1
RECORD FIELD=(173,1)

Frank Yaeger · Posted: Wed Jun 21, 2006 8:32 pm

Bharanidharan · Posted: Thu Jun 22, 2006 12:33 pm

Frank,
This one has always nagged me - what are the 2 bytes of binary zeros used for? I've always been told "It is for IBM purposes"! Could you explain?

Frank Yaeger · Posted: Thu Jun 22, 2006 8:46 pm

For a VB file the two bytes are not used for anything. But for a variable spanned (VBS, VS) file, the first four bytes are an SDW (segment descriptor word) rather than an RDW. In the SDW, the first two bytes are the length in binary, but the third byte contains the segment control code (first, middle, last). For more information on the SDW, see:

publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt2d440/3.1.3.2.2?SHELF=EZ2ZO10G&DT=20050602124524&CASE=

puneet478 · Posted: Fri Jun 23, 2006 4:43 am

Hi,

The DCB will look like as follows:

//M57Tst DD DSN=input.data.set,
// DISP=(NEW,CATLG,DELETE),
// UNIT=TSODA,DATACLAS=STANDARD,
// DCB=(RECFM=VB,LRECL=704,BLKSIZE=0),
// EXPDT=2007/350

You can change the LRECL and EXPDT fields.

Hope this will help.

- Puneet

cjcpr · New User Joined: 21 Mar 2006 Posts: 21 Location: USA

simple solutio n is using a OUTREC field with CONVERT parameter.

Frank Yaeger · Posted: Fri Jul 07, 2006 11:32 pm

See the following Smart DFSORT Trick for converting VB to FB:

www.ibm.com/servers/storage/support/software/sort/mvs/tricks/srtmst01.html#t11

See the following Smart DFSORT Trick for converting FB to VB:

www.ibm.com/servers/storage/support/software/sort/mvs/tricks/srtmst03.html#t09