Tag: mainframe

DEFINE DATA LOCAL 01 IDENT VIEW OF IDENTIFICATION-TABLE 02 IDENT-NAME 02 IDENT-ID 02 IDENT-AGE 02 SUPER-ID-NAME-AGE END-DEFINE MOVE 1111 TO IDENT-ID MOVE 'ABCD' TO IDENT-NAME MOVE 23 TO IDENT-AGE STORE IDENT IN RECORD END What is the output of above program?

Data in IDENTIFICATION-TABLE IDENT-ID IDENT-NAME IDENT-AGE ----------------------------- 1234 AAAA 23 1234 ABCD 22 2345 ACDB 13 3456 ADSB 25 4567 DADS 15 5678 EDSC 20 FIND IDENTIFICATION-TABLE WITH IDENT-ID EQ '1234' DISPLAY IDENT-ID IDENT-NAME IDENT-AGE LOOP How many records will be displayed?

Data in IDENTIFICATION-TABLE IDENT-ID IDENT-NAME IDENT-AGE ----------------------------- 1234 AAAA 23 1234 ABCD 22 2345 ACDB 13 3456 ADSB 25 4567 DADS 15 5678 EDSC 20 FIND IDENTIFICATION-TABLE WITH SUPER-ID-NAME-AGE EQ '1234' DISPLAY IDENT-ID IDENT-NAME IDENT-AGE LOOP How many records will be displayed?

If a find statement returns with multiple records for a given descriptor value, in which order the records will be displayed in the output?