IBM Mainframe Forum

help people willing to help You...
if You had lurked a bit thru the forums You would have noticed how for source code we suggest the use of the code tags
to preserve the MF formatting and to make in thios way things more readable for the people willing to help

here is a snippet of Your posted code with the code tags



why complain that You got the 'PROBLEM WHILE REACHING MMCERT SEGMENT' message...
Your cobol code issued that not IMS ... so we have nothing to suggest about it...
and about the AC code, what happened when You looked/searched/read about it in the IMS manuals

also asking people willing to answer to go thru more than 300 lines of code is a bit too much

a forum search might also give some insight on how to proceed...
but as i said the first source of info is always the manual

Hi Enrico,

Thanks for the reply. i will follow steps in future.
I went through the manual to fond out the reason for AC. I got the below things.

1) DL/I could not find a segment in the DB PCB specified in the call that has the segment name given in the SSA. 2) The segment name is in the DB PCB, but the SSA specifying that segment name is not in its correct hierarchic sequence. 3) The call specifies two SSAs for the same hierarchic level.

My scenario is simple.I have 3 segments in hierarchical order. Say,

MMCERT - Key is CERT_NO
MMCONT - Key is CONTCD
MMMEMBR -Key is MEMBER_CD
MMLTNAM

I want to fecth each and every CERT_NO from MMCERT segment,CONTCD for each CERT,MEMBER_CD for each CONTCD and Last name for each MEMBER_CD.

So i used GN call with unqualified SSA in each segment. I was able to fetch first CERT_NO from MMCERT segment and i am continuing this process until end of MMCERT segment using one PERFORM.

Then i used another GN call with unqualified SSA under the MMCERT PERFORM to fetch the first CONTCD from the MMCONT segment for each CERT_NO. The first record was fetched successfully. i am continuing this process until end of MMCONT segment using one PERFORM.

Then i used another GN call with unqualified SSA under the MMCONT PERFORM to fetch the MEMBER_CD from MMMEMBR segment.first record was fetched successfully but i was not able to fetch the second record. but i have 2 records in MMMEMBR segment for the particulat CONT_CD.

The last segment SSA was automatically erased once done the first execution. Hence i am getting this AC return code. I was not aware why the SSA is automatically erased.I knew that erasing SSA is also one of the problem to get the return code AC. But my question is why it is erasing.. Am i doing anything wrong here? Can i go with this logic? Am i coding anything wrong in the coding part?

Do i need to add any more code here?

Please help me to resolve this issue. Please refer my coding which has been posted above already..

Thanks,
Thiru

Nothing in IMS will intentionally erase the SSA.

I notice that your SSAs are defines in the COBOL program immediately after segment fields. My guess is that you are reading more data than the WS field can handle. You may be doing a path call, but specifying the single segment in the receiving field.

Make DOUBLE sure that your copybook lengths match up with the segment lengths. IMS will always return the amount of data specified in the DBD. So if you put a 100-byte copybook as the receiving field, but read a 200 byte segment, your COBOL working storage will get 100 bytes overlaid.

I've done this to myself a few times!

So... you bumped this thread without adding anything to it???

Did you check the length of the copybooks against the segment lengths in the DBD? Specifically MMMEMBRC.

What about a Display of your SSA before the call?
The Call Analyzer (A-part of the status-code) doesnt like your SSA.

They did display it I think, they mentioned that it "got automatically erased."