Posted: Mon Aug 09, 2004 2:37 pm Post subject: Problem with VBS type file
Hi All,
My main aim is to add few characters to the VSAM file which is of VB format ( i think VBS). So, I copied this into a file and whenever I am trying to sort this file and add few characters while creating a new file, it is abending with a return code of 16.
This is happening only when I am accessing the logical record length more than the Avg. Record Size. i.e if I am giving my outfile record length more than the average one ( average and max. are not equal), though there are few records more than avg length, its abending.
One of the reasons might be that its trying to access more than the record length for few records.
So please help me out in finding a way to do this step.
Thank you for the response, and sorry for not looking into this since these many days.
I am afraid that I dont have a copy of sysout AND the jcl too, im trying to reproduce the jcl hrere, its abending the moment it encounters the sort statement.
The avg record length of input VSAM is 82, key location is 10.
Code:
//FILEIN DD DSN=VSAM.ABC.DEF,DISP=SHR
//FILEOUT DD DSN=SEQ.ABC.DEF.BKUP,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(100,25),RLSE),
// DCB=(RECFM=VB,LRECL=1272,BLKSIZE=)
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSIN DD *
here we copied directly from in to out.
The problem was not regarding the total size of the file, but rather whenever it started copying the 83rd field, it abended. We came to this conclusion as we were decreasing the output length and checking.
This is how it went. However, we have now solved it with the help of a small program. But please inform me, if there is any utililty for doing this type of things thorugh jcl only.
We also tried with DFSORT which has something like VLFILL, which helps in converting VB to fixed by adding low or high values. But i dont know whether we can do the reverse, bcos we finally need the VSAM file only to be increased by length.
Joined: 26 Nov 2002 Posts: 12378 Topics: 75 Location: San Jose
Posted: Fri Aug 20, 2004 9:09 am Post subject:
Chaitanya.
First of all your JCL has many errors.
1.You don't have SORTIN or a SORTOUT.
2.If you wanted to convert a variable block file to a fixed block file then you CONVERT parm which is missing in your sort cards.
Another great utility which can add stuff to a file (and juggle around the field arrangement) is ICEGENER. See below:
Code:
//STEP020 EXEC PGM=ICEGENER,COND=(4,LT)
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=SNQ267.BBM.AABB.GREEK.CARDS
//SYSUT2 DD DISP=SHR,DSN=SNQ267.BBM.AABB.GREEK.EXCEL
//*length, old file position, new file position)
//SYSIN DD *
GENERATE MAXFLDS=40,MAXLITS=40
RECORD FIELD=(19,01,,001),
FIELD=(01,';',,020),
FIELD=(9,' ',,29)
Heres what happens...
1: For a length of 19, data from pos. 1 in Input, is moved to pos.1 in Output
2: For a length of 1, at pos. 20 in Output, the semi-colon is placed.
3: For a length of 9, at pos. 29 in the Output, nine Spaces are inserted.
Also, you seem slightly uncertain about the characteristics of your VSAM file (ie: VB or maybe VBS). So... to save some thinking, when you are allocating an Output file which has the same DCB characteristics as the Input, instead on your Output DCB, code "DCB=*.SORTIN". It makes things so much easier.
Joined: 02 Dec 2002 Posts: 1618 Topics: 31 Location: San Jose
Posted: Mon Aug 23, 2004 11:38 am Post subject:
Mike,
FYI, your job actually uses IEBGENER, not ICEGENER. ICEGENER is DFSORT's replacement for IEBGENER. ICEGENER uses DFSORT copy unless it can't in which case it uses IEBGENER. In your case, since you're supplying IEBGENER control statements, DFSORT copy can't be used and ICEGENER uses IEBGENER.
However, IEBGENER cannot process VSAM files whereas DFSORT/ICEGENER can.
Note that you can use DFSORT control statements in DFSPARM with ICEGENER to do what you're doing with IEBGENER. _________________ Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
