* >>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.