What does it mean when EIBCALEN is equal to zeros?
- 6 Answers
- 72958 Views
- ADP, IBM, L&T, Satyam, TATA, I also Faced
- E-Mail Answers
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
what are the differences between temporary storage queue (tsq) and transient data quene (tdq)?
What is non-conventional programs?
when an apllication is invoked via the exec cics start command with the from option, how does the application gain access to the common area?
Explain the difference between using the read command with into option and set option?
Explain the difference between cics program control table (pct) and cics processing program table (ppt)?
In a particular cics program, what is the procedure to allocate dynamic memory?
What does EIB mean in CICS?
What are the common cics service programs and explain their usage?
Explain the usage of language in the ppt entry?
Name the command which is used to release a record on which exclusive control is gained?
Particular area has been affected in cics screen, what is the process to find?
Explain the system transid cemt?
Explain the logical message in cics?
Explain the difference between start and xctl?
What is fset?
