IBM Mainframe Forum

Hi,

I am getting 'UNABLE TO DETERMINE ADDR' while calling a CICS program from a CICS program,

In the working storage section of the calling program , I have declared
01 WS-EMAIL00-PASSAREA.
05 WS-EM-CLNTNM PIC X(20).
05 WS-EM-AMOUNT PIC X(21).
05 WS-EM-ACHFN PIC X(20).
05 WS-EM-CTLFN PIC X(20).
and has the below stmt..
CALL EMAIL00 USING WS-EMAIL00-PASSAREA.

In the linkage section of the called program, I have
01 WS-EMAIL00-PASSAREA.
05 WS-EM-CLNTNM PIC X(20).
05 WS-EM-AMOUNT PIC X(21).
05 WS-EM-ACHFN PIC X(20).
05 WS-EM-CTLFN PIC X(20).

PROCEDURE DIVISION USING WS-EMAIL00-PASSAREA.
0000-MAIN-LINE.
EXEC CICS ASSIGN
USERID(USERID)
APPLID(APPLID)
END-EXEC.
MOVE WS-EM-CLNTNM TO OUTPRT8-CLNTNM
MOVE WS-EM-AMOUNT TO OUTPRT9-AMOUNT
MOVE WS-EM-ACHFN TO OUTPRT10-ACHFLN
MOVE WS-EM-CTLFN TO OUTPRT11-DATFLN.
....
and like this
I receiving the error in the very begginning of the called program. Can someone please help.
sandhya c

Posts: 1
Joined: Sat Aug 25, 2012 10:18 pm

even ifYou posted to the right section
the info provided does not convey anything useful to solve Your problem

anyway if You had googled with UNABLE TO DETERMINE ADDR
You would have foundquite a few urls pointing to the same problem

The manual indicates you've got problems with the way your code is put together:

Static COBOL CALL
The CALL statement may pass DFHEIBLK and DFHCOMMAREA as the first two parameters, if the called program is to issue EXEC CICS requests, or the called program can issue EXEC CICS ADDRESS commands. The COMMAREA is optional but if other parameters are passed, a dummy COMMAREA must also be passed. The rules for nested programs can be different. See Nesting: what the application programmer must do
Dynamic COBOL CALL
The CALL statement may pass DFHEIBLK and DFHCOMMAREA as the first two parameters, if the called program is to issue EXEC CICS requests, or the called program can issue EXEC CICS ADDRESS commands. The COMMAREA is optional but if other parameters are passed, a dummy COMMAREA must also be passed. If the called subprogram uses 24-bit addressing and any parameter is above the 16MB line, COBOL issues a message and abends(1033) .

You either need to pass DFHEIBLK and DFHCOMMAREA to your subprogram, or you need to use EXEC CICS ADDRESS -- your call.

Thanks Robert. It is now resolved after passing DFHEIBLK & DFHCOMMAREA.

Glad to hear it is resolved.

Hi. i am facing the same problem while calling a non-cics program from a cics pgm. call is a dynamic call.

Do Not continue to multi-post . . .

This one also is being locked