Lecture d'un fichier plat à plusieurs reprises dans la troisième génération ordinateur langage de programmation commun Oriented Business Langue ( COBOL ) est un processus simple. Il exige une certaine habileté de programmation , cependant , ainsi que quelques connaissances de COBOL . Développé vers 1960 par le Dr Grace Murray Hooper , COBOL est encore largement utilisé , principalement par la communauté des affaires . Elle a été conçue , en partie, de traiter de grandes quantités de données avec des calculs commerciaux minimes ou simple. Choses que vous devez le manuel de l'utilisateur courant
pour COBOL environnement
actuelle COBOL manuel
Afficher plus Instructions
1

connecter sur l'environnement de l' ordinateur sur lequel vous allez coder , compiler et exécuter votre programme COBOL . Ouvrir l'éditeur où vous pourrez saisir et modifier votre programme. L'accomplissement de cette tâche varie en fonction du type d' environnement. Consultez le manuel de l'utilisateur actuel de l'environnement COBOL
2

de type ce modèle de programme , pour lesquelles l'information sera rempli au cours des étapes suivantes : .

IDENTIFICATION DIVISION.Program -ID. Programme ID here.Author . Votre nom Here.Installation . Mon entreprise computer.Date écrites. . MM /DD /YYYY.REMARKS.Program Description ici

ENVIRONNEMENT SECTION.INPUT - SORTIE SECTION.FILE - CONTROL.SELECT entrées- FileASSIGN dans "C: \\ TMP \\ SAMPIN.TXT " ORGANISATION EST ligne séquentielle .

SELECT impression fileASSIGN dans "C: \\ TMP \\ SAMPOUT.TXT " ORGANISATION EST ligne séquentielle

DATA
DIVISION.FILE SECTION.FD RECORD fichier d'entrée contient 10 CARACTÈRES .01 . INPUT- REC.05 last-name PIC X (10) . FD RECORD impression fichier contient 10 CARACTÈRES .01 SORTIE REC PIC X (10) STOCKAGE .WORKING SECTION.01 Read- cnt pic 9 (9 ) La valeur est égale à zéro . 01 Read- LMT pic 9 (9 ) La valeur est égale à zéro .

PROCEDURE DIVISION.OPEN INPUT - fileOUTPUT impression file.Set Read- cnt à 0.Set lecture LMT à 5.Read - file.READ fichier d'entrée à LA FIN Aller à la fin de PGM . Ajoutez 1 à Lire -CNT . DÉPLACER INPUT- RECORD DE SORTIE RECORD. Écrire la sortie - RECORD.Add 1 à lecture lmt.If lecture LMT = 5 Aller à la fin de PGMElseGo de lecture file.End - de - PGM.If Read- cnt = 0 Display "Input - dossier est vide " . FERMER fichier d'entrée , RUN impression file.STOP .
3

recueillir des informations auprès de plusieurs sources pour la Division d'identification du modèle de programme que vous avez tapé . Supprimez le texte dans les domaines de la Division d'identification , et le remplacer par l' information que vous recueillez . Changer le nom du programme , le nom du programme correct devrait être dans les spécifications du programme. Ajoutez votre nom comme auteur . Pour la date écrite , utiliser la date actuelle en utilisant deux caractères pour le mois et le jour et quatre caractères pour l'année . Pour le domaine de l'installation , entrez le milieu dans lequel vous exécutez votre programme, qui devrait être dans le manuel de l'utilisateur. Entrez une description du programme dans la section "Remarques" . Consultez le manuel actuel COBOL et le manuel de l' utilisateur et la clé de toutes les autres informations nécessaires pour identifier le programme à l'environnement d'exploitation spécifique . Pour cette étape et les étapes ultérieures ,
4

Saisissez les informations dans les champs de la section de l'environnement du modèle de programme . Première section de l'Environnement section est la section Configuration. Aux fins de cet exemple , cependant, supposent que la source - ordinateur et l'objet - ordinateur sont les mêmes. Pour cette raison, la section de configuration est éliminé.

Remplacer les données de la section d'entrée-sortie , qui est la deuxième section de la Section de l'environnement . En utilisant déclarations "Select" , tapez les informations d'identification pour les fichiers d'entrée et de sortie utilisés . Trouvez les informations et spécifications contenues dans le manuel de l' utilisateur . Les données pour le « assigner à " clause dépend de l'environnement spécifique.
5

regard sur les spécifications , et de déterminer combien de fois le fichier plat sera lu. Si les spécifications indiquent un certain nombre de fois où le fichier doit être lu , puis modifier la variable Read- LMT à la Division des données à partir de "zéro" au numéro indiqué dans les spécifications. Changez également la lecture LMT = 5 compteur de " 5" à la valeur indiquée dans les spécifications de la Division de la procédure .

Si le fichier est à lire jusqu'à ce que " fin de fichier ", puis supprimer l' Lisez - LMT variable de la Division des données . Supprimer les deux lignes de code dans la Division de la procédure " Si Read- LMT = 5 Aller à la fin de PGM Else. "