Interested to Buy Any Domain ? << Click Here >> for more details...
What does it mean when EIBCALEN is equal to zeros?
- 6 Answers
- 76978 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 is the difference between a return with transid and xctl? For example program. A is issuing return with transid to program b. Program a. Is isssuing xctl to program b?
Explain the difference between using the read command with into option and set option?
What is the procedure to read a statement from tsq?
cics command level is?
What is the main function of the sign-on table?
Define cedf?
what are the reserved words for cics?
What does the 'cemt:cics' transactions do?
Whenever a cics program goes through a compilation process, there is always some extra code that is added to the program. Where exactly does this new piece of code go to and what is it termed as ?
How errors are handled in CICS programs?
What is program reentrance?
Explain the usage of language in the ppt entry?
Explain the thress bms options?
Code the related portions of cics/cobol-i programs to gain addressability to twa area assigned to a particular task. Assme that the size of twa area is 300bytes. What are the advantages if cobol-ii is used in the place of cobol?
What is cics load command?
