Læsning af en flad fil flere gange i den tredje generation computer programmeringssprog Common Oriented Business Language ( COBOL ) er en simpel proces. Det kræver nogle programmerings evner imidlertid samt et vist kendskab til COBOL . Udviklet omkring 1960 af Dr. Grace Murray Hooper er COBOL stadig meget udbredt , primært ved erhvervslivet. Den blev designet til dels at behandle store mængder data med minimal eller simpel business beregninger. Ting du skal
Nuværende bruger manual for COBOL miljø
Current COBOL manual
Vis Flere Instruktioner
1
logge på computeren miljø, hvor du vil kode , kompilere og udføre din COBOL program. Bring up program, hvor du vil indtaste og redigere dit program. Løse denne opgave varierer baseret på miljøet type. Kontrollér den aktuelle brugermanual for COBOL miljø
2
Type dette program skabelon , hvor oplysningerne vil blive udfyldt under efterfølgende trin: .
IDENTIFIKATION DIVISION.Program - id. Program ID here.Author . Dit navn Here.Installation . Mit firma computer.Date skrevet. . MM /DD /YYYY.REMARKS.Program beskrivelse her
MILJØ SECTION.INPUT - OUTPUT SECTION.FILE - CONTROL.SELECT Input - FileASSIGN til "C : \\ TMP \\ SAMPIN.TXT " organisation LINE SEQUENTIAL .
SELECT Print - fileASSIGN til "C : \\ TMP \\ SAMPOUT.TXT " organisation LINE SEQUENTIAL
DATA DIVISION.FILE SECTION.FD Input -File record indeholder 10 tegn .01 . INPUT - REC.05 efternavn PIC X ( 10). FD Print -File record indeholder 10 tegn .01 OUTPUT -REC PIC X (10) .WORKING OPBEVARING SECTION.01 Read- cnt pic 9 (9) værdi er lig nul. 01 Read- LMT pic 9 (9) værdi er lig nul.
PROCEDURE DIVISION.OPEN INDGANG - fileOUTPUT Print - file.Set Read- cnt til 0.Set Read- LMT til 5. Læs - file.READ input - filen ULTIMO Gå til End-of PGM . Læg 1 til Read- CNT . MOVE INPUT - RECORD TO OUTPUT - RECORD . SKRIV OUTPUT - RECORD.Add 1 til Read- lmt.If Read- LMT = 5 Gå til End-of- PGMElseGo til Read- file.End -of- PGM.If Read- cnt = 0 Display " Input - filen er tom " . CLOSE Input - fil Print - file.STOP RUN .
3
indsamle oplysninger fra flere kilder til identifikation Division i program skabelon , du har skrevet . Slet teksten i identifikation Division marker, og erstatte den med de oplysninger, du indsamler . Ændre programmet navn, det rigtige program navn skal være i programmets specifikationer . Tilføj dit navn som forfatter . For den dato skrevet, bruge den aktuelle dato ved hjælp af to tegn for måned og dag og fire tegn for året. For installation , indtast det miljø, hvor du vil udføre dit program , som bør være i brugervejledningen . Indtast en beskrivelse af programmet under "Bemærkninger" sektionen. Kontrollér den aktuelle COBOL manual og manualen , og indtast alle andre oplysninger, der kræves for at identificere programmet til den specifikke driftsmiljø. For dette skridt, og efterfølgende trin ,
4
Type information i programmet skabelons Miljø Sektionens felter. Miljø Sektionens første sektion er sektionen Konfiguration . Til formål med dette eksempel , men antager, at kilde - computer og objekt- computer er den samme . Af denne grund er det Configuration sektion elimineret.
Erstat data for input-output afdeling, som er det andet afsnit af Miljø Sektionens . Ved at bruge "Vælg " udsagn , indtaste oplysninger der kan identificere for input og output brugte filer . Find de oplysninger og specifikationer i manualen . Dataene for " tildele "-klausul afhænger af den specifikke miljø.
5.
Kig på specifikationerne , og bestemme , hvor mange gange den flade fil vil blive læst . Hvis specifikationerne angiver et bestemt antal gange filen skal læses , og derefter ændre Read- LMT variabel i data Division fra "nul" til det antal der er angivet i udbudsmaterialet. Også ændre Read- LMT = 5 counter fra "5" til den værdi, der er angivet i specifikationerne i Procedure Division .
P Hvis filen skal læses indtil " End-of -File " og derefter slette Read- LMT variabel fra data Division . Slet de to linjer kode i Procedure Division " Hvis Read- LMT = 5 Gå til End-of- PGM Else . "
