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
 

 

Issue in the usage of OUTREC

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

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Mon May 12, 2008 9:16 pm    Post subject: Issue in the usage of OUTREC
Reply with quote

Frank,

Could you please help me in resolving this issue?

My requirement is to get the data available from position 1 to 6 in the input file and overlay the same in an output file in position 60.

Code:
//S1       EXEC PGM=ICEMAN                                           
//SYSOUT   DD SYSOUT=*                                               
//SORTIN   DD DSN= i/p file , FB/10               
//SORTOUT  DD DSN=&&S1,DISP=(,PASS),                                 
//             SPACE=(TRK,(1,1)),UNIT=SYSDA                           
//SYSIN    DD *                                                       
  OPTION COPY,STOPAFT=1                                                                                 
  OUTREC FIELDS=(C'MAILST,''',1,6,C'''',10:X)                         
/*                                                                   
//*                                                                   
//S2       EXEC PGM=ICEMAN                                           
//SYSOUT   DD SYSOUT=*                                               
//SYMNAMES DD DSN=&&S1,DISP=(OLD,PASS)                               
//SORTIN   DD DSN= i/p2 VB/3010
//SORTOUT  DD DSN= o/p  VB/3010
//SYSIN    DD *                                                       
  OPTION COPY                                                         
* USE MAILST to overlay                                     
  INREC OVERLAY=(64:MAILST)                                           
/*                                                                   



I ran this JCL and the error is

Code:
            OUTREC FIELDS=(C'MAILST,''',1,6,C'''',10:X)     
ICE201I E RECORD TYPE IS F - DATA STARTS IN POSITION 1       


I checked few sample JCL's and was not able to crack this.
Back to top
View user's profile Send private message

krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Mon May 12, 2008 9:31 pm    Post subject:
Reply with quote

Replace the OUTREC statement in Step S1 with
Code:
OUTREC FIELDS=(C'MAILST,''',1,6,C'''',80:X) 

and give a try...

the prob in your case is u have overlapping fields in OUTREC
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Mon May 12, 2008 9:36 pm    Post subject: Reply to: Issue in the usage of OUTREC
Reply with quote

Prem,

No luck. I tried and the result is the same.
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Mon May 12, 2008 9:58 pm    Post subject:
Reply with quote

aaru,

The symbols dataset should be of FB recfm and 80 bytes in length. you are only creating 10 byte file with overlapping fields. Change the following statement in step S1

Code:

OUTREC FIELDS=(C'MAILST,''',1,6,C'''',10:X)


to

Code:

OUTREC FIELDS=(C'MAILST,''',1,6,C'''',80:X)


and re-run your job

Hope this helps...

Cheers
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Mon May 12, 2008 10:20 pm    Post subject: Reply to: Issue in the usage of OUTREC
Reply with quote

Kolusu,

Quote:
OUTREC FIELDS=(C'MAILST,''',1,6,C'''',80:X)


I tried the same and still am getting the same error.

Quote:
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 17:48 O
0 OPTION COPY,STOPAFT=1
OUTREC FIELDS=(C'MAILST,''',1,6,C'''',80:X)
ICE201I E RECORD TYPE IS F - DATA STARTS IN POSITION 1


Any pointers?
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Mon May 12, 2008 10:23 pm    Post subject: Re: Reply to: Issue in the usage of OUTREC
Reply with quote

Aaru wrote:
No luck. I tried and the result is the same.
If you really did use krisprems OUTREC, and it did fail, then you had better post your sysins and sysouts........
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 May 12, 2008 10:25 pm    Post subject:
Reply with quote

Quote:
I ran this JCL and the error is

Code:
OUTREC FIELDS=(C'MAILST,''',1,6,C'''',10:X)
ICE201I E RECORD TYPE IS F - DATA STARTS IN POSITION 1


Why do you think this is an error message? It isn't! ICExxxI messages are informational messages. ICExxxA messages are error messages. ICE201I is an informational message that tells you the input record is fixed-length. Why would you think that's an error message?

Your problem, as Krisprems and Kolusu have pointed out is that you're creating a 10 byte Symbol record when an 80 byte record is required. That would give you an error in the second step when you try to use the invalid 10-byte SYMNAMES record from the first step. Using an 80-byte SYMNAMES record will work.

Quote:
No luck. I tried and the result is the same.


You mean the ICE201I message is the same - well, of course it is. Your input file for the first step is still a fixed-length record. What should have changed is that the second step didn't fail.

If this is still not working for you, then please show all of your JCL and control statements, and all of the messages you received.
Back to top
View user's profile Send private message
krisprems

Active Member


Joined: 27 Nov 2006
Posts: 649
Location: India

PostPosted: Mon May 12, 2008 10:33 pm    Post subject:
Reply with quote

post ur complete sysout aaru
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Mon May 12, 2008 10:48 pm    Post subject: Reply to: Issue in the usage of OUTREC
Reply with quote

Thanks a ton Prem, Kolusu and Frank.

I re-ran the job and it worked fine. This time i just changed the temporary dataset and it worked.
Back to top
View user's profile Send private message
r2k1984

New User


Joined: 21 Jun 2005
Posts: 69
Location: chennai

PostPosted: Thu Jun 11, 2009 7:45 pm    Post subject:
Reply with quote

buddy instead of doing this way you can use inrec to rearrange the data and write the record to the output file.

INREC FIELDS=(C'MAILST,''',1,6,C'''',80:X)

AND IT WILL RUN
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2180
Location: @my desk

PostPosted: Thu Jun 11, 2009 8:00 pm    Post subject:
Reply with quote

r2k1984,

Did you notice that the "buddy" you replied to has found out the solution more than a year ago.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Thu Jun 11, 2009 8:19 pm    Post subject:
Reply with quote

Arun,
Maybe r2k1984 is only interested in increasing his post count.
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 Execessive parameter issue Sumeendar JCL & VSAM 5 Mon Dec 19, 2016 4:35 pm
No new posts DFHRESPONSE returns issue divated CICS 3 Wed Nov 02, 2016 6:32 pm
No new posts Can sending 5 MB data between cobol p... Kevin Vaz CICS 12 Tue Oct 18, 2016 4:50 pm
No new posts SORT- outrec ram_vizag DFSORT/ICETOOL 10 Tue Sep 27, 2016 12:50 am
No new posts OUTREC FILELDS FAILS WITH ICE126A 2 ... balaji81_k DFSORT/ICETOOL 8 Sat Jul 02, 2016 1:22 am


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