Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Unable to view PANEL

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

Active User


Joined: 13 Jul 2006
Posts: 205
Location: At my desk

PostPosted: Tue May 29, 2007 5:05 pm    Post subject: Unable to view PANEL
Reply with quote

Hi Friends,

I have designed a panel in the PDS (CN745.TEST.PANEL) - INDXSRI
Code:

)ATTR DEFAULT(%+_)                                                       
    %    TYPE(TEXT)  INTENS(HIGH) SKIP(ON) COLOR(YELLOW)                 
    ~    TYPE(TEXT)  INTENS(LOW)  SKIP(ON) COLOR(RED)                   
    !    TYPE(TEXT)  INTENS(HIGH) SKIP(ON) COLOR(PINK)                   
    @    TYPE(TEXT)  INTENS(HIGH) COLOR(WHITE) SKIP(ON)                 
    #    TYPE(CEF)   JUST(LEFT)                                         
)BODY WINDOW(72,20) EXPAND(\\)                                           
                                                                       %
% %CURRENT DB2SYS:!&JBS %                                              %
%                                                                      %
%*------------*~ CHECKING  CARDS FOR SETTLEMENT       %*--------------*%
%|                       FILE 1/FILE 2                                |%
%*                                                                    *%
 %*                                                                    *%
 %|      !OPTION ===> +G1%                                             |%
 %*                                                                    *%
 %|    !1  % FILE 1       -   CHECK FOR FILE1 SETTLEMENT STREAM1       |%
 %*                                                                    *%
 %|    !2  % FILE 2       -   CHECK FOR FILE2 SETTLEMENT STREAM2       |%
 %*                                                                    *%
 %|    !3  % FUTURE WORK  -   ADDITIONAL OPTIONS FOR CHECKING SETTLE   |%
 %*                          MENT  JOBS                                *%
 %|                                                                    |%
 %*                                                                    *%
 %|                                                                    |%
  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 )INIT                                                                   
 )REINIT                                                                 
  REFRESH(*)                                                             
 )PROC                                                                   
  &PFK = .PFKEY                                                           
  VER(&G1,LIST,1,2,3)     
)END 


I have defined the dataset using the LIBDEF (option 7.6).

I could not able to view the panel using 7.2. I am getting panel not found error.

I haev even defined the path in my CLIST member too.

Also could you please let me know the above panel is error free.

Thanks,
Diwakar

-------
Nobody is Perfect. I am Nobody
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Tue May 29, 2007 7:36 pm    Post subject: Re: Unable to view PANEL
Reply with quote

The only problem that I see with your panel is that you haven't left any way to get out of the display (unless you intend this to be a popup). I'd add a COMMAND line with the ZCMD variable:

Code:

)ATTR DEFAULT(%+_)                                                       
    %    TYPE(TEXT)  INTENS(HIGH) SKIP(ON) COLOR(YELLOW)                 
    ~    TYPE(TEXT)  INTENS(LOW)  SKIP(ON) COLOR(RED)                   
    !    TYPE(TEXT)  INTENS(HIGH) SKIP(ON) COLOR(PINK)                   
    @    TYPE(TEXT)  INTENS(HIGH) COLOR(WHITE) SKIP(ON)                 
    #    TYPE(CEF)   JUST(LEFT)                                         
)BODY WINDOW(72,20) EXPAND(\\)
%COMMAND ===>_ZCMD                                             +
% %CURRENT DB2SYS:!&JBS %                                              %
%                                                                      %
%*------------*~ CHECKING  CARDS FOR SETTLEMENT       %*--------------*%
%|                       FILE 1/FILE 2                                |%
%*                                                                    *%
%*                                                                    *%
%|      !OPTION ===> +G1%                                             |%
%*                                                                    *%
%|    !1  % FILE 1       -   CHECK FOR FILE1 SETTLEMENT STREAM1       |%
%*                                                                    *%
%|    !2  % FILE 2       -   CHECK FOR FILE2 SETTLEMENT STREAM2       |%
%*                                                                    *%
%|    !3  % FUTURE WORK  -   ADDITIONAL OPTIONS FOR CHECKING SETTLE   |%
%*                          MENT  JOBS                                *%
%|                                                                    |%
%*                                                                    *%
%|                                                                    |%
  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
)INIT                                                                   
)REINIT                                                                 
  REFRESH(*)                                                             
)PROC                                                                   
  &PFK = .PFKEY                                                           
  VER(&G1,LIST,1,2,3)     
)END 
Back to top
View user's profile Send private message
diwa_thilak

Active User


Joined: 13 Jul 2006
Posts: 205
Location: At my desk

PostPosted: Wed May 30, 2007 10:59 am    Post subject: Re: Unable to view PANEL
Reply with quote

Superk,

Thanks for your reply.

1 : i have defined the PDS name in the ISP library using option 7.6

2: I could not able to view the panel using the option 7.2.

Err Msg: Panel not found.

3. I tried executing the panel using REXX program.

Code:
/*******************************REXX****************************/     
 call Initialize                                                     
                                                                     
 Initialize:                                                         
  UserId = sysvar(sysuid)                                             
  say UserId                                                         
  Cursor = 'CURSOR()'                                                 
ADDRESS ISPEXEC                                                       
"ISPEXEC LIBDEF ISPPLIB DATASET ID('CN745.TEST.PANEL')"             
   MSG = " "                                                         
   PF = " "                                                           
'ISPEXEC DISPLAY PANEL(INDXSCR)'                                     
Select                                                               
          when PFK = 'PF03' then                                     
                Call 'XEAMAIN'                                       
                                                                     
          when PFK = 'PF04' then                                     
                Call MainExit                                 
                                         
           otherwise                     
                 Call Mainexit           
         End                             
   Return                                 
 MainExit:                               
   Return                                     


I am getting the following error message

Quote:
**************************************************************
* ISPP121
*
* Panel 'INDXSCR' error
* Panel definition too large, greater than screen size.
*
*******************************************************


I tried to decrease the body of the screen , But i receive the same error message.

Can you provide your thoughts regarding this issue.

1. Why i could not able to view the panel using the option 7.2 ?
2. I beleive 72,20 is the standard panel size ? What else can i include to make this panel work ?

Thanks,
Diwakar

----------------------------------------------
Nobody is Perfect. I am Nobody
Back to top
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Wed May 30, 2007 7:54 pm    Post subject:
Reply with quote

To start with your G1 needs to be define with the _G1 to accept input.
the second thing is the !&JBS. if this is to a field that you display from
a variable that was set in a Rexx or C list it needs to be defined as
OUTPUT and you need to do a VGET to retrieve it. You can remove the EXPAND(\\) as you do not use it.
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1544
Location: Andromeda Galaxy

PostPosted: Fri Jun 01, 2007 4:01 pm    Post subject:
Reply with quote

I tried the same panel definition with my rexx code.But its working fine for me icon_smile.gif icon_exclaim.gif icon_exclaim.gif icon_exclaim.gif

Regds,
Prem
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1544
Location: Andromeda Galaxy

PostPosted: Fri Jun 01, 2007 5:06 pm    Post subject:
Reply with quote

diwa_thilak,

Please check whether you did these things

1.Go to option 7.6
2.Check weather u gave this command

Code:


libdef ispplib dataset id('xxx')



where xxx is ur dataset where u have those panel definitions
3.Then press enter
4.Then place your cursor on that command hit enter again
5.Press F3
6.Now select option 2
7.Type your panel name and hit enter.


Hope this helps .

Thanks,
Prem
Back to top
View user's profile Send private message
diwa_thilak

Active User


Joined: 13 Jul 2006
Posts: 205
Location: At my desk

PostPosted: Thu Aug 23, 2007 12:39 pm    Post subject: Reply to: Unable to view PANEL
Reply with quote

Hi Friends,

Prem : I have added the definition you have mentioned in the REXX code and as well followed the same procedure to add the PDS in the library.

But i am getting the following error message..
Code:
ISPP133                                                           
                                                                   
 Panel 'PANEL2' error                                               
 Invalid statement found within )INIT, )REINIT, or )PROC section.   
                                                                   
                                                         
                                                                   
                                                                   
                                                                   
                                                                   
 Panel line where error was detected:                               
 )END       


ISPP133 refers to
Quote:
ISPP133 Panel 'aaaaaaaa' error - Invalid statement found within )INIT,
)REINIT, or )PROC section.


How to approach this issue

Got any suggestions

Thanks,
Diwakar

---------
Nobody is Perfect. I am Nobody
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Thu Aug 23, 2007 1:27 pm    Post subject:
Reply with quote

Can you post the entire panel?

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

Active User


Joined: 13 Jul 2006
Posts: 205
Location: At my desk

PostPosted: Thu Aug 23, 2007 1:56 pm    Post subject: Reply to: Unable to view PANEL
Reply with quote

Hi,

PANEL - Name - PANEL3

Code:
)PANEL                                                                 
)ATTR DEFAULT(%+_)                                                     
    %    TYPE(TEXT)  INTENS(HIGH) SKIP(ON) COLOR(YELLOW)               
    ~    TYPE(TEXT)  INTENS(LOW)  SKIP(ON) COLOR(RED)                   
    !    TYPE(TEXT)  INTENS(HIGH) SKIP(ON) COLOR(PINK)                 
    @    TYPE(TEXT)  INTENS(HIGH) COLOR(WHITE) SKIP(ON)                 
    #    TYPE(CEF)   JUST(LEFT)                                         
)BODY WINDOW(72,20) EXPAND(\\)                                         
%COMMAND ===>_ZCMD                                             +       
% %CURRENT DB2SYS:!&JBS %                                              %
%                                                                      %
%*------------*~ CHECKING  CARDS FOR SETTLEMENT       %*--------------*%
%|                       FILE 1/FILE 2                                |%
%*                                                                    *%
%*                                                                    *%
%|      !OPTION ===> +G1%                                             |%
%*                                                                    *%
%|    !1  % FILE 1       -   CHECK FOR FILE1 SETTLEMENT STREAM1       |%
%*                                                                    *%
%*                                                                    *%
%|    !2  % FILE 2       -   CHECK FOR FILE2 SETTLEMENT STREAM2       |%
%*                                                                    *%
%|    !3  % FUTURE WORK  -   ADDITIONAL OPTIONS FOR CHECKING SETTLE   |%
%*                          MENT  JOBS                                *%
%|                                                                    |%
%*                                                                    *%
%|                                                                    |%
  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
)INIT                                                                   
)REINIT                                                                 
  REFRESH(*)                                                           
)PROC                                                                   
  &PFK = .PFKEY                                                         
  VER(&G1,LIST,1,2,3)                                                   
 )END

REXX Code

Code:
/*******************************REXX****************************/       
 CALL INITIALIZE                                                       
                                                                       
 INITIALIZE:                                                           
  USERID = SYSVAR(SYSUID)                                               
  SAY USERID                                                           
  CURSOR = 'CURSOR()'                                                   
ADDRESS ISPEXEC                                                         
"ISPEXEC LIBDEF ISPPLIB DATASET ID('XXXXX.XXXX')"                   
   MSG = " "                                                           
   PF = " "                                                             
'ISPEXEC DISPLAY PANEL(PANEL3)'                                         
 SELECT                                                                 
          WHEN PFK = 'PF03' THEN                                       
                CALL 'XEAMAIN'                                         
           WHEN PFK = 'PF04' THEN                                       
                 CALL MAINEXIT                                         
                                                                       
           OTHERWISE                                                   
                 CALL MAINEXIT                   
                 END                             
  RETURN                                         
  MAINEXIT:                                       
     RETURN   


Then i tried the below rexx code to view the panel
Code:
/* REXX */                                                 
 "ISPEXEC LIBDEF ISPPLIB DATASET ID('XXXX.XXX')"       
 "ISPEXEC ADDPOP"                                           
 "ISPEXEC DISPLAY PANEL(PANEL3)"                           
 "ISPEXEC REMPOP"                                           
 "ISPEXEC LIBDEF ISPPLIB"     


Thanks,
Diwakar

---------
Nobody is Perfect. I am Nobody
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Thu Aug 23, 2007 3:36 pm    Post subject:
Reply with quote

The )END statement should start at position 1.

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

Active User


Joined: 13 Jul 2006
Posts: 205
Location: At my desk

PostPosted: Fri Aug 24, 2007 10:52 am    Post subject:
Reply with quote

Hi all,

Thanks for all..

Special thanks to Ofer,Prem and Mickey to get this done for me..

Thanks,
Diwakar

----------------
Nobody is Perfect. I am Nobody
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 Unable to send mail with SMTP commands harsh.saxena579 JCL & VSAM 10 Tue Dec 12, 2017 1:58 pm
No new posts Looping REXX - unable to interrupt RAVISANKAR07 CLIST & REXX 3 Wed Dec 06, 2017 1:08 pm
No new posts unable to set RC = 4 when empty file migusd SYNCSORT 1 Tue Nov 21, 2017 1:21 am
No new posts Unable to copy data from spool in a d... srikant314 JCL & VSAM 8 Fri Jul 28, 2017 9:10 pm
No new posts Trace in CLIST PANEL cvnlynn CLIST & REXX 1 Thu Jun 22, 2017 11:06 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us