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.