Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Get s806 abend when invoking a clist from IKJEFT1A

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging
View previous topic :: :: View next topic  
Author Message
doug smith

New User


Joined: 12 Sep 2011
Posts: 4
Location: usa

PostPosted: Mon Sep 12, 2011 5:06 pm    Post subject: Get s806 abend when invoking a clist from IKJEFT1A
Reply with quote

The clist is being called as if it were a program/load-module (by mistake in IKJEFT1A).
The clist is available in the SYSPROC DD stmt. This problem only occurs sporadicially one one system. A rerun of the exact same job on another system works fine.
What is wrong with our one system?
Back to top
View user's profile Send private message

dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Mon Sep 12, 2011 5:13 pm    Post subject:
Reply with quote

how are you invoking the clist fro IKJEFT1A??????

cut&paste the control cards along with the jcl for the step

please use CODE tags
Back to top
View user's profile Send private message
doug smith

New User


Joined: 12 Sep 2011
Posts: 4
Location: usa

PostPosted: Mon Sep 12, 2011 5:22 pm    Post subject: Reply to request for additional info
Reply with quote

Batch job step :

Code:
XXBLDSYSN2 EXEC PGM=IKJEFT1A,                                           01870000         
XX  PARM='&ST CMD(&FLF &HL1 M6 DE &UB &TEST)'                           01880003         
IEFC653I SUBSTITUTION JCL - PGM=IKJEFT1A,PARM='ISPSTART CMD(EQPAFLDI PDWG0. M6 DE Y TEST)'
XXSTEPLIB DD DSN=TSODTSOL.P0000ISP.LOAD,DISP=SHR                        01890000         
XXISPPROF DD UNIT=&DASD,SPACE=(TRK,(2,1,2)),                            01900000         
XX           DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)                       01910000         
IEFC653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(TRK,(2,1,2)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=
XXSYSPROC DD DSN=IPASM00L.P0400.CLIST,DISP=SHR                          01920002         
XX        DD DSN=TSODTSOL.P0000ISP.CLIST,DISP=SHR                       01930000         
XXISPLLIB DD DSN=TSODTSOL.P0000MOD.LOAD,DISP=SHR                        01940000         
XX*       DD DSN=TSODTSOL.P0000FLM.LOAD,DISP=SHR                        01950000         
XX        DD DSN=TSODTSOL.P0000ISP.LOAD,DISP=SHR                        01960000         
XX        DD DSN=TSODTSOL.P0000GBL.LOAD,DISP=SHR                        01970000         
XXISPMLIB DD DSN=TSODTSOL.P0000ISP.MSGS,DISP=SHR                        01980000         
XXISPPLIB DD DSN=TSODTSOL.P0000ISP.PANELS,DISP=SHR                      01990000         
XX        DD DSN=TSODTSOL.P0000GBL.PANELS,DISP=SHR                      02000000         
XXISPSLIB DD DSN=&HL9.SMSSM00L.P0000.SYSIN,DISP=SHR                     02010000         
IEFC653I SUBSTITUTION JCL - DSN=PL03T.SMSSM00L.P0000.SYSIN,DISP=SHR                       
XX        DD DSN=TSODTSOL.P0000ISP.SKELS,DISP=SHR                       02020000         
XXISPTLIB DD UNIT=&DASD,SPACE=(TRK,(1,0,1)),                            02030000         
XX           DCB=(RECFM=FB,LRECL=80,BLKSIZE=8800)                       02040000         
IEFC653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(TRK,(1,0,1)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=
XX        DD DSN=TSODTSOL.P0000ISP.TABLES,DISP=SHR                       
 BROWSE    IPASM00L.P0400.CLIST(EQPAFLDI) - 01.00   
 Command ===>                                       
****************************************************
PROC 4  HILVL DG HC UB TEST         
/* ||||||||||||||||||||||||||||||||||*/
IF &TEST EQ TEST THEN -                     
CONTROL NOMSG LIST END(ENDD) SYMLIST CONLIST
ELSE -                                     
CONTROL NOMSG NOLIST END(ENDD)             
/*                                         
BLDSYSIN: +                                 
    ISPEXEC FTOPEN                         
    ISPEXEC FTINCL EQPAFLDI                 
...
 ... etc ..


The error :

Code:
CSV003I REQUESTED MODULE EQPAFLDI NOT FOUND             
CSV028I ABEND806-04  JOBNAME=EQPP2WG$  STEPNAME=BLDSYSN2
IEA995I SYMPTOM DUMP OUTPUT  563
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Mon Sep 12, 2011 5:40 pm    Post subject: Reply to: Get s806 abend when invoking a clist from IKJEFT1A
Reply with quote

what is that You did not understand in ?
Quote:
cut&paste the control cards along with the jcl for the step
please use CODE tags

post edited to add them

Quote:
What is wrong with our one system?

You ask us... ask Your support ???

to make the most out of the questions You ask and to forecast the comments You might receive
it would be wise for You to read and meditate on
how to ask questions the smart way
here http://catb.org/~esr/faqs/smart-questions.html
or .. for a more PC language
here http://support.microsoft.com/kb/555375
Back to top
View user's profile Send private message
doug smith

New User


Joined: 12 Sep 2011
Posts: 4
Location: usa

PostPosted: Mon Sep 12, 2011 6:01 pm    Post subject: reply to reply
Reply with quote

OK.
Now I know what "code tags" are.
I have tried reading the manual, and searching the web.
If I should be asking this question differently or
somewhere else, let me know.
Obviously our support and systems group doesn't know what
the problem is. We have had this problem for a couple of
years. The solution "run the job on a different system" is
getting old.
Feel free to send me the link to the solution that I must have
missed.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Mon Sep 12, 2011 6:17 pm    Post subject: Reply to: Get s806 abend when invoking a clist from IKJEFT1A
Reply with quote

Quote:
Obviously our support and systems group doesn't know what
the problem is.

looks like they are a bunch of IDIOTS :eil:

Quote:
CSV003I REQUESTED MODULE EQPAFLDI NOT FOUND


what does the message hint to You and to the idiots of the support group ?
what is that is not clear in the message and the manual explanation

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2H792/2.501?SHELF=IEA2BK91&DT=20090112020001&CASE=

go to the system where the thing works find out in which library the offending module resides
and clone the same environment to the offending system.

that' s all and is simple enough!
Back to top
View user's profile Send private message
doug smith

New User


Joined: 12 Sep 2011
Posts: 4
Location: usa

PostPosted: Mon Sep 12, 2011 6:43 pm    Post subject: Reply to: Get s806 abend when invoking a clist from IKJEFT1A
Reply with quote

Perhaps you did not carefully read the original description of the problem:
The member "EQPAFLDI" is a Clist, Not a load-module. But, IKJEFT1A is for unknown reason, not finding it in the SYSPROC (see previous screen print), and is then attempting a call/Load from steplib or ISPLLib. Why is IKJEFT1A not recognizing it as a Clist ??
I know how to handle normal S806 abends.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7226

PostPosted: Mon Sep 12, 2011 6:54 pm    Post subject: Reply to: Get s806 abend when invoking a clist from IKJEFT1A
Reply with quote

Doug,

As enrico points out, if you have one environment where it works, and one where it doesn't, you can "clone" one to t'other and you should get something which works.

Alternatively, you have to look for what is different between the two.

OK, so maybe you and your people have been trying to do this and come up blank.

If so, clear your minds of what you know, and do the start that process again.

To do this, what is actually happening is not particularly relevant at the moment, you are looking for differences, any differences, in the library set-ups.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Mon Sep 12, 2011 6:54 pm    Post subject: Reply to: Get s806 abend when invoking a clist from IKJEFT1A
Reply with quote

I just tested ...
using an ISPSTART with an unexistent command gives a completely different message

Code:
ISPSTART CMD(MISSING)

 COMMAND MISSING NOT FOUND                                                     
 ISPD123     Invalid command                                                   
 Command 'MISSING' not found or contains invalid syntax.                       


ISPSTART CMD(IEFBR14) works
ISPSTART CMD(%IEFBR14) fails as above
%IEFBR14 implies clist or rexx

now are You/Your support sure that there is not a module with the same name around


William Shakespeare > Hamlet > Act 1, Scene 4
Quote:
MARCELLUS :

Something is rotten in the state of Denmark.


anyway the three letters EQP..... of Your module EQPAFLDI are dangerously near to the EQQ prefix for OPC modules

have Your support look into it

nothing to tell but confirm that the message does not come from a first miss on EQPAFLDI

good luck
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Mon Sep 12, 2011 7:06 pm    Post subject: Reply to: Get s806 abend when invoking a clist from IKJEFT1A
Reply with quote

Quote:
The clist is being called as if it were a program/load-module (by mistake in IKJEFT1A).

BS... the clist is called correctly as per manual
the difference between CMD and PGM is in the way the argument are passed
CMD will invoke something which dies the argument parsing as a COMMAND processor or a CLIST or a REXX SCRIPT

Quote:
Perhaps you did not carefully read the original description of the problem:


no need to carefully read anything icon_evil.gif
the abend is an 80e abend, any other consideration is just a poor understanding of how mvs works
the initial problem determination is wrong

Quote:
I know how to handle normal S806 abends.

this is a normal 806 abend amen
and should be pursued as such !

if it was an abnormal 806 abend You would get something else icon_evil.gif

i retested in batch and I confirm that the result is different

Code:
 000031 //S2      EXEC PGM=IKJEFT1A,PARM='ISPSTART CMD(MISSING)'               

gives as result
Code:
COMMAND MISSING NOT FOUND                                                       
ISPD123     Invalid command                                                     
Command 'MISSING' not found or contains invalid syntax.                         
 ENRICO.SPFLOG1.LIST has been kept.                                             



and when testing ith
Code:
 000031 //S2      EXEC PGM=IKJEFT1A,PARM='ISPSTART PGM(MISSING)'               


Code:
ISPD112     Invalid PGM name                                                   
Link to 'MISSING' failed.                                                       
READY                                                                           


ISPF IIRC never does a wild link to a load module
it goes thru the bldl shebang to avoid abends
wiser to review Your way of looking at things

the 806 is the result of <direct> invocation of <someloadmodule>
run with a trace and most probably You will get a better insight of what is going on
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2019
Location: Silicon Valley

PostPosted: Tue Sep 13, 2011 12:12 am    Post subject: Reply to: Get s806 abend when invoking a clist from IKJEFT1A
Reply with quote

Quote:
the 806 is the result of <direct> invocation of <someloadmodule>


I agree with your assessment.

I think this is a poor naming convention scheme:
1. EQPAFLDI as clist
2. EQPAFLDI as skeleton
3. EQPAFLDI as load module

Using the same name in multiple places makes it difficult to do problem determination.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7226

PostPosted: Tue Sep 13, 2011 3:07 am    Post subject: Reply to: Get s806 abend when invoking a clist from IKJEFT1A
Reply with quote

Cool, you two.

So , the CLIST, whose source we have not seen, is being loaded and executed as normal. Otherwise, as enrico has demonstrated, other non-related messages would have been seen.

The CLIST (or somewhere in the remainder) calls PROGRAM with the same name as the CLIST, as a PROGRAM. There is no loadlibrary in the search-chain which contains that PROGRAM (a load module with that name) on one system, but there is on the other.

Presto. CLIST is loading normally. Program is S806'ing "normally". CLIST is not program, and program is not CLIST. But have the same name.

And the TRACE, if used, would have shown an interesting picture.. whistling past the CLIST, locating the PROGRAM.... and going POP!

I bet it is all true. Fits all the known evidence. Doesn't need anything fanciful to have happend, just good old normal stuff.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Sep 13, 2011 8:08 am    Post subject:
Reply with quote

Hello,

I drove around the square a few times before joinng the party. . . icon_smile.gif

The only time i have ever seen an s806-04 is a missing/mis-spelled load module.

Suggest you run a trace of the problem process and post the result here.

Suggest you copy the problem clist to some other name and see what happens.

Verify how many modules and what type have this name in any library on either system.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts abend sort based on count records in ... anatol DFSORT/ICETOOL 5 Mon Oct 17, 2016 10:10 pm
No new posts hot to get details when "EXEC CI... Andi1982 CICS 11 Tue Sep 20, 2016 5:01 pm
No new posts Invoking CA 7 commands through REXX kenshin CLIST & REXX 10 Fri Aug 12, 2016 9:33 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us