Example

       UNION 
       MAP 
              CHARACTER*16 
       END MAP 
       MAP 
              INTEGER*2    CREDITS 
              CHARACTER *8 GRAD_DATE 
       END MAP 
       END UNION