IDENTIFICATION DIVISION.
       PROGRAM-ID.    TEST10.
       ENVIRONMENT DIVISION.

       CONFIGURATION SECTION. 
       SPECIAL-NAMES.
           DECIMAL-POINT IS COMMA.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
        SELECT TST10F      ASSIGN TO "SYS008-DA-3390"
            ORGANIZATION IS LINE SEQUENTIAL
            ACCESS MODE  IS SEQUENTIAL
            FILE STATUS  IS FS.

       DATA DIVISION.
       FILE SECTION.

       FD         TST10F
                  LABEL RECORD IS STANDARD.
       01         REG-TST10F.
         03       P-IND                  PIC  9(03).
         03       DESCRIPTION            PIC  X(60) VALUE "AAAAAAAAAAAAAAA".
       
       
       WORKING-STORAGE SECTION.
        77 MYPARMS      PIC X(80).
        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.
        ACCEPT MYPARMS
        DISPLAY MYPARMS UPON STD-ERROR.
        OPEN OUTPUT TST10F.
        MOVE ZERO TO W-COUNTER.
        PERFORM WRITE-IT 1000 TIMES.
        CLOSE TST10F.
        OPEN INPUT TST10F.
        MOVE "NO" TO W01-SWITCHES.
        PERFORM READ-IT UNTIL W01-END.
        CLOSE TST10F.
        STOP RUN.

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

      READ-IT.
        READ TST10F AT END 
                MOVE "YES" TO W01-SWITCHES.
        IF W01-MORE
                DISPLAY REG-TST10F.