Saturday, September 7, 2013

Defaults

JCL Defaults
1.(NEW,DELETE,DELETE)  - DISP Parameter
2. 5 Buffers - BUFNO Parameter in DCB

COBOL Defaults
1.Trailing - Default for SIGN clause
2.Ascending - SEARCH ALL
3.NOSSRANGE - Subscript out of ranger checking

DB2 Defaults
1.BP00,BP01,BP02 & BP32 - Default Buffers in DB2
2.REPLACE - ACTION Parameter in BIND card
3.VALIDATE - RUN parameter in BIND CARD
4.ASCENDING - ORDER BY in Sort

CICS Interview Questions 2

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

Sunday, September 1, 2013

COBOL

8 - Maximum length of Program ID.
7 - Maximum Level in OCCURS clause.
18 - Maximum numbers of digits in a numeric field.
30 - Maximum length of name of Identifier.
120 - Maximum numbers of characters in an alphanumeric field.