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 AD.

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

New User


Joined: 08 Jul 2004
Posts: 5
Location: Noida

PostPosted: Wed Jan 02, 2013 3:55 pm    Post subject: Status code AD.
Reply with quote

Hi Friends,

Could you tell us the reason for the status code AD while fetching data from IMS DB through BMP mode. We are not geting the database name in the PCB mask.


Thanks
Narasimha K.
Back to top
View user's profile Send private message

Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Wed Jan 02, 2013 4:00 pm    Post subject:
Reply with quote

Read the fine manual.
Back to top
View user's profile Send private message
Ed Goodman

Active Member


Joined: 08 Jun 2011
Posts: 556
Location: USA

PostPosted: Wed Jan 02, 2013 10:03 pm    Post subject:
Reply with quote

Double check, then triple check, the order of database PCBs in the Entry statement of the program against the order of database PCBs specified in that program's PSB.

Also, make sure you understand that a BMP is actually using the ACB instead of the PSB directly.

So...if you've changed the PSB recently, or recompiled it, you are probably out of sync.

The other possibility is a bad function parm (first thing on the list in the manual). That means the "GU " or "GN " field is not a valid function, like it got overlaid or something simple like that.

However, since you are saying you aren't seeing the database name, it tells me you should examine the PSB/ACB angle.
Back to top
View user's profile Send private message
Gary McDowell

Active User


Joined: 15 Oct 2012
Posts: 139
Location: USA

PostPosted: Wed Jan 02, 2013 10:09 pm    Post subject:
Reply with quote

AD - function argument is not coded correctly.

Hard to help without seeing any code.
Back to top
View user's profile Send private message
knsimha

New User


Joined: 08 Jul 2004
Posts: 5
Location: Noida

PostPosted: Fri Jan 04, 2013 11:12 am    Post subject: Reply to: Status code AD.
Reply with quote

To give more information to help in understanding the issue, sending below information.

1) The PSBGEN details are as below.
Code:
 PCB  TYPE=TP,MODIFY=YES                                   
 PCB  TYPE=DB,NAME=CPDBDHIS,PROCOPT=A,KEYLEN=21           
 SENSEG NAME=PATIENT,PARENT=0                             
 SENSEG NAME=ILLNESS,PARENT=PATIENT                       
 SENSEG NAME=TREATMNT,PARENT=ILLNESS                       
 SENSEG NAME=BILLING,PARENT=PATIENT                       
 SENSEG NAME=PAYMENT,PARENT=BILLING                       
 SENSEG NAME=HOUSHLD,PARENT=PATIENT                       
 PSBGEN PSBNAME=CPPSBHIG,LANG=COBOL,CMPAT=YES             
 END                                                       

2) the entry call is as below.
Code:
PROCEDURE DIVISION.                       
     ENTRY 'DLITCBL' USING IOPCB, PCBMASK. 
     PERFORM MAIN-PARA                     
     PERFORM FINAL-PARA. 

3) the Declaration of PCB masks are as below.
Code:
 LINKAGE SECTION.                                               
  01  IOPCB.                                                   
      05  IOPCB-LETERM                   PIC X(08).             
      05  IOPCB-RESERVED                 PIC X(02).             
      05  IOPCB-STATUS                   PIC X(02).             
         88  IOPCB-88-ALL-OK            VALUE '  '.             
      05  IOPCB-DATE                     PIC S9(07)  COMP-3.   
      05  IOPCB-TIME                     PIC S9(6)V9 COMP-3.   
      05  IOPCB-MSG-COUNT                PIC S9(8)   COMP.     
      05  IOPCB-MODNAME                  PIC X(08).             
      05  IOPCB-USERID                   PIC X(08).             
  01 PCBMASK.                                                   
     05 DBD-NAME               PIC X(08).                       
     05 SEG-ID                 PIC X(02).                       
     05 STATS                  PIC X(02).                       
     05 PROCOPT                PIC X(04).                       
     05 FILLER                 PIC X(04).                       
     05 SEGMENT-NAME           PIC X(08).                       
     05 LENGTH-FDBK            PIC S9(05) COMP.                 
     05 NUMBER-SENSEGS         PIC S9(05) COMP.                 
     05 KEY-FDBK-AREA          PIC X(21).                     

Quick response is required.

Thanks
Narasimha K.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Fri Jan 04, 2013 1:47 pm    Post subject: Reply to: Status code AD.
Reply with quote

You have been a member for more than 8 years...
You should know by now that posting requests like
Quote:
Quick response is required.
is improper
since replying on a forum is ...
on our time
free of charge

if You have time constraints hire a paid consultant
Back to top
View user's profile Send private message
Gary McDowell

Active User


Joined: 15 Oct 2012
Posts: 139
Location: USA

PostPosted: Fri Jan 04, 2013 5:53 pm    Post subject:
Reply with quote

Can you show us the CALL/statement/argument that gave you the 'AD'?
Something like...
Code:
        CALL  'CBLTDLI'     USING   'GU  '     
                                    PCBMASK               
                                    XXXXXXXX-IOA         
                                    WS-QUALIFIED-SSA.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10203
Location: italy

PostPosted: Fri Jan 04, 2013 6:34 pm    Post subject: Reply to: Status code AD.
Reply with quote

Gary,
no reason to waste time
see this other post from the same TS
http://www.ibmmainframes.com/viewtopic.php?t=54782&highlight=
he/she just wants to be spoon fed, and looks very unwilling to do his/her part

most probably he/she might be better off in the beginners forum
Back to top
View user's profile Send private message
Ed Goodman

Active Member


Joined: 08 Jun 2011
Posts: 556
Location: USA

PostPosted: Fri Jan 04, 2013 7:09 pm    Post subject:
Reply with quote

Actually, you can see the problem with what he's already posted.

Narasimha, your PSB has that little parm of "CMPAT=YES" at the bottom. That means the gen will put an extra PCB at the top of the PSB.

So in reality, your PSB says:
IO-PCB (from cmpat = yes)
TP-PCB (from type=tp)
CPDBDHIS (from CPDBDHIS)

This does not match your entry statement.
Back to top
View user's profile Send private message
knsimha

New User


Joined: 08 Jul 2004
Posts: 5
Location: Noida

PostPosted: Tue Jan 08, 2013 10:36 am    Post subject: Reply to: Status code AD.
Reply with quote

Hi Ed Goodman,
Thanks a lot for your support.
The issue is resolved. we have mentioned extra IO PCB as suggested by you.

Thanks
narasimha K.
Back to top
View user's profile Send private message
Ed Goodman

Active Member


Joined: 08 Jun 2011
Posts: 556
Location: USA

PostPosted: Tue Jan 08, 2013 7:15 pm    Post subject:
Reply with quote

Woot! Karma points for me!
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 Jan 08, 2013 10:07 pm    Post subject:
Reply with quote

Quote:
Woot! Karma points for me!
Woot! Karma points for me!

If you posted in a different color, would you be our Karma Chameleon icon_cool.gif

d
Back to top
View user's profile Send private message
Ed Goodman

Active Member


Joined: 08 Jun 2011
Posts: 556
Location: USA

PostPosted: Wed Jan 09, 2013 7:22 pm    Post subject:
Reply with quote

I'm just a man who doesn't know...
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 PL/I code tuning/Performance improvement Virendra Shambharkar PL/I & Assembler 4 Mon Dec 05, 2016 11:57 am
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 IDEAL - Code Retrieval yugendran CA Products 0 Fri Nov 25, 2016 3:27 pm
This topic is locked: you cannot edit posts or make replies. Need to code a Rexx PGM sundaram.naveen CLIST & REXX 18 Thu Oct 06, 2016 6:45 pm
No new posts Need Help in understanding what is th... mainakdalal PL/I & Assembler 9 Mon Oct 03, 2016 8:03 pm


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