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
 

 

Set a condition code in Eztrieve

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
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    Post subject: Set a condition code in Eztrieve
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

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7224

PostPosted: Thu May 31, 2012 6:47 pm    Post subject: Reply to: Set a condition code in Eztrieve
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    Post subject: Re: Reply to: Set a condition code in Eztrieve
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

Site Director


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

PostPosted: Thu May 31, 2012 7:43 pm    Post subject:
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    Post subject:
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    Post subject: About Return-code
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: 7905
Location: Bellevue, IA

PostPosted: Thu May 31, 2012 9:55 pm    Post subject:
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

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7224

PostPosted: Thu May 31, 2012 10:05 pm    Post subject: Reply to: Set a condition code in Eztrieve
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    Post subject: Re: Reply to: Set a condition code in Eztrieve
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: 1738
Location: Bloomington, IL

PostPosted: Thu May 31, 2012 10:10 pm    Post subject:
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: 7905
Location: Bellevue, IA

PostPosted: Thu May 31, 2012 10:21 pm    Post subject:
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    Post subject:
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    Post subject:
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

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7224

PostPosted: Thu May 31, 2012 11:21 pm    Post subject: Reply to: Set a condition code in Eztrieve
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

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7224

PostPosted: Fri Jun 01, 2012 2:55 am    Post subject: Reply to: Set a condition code in Eztrieve
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    IBMMAINFRAMES.com Support Forums -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts PL/I code tuning/Performance improvement Virendra Shambharkar PL/I & Assembler 1 Mon Dec 05, 2016 11:57 am
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am
No new posts IDEAL - Code Retrieval yugendran CA Products 0 Fri Nov 25, 2016 3:27 pm
This topic is locked: you cannot edit posts or make replies. How to pass the previous month date i... Suganya87 DFSORT/ICETOOL 5 Mon Oct 31, 2016 4:13 pm
This topic is locked: you cannot edit posts or make replies. Need to code a Rexx PGM sundaram.naveen CLIST & REXX 18 Thu Oct 06, 2016 6:45 pm


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