Der er mange måder at håndtere usikre rekord længder i fil-og databehandling . COBOL har en af de mest veltalende og særprægede måder at opnå dette . Du kan læse en fil med mange poster , der hver ubestemt størrelse , ved hjælp af en af COBOL hjemmehørende kommandoer. Forudsat du har en fil, hvor størrelsen af en post inden kan variere fra ét tegn til 400 tegn , kan din COBOL ansøgning håndtere det for dig . Brug denne teknik til at få posten længde, returnere en optælling af tegn og flytte de variable poster til en anden fil , hvis det ønskes . Instruktioner
1
Start ved at vurdere den maksimale længde af records i filen . I eksemplet her , kan det være op til 400 bytes , og så lavt som en byte , kvalificerende filen som værende af variabel længde .
2
Gå til "File Section" af programmet og sæt op filstrukturen for de poster dit program læser fra den indkommende fil. Din "File Tekst" struktur skal se sådan ud : " FD In -File " " Record indeholder 1-400 tegn afhængigt WS- Character - Counter "
3
Skriv følgende Beneath . FD : " . 01. In- Rec" " 05 Input -Field -01 Pic X ( 98) . " " 05 Input -Field -02 Pic S9 (9) V99 Comp -3 ". Det er simpelthen input rekord i eksempel citeres. Felterne skal være mindst én og højst 400 bytes i dette eksempel
4
Type Arbejde -Storage variabel for filen karakter tællere som: ". 05. WS- Character - Tæller Pic 9 ( 5) . " Denne variabel vil holde længden af input rekord efter hver " Læs " erklæring og bør være et usigneret talfelt . Efter den " Afhængigt " statement, vil dette felt returnere den numeriske værdi af pladens længde. Efter hver "Læs ", COBOL udfylder automatisk dette nummer.
5
Gå til Procedure Division og skriv " Read" erklæring efter den relevante fil åbnes "Åbn " udsagn . Du kan bruge variablen " WS- Character - Counter " for at hente posten længden.
6
kompilere programmet og sørg for notering er fri for syntaksfejl .
7
Kør programmet som en test og undersøge output.