identification division.
       program-id.      external1.
       environment      division.
       configuration    section.
       special-names.
         .
        INPUT-OUTPUT SECTION.
         FILE-CONTROL.
          SELECT ARQ ASSIGN TO "Raw.dat" 
              ORGANIZATION IS LINE SEQUENTIAL
              ACCESS MODE  IS SEQUENTIAL
              FILE STATUS  IS FS.

       data division.
       file section.

         FD         ARQ external
            LABEL RECORD IS STANDARD.
         01         REG-ARQ.
           03       P-IND                  PIC  9(03).
          03       DESCRIPTION            PIC  X(60) VALUE "aaaaaaaaab".
 
       working-storage  section.
       01 wint     external pic x(12).
       77 fs        pic 99.
       screen section.
        
        procedure division.
           accept wint.
*       display wint
        display "call external1sub (1st time)"
        call "external1sub"
        display "back in main"
        accept wint update
        display "call external1sub (2nd time)"
        call "external1sub"
        display "back in main"
        accept wint update
        stop run.