Det finns många sätt att hantera osäkra rekord längder i filen och databehandling . COBOL har en av de mest vältaliga och särskiljande sätt att uppnå detta . Du kan läsa en fil med många poster , var och en av obestämd storlek , genom att använda någon av COBOL infödda kommandon . Förutsatt att du har en fil där storleken på eventuella uppgifter inom kan variera från ett tecken till 400 tecken , kan din COBOL programmet sköta det åt dig . Använd denna teknik för att få posten längden , returnera ett antal tecken och flytta den rörliga poster till en annan fil om så önskas . Instruktioner
1
Börja med att bedöma den maximala längden av poster i filen . I exemplet här , kan det vara upp till 400 byte , och så lite som en byte , kvalificerade filen vara av varierande längd .
2
Gå till " File avsnitt " av programmet och set upp filstrukturen för posterna ditt program läser från den inkommande filen . Din " filbeskrivare " struktur bör se ut så här : " FD In - File " " Record innehåller 1 till 400 tecken beroende på WS - Tecken - Counter "
3
Skriv följande Beneath . FD : " . 01 i Rec " " 05 Input - Field - 01 Pic X ( 98 ) . " " 05 Input - Field - 02 Pic S9 ( 9 ) V99 Comp - 3 . " Detta är helt enkelt den ingående posten i det citerade exemplet . Fälten skall vara minst en och högst 400 bytes i detta exempel
4
Skriv Working - Storage variabel för räknarna fil karaktär som : . " 05 WS - Tecken - Counter Pic 9 ( 5 ) . " Denna variabel kommer att hålla längden på den ingående posten efter varje " Läs " uttalande och bör vara en osignerad numeriskt fält . Efter "Beroende " uttalande , kommer detta fält returnera det numeriska värdet av postens längd . Efter varje " Läs , " COBOL fyller automatiskt i detta nummer .
5
gå till proceduren Division och skriv " Läs " uttalande efter rätt fil öppnar "Öppna " uttalanden . Du kan använda variabeln " WS - Tecken - Counter " för att hämta posten längd .
6
Kompilera programmet och se till noteringen är fri från eventuella syntaxfel .
7
Kör programmet som ett test och granska utdata .
