Lese en flat fil flere ganger i tredje - generasjons programmeringsspråk Common Oriented Business Language ( COBOL ) er en enkel prosess . Det krever litt programmering ferdigheter , men , samt noe kjennskap til COBOL . Utviklet ca 1960 av Dr. Grace Murray Hooper , er COBOL fortsatt mye brukt , først og fremst av næringslivet . Den ble utformet, delvis for å behandle store mengder data med minimal eller enkle virksomheten beregninger. Du trenger
Current brukerhåndboken for COBOL miljø
Current COBOL manuell
Vis flere instruksjoner
en

logge på datamaskinen miljø der du vil kode , kompilere og gjennomføre COBOL -programmet . Ta opp redaktøren der du vil nøkkelen og redigere ditt program . Utføre den oppgaven varierer basert på miljøet type. Sjekk gjeldende brukerhåndboken for COBOL miljøet
2

Type dette programmet malen , der informasjon vil bli fylt i løpet av påfølgende trinn: .

IDENTIFIKASJON DIVISION.Program - ID . Program ID here.Author . Ditt navn Here.Installation . Mitt firma computer.Date Skriftlig . . MM /DD /YYYY.REMARKS.Program beskrivelse her

MILJØ SECTION.INPUT - UTGANG SECTION.FILE - CONTROL.SELECT Input - FileASSIGN til "C : \\ TMP \\ SAMPIN.TXT " organisasjonen er LINE SEKVENSIELL .

SELECT Print- fileASSIGN til "C : \\ TMP \\ SAMPOUT.TXT " organisasjonen er LINE SEKVENSIELL

DATA DIVISION.FILE SECTION.FD Input -File post inneholder 10 tegn 0,01 . KILDE- REC.05 LAST - NAME PIC X ( 10 ) . FD Print- File post inneholder 10 tegn 0,01 OUTPUT -REC PIC X ( 10 ) .WORKING LAGRING SECTION.01 Read- CNT pic ni ( 9 ) verdi lik null . 01 Read- LMT pic ni ( 9 ) verdi lik null .

PROSEDYRE DIVISION.OPEN INNGANG Input - fileOUTPUT Print- file.Set Read- CNT til 0.Set Read- LMT til 5.Read - file.READ Input - filen AT END Gå til End -of PGM . Tilsett 1 til Les - CNT . FLYTT INPUT - TA OPP TIL UTGANG - RECORD. SKRIV UT - 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

samle informasjon fra flere kilder for identifikasjon divisjon av programmet malen du skrev . Slett teksten i identifisering Division felt , og erstatte den med den informasjonen du samler . Endre programmet navn, riktig program navnet skal være i programmets spesifikasjoner . Legg ditt navn som forfatter . For datoen skrevet , bruker dagens dato ved hjelp av to tegn for måned og dag og fire tegn for året . For installasjons -feltet angir hvilket miljø du vil kjøre programmet , som skal være i brukerhåndboken . Tast inn en beskrivelse av programmet under " Merknader "-delen . Sjekk gjeldende COBOL håndboken og brukerhåndboken , og tast inn all annen informasjon som kreves for å identifisere programmet til den spesifikke driftsmiljøet . For dette trinnet og etterfølgende trinn ,
4

Type informasjon i programmet malens Miljø § felt. Miljøverndepartementet Seksjon første delen er konfigurasjon. I forbindelse med dette eksempelet , men antar at kilden - datamaskinen og objekt - maskinen er den samme. Av den grunn er det Configuration Seksjon eliminert .

Erstatt dataene for Input -Output seksjonen, som er den andre delen av Miljøverndepartementet seksjon . Ved å bruke "Velg " uttalelser , skrive inn opplysninger som kan identifisere for inn-og utgående filer som brukes . Finn informasjon og spesifikasjoner i brukerhåndboken . Dataene for " tildele "-klausulen er avhengig av bestemte miljø.
5

titt på spesifikasjonene , og finne ut hvor mange ganger den flate filen vil bli lest. Dersom spesifikasjonene tyder på et bestemt antall ganger filen skal leses , deretter endre Read- LMT variabel i Data- Division fra "null " til det oppgitte nummeret i spesifikasjonene . Også endre lese- LMT = 5 telleren fra " 5 " til den verdien som er angitt i spesifikasjonene i saksbehandlings Division .
P Hvis filen skal leses til " End -of - Fil" og deretter slette Les - LMT variabel fra data divisjon . Slett de to linjer med kode i saksbehandlings Division " Hvis Read- LMT = 5 Gå til End -of - PGM Else . "