Questions et reponses d'entretien

Example:

01 EMPLOYEE-TABLE OCCURS 10 TIMES INDEXED BY EMPLOYEE-INDEX.
...

Example:

01 STATUS-CODE PIC 99.
88 SUCCESS VALUE 00.
88 FAILURE VALUE 01.

Example:

01 SALES-AMOUNT OCCURS 12 TIMES PIC 9(5).

Example:

INSPECT NAME-STRING REPLACING ALL '- ' BY SPACE.

Example:

EVALUATE TRUE
  WHEN AGE < 18 DISPLAY 'Minor'
  WHEN AGE > 65 DISPLAY 'Senior'
  WHEN OTHER DISPLAY 'Adult'.

Example:

01 EMPLOYEE-TABLE OCCURS 10 TIMES INDEXED BY EMPLOYEE-INDEX.
...

Example:

PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10
  DISPLAY 'Iteration ' I.
END-PERFORM.

Example:

MOVE FUNCTION CURRENT-DATE TO DATE-FIELD.

Example:

IF AMOUNT < 0
  DISPLAY 'Invalid amount'
END-IF.

Example:

PERFORM UNTIL EOF-FLAG = 'Y'
  ...
  IF SOME-CONDITION
    EXIT.
  END-IF.
END-PERFORM.

Example:

01 AMOUNT PIC 9(5) USAGE COMP-3.

Example:

MOVE CORRESPONDING RECORD-1 TO RECORD-2.

Example:

SEARCH ITEM-TABLE AT END DISPLAY 'Item not found'.

Example:

STRING 'Hello' ' ' 'World' DELIMITED BY SIZE INTO OUTPUT-STRING.

Example:

UNSTRING NAME-STRING DELIMITED BY ',' INTO FIRST-NAME LAST-NAME.

Example:

SET TABLE-INDEX TO 1.

Example:

PERFORM PROCESS-DATA.
IF ERROR-FLAG = 'Y' THEN
  EXIT PARAGRAPH.
END-IF.

Example:

USE EMPLOYEE-INDEX.

Example:

PERFORM PROCESS-DATA SECTION.
IF ERROR-FLAG = 'Y' THEN
  EXIT SECTION.
END-IF.