Det er mange måter å håndtere usikre posten lengder i fil-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 rekord innen kan variere fra ett tegn til 400 tegn, kan din COBOL -programmet håndtere det for deg . Bruk denne teknikken for å få posten lengde, returnere en telling av tegn og flytte de variable poster til en annen fil hvis ønskelig. Instruksjoner
en
Start med å vurdere den maksimale lengden på postene i filen. I eksempelet her , kan det være opptil 400 byte og så lavt som én byte , kvalifisering filen som er av variabel lengde .
2
Gå til " File Section" av programmet og sett opp filstrukturen for postene programmet leser fra den innkommende fil . Din "File Descriptor " strukturen skal se slik ut : " FD In- File" " Record inneholder 1-400 tegn avhengig av WS- Character- Counter "
3
Skriv inn følgende Beneath . FD : " . 01. i -Rec " " 05 Input - Felt - 01 Pic X ( 98 ) . " " 05 Input - Felt -02 Pic S9 ( 9 ) V99 Comp -3 . " Dette er rett og slett inndataposten I eksemplet . Feltene må være minst ett og ikke mer enn 400 byte i dette eksempelet
4
Skriv inn Working- Storage variabel for filen karakter tellere som : . " 05 WS- Character- Counter Pic 9 ( 5). " Denne variabelen vil holde lengden på innspill posten etter hvert "Read " statement og bør være en usignert numeriske feltet . I etterkant av "avhengig " statement , vil dette feltet returnere den numeriske verdien av posten sin lengde. Etter hver "Les ", COBOL fyller automatisk i dette nummeret .
5
Gå til Prosedyre Division og skriv "Les" uttalelse etter den aktuelle filen åpning "Open " uttalelser . Du kan bruke variabelen " WS- Character- Counter " for å hente posten lengde.
6
Kompiler programmet og sørge for at listen er fri for syntaksfeil .
7
Kjør programmet som en test og undersøke utgang.