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
 

 

Putting Condition in REXX Panel

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
Priyanka Pyne

New User


Joined: 09 Feb 2008
Posts: 95
Location: India

PostPosted: Fri Mar 01, 2013 1:14 pm    Post subject: Putting Condition in REXX Panel
Reply with quote

Hi,

I have created one REXX panel. There are 4 input fields which will be provided by the user.

Now, I want to put some check that Field1 and Filed2 should not be equal. And if they are equal then it should not go to the next panel and thow some kind of error message.

Can anyone put some light on how it can be acheived?
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Fri Mar 01, 2013 1:17 pm    Post subject: Reply to: Putting Condition in REXX Panel
Reply with quote

most probably You meant an ISPF panel icon_cool.gif

start reading from here
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/Shelves/ISPZPM70
not the latest ones but more than enough for what You need

or, search the forum IIRC I posted an example dealing for what You ask for
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Mar 01, 2013 1:28 pm    Post subject:
Reply with quote

Or perhaps the use of Panel REXX icon_rolleyes.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: Fri Mar 01, 2013 1:33 pm    Post subject:
Reply with quote

Along with what Enrico has susggested - if you post what you've tried, possibly, there can be more close answers to what you've asked for.
Back to top
View user's profile Send private message
Priyanka Pyne

New User


Joined: 09 Feb 2008
Posts: 95
Location: India

PostPosted: Fri Mar 01, 2013 1:45 pm    Post subject: Reply to: Putting Condition in REXX Panel
Reply with quote

I did the following

Code:
IF (&Field1=&Field2) .CURSOR = Field1


I want

Code:
IF (&Field1=&Field2)


It should display

Code:
Field1 and Filed2 should not be equal
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Mar 01, 2013 3:28 pm    Post subject:
Reply with quote

You are getting there,
Code:

  IF (&FIELD1 = &FIELD2)
    VER (&FIELD2,some condition never met,MSG=message-id)


And if in the ISPMLIB member you code the short message as NULL, the cursor will automatically position itself on the field being verified and display the long message.
Back to top
View user's profile Send private message
Priyanka Pyne

New User


Joined: 09 Feb 2008
Posts: 95
Location: India

PostPosted: Fri Mar 01, 2013 6:02 pm    Post subject: Reply to: Putting Condition in REXX Panel
Reply with quote

I put as

Code:
IF (&FIELD1 = &FIELD2)
    VER (&FIELD2,&FIELD1=12345,MSG=hi)


but it is giving error

Code:
Invalid VERIFY type given (second parameter must be a literal).
Back to top
View user's profile Send private message
Priyanka Pyne

New User


Joined: 09 Feb 2008
Posts: 95
Location: India

PostPosted: Fri Mar 01, 2013 6:10 pm    Post subject:
Reply with quote

I put

Code:
IF (&FIELD1 = &FIELD2)
    VER (&FIELD2,a=b,MSG=hi)


as well. but didn't worki out
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


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

PostPosted: Fri Mar 01, 2013 6:18 pm    Post subject:
Reply with quote

Priya-chan, I suggest that you read the fine manual, and learn how to code a VER statement.
Back to top
View user's profile Send private message
Priyanka Pyne

New User


Joined: 09 Feb 2008
Posts: 95
Location: India

PostPosted: Fri Mar 01, 2013 6:47 pm    Post subject: Reply to: Putting Condition in REXX Panel
Reply with quote

It is giving the below error.

Code:
message not found in 'ISPMLIB' library.


have no clue what to do now.
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


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

PostPosted: Fri Mar 01, 2013 8:40 pm    Post subject: Re: Reply to: Putting Condition in REXX Panel
Reply with quote

Priyanka Pyne wrote:
It is giving the below error.

Code:
message not found in 'ISPMLIB' library.


have no clue what to do now.

It is recorded that, after the Spartans' defeat at Argusinae, the Athenians intercepted a message from their second-in-command to the Gerousia (council of elders) reading, "Admiral dead; ships lost; men starving; no idea what to do".

If you had asked even such elementary questions as "What's an ISPMLIB library?" and "How do I put a message in it?", there might have been hope. As it is, Priya-chan, you can but pray for another Lysander to save you.
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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 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. Rexx to create GDG by scanning JJ result krish.deepu CLIST & REXX 5 Tue Oct 25, 2016 5:32 pm
No new posts Replace repeated JCL with looping REXX prino CLIST & REXX 3 Thu Oct 13, 2016 5:30 am


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