IDENTIFICATION DIVISION.
 PROGRAM-ID.    TEST06V.
 ENVIRONMENT DIVISION.

 CONFIGURATION SECTION. 
 SPECIAL-NAMES.
     DECIMAL-POINT IS COMMA.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
     SELECT ARQ      ASSIGN TO ARQNAME 
            ORGANIZATION IS SEQUENTIAL 
            ACCESS MODE  IS SEQUENTIAL
            FILE STATUS  IS FS.

 DATA DIVISION.
 FILE SECTION.

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

 WORKING-STORAGE SECTION.
 01  FS             PIC  9(02).
 01  ANYKEY         PIC  X.
 01  ARQNAME        PIC  X(20) VALUE    "Testing.dat". 

 PROCEDURE DIVISION.
      DISPLAY "Enter filename:".
      ACCEPT ARQNAME.
      OPEN OUTPUT ARQ.
 05-NEXT.
      DISPLAY "Value: (spaces to end)" NO ADVANCING.
      ACCEPT DESCRIPTION.
      IF DESCRIPTION = SPACES 
          GO 10-CLOSE.
      WRITE REG-ARQ.
      GO TO 05-NEXT.
 10-CLOSE.
      CLOSE ARQ.
  
 20-REOPEN.
      OPEN INPUT ARQ.
      DISPLAY "---------------------".
 25-LOOP.
      MOVE SPACES TO REG-ARQ.
      READ ARQ
          AT END GO 30-CLOSE.
      DISPLAY "Status:" FS " Data:" REG-ARQ.
      GO TO 25-LOOP.
 30-CLOSE.
      CLOSE ARQ.
 99-END.
      STOP RUN.