IDENTIFICATION DIVISION.
PROGRAM-ID. arbeitsstunden.


ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-PC.
OBJECT-COMPUTER. IBM-PC.

INPUT-OUTPUT SECTION.
file-control.
select stunden
    assign to "arbeitstunden.dat"
    organization is line sequential.

select stunden-out
    assign to "arbeit.out"
    organization is line sequential.

DATA DIVISION.
file section.
    fd stunden.
    01 std-record.
       02 tag PIC IS Z9.
       02 FILLER PIC IS X.
       02 tagname PIC IS XX.
       02 FILLER PIC IS X.
       02 stunde PIC IS XX.
       02 FILLER PIC IS X(6).
       02 descr PIC IS X(50).
       
   fd stunden-out.
   01 std-out-rec.
      02 tagname PIC IS XX.
      02 a PIC IS X(6).
      02 tag PIC IS XX.
      02 b PIC IS X(8).
      02 stunde PIC IS XX.
      02 c PIC IS X(16).
      02 descr PIC IS X(50).

WORKING-STORAGE SECTION.
    01 angabe.
       02 tag PIC IS 99.
       02 tagname PIC IS XX.
       02 stunde PIC IS 99.
       02 descr PIC IS X(50).
       
   01 insg.
      02 FILLER PIC IS X(5) VALUE IS SPACES.
      02 FILLER PIC IS X(16) VALUE IS "Stunden gesamt: ".
      02 insgZahl PIC IS X(3).
      02 FILLER PIC IS X(31) VALUE IS SPACES.

    01 stundenzahl PIC IS 9(3).

PROCEDURE DIVISION.
anfang.
    OPEN INPUT stunden.
    OPEN OUTPUT stunden-out.
    MOVE zeroes TO stundenzahl.
    MOVE ", der " TO a of std-out-rec.
    MOVE " Sep.: " TO b of std-out-rec.
    MOVE " Std., Bericht: " TO c of std-out-rec.
    
lesen.
    READ stunden RECORD AT END go to ende.
    MOVE CORR std-record TO angabe.
    ADD stunde OF angabe TO stundenzahl.
    MOVE CORR angabe TO std-out-rec.
    WRITE std-out-rec.
    go to lesen.
    
ende.
    MOVE stundenzahl TO insgZahl OF insg.
    MOVE insg TO std-out-rec.
    WRITE std-out-rec.
    CLOSE stunden-out.
    CLOSE stunden.
    STOP RUN.