What does it mean when EIBCALEN is equal to zeros?
Answer Posted / pradeep
Its not that just CICS has returned no data, but also, when
there is another Programming language which passes data to
the CICS program, the EIBCALEN will be zero. This is
because, the CICS to CICS data transfer only through the
COMMAREA in LINKAGE SECTION. And if there is another prog.
lang. passing the data to a CICS prg, then data will be
received in the LINKAGE SECTION but with a Different Pre-
defined data item. For ex:
LINKAGE,SECTION.
01 DFHCOMMAREA.
03 FILLER PIC X(95).
01 TWA-AREA.
05 INTERFACE-AREA-ADDR USAGE IS POINTER.
01 MANTIS-IN.
02 FILLER PIC X(8).
02 MANTIS-DATA.
05 FILLER PIC X(95).
Here, the DFHCOMMAREA is only used, when a CICS Prog sends
the data. Whereas the MANTIS-IN is used when a MANTIS prog
is linked to this CICS pgm.
So, In PROCEDURE DIVISION, we give the following check
EVALUATE,EIBCALEN,
WHEN ZERO
EXEC CICS ADDRESS TWA(ADDRESS OF TWA-AREA) END-EXEC
SET ADDRESS OF MANTIS-IN TO INTERFACE-AREA-ADDR
MOVE MANTIS-DATA TO WW-LINKAGE-AREA
WHEN OTHER
MOVE DFHCOMMAREA TO WW-LINKAGE-AREA
END-EVALUATE.
Hope this is understandable!!
| Is This Answer Correct ? | 25 Yes | 4 No |
Post New Answer View All Answers
Every map is categorized into multiple fields, and there are three common working storage fields present for each of these respective fields. Mention those?
How can you access qsam (seq) files from cics?
Explain ceci transaction commands?
explain the means of supporting pseudo conversation programming. (Eg. Storing and restoring of states, control flow, error handling)?
What Are Send Map Maponly & Send Map Dataonly ?
Name the command used for terminating a browse operation?
Explain the logical message in cics?
What is the cics command that is used to access current date and time?
Define an aey9 abend?
Can you define cemt?
cics command level is?
What is the tcp in the cisc?
what are the reserved words for cics?
Explain the system transid cemt?
What is the use of the program list table?