Tema: [AYUDA] problemas con file-status
Ver Mensaje Individual
  #1
Antiguo 30 de julio de 2023, 04:43
Marengo97
Forero Junior
Última Actividad 22.11.2023 00:42
Posts Posts: 26
Likes enviados Enviados: 5
Likes recibidos Recibidos: 0
Predeterminado [AYUDA] problemas con file-status
0
Likes

None...

Inactivo Inactivo
Hola, estoy escribiendo un programa que contiene un registro de libros para agregar, quitar, buscar, etc.. todo iba bien hasta que escribi la seccion de file status para que el programa
pueda saber si es necesario crear un archivo en caso que este no existe, se que puedo hacer funcionar el programa sin hacer esto pero como una buena practica quiero aprender a usar los file status.
El problema en cuestion esta al ingresar en la opcion 3,en el parrafo VER-LIBROS coloque un if para determinar si F-NOEXISTE-REG es TRUE disparar un mensaje de error, y en caso que no,que proceda a leer el archivo y mostrar todo lo que contiene, si elimino el archivo y presiono 3 me muestra ese error a la perfeccion pero si creo el archivo o el archivo ya existe de antemano luego no ingresa a la seccion 3, o simplemente se saltea el if o simplemente no me muestra ningun libro a pesar de haber ingresado algunos.
Aqui dejo mi codigo, cualquier ayuda, consejo, cosa que mejorar se agradece..
Código COBOL:
  1.        IDENTIFICATION DIVISION.
  2.  
  3.        PROGRAM-ID.                 LIBRERIA.
  4.        AUTHOR.                     LUCAS GALEANO.
  5.        DATE-WRITTEN                9/7/2023.
  6.  
  7.        ENVIRONMENT DIVISION.
  8.        INPUT-OUTPUT SECTION.
  9.        FILE-CONTROL.
  10.            SELECT REG-LIBROS ASSIGN TO "REGISTRO-LIBROS.DAT"
  11.                                ORGANIZATION IS INDEXED
  12.                                RECORD KEY IS LIBRO-ID
  13.                                ACCESS MODE IS DYNAMIC
  14.                                file status FS-REGISTRO-LIBROS.
  15.  
  16.        DATA DIVISION.
  17.        FILE SECTION.
  18.  
  19.        FD REG-LIBROS.
  20.  
  21.        01 DATOS-LIBRO.
  22.            05 LIBRO-ID PIC 999     VALUE ZEROS.
  23.            05 NOMBRE   PIC X(20)   VALUE SPACES.
  24.            05 EDITORIAL PIC X(20)  VALUE SPACES.
  25.            05 ESTADO   PIC X(12)   VALUE SPACES.
  26.       *05 FECHA-INGRESO.
  27.       *     10 DIA  PIC 99 VALUE ZEROS.
  28.       *     10 MES  PIC X(10) VALUE SPACES.
  29.       *     10 AÑO  PIC 9999 VALUE ZEROS.
  30.       * 05 FECHA-ALQUILER.
  31.       *     10 DDIA PIC 99 VALUE ZEROS.
  32.       *     10 MMES PIC X(10) VALUE SPACES.
  33.       *     10 AAÑO PIC 9999 VALUE ZEROS.
  34.  
  35.        WORKING-STORAGE SECTION.
  36.       *Codigos de error del archivo.
  37.        01 FS-REGISTRO-LIBROS PIC XX.
  38.            88 ESTA-REG         VALUE "00" "02".
  39.            88 N-ESTA-REG       VALUE "23".
  40.            88 F-NOEXISTE-REG   VALUE "35".
  41.       *Variables del programa.     
  42.        77 CONTINUAR PIC X.
  43.        77 CONTINUAR-REG PIC X.
  44.        77 OPC       PIC X VALUE SPACES.
  45.        77 LIMPIAR   PIC X(80) VALUE SPACES.
  46.        77 N         PIC 99.
  47.  
  48.        PROCEDURE DIVISION.
  49.        DECLARATIVES.
  50.            FILE-ERROR SECTION.
  51.                USE AFTER STANDARD ERROR PROCEDURE ON REG-LIBROS.
  52.                IF FS-REGISTRO-LIBROS EQUALS "35" THEN
  53.                    SET F-NOEXISTE-REG TO TRUE
  54.                END-IF.
  55.        END DECLARATIVES.
  56.        MENU.
  57.  
  58.            PERFORM UNTIL CONTINUAR = "N"
  59.            PERFORM LIMPIAR-PANTALLA
  60.            DISPLAY "ADMINISTRADOR DE CATALOGO" AT LINE 1 COL 1 WITH
  61.                                                            REVERSE-VIDEO
  62.            DISPLAY " "                         AT LINE 3 COL 1
  63.            DISPLAY "1.Registrar libro"         AT LINE 4 COL 1
  64.            DISPLAY "2.Eliminar libro"          AT LINE 5 COL 1
  65.            DISPLAY "3.Ver catalogo"            AT LINE 6 COL 1
  66.            DISPLAY "4.Crear nuevo registro"    AT LINE 7 COL 1
  67.            DISPLAY "0.Salir"                   AT LINE 8 COL 1
  68.            DISPLAY " "                         AT LINE 9 COL 1
  69.            DISPLAY "Ingrese tecla ( )"         AT LINE 10 COL 1 WITH
  70.                                                            REVERSE-VIDEO
  71.            ACCEPT OPC                          AT LINE 10 COL 16 WITH
  72.                                                PROMPT UNDERLINE
  73.            EVALUATE OPC
  74.            WHEN 1 PERFORM REGISTRAR-LIBRO
  75.       *     WHEN 2 PERFORM ELIMINAR-LIBRO
  76.            WHEN 3 PERFORM VER-LIBROS
  77.            WHEN 4 PERFORM CREAR-ARCHIVO
  78.            WHEN 0 MOVE "N" TO CONTINUAR
  79.            END-EVALUATE
  80.            END-PERFORM.
  81.            CLOSE REG-LIBROS.
  82.            STOP RUN.
  83.  
  84.  
  85.        REGISTRAR-LIBRO.
  86.            MOVE "S" TO CONTINUAR-REG.
  87.            INITIALIZE DATOS-LIBRO.
  88.            PERFORM LIMPIAR-PANTALLA.
  89.       *INTERFAZ MENU DE INGRESO DE DATOS
  90.            DISPLAY "Numero de serie:" AT LINE 1 COL 1.
  91.            DISPLAY "Nombre:"       AT LINE 2 COL 1.
  92.            DISPLAY "Editorial:"    AT LINE 3 COL 1.
  93.            DISPLAY "Estado:"       AT LINE 4 COL 1.
  94.            DISPLAY
  95.            "presione enter sin ingresar datos para salir al menu"
  96.                                                AT LINE 7 COL 12
  97.                                                WITH REVERSE-VIDEO.
  98.  
  99.  
  100.            DISPLAY "Numero de serie    :" AT LINE 1 COL 1 WITH
  101.                                                           REVERSE-VIDEO.
  102.            ACCEPT LIBRO-ID WITH PROMPT UNDERLINE UPDATE AT LINE 1 COL 25.
  103.  
  104.            IF LIBRO-ID EQUALS 000 MOVE "N" TO CONTINUAR-REG
  105.                END-IF.
  106.  
  107.            IF CONTINUAR-REG EQUALS "S"
  108.            DISPLAY "Numero de serie    :" AT LINE 1 COL 1
  109.            DISPLAY LIBRO-ID            AT LINE 1 COL 25
  110.  
  111.            DISPLAY "Nombre    :"     AT LINE 2 COL 1 WITH REVERSE-VIDEO
  112.            ACCEPT NOMBRE               AT LINE 2 COL 25
  113.            DISPLAY "Nombre:    "       AT LINE 2 COL 1
  114.            DISPLAY NOMBRE              AT LINE 2 COL 25
  115.  
  116.            DISPLAY "Editorial    :"  AT LINE 3 COL 1 WITH REVERSE-VIDEO
  117.            ACCEPT EDITORIAL            AT LINE 3 COL 25
  118.            DISPLAY "Editorial    :"    AT LINE 3 COL 1
  119.            DISPLAY EDITORIAL           AT LINE 3 COL 25
  120.  
  121.            DISPLAY "Estado    :"     AT LINE 4 COL 1 WITH REVERSE-VIDEO
  122.            ACCEPT ESTADO               AT LINE 4 COL 25
  123.            DISPLAY "Estado    :"       AT LINE 4 COL 1
  124.            DISPLAY ESTADO              AT LINE 4 COL 25
  125.  
  126.  
  127.            PERFORM ABRIR-IO-ARCHIVO
  128.            WRITE DATOS-LIBRO INVALID KEY
  129.                REWRITE DATOS-LIBRO INVALID KEY
  130.                    DISPLAY "ERROR AL REGISTRAR DATOS"
  131.            END-WRITE
  132.            PERFORM CERRAR-ARCHIVO
  133.            END-IF.
  134.  
  135.        VER-LIBROS. 
  136.            PERFORM LIMPIAR-PANTALLA
  137.            PERFORM ABRIR-IO-ARCHIVO
  138.            IF F-NOEXISTE-REG THEN
  139.            PERFORM LIMPIAR-PANTALLA
  140.            DISPLAY "ERROR, NO EXISTE UN ARCHIVO DE REGISTROS" AT LINE 1
  141.                                                            COL 1
  142.                                                            
  143.            DISPLAY "PRESIONE ENTER PARA VOLVER AL MENU()" AT LINE 10
  144.                                                            COL 1
  145.            ACCEPT OPC AT LINE  11 COL 36
  146.            ELSE
  147.            PERFORM LIMPIAR-PANTALLA
  148.            READ REG-LIBROS KEY IS LIBRO-ID 
  149.            AT END MOVE HIGH-VALUE TO DATOS-LIBRO
  150.            PERFORM VARYING N FROM 1 BY 1 UNTIL DATOS-LIBRO = HIGH-VALUE
  151.            DISPLAY DATOS-LIBRO AT LINE N COL 1
  152.            READ REG-LIBROS KEY IS LIBRO-ID
  153.            AT END MOVE HIGH-VALUE TO DATOS-LIBRO
  154.            END-PERFORM
  155.            ADD 1 TO N
  156.            DISPLAY "PRESIONE ENTER PARA REGRESAR AL MENU" AT LINE N
  157.                                                           COL 1
  158.            ACCEPT OPC AT LINE 15
  159.            PERFORM CERRAR-ARCHIVO
  160.            END-IF.
  161.  
  162.  
  163.  
  164.  
  165.  
  166.        LIMPIAR-PANTALLA.
  167.            PERFORM VARYING N FROM 1 BY 1 UNTIL N>24
  168.                DISPLAY LIMPIAR AT LINE N COLUMN 1
  169.            END-PERFORM.
  170.  
  171.        CREAR-ARCHIVO.
  172.            OPEN OUTPUT REG-LIBROS.
  173.  
  174.        CERRAR-ARCHIVO.
  175.            CLOSE REG-LIBROS.
  176.  
  177.        ABRIR-IO-ARCHIVO.
  178.            OPEN I-O REG-LIBROS.
Marengo97 is offline   Responder Con Cita