Answers

Question and Answer:

  Home  CICS

⟩ 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

....

 140 views

More Questions for you: