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

Set a condition code in Eztrieve


IBM Mainframe Forums -> CA Products
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
George Tillmon

New User


Joined: 22 Mar 2010
Posts: 27
Location: Montgomery, AL

PostPosted: Thu May 31, 2012 6:42 pm
Reply with quote

Hello.

I have two files that I use Eztrieve to check the month and year in each files' header record. If the dates are the same, I write to one file if the dates are not the same I write to two files. Is there a way to set a condition code that I can use in the next step to uncatalog or catalog a file?

Thanks,
George
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: Thu May 31, 2012 6:47 pm
Reply with quote

Have you looked in the manual?
Back to top
View user's profile Send private message
George Tillmon

New User


Joined: 22 Mar 2010
Posts: 27
Location: Montgomery, AL

PostPosted: Thu May 31, 2012 6:55 pm
Reply with quote

Bill Woodger wrote:
Have you looked in the manual?


Yes I have.

Thanks.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix

PostPosted: Thu May 31, 2012 7:43 pm
Reply with quote

Hello,

Did you find RETURN-CODE?

Is there still a question?
Back to top
View user's profile Send private message
George Tillmon

New User


Joined: 22 Mar 2010
Posts: 27
Location: Montgomery, AL

PostPosted: Thu May 31, 2012 8:02 pm
Reply with quote

dick scherrer wrote:
Hello,

Did you find RETURN-CODE?

Is there still a question?


Thank you.
I have found RETURN-CODE.

Thank you all!!!!!
Back to top
View user's profile Send private message
George Tillmon

New User


Joined: 22 Mar 2010
Posts: 27
Location: Montgomery, AL

PostPosted: Thu May 31, 2012 9:30 pm
Reply with quote

I am trying to use RETURN-CODE, however, it is giving me strange results.
If the file do not match I mover +0900 to RETURN-CODE.
When I look at the COND CODE in the executed jcl, it shows 2544.
When I display RETURN-CODE in the Easytrieve program, it displays as 1324415472.

Thanks,
George
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA

PostPosted: Thu May 31, 2012 9:55 pm
Reply with quote

Since a return code is a value in the range 0 to 4095, if you take 1324415472 modulo 4096, you get 2544 -- hence the return code 2544. Where the 1324415472 came from, I'm not sure -- the hexadecimal value is 4EF0F9F0
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: Thu May 31, 2012 10:05 pm
Reply with quote

When you say move, do you mean MOVE?

I've never done that. Try with an assignment instead, please.
Back to top
View user's profile Send private message
George Tillmon

New User


Joined: 22 Mar 2010
Posts: 27
Location: Montgomery, AL

PostPosted: Thu May 31, 2012 10:07 pm
Reply with quote

Bill Woodger wrote:
When you say move, do you mean MOVE?

I've never done that. Try with an assignment instead, please.


Yes. As in MOVE +900 to RETURN-CODE.
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1787
Location: Bloomington, IL

PostPosted: Thu May 31, 2012 10:10 pm
Reply with quote

Robert Sample wrote:
Since a return code is a value in the range 0 to 4095, if you take 1324415472 modulo 4096, you get 2544 -- hence the return code 2544. Where the 1324415472 came from, I'm not sure -- the hexadecimal value is 4EF0F9F0

Is not the EBCDIC glyph for 4E is a plus sign? It sounds as if Mr. Tillmon is moving a character string to a binary word.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA

PostPosted: Thu May 31, 2012 10:21 pm
Reply with quote

Akatsukami, I didn't think of that -- and with a typo, +090 (character) would be the mysterious value ....
Back to top
View user's profile Send private message
George Tillmon

New User


Joined: 22 Mar 2010
Posts: 27
Location: Montgomery, AL

PostPosted: Thu May 31, 2012 10:26 pm
Reply with quote

Akatsukami wrote:
Robert Sample wrote:
Since a return code is a value in the range 0 to 4095, if you take 1324415472 modulo 4096, you get 2544 -- hence the return code 2544. Where the 1324415472 came from, I'm not sure -- the hexadecimal value is 4EF0F9F0

Is not the EBCDIC glyph for 4E is a plus sign? It sounds as if Mr. Tillmon is moving a character string to a binary word.


I moved 0900 to RETURN-CODE and the COND CODE was 0240.
Back to top
View user's profile Send private message
George Tillmon

New User


Joined: 22 Mar 2010
Posts: 27
Location: Montgomery, AL

PostPosted: Thu May 31, 2012 10:35 pm
Reply with quote

I got it to work.
I used REURN-CODE = 0900.

Thank you all.
THANK GOD!!!!!!
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: Thu May 31, 2012 11:21 pm
Reply with quote

An assignment (=) is like a Cobol move. A MOVE is like an Assembler MVC/MVCL.

Confusing, but it's in the manual.

Use assign, except for files and when you need to do an MVC/MVCL type thing.
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: Fri Jun 01, 2012 2:55 am
Reply with quote

Also, when DISPLAYing for any investigative purpose, the DISPLAY HEX should be preferred. You'd have seen +090 (with the last zero chopped, as it got MOVEd to a four-byte field) and got a bit of a hint.
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 -> CA Products

 


Similar Topics
Topic Forum Replies
No new posts Add condition to a FINDREP SORT card DFSORT/ICETOOL 4
No new posts To Omit records based n SORT condition DFSORT/ICETOOL 6
No new posts Using Multiple IFTHEN and WHEN condit... SYNCSORT 12
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Compile rexx code with jcl CLIST & REXX 6
Search our Forums:

Back to Top