MANPROV

    IDENTIFICATION DIVISION.
    PROGRAM-ID. MANPROV.
    DATA DIVISION.
    FILE SECTION.
    WORKING-STORAGE SECTION.
    01  NUMPRO                 PIC 999.
    01  RAZON                  PIC X(40).
    01  CALLE                  PIC X(40).
    01  POBLACION              PIC X(40).
    01  CODPOS                 PIC 99999.
    01  CONTACTO               PIC X(15).
    01  TELEFONO               PIC 9(9).
    01  SITUACION              PIC 9 VALUE ZERO.
    01  LI                     PIC 99.
    01  ESTA                   PIC 9.
    01  SITTEX                 PIC X(8).
        77 TEXTOPA PIC X(28) VALUE "MANTENIMIENTO DE PROVEEDORES".
    PROCEDURE DIVISION.
        DISPLAY TEXTOPA ERASE LINE 01 COL 25.
        IF ESTA=0 PERFORM PANTASI.

        INICIO.
        DISPLAY "01 :" LINE 04 COL 08.
        DISPLAY "Núm. de PROVEEDOR  :" LINE 04 COL 13.
        DISPLAY NUMPRO LINE 04 COL 35.

        DISPLAY "02 : "LINE 06 COL 08.
        DISPLAY "Nombre ó R. SOCIAL : " LINE 06 COL 13.
        DISPLAY RAZON LINE 06 COL 35.

        DISPLAY "03 : " LINE 08 COL 08.
        DISPLAY "CALLE -domicilio-  : " LINE 08 COL 13.
        DISPLAY CALLE LINE 08 COL 35.

        DISPLAY "04 : " LINE 10 COL 08.
        DISPLAY "Código POSTAL      : " LINE 10 COL 13.
        DISPLAY CODPOS LINE 10 COL 35.

        DISPLAY "05 : " LINE 12 COL 08.
        DISPLAY "POBLACION          : " LINE 12 COL 13.
        DISPLAY POBLACION LINE 12 COL 35.

        DISPLAY "06 : " LINE 14 COL 08.
        DISPLAY "PERSONA de CONTACTO:" LINE 14 COL 13.
        DISPLAY CONTACTO LINE 14 COL 35.

        DISPLAY "07 : " LINE 16 COL 08.
        DISPLAY "Núm. TELEFONO      :" LINE 16 COL 13.
        DISPLAY TELEFONO LINE 16 COL 35.

        DISPLAY "08 : " LINE 18 COL 08.
        DISPLAY "Situac 0=ACT 9=BLOQ: " LINE 18 COL 13.
        DISPLAY SITUACION  LINE 18 COL 35.
        DISPLAY SITTEX  LINE 18 COL 37.

    PIES.
        DISPLAY "Núm. " LINE 20 COL 08.
        DISPLAY "Campo a MODIFICAR   :" LINE 20 COL 35.
        ACCEPT LI LINE 20 COL 57.

        IF LI<0 OR LI>8 GO PIES.
        IF LI=1 GO UNO.
        IF LI=2 GO DOS.
        IF LI=3 GO TRES.
        IF LI=4 GO CUATRO.
        IF LI=5 GO CINCO.
        IF LI=6 GO SEIS.
        IF LI=7 GO SIETE.
        IF LI=8 GO OCHO.
    PANTASI.
    UNO.
        DISPLAY "01 : " LINE 04 COL 08.
        DISPLAY "Núm. de PROVEEDOR   : " LINE 04 COL 13.
        IF ESTA=1 DISPLAY NUMPRO LINE 04 COL 35.
        ACCEPT NUMPRO LINE 04 COL 35.
        IF ESTA=1 GO PIES.
    DOS.
        DISPLAY "02 : "LINE 06 COL 08.
        DISPLAY "Nombre ó R.SOCIAL  : " LINE 06 COL 13.
        DISPLAY RAZON LINE 06 COL 35.
        ACCEPT RAZON LINE 06 COL 35.
    TRES.
        DISPLAY "03 : " LINE 08 COL 08.
        DISPLAY "CALLE -domicilio-   : " LINE 08 COL 13.
        IF ESTA=1 DISPLAY CALLE LINE 08 COL 35.
        ACCEPT  CALLE LINE 08 COL 33.
        IF ESTA=1 GO PIES.
    CUATRO.
        DISPLAY "04 : " LINE 10 COL 08.
        DISPLAY "Código POSTAL       : " LINE 10 COL 13.
        IF ESTA=1 DISPLAY CODPOS LINE 10 COL 35.
        ACCEPT  CODPOS LINE 10 COL 35.
        IF ESTA=1 GO PIES.
    CINCO.
        DISPLAY "05 : " LINE 12 COL 08.
        DISPLAY "POBLACION           :" LINE 12 COL 13.
        IF ESTA=1 DISPLAY POBLACION LINE 12 COL 35.
        ACCEPT  POBLACION LINE 12 COL 35.
        IF ESTA=1 GO PIES.
    SEIS.
        DISPLAY "06 : " LINE 14 COL 08.
        DISPLAY "PERSONA de CONTACTO:" LINE 14 COL 13.
        DISPLAY CONTACTO LINE 14 COL 35.
    SIETE.
        DISPLAY "07 : " LINE 16 COL 08.
        DISPLAY "Núm. TELEFONO      :" LINE 16 COL 13.
        DISPLAY TELEFONO LINE 16 COL 35.
    OCHO.
        DISPLAY "08 : " LINE 18 COL 08.
        DISPLAY "Situac 0=ACT 9=BLOQ: " LINE 18 COL 13.
        DISPLAY SITUACION  LINE 18 COL 35.
        DISPLAY SITTEX  LINE 18 COL 37.
        STOP RUN.
    END PROGRAM MANPROV.