IDENTIFICATION   DIVISION.
       PROGRAM-ID.      UPROG.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
         01  FIRST-VARIABLE   PIC X.
         01  SECOND-VARIABLE  PIC X.

         01  EXTERNAL-GROUP-FIELD IS EXTERNAL.
           05 ALPHA-FIELD   PIC X(30).
           05 NUMERIC-FIELD PIC 9(4).

       PROCEDURE        DIVISION.
       BEGIN.
           DISPLAY "I am the UPROG Program".
           MOVE "VALUE FROM UPROG" 
              TO ALPHA-FIELD OF EXTERNAL-GROUP-FIELD.

           EXIT PROGRAM.