IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

ISPF Panel error COMMAND NOT FOUND


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
senmainframe
Currently Banned

New User


Joined: 09 Oct 2007
Posts: 30
Location: USA

PostPosted: Fri Nov 02, 2007 1:59 am
Reply with quote

Hi When I am executing my Panel getting following error.

STMT 17 - LABEL PANEL1 SPECIFIED BUT COMMAND NOT FOUND

What is the problem in my panel and calling the panel?...


Code:

PANEL KEYLIST(ISPSAB)                                 
)ATTR                                                 
! TYPE(TEXT) COLOR(YELLOW) INTENS(LOW)  CAPS(OFF)     
# TYPE(TEXT) COLOR(BLUE)   INTENS(HIGH) CAPS(OFF)     
* TYPE(TEXT) COLOR(GREEN)  INTENS(HIGH) SKIP(ON)     
$ TYPE(TEXT) COLOR(TURQ)   INTENS(HIGH) CAPS(OFF)     
% TYPE(TEXT) COLOR(RED)    INTENS(HIGH) CAPS(OFF)     
)BODY EXPAND(//) WINDOW(72,20)                       
#                                                     
#                                                     
#                                                     
#                                                     
#                                                     
#                                                     
#                                                     
#                                                     
%/-/ 
#/-/ SENTHILNATHAN         
  - WELCOME TO THE MENU       /-/     
!/ / POS HISTORY EXTRACTION 
 - AUTOMATION TOOL/ /                 
%/-/                                                               
$                                       
PRESS ANY TO CONTINUE....
#                                                                 
#                                                                 
)END         



Rexx code :


Code:
****************************
*******/
/*                                                           
/*  INITIALIZATION                                     
/*      - DEFINE PANEL / MESSAGES
LIBRARY TO THE SYSTEM         
/*                                                     
/*****************************
******/
1000_INITIALIZATION:                                               
    ADDRESS ISPEXEC                                               
"ISPEXEC LIBDEF ISPPLIB
DATASET ID('CAA1035.REXX.PANEL') UNCOND"   
RETURN                                                             
/**************************
*******/
/*                                                     
/*  PANLE1   DISPLAY                             
/*      - TO DISPLAY THE WELCOME PANEL
/*                                                         
/********************************/
PANEL1:         
   ADDRESS ISPEXEC                     
   "ADDPOP ROW(0) COLUMN(0)"           
   "ISPEXEC DISPLAY PANEL(PANEL1)"     
   "REMPOP"                           
   RETURN                             
Back to top
View user's profile Send private message
PeD

Active User


Joined: 26 Nov 2005
Posts: 459
Location: Belgium

PostPosted: Fri Nov 02, 2007 2:14 am
Reply with quote

Please show more code; especially the calling parts.
I believe the problem stays before.

STMT 17 ??

If no more code before , then why a "RETURN" at line 10 ??
Back to top
View user's profile Send private message
senmainframe
Currently Banned

New User


Joined: 09 Oct 2007
Posts: 30
Location: USA

PostPosted: Fri Nov 02, 2007 2:22 am
Reply with quote

Hi,

Thats only my code. I am trying to call my panel (panel1) in this program.
For 1000_INITIALIZATION routine I am using RETURN, so once after executing this routine, next PANEL1 will execute.

Basically I am trying to call this panel by displaying welcome message. First time I am trying with panel. I dono why I am getting that error. I am not able to crack that one.
Back to top
View user's profile Send private message
senmainframe
Currently Banned

New User


Joined: 09 Oct 2007
Posts: 30
Location: USA

PostPosted: Fri Nov 02, 2007 2:28 am
Reply with quote

If I put /* REXX */ at the top, it is not showing any error and it is not displaying anything in the screen.
Back to top
View user's profile Send private message
PeD

Active User


Joined: 26 Nov 2005
Posts: 459
Location: Belgium

PostPosted: Fri Nov 02, 2007 2:44 am
Reply with quote

remove the 1000_INI..... the return and replace the last return by an EXIT.

You can also execute a first statement TRACE I to trace ( obviously ).

Have a try

Cheers
Pierre
Back to top
View user's profile Send private message
PeD

Active User


Joined: 26 Nov 2005
Posts: 459
Location: Belgium

PostPosted: Fri Nov 02, 2007 2:48 am
Reply with quote

Code:
/*   REXX   */                                                               
TRACE I                                                                     
CALL 100_INIT                                                               
CALL PANEL1
EXIT                                                                 
100_INIT:                                                                   
ADDRESS ISPEXEC                                                             
"ISPEXEC LIBDEF ISPPLIB
 DATASET ID ('CAA1035.REXX.PANEL') UNCOND "     
RETURN                                                                       
                                                                   
PANEL1:                                                                     
ADDRESS ISPEXEC                                                             
 "ADDPOP ROW(0) COLUMN(0)"                                                   
 "ISPEXEC DISPLAY PANEL(PANEL1)"                                           
 "REMPOP"                                                                   
 RETURN                                                                     
 


You know you are using a POP Panel?
Back to top
View user's profile Send private message
senmainframe
Currently Banned

New User


Joined: 09 Oct 2007
Posts: 30
Location: USA

PostPosted: Sat Nov 03, 2007 1:12 am
Reply with quote

Pierre,

Thank you very much.

I know I am using POP panel by using REMPOP command.

Trace command is showing upto which line it went fine


3 *-* CALL 100_INIT
6 *-* 100_INIT:
7 *-* ADDRESS ISPEXEC
8 *-* "ISPEXEC LIBDEF ISPPLIB DATASET ID ('CAA1035.REXX.PANEL') UNCOND "
>L> "ISPEXEC LIBDEF ISPPLIB DATASET ID ('CAA1035.REXX.PANEL') UNCOND
"
9 *-* RETURN
4 *-* CALL PANEL1
11 *-* PANEL1:
12 *-* ADDRESS ISPEXEC
13 *-* "ADDPOP ROW(0) COLUMN(0)"
>L> "ADDPOP ROW(0) COLUMN(0)"
14 *-* "ISPEXEC DISPLAY PANEL(PANEL1)"
>L> "ISPEXEC DISPLAY PANEL(PANEL1)"
***

then I am getting following error.


Code:

*************************************
* ISPP130                                                           
*                                                                       
* Panel 'PANEL1' error                                                   
* A panel section is out of order or
has already been defined.           
*                                                                         
*                                                                         
*                                                                           
*                                                                       
*                                                                         
*                                                                           
* Panel line where error was detected:             
* )ATTR                                                       
*                                                             
* Enter HELP command for further information regarding this error.   
* Press ENTER key to terminate the dialog.                 
 
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10833
Location: italy

PostPosted: Sat Nov 03, 2007 1:24 am
Reply with quote

Unless You dropped something when cutting/pasting

the panel should start with
Code:
)panel
Back to top
View user's profile Send private message
senmainframe
Currently Banned

New User


Joined: 09 Oct 2007
Posts: 30
Location: USA

PostPosted: Sat Nov 03, 2007 1:30 am
Reply with quote

Yea I used )panel only. When copying I missed ). Still I am hitting the same error. icon_cry.gif
Back to top
View user's profile Send private message
superk

Global Moderator


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

PostPosted: Sat Nov 03, 2007 1:52 am
Reply with quote

The attributes following the )ATTR tag are supposed to be indented. Copy in one of the ATTR section models and see what I mean.
Back to top
View user's profile Send private message
senmainframe
Currently Banned

New User


Joined: 09 Oct 2007
Posts: 30
Location: USA

PostPosted: Sat Nov 03, 2007 2:25 am
Reply with quote

Could you explain more on this?
Back to top
View user's profile Send private message
Mickeydusaor

Active User


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

PostPosted: Sat Nov 03, 2007 3:51 am
Reply with quote

if you do as Enrico stated.. )PANEL KEYLIST(ISPSAB) it work just as is...
Back to top
View user's profile Send private message
sreekanth.sama

New User


Joined: 05 Sep 2007
Posts: 6
Location: bangalore

PostPosted: Sat Nov 03, 2007 4:40 am
Reply with quote

Hi..
I am not sure whether your problem is resolved or not. But i just tried the same code, but i put as )PANEL in my first line of the panel definition. It went fine for me..

Thanks,
Sreeks
Back to top
View user's profile Send private message
senmainframe
Currently Banned

New User


Joined: 09 Oct 2007
Posts: 30
Location: USA

PostPosted: Sat Nov 03, 2007 6:30 am
Reply with quote

It is not resolved for me, even I given )PANEL in my first line.

Do you have any idea whether I need to setp any library for this panel.
when I checked TSO DDRSN. My panel library is available in ISPPEXEC.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Sat Nov 03, 2007 4:21 pm
Reply with quote

May I suggest allocating the library where the panel resides into ISPPLIB

The syntax is above in the example given by PeD
Back to top
View user's profile Send private message
senmainframe
Currently Banned

New User


Joined: 09 Oct 2007
Posts: 30
Location: USA

PostPosted: Mon Nov 05, 2007 8:36 pm
Reply with quote

I allocated my panel library in ISPPLIB by using the following command. Still getting the same error.


Code:
ADDRESS ISPEXEC                                                     
"ISPEXEC LIBDEF ISPPLIB
DATASET ID ('CAA1035.REXX.PANEL') UNCOND " 



when I do TSO ISRDDN command, I didnt my my panel library listed over there. I dono how to proceed hereafter. Any idea to resolve this.

Code:
AF2R11   SHR,KEEP   >    ISPLLIB  SYS1.SISPLOAD                     
AF2R11   SHR,KEEP   >             SYS1.SISPSASC                     
AF2R11   SHR,KEEP   >             SYS1.SGIMLMD0                     
AF2R11   SHR,KEEP   >             SYS1.DGTLLIB                       
AF2R11   SHR,KEEP   >             SYS1.DFQLLIB                       
AF2R11   SHR,KEEP   >             SYS1.DGTLLIB                       
AF2R11   SHR,KEEP   >             SYS1.SCBDHENU                     
DB2AX2   SHR,KEEP   >             DUD1AXT.RUNLIB.LOAD               
DB2AX2   SHR,KEEP   >             DUD1AXT.DSQLOAD                   
DB2AX1   SHR,KEEP   >             SYS1.AXA.DSNEXIT                   
DB2AX1   SHR,KEEP   >             SYS1.AXA.DSNLOAD                   
DMST02   SHR,KEEP   >             BPRA.JAQC.LOADB           
Back to top
View user's profile Send private message
Mickeydusaor

Active User


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

PostPosted: Mon Nov 05, 2007 8:42 pm
Reply with quote

if this is not your user id CAA1035, then remove the quotes and change the UNCOND to STACK
Back to top
View user's profile Send private message
senmainframe
Currently Banned

New User


Joined: 09 Oct 2007
Posts: 30
Location: USA

PostPosted: Mon Nov 05, 2007 8:49 pm
Reply with quote

CAA1035 is my user-id, I want my REXX panel to be exectuted from this library.
Back to top
View user's profile Send private message
Mickeydusaor

Active User


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

PostPosted: Mon Nov 05, 2007 8:59 pm
Reply with quote

If that is your TSO USERID() then it would work, the ISRDDN display
you showed is for ISPLLIB which is for executable load modules.
You need to be looking at what is defined for ISPPLIB.



ISPPLIB ,HWDX940.SED.ISPPLIB
,HR.DHSPROD1.PLIB
,HR.DHS.Z14.PLIB
,HR.DHS.PLIB
,ISP.SISPPENU
,SYS1.SBPXPENU
,SYS1.DGTPLIB
,ISF.SISFPLIB
,CBC.SCBCPNL
[/list]
Back to top
View user's profile Send private message
PeD

Active User


Joined: 26 Nov 2005
Posts: 459
Location: Belgium

PostPosted: Mon Nov 05, 2007 9:04 pm
Reply with quote

Please post again the complete code of your panel.
Back to top
View user's profile Send private message
senmainframe
Currently Banned

New User


Joined: 09 Oct 2007
Posts: 30
Location: USA

PostPosted: Mon Nov 05, 2007 9:07 pm
Reply with quote

My panel code is as follows,


Code:
)PANEL KEYLIST(ISPSAB)                                   
)ATTR                                                     
   ! TYPE(TEXT) COLOR(YELLOW) INTENS(LOW)  CAPS(OFF)     
   # TYPE(TEXT) COLOR(BLUE)   INTENS(HIGH) CAPS(OFF)     
   * TYPE(TEXT) COLOR(GREEN)  INTENS(HIGH) SKIP(ON)       
   $ TYPE(TEXT) COLOR(TURQ)   INTENS(HIGH) CAPS(OFF)     
   % TYPE(TEXT) COLOR(RED)    INTENS(HIGH) CAPS(OFF)     
)BODY EXPAND(//) WINDOW(72,20)                           
 #                                                       
 #                                                       
 #                                                       
 #                                                       
 #                                                       
 #                                                       
 #                                                       
 #                                                       
 %/-/                                                     
 #/-/ SENTHILNATHAN            - WELCOME TO THE MENU       /-/       
 !/ / POS HISTORY EXTRACTION   - AUTOMATION TOOL/ /                   
 %/-/                                                                 
 $                                        PRESS ANY TO CONTINUE....   
 #                                                                   
 #                                                                   
)END                                                                 




any mistake/worng sytanx in this code?
Back to top
View user's profile Send private message
PeD

Active User


Joined: 26 Nov 2005
Posts: 459
Location: Belgium

PostPosted: Mon Nov 05, 2007 9:23 pm
Reply with quote

I copied your rexx and your panel in my librairies.
I run the rexx with EXEC in front of the member.
It is working fine.

So please rerun and tell exactly the error message.
Back to top
View user's profile Send private message
senmainframe
Currently Banned

New User


Joined: 09 Oct 2007
Posts: 30
Location: USA

PostPosted: Mon Nov 05, 2007 9:28 pm
Reply with quote

when I am trying to execute the above REXX panel code by using the following rexx code. Getting the following error exactly
Code:
/*   REXX   */                                                         
TRACE I                                                               
CALL 100_INIT                                                         
CALL PANEL1                                                           
EXIT                                                                   
100_INIT:                                                             
ADDRESS ISPEXEC                                                       
"ISPEXEC LIBDEF ISPPLIB DATASET ID ('CAA1035.REXX.PANEL')  UNCOND "   
RETURN                                                                 
                                                                       
PANEL1:                                                               
ADDRESS ISPEXEC                                                       
 "ADDPOP ROW(0) COLUMN(0)"                                             
 "ISPEXEC DISPLAY PANEL(PANEL1)"                                       
 "REMPOP"                                                             
 RETURN                               



Code:
  3 *-* CALL 100_INIT           
     6 *-*  100_INIT:             
     7 *-*  ADDRESS ISPEXEC       
***                               
      8 *-*  "ISPEXEC LIBDEF ISPPLIB DATASET ID ('CAA1035.REXX.PANEL')  UNCOND "
        >L>    "ISPEXEC LIBDEF ISPPLIB DATASET ID ('CAA1035.REXX.PANEL')  UNCOND
  "                                                                             
      9 *-*  RETURN                                                             
      4 *-* CALL PANEL1                                                         
     11 *-*  PANEL1:                                                           
     12 *-*  ADDRESS ISPEXEC                                                   
     13 *-*  "ADDPOP ROW(0) COLUMN(0)"                                         
        >L>    "ADDPOP ROW(0) COLUMN(0)"                                       
     14 *-*  "ISPEXEC DISPLAY PANEL(PANEL1)"                                   
        >L>    "ISPEXEC DISPLAY PANEL(PANEL1)"                                 
 ***                   

Code:
******************************************************************************
* ISPP130                                                                    *
*                                                                            *
* Panel 'PANEL1' error                                                       *
* A panel section is out of order or has already been defined.               *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
* Panel line where error was detected:                                       *
* )ATTR                                                                      *
*                                                                            *
* Enter HELP command for further information regarding this error.           *
* Press ENTER key to terminate the dialog.                                   *
*                                                                            *
*                                                                            *
*                                                                            *                                                         
Back to top
View user's profile Send private message
PeD

Active User


Joined: 26 Nov 2005
Posts: 459
Location: Belgium

PostPosted: Mon Nov 05, 2007 9:38 pm
Reply with quote

attributes of 'CAA1035.REXX.PANEL'?
Nothing to the right ??
Back to top
View user's profile Send private message
senmainframe
Currently Banned

New User


Joined: 09 Oct 2007
Posts: 30
Location: USA

PostPosted: Mon Nov 05, 2007 10:03 pm
Reply with quote

Attributes of CAA1035.REXX.PANEL is


Code:
Data Set Name . . . . : CAA1035.REXX.PANEL                                 
                                                                           
General Data                           Current Allocation                 
 Management class . . : POTST1MC        Allocated cylinders : 1           
 Storage class  . . . : PGSC            Allocated extents . : 1           
  Volume serial . . . : DMST02                                             
  Device type . . . . : 3390                                               
 Data class . . . . . : **None**       Current Utilization                 
  Organization  . . . : PO              Used cylinders  . . : 1           
  Record format . . . : FB              Used extents  . . . : 1           
  Record length . . . : 80                                                 
  Block size  . . . . : 8000                                               
  1st extent cylinders: 1                                                 
  Secondary cylinders : 5                                                 
  Data set name type  : PDS                                               
                                                                           
  Creation date . . . : 2007/11/01      Referenced date . . : 2007/11/05   
  Expiration date . . : ***None***                                         
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF Goto page 1, 2  Next

 


Similar Topics
Topic Forum Replies
No new posts I need a 4 lines block where substrin... DFSORT/ICETOOL 1
No new posts SRCHFOR ‘string’ command inside P... TSO/ISPF 6
No new posts Jes2 command output All Other Mainframe Topics 4
No new posts Issue with EXEC CICS QUERY SECURITY c... CICS 6
No new posts dsnrexx fails without error message CLIST & REXX 9
Search our Forums:

Back to Top