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

Putting Condition in REXX Panel


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
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
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

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Fri Mar 01, 2013 1:17 pm
Reply with quote

most probably You meant an ISPF panel icon_cool.gif

start reading from here
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: 8797
Location: Welsh Wales

PostPosted: Fri Mar 01, 2013 1:28 pm
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

Superior Member


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

PostPosted: Fri Mar 01, 2013 1:33 pm
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
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: 8797
Location: Welsh Wales

PostPosted: Fri Mar 01, 2013 3:28 pm
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
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
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: 1788
Location: Bloomington, IL

PostPosted: Fri Mar 01, 2013 6:18 pm
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
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: 1788
Location: Bloomington, IL

PostPosted: Fri Mar 01, 2013 8:40 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Compile Several JCL JOB Through one r... CLIST & REXX 4
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
Search our Forums:

Back to Top