Kā lasīt mainīgo paplašinājuma failu COBOL

Autors: Charles Brown
Radīšanas Datums: 1 Februāris 2021
Atjaunināšanas Datums: 26 Jūnijs 2024
Anonim
Files in Cobol - Mainframe COBOL Tutorial - Part 35 #COBOL
Video: Files in Cobol - Mainframe COBOL Tutorial - Part 35 #COBOL

Saturs

IBM COBOL (Common Business Oriented Language) ļauj lietotājiem apstrādāt dažāda veida datus biznesa un finanšu programmatūras lietojumprogrammās. COBOL atbalsta mainīga garuma ierakstu datu tipus, ko izmanto datu bāzes failos, kas saglabāti cietajos diskos; lietotājs norāda maksimālos un minimālos ierakstu garumus, lai aprakstītu diska failus ar mainīga garuma ierakstiem. Dažādu garumu datu failu lasīšana ļauj apstrādāt datu bāzes informāciju, nenosakot precīzu ieraksta lielumu jūsu COBOL programmā.


Instrukcijas

COBOL programmas var apstrādāt datu bāzes failos saglabātus mainīgā garuma ierakstus (Jupiterimages / Photos.com / Getty Images)

  1. Ierakstiet "Edit" z / OS360 lieldatoru sistēmas vadības konsolē un nospiediet taustiņu "Enter", lai rediģētu COBOL programmu.

  2. Pievienojiet šādu kodu programmas sākumam:

    IDENTIFIKĀCIJAS DIVIS. PROGRAM-ID. COBVAR. VIDES DIVIS. INPUT-OUTPUT SADAĻA. FILE-CONTROL. SELECT IFILE ASSIGN TO "IFILE".

    DATU DIVISIJA. FILE SADAĻA. FD IFILE REĢISTRĒŠANĀS NO 10 līdz 50 DEPENDING ON LEN. 01 IREC. 05 FILLER PIC X OCCURS 10 līdz 50 LAIKS, KAS ATTIECAS UZ LEN.

    PROCEDŪRAS SADALĪJUMS. P1. ATTĒLS "1. PIEMĒRS, IZŅEMOT PIEŅEMŠANU" OPEN INPUT IFILE PERFORM UNTIL LEN = -1 LASĪT IFILĒT ATTĒLĒŠANAI -1.

    DISPLAY "EXAMPLE FIXED REC" OPEN INPUT IFILE MOVE VISI "X" IREC LASĪT IFILE AT END MOVE -1 - LEN DISPLAY IREC DISPLAY SPACE


  3. Ierakstiet "Saglabāt" uz konsoles un nospiediet taustiņu "Enter", lai programma varētu apstrādāt mainīga garuma ierakstus.