Inhoud
IBM's COBOL (Common Business Oriented Language) stelt gebruikers in staat om verschillende soorten gegevens te verwerken in zakelijke en financiële softwaretoepassingen. COBOL ondersteunt recordtypen met variabele lengte voor gebruik in databasebestanden die zijn opgeslagen op harde schijven; de gebruiker geeft de maximale en minimale lengte van records op om de bestanden van de schijf met records van variabele lengte te beschrijven. Gegevensbestanden met variabele lengte lezen Hiermee kunt u database-informatie verwerken zonder de exacte grootte van een record in uw COBOL-programma in te stellen.
routebeschrijving
-
Type "Bewerken" in de z / OS360 mainframe systeembeheerconsole en druk op "Enter" om uw COBOL-programma te bewerken.
-
Voeg de volgende code toe aan het begin van uw programma:
IDENTIFICATIE Divisie. PROGRAM-ID. COBVAR. AFDELING MILIEU. INPUT-OUTPUT SECTIE. FILE-CONTROL. SELECTEER IFILE ASSIGN TO "IFILE".
DATUM DIVISIE. FILE SECTION. FD IFILE RECORD VERSCHILLEND VAN 10 TOT 50, AFHANKELIJK VAN LEN. 01 IREC. 05 FILLER PIC X KOMT 10 TOT 50 KEER AFHANKELIJK VAN LEN.
PROCEDURE DIVISIE. P1. DISPLAY "VOORBEELD 1 BLIJFT AFHANKELIJK VAN REC" OPEN INGANG IFILE PRESTEREN TOT LEN = -1 LEES IFILE BIJ EINDE BEWEGING -1 NAAR LEN NIET BIJ EINDDISPLAY IREC DISPLAY LEN EINDE LEZEN EINDE PERFORM SLUITEN ALS DISPLAY RUIMTE
DISPLAY "VOORBEELD VAST REC" OPEN INGANG IFILE MOVE ALL "X" NAAR IREC LEZEN INDIVIDUEEL BIJ EINDE BEWEGING -1 NAAR LEN DISPLAY IREC DISPLAY RUIMTE
-
Type "Opslaan" op de console en druk op de "Enter" -toets om het programma toe te laten om records met variabele lengte te verwerken.