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
 

 

How to use Not equal to in 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: Mon Sep 26, 2011 11:06 pm    Post subject: How to use Not equal to in panel
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: 1753
Location: Bloomington, IL

PostPosted: Mon Sep 26, 2011 11:42 pm    Post subject:
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: 1750
Location: UK

PostPosted: Mon Sep 26, 2011 11:52 pm    Post subject:
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    Post subject:
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

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7306

PostPosted: Tue Sep 27, 2011 12:13 am    Post subject: Reply to: How to use Not equal to in Rexx panel
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    Post subject:
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    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 ISPF - How to come out of ISPF Panel parasmalik20 TSO/ISPF 5 Tue Feb 21, 2017 7:44 pm
No new posts the use of 'B3'x character in a panel Pedro TSO/ISPF 1 Thu Feb 16, 2017 3:09 am
No new posts Design of ISPF panel prino TSO/ISPF 2 Wed Jan 25, 2017 10:31 pm
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am


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