IDENTIFICATION DIVISION. PROGRAM-ID. PRGCOB05. ** * AREA DE COMENTARIOS - REMARKS * OBJETIVO DO PROGRAMA = OPERACOES ARITMETICAS * AUTOR: IVAN * DATA : XX/XX/20XX ** ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. DECIMAL-POINT IS COMMA. DATA DIVISION. WORKING-STORAGE SECTION. 77 WRK-USUARIO PIC X(20) VALUE SPACES. 77 WRK-NIVEL PIC 9(02) VALUE ZEROS. 88 ADM VALUE 01. 88 USER VALUE 02.
PROCEDURE DIVISION.
DISPLAY 'USUARIO ..... : '.
ACCEPT WRK-USUARIO.
DISPLAY 'NIVEL..... : '.
ACCEPT WRK-NIVEL.
IF ADM
DISPLAY 'NIVEL - ADMINISTRADOR '
ELSE
IF USER
DISPLAY 'NIVEL - USUARIO'
END-IF.
STOP RUN.