Il ya plusieurs façons de traiter avec des longueurs d'enregistrement incertaines dans le traitement des fichiers et des données. COBOL est l'un des moyens les plus éloquents et distinctif pour ce faire. Vous pouvez lire un fichier avec de nombreux enregistrements, chacun de taille indéterminée, en utilisant l'un des commandes natives de COBOL . En supposant que vous avez un fichier dont la taille d'un dossier peut varier à l'intérieur d'un personnage à 400 caractères , votre application COBOL peut gérer pour vous. Utilisez cette technique pour obtenir la longueur d'enregistrement , retourner un nombre de caractères et de déplacer les dossiers variables à un autre fichier si désiré. Instructions
1

commencer par évaluer la longueur maximale des enregistrements dans le fichier . Dans cet exemple , il peut être jusqu'à 400 octets et aussi bas que un octet , qualifiant le fichier comme étant de longueur variable.
2

Allez à " File Section " du programme et ensemble la structure de fichier pour les enregistrements votre programme est en train de lire le fichier entrant . Votre structure " du descripteur de fichier " devrait ressembler à ceci : " En FD -File " "Record contient de 1 à 400 caractères en fonction de WS- Character -Counter "
3

Tapez le suivant en dessous. FD : « . 01 In- Rec " "05 entrées- Champ -01 Pic X (98). " "05 entrées- Champ -02 Pic S9 ( 9) V99 Comp- 3. " C'est tout simplement l'enregistrement d'entrée dans l'exemple cité . Les champs doivent être au moins un et pas plus de 400 octets dans cet exemple
4

Type de la variable Working- Storage pour les compteurs de caractères des fichiers comme : . "05 WS- Character -Counter Pic 9 ( 5 ) . " Cette variable contiendra la longueur de l'enregistrement d'entrée après chaque instruction "Read" et doit être un champ numérique non signé. Après la " fonction de " déclaration, ce domaine sera de retour la valeur numérique de la longueur de l'enregistrement. Après chaque " Lire ", COBOL remplit automatiquement ce numéro.
5

Aller à la Division de la procédure et tapez l'instruction "Read" après le fichier approprié déclarations d'ouverture "ouvert". Vous pouvez utiliser le " WS- Character -Counter " variable pour récupérer la longueur d'enregistrement .
6

compiler le programme et s'assurer que la liste est exempt de toute erreur de syntaxe.
7

exécuter le programme comme un test et vérifier la sortie.