IBM stelt gebruikers in staat om verschillende soorten gegevens in de financiële en zakelijke softwaretoepassingen te verwerken . COBOL ondersteunt de variabele lengte verslagen soort gegevens voor gebruik in database- bestanden die zijn opgeslagen op de harde schijven , de gebruiker bepaalt de maximale en minimale opnemen lengtes voor het beschrijven van disk -bestanden met variabele lengte records. Het lezen van variabele lengte gegevens uit een bestand kunt u databasegegevens verwerken zonder het definiëren van de exacte grootte van een record in uw COBOL programma. Instructies
Type 1 " Edit" op het z/OS360 mainframe systeem - beheerconsole en druk op de " Enter" -toets om uw COBOL programma te bewerken . Kopen van 2 Voeg de volgende code aan het begin van het programma : . IDENTIFICATIE DIVISION
pROGRAM - ID . COBVAR . MILIEU DIVISION
. INPUT - EINDTRAP
. FILE - CONTROL .
SELECT iFile ASSIGN TO " iFile " .
DATA DIVISION . FILE AFDELING
. FD iFile RECORD
WORDT variërend van 10 tot 50 AFHANKELIJK LEN . 01 IREC
. < br > 05 VULLER PIC X KOMT 10 tot 50 keer AFHANKELIJK LEN . PROCEDURE DIVISION
. P1
. DISPLAY " VOORBEELD 1 KOMT AFHANKELIJK REC "
< br > OPEN INPUT iFile
verrichten totdat LEN = -1
LEES iFile
EINDE MOVE -1 TO LEN
NIET AAN HET EINDE DISPLAY IREC DISPLAY LEN
END - lEZEN END - PERFORM CLOSE iFile display ruimte
DISPLAY " VOORBEELD VASTE REC "
OPEN INPUT iFile
ALLES VERPLAATSEN " X " TO IREC
LEZEN iFile EINDE MOVE -1 TO LEN < br DISPLAY IREC DISPLAY SPACE
Type > Goedkope 3 " Opslaan" op de console en druk op de " Enter " -toets waarmee je programma te verwerken variabele - lengte records.
|
