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
 

 

Status Code AM while DLET

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
AJAYREDDY

New User


Joined: 17 Feb 2007
Posts: 47
Location: USA

PostPosted: Sat Oct 27, 2007 12:13 am    Post subject: Status Code AM while DLET
Reply with quote

I am getting AM status code while Deleting record from Segment. I want to delete complete record from RR505000. I am reading RR500000 as root segment. RR500-IN-SSA is qualified and RR505-IN-SSA is unqualified. Can anyone please let me know what might be the reason ?

I have the PSB as

PCB TYPE=DB,
DBDNAME=RR5DAT,
PROCOPT=A,
KEYLEN=30
SENSEG NAME=RR500000,
PARENT=0
SENSEG NAME=RR505000,
PARENT=RR500000

And giving the Call parameters as

CALL 'CBLTDLI' USING GU
RR5-PCB
RR500000
RR500-IN-SSA.

CALL 'CBLTDLI' USING GHNP
RR5-PCB
RR505-IN-RECORD
RR505-IN-SSA.

CALL 'CBLTDLI' USING DLET
RR5-PCB
RR505-IN-RECORD.

I also tried by direct GHN as below, but still did not worked.

CALL 'CBLTDLI' USING GHN
RR5-PCB
RR505-IN-RECORD
RR500-IN-SSA
RR505-IN-SSA.

CALL 'CBLTDLI' USING DLET
RR5-PCB
RR505-IN-RECORD.
Back to top
View user's profile Send private message

Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Sat Oct 27, 2007 1:02 am    Post subject:
Reply with quote

Did you check your status code after you did the GET HOLD? Do you want to delete the root AND the child segment? Remember that all you need to do is to delete the root and ALL child segments automatically go bye-bye. If you just want to delete the child, then you can load both SSA's and do a GHN - which you did. Are you sure that the processing option in your PSB is ALL? What is in your key feedback area and segment level in your PCB?
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Sat Oct 27, 2007 1:03 am    Post subject:
Reply with quote

I just noticed that you are not qualifying your child segment SSA? If a segment is a child, chances are that they is not just one. Take a look at your DBD and tell us the definition.
Back to top
View user's profile Send private message
AJAYREDDY

New User


Joined: 17 Feb 2007
Posts: 47
Location: USA

PostPosted: Mon Oct 29, 2007 7:41 pm    Post subject: Status Code AM while DLET
Reply with quote

Hi Sandy, thanks for response. I forgot to tell one thing. This is Online CICS background program, which updates DB2 tables and Deletes records in above IMS DB and comes out. The Child segment RR505 should be Unqualified because there is no Key and there are multiple records for the Root SEGMENT RR500 which is having Key. So, I am reading through Root segment RR500.

I guess there is somthing related to PSB change or the way that I am getting Segments in Program.

Please let me know if you have any idea.
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Mon Oct 29, 2007 7:50 pm    Post subject:
Reply with quote

Your PSB looks OK. I am going to ask some questions so we can help you solve your problem.

How are you getting the key value for the root - parent - RR500?
Are your requirements asking you to delete only the child segments - RR505? All child segments beneath the root - parent?

When you respond, we can help with your logic.
Back to top
View user's profile Send private message
AJAYREDDY

New User


Joined: 17 Feb 2007
Posts: 47
Location: USA

PostPosted: Mon Oct 29, 2007 8:53 pm    Post subject: Status Code AM while DLET
Reply with quote

I am getting the value of the Root segment by "Program name" followed by "sequence number". Yes, I need to delete only the child segments RR505 under that Root Key (all the child segments).

I tested using TRACE commands in CICS and I am getting the correct Child segment RR505 value with GHN or GHNP. But while using DLET on the same Child segment I am getting AM status code.

After DLET statement is executed, The PCB returned values under SEGMENT LEVEL is 02 and SEGMENT NAME is RR505 and PROC OPTION is 'R'. I think this is the problem. It should show 'A' I guess. I tried changing PSB, but still same 'R' value is returning.
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Mon Oct 29, 2007 9:09 pm    Post subject:
Reply with quote

OK - we are making progress! How do you know you are getting the correct child segment? There cannot be just one if it is a child segment. Is your requirement to delete ALL child segments or just the first child segment?

Was this an existing PSB? Did you recompile your PSB? You will then need to "roll" the regions where it is executing. Talk to your DBA. Maybe you should look at it in your region...../DISPLAY PSB (name of your psb)
Back to top
View user's profile Send private message
AJAYREDDY

New User


Joined: 17 Feb 2007
Posts: 47
Location: USA

PostPosted: Mon Oct 29, 2007 9:23 pm    Post subject: Status Code AM while DLET
Reply with quote

I will talk to DBA and see. I used the output field value of RR505 to display onto the screen using TRACE command in CICS. I used before and after GHN. Before it is spaces and After it has value which I needed. So GHN is working. There can be multiple child for same Root segment. But in my logic before I read next child I am Deleting the first child segment and go on in loop until I delete ALL the child segments.

What I observed is, I am getting PROC OPTION as 'R' before and after GHN and in entire Program (Before and after DLET statement). So I think I need to talk to DBA regarding this. The Proc Option should not be 'R'.

I am Displaying PSB in Online Region and its showing Proc option as 'A'. But inside Program it is taking as 'R'.
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Mon Oct 29, 2007 10:10 pm    Post subject:
Reply with quote

OK - even more progress! Are you displaying the PSB in the same region that you are executing? The recompile is very obviously correct - but it may be applied in a different region or not applied at all.

My suggestions would be.....fix the PSB and make sure that it is correct in the region. The return fields in your PCB are invaluable for tracking down problems.

OK - I would suggest a GHU on the root parent - because of all the pointers in IMS, I think you should HOLD the parent so no activity can take place and make the pointers screwy.

Then I would code a routine to go after all child segments and delete them. You need to veryify that this is what really needs to happen.

CALL 'CBLTDLI' USING GHU
RR5-PCB
RR500000
RR500-IN-SSA. (qualified)

make sure you got it - always check ims status codes after EACH CALL. Then determine what you want to do if you did not get it.

Set up a working storage switch called "ws-end-childs-sw pic x".
Move "N" to this switch.
I do not know what version of cobol you are using, so I will give you the logic.

You will perform this routine until you have retrieved all child segments and deleted them....

1000-routine.

CALL 'CBLTDLI' USING GHNP
RR5-PCB
RR505-IN-RECORD
RR505-IN-SSA. (unqualifed)

If status-code = space
next sentence
else
If status code equals "GE" or "GB"
move "y' to ws-end-childs-sw
go to 1999-exit
else
you have a problem - so determine what you want to do.

CALL 'CBLTDLI' USING DLET
RR5-PCB
RR505-IN-RECORD.

If status-code = space
next sentence
else
you have a problem - so determine what you want to do.
1999-exit.
exit.
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Mon Oct 29, 2007 10:14 pm    Post subject:
Reply with quote

Oh - you do not need to set parentage for the way I suggested to code this. If you want to set parentage, adjust the code. So, you would just do a GHN - qualified root, unqualifed child.
Back to top
View user's profile Send private message
AJAYREDDY

New User


Joined: 17 Feb 2007
Posts: 47
Location: USA

PostPosted: Tue Oct 30, 2007 7:14 pm    Post subject: Status Code AM while DLET
Reply with quote

Actually I was doing the same thing as you suggested but it was not working. Now I figured it out by going into CICS debugging statements using TRACE commands coded inside program. The problem is with the Program taking the wrong PSB name while scheduling. I corrected inside the program and now it is working.

THANKS for all your help on this issue.
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Tue Oct 30, 2007 10:15 pm    Post subject:
Reply with quote

Great news!
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 -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts JCL to Set Return code based on DB2 S... vinu78 DB2 17 Mon Mar 13, 2017 9:47 pm
No new posts IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm
No new posts CA Workload Automation event code help vinu78 CA Products 10 Wed Mar 01, 2017 10:05 am
No new posts MAX-RC 88 and Return code 606 in DFH0... lind sh CICS 2 Tue Jan 24, 2017 1:23 pm
No new posts How to Capture the Max return code of... anilkumar922 All Other Mainframe Topics 2 Thu Jan 12, 2017 12:02 pm


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