Creación de un archivo en COBOL

Como crear un archivo vacío en COBOL

Una de las cosas que se necesitan en cualquier lenguaje de programación, son los archivos donde almacenar la

información. Esta nota presenta un programa, que permite crear un archivo sin datos, es decir vacío, preparado para recibir información. En otros lenguajes existen interfaces determinadas que los crean, pero para este caso, en COBOL utilizaremos el mismo lenguaje para crearlo.

A continuación el código fuente del mismo, y finalizado tendrán las extensiones FD y  SL  que en determinados lugares del programa son utilizadas, vale indicar que estas deben estar en el mismo directorio donde se compila (traducción de lenguaje fuente a lenguaje de máquina). Este código es una opción dentro de un menú, dado que cuando se sale del mismo se ejecuta “MENU.EXE”, 

según figura en el inicio de la PROCEDURE DIVISION.

       IDENTIFICATION DIVISION.

       INSTALLATION.           PC-IBM.      

       PROGRAM-ID.             GENERA.

       SECURITY.

                   GENERACION DE ARCHIVOS.

       ENVIRONMENT DIVISION.

       CONFIGURATION SECTION.

       SPECIAL-NAMES.          DECIMAL-POINT IS COMMA.

       INPUT-OUTPUT SECTION.

       FILE-CONTROL.

            COPY EQUIPOS.SL.

       DATA DIVISION.

       FILE SECTION.

            COPY EQUIPOS.FD.

       WORKING-STORAGE SECTION.

       77  ESTADO-W    PIC XX VALUE SPACES.

       77  SELE-W      PIC X VALUE SPACES.

       77  BLA-W       PIC X(80) VALUE SPACES.

       01  ARCHI-SC.

           03 LINE 05 COLUMN 05 VALUE ‘Nro. de Archivo:’.

           03 COLUMN PIC ZZ USING NRO-CAMP.

       01  ASIGEQUI.

           03 FILLER PIC X(6) VALUE ‘EQUIPO’.

           03 AS-EQU PIC 99.

           03 FILLER PIC X(4) VALUE ‘.DAT’.

       SCREEN SECTION.

       01  MENU-SC.

           03 LINE 04 COLUMN 25 VALUE

           ‘                             ’ REVERSE-VIDEO.

           03 LINE 05 COLUMN 25 VALUE

           ‘  PROGRAMA DE PRUEBA’ REVERSE-VIDEO.

           03 LINE 06 COLUMN 25 VALUE

           ‘ ————————— ‘ REVERSE-VIDEO.

           03 LINE 08 COLUMN 25 VALUE

           ‘    GENERACION DE ARCHIVOS   ‘.

           03 LINE 09 COLUMN 25 VALUE

           ‘    ———————-   ‘.

           03 LINE 14 COLUMN 16 VALUE

           ‘ 1.- EQUIPOS’.

           03 LINE 22 COLUMN 16 VALUE

           ‘     SELECCIONE SU OPCION: ‘.

           03 COLUMN PIC X USING SELE-W AUTO.

       01  CONFI-SC.

           03 LINE 20 COLUMN 05 VALUE ‘CONFIRMAR CON (ENTER):’.

           03 COLUMN PIC X USING ESTADO-W.

       PROCEDURE DIVISION.

       INICIO.

           MOVE SPACES TO SELE-W.

           DISPLAY RECU-SC.

           DISPLAY MENU-SC.

           ACCEPT  MENU-SC ON ESCAPE CHAIN ‘MENU00.EXE’.

           IF SELE-W = ’1′ GO GENE-EQUI.

           GO INICIO.

       GENE-EQUI.

           ACCEPT ARCHI-SC ON ESCAPE GO INICIO.

           ACCEPT  CONFI-SC ON ESCAPE GO INICIO.

           MOVE NRO-CAMP TO AS-EQU.

           OPEN OUTPUT EQUIPOS.

           CLOSE EQUIPOS.

           GO INICIO.

EXTENSIONES UTILIZADAS

EQUIPOS.SL

SELECT EQUIPOS  ASSIGN TO DISK

           FILE STATUS     IS ESTADO-W

           RECORD KEY      IS CLAVE-EQUI

           ALTERNATE RECORD KEY IS CLA-EQUI2 DUPLICATES

           ACCESS          IS DYNAMIC

           ORGANIZATION    IS INDEXED.

EQUIPOS.FD

FD  EQUIPOS  LABEL RECORDS ARE STANDARD

                       VALUE OF FILE-ID IS ASIGEQUI

                       DATA RECORD IS REG-EQUI.

       01  REG-EQUI.

           03 CLA-EQUI2.

              05 PTOS-CAMP   PIC 99.

              05 PART-JUG    PIC 99.

              05 DIF-GOL     PIC 9(3).

              05 GOL-AFAV    PIC 99.

            03 CLAVE-EQUI.

               05 NRO-EQUI PIC 99.

    Se está usando una variable ASIGEQUI para asignar el nombre del archivo físico con el lógico, el nombre se forma con la palabra “EQUIPO” y un dato más que se deberá colocar al momento de crearlo, ingresando la variable por pantalla, la idea es poder utilizar el mismo programa para crear mas de un archivo y hacer de cuenta que esta es una interfase casera, para la creación de archivos por primera vez. El nombre podría ser todo variable así poder utilizar el mismo programa para crear cualquier archivo, ingresando por pantalla el nombre del mismo….

Como nota aclaratoria, es bueno citar que COBOL, cada vez que abre un archivo de output, lo está creando vacío, con lo cual se debe tener cuidado, al momento de crearse este archivo de datos, tendrá dos claves una principal y una alternativa según figura en la SL del mismo, pudiendo ser clave duplicada una de ellas.

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos necesarios están marcados *

*

Puedes usar las siguientes etiquetas y atributos HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

© VB-MUNDO – Visual Basic y mucho más
CyberChimps