Expansion for MVS

Expansion for CICS

DEFINE DATALOCAL01 #A (N2)END-DEFINERESET #AREPEAT UNTIL #A > 99 ADD 1 TO #AEND-REPEATENDWhat is the output of the above program?

Requirement is to read all the distinct values of following fields from a table called 'IDENTIFICATION-TABLE'. Fields need to be extracted are 1) IDENT-ID 2) IDENT-NAME 3) IDENT-AGE Super to be used for this requirement is SUPER-ID-NAME-AGE (combination of above fields). Which statement will be used to read the data efficiently from IDENTIFICATION-TABLE?

What should be CA size for below specification of primary and secondary space allocation?

Examine statement can be used to convert the lowercase to uppercase and vice versa

Calculate the number of Sequence set records and index set records for below VSAM file.

Calculate the embedded space in CA's for above VSAM file -

Which of the following conditions suggest REORG of a VSAM file?

Regular REORG is a Tunning procedure which improves VSAM performance.

Data in the database ------------------------------- IDENT-ID IDENT-NAME IDENT-AGE 1234 AAAA 12 1234 AAAA 12 3456 CCCC 14 6879 DDDD 17 7625 EEEE 21 HISTOGRAM IDENTIFICATION-TABLE BY SUPER-ID-NAME-AGE STARTING FROM '1234' WRITE IDENT-ID IDENT-NAME IDENT-AGE END-HISTOGRAM How many records will be displayed in the output?

DEFINE DATALOCAL01 #A (A15)01 #POS (N2)END-DEFINEMOVE '123BDBEBDABFBBB' TO #AEXAMINE #A FOR 'B' REPLACE FIRST 'K' GIVING POSITION #POS WRITE '=' #A '=' #POSENDWhat is the value of #A and #POS?

Data in the database-------------------------------IDENT-ID IDENT-NAME IDENT-AGE IDENT-SEX1234 AAAA 12 M1234 AAAA 12 F3456 CCCC 14 F6879 DDDD 17 M7625 EEEE 21 FHISTOGRAM IDENTIFICATION-TABLE BY SUPER-ID-NAME-AGE STARTING FROM '1234' WRITE IDENT-ID IDENT-NAME IDENT-AGE IDENT-SEXEND-HISTOGRAMWhat will be the output of the job?

DEFINE DATA LOCAL 01 #A (A5) END-DEFINE MOVE '123BD' TO #A IF #A EQ MASK(NNN) WRITE '=' #A ELSE WRITE 'NO NUMERIC DATA' END-IF END What is the output of program?

Data in the database ------------------------------- IDENT-ID IDENT-NAME IDENT-AGE 1234 AAAA 12 2345 BBBB 23 3456 CCCC 14 6879 DDDD 17 7625 EEEE 21 HISTOGRAM IDENTIFICATION-TABLE BY SUPER-ID-NAME-AGE STARTING FROM '1235' WRITE IDENT-ID IDENT-NAME IDENT-AGE END-HISTOGRAM What records will be displayed in the output?

Is it possible to read the adabas file in descending order of a descriptor?

DEFINE DATA LOCAL 01 #A (A5) 01 #B (A5) 01 #C (A10) END-DEFINE MOVE 'ABC' TO #A MOVE '012' TO #B COMPRESS #A #B INTO #C LEAVING NO SPACE WRITE #C END What is the value of #C? * S in answer stands for space

IDENT-ID IDENT-NAME IDENT-AGE 1234 AAAA 12 2345 BBBB 23 3456 CCCC 14 6879 DDDD 17 7625 EEEE 21 READ IDENTIFICATION-TABLE BY SUPER-ID-NAME-AGE REJECT IF IDENT-AGE NE '21' AND IDENT-AGE NE '14' END-READ What will be the output of above program?

"Decide for" statement is used to check based on

CALLNAT is used to call a main program.