: : ENVIRONMENT DIVISION. : INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT Stamm ASSIGN TO "C:Stamm.dat" ORGANIZATION IS INDEXED ACCESS MODE IS DYNAMIC RECORD KEY IS Stamm-Schl FILE STATUS IS Stamm-Stat. : FILE SECTION. FD Stamm. 01 Stamm-Satz. 05 Stamm-Schl PIC X(4). 05 Stamm-Daten PIC X(346). : PROCEDURE DIVISION. : OPEN Stamm. : MOVE "4711" TO Stamm-Schl. READ Stamm INVALID KEY PERFORM Kein-Satz. : : Kein-Satz SECTION. : |