stock listing

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-COMPANY-RECORD.
    05  WS-COMPANY-PROFILE.
        10  WS-COMPANY-NAME             PIC X(10).
        10  WS-COMPANY-CODE REDEFINES WS-COMPANY-NAME.
            20  WS-COMPANY-CODE-LIST    PIC X(4).
        10  FILLER                      PIC X(5).
        10  WS-COMPANY-YEAR             PIC 9(4).
        10  FILLER                      PIC X(5).
        10  WS-COMPANY-TYPE             PIC X(3).
        10  FILLER                      PIC X(5).
    05  WS-COMPANY-LISTING.
        10  WS-COMPANY-EXP              PIC 9(2).
        10  WS-COMPANY-CODE             PIC X(4).
01  WS-SWITCH.                         
    05  WS-COMPANY-CHECK                PIC X       VALUE 'N'.
        88  WS-COMPANY-2K                           VALUE 'Y'.
PROCEDURE DIVISION.
DISPLAY 'Hello, world'.
MOVE 'VERIZON'  TO  WS-COMPANY-NAME.
MOVE '2005'     TO  WS-COMPANY-YEAR.
MOVE 'IT'       TO  WS-COMPANY-TYPE.
DISPLAY WS-COMPANY-PROFILE.
COMPUTE WS-COMPANY-EXP  =   2018    -   WS-COMPANY-YEAR.
IF WS-COMPANY-YEAR >= 2000
MOVE 'Y'        TO  WS-COMPANY-CHECK
END-IF.
IF WS-COMPANY-EXP   >= 5
AND WS-COMPANY-2K
DISPLAY 'COMPANY '  WS-COMPANY-NAME ' IS STOCK LISTED AS ' WS-COMPANY-CODE-LIST
ELSE
DISPLAY 'COMPANY ' WS-COMPANY-NAME ' IS NOT ELIGIBLE FOR STOCK LISTING'.
STOP RUN.