| View previous topic :: View next topic | 
	
	
		| Author | Message | 
	
		| yadav2005 Intermediate
 
  
 Joined: 10 Jan 2005
 Posts: 348
 Topics: 144
 
 
 | 
			
				|  Posted: Sun Jan 07, 2007 1:55 pm    Post subject: S806 error during run of a COBOL IMS Program |   |  
				| 
 |  
				| I am trying to run a COBOL IMS Program and i am getting the error S806 and with the below error message: 
  	  | Code: |  	  | IEW4007I FIND FOR MODULE ABCDPSB  FAILED BECAUSE DIRECTORY ENTRY IS NOT VALID FOR A LOAD MODULE.
 CSV003I REQUESTED MODULE ABCDPSB  NOT FOUND
 CSV028I ABEND806-04
 IEA995I SYMPTOM DUMP OUTPUT
 SYSTEM COMPLETION CODE=806  REASON CODE=00000004
 
 
 IEW4007I FIND FOR MODULE program-name FAILED BECAUSE DIRECTORY ENTRY IS
 NOT VALID FOR A LOAD MODULE.
 
 
 
 Explanation: An invalid or incorrect PDS directory entry was detected during processing of the Loader's FIND function when loading a load module.
 System Action: An abend 806-04 will occur, accompanied by message IEW4007 in the job log when an attempt is made to locate the module.
 
 User Response: Determine cause of the invalid directory entry, rebuild it and rerun the job. Ensure the specified entry exists in the specified library.
 
 Source: Loader
 
 Detecting Module: IEWLFINX
 
 Routing Code: 11
 
 Descriptor Code: -
 
 | 
 
 I have generated my DBD as well as PSB all fine and COBOL Program is compiled ,link edited fine.After analysing the message i understand that it is not able to find the PSB from the load library , but i see the load module present before running the program in the correct load library and i am not able to figure out the exact problem.Can anyone provide suggestions.
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| kolusu Site Admin
 
  
 
 Joined: 26 Nov 2002
 Posts: 12394
 Topics: 75
 Location: San Jose
 
 | 
			
				|  Posted: Sun Jan 07, 2007 7:49 pm    Post subject: |   |  
				| 
 |  
				| yadav2005, 
 what are the DCB properties of the load module PDS?
 
 Kolusu
 _________________
 Kolusu
 www.linkedin.com/in/kolusu
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| yadav2005 Intermediate
 
  
 Joined: 10 Jan 2005
 Posts: 348
 Topics: 144
 
 
 | 
			
				|  Posted: Sun Jan 07, 2007 10:54 pm    Post subject: |   |  
				| 
 |  
				| Kolusu, 
 Here is the information about the load module PDS:
 
  	  | Code: |  	  | Data class . . . . . : **None**
 Organization  . . . : PO            Current Utilization
 Record format . . . : U              Used tracks . . . . : 7
 Record length . . . : 80             Used extents  . . . : 1
 Block size  . . . . : 800            Used dir. blocks  . : 1
 1st extent tracks . : 50             Number of members . : 4
 Secondary tracks  . : 50
 Data set name type  : PDS
 
 | 
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| Bill Dennis Advanced
 
  
 Joined: 03 Dec 2002
 Posts: 579
 Topics: 1
 Location: Iowa, USA
 
 | 
			
				|  Posted: Mon Jan 08, 2007 8:49 am    Post subject: |   |  
				| 
 |  
				| This is not a load module PDS.  They are RECFM=U.  This is either the SOURCE library or an OBJECT DECK library (output from compiler, input to LKED/binder). 
 Look for a different library!
 
 Another possibility is that someone changed the DCB's on the load library by opening it for output incorrectly as FB,80.
 _________________
 Regards,
 Bill Dennis
 
 Disclaimer: My comments on this foorum are my own and do not represent the opinions or suggestions of any other person or business entity.
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| yadav2005 Intermediate
 
  
 Joined: 10 Jan 2005
 Posts: 348
 Topics: 144
 
 
 | 
			
				|  Posted: Mon Jan 08, 2007 1:03 pm    Post subject: |   |  
				| 
 |  
				| Bill, 
 Thanks for the info provided and i changed the LOAD PDS to the properties below and it has the load modules for DBD PSB INDEX and for the LOAD Program.But still while running the program i get the same error as S806.Please let me know where is the mistake.
 
  	  | Code: |  	  | Data class . . . . . : **None**
 Organization  . . . : PO            Current Utilization
 Record format . . . : U              Used cylinders  . . : 1
 Record length . . . : 0              Used extents  . . . : 1
 Block size  . . . . : 6144           Used dir. blocks  . : 1
 1st extent cylinders: 1              Number of members . : 4
 Secondary cylinders : 10
 Data set name type  : PDS
 
 | 
 Members in the PDS:
 
  	  | Code: |  	  | 
 Command ===>                                                  Scroll ===> CSR
 Name     Prompt        Alias-of     Size      TTR     AC   AM   RM
 _________ ABCDDBD                            000002A0   00001D   00    24   24
 _________ ABCDPSB                            000000F0   00002D   00    24   24
 _________ ABCXDBD                            000002A0   000025   00    24   24
 _________ ABCDPGM                            00001E78   000035   00   ANY   24
 
 | 
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| Bithead Advanced
 
  
 Joined: 03 Jan 2003
 Posts: 550
 Topics: 23
 Location: Michigan, USA
 
 | 
			
				|  Posted: Mon Jan 08, 2007 1:20 pm    Post subject: |   |  
				| 
 |  
				| Can you post your JCL? |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| yadav2005 Intermediate
 
  
 Joined: 10 Jan 2005
 Posts: 348
 Topics: 144
 
 
 | 
			
				|  Posted: Mon Jan 08, 2007 1:42 pm    Post subject: |   |  
				| 
 |  
				| Bithead, 
 Thanks for your reply and i when i checked back by JCL i was not refering to the correct LOAD PDS and i am able to solve the problem of S806.But now when i run the program i am geting an error:
 
  	  | Code: |  	  | ABENDED S000 U0992 CN(INTERNAL)
 
 | 
 Moreover this the error message:
 
  	  | Code: |  	  | *DFS2431I DBD1 --ABCDDBD  REFERENCES DBD2 --ABCXDBD  AS AN INDEX INVALIDLY
 IEA995I SYMPTOM DUMP OUTPUT
 USER COMPLETION CODE=0992
 TIME=23.58.41  SEQ=14457  CPU=0000  ASID=001B
 PSW AT TIME OF ERROR  078D1000   00062C22  ILC 2  INTC 0D
 ACTIVE LOAD MODULE           ADDRESS=0005AC60  OFFSET=00007FC2
 NAME=DFSDLBL0
 
 | 
 I am not able to understand what is the error.Please let me know how to solve it.
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		| Bithead Advanced
 
  
 Joined: 03 Jan 2003
 Posts: 550
 Topics: 23
 Location: Michigan, USA
 
 | 
			
				|  Posted: Mon Jan 08, 2007 2:43 pm    Post subject: |   |  
				| 
 |  
				| DFS2431I DBD1 dbdname1 REFERENCES DBD2 dbdname2 AS AN INDEX INVALIDLY 
 Explanation:  A DBD was referenced in an LCHILD statement in another DBD
 as an index DBD.  The referenced DBD was not coded as ACCESS=INDEX and the
 reference is therefore invalid.
 
 System Action:  Abend U0992 is issued if batch DL/I was being executed.
 ACBGEN processing continues.
 
 Programmer Response:  Correct the DBDs, and rerun the job.
 |  | 
	
		| Back to top |  | 
	
		|  | 
	
		|  | 
	
		|  |