Läsa en platt fil flera gånger i den tredje generationens dator programmeringsspråk Common Oriented Business Language ( COBOL ) är en enkel process . Det kräver en del programmering skicklighet , men liksom vissa kunskaper i COBOL . Utvecklad ca 1960 av Dr Grace Murray Hooper är COBOL fortfarande används i stor utsträckning , främst av näringslivet . Det ritades , delvis för att bearbeta stora mängder data med minimala eller enkla affärer beräkningar . Saker du behöver : Aktuellt användarmanual för COBOL miljö
Aktuellt COBOL manuell
Visa fler instruktioner
1
Logga in på datorn miljö där du kommer att koda , sammanställa och köra din COBOL -program . Ta upp editorn där du kommer att skriva och redigera program . Genomföra denna uppgift varierar beroende på miljön typ . Kontrollera den aktuella bruksanvisningen för COBOL miljön
2
Type detta program mall , för vilka information ska fyllas i under efterföljande steg : .
NAMNET DIVISION.Program - ID . Program ID here.Author . Ditt namn Here.Installation . Mitt företag computer.Date Written . . MM /DD /YYYY.REMARKS.Program beskrivning här
MILJÖ SECTION.INPUT - OUTPUT SECTION.FILE - CONTROL.SELECT Input - FileASSIGN till "C : \\ TMP \\ SAMPIN.TXT " Organisation är LINE SEQUENTIAL .
SELECT Print - fileASSIGN till "C : \\ TMP \\ SAMPOUT.TXT " Organisation är LINE SEQUENTIAL
DATA DIVISION.FILE SECTION.FD Input - File post innehåller 10 tecken .01 . INPUT - REC.05 LAST - NAME PIC X ( 10 ) . FD Print - File post innehåller 10 tecken .01 OUTPUT - REC PIC X ( 10 ) .WORKING LAGRING SECTION.01 Läs - CNT pic 9 ( 9 ) blir värdet noll . 01 Läs - LMT pic 9 ( 9 ) blir värdet noll .
GÅNG DIVISION.OPEN INGÅNG - fileOUTPUT Print - file.Set Läs - CNT till 0.Set Läs - LMT till 5.Read - file.READ input - fil AT END Gå till End-of PGM . Lägg 1 till Läs - CNT . FLYTTA INPUT - RECORD på OUTPUT - RECORD . SKRIV OUTPUT - RECORD.Add 1 till Läs - lmt.If Läs - LMT = 5 Gå till end-of - PGMElseGo till Läs - file.End - av - PGM.If Läs - cnt = 0 Display " Input - filen är tom " . CLOSE Input - fil , tryck - file.STOP RUN .
3
Samla information från flera källor för identifiering division av programmet mallen du skrev . Ta bort texten i fälten Identifiering Division , och ersätta den med den information du samlar . Ändra programmets namn , rätt program namnet ska vara i programmets specifikationer . Lägg till ditt namn som författare . För skrivdatum , använd aktuellt datum med hjälp av två tecken för månad och dag och fyra tecken för året . För installation anger du den miljö där du kan köra ditt program , som bör vara i bruksanvisningen . Knappa in en beskrivning av programmet under avsnittet "Anmärkningar" . Kontrollera aktuell COBOL handboken och bruksanvisningen , och knappa in all övrig information som krävs för att identifiera det program till specifika omvärld . För detta steg och efterföljande steg ,
4
Typ uppgifterna i programmet mallens fält miljödelen . Miljö § första avsnittet är det Configuration avsnitt . För ändamålen enligt föreliggande exempel, även , antag att källan - dator och objekt - datorn är densamma . Av den anledningen är det Configuration avsnitt elimineras .
Ersätt data för Input - Output avsnitt , vilket är den andra delen av miljö avsnitt . Genom att använda "Select" uttalanden , skriver i identifierande information om de använda in-och utdata -filer . Hitta information och specifikationer i bruksanvisningen . Uppgifterna för " tilldela " klausulen beror på den specifika miljön .
5
titt på specifikationerna , och bestämmer hur många gånger den flata filen ska läsas in. Om specifikationerna anger ett visst antal gånger filen ska läsas , och sedan ändrar Läs - LMT variabel i Data Division från " noll " till det antal som anges i förfrågningsunderlaget . Också ändra läsning - LMT = 5 räknare från " 5 " till det värde som anges i specifikationerna i förfarandet Division .
P Om filen ska läsas tills " End -of - File" och sedan radera Läs - LMT variabel från Data Division . Stryk de två rader kod i förfarandet Division " Om Läs - LMT = 5 Gå till End -of - PGM Else . " Addera