Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Increase the length of the Variable record file.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
kunal_2707

New User


Joined: 09 Nov 2006
Posts: 1

PostPosted: Thu Nov 09, 2006 12:31 pm    Post subject: Increase the length of the Variable record file.
Reply with quote

HI,

I have the requirement to add one field in the variable record structure and that will increase the length of the overall file. Following is the senario.

I have the file of Lrecl 8130 Blksize 8134 and Recfm=VB and now i want to insert the field of 16 bytes starting from the position 131 which will be having the value '123456789SHREYAG'. So now the file should be of Lrecl 8146 with blksize 8150. I have tried the following step

//DFLTTS EXEC PGM=SORT
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SORTIN DD DSN=AX.XXXX.FDSFILE.TST,DISP=SHR
//SORTOUT DD DSN=AX.XXXX.FDSFILE.DFLT.OUT9,
// DISP=(,CATLG),
// SPACE=(CYL,(50,10),RLSE),UNIT=SYSDA,
// DCB=(RECFM=VB,LRECL=8146,BLKSIZE=8150)
//SYSIN DD *
OPTION COPY
OUTREC FIELDS=(5,126,
131:C'123456789SHREYAG',
147:131,8000)
/*
//SYSOUT DD SYSOUT=*
//*

And i got the following error

- CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 01:57
OPTION COPY
OUTREC FIELDS=(5,126,
131:C'123456789SHREYAG',
147:131,8000)
RECORD TYPE IS V - DATA STARTS IN POSITION 5
INCONSISTENT *OUTREC IFTHEN 0 REFORMATTING FIELD FOUND
C5-K05352 C6-Q95214 C7-K90000 C8-K05352 E9-Q95214 E7-K90000
END OF DFSORT

Please help me in this regard..Thanks in advance
Back to top
View user's profile Send private message

Frank Yaeger

DFSORT Moderator


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

PostPosted: Mon Nov 13, 2006 11:43 pm    Post subject:
Reply with quote

You got the error message because you didn't include the RDW (1,4) in the OUTREC statement. For VB records, the RDW must be the first field or must be included in the first field. You should also use 131 without a length as the last field rather than 131,8000. For VB records, 131 without a length means from position 131 to the end of the record. Here's the correct version of the DFSORT job:

Code:

//DFLTTS EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=AX.XXXX.FDSFILE.TST,DISP=SHR
//SORTOUT DD DSN=AX.XXXX.FDSFILE.DFLT.OUT9,
// DISP=(,CATLG),
// SPACE=(CYL,(50,10),RLSE),UNIT=SYSDA,
// DCB=(RECFM=VB,LRECL=8146,BLKSIZE=8150)
//SYSIN DD *
  OPTION COPY
  OUTREC FIELDS=(1,130,
    131:C'123456789SHREYAG',
    147:131)
/*
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IDCAMS RENAMING VSAM FILE ALONG WITH ... upendrasri JCL & VSAM 11 Tue Apr 17, 2018 10:42 pm
No new posts VSAM file NOT Found error while proce... SumaReva CICS 5 Wed Apr 11, 2018 9:54 pm
No new posts VSAM - Accessing beyond record size Benchwarmer JCL & VSAM 6 Wed Apr 11, 2018 9:20 pm
No new posts converting a mainframe file with ASA ... Lynne Schuler All Other Mainframe Topics 5 Wed Apr 04, 2018 9:44 am
No new posts Limit in Length for a CICS START seahawk789 CICS 6 Mon Apr 02, 2018 8:34 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us