IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Issue in the usage of OUTREC


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Aaru

Senior Member


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

PostPosted: Mon May 12, 2008 9:16 pm
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
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: 1287
Location: Chennai, India

PostPosted: Mon May 12, 2008 9:36 pm
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
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: 1287
Location: Chennai, India

PostPosted: Mon May 12, 2008 10:20 pm
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: 2146
Location: At my coffee table

PostPosted: Mon May 12, 2008 10:23 pm
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 Developer


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

PostPosted: Mon May 12, 2008 10:25 pm
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
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: 1287
Location: Chennai, India

PostPosted: Mon May 12, 2008 10:48 pm
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
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: 2481
Location: @my desk

PostPosted: Thu Jun 11, 2009 8:00 pm
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
No new posts Issue after ISPF copy to Linklist Lib... TSO/ISPF 1
No new posts STEM usage in REXX CLIST & REXX 14
No new posts Facing ABM3 issue! CICS 3
No new posts Panvalet - 9 Character name - Issue c... CA Products 6
Search our Forums:

Back to Top