r2k1984
New User
Joined: 21 Jun 2005 Posts: 69 Location: chennai
|
|
|
|
All,
Iam getting IMS status code "AD" in IMS DC program .
Iam getting the error while calling the below call
CALL 'CBLTDLI' USING FUNC-GU
IVP-PCB
IVPDB2-IO
IVPDB2-SSA.
Below is my PCB definition
01 IVP-PCB.
05 DBD-NAME PIC X(8).
05 CURR-SEGM-LEVEL PIC X(2).
05 STATUS-CODE PIC X(2).
05 PROC-OPT PIC X(4).
05 RSRVD-FOR-DLI PIC S9(5) USAGE COMP.
05 CURR-SEGM-NAME PIC X(8).
05 KEY-LENGTH PIC S9(5) USAGE COMP.
05 NUM-SENS-SEGS PIC S9(5) USAGE COMP.
05 KEY-FDBACK-AREA PIC X(14).
Below is my SSA definition
01 IVPDB2-SSA.
05 SEGNAME PIC X(08) VALUE 'A1111111'.
05 BEGIN-QUAL PIC X(01) VALUE '('.
05 FIELD-NAME PIC X(08) VALUE 'A1111111'.
05 REL-OPERATOR PIC X(02) VALUE '= '.
05 SEARCH-VALUE PIC X(10).
05 SSA-END PIC X(01) VALUE ')'.
Below is my function definition
05 FUNC-GU PIC X(04) VALUE 'GU '.
Below is PSb source
TITLE 'ASSEMBLE OF PSBNAME=TRNPG007 '
PRINT ON NOGEN
PCB TYPE=TP,MODIFY=YES,EXPRESS=YES,PCBNAME=IO-PCB,LIST=YES
PCB TYPE=DB,DBDNAME=IVPDB2,KEYLEN=10, C
PCBNAME=IVP-PCB,PROCOPT=G
SENSEG NAME=A1111111,PARENT=0
PSBGEN PSBNAME=TRNPG007,LANG=COBOL,CMPAT=YES
END
There is only one segment in the database . I want to read the segment via MPP mode. But Iam not able read it.
Please throw some light , if you can find any |
|