Lizette Koehler wrote:
Hi All,
We are z/OS V1.7.
I am trying to validate HEX data in an ISPF Panel. I am working with UCB
strings. So they are 4 digits long containing 0000 - FFFF.
I have a test in my panel
IF (&SR01 > &ER01) then produce a message indicating beginning range is greater than ending range.
So if SR01 = 100F adn ER01 = 1000 I want the message produced. Else if SR01 = 1000 and ER01 = 100F it is okay.
My data is SR01 = 3000 and ER01 = 30DF
If (&SR01 > &ER01) .MSG = DRM001
I get the message saying SR01 is greater than 30DF and I cannot determine why.
It is almost like it is ignoring the rules for Hexidecimal data.
SR01.... Pool (S) .... - ISPYX211 VALUE(3000)
..CHG by SELECT - ISPYX212
ER01.... Pool (S) .... - ISPYX211 VALUE(30DF)
..CHG by SELECT - ISPYX212
If this looks okay, I will open an ETR with IBM. I know this was working under
z/OS V1.4. But for some reason this same code is not working for z/OS V1.7.
Lizette
Try indenting the assignment, on a separate line. That is:
If (&SR01 > &ER01)
.MSG = DRM001
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-393-8716
http://www.trainersfriend.com
z/OS Application development made easier
* Our classes include
+ How things work
+ Programming examples with realistic applications
+ Starter / skeleton code
+ Complete working programs
+ Useful utilities and subroutines
+ Tips and techniques
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
