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 SORTJOIN - Copy Matched and Unmatched... Steve Ironmonger DFSORT/ICETOOL 0 Tue Jan 17, 2017 4:26 pm
No new posts Copy RECFM =VB TO FB file with RECL =... sahil41352 DFSORT/ICETOOL 3 Wed Dec 28, 2016 11:29 pm
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm


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