DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦4f5712102⟧ TextFile

    Length: 512 (0x200)
    Types: TextFile
    Names: »FORMS2.GN1«

Derivation

└─⟦feb517505⟧ Bits:30005663 FORMS-2 v. 1.3 rev 5 for CIS-COBOL (RC702)
    └─⟦this⟧ »FORMS2.GN1«

TextFile

           CURSOR IS CURSOR-POSITION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INDEXED-FILE ASSIGN FILE-NAME
                  ORGANIZATION INDEXED
                  ACCESS DYNAMIC
                  RECORD KEY RECORD-KEY
                  STATUS IS FILE-STATUS.
       DATA DIVISION.
       FILE SECTION.
       FD  INDEXED-FILE.
       01  INDEXED-RECORD.
           03 RECORD-KEY.
«eof»