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
 

 

Getting OUTREC error for the Varible Length File

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

New User


Joined: 20 Apr 2007
Posts: 14
Location: pune

PostPosted: Mon Oct 29, 2007 10:28 am    Post subject: Getting OUTREC error for the Varible Length File
Reply with quote

Hi all ,

i am getting the OUTREC error

I have the input file of LRECL=612 and i am soring the file on particular field from the postion 11-16 and writing the sorted filed in the output file
when i am using the below OUTREC syntax it is giving me the following error


ICE000I J - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 01:40 ON SAT OCT
SORT FIELDS=(15,6,PD,A)
SUM FIELDS=NONE
OUTREC FIELDS=(5:15,10,ZD,602X)
ICE201I J RECORD TYPE IS V - DATA STARTS IN POSITION 5
ICE126A J INCONSISTENT *OUTREC IFTHEN 0 REFORMATTING FIELD FOUND
ICE052I J END OF DFSORT



Code:

//STEP00   EXEC PGM=SORT                                         
//SYSPRINT DD  SYSOUT=*                                         
//SYSLIST  DD  SYSOUT=*                                         
//SYSOUT   DD  SYSOUT=*                                         
//SORTIN   DD  DSN=ZPFCB.PBI.C0710.CR125T01.XVP.COPY,
//            DISP=SHR ,DCB=(LRECL=612,RECFM=VB,BLKSIZE=0)                                         
//SORTOUT  DD  DSN=ZPFCB.PBI.C0710.CR125T01.XVP.SRT1,   
//*            DISP=OLD,                                         
//            DISP=(NEW,CATLG,DELETE),                           
//            DCB=(LRECL=616,RECFM=vB,BLKSIZE=0),               
//            SPACE=(CYL,(100,100),RLSE)                       
//SYSIN    DD  *                                                 
  SORT FIELDS=(15,6,PD,A)                                       
  SUM FIELDS=NONE                                               
  OUTREC FIELDS=(5:15,10,ZD,602X)
/*


Please give the solution

Please give me the OUTREC syntax for both the fixed length and variable length file.

Regards,
BRKS.
Back to top
View user's profile Send private message

murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Mon Oct 29, 2007 10:32 am    Post subject:
Reply with quote

BRKS,

Quote:
OUTREC FIELDS=(5:15,10,ZD,602X)

Your OP file is 616 in lenght. But your outrec statement is 612 in lenght. Include RDW bytes in your outrec stattement.
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Mon Oct 29, 2007 10:42 am    Post subject:
Reply with quote

BRKS,

Please ignore my prev post. Provided wrogn suggestion (may be out of my mind because of work load).

Also you had provided wrong outrec statement. Verify that alos.


Moderators,

Could you remove my prev post. Please.
Back to top
View user's profile Send private message
BRKS

New User


Joined: 20 Apr 2007
Posts: 14
Location: pune

PostPosted: Mon Oct 29, 2007 10:44 am    Post subject:
Reply with quote

hi murmohk1

still i am getting the same error after adding the RDW also

ICE143I 0 BLOCKSET SORT TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 16:10 ON MON OCT
SORT FIELDS=(15,6,PD,A)
SUM FIELDS=NONE
OUTREC FIELDS=(5:15,10,ZD,606X)
ICE201I E RECORD TYPE IS V - DATA STARTS IN POSITION 5
ICE126A 2 INCONSISTENT *OUTREC IFTHEN 0 REFORMATTING FIELD FOUND
ICE751I 0 C5-K21008 C6-K90007 C7-K90000 C8-K90007 E7-K11698
ICE052I 3 END OF DFSORT


Can you please send the Syntax or both the fixed length and variable length file.

Regards,
BRKS
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Mon Oct 29, 2007 10:48 am    Post subject:
Reply with quote

BRKS,

Change your OUTREC to -

Code:
OUTREC FIELDS=(1,4,5:15,10)


Try and let us know.
Back to top
View user's profile Send private message
BRKS

New User


Joined: 20 Apr 2007
Posts: 14
Location: pune

PostPosted: Mon Oct 29, 2007 11:14 am    Post subject:
Reply with quote

hi murmohk1
thanks for the reply

it is working
but with your OUTREC statment it is giving the DATA in the PD format

but I want the field to be converted to ZD, when i am using the ZD it is giving the following error

ICE143I 0 BLOCKSET SORT TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 16:38 ON MON OCT
SORT FIELDS=(15,6,PD,A)
SUM FIELDS=NONE
OUTREC FIELDS=(1,4,5:15,10,ZD)
ICE201I E RECORD TYPE IS V - DATA STARTS IN POSITION 5

Regards
BRKS
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Mon Oct 29, 2007 11:25 am    Post subject:
Reply with quote

BRKS,

Code:
I want the field to be converted to ZD

Try this -

Code:
OUTREC FIELDS=(1,4,5:15,10,PD,TO=ZD,LENGTH=n)


Change 'n' value according to your requirement.
Back to top
View user's profile Send private message
BRKS

New User


Joined: 20 Apr 2007
Posts: 14
Location: pune

PostPosted: Mon Oct 29, 2007 11:44 am    Post subject:
Reply with quote

thanks murmohk1

it is working

Regards,
BRKS.
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Mon Oct 29, 2007 1:01 pm    Post subject:
Reply with quote

BRKS,

I had slipped sortcard for FB from your OP-
Code:
OUTFIL OUTREC=(...... your req .....),VTOF


Quote:
thanks murmohk1

You are welcome.
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
This topic is locked: you cannot edit posts or make replies. Fetching data from BAI File arunsoods JCL & VSAM 1 Wed Jul 19, 2017 4:28 pm
No new posts Write out NODUPS but just from one file Jay Villaverde DFSORT/ICETOOL 8 Fri Jul 14, 2017 12:44 am
No new posts How to add header with Date(YYMMDD) i... Rajan Moorthy DFSORT/ICETOOL 2 Thu Jul 06, 2017 11:44 pm
No new posts How to generate a new unique Input fi... for1ranjith CLIST & REXX 11 Sat Jul 01, 2017 12:09 pm
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm


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