IDENTIFICATION DIVISION.
 PROGRAM-ID.    TEST12i.
 ENVIRONMENT DIVISION.

 CONFIGURATION SECTION. 
 SPECIAL-NAMES.
     DECIMAL-POINT IS COMMA.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
  SELECT ARQ      ASSIGN TO "Raw.dat" 
      ORGANIZATION IS INDEXED
      ACCESS MODE  IS DYNAMIC
      RECORD KEY IS P-IND
      FILE STATUS  IS FS.

 DATA DIVISION.
 FILE SECTION.

 FD         ARQ
            LABEL RECORD IS STANDARD.
 01         REG-ARQ.
   03       P-IND                  PIC  9(03).
   03       DESCRIPTION            PIC  X(60) VALUE "AAAAAAAAAAAAAAA".
 
 
 WORKING-STORAGE SECTION.
  01 FS           PIC 9(02).
  01 W-COUNTER    PIC 9(15).
  01 REM          PIC 9(5).
  01 W01-SWITCHES PIC X(03).
  88      W01-END VALUE "YES".
  88      W01-MORE VALUE "NO".
 
 PROCEDURE DIVISION.
 MAIN SECTION.
  OPEN OUTPUT ARQ.
  MOVE ZERO TO W-COUNTER.
  PERFORM WRITE-IT 998 TIMES.
  CLOSE ARQ.
  OPEN I-O ARQ.
  MOVE "NO" TO W01-SWITCHES.
  PERFORM READ-IT UNTIL W01-END.
  CLOSE ARQ.
  STOP RUN.

 WRITE-IT.
  ADD 1 TO W-COUNTER.
  MOVE W-COUNTER TO P-IND.
  WRITE REG-ARQ.

 READ-IT.
  DISPLAY "Enter the Record to Change (1-998) 0 to Stop".
  ACCEPT W-COUNTER.
  MOVE W-COUNTER TO P-IND.
  IF W-COUNTER > 0
  READ ARQ AT END 
          MOVE "YES" TO W01-SWITCHES
  ELSE
          MOVE "YES" TO W01-SWITCHES.
  IF W01-MORE
          DISPLAY "Record Was: "
          DISPLAY REG-ARQ
          MOVE "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB" TO DESCRIPTION
          REWRITE REG-ARQ
          MOVE W-COUNTER TO P-IND
          READ ARQ 
          DISPLAY "Record Changes To: "
          DISPLAY REG-ARQ.