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
 

 

Display message through Panel

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
gchitra

New User


Joined: 08 Jun 2005
Posts: 36
Location: Burtonsville, MD

PostPosted: Mon Jan 26, 2009 11:45 pm    Post subject: Display message through Panel
Reply with quote

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
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Mon Jan 26, 2009 11:51 pm    Post subject: Reply to: Display message through Panel
Reply with quote

use something along the lines of
http://ibmmainframes.com/viewtopic.php?t=36330&highlight=empty+panel+fields
Back to top
View user's profile Send private message
gchitra

New User


Joined: 08 Jun 2005
Posts: 36
Location: Burtonsville, MD

PostPosted: Tue Jan 27, 2009 12:40 am    Post subject:
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue Jan 27, 2009 12:50 am    Post subject: Reply to: Display message through Panel
Reply with quote

what happens when You try ??
Back to top
View user's profile Send private message
gchitra

New User


Joined: 08 Jun 2005
Posts: 36
Location: Burtonsville, MD

PostPosted: Tue Jan 27, 2009 12:59 am    Post subject:
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Tue Jan 27, 2009 12:22 pm    Post subject:
Reply with quote

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 icon_eek.gif
Back to top
View user's profile Send private message
gchitra

New User


Joined: 08 Jun 2005
Posts: 36
Location: Burtonsville, MD

PostPosted: Tue Jan 27, 2009 11:52 pm    Post subject:
Reply with quote

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
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Wed Jan 28, 2009 11:19 am    Post subject:
Reply with quote

You can copy the panel & message to your own ISPPLIB & ISPMLIB and try it there.

O.
Back to top
View user's profile Send private message
gchitra

New User


Joined: 08 Jun 2005
Posts: 36
Location: Burtonsville, MD

PostPosted: Wed Jan 28, 2009 9:15 pm    Post subject:
Reply with quote

Thanks O. Thanks to everyone who helped me with this. I will try it.
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2019
Location: Silicon Valley

PostPosted: Thu Jan 29, 2009 1:56 am    Post subject: Reply to: Display message through Panel
Reply with quote

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
View user's profile Send private message
gchitra

New User


Joined: 08 Jun 2005
Posts: 36
Location: Burtonsville, MD

PostPosted: Mon Feb 02, 2009 10:06 pm    Post subject: Reply to: Display message through Panel
Reply with quote

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
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Tue Feb 03, 2009 12:03 am    Post subject:
Reply with quote

As far as I know, BLANK is not a VER option.

O.
Back to top
View user's profile Send private message
gchitra

New User


Joined: 08 Jun 2005
Posts: 36
Location: Burtonsville, MD

PostPosted: Tue Feb 03, 2009 12:46 am    Post subject:
Reply with quote

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
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Tue Feb 03, 2009 1:11 am    Post subject:
Reply with quote

You can try something like (not tested!):
Code:
IF (&SSNIN EQ '' AND &UTIIN EQ ' ')
    .MSG = CNXXX003


O.
Back to top
View user's profile Send private message
gchitra

New User


Joined: 08 Jun 2005
Posts: 36
Location: Burtonsville, MD

PostPosted: Tue Feb 03, 2009 1:20 am    Post subject:
Reply with quote

THANKS A LOT, O.

IT WORKED. Thanks everyone who helped me with this.

Thanks,
Chitra
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 How to display value of an exit param... lind sh CICS 2 Sun Oct 09, 2016 12:28 pm
This topic is locked: you cannot edit posts or make replies. DSList (3.4) cannot display Chinese c... jacobdng TSO/ISPF 4 Wed Oct 05, 2016 2:51 pm
No new posts How to show message using batch jobs madprasy TSO/ISPF 7 Fri Sep 09, 2016 6:55 pm
No new posts Truncated error message after VERIFY ... David Sde TSO/ISPF 4 Mon Sep 05, 2016 11:26 pm
This topic is locked: you cannot edit posts or make replies. Get and display content of an address... lind sh CICS 1 Mon Aug 08, 2016 9:18 am


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