Hvordan få den lengden på en post i COBOL

Det er mange måter å håndtere usikre rekordlengder i filen og databehandling. COBOL har en av de mest veltalende og særegne måter å oppnå dette. Du kan lese en fil med mange poster, hver av ubestemmelig størrelse, ved å bruke en av COBOL innfødte kommandoer. Forutsatt at du har en fil der størrelsen på noen registrering innen kan variere fra ett tegn til 400 tegn, kan COBOL søknad håndtere det for deg. Bruk denne teknikken for å få posten lengden, returnere en telling av tegn og flytte de variable poster til en annen fil hvis det er ønskelig.

Bruksanvisning

1 Start med å vurdere den maksimale lengden av poster i filen. I eksempelet her, kan det være opp til 400 bytes og så lavt som en byte, som kvalifiserer til filen som er av variabel lengde.

2 Gå til "Fil Section" av programmet og sette opp filstrukturen for postene programmet leser fra den innkommende fil. Din "File Descriptor" strukturen skal se slik ut: "FD In-File" "Record inneholder 1 til 400 tegn, avhengig av WS-Character-Counter".

3 Skriv inn følgende Under FD: "01 In-Rec." "05 Input-Field-01 Pic X (98)" "05 Input-Field-02 Pic S9 (9) V99 Comp-3." Dette er rett og slett den. innspill rekord i eksemplet. Feltene må være minst en og ikke mer enn 400 bytes i dette eksempel.

4 Skriv inn Working-Storage variable for filen tegn tellere som: "05 WS-Character-Counter Pic 9 (5)." Denne variabelen vil holde lengden på innspill posten etter hvert "Les" statement og bør være en usignert numerisk felt . I etterkant av "avhengig" statement, vil dette feltet returnere den numeriske verdien av posten lengde. Etter hver "Les", COBOL fyller automatisk i dette nummeret.

5 Gå til Prosedyre divisjon og skriv "Les" statement etter den aktuelle filen åpning "Open" uttalelser. Du kan bruke variabelen "WS-Character-Counter" for å hente posten lengde.

6 Kompilere programmet og sørge for at oppføringen er fri for syntaksfeil.

7 Kjør programmet som en test og undersøke utgang.