IDENTIFICATION DIVISION.
 PROGRAM-ID. TEST06r.
 ENVIRONMENT DIVISION.

 CONFIGURATION SECTION. 
 SPECIAL-NAMES.
     DECIMAL-POINT IS COMMA.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
     SELECT ARQ      ASSIGN TO "Testing.dat" 
	    ORGANIZATION IS RELATIVE 
	    ACCESS MODE  IS RANDOM
	    RELATIVE KEY IS ARQ-KEY 
	    FILE STATUS  IS FS.

 DATA DIVISION.
 FILE SECTION.

 FD	    ARQ
	    LABEL RECORD IS STANDARD.
 01	    REG-ARQ.
   03	    X-IND		   PIC  9(03).
   03	    DESCRIPTION 	   PIC  X(20).

 WORKING-STORAGE SECTION.
 01  FS 	    PIC  9(02).
 01  ARQ-KEY	    PIC  9(03).

 PROCEDURE DIVISION.
      OPEN OUTPUT ARQ.
 05-NEXT.
      DISPLAY "Enter key:" NO ADVANCING.
      ACCEPT ARQ-KEY.
      IF ARQ-KEY = ZEROS
	  GO TO 10-CLOSE.
* save our key into the file also (just to test)
      MOVE ARQ-KEY TO X-IND.
      DISPLAY "Value:" NO ADVANCING.
      ACCEPT DESCRIPTION.
      WRITE REG-ARQ.
      GO TO 05-NEXT.
 10-CLOSE.
      CLOSE ARQ.
  
 20-REOPEN.
      OPEN INPUT ARQ.
      DISPLAY "---------------------".
 25-LOOP.
      DISPLAY "Key:" NO ADVANCING.
      ACCEPT ARQ-KEY.
      DISPLAY "Key entered:" ARQ-KEY.
      IF ARQ-KEY = ZEROS 
	  GO TO 30-CLOSE.
      MOVE SPACES TO REG-ARQ.
      READ ARQ.
      DISPLAY "Status:" FS " Data:" REG-ARQ.
      GO TO 25-LOOP.
 30-CLOSE.
      CLOSE ARQ.
 99-END.
      STOP RUN.