Este artículo sigue mi introducción al lenguaje COBOL. Le aconsejo que vuelva a leer la primera parte que trata de los principios generales de COBOL. Aquí: https://128mots.com/index.php/2020/10/07/ibm-cobol/ e inglés http://128mots.com/index.php/en/2020/10/07/ibm-cobol-3/ (IBM COBOL FREE TRAINING)
Aquí discutimos los conceptos generales de la estructura de un programa COBOL.
DIVISIÓN DE DATOS
Todos los datos que utilizará el programa se encuentran en la División de Datos. Aquí es donde se cuidan todas las asignaciones de memoria requeridas por el programa. Esta división es opcional.
GESTIÓN DE ARCHIVOS:
FILE SECTION describe los datos enviados o desde el sistema, especialmente los archivos.
El SYNtax en COBOL es el siguiente
DIVISION DE DATOS.
SECCIÓN DE ARCHIVO.
FD/SD NameOfFile[RECORD CONTAINS intgr CHARACTERS]
[BLOCK CONTAINS intgr RECORDS]
[DATA RECORD IS NameOfRecord].
[RECORDING MODE IS {F/V/U/S}]
FD describe los archivos y SD los archivos de clasificación.
ARCHIVO EN ENTRADA
En FILE-CONTROL la sentencia será:
SELECCIONE FMASTER ASSIGN FMASTER
ESTADO DEL ARCHIVO W-STATUS-FMASTER.
Si el archivo de entrada está indexado:
SELECCIONE FMASTER ASSIGN FMASTER
ORGANIZACIÓN ESTÁ INDEXADA
LA CLAVE DE REGISTRO ES FMASTER-KEY
ESTADO DEL ARCHIVO W-STATUS-FMASTER.
En este caso a nivel de archivo-SECTION tendremos:
FMAITRE como aperitivo
FD FMAITRE.
01 ENR-FMAITRE.
Declaraciones de las áreas de registro
En el nivel JCL, la declaración tendrá el siguiente formato:
ENTREE DD DSN-SAMPLE. INPUTF,DISP-SHR
ARCHIVO FUERA
La instrucción JCL será:
OUTFILE DD DSN-SAMPLE. OUTPUTF,DISP(,CATLG,DELETE), LRECL-150,RECFM-FB
RECFM especifica las características de los registros con longitud fija (F), longitud variable (V), longitud variable ASCII (D) o longitud indefinida (U). Los registros que se dice que están bloqueados se describen como FB, VB o DB.
APERTURA Y CIERRE DE ARCHIVO EN LA DIVISIÓN DE PROCEDIMIENTOS
COBOL utiliza mecanismos PROCEDURE DIVISION para realizar aperturas de escritura, cierre y archivo.
Apertura del archivo de entrada:
FICENT DE ENTRADA ABIERTA
Abrir el archivo de salida:
SALIDA ABIERTA FICSOR
Cierre de archivo:
CLOSE FICENT CLOSE FICSOR
Reproducción de archivos:
LEER ACTENR AL FINAL MUEVA 'O' AL ÚLTIMO REGISTRO FIN DE LECTURA
Escritura de archivos
ESCRIBIR SOR-ENR
ENLACES EXTERNOS A RECURSOS (IBM COBOL FREE TRAINING)
A continuación se muestran algunos enlaces que me pareció interesante que también se ocupan de la gestión de archivos con COBOL.
Ejemplo de gestión de archivos de IBM: https://www.ibm.com/support/knowledgecenter/en/SS6SGM_5.1.0/com.ibm.cobol51.aix.doc/PGandLR/ref/rpfio13e.html
Formato REFM: https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.2.0/com.ibm.zos.v2r2.idad400/d4037.htm
Tutorialespunto un artículo sobre administración de https://www.tutorialspoint.com/cobol/cobol_file_handling.htm
COURSERA COBOL con VSCODE: https://www.coursera.org/lecture/cobol-programming-vscode/file-handling-YVlcf
MEDIUM un interesante artículo para principiantes de COBOL: https://medium.com/@yvanscher/7-cobol-examples-with-explanations-ae1784b4d576
También en su blog: http://yvanscher.com/2018-08-01_7-cobol-examples-with-explanations–ae1784b4d576.html
Muchos ejemplos de tutoriales gratuitos de COBOL y código de ejemplo: http://www.csis.ul.ie/cobol/examples/default.htm
GITHUB Awesome-cobol te https://github.com/mickaelandrieu/awesome-cobol
FORMACIÓN GRATUITA DE IBM COBOL