|
View previous topic :: View next topic
|
| Author |
Message |
knsimha
New User
Joined: 08 Jul 2004
Posts: 5
Location: Noida
|
|
|
|
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 |
|
 |
Akatsukami
Global Moderator
Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL
|
|
| Back to top |
|
|
Ed Goodman
Active Member
Joined: 08 Jun 2011
Posts: 556
Location: USA
|
|
|
|
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 |
|
|
Gary McDowell
Active User
Joined: 15 Oct 2012
Posts: 139
Location: USA
|
|
|
|
AD - function argument is not coded correctly.
Hard to help without seeing any code. |
|
| Back to top |
|
|
knsimha
New User
Joined: 08 Jul 2004
Posts: 5
Location: Noida
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
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 |
|
|
Gary McDowell
Active User
Joined: 15 Oct 2012
Posts: 139
Location: USA
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
| Back to top |
|
|
Ed Goodman
Active Member
Joined: 08 Jun 2011
Posts: 556
Location: USA
|
|
|
|
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 |
|
|
knsimha
New User
Joined: 08 Jul 2004
Posts: 5
Location: Noida
|
|
|
|
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 |
|
|
Ed Goodman
Active Member
Joined: 08 Jun 2011
Posts: 556
Location: USA
|
|
|
|
| Woot! Karma points for me! |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
| Quote: |
| Woot! Karma points for me! |
Woot! Karma points for me!
If you posted in a different color, would you be our Karma Chameleon 
d |
|
| Back to top |
|
|
Ed Goodman
Active Member
Joined: 08 Jun 2011
Posts: 556
Location: USA
|
|
|
|
| I'm just a man who doesn't know... |
|
| Back to top |
|
|
|
|
