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
 

 

INREC question

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
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    Post subject: INREC question
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    Post subject:
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

Senior Member


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

PostPosted: Tue Jun 21, 2011 6:11 pm    Post subject:
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    Post subject:
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

Senior Member


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

PostPosted: Tue Jun 21, 2011 6:25 pm    Post subject:
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    Post subject:
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

Senior Member


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

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

Glad to hear that!

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

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7236

PostPosted: Tue Jun 21, 2011 7:09 pm    Post subject:
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    Post subject:
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

Senior Member


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

PostPosted: Tue Jun 21, 2011 7:44 pm    Post subject:
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    Post subject:
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

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7236

PostPosted: Tue Jun 21, 2011 9:03 pm    Post subject:
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    Post subject:
Reply with quote

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

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7236

PostPosted: Tue Jun 21, 2011 9:35 pm    Post subject: Reply to: INREC question
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    Post subject:
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    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 Fault Analyzer - listings question. egrove IBM Tools 4 Thu Aug 11, 2016 5:31 pm
No new posts dataset copy question - REPRO or some... atulxp TSO/ISPF 2 Wed Aug 03, 2016 10:56 pm
No new posts What does this INREC do? Lino Pontes DFSORT/ICETOOL 5 Fri Apr 08, 2016 12:17 am
No new posts SQL Order By related question Joseph K Thomas DB2 8 Fri Mar 18, 2016 12:53 pm
No new posts DFSort Question krrp DFSORT/ICETOOL 9 Mon Mar 07, 2016 7:11 pm


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