Er zijn vele manieren om te gaan met onzekere opnemen lengtes in file en gegevensverwerking. COBOL heeft een van de meest welsprekende en onderscheidende manieren gerealiseerd . U kunt een bestand lezen met veel records , elk van onbepaalde omvang , met behulp van een van inheemse commando COBOL 's . Ervan uitgaande dat je een bestand waarbij de grootte van elke registratie binnen kan variëren van het ene personage naar 400 karakters hebt , kan je COBOL applicatie te gaan voor je . Gebruik deze techniek om de recordlengte krijgen , terug een telling van de tekens en verplaats de variabele gegevens in een ander bestand , indien gewenst . Instructies 1 Begin met het beoordelen van de maximale lengte van records in het bestand . In het voorbeeld hier , kan het maximaal 400 bytes zijn en zo laag als een byte , de kwalificatie van het bestand als zijnde van variabele lengte . Kopen van 2 Ga naar de " Sectie File " van het programma en de set de bestandsstructuur voor de records van uw programma is het lezen van het inkomende bestand . Uw " File Descriptor " structuur moet er zo uitzien : " FD In - File " "Record bevat 1-400 tekens Afhankelijk On WS - Karakter - Counter " Type 3 de volgende Beneath . het FD : " . 01 In - Rec " " 05 Input - Field - 01 Pic X ( 98 ) . " " 05 Input - Field - 02 Pic S9 ( 9 ) V99 Comp - 3 . " Dit is gewoon het invoerrecord in de aangehaalde voorbeeld . De velden moeten ten minste een en niet meer dan 400 bytes in dit voorbeeld 4 Typ het Working - Storage variabele voor het bestand karakter tellers als : . " 05 WS - Character - Counter Pic 9 ( 5 ) . " Deze variabele zal de lengte van de input registratiedatum in het bezit na iedere " Read" statement en zou een niet-ondertekende numeriek veld zijn. Na de " Afhankelijk On " statement , zal dit gebied de numerieke waarde van de lengte van de plaat terug . Na elke " Lees , " COBOL vult automatisch in dit nummer . 5 Ga naar de afdeling Procedure en typ de " Read " verklaring na het juiste bestand te openen " Open" statements . U kunt de variabele " WS - Karakter - teller " te gebruiken om de recordlengte halen . 6 Compileer het programma en zorg ervoor dat het bedrijf vrij is van fouten in de syntaxis . 7 Voer het programma als een test en onderzoekt de uitgang .
|