Cómo obtener la longitud de un registro en COBOL

Hay muchas maneras de lidiar con longitudes de registro de incertidumbre en el procesamiento de archivos y datos. COBOL tiene una de las maneras más elocuentes y distintivo de lograr esto. Usted puede leer un archivo con muchos registros , cada uno de un tamaño indeterminado , mediante el uso de uno de los comandos nativos de COBOL . Asumiendo que tiene un archivo en el que el tamaño de cualquier registro dentro puede variar de un personaje a 400 caracteres , la aplicación COBOL puede manejar para usted . Utilice esta técnica para obtener la longitud de registro , devolver un recuento de caracteres y mover los registros de variables a otro archivo si así se desea . Instrucciones
1

Start mediante la evaluación de la longitud máxima de los registros en el archivo. En este ejemplo , puede ser de hasta 400 bytes y tan bajas como un byte , calificando el archivo como de longitud variable.
2

Ir a la "Sección de Archivo" del programa y el conjunto la estructura de archivos de los registros de su programa es la lectura del archivo de entrada . Su estructura de " descriptores de archivos" debe ser similar a esto: " FD In-File " "Record contiene de 1 a 400 caracteres en función de WS -Character - Contra "
3

Escriba el siguiente debajo . FD : "01 En -Rec ". " 05 de entrada -Field - 01 Pic X ( 98 ) . " " 05 de entrada -Field - 02 Pic S9 ( 9 ) V99 Comp - 3 . " Esto es simplemente el registro de entrada en el ejemplo citado . Los campos deben ser por lo menos uno y no más de 400 bytes en este ejemplo
4

Tipo de la variable Working- Storage para los contadores de archivo con caracteres como: . " 05 WS -Character - Contador Pic 9 ( 5 ) . " Esta variable se mantenga la longitud del registro de entrada después de cada comando "Leer" y debe ser un campo numérico sin signo. Después de la "dependiendo " declaración , este campo se devolverá el valor numérico de la longitud del registro. Después de cada " Leer ", COBOL rellena automáticamente este número.
5

Ir a la División de Procedimiento y escriba la instrucción "Leer" después de la apertura de las declaraciones "Abrir" archivo apropiado . Puede utilizar la variable " WS -Character - contador" para recuperar la longitud del registro .
6

Compile el programa y asegúrese de que la lista esté libre de errores de sintaxis .
7

ejecutar el programa como una prueba y examine los resultados.