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: 1754
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: 10244
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: 10244
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 Cobol upgrade - source code missing f... gthmrj IBM Tools 1 Wed Apr 26, 2017 6:04 pm
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


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