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

How to use Not equal to in 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: Mon Sep 26, 2011 11:06 pm
Reply with quote

Hi,

I am trying to do some condition check in the panel.

My code is like below
Code:
IF (&CMPSTRT2 \=' ')
   VER(&CMPEND2,NB)


But while trying to execute this I am getting the below error message
Code:
ISPP168                                                                 
                                                                         
Panel 'MAINPANL' error                                                     
Invalid IF keyword operator found.                                       
                                                                         
                                                                         
                                                                         
                                                                         
                                                                         
PYNPRIY,JHLOGPRC,11/09/26,13:34,1,ISR,PGM(ISRUDL) PARM(ISRUDLP) SCRNAME(D
Panel line where error was detected:                                     
IF (&CMPSTRT2 \=' ')                                                     


Here, by '\=' I am trying to use not equal to. But it seems syntactical error. What symbol should I use for this purposes?
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


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

PostPosted: Mon Sep 26, 2011 11:42 pm
Reply with quote

Why not use the "¬" symbol?

You may object that it is not found on your keyboard. However, it is a fairly trivial thing to have your terminal emulator produce it. There are many emulators, of course; but here is what I did do for mine (Micro Focus Rumba V8.0.0):
  1. Press <Ctrl-Shift-K> to get the Keyboard Mapping dialog.
  2. Click the "3270 Emulation Keys" button and select "Data Keys" from the drop-down menu.
  3. Scroll the glyph list on the left until you find the "¬".
  4. Click the "New" button on the right.
  5. Choose whatever key combination you like to produce it (I prefer <Shift-6>, as that was its position on an actual 3270 keyboard).
  6. Click on "OK".

So simple, even a software engineer can do it!
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Mon Sep 26, 2011 11:52 pm
Reply with quote

No such thing as a Rexx panel - it is an ISPF panel and you are invoking it via Rexx but you could use C, assembler, COBOL and PL/1 (possibly some others nowadays).
Back to top
View user's profile Send private message
Priyanka Pyne

New User


Joined: 09 Feb 2008
Posts: 95
Location: India

PostPosted: Tue Sep 27, 2011 12:10 am
Reply with quote

Thanks. This is working now but it seems another problem is there.This time it is not giving me syntactical error. But the logic is not working.My requirement is if CMPSTRT2 field is not blank then CMPEND2 field can not be blank.

I used this way

Code:
IF (&CMPSTRT2 ¬ '')
   VER(&CMPEND2,NB)


But this is not working
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: Tue Sep 27, 2011 12:13 am
Reply with quote

¬ is a "logical not".

To say "not equal" try

Code:
¬=
Back to top
View user's profile Send private message
Priyanka Pyne

New User


Joined: 09 Feb 2008
Posts: 95
Location: India

PostPosted: Tue Sep 27, 2011 12:31 am
Reply with quote

Thanks.

This is working now.
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 Execute secondary panel of sdsf with ... CLIST & REXX 1
No new posts Call program, directly from panel CLIST & REXX 9
No new posts panel creation question TSO/ISPF 12
No new posts Panel variable model line TSO/ISPF 3
No new posts REXX table content on panel will be r... CLIST & REXX 6
Search our Forums:

Back to Top