Panel 'INDXSCR' error, Panel Not Found

diwa_thilak · Posted: Thu Feb 08, 2007 5:46 pm

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

cpuhawg · Posted: Thu Feb 08, 2007 6:48 pm

Do you have the panel library defined in your REXX?

ofer71 · Posted: Thu Feb 08, 2007 6:51 pm

You can type the LIBDEF ISPPLIB in 7.6 screen, just before 7.2.

O.

diwa_thilak · Posted: Fri Feb 09, 2007 4:34 pm

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

ofer71 · Posted: Fri Feb 09, 2007 9:51 pm

Have you tried the fine manual???

It looks like you want us to teach you the basics...

O.

diwa_thilak · Posted: Sat Feb 10, 2007 10:18 am

Thanks ofer..

The manually really helped a lot....

ug123 · 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

superk · Posted: Thu Mar 01, 2007 8:41 pm

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?

ofer71 · Posted: Fri Mar 02, 2007 12:29 am

ISFEPAN4 sounds to me like an SDSF panel...

O.

Mickeydusaor · Posted: Fri Mar 02, 2007 9:01 pm

It is an SDSF panel

ug123 · 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

Mickeydusaor · Posted: Mon Mar 05, 2007 8:33 pm

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"

ug123 · 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...

ofer71 · Posted: Thu Mar 08, 2007 12:12 am

Have you tried running it with TRACE I?

O.

Mickeydusaor · Posted: Thu Mar 08, 2007 12:39 am

You also need to add the following command to make this work.

"ISREDIT END"