View previous topic :: View next topic
|
Author |
Message |
senmainframe Currently Banned New User
Joined: 09 Oct 2007 Posts: 30 Location: USA
|
|
|
|
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 |
|
|
PeD
Active User
Joined: 26 Nov 2005 Posts: 459 Location: Belgium
|
|
|
|
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 |
|
|
senmainframe Currently Banned New User
Joined: 09 Oct 2007 Posts: 30 Location: USA
|
|
|
|
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 |
|
|
senmainframe Currently Banned New User
Joined: 09 Oct 2007 Posts: 30 Location: USA
|
|
|
|
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 |
|
|
PeD
Active User
Joined: 26 Nov 2005 Posts: 459 Location: Belgium
|
|
|
|
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 |
|
|
PeD
Active User
Joined: 26 Nov 2005 Posts: 459 Location: Belgium
|
|
|
|
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 |
|
|
senmainframe Currently Banned New User
Joined: 09 Oct 2007 Posts: 30 Location: USA
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10888 Location: italy
|
|
|
|
Unless You dropped something when cutting/pasting
the panel should start with
|
|
Back to top |
|
|
senmainframe Currently Banned New User
Joined: 09 Oct 2007 Posts: 30 Location: USA
|
|
|
|
Yea I used )panel only. When copying I missed ). Still I am hitting the same error. |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
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 |
|
|
senmainframe Currently Banned New User
Joined: 09 Oct 2007 Posts: 30 Location: USA
|
|
|
|
Could you explain more on this? |
|
Back to top |
|
|
Mickeydusaor
Active User
Joined: 24 May 2006 Posts: 258 Location: Salem, Oregon
|
|
|
|
if you do as Enrico stated.. )PANEL KEYLIST(ISPSAB) it work just as is... |
|
Back to top |
|
|
sreekanth.sama
New User
Joined: 05 Sep 2007 Posts: 6 Location: bangalore
|
|
|
|
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 |
|
|
senmainframe Currently Banned New User
Joined: 09 Oct 2007 Posts: 30 Location: USA
|
|
|
|
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 |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8796 Location: Welsh Wales
|
|
|
|
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 |
|
|
senmainframe Currently Banned New User
Joined: 09 Oct 2007 Posts: 30 Location: USA
|
|
|
|
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 |
|
|
Mickeydusaor
Active User
Joined: 24 May 2006 Posts: 258 Location: Salem, Oregon
|
|
|
|
if this is not your user id CAA1035, then remove the quotes and change the UNCOND to STACK |
|
Back to top |
|
|
senmainframe Currently Banned New User
Joined: 09 Oct 2007 Posts: 30 Location: USA
|
|
|
|
CAA1035 is my user-id, I want my REXX panel to be exectuted from this library. |
|
Back to top |
|
|
Mickeydusaor
Active User
Joined: 24 May 2006 Posts: 258 Location: Salem, Oregon
|
|
|
|
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 |
|
|
PeD
Active User
Joined: 26 Nov 2005 Posts: 459 Location: Belgium
|
|
|
|
Please post again the complete code of your panel. |
|
Back to top |
|
|
senmainframe Currently Banned New User
Joined: 09 Oct 2007 Posts: 30 Location: USA
|
|
|
|
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 |
|
|
PeD
Active User
Joined: 26 Nov 2005 Posts: 459 Location: Belgium
|
|
|
|
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 |
|
|
senmainframe Currently Banned New User
Joined: 09 Oct 2007 Posts: 30 Location: USA
|
|
|
|
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 |
|
|
PeD
Active User
Joined: 26 Nov 2005 Posts: 459 Location: Belgium
|
|
|
|
attributes of 'CAA1035.REXX.PANEL'?
Nothing to the right ?? |
|
Back to top |
|
|
senmainframe Currently Banned New User
Joined: 09 Oct 2007 Posts: 30 Location: USA
|
|
|
|
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 |
|
|
|