|
Code the related portions of CICS COBOL-I programs to gain addressability ...
CICS Interview Questions
(Continued from previous question...)
Code the related portions of CICS COBOL-I programs to gain addressability ...
Q: 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 300 bytes. What are the advantages if COBOL-II is used in the place of COBOL? Code the above requirement in COBOL-II.
AN: LINKAGE SECTION.
01 PARMLIST.
02 FILLER PIC S9(8) COMP.
02 TWA-PTR S(98) COMP.
01 TWA-DATA-LAYOUT.
02 DATA-AREA PIC x(300)
PROCEDURE DIVISION.
......
EXEC CICS ADDRESS
TWA(TWA-PTR)
END-EXEC
SERVISE RELOAD TWA-DATA-LAYOUT.
COBOL-II PROGRAM
LINKAGE SECTION
01 TWA-DATA-LAYOUT.
05 DATA-AREA PIC X(300).
PROCEDURE ADDRESS
......
EXEC CICS ADDRESS
TWA(ADDRESS OF TWA-DATA-LAYOUT)
END EXEC
....
(Continued on next question...)
Other Interview Questions
| 