IDENTIFICATION   DIVISION.
       PROGRAM-ID.      EXTERNALBUG.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
         01  FIRST-VARIABLE  PIC X.
         01  EXTERNAL-GROUP-FIELD IS EXTERNAL.
           05 ALPHA-FIELD   PIC X(30).
           05 NUMERIC-FIELD PIC 9(4).
       PROCEDURE        DIVISION.
       BEGIN.
           MOVE "VALUE FROM EXTERNALBUG" 
              TO ALPHA-FIELD OF EXTERNAL-GROUP-FIELD.

           DISPLAY "BEFORE CALL UPROG".
           DISPLAY "ALPHA-FIELD:" , ALPHA-FIELD OF EXTERNAL-GROUP-FIELD.
      
           CALL "UPROG".

           DISPLAY "AFTER CALL UPROG".
           DISPLAY "ALPHA-FIELD:" , ALPHA-FIELD OF EXTERNAL-GROUP-FIELD.

           STOP RUN.