hangshuo652
25 lines
716 B
COBOL
25 lines
716 B
COBOL
* >>SOURCE FORMAT IS FREE
|
|
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. TEST.
|
|
DATA DIVISION.
|
|
WORKING-STORAGE SECTION.
|
|
01 WS-A PIC X(01).
|
|
01 WS-B PIC 9(05).
|
|
01 WS-C PIC X(20).
|
|
PROCEDURE DIVISION.
|
|
IF WS-A = 'A' THEN
|
|
MOVE 'HIGH' TO WS-C
|
|
IF WS-B > 1000 THEN
|
|
MOVE 'HIGH-1000' TO WS-C
|
|
ELSE
|
|
MOVE 'LOW-1000' TO WS-C
|
|
END-IF
|
|
ELSE IF WS-A = 'B' THEN
|
|
MOVE 'MED' TO WS-C
|
|
IF WS-B > 500 THEN
|
|
MOVE 'MED-500' TO WS-C
|
|
END-IF
|
|
ELSE
|
|
MOVE 'OTHER' TO WS-C.
|
|
GOBACK.
|