Tag: mainframe

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?

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?

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?