Buenos dias Mis compas, estoy aprendiendo cobol:
Una de mis practicas es que de un archivo, sea lea y que imprima la linea del archivo.
De la posicion 1 al 20 es el nombre, de la 21 a la 40 es la direccion.
Y mi programa se tiene que imprimir
Nombre:
Direccion:
Esto debe se ser por cada linea, yo manejo sql server, debe de ser una funcion tipo substring, pero no encuentro bien la documentacion
Código COBOL:
*------
*-------------------------------------------------
IDENTIFICATION DIVISION.
*--------------------------------------------------
PROGRAM-ID. datos.
AUTHOR. Juan
DATE-WRITTEN. 2023
SECURITY. =============================================
=============================================
*--------------------------------------------------------------------
ENVIRONMENT DIVISION.
*--------------------------------------------------------------------
CONFIGURATION SECTION.
SOURCE-COMPUTER. UNIX.
OBJECT-COMPUTER. UNIX.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT RTRES ASSIGN TO "./DATOS.TXT"
ORGANIZATION IS LINE SEQUENTIAL.
*--------------------------------------------------------------
DATA DIVISION.
FILE SECTION.
FD RTRES.
01 REGISTRO.
05 R3 PIC X(156).
******************************************************************
WORKING-STORAGE SECTION.
01 FDR3.
05 WS-STUDENT-ID PIC 9(15).
05 WS-NAME PIC A(55).
01 FIN PIC A(1).
******************************************************************
PROCEDURE DIVISION.
******************************************************************
OPEN INPUT RTRES.
PERFORM UNTIL FIN='Y'
READ RTRES INTO FDR3
AT END MOVE 'Y' TO FIN
NOT AT END DISPLAY FDR3(2:5)
END-READ
END-PERFORM.
CLOSE RTRES.
STOP RUN.
Asi va mi programa
|
|