Hi
When i'm trying to invoke a CICS trasaction from DB2 stored procedure i met with some problem when writing DSNACICX user exit routine.
I'm passing some of the parameters from COBOL/DB2 stored procedure and some from DSNACICX.
Here is code from my progroam
CALL SYSPROC.DSNACICS
(:WS-PARM-LEVEL :WS-IND-PARM-LEVEL,
:WS-PGM-NAME :WS-IND-PGM-NAME,
:WS-CICS-APP-ID :WS-IND-CICS-APP-ID,
:WS-CICS-LEVEL :WS-IND-CICS-LEVEL,
:WS-CONN-TYPE :WS-IND-CONN-TYPE,
:WS-NET-NAME :WS-IND-NET-NAME,
:WS-MIRROR-TRN :WS-IND-MIRROR-TRN,
:WS-COMMAREA :WS-IND-COMMAREA,
:WS-COMMAREA-TOT-LEN :WS-IND-COMMAREA-TOT-LEN,
:WS-SYNC-OPTS :WS-IND-SYNC-OPTS,
:WS-RETURN-CODE :WS-IND-RETURN-CODE,
:WS-MSG-AREA :WS-IND-MSG-AREA)
END-EXEC.
Parameters i'm passing from my stored procudeure is
MOVE 1 TO WS-PARM-LEVEL.
MOVE 'PCSMC005' TO WS-PGM-NAME.
MOVE LENGTH OF WS-COMMAREA
TO WS-COMMAREA-TOT-LEN.
MOVE ABEND-FILE TO WS-COMMAREA.
MOVE -1 TO WS-IND-CICS-APP-ID
WS-IND-CICS-LEVEL
WS-IND-CONN-TYPE
WS-IND-NET-NAME
WS-IND-MIRROR-TRN
WS-IND-RETURN-CODE
WS-IND-MSG-AREA.
Parameters passed from DSNACICX is
SET ADDRESS OF COMMAREA TO XPL-COMMAREAPTR.
MOVE 'CICSDB ' TO XPL-CICSAPPLID.
MOVE 2 TO XPL-CICSLEVEL.
MOVE 'SPECIFIC' TO XPL-CONNECTTYPE.
MOVE 'CICSDB ' TO XPL-NETNAME.
MOVE 'CSMI' TO XPL-MIRRORTRAN.
GOBACK.
When i execute this i'm getting
12 DSNA314I UNABLE TO LOAD CICS STUB ROUTINE DFHXCSTB. SYSTEM REASON CODE = X'0004' SYSTEM COMPLETION CODE = '0806'
Please advise some body what might be the wrong with mine
Thank you
Venkat
dBforums
>
Trying to access CICS transaction from DB2 Stored procedure.
01-17-06, 12:56
Linear Mode
