DataMuseum.dk

top - metrics - download

    Length: 2816 (0xb00)
    Types: TextFile
    Names: »OPG7.CBL«

└─⟦c154ac35e⟧ Bits:30002656 COBOL-programmer til undervisning
    └─⟦this⟧ »OPG7.CBL« 

TextFile

       IDENTIFICATION DIVISION.
       PROGRAM-ID.       OPG7.
       AUTHOR.           HOLD 4.
       DATE-WRITTEN.     22/10/85.
       DATE-COMPILED.    24/1O/85.
      *
      *
      * PROGRAMMET LÆSER FILEN PERSON.TRA TIL EOF.
      * FOR HVER POST DANNES EN TILSVARENDE PÅ DEN
      * INDEX-SEKVENTIELLE FIL IXPERSON.REG.
      *
      *
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.   PICCOLINE.
       OBJECT-COMPUTER.   PICCOLINE.
      *
       SPECIAL-NAMES.     CONSOLE IS CRT.
      *
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
       SELECT INDFIL ASSIGN TO "PERSON.TRA".
       SELECT UDFIL ASSIGN TO "IXPERSON.REG"
                     ORGANIZATION IS INDEXED
                     ACCESS MODE IS SEQUENTIAL
                     RECORD KEY IS IXPERS-NR.
      *
      *
       DATA DIVISION.
       FILE SECTION.
       FD   INDFIL
            LABEL RECORD IS STANDARD.
       01   PERSREG.
         02 PERS-NR       PIC  9(10).
         02 PERS-FNVN     PIC  X(15).
         02 PERS-EFNVN    PIC  X(20).
         02 PERS-GNVN     PIC  X(20).
         02 PERS-POSTNR   PIC  9999.
         02 PERS-BYNAVN   PIC  X(20).
         02 PERS-TLFNR    PIC  9(8).
      *
       FD   UDFIL
            LABEL RECORD IS STANDARD.
       01   IXPERSREG.
         02 IXPERS-NR     PIC  9(10).
         02 IXPERS-FNVN   PIC  X(15).
         02 IXPERS-EFNVN  PIC  X(20).
         02 IXPERS-GNVN   PIC  X(20).
         02 IXPERS-POSTNR PIC  9999.
         02 IXPERS-BYNAVN PIC  X(20).
         02 IXPERS-TLFNR  PIC  9(8).
      *
      *
       WORKING-STORAGE SECTION.
       01  EOF-INDFIL     PIC  XXX VALUE "NEJ".
      *
      *
      *
      *
      *
      *
       PROCEDURE DIVISION.
       STYR SECTION.
       STYR-IND.
           PERFORM OPEN-FILER.
           PERFORM LAES-SKRIV UNTIL EOF-INDFIL = "JA".
           PERFORM LUK-FILER.
           STOP RUN.
       STYR-UD.
       EXIT.
      *
      *
       OPEN-FILER SECTION.
       OPEN-IND.
           DISPLAY SPACES UPON CRT.
           OPEN INPUT INDFIL.
           OPEN OUTPUT UDFIL.
       OPEN-UD.
       EXIT.
      *
       LAES-SKRIV SECTION.
       LASK-IND.
           READ INDFIL AT END MOVE "JA" TO EOF-INDFIL.
           IF EOF-INDFIL = "NEJ"
           WRITE IXPERSREG FROM PERSREG INVALID KEY PERFORM FEJL.
       LASK-UD.
       EXIT.
      *
      *
       FEJL SECTION.
       FEJL-IND.
           DISPLAY "PERSONNR. FINDES I FORVEJEN" AT 1010.
       FEJL-UD.
       EXIT.
      *
      *
       LUK-FILER SECTION.
       LUK-IND.
           CLOSE INDFIL.
           CLOSE UDFIL.
           DISPLAY "IXPERSON.REG. ER OPRETTET" AT 1230.
       LUK-UD.
       EXIT. 
      *
«eof»