View previous topic :: View next topic
|
Author |
Message |
diwa_thilak
Active User
Joined: 13 Jul 2006 Posts: 205 Location: At my desk
|
|
|
|
Hi Friends,
I have designed a panel and when i try to compile the program using ISPF option 7.2, i am getting the following error message.
* ISPP100 *
* *
* Panel 'INDXSCR' error *
* Panel not found. *
INDXSCR is name of the panel and the panel is available in my personnel dataset SPM444.TEST.PANEL.
Then i tried updating my CLIST with the PDS member name.
But still i could not resolve this error.
Any suggestions ?
Thanks,
Diwakar
Nobody is perfect i am Nobody |
|
Back to top |
|
|
cpuhawg
Active User
Joined: 14 Jun 2006 Posts: 331 Location: Jacksonville, FL
|
|
|
|
Do you have the panel library defined in your REXX?
Code: |
ADDRESS ISPEXEC "LIBDEF ISPPLIB DATASET ID('SPM444.TEST.PANEL')"
|
|
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
You can type the LIBDEF ISPPLIB in 7.6 screen, just before 7.2.
O. |
|
Back to top |
|
|
diwa_thilak
Active User
Joined: 13 Jul 2006 Posts: 205 Location: At my desk
|
|
|
|
Hi,
When i tried executing the above command i am getting the following error message.
Service RC = 4.
Please let me know to execute the panel ?
I have the following doubts.
1. Is there restrictions for the LRECL (for panel) ?
2. Is there restriction that the panel should start @ specified cols.
Thanks,
Diwakar
Nobody is perfect. I am Nobody |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
Have you tried the fine manual???
It looks like you want us to teach you the basics...
O. |
|
Back to top |
|
|
diwa_thilak
Active User
Joined: 13 Jul 2006 Posts: 205 Location: At my desk
|
|
|
|
Thanks ofer..
The manually really helped a lot.... |
|
Back to top |
|
|
ug123 Warnings : 1 New User
Joined: 01 Mar 2007 Posts: 39 Location: Chennai
|
|
|
|
Hi all,
I too have the same problem but with different panel error name
Im running the rexx tool using a command
My scenario is like this
Im going to comment a set of lines at a time for a jcl by giving a single command in the command line. It will invoke a panel and the panel will get the input as 'J' for JCL and it will comment the selected lines
Problem is if I open the jcl from a pds member im not getting this error, but if I open the jcl from the spool (using sj), similarly it will invoke the panel and the control will go back to the program, but it will throw the panel error. The following is the error that im getting.
ISPP100
Panel 'ISFEPAN4' error
Panel not found.
Enter HELP command for further information regarding this error.
Press ENTER key to terminate the dialog.
Below is the part of rexx code that I coded for panel description
Code: |
MYLIB = 'BOST.NBK2YYK.REXX.PANELS'
"ISPEXEC LIBDEF ISPPLIB DATASET ID('"MYLIB"')"
"ISPEXEC DISPLAY PANEL(COMTPANL)" /*DISPLAYS
|
And my panel looks like this
Code: |
)ATTR DEFAULT(%+_)
_ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(RED)
# TYPE(TEXT) INTENS(HIGH) COLOR(GREEN)
? TYPE(TEXT) INTENS(HIGH) COLOR(WHITE)
)BODY
.
.
.
.
)INIT
)PROC
VER (&COMT,NB,ALPHAB)
)END
|
Thanks,
Ugandar |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
If your code specifes this:
"ISPEXEC DISPLAY PANEL(COMTPANL)"
meaning that your panel name is COMTPANL, then why is the message stating:
Panel 'ISFEPAN4' error
Panel not found.
Where is the panel name ISFEPAN4 coming from? |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
ISFEPAN4 sounds to me like an SDSF panel...
O. |
|
Back to top |
|
|
Mickeydusaor
Active User
Joined: 24 May 2006 Posts: 258 Location: Salem, Oregon
|
|
|
|
It is an SDSF panel |
|
Back to top |
|
|
ug123 Warnings : 1 New User
Joined: 01 Mar 2007 Posts: 39 Location: Chennai
|
|
|
|
I dont know whether it's an sdsf panel or not. But my panel name is 'COMTPANL'
I have n't used sdsf panel but i dont know how it is coming
Any other way to handle sdsf panel error
Thanks,
Ugandar |
|
Back to top |
|
|
Mickeydusaor
Active User
Joined: 24 May 2006 Posts: 258 Location: Salem, Oregon
|
|
|
|
If you will use the save and restore commands it might solve your problem.
"CONTROL DISPLAY SAVE"
"ISPEXEC DISPLAY PANEL(COMTPANL)" /*DISPLAYS */
"CONTROL DISPLAY RESTORE" |
|
Back to top |
|
|
ug123 Warnings : 1 New User
Joined: 01 Mar 2007 Posts: 39 Location: Chennai
|
|
|
|
Thanks Mickey but still my problem is not yet solved
I will send my code, anyone try this and solve my problem please
This is my code...
/*REXX*/
/*COMMENTS SINGLE LINE OR BLOCK OF LINES AT A TIME*/
'ISREDIT MACRO NOPROCESS'
'ISPEXEC CONTROL ERRORS RETURN'
'ISREDIT PROCESS RANGE S'
IF RC ?= 0 THEN /*CHECKS FOR OUT OF RANGE*/
DO;
ZEDSMSG='COMMAND CONFLICT'
"ISPEXEC SETMSG MSG(ISRE046)"
EXIT
END;
'ISREDIT (FLIN) = LINENUM .ZFRANGE'
'ISREDIT (LLIN) = LINENUM .ZLRANGE'
MYLIB = 'BOST.NBK2YYK.REXX.PANELS'
"ISPEXEC LIBDEF ISPPLIB DATASET ID('"MYLIB"')"
"ISPEXEC CONTROL DISPLAY SAVE"
"ISPEXEC DISPLAY PANEL(COMTPANL)" /*DISPLAY PANELS*/
"ISPEXEC CONTROL DISPLAY RESTORE"
SAY RC
DO WHILE FLIN <= LLIN
'ISREDIT (ROW) = LINE &FLIN'
IF COMT = 'J' THEN
DO
ROW = ('//*'||ROW)
END
ELSE IF COMT = 'C' THEN
DO
ROW = OVERLAY('*',ROW,7)
END
ELSE IF COMT = '' THEN
SAY 'OPTION IS NOT SPECIFIED'
ELSE SAY 'INVALID OPTION'
'ISREDIT LINE &FLIN = (ROW)'
FLIN = FLIN + 1
END
This is my panel...
)ATTR DEFAULT(%+_)
_ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) COLOR(RED)
# TYPE(TEXT) INTENS(HIGH) COLOR(GREEN)
? TYPE(TEXT) INTENS(HIGH) COLOR(WHITE)
)BODY
# +
#********************************************************
#*+ #*
#*+ #*
#*+ #*
#*+ #*
#*+ #-------------------------------------------------- #*
#*+ # SIMPLE WAY TO COMMENT JCL OR COBOL #*
#*+ #-------------------------------------------------- +#*
#*+ #*
#*+ #ENTER J FOR JCL COMMENT +#*
#*+ +#*
#*+ #ENTER C FOR COBOL COMMENT #*
#*+ #*
#*+ #OPTION _COMT #*
#*+ #*
#*+ #*
#*+ #*
#*+ #*
#*+ +PRESS ENTER TO CONTINUE,PF3 TO EXIT #*
#*+ #*
#********************************************************
# +
)INIT
)PROC
VER (&COMT,NB,ALPHAB)
)END
Thanks,
Ugandar... |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
Have you tried running it with TRACE I?
O. |
|
Back to top |
|
|
Mickeydusaor
Active User
Joined: 24 May 2006 Posts: 258 Location: Salem, Oregon
|
|
|
|
You also need to add the following command to make this work.
"ISREDIT END" |
|
Back to top |
|
|
|