| Author |
Message |
Aaru
Senior Member
Joined: 03 Jul 2007
Posts: 679
Location: London, UK
|
|
|
|
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 |
|
 |
References
|
 Posted: Mon May 12, 2008 9:16 pm Post subject: Re: Issue in the usage of OUTREC |
|
|
|
|
krisprems
Senior Member
Joined: 27 Nov 2006
Posts: 623
Location: India
|
|
|
|
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 |
|
|
Aaru
Senior Member
Joined: 03 Jul 2007
Posts: 679
Location: London, UK
|
|
|
|
Prem,
No luck. I tried and the result is the same. |
|
| Back to top |
|
|
Skolusu
DFSORT Developer
Joined: 07 Dec 2007
Posts: 107
Location: San Jose
|
|
|
|
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 |
|
|
Aaru
Senior Member
Joined: 03 Jul 2007
Posts: 679
Location: London, UK
|
|
|
|
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 |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 997
Location: At my desk
|
|
|
|
| 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 |
|
|
Frank Yaeger
DFSORT Moderator
Joined: 15 Feb 2005
Posts: 3798
Location: San Jose, CA
|
|
|
|
| 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 |
|
|
krisprems
Senior Member
Joined: 27 Nov 2006
Posts: 623
Location: India
|
|
|
|
| post ur complete sysout aaru |
|
| Back to top |
|
|
Aaru
Senior Member
Joined: 03 Jul 2007
Posts: 679
Location: London, UK
|
|
|
|
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 |
|
|
|
|
|
