Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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 Changing of LRECL of a file abdulrafi DFSORT/ICETOOL 2 Fri Mar 24, 2017 3:25 pm
No new posts splitting a file abdulrafi DFSORT/ICETOOL 4 Fri Mar 24, 2017 11:51 am
No new posts Record Not found in AlX but record re... mukun264 COBOL Programming 7 Fri Mar 24, 2017 9:28 am
No new posts Count the length of the record & ... sreekusr DFSORT/ICETOOL 4 Thu Mar 23, 2017 7:52 pm
No new posts Receive a file using PCOMM macro Harald.v.K IBM Tools 0 Thu Mar 23, 2017 6:50 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us