Questions et reponses d'entretien

Example:

PERFORM 5 TIMES
  DISPLAY 'Hello, World!'
END-PERFORM.

Example:

01 COUNT PIC 9(3).
INITIALIZE COUNT.

Example:

COMPUTE TOTAL = AMOUNT-1 + AMOUNT-2.

Example:

01 EMPLOYEE-RECORD.
  05 EMPLOYEE-ID PIC 9(5).
  05 EMPLOYEE-NAME PIC X(20).

Example:

MOVE 100 TO AMOUNT.

Example:

OPEN INPUT FILE-1.
READ FILE-1 INTO DATA-RECORD.
CLOSE FILE-1.

Example:

SET EMPLOYEE-INDEX TO 1.

Example:

01 COUNT PIC 9(3).
INITIALIZE COUNT.

Example:

COPY 'COMMON-FILE'.

Example:

ACCEPT EMPLOYEE-NAME.

Example:

WORKING-STORAGE SECTION.
01 COUNTER PIC 9(3) VALUE 0.

Example:

CALL 'SUB-PROGRAM' USING PARAMETER-1 PARAMETER-2.

Example:

IF AMOUNT > LIMIT
  DISPLAY 'Amount exceeds limit'
END-IF.

Example:

ACCEPT WS-EMPLOYEE-ID FROM 'Enter Employee ID:'.

Example:

01 AMOUNT PIC 9(5) COMP-3.

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.

Example:

READ FILE-1 INTO WS-RECORD ON EXCEPTION
  DISPLAY 'Error reading file'
END-READ.

Example:

01 EMPLOYEE-NAME PIC X(20).
01 EMPLOYEE-NAME-REDEFINED REDEFINES EMPLOYEE-NAME PIC 9(9).

Example:

MERGE FILE-1, FILE-2 INTO SORTED-FILE.

Example:

READ FILE-1 INTO DATA-RECORD.
REWRITE DATA-RECORD.

Example:

IF ERROR-FLAG = 'Y' THEN
  EXIT PROGRAM.
END-IF.

Example:

01 LARGE-DATA PIC X(1000).
RESERVE 1000 CHARACTERS FOR LARGE-DATA.

Example:

SET ENVIRONMENT CURRENCY-SYMBOL '$'.

Example:

READ INPUT-FILE INTO DATA-RECORD.
IF CONDITION
  REJECT DATA-RECORD.
END-IF.

Example:

ALTER ITEM-DESCR TO PIC X(30).

Example:

GENERATE 'NEW-PARAGRAPH'.