How to resolve ISPN104 error in ISPF?



TSO Programming, ISPF, SDF, SDSF and PDF, FTP, TCP/IP Concepts, SNA & SNA/IP etc...

Re: How to resolve ISPN104 error in ISPF?

Postby Peter_Mann » Wed Nov 21, 2012 2:44 am

mainframegeek wrote:Actually while executing Clist using 6 option, the error has been thrown. Then i executed the panel separately, above given error thrown in panel.
I have a statement given below in the clist.
PROC 0 DEBUG()


You want me to put it like mentioned below?
 
PROC 0 DEBUG()
CONTROL PROMPT NOFLUSH MSG CONLIST SYMLIST LIST                                                   
     
ISPEXEC CONTROL ERRORS RETURN

Am i right?

Actually if your PROC statement is as you provided you can do something like this to turn debugging on or off by executing the clist like:
CLISTNAME DEBUG
 PROC 0 DEBUG()
IF   &DEBUG   =  DEBUG    THEN -                           
CONTROL PROMPT NOFLUSH MSG CONLIST SYMLIST LIST END(ENDO)   
ELSE   -                                                   
CONTROL PROMPT NOFLUSH NOMSG END(ENDO)                     
ISPEXEC CONTROL ERRORS RETURN                               
Peter
Peter_Mann
 
Posts: 139
Joined: Fri Jun 24, 2011 7:37 pm
Location: Lowell,AR
Has thanked: 14 times
Been thanked: 3 times

Re: Re: How to resolve ISPN104 error in ISPF?

 

Re: How to resolve ISPN104 error in ISPF?

Postby mainframegeek » Fri Nov 23, 2012 5:47 pm

I used the code suggested by you in the previous post. Getting the below mentioned error.

IKJ56537I END OF FILE ON CLIST INPUT OCCURRED BEFORE ALL DO STMTS WERE CLOSED 
 IKJ56537I END OF FILE ON CLIST INPUT OCCURRED BEFORE ALL SELECT STMTS WERE CLOSED                                                                             
 IKJ56537I END OF FILE ON CLIST INPUT OCCURRED BEFORE ALL DO STMTS WERE CLOSED

Anyone help in resolving this?
mainframegeek
 
Posts: 35
Joined: Sun Sep 16, 2012 1:57 pm
Has thanked: 3 times
Been thanked: 0 time

Re: How to resolve ISPN104 error in ISPF?

Postby NicC » Fri Nov 23, 2012 5:58 pm

How about adding some ends at the correct places?
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 2690
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisys (almost)
Has thanked: 4 times
Been thanked: 105 times

Re: How to resolve ISPN104 error in ISPF?

Postby Peter_Mann » Fri Nov 23, 2012 9:05 pm

forgot to mention the END(ENDO) statment not needed for you, this caused your errors, unitl you change all your END statment to ENDO
the ENDO was just a standard for us.
Peter
Peter_Mann
 
Posts: 139
Joined: Fri Jun 24, 2011 7:37 pm
Location: Lowell,AR
Has thanked: 14 times
Been thanked: 3 times

Re: How to resolve ISPN104 error in ISPF?

Postby Peter_Mann » Fri Nov 23, 2012 9:22 pm

Peter_Mann wrote:forgot to mention the END(ENDO) statment not needed for you, this caused your errors, unitl you change all your END statment to ENDO
the ENDO was just a standard for us.

CORRECTION: unless you change all your END statment to ENDO
the ENDO was just a standard for us.
Peter
Peter_Mann
 
Posts: 139
Joined: Fri Jun 24, 2011 7:37 pm
Location: Lowell,AR
Has thanked: 14 times
Been thanked: 3 times

Re: How to resolve ISPN104 error in ISPF?

Postby mainframegeek » Fri Nov 23, 2012 9:54 pm

I have changed all END statements to ENDO. But getting the same error as before.

ISPN104                               
                                       
Invalid dsname list                   
Data set name(s) incorrectly specified.

What to do ?
Which DSN name is it targetting? there are many in the Clist.
mainframegeek
 
Posts: 35
Joined: Sun Sep 16, 2012 1:57 pm
Has thanked: 3 times
Been thanked: 0 time

Re: How to resolve ISPN104 error in ISPF?

Postby Peter_Mann » Fri Nov 23, 2012 10:19 pm

you are not providing any viable diagonistics, if you had debugging on, then you would have been able to step thru the clist and saw how variables and such get resolved, show some more info in your post of you need more assistance.
Peter
Peter_Mann
 
Posts: 139
Joined: Fri Jun 24, 2011 7:37 pm
Location: Lowell,AR
Has thanked: 14 times
Been thanked: 3 times

Re: How to resolve ISPN104 error in ISPF?

Postby mainframegeek » Mon Nov 26, 2012 11:40 pm

Peter, here is the clist.
PROC 0 DEBUG()                                           
IF   &DEBUG   =  DEBUG    THEN -                         
CONTROL PROMPT NOFLUSH MSG CONLIST SYMLIST LIST END(ENDO)
ELSE   -                                                 
CONTROL PROMPT NOFLUSH NOMSG END(ENDO)                   
ISPEXEC CONTROL ERRORS RETURN                           
IF &DEBUG = &STR(DEBUG) THEN +                           
  CONTROL NOFLUSH LIST SYMLIST CONLIST                   
ELSE +                                                   
    CONTROL NOFLUSH NOMSG MAIN                           
ERROR DO                                                       
     WRITE (&SYSICMD - &LASTCC) LAST COMMAND EXECUTED = &SYSPCMD
     WRITE (&SYSICMD - &LASTCC) ERROR IN EXECUTING CLIST       
     WRITE (&SYSICMD - &LASTCC) CALL MIS OKC IMMEDIATELY!!!!   
     CONTROL MAIN NOFLUSH                                       
     GOTO QUIT                                                 
     ENDO                                                       
ACFHTZ02                                                       
  SET &ACFAPPL = &SUBSTR(45:242,&ACFREC)                       
                     
  SET &GAREA = &SUBSTR(2:5,&ACFAREA)                           
  SET &GLOC = &SUBSTR(7:8,&ACFAREA)                             
  SET &GUSER = &SUBSTR(1:10,&STR(&ACFUSER.                  )   
  SET &GZONE = &SUBSTR(2:3,&ACFAREA)                           
  SET &USERCODE = &STR(&ACFUSER)                               
  SET &ACFARLOC = &STR(&GAREA&GLOC)                             
  ISPEXEC VPUT (ACFARLOC USERCODE ACFID ACFUSER SYSPROC) PROFILE
                                                               
  SELECT                                                       
    WHEN (&SYSPROC = &STR(FSTEST) ) +                           
           DO                                                   
            SET &ACFARLOC = &STR(023800)                       
            ISPEXEC VPUT (ACFARLOC) PROFILE                     
            SET &DETTBLDS = &STR(XT.XRTS.TABLOUT1) 
            SET &SECTBLDS = &STR(SYS4.XEVL.TABLOUT)             
           ENDO                                                 
                                                               
    WHEN (&SYSPROC = &STR(FSQUAL) ) +                           
           DO                                                   
            SET &DETTBLDS = &STR(XQ.XRTSD010.TABLOUT)     
            SET &SECTBLDS = &STR(SYS4.XEVL.TABLOUT)             
           ENDO                                                 
    WHEN  (&SYSPROC = &STR(FSPROD) ) +                           
           DO                                                   
            SET &DETTBLDS = &STR(XP.xRCOMMON.TABLOUT)       
            SET &SECTBLDS = &STR(xP.xRCOMMON.TABLOUT)   
           ENDO                                                 
  ENDO                                                           
  WRITE &DETTBLDS                                               
  WRITE &SYSPROC                                                 
  WRITE &SECTBLDS                                               
  ISPEXEC VPUT (DETTBLDS SECTBLDS) SHARED                       
  WRITE &SYSPROC                                                 

  WRITE &SYSPROC                                                 
ISPEXEC SELECT PGM(XRTSI010) PARM(XRTSI010&ACFID&SYSPROC)       
  WRITE &SYSPROC                                                 
  WRITE (&LASTCC) ERROR CODE1!                                   
  WRITE &SYSPROC                                                       
ISPEXEC SELECT PGM(XRTS2600)                                           
  WRITE &SYSPROC                                                       
  WRITE (&LASTCC) ERROR CODE2!                                         

  WRITE &SYSPROC                                                       
ISPEXEC SELECT PGM(XRTSI020) PARM(XRTSI020&ACFID&SYSPROC)               
  WRITE &SYSPROC                                                       
  WRITE (&LASTCC) ERROR CODE3!                                         
QUIT: +                                                                 
ERROR OFF                                                               
EXIT

Below mentioned is the error, which i am getting after executing clist.

Error
ISPN104                                 
                                       
Invalid dsname list                     
Data set name(s) incorrectly specified.

How to make it work?
mainframegeek
 
Posts: 35
Joined: Sun Sep 16, 2012 1:57 pm
Has thanked: 3 times
Been thanked: 0 time

Re: How to resolve ISPN104 error in ISPF?

Postby enrico-sorichetti » Mon Nov 26, 2012 11:57 pm

ACFHTZ02 


what is that ?
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2643
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 130 times

Re: How to resolve ISPN104 error in ISPF?

Postby Peter_Mann » Tue Nov 27, 2012 12:04 am

mainframegeek wrote:Peter, here is the clist.
PROC 0 DEBUG()                                           
IF   &DEBUG   =  DEBUG    THEN -                         
CONTROL PROMPT NOFLUSH MSG CONLIST SYMLIST LIST END(ENDO)
ELSE   -                                                 
CONTROL PROMPT NOFLUSH NOMSG END(ENDO)                   
ISPEXEC CONTROL ERRORS RETURN                           
IF &DEBUG = &STR(DEBUG) THEN +                           
  CONTROL NOFLUSH LIST SYMLIST CONLIST                   
ELSE +                                                   
    CONTROL NOFLUSH NOMSG MAIN                           
ERROR DO                                                       
     WRITE (&SYSICMD - &LASTCC) LAST COMMAND EXECUTED = &SYSPCMD
     WRITE (&SYSICMD - &LASTCC) ERROR IN EXECUTING CLIST       
     WRITE (&SYSICMD - &LASTCC) CALL MIS OKC IMMEDIATELY!!!!   
     CONTROL MAIN NOFLUSH                                       
     GOTO QUIT                                                 
     ENDO                                                       
ACFHTZ02                                                       
  SET &ACFAPPL = &SUBSTR(45:242,&ACFREC)                       
                     
  SET &GAREA = &SUBSTR(2:5,&ACFAREA)                           
  SET &GLOC = &SUBSTR(7:8,&ACFAREA)                             
  SET &GUSER = &SUBSTR(1:10,&STR(&ACFUSER.                  )   
  SET &GZONE = &SUBSTR(2:3,&ACFAREA)                           
  SET &USERCODE = &STR(&ACFUSER)                               
  SET &ACFARLOC = &STR(&GAREA&GLOC)                             
  ISPEXEC VPUT (ACFARLOC USERCODE ACFID ACFUSER SYSPROC) PROFILE
                                                               
  SELECT                                                       
    WHEN (&SYSPROC = &STR(FSTEST) ) +                           
           DO                                                   
            SET &ACFARLOC = &STR(023800)                       
            ISPEXEC VPUT (ACFARLOC) PROFILE                     
            SET &DETTBLDS = &STR(XT.XRTS.TABLOUT1) 
            SET &SECTBLDS = &STR(SYS4.XEVL.TABLOUT)             
           ENDO                                                 
                                                               
    WHEN (&SYSPROC = &STR(FSQUAL) ) +                           
           DO                                                   
            SET &DETTBLDS = &STR(XQ.XRTSD010.TABLOUT)     
            SET &SECTBLDS = &STR(SYS4.XEVL.TABLOUT)             
           ENDO                                                 
    WHEN  (&SYSPROC = &STR(FSPROD) ) +                           
           DO                                                   
            SET &DETTBLDS = &STR(XP.xRCOMMON.TABLOUT)       
            SET &SECTBLDS = &STR(xP.xRCOMMON.TABLOUT)   
           ENDO                                                 
  ENDO                                                           
  WRITE &DETTBLDS                                               
  WRITE &SYSPROC                                                 
  WRITE &SECTBLDS                                               
  ISPEXEC VPUT (DETTBLDS SECTBLDS) SHARED                       
  WRITE &SYSPROC                                                 

  WRITE &SYSPROC                                                 
ISPEXEC SELECT PGM(XRTSI010) PARM(XRTSI010&ACFID&SYSPROC)       
  WRITE &SYSPROC                                                 
  WRITE (&LASTCC) ERROR CODE1!                                   
  WRITE &SYSPROC                                                       
ISPEXEC SELECT PGM(XRTS2600)                                           
  WRITE &SYSPROC                                                       
  WRITE (&LASTCC) ERROR CODE2!                                         

  WRITE &SYSPROC                                                       
ISPEXEC SELECT PGM(XRTSI020) PARM(XRTSI020&ACFID&SYSPROC)               
  WRITE &SYSPROC                                                       
  WRITE (&LASTCC) ERROR CODE3!                                         
QUIT: +                                                                 
ERROR OFF                                                               
EXIT

Below mentioned is the error, which i am getting after executing clist.

Error
ISPN104                                 
                                       
Invalid dsname list                     
Data set name(s) incorrectly specified.

How to make it work?

again! your not showing the clist output from the debug and as Enrico has questioned what is ACFHTZ02 ?
Where or when is the ERROR being displayed?
if you had turned on debugging you'd see your error if you step thru and not arbotrailily hit enter every time you see ***
show the screen shot from the CLIST execution as debuging is ON
Peter
Peter_Mann
 
Posts: 139
Joined: Fri Jun 24, 2011 7:37 pm
Location: Lowell,AR
Has thanked: 14 times
Been thanked: 3 times

PreviousNext

Return to TSO & ISPF

 


  • Related topics
    Replies
    Views
    Last post