Jak odczytać zmienny plik rozszerzenia w języku COBOL

Autor: Tamara Smith
Data Utworzenia: 24 Styczeń 2021
Data Aktualizacji: 22 Listopad 2024
Anonim
Sequential File Read in COBOL
Wideo: Sequential File Read in COBOL

Zawartość

IBM COBOL (Common Business Oriented Language) umożliwia użytkownikom przetwarzanie różnych typów danych w aplikacjach biznesowych i finansowych. COBOL obsługuje typy danych rekordów o zmiennej długości do wykorzystania w plikach baz danych przechowywanych na dyskach twardych; użytkownik określa maksymalną i minimalną długość rekordów do opisania plików na dysku z rekordami o zmiennej długości. Odczyt plików danych o zmiennej długości pozwala na przetwarzanie informacji o bazie danych bez ustawiania dokładnego rozmiaru rekordu w programie COBOL.


Instrukcje

Programy COBOL mogą przetwarzać rekordy o zmiennej długości przechowywane w plikach bazy danych (Jupiterimages / Photos.com / Getty Images)

  1. Wpisz „Edit” w konsoli zarządzania systemem mainframe z / OS360 i naciśnij klawisz „Enter”, aby edytować program COBOL.

  2. Dodaj następujący kod na początku programu:

    PODZIAŁ IDENTYFIKACJI. PROGRAM-ID. COBVAR. PODZIAŁ ŚRODOWISKA. SEKCJA WEJŚCIA-WYJŚCIA. KONTROLA PLIKU. SELECT IFILE ASSIGN TO „IFILE”.

    PODZIAŁ DATY. SEKCJA PLIKÓW. NAGRYWANIE FD IFILE ZMIENIA SIĘ OD 10 DO 50 W ZALEŻNOŚCI OD LEN. 01 IREC. 05 WYPEŁNIACZ PIC X WYSTĘPUJE OD 10 DO 50 CZASÓW W ZALEŻNOŚCI OD LEN.

    PODZIAŁ PROCEDURY. P1. WYŚWIETL „PRZYKŁAD 1 WYSTĄPI W ZALEŻNOŚCI OD NAGRYWANIA” OTWÓRZ WEJŚCIE IFILE PERFORM UNTIL LEN = -1 PRZECZYTAJ IFILE NA KONIEC PRZESUŃ -1 DO LEN NIE NA WYŚWIETL.


    WYŚWIETL „PRZYKŁAD STAŁY NAGR.” OTWÓRZ WEJŚCIE IFILE PRZESUŃ WSZYSTKIE „X” DO IREC ODCZYTAJ IFILE NA KONIEC PRZESUŃ -1 DO LEN WYŚWIETL PRZESTRZEŃ WYŚWIETL.

  3. Wpisz „Zapisz” na konsoli i naciśnij klawisz „Enter”, aby umożliwić programowi przetwarzanie rekordów o zmiennej długości.