IBM Mainframe Forum Index
Log In
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register

DL/I status code AK for GU call using secondary index

IBM Mainframe Forums -> IMS DB/DC
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Shruthi Y S

New User

Joined: 25 Mar 2015
Posts: 2
Location: India

PostPosted: Wed May 18, 2022 3:18 pm
Reply with quote

Hello All,

I am new to IMS DB. My requirement is to write a program that deletes specific data from IMS DB. For example, Assume a DB2 table called Worktable. This table has list of employeeIDs, employee names, salaries and so on. My requirement is I have to read the worktable, take every employeeID and delete it from IMS DB. In IMS DB, employeeID is not primary key, but it is secondary index.

To first make sure if my keys are right, I am trying to read these values from IMS DB and write them into a file. If everything is correct then I want to proceed with get hold and deletion.

So I am trying to make a DL/I call with function GU by populating the key values for secondary index employeeID.

It is in the below format :


but I am getting PCB Status AK for this call with segment number 01. I am not understanding what is wrong here. Can anyone please help me?

Best Regards,
Back to top
View user's profile Send private message

New User

Joined: 09 Aug 2021
Posts: 3
Location: Sweden

PostPosted: Thu May 19, 2022 3:59 pm
Reply with quote

Hi Shruthi,

When status code 'AK' there is usually something wrong with your SSA.
How does the DBD source look compared with your qualified SSA?
All fields used in the program, do the compare up with the DBD?

From the IBM manual about status code 'AK':

Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> IMS DB/DC


Similar Topics
Topic Forum Replies
No new posts Call an hlasm from REXX in batch and ... CLIST & REXX 4
No new posts How to turn off 'ACTION' SDSF output ... TSO/ISPF 2
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
No new posts Compile rexx code with jcl CLIST & REXX 6
Search our Forums:

Back to Top