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

INREC question


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

New User


Joined: 21 Jun 2011
Posts: 7
Location: India

PostPosted: Tue Jun 21, 2011 2:17 pm
Reply with quote

My code is as follows:

Code:

//SORTING DD *
1234567890 abcdeabcedabceda MAINFRAME
0987654321 abcdeacbdeabcdea COBOL
4587965140 abcdeabcdeabcdea JAVA
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD*
    SORT FIELDS=COPY
    INREC FIELDS=(01:12,18,
                  19:01,10)
/*


When I submit the job, I am getting the following error.

Code:

ICE201I G RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE126A 0 INCONSISTENT *INREC  IFTHEN 0 REFORMATTING FIELD FOUND


How to solve this error?
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


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

PostPosted: Tue Jun 21, 2011 5:30 pm
Reply with quote

well,
the first time I ran your jcl
i received this message:
Code:

ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R10 - 12:51 ON T
               SORT FIELDS=COPY
               INREC FIELDS=(01:12,18,
                             19:01,10)
ICE201I G RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE023A 0 NO LENGTH OPERAND
ICE056A 0 SORTIN   NOT DEFINED
ICE751I 0 C5-K51707 C6-K51707 C7-K54603 C8-K51707 E7-K51707
ICE052I 3 END OF DFSORT


after I removed the G from SORTING
my results were:
Code:

ABCDEABCEDABCEDA M1234567890
ABCDEACBDEABCDEA C0987654321
ABCDEABCDEABCDEA J4587965140
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Tue Jun 21, 2011 6:11 pm
Reply with quote

Apart from the spelling of of input DD name, as Dick has pointed out; if you use
Code:
//SYSIN DD*
instead of
Code:
//SYSIN DDb*
where "b" represents "a space" -- you're entitled to get a(n) JCL error.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


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

PostPosted: Tue Jun 21, 2011 6:18 pm
Reply with quote

good catch Anuj,

i have a macro that cleans up jcl (aligns on 12, 16, etc.) and did not notice
the error.

dbz
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Tue Jun 21, 2011 6:25 pm
Reply with quote

Thanks Dick.

I wonder if the OP didn't get:
Code:
ICE056A 0 SORTIN   NOT DEFINED
...an error-definition cannot get more clear than this!
Back to top
View user's profile Send private message
mahendrakariya

New User


Joined: 21 Jun 2011
Posts: 7
Location: India

PostPosted: Tue Jun 21, 2011 6:37 pm
Reply with quote

Thanks a lot Dick and Anuj...
Finally it works... icon_smile.gif
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Tue Jun 21, 2011 6:39 pm
Reply with quote

Glad to hear that!

have a good one,
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Tue Jun 21, 2011 7:09 pm
Reply with quote

Anuj Dhawan wrote:
Apart from the spelling of of input DD name, as Dick has pointed out; if you use
Code:
//SYSIN DD*
instead of
Code:
//SYSIN DDb*
where "b" represents "a space" -- you're entitled to get a(n) JCL error.


I wonder what the DD* did?

When there are cards in the JCL not preceded by a DD name with DD *, then the system will generate a //SYSIN DD * for free, so even if the above rejected without flushing the job (perhaps more likely a mistake with CODEing it?), there would still be a //SYSIN DD * preceding the sort cards.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


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

PostPosted: Tue Jun 21, 2011 7:19 pm
Reply with quote

you are correct, a '//SYSIN DD *' is generated
but after failing the job with a jcl error.
In my system it is:
Code:

6  IEFC605I UNIDENTIFIED OPERATION FIELD


offending statement and generated statement:
Code:

 6 //SYSIN    DD*
 7 //SYSIN     DD *               GENERATED STATEMENT
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Tue Jun 21, 2011 7:44 pm
Reply with quote

Bill Woodger wrote:
so even if the above rejected without flushing the job
Actually it'll flush the Job out with JCL error. I'm with Dick, on this...icon_wink.gif.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


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

PostPosted: Tue Jun 21, 2011 8:19 pm
Reply with quote

Anuj,

glad you are with me on this, since I proved it with my earlier post.

and if you guys think I am going to let you be the last post, your nuts.
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Tue Jun 21, 2011 9:03 pm
Reply with quote

My nuts, or I am nuts?
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


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

PostPosted: Tue Jun 21, 2011 9:14 pm
Reply with quote

meant am, not is. 36_2_35.gif
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Tue Jun 21, 2011 9:35 pm
Reply with quote

There is a serious point to this.*

If the JCL error existed when TS ran the job initially, then there would not have been any messages from SORT. So one error, SORTING (perhaps a good alternative for SORTWK?) made in the JCL, the other error when making the post.

Copy/paste, better than typing and sending people astray with typos.

* and that is to be the last post in this topic
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


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

PostPosted: Tue Jun 21, 2011 9:42 pm
Reply with quote

Bill, everyone lies
and no one replies with
Quote:
oh, I found the problem, stupid coding error on my part.


which we all can pretty well figure is the root cause in most of these cases.
(especially, since we have done it so many times ourselves.)

like talking to children,
they just never imagine that anyone has had their experience.
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 Question for file manager IBM Tools 7
No new posts question for Pedro TSO/ISPF 2
No new posts question on Outrec and sort #Digvijay DFSORT/ICETOOL 20
No new posts INREC PARSE used to sort a CSV file DFSORT/ICETOOL 2
No new posts panel creation question TSO/ISPF 12
Search our Forums:

Back to Top