Q) What are the six different types of argument values in COBOL that can be placed in various options of a CICS command?
A) Data Value - EX (Literal 8 or 7 7 KEYLEN PIC S9(4 ) COMP VALUE 8.)
Data Area - EX (01 RECORD-AREA.
05 FIELD1 PIC X(5). )
Pointer-Ref - EX (05 POINTER-I PIC S9(8) COMP. )
Name - EX (05 FILE-NAME PIC X(5) VALUE ‘FILEA’. )
Label - Cobol paragraph name
HHMMSS - EX (77 TIMEVAL PIC S9(7) COMP3. )
Q) Kindly specify the PIC clause for the following
Any BLL Cell, Data type of Length Option field, HHMMSS type of data fields
A) Any BLL Cell - S9(8) COMP
Data type of Length Option field - S9(4) COMP
HHMMSS type of data fields - S9(7) COMP3
Q) Specify CICS transaction initiation process. (From the perspective of CICS control programs and control tables.)
A) TCP places d ata in TIOA and corresponding entry into TCT.
KCP acquires the transaction identifier from TIOA and verifies if it is present in PCT.
SCP acquires Storage in Task Control Area (TCA), in which KCP prepares control data for the task.
KCP then loads the application programs mentioned in PCT by looking for it in PPT.
If resid ent - real storage memory location is not present in the PPT the control is passed to PCP that
loads the application programs from the physical storage location address given in PPT. The control is
then passed to the application program (LOAD module).
Q) List the sequence of steps used to achieve “Modification in Skip Sequential Mode.”
A) I. READNEXT command
II. Issue the ENDBR command
III. Issue the READ command with UDTAE optio n.
IV. Manipulate the record (DELETE or REWRITE command)
V. Issue START command
VI. Issue two READNEXT commands (One for dummy skip)
VII. Go to step two.
Q) Specify the requirements for Auto matic Task Initia tion. (Mention the control table, it’s entries
and the corresponding Procedure division CICS command).
A) DFHDCT TYPE=INTRA,
DESTID=MSGS,
TRANSID=MSW1,
TRIGLEV=1000
EXEC CICS WRITEQ TD
QUEUE(‘MSGS’),
FROM(DATA-AREA),
LENGTH(MSG_LEN)
END-EXEC.
Q) What are the commands used to gain exclusive control over a resource (for Ex a Temporary storage queue.)?
A) EXEC CICS ENQ EXEC CICS DEQ
RESOURCE(QID) RESOURCE(QID)
END-EXEC END-EXEC
Q) What is the EIB parameter and the CICS command used to implement Pseudo-Conversa tional
technique using single PCT - Single PPT entry?
A) EIBCALEN - To check if COMMAREA has been passed in terurn command.
EXEC CICS RETURN
TRANSID(data-name)
COMMAREA(data-area)
LENGTH(data-value)
END-EXEC
Q) Mention the 5 fields available in the symbolic map for every ‘NAMED’ field in the DFHMDI
macro? Give a brief description of these fields (Not exceeding a line).
A) FIELD+L - Return the length of text entered (or for dymanic cursor positioing)
FIELD+F - Returns X(80) if data entered but erased.
FIELD+A - Used for attributes reading and setting
FIELD+I - Used for reading the text entered while receiving the map.
FIELD+O - Used for sending information on to the MAP.
Q) What are the two ways of breaking a CPU bound process to allow other tasks to gain access to CPU.
A) EXEC CICS DELAY EXEC CICS DELAY
INTERVAL(hhmmss) TIME(hhmmss)
END-EXEC END-EXEC
POST and WAIT commands also achieve the same result.
Q) How do you initiate another transaction? The transaction initiated should be in a position to retrieve information pertaining to which transaction has initia ted it and from which terminal. (Code the required CICS commands)
A) EXEC CICS START
INTERVAL(hhmmss)/TIME(hhmmss)
TRANSID(‘TRAN’)
TERMID(‘TRM1)
FROM(data-area)
LENGTH(data-value)
RTRANSID(EIBTRNID)
RTERMID(EIBTRMID)
END-EXEC
EXEC CICS RETRIEVE
INTO(data-area)
LENGTH(data-value)
RTRANSID(data-name)
RTERMID(data-name)
END-EXEC
