IBM Mainframe Forum

by **nikesh_rai** » Tue Feb 19, 2013 4:24 pm

Hi,

I am trying to display massages on ISPF panel, however the massage is not getting displayed. I have checked the library concatination, and it is fine. Here is my panle code:

Select all

)PROC                                                            
     &PFKEY = .PFKEY                                             
                                                                 
     &ZSEL=TRANS(TRUNC(&ZCMD,'.')                                
           X,'PANEL(PAN11) NEWAPPL'                              
           CAN,'PANEL(PAN11) NEWAPPL'                            
           ' ',' '                                               
           *,'?')                                                
                                                                 
     IF ( &ZCMD = ' ' )                                          
                                                                 
        VER(&XSUBSYS,NONBLANK,LISTV,&SBSYSLST,MSG=GCCMP001)      
        VER(&XCRTRID,NONBLANK,MSG=400)                           
        VER(&XTBLNME,NONBLANK,MSG=500)                           
        VER(&XINPFLE,NONBLANK,DSNAME)                            
        VER(&XOTPFLE,NONBLANK,DSNAME)                            
                                                                 
        IF (&ZSYSID = 'F01' AND &XSUBSYS = 'DBF1'  OR            
            &ZSYSID = 'VIL' AND &XSUBSYS = 'DBCD'  OR            
      &ZSYSID = 'B01' AND &XSUBSYS = 'DBFO'  OR              
      &ZSYSID = 'B02' AND &XSUBSYS = 'DBFU'  OR              
      &ZSYSID = 'B04' AND &XSUBSYS = 'DBFA')                 
                                                             
        *REXX(XSUBSYS,XCRTRID,XTBLNME,SQLRTCD,(REXX2))       
                                                             
  ELSE                                                       
        .MSG=301                                             
                                                             
  VPUT (SQLRTCD) PROFILE                                     
                                                             
  IF (&SQLRTCD = 1)                                          
      .MSG = 1001                                            
  ELSE                                                       
      IF (&SQLRTCD = 2)                                      
          .MSG = 1002                                        
      ELSE                                                   
          .MSG = BCCMP004                                    
          *REXX(*,(REXX3))                                   
)END

and the massage is defined as:

Select all

GS001 .WINDOW=NOLRESP  .ALARM = YES                                 
'DB2 SUBSYTEM CAN'T BE BLANK.'                                      
BCCMP002 '' .WINDOW=NOLRESP .HELP=BCCOMPH .ALARM                    
'THIS MEMBER DOES NOT EXIST IN THE SOURCE LIBRARY SELECTED ' +      
'BELOW.  PLEASE SUPPLY A VALID COMBINATION OF SOURCE LIBRARY ' +    
'AND MEMBER !'                                                      
BCCMP003 '' .WINDOW=NORESP .ALARM                                   
'VALID VALUES ARE "&ENLIST" CORRECT AND PRESS ENTER TO TRY AGAIN'   
BCCMP004 '' .WINDOW=NORESP .ALARM = YES                             
'SQL IS BEING GENERATED'                                            
BCCMP005 '' .WINDOW=NOLRESP .HELP=BCCOMPH .ALARM                    
'THIS MEMBER DOES NOT EXIST IN THE SOURCE LIBRARY SELECTED ' +      
'BELOW.  PLEASE SUPPLY A VALID COMBINATION OF SOURCE LIBRARY ' +    
'AND MEMBER !'                                                      

I want to display the massage associated with BCCMP004. But not getting the massage. I have tested the panel in 7.2 and getting results like this

Select all

----------------------  GENERATE INSERT QUERY  -------------- Message BCCMP004
COMMAND ===>                                                                   
                                                                               
   INPUT  :                                                                    
                                                                               
       DB2 SUBSYS   ===>                                                       
       CREATOR ID   ===>                                                       
       TABLE NAME   ===>                                                       
       INPUT FILE   ===>                                                       
                                                                               
   OUTPUT :                                                                    
                                                                               
       OUTPUT FILE  ===>                                                       
                                                                               
       SQL RT CODE  ===>                                                       
                                                                               
   PRESS ENTER TO PROCEED                                                      
   PRESS END   TO TERMINATE                                                    
                                                                               

Please help me out to resolve this one.

by **Akatsukami** » Tue Feb 19, 2013 4:57 pm

Massages can be a rather private thing, not to be displayed to the world at large

But seriously, what did you expect? The short message for BCCMP04 is a zero-length string, so you are getting only notification that the message is being used; nothing else being defined, nothing else is displayed. The long message ("SQL IS BEING GENERATED") will only be displayed if the HELP command (generally assigned to the PF1 key) is entered; have you done so?

by **nikesh_rai** » Tue Feb 19, 2013 6:41 pm

Hi Akatsukami,

I checked with HELP command as well, and the result is

Select all

---------------------- GENERATE INSERT QUERY -------------- Message BCCMP004
COMMAND ===>

INPUT :

DB2 SUBSYS ===>
CREATOR ID ===>
TABLE NAME ===>
INPUT FILE ===>

OUTPUT :

OUTPUT FILE ===>

SQL RT CODE ===>

PRESS ENTER TO PROCEED
PRESS END TO TERMINATE

EssssssssssssssssssssssssssssssssssssssssssssssssssN
e BCCMP004 message not found in 'ISPMLIB' library. e
DssssssssssssssssssssssssssssssssssssssssssssssssssM

BCCMP004 has been already defined as associated with ISPMLIB

Select all

EDIT DPFCB.D393990.ISPMLIB(GNSQL000) - 01.13 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
==MSG> -Warning- The UNDO command is not available until you change
==MSG> your edit profile using the command RECOVERY ON.
000001 GS001 .WINDOW=NOLRESP .ALARM = YES
000002 'DB2 SUBSYTEM CAN'T BE BLANK.'
000003 BCCMP002 '' .WINDOW=NOLRESP .HELP=BCCOMPH .ALARM
000004 'THIS MEMBER DOES NOT EXIST IN THE SOURCE LIBRARY SELECTED ' +
000005 'BELOW. PLEASE SUPPLY A VALID COMBINATION OF SOURCE LIBRARY ' +
000006 'AND MEMBER !'
000007 BCCMP003 '' .WINDOW=NORESP .ALARM
000008 'VALID VALUES ARE "&ENLIST" CORRECT AND PRESS ENTER TO TRY AGAIN'
000009 BCCMP004 '' .WINDOW=NORESP .HELP=BCCOMPH .ALARM = YES
000010 'SQL IS BEING GENERATED'
000011 BCCMP005 '' .WINDOW=NOLRESP .HELP=BCCOMPH .ALARM
000012 'THIS MEMBER DOES NOT EXIST IN THE SOURCE LIBRARY SELECTED ' +
000013 'BELOW. PLEASE SUPPLY A VALID COMBINATION OF SOURCE LIBRARY ' +
000014 'AND MEMBER !'

by **prino** » Tue Feb 19, 2013 8:12 pm

May I suggest that you RTFM, especially about the relationship between messages and the name of the member that contains them?

You cannot use a member name 'GNSQL000' to store 'BCCMPxxx' messages.

by **nikesh_rai** » Tue Feb 19, 2013 8:29 pm

Thanks Prino,

You are correct. The problem was with the member name and massage id..I kept massage id as GNSQL004 and member name as GNSQL00.. and its working fine..
Just 1 more help... If you have any link about the member name and massage id naming convention.. can you please provide me that link.. I will also google it..

Thanks
Nikesh

by **enrico-sorichetti** » Tue Feb 19, 2013 11:35 pm

the ISPF manuals will tell all You might want to know.
start from
http://www-03.ibm.com/systems/z/os/zos/ ... index.html" onclick="window.open(this.href);return false;
and navigate to the bookshelf relative to Your zOS level

but a few days ago I already gave You the links to the manuals here ...
tso-ispf/topic8739.html

by **nikesh_rai** » Wed Feb 20, 2013 4:58 pm

Thansk Enrico,

This link is really very useful..

IBM Mainframe Forum

Message is not getiing displayed

Message is not getiing displayed

Re: Massage is not getiing displayed

Re: Massage is not getiing displayed

Re: Message is not getiing displayed

Re: Message is not getiing displayed

Re: Message is not getiing displayed

Re: Message is not getiing displayed