|
View previous topic :: View next topic
|
| Author |
Message |
gchitra
New User
Joined: 08 Jun 2005
Posts: 36
Location: Burtonsville, MD
|
|
|
|
I have a panel (for a CLIST) that looks like this:
)INIT
.ZVARS = '(OPT)'
)PROC
VER (&OPT NB RANGE,1,99,MSG = CNXXX001)
VPUT SSNIN SHARED
VPUT SKLIN SHARED
)END
)MODEL ROWS(SCAN)
I have to modify it so that when the two fields A & B are both empty, a particular message will be displayed. Can anyone please let me know how to do it?
Thanks,
Chitra |
|
| Back to top |
|
 |
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
| Back to top |
|
|
gchitra
New User
Joined: 08 Jun 2005
Posts: 36
Location: Burtonsville, MD
|
|
|
|
Thanks Enrico-sorichetti.
I am new to this and so I may need some more help. Please bear with me. Is the following statement correct?
IF (&FIELD1 EQ ' ')
VER(&FIELD2,BLANK,MSG=MESSAGE1)
WHERE MESSAGE1 IS
MESSAGE1 'CAN NOT BE BLACNK' .ALARM = YES
'BOTH FIELD1 AND FIELD2 CAN NOT BE BLANK' |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
| what happens when You try ?? |
|
| Back to top |
|
|
gchitra
New User
Joined: 08 Jun 2005
Posts: 36
Location: Burtonsville, MD
|
|
|
|
I am yet to try it. I just wanted to know the keywords and the statements are correct, before I could try it.
Can you please let me know if they are correct?
Thanks,
Chitra |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
As asked by Enrico, what happens when you try. Trial and error are the very best teachers !!!
It's hardly likely that you will cause a system crash with a simple ISPF panel ................... is it  |
|
| Back to top |
|
|
gchitra
New User
Joined: 08 Jun 2005
Posts: 36
Location: Burtonsville, MD
|
|
|
|
I am not supposed to make any changes in the mainframe. Rather I have to make the changes in the hardcopy and show it to the client, before testing those changes. That is the reason why I repeatedly ask for the clarification. Please do not mistake me.
Thanks,
Chitra |
|
| Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
You can copy the panel & message to your own ISPPLIB & ISPMLIB and try it there.
O. |
|
| Back to top |
|
|
gchitra
New User
Joined: 08 Jun 2005
Posts: 36
Location: Burtonsville, MD
|
|
|
|
| Thanks O. Thanks to everyone who helped me with this. I will try it. |
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
| Quote: |
| I am not supposed to make any changes in the mainframe. |
You probably have a well managed production system, but you should be able to use a test environment to try changes before putting into production.
| Quote: |
| Rather I have to make the changes in the hardcopy and show it to the client, before testing those changes. |
I doubt your client is going to know if the syntax is correct. |
|
| Back to top |
|
|
gchitra
New User
Joined: 08 Jun 2005
Posts: 36
Location: Burtonsville, MD
|
|
|
|
I tried the code that I have mentioned earlier and got the following error message:
ISPP180
Panel 'RXRPRINT' error
Verification TYPE unrecognized.
Panel line where error was detected:
VER (&UTIIN,BLANK,MSG = CNXXX003)
Following is the Panel that I am using:
| Code: |
)ATTR
/************ THE + % AND _ ARE THE DEFAULT VALUES **********/
+ TYPE(TEXT) INTENS(LOW) COLOR(BLUE)
% TYPE(TEXT) INTENS(HIGH) COLOR(WHITE)
~ TYPE(INPUT) INTENS(HIGH) COLOR(RED) CAPS(ON)
_ TYPE(INPUT) INTENS(HIGH) COLOR(RED) CAPS(ON) HILITE(USCORE)
/************************************************************
¢ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) SKIP(ON)
! TYPE(TEXT) INTENS(LOW) COLOR(GREEN)
¬ TYPE(TEXT) INTENS(LOW) COLOR(YELLOW)
@ TYPE(OUTPUT) INTENS(LOW) COLOR(YELLOW)
\ TYPE(OUTPUT) INTENS(LOW) COLOR(RED)
# TYPE(OUTPUT) INTENS(LOW) COLOR(WHITE)
? TYPE(OUTPUT) INTENS(LOW) COLOR(BLUE)
/*******************************************************************/
)BODY
@TITLE
+COMMAND ===>~ZCMD +SCROLL ==
¬ NOTICE REPRINTING SELECTION SCREEN - File Name for #Z +
+
¬ CNNUM APPL ID TYPE DESCRIPTION
% =====================================================================
)MODEL ROWS(ALL)
?CNNUM ?APPLID ?CNTYPE ?DESC
+
¬ TYPE NAME OF DATASET CONTAINING SSNs FOR REPRINTING
! OR
¬ TYPE THE UTI(6-CHARS) AND THE NUMBER OF OCCURRENCES (2-CHARS) OF THE
¬ UTI (EX: MPD09310)
+
+ %DATASET %===>_SSNIN
+
+ %UTI PARM %===>_UTIIN
+
¬ TYPE NAME OF SKELCOMP FILE
+
+ %SKELCOMP %===>_SKLIN
+
)INIT
.ZVARS = '(OPT)'
)PROC
VER (&OPT NB RANGE,1,99,MSG = CNXXX001)
IF (&SSNIN EQ '')
VER (&UTIIN,BLANK,MSG = CNXXX003)
VPUT SSNIN SHARED
VPUT UTIIN SHARED
VPUT SKLIN SHARED
)END
)MODEL ROWS(SCAN) |
I made some other changes to the panel and they are working, but the IF clause is not. Can anyone please help me out?
Thanks,
Chitra
[/img][/url] |
|
| Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
As far as I know, BLANK is not a VER option.
O. |
|
| Back to top |
|
|
gchitra
New User
Joined: 08 Jun 2005
Posts: 36
Location: Burtonsville, MD
|
|
|
|
Thanks O.
Can anyone please let me know what is the correct keyword to be used in its place?
If both SSNIN & UTIIN are blank, I want a message to be displayed in the panel.
Thanks,
Chitra |
|
| Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
You can try something like (not tested!):
| Code: |
IF (&SSNIN EQ '' AND &UTIIN EQ ' ')
.MSG = CNXXX003 |
O. |
|
| Back to top |
|
|
gchitra
New User
Joined: 08 Jun 2005
Posts: 36
Location: Burtonsville, MD
|
|
|
|
THANKS A LOT, O.
IT WORKED. Thanks everyone who helped me with this.
Thanks,
Chitra |
|
| Back to top |
|
|
|
|
