een plat bestand meerdere keren lezen in de derde generatie programmeertaal Common Oriented Business Language ( COBOL ) is een eenvoudig proces . Het vereist goede programmeur zijn echter evenals enige kennis van COBOL . Ontwikkeld ongeveer 1960 door Dr Grace Murray Hooper , wordt COBOL nog steeds veel gebruikt , vooral door het bedrijfsleven . Het werd ontworpen deels om grote hoeveelheden gegevens te verwerken met minimale of eenvoudige berekeningen . Wat je handleiding Huidige gebruiker voor COBOL milieu Huidige COBOL handleiding Need Toon Meer Aanwijzingen 1 Log in op de computer -omgeving waar je zal coderen , compileren en uitvoeren van uw COBOL programma . Breng de editor waar u intoetsen en bewerken van uw programma. Het vervullen van die taak varieert op basis van het type omgeving. Controleer de handleiding van de huidige gebruiker van de COBOL milieu Type 2 dit programma template , voor welke informatie zal worden ingevuld tijdens de volgende stappen : . IDENTIFICATIE DIVISION.Program - ID . Programma ID here.Author . Uw naam Here.Installation . Mijn bedrijf computer.Date Geschreven . . MM /DD /YYYY.REMARKS.Program beschrijving hier MILIEU SECTION.INPUT - OUTPUT SECTION.FILE - CONTROL.SELECT Input - FileASSIGN TO " C : \\ TMP \\ SAMPIN.TXT " ORGANISATIE IS LINE SEQUENTIAL . SELECT Print - fileASSIGN TO " C : \\ TMP \\ SAMPOUT.TXT " ORGANISATIE IS LINE SEQUENTIAL DATA DIVISION.FILE SECTION.FD Input - File record bevat 10 tekens 0,01 . INPUT - REC.05 LAST - NAME PIC X ( 10 ) . FD Print - File record bevat 10 tekens 0,01 OUTPUT - REC PIC X ( 10 ) .WORKING OPSLAG SECTION.01 Read - cnt pic 9 ( 9 ) waarde gelijk is aan nul . 01 Read - lmt pic 9 ( 9 ) waarde gelijk is aan nul . PROCEDURE DIVISION.OPEN INPUT Input - fileOUTPUT Print - file.Set Read - cnt naar 0.Set Read - lmt naar 5.Read - file.READ Input - file AT END Ga naar End-of PGM . Voeg 1 to Read - cnt . MOVE INPUT - RECORD TO OUTPUT - RECORD . SCHRIJF OUTPUT - RECORD.Add 1 to Read - lmt.If Read - lmt = 5 Ga naar einde - van - PGMElseGo to Read - file.End - van - PGM.If Read - cnt = 0 Beeldscherm " Input - bestand is leeg" . CLOSE Input - file , Print - file.STOP RUN . 3 Verzamel informatie uit verschillende bronnen voor de identificatie divisie van het programma template die u hebt getypt . Verwijder de tekst in de afdeling velden Identification , en vervang deze door de informatie die u te verzamelen . Verander de naam van het programma , de juiste naam van het programma moet worden in de specificaties van het programma . Voeg je naam als auteur. Voor de datum geschreven , gebruikt u de huidige datum in met twee karakters voor maand en dag en vier karakters voor het jaar . Voor het veld installatie , voert u de omgeving waarin je je programma , die moet worden in de handleiding uit te voeren . Toets een beschrijving van het programma onder de rubriek "Opmerkingen" . Controleer de huidige COBOL handleiding en de handleiding , en toets alle andere informatie die nodig is om het programma te identificeren aan de specifieke bedrijfsomgeving . Voor deze stap en de volgende stappen , Type informatie in Rubriek velden Milieu het programma sjabloon 4 . Eerste deel van de Afdeling Milieu is de configuratie sectie . Voor dit voorbeeld echter veronderstellen dat de bron - computer en object - computer hetzelfde . Om die reden wordt de sectie Configuration geëlimineerd . Vervang de gegevens voor de Input - Output Sectie , dat is het tweede deel van de afdeling Milieu . Door het gebruik van " Select " verklaringen , typt u in het identificeren informatie voor de input en output -bestanden gebruikt . Zoek de informatie en specificaties in de handleiding . De gegevens voor de " toewijzen aan " clausule is afhankelijk van de specifieke omgeving . Kijk 5 naar de specificaties , en bepalen hoe vaak het platte bestand wordt gelezen . Als de specificaties wijzen op een bepaald aantal keren het bestand moet worden gelezen , dan veranderen de Read - lmt variabele in de afdeling Gegevens uit " nul " op de in het bestek nummer . Verander ook de Read - lmt = 5 teller van " 5 " aan de in het bestek , in de afdeling Procedure waarde . Als het bestand moet worden gelezen totdat " End-of - File , " verwijder vervolgens de Lees - lmt variabele uit de divisie gegevens . Verwijder de twee regels code in de afdeling Procedure " Als Read - lmt = 5 Ga naar End-of - PGM Else . "
|