Tag: mainframe

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.

TSO - Time Sharing Option

ISPF - Interactive System Productivity Facility

JCL = Job Control Language

VSAM = Virtual Storage Access Method