Page 4 of 5

Re: How to resolve ISPN104 error in ISPF?

PostPosted: Wed Nov 28, 2012 1:03 am
by mainframegeek
Pedro wrote:
TSO EXEC 'XT.MNP121.PNL(XSTN009)''DEBUG'

another example of needing a delimiter between objects. You need a blank before 'DEBUG'


Pedro, in starting of my previous post, Firstly i tried with the space between object '(XSTN009)' and 'DEBUG'. But it threw the error. Both ways i tried, giving a space or without space.

Below mentioned is the statement in which LIBDEF is used.
I have changed DETTBLDS in clist.

Earlier it was like
SET &DETTBLDS = &STR(XT.XRTS.TABLOUT1) 
SET &SECTBLDS = &STR(SYS4.XEVL.TABLOUT) 

Later
SET &DETTBLDS = &STR(XT.XRTS.COMMON.DISK.TABLOUT1
SET &SECTBLDS = &STR(SYS4.XEVL.TABLOUT) 


Code present in the program XRTS2600 is given below.

WS-DATASET = DATASET
ISPF-LIBDEF  = LIBDEF
WS-ISPTLIB =  ISPTLIB
DETTBLDS =XT.XRTS.COMMON.DISK.TABLOUT1
SECTBLDS =SYS4.DEVL.TABLOUT


STRING '('                 DELIMITED BY SIZE 
       QUOTE               DELIMITED BY SIZE 
       DETTBLDS            DELIMITED BY SPACES
       QUOTE               DELIMITED BY SIZE 
       ' '                 DELIMITED BY SIZE 
       QUOTE               DELIMITED BY SIZE 
       SECTBLDS            DELIMITED BY SPACES
       QUOTE               DELIMITED BY SIZE 
       ')'                 DELIMITED BY SIZE 
           INTO            WS-DSN-LIST.       
CALL 'ISPLINK' USING ISPF-LIBDEF WS-ISPTLIB WS-DATASET
                     WS-DSN-LIST.                     


Let me try the option 7.8, i will update soon.

Re: How to resolve ISPN104 error in ISPF?

PostPosted: Wed Nov 28, 2012 1:12 am
by mainframegeek
Pedro, I tried 7.8 option. I got the below mentioned error.

Esssssssssssssssssssssssssssssss Dialog Test ssssssssssssssssssssssssssssssssN
e   Menu  Save  Utilities  Help                                              e
e sssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss  e
e                  Invoke Dialog Function/Selection Panel                    e
e Command ===>                                                               e
e                                                               More:     +  e
e Invoke selection panel:                                                    e
e    PANEL  . .                                                              e
e    OPT  . . .                                                              e
e                                                                            e
e                                                                            e
e Invoke command:                                                            e
e    CMD  . . . TSO EXEC 'XT.MNP121.PNL(XSTN009)'                          e
e                                                                            e
e    LANG . . .                       (APL, CREX, or blank)                  e
e    MODE . . .                       (LINE, FSCR, or blank)                 e
e                                                                            e
e Invoke program:                                                            e
e    PGM  . . .                                                              e
e    PARM . . .                                                              e
e  F1=Help        F2=Split       F3=Exit        F4=Expand      F5=Rfind      e
e  F6=Resize      F7=Backward    F8=Forward     F9=Swap       F10=Actions    e
DssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssM
                                                                             
                                                                             
 Options:                                                                     
 IKJ56500I COMMAND TSO NOT FOUND                                             
 ***                                                                     


ISPD223                                           
                                                   
Invalid command                                   
Command 'TSO' not found or contains invalid syntax.

Re: How to resolve ISPN104 error in ISPF?

PostPosted: Wed Nov 28, 2012 2:29 am
by Pedro
Remove the TSO and only issue: EXEC 'XT.MNP121.PNL(XSTN009)'

Re: How to resolve ISPN104 error in ISPF?

PostPosted: Wed Nov 28, 2012 4:01 am
by Pedro
Earlier it was like
SET &DETTBLDS = &STR(XT.XRTS.TABLOUT1)
Later
SET &DETTBLDS = &STR(XT.XRTS.COMMON.DISK.TABLOUT1


Could it be as simple as a missing parenthesis? You do not show that statement in the clist that you presented to us. It is hard to help you when you do not provide the actual failing code.



Firstly i tried with the space between object '(XSTN009)' and 'DEBUG'. But it threw the error. Both ways i tried, giving a space or without space.

Secondly, I do not think you received the same error with the space.

Re: How to resolve ISPN104 error in ISPF?

PostPosted: Wed Nov 28, 2012 11:06 pm
by mainframegeek
Actually the error is due to change in environment, earlier the cobol program which was called from clist was in changeman and now its in endeavour.
WS-DATASET = DATASET
ISPF-LIBDEF  = LIBDEF
WS-ISPTLIB =  ISPTLIB
DETTBLDS =XT.XRTS.COMMON.DISK.TABLOUT1
SECTBLDS =SYS4.DEVL.TABLOUT


STRING '('                 DELIMITED BY SIZE
       QUOTE               DELIMITED BY SIZE
       DETTBLDS            DELIMITED BY SPACES
       QUOTE               DELIMITED BY SIZE
       ' '                 DELIMITED BY SIZE
       QUOTE               DELIMITED BY SIZE
       SECTBLDS            DELIMITED BY SPACES
       QUOTE               DELIMITED BY SIZE
       ')'                 DELIMITED BY SIZE
           INTO            WS-DSN-LIST.       
CALL 'ISPLINK' USING ISPF-LIBDEF WS-ISPTLIB WS-DATASET
                     WS-DSN-LIST.                     


In the string statement its is passing the dataset as "XT.XRTS.COMMON.DISK.TABLOUT1" but its expected as "'XT.XRTS.COMMON.DISK.TABLOUT1'". I changed it and executed the clist.
Thanks Pedro and peter for guiding me.

Re: How to resolve ISPN104 error in ISPF?

PostPosted: Thu Nov 29, 2012 1:09 am
by NicC
I very much doubt that it has anything to do with a move from Changeman to Endevor.

Re: How to resolve ISPN104 error in ISPF?

PostPosted: Thu Nov 29, 2012 11:22 pm
by dick scherrer
Hello,

Unless the environments are not compatible. . .

Re: How to resolve ISPN104 error in ISPF?

PostPosted: Fri Nov 30, 2012 2:11 pm
by NicC
The environment is still mainframe COBOL - the UNSTRING shown being COBOL and not CLIST

Re: How to resolve ISPN104 error in ISPF?

PostPosted: Fri Nov 30, 2012 11:21 pm
by dick scherrer
Yup, but i wonder if due to inconsistent implementations, the code sent to the compiler is not the same . . .

d

Re: How to resolve ISPN104 error in ISPF?

PostPosted: Fri Nov 30, 2012 11:46 pm
by Peter_Mann
I'm wondering since the OP never was able to or wanted to provide diagnostics from the DIALOG TEST or the DEBUG that the issue may be as simple as a different ISPF enviorment for each NEWAPPL ?
I know in Changeman creates a new APPL env
NEWAPPL(CMN&SS) NEWPOOL PASSLIB MODE(FSCR) SCRNAME(CMN&SS)
if he's expecting variable from a pool, profile or shared, that's not in his new enviorment, and the clist is not doing any error checking for a syntactically (Sp/fxd) correct or valid dataset, could throw an error
just a thought