MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Custom Message Display in Panel
Goto page 1, 2  Next
 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
meetrb
Beginner


Joined: 24 Nov 2003
Posts: 40
Topics: 15
PostPosted: Sun Apr 10, 2005 5:58 am    Post subject: Custom Message Display in Panel Reply with quote
Hi,
I have created the following panel:
Code:

)ATTR DEFAULT(%+_)                                                 
)BODY EXPAND(!!)                                                   
+                                                                 
+  ENTER THE%DATE+RUN%+: _DATE                 
+                                                                 
+  ENTER THE%REGION+: _REGION                           
+                                                                 
+Press%ENTER+to process; Enter%END+command to exit.               
)PROC                                                             
  VER(&DATE,NONBLANK)                                             
  VER(&REGION,NONBLANK)                                           
  VER(&REGION,ALPHA)                                               
  VPUT(DATE REGION) SHARED                                         
)END                                                               

I have declared a custom message as:
PPT101   "Date Entered is invalid"
"Date Entered is invalid'"           
Inside a member PPT10

When the panel is displayed using the routine below:
/*REXX*/                                                               
ADDRESS ISPEXEC                                                         
/*"CONTROL ERRORS RETURN"*/                                             
"LIBDEF ISPPLIB DATASET ID('bdlt.sihs135.pANELS') STACK"               
"LIBDEF ISPMLIB DATASET ID('bdlt.sihs135.messages')"                   
"DISPLAY PANEL(CMNBUILD) msg(ppt101)"                                   
"LIBDEF ISPPLIB"                                                       
"LIBDEF ISPMLIB"                                                       
"VGET (DATE REGION)"                                                   
EXIT 0                                                                 

I am getting the following error message:
CMG999
Message syntax error.
PPT101 - contains invalid format syntax in long message.

Could anyone help with this.

Regards,
Meetrb
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose
PostPosted: Sun Apr 10, 2005 9:00 am    Post subject: Reply with quote
Quote:

"Date Entered is invalid'"


meetrb,

You are missing a single quote in that message. Correct that and you should be fine.

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
meetrb
Beginner


Joined: 24 Nov 2003
Posts: 40
Topics: 15
PostPosted: Mon Apr 11, 2005 2:02 am    Post subject: Reply with quote
Thanks Kolusu,
Sorry did not see the quotes.

Regards,
Meetrb
Back to top
View user's profile Send private message
s_shivaraj
Beginner


Joined: 21 Sep 2004
Posts: 140
Topics: 14
Location: Chennai, India
PostPosted: Tue Apr 12, 2005 11:59 pm    Post subject: How to execute the Panel Routine Reply with quote
Hi Kolusu,
I am new to this rexx Panel,, I tried running the above code given by Meetrb with ur correction, i am getting the following error. Rolling Eyes

I ran the panel display routine using "tso ex 'pds.name(mem)', is that correct.. if not plz provide me the right way...

Panel line where error was detected:
)ATTR DEFAULT(%+_)

Error mesg:

A severe error occurred under dialog:

Application : ISP

Function . : Command EX

Service . . : DISPLAY

Error message ID: ISPP111
_________________
Cheers
Sivaraj S

'Technical Skill is the Master of complexity, while Creativity is the Master of Simplicity'
Back to top
View user's profile Send private message AIM Address
Mervyn
Moderator


Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England
PostPosted: Wed Apr 13, 2005 2:56 am    Post subject: Reply with quote
Quickref gives this information:

[code:1:b48ddcf42c]
------------------------------------------ V=IBM P=Z/OS ISPF MESSAGES R=V1R4 I=ISPP111 -------
********************* Text Below Copyright (c) 2005, IBM *********************

+------------------------------------------------------------------------+

_________________
The day you stop learning the dinosaur becomes extinct
Back to top
View user's profile Send private message
s_shivaraj
Beginner


Joined: 21 Sep 2004
Posts: 140
Topics: 14
Location: Chennai, India
PostPosted: Wed Apr 13, 2005 4:03 am    Post subject: Reply with quote
Meryn,
Thanks for the respnse.
It went fine when i started the lines from column position 2.
But now i am getting this Error msg :

ISPP150

Panel 'AAPANEL' error
No )END found before reaching end of file.

I can clearly see the End at the end of the coding.. I am attaching my code used..

Code:
 
 ***************************** Top of Data ***
 ----+----1----+----2----+----3----+----4----+
  )ATTR DEFAULT(%+_)                         
  )BODY EXPAND(!!)                           
  +  ENTER THE%DATE +RUN%+:_DATE             
  +  ENTER THE%REGION+: _REGION               
  )PROC                                       
    VER(&DATE.NOBLANK)                       
    VER(&REGION,NOBLANK)                     
    VER(&REGION,ALPHA)                       
    VPUT(DATE REGION) SHARED                 
    VPUT(DATE REGION) SHARED                 
  )END

Note: Coding is starting at col 2, here its not showing..
_________________
Cheers
Sivaraj S

'Technical Skill is the Master of complexity, while Creativity is the Master of Simplicity'
Back to top
View user's profile Send private message AIM Address
Mervyn
Moderator


Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England
PostPosted: Wed Apr 13, 2005 4:21 am    Post subject: Reply with quote
I always start my coding in column 1. This is backed up by the manual:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ISPZDG30/6.3?DT=20040720211441

Try moving the )END across to column 1.
_________________
The day you stop learning the dinosaur becomes extinct
Back to top
View user's profile Send private message
s_shivaraj
Beginner


Joined: 21 Sep 2004
Posts: 140
Topics: 14
Location: Chennai, India
PostPosted: Thu Apr 14, 2005 12:56 am    Post subject: Its really surprising Reply with quote
Merv,
Its really surprising Rolling Eyes

Code:
***************************** Top of Data ***************
 )ATTR DEFAULT(%+_)                                     
 )BODY EXPAND(!!)                                       
 +                                                       
 +  ENTER THE%DATE+RUN%+: _DATE                         
 +                                                       
 + ENTER THE%REGION+: _REGION                           
 +                                                       
 +PRESS%ENTER+TO PROCESS; ENTER%END+COMMAND TO EXIT.     
 )PROC                                                   
  VER(&DATE,NONBLANK)                                   
  VER(&REGION,NONBLANK)                                 
  VER(&REGION,ALPHA)                                     
  VPUT(DATE) SHARED                                     
)END                                                     


Rexx routine for calling the panel :
Code:
/*REXX*/                                                 
ADDRESS ISPEXEC                                           
                                                         
/*"CONTROL ERRORS RETURN"*/                               
"LIBDEF ISPPLIB DATASET ID('pdsname') STACK"     
"LIBDEF ISPMLIB DATASET ID('pdsname')"           
"DISPLAY PANEL(AAPANEL)"                                 
EXIT 0                                                   


I am getting this Error.

ISPV021

Invalid GET request
Variable name ')' is not a valid REXX variable name.

But were is the Get Request, i am not seeing any were in my code. Rolling Eyes

Please help me in displaying my First Panel.
_________________
Cheers
Sivaraj S

'Technical Skill is the Master of complexity, while Creativity is the Master of Simplicity'
Back to top
View user's profile Send private message AIM Address
Mervyn
Moderator


Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England
PostPosted: Thu Apr 14, 2005 3:19 am    Post subject: Reply with quote
s_shivaraj,

Please try again with all of the ")" commands in column 1.
_________________
The day you stop learning the dinosaur becomes extinct
Back to top
View user's profile Send private message
s_shivaraj
Beginner


Joined: 21 Sep 2004
Posts: 140
Topics: 14
Location: Chennai, India
PostPosted: Thu Apr 14, 2005 4:21 am    Post subject: Reply with quote
Merv,

If i start in column 1 , then i am getting the following error msg, which i posted first.

Panel 'AAPANEL' error
Illegal characters or statement type found in )ATTR section.

Panel line where error was detected:
)ATTR DEFAULT(%+_)

Error message ID: ISPP111

Rolling Eyes

I hexed On my code, i am not seeing anything unusal there...

Pasting the Hex code here

Code:
------------------------------------------------
)ATTR DEFAULT(%+_)                             
5CEED4CCCCEDE46465444444444444444444444444444444
D133904561433DCEDD000000000000000000000000000000
------------------------------------------------
)BODY EXPAND(!!)                               
5CDCE4CEDCDC455544444444444444444444444444444444
D26480577154DAAD00000000000000000000000000000000
------------------------------------------------
+                                               
444444444444444444444444444444444444444444444444
E00000000000000000000000000000000000000000000000
------------------------------------------------
+  ENTER THE%DATE+RUN%+: _DATE                 
444CDECD4ECC6CCEC4DED64746CCEC444444444444444444
E00553590385C4135E945CEA0D4135000000000000000000

+PRESS%ENTER+TO PROCESS; ENTER%END+COMMAND TO EXIT.     
4DDCEE6CDECD4ED4DDDCCEE54CDECD6CDC4CDDDCDC4ED4CECE444444
E79522C55359E3607963522E055359C554E364415403605793B00000
--------------------------------------------------------
)PROC                                                   
5DDDC444444444444444444444444444444444444444444444444444
D7963000000000000000000000000000000000000000000000000000
--------------------------------------------------------
VER(&DATE,NONBLANK)                                     
ECD45CCEC6DDDCDCDD54444444444444444444444444444444444444
559D04135B56523152D0000000000000000000000000000000000000
--------------------------------------------------------
VER(&REGION,NONBLANK)                                   
ECD45DCCCDD6DDDCDCDD544444444444444444444444444444444444
559D0957965B56523152D00000000000000000000000000000000000
--------------------------------------------------------
VER(&REGION,ALPHA)                                     
ECD45DCCCDD6CDDCC544444444444444444444444444444444444444
559D0957965B13781D00000000000000000000000000000000000000
------------------------------------------------------------
VPUT(DATE) SHARED                                           
EDEE4CCEC54ECCDCC4444444444444444444444444444444444444444444
5743D4135D02819540000000000000000000000000000000000000000000
------------------------------------------------------------
)END                                                       
5CDC44444444444444444444444444444444444444444444444444444444
D55400000000000000000000000000000000000000000000000000000000
------------------------------------------------------------
**************************** Bottom of Data ****************

_________________
Cheers
Sivaraj S

'Technical Skill is the Master of complexity, while Creativity is the Master of Simplicity'
Back to top
View user's profile Send private message AIM Address
Mervyn
Moderator


Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England
PostPosted: Thu Apr 14, 2005 6:04 am    Post subject: Reply with quote
s_shivaraj,

I don't understand why you are still getting an error.

This works for me:

Code:

****** ********************************* Top of Data *****************
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6---
000001 )ATTR DEFAULT(%+_)                                             
000002 )BODY EXPAND(!!)                                               
000003  +                                                             
000004  +  ENTER THE%DATE+RUN%+: _DATE                               
000005  +                                                             
000006  + ENTER THE%REGION+: _REGION                                 
000007  +                                                             
000008  +PRESS%ENTER+TO PROCESS; ENTER%END+COMMAND TO EXIT.           
000009 )PROC                                                         
000010   VER(&DATE,NONBLANK)                                         
000011   VER(&REGION,NONBLANK)                                       
000012   VER(&REGION,ALPHA)                                           
000013   VPUT(DATE) SHARED                                           
000014 )END                                                           
****** ******************************** Bottom of Data ***************


Give it a try.
_________________
The day you stop learning the dinosaur becomes extinct
Back to top
View user's profile Send private message
semigeezer
Supermod


Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis
PostPosted: Thu Apr 14, 2005 7:00 am    Post subject: Reply with quote
Do you have numbering on? If so, turn it off. Otherwise you have garbage in cols 73-80.
Back to top
View user's profile Send private message Visit poster's website
superk
Advanced


Joined: 19 Dec 2002
Posts: 684
Topics: 5
PostPosted: Thu Apr 14, 2005 7:09 am    Post subject: Reply with quote
With NUMS ON, I get this error:
Quote:

ISPP111

Panel 'AAPANEL' error
Illegal characters or statement type found in )ATTR section.

with NUMS OFF, the panel works fine for me also.
Back to top
View user's profile Send private message
Mervyn
Moderator


Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England
PostPosted: Thu Apr 14, 2005 8:12 am    Post subject: Reply with quote
Could be a clue!

Good spot, Superk!
_________________
The day you stop learning the dinosaur becomes extinct
Back to top
View user's profile Send private message
Mervyn
Moderator


Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England
PostPosted: Thu Apr 14, 2005 8:13 am    Post subject: Reply with quote
Sorry, Semigeezer, you should have been included in that last post!
_________________
The day you stop learning the dinosaur becomes extinct
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Goto page 1, 2  Next
Page 1 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group