MVSFORUMS.com :: View topic - Call CICS program from batch

through

[^/[Print]\]

MVSFORUMS.com -> Application Programming

#1: Call CICS program from batch Author: sinduja,

Posted: Mon Feb 02, 2015 2:17 am
—
Hi All,

I am calling a CICS program from a batch program. The called program is getting invoked, but the data I pass in the callling program is not available in the called program.

The call in batch program is like this.

Code:

EXEC CICS LINK
PROGRAM(W01-TARGET-PROGRAM)
TRANSID(W01-TARGET-TRANSID)
APPLID(W01-TARGET-SYSTEM)
COMMAREA(SOMS-INPUT-FILE)
LENGTH(LENGTH OF SOMS-INPUT-FILE)
DATALENGTH(LENGTH OF SOMS-INPUT-FILE)
RETCODE(EXCI-EXEC-RETURN-CODE)
SYNCONRETURN
END-EXEC

In the called progam..

Code:

LINKAGE SECTION.
01 DFHCOMMAREA PIC X(1024).
*
01 EXCI-EXEC-RETURN-CODE PIC X(5).
*

PROCEDURE DIVISION.
********************
* getZIKDATA
DISPLAY 'DFHLEN' EIBCALEN
MOVE DFHCOMMAREA TO WS-COMMAREA

The above code displays length zero for EIBCALEN.

Can someone please point out what could be the problem here. Why am I not getting the data into the called program?

Thank you

Regards,
Sinduja

#2: Author: kolusu, Location: San Jose

Posted: Mon Feb 02, 2015 12:06 pm
—
sinduja,

Look up the sample COBOL DFH0CXCC program in CICSTS*.CICS.SDFHSAMP library which shows how to use EXCI interface.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dfhtmp13/3.7.3.1?

#3: Author: sinduja,

Posted: Tue Feb 03, 2015 2:06 am
—
Thank you Kolusu. I will check this.

MVSFORUMS.com -> Application Programming

output generated using printer-friendly topic mod. All times are GMT - 5 Hours

Page 1 of 1