Hvordan finne antall tegn på en linje på COBOL

Selv om noen dataprogram språk er komplekse og andre er enkle i sin form, er Cobol i en verden av begge. Det er uendelige muligheter du kan oppnå med Cobol, og en av dem er enkle og likevel veltalende metode for å manipulere og telle individuelle tegn i en fil eller bare en tekstlinje. Bruke riktig kommandosettet, kan du bestemme nøyaktig hvilke tegn du ønsker å bli telt i din total, det være seg tall, bokstaver eller til og med spesiell typografisk inkludert EBCIDIC eller ASCII tegnsett. Du kan ha et behov for å gjøre dette for å telle visse tegn i en fil for å endre euro til dollar, eller trekke ut, erstatte eller sette inn spesielle tegn før du laster opp filen til en database.

Bruksanvisning

1 Identifiser input filen du velger som å utføre linje / antall tegn. Denne filen må identifiseres til Cobol programmet som en inngang med en sekvensiell organisasjon i Cobol Miljø divisjon. Også erklære hvilken fil skal brukes til å rapportere oppsummering karakter teller for hver linje. Du må også tildele denne filen som utgang med sekvensiell organisering.

2 Opprett filen og rekord beskrivelser av både inngang og utgang i Fil-delen av Cobol programmets data divisjon. Som et eksempel, hvis input filen har en lengde på 200 bytes, så Record Inneholder klausulen må oppgi dette som "Record Inneholder 200 Tegn". Utgangen fil kan være av hvilken som helst lengde du bestemme, men det må erklæres i tillegg.

3 Lag midlertidige verdier i Working-Storage §. Det er der inngangs posten vil bli flyttet, og programmet vil spørre hver linje den leser og vurdere de enkelte tegnene på disse linjene. Dette er hvordan feltet vises: 05 WS-UTDRAG PIC X (200). Rett under denne linjen vil være: 05 WS-IND-UTDRAG omdefinerer WS-UTDRAG OPPSTÅR 200 ganger indeksert av WS-INDEX. Rett under denne linjen skal være: 88 GYLDIG-CHAR VERDIER '0' gjennom '9', 'a' gjennom 'z', 'A' gjennom 'Z'.

4 Åpne input og output filer i Cobol programmets Prosedyre divisjon og lese i den første input posten. Programmet er nå klar til å sløyfe gjennom logikken i å spørre inngangslinjer tegn for tegn, ta en telling av linje og skrive linjen teller til utgangen posten. Du bør sette denne logikken i et eget avsnitt rutine i programmet og kjøre det før det har lest den siste linjen. Logikken vil se slik ut: Utfør B100-CHECK-HVER tegn Varierende WS-INDEX fra 1 til 1 inntil WS-indeksen er større enn 200.

5 Lag eget avsnitt rutine som så: B100-CHECK-HVER tegn. Hvis GYLDIG-CHAR (WS-INDEX) så Tilsett 1 til WS-RAPPORT-teller.

WS-RAPPORT-teller er en midlertidig felt du oppretter i arbeidsmiljø-Storage Seksjon med en beskrivelse av PIC 9 (3) verdien null.

6 Kompilere programmet og feilsøke eventuelle kompilere syntaksfeil før du kjører programmet gjennom sin utførelse.