IDENTIFICATION DIVISION.
       PROGRAM-ID. UNSTR.
       AUTHOR. ROBERT A. STERN.
      * This program has no date procedures so it is Y2K compliant **
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       LINKAGE SECTION.
       01  DATA-SENT-FROM-CALLING-PROG.
           05  EMPLOYEE-ADDR              PIC X(50).
           05  UNSTR-ADDR.
               10  STREET-ADDR            PIC X(15).
               10  CITY-ADDR              PIC X(20).
               10  STATE-ADDR             PIC XX.
               10  ZIP-CODEX              PIC X(5).
       PROCEDURE DIVISION USING DATA-SENT-FROM-CALLING-PROG.
       100-MAIN-PARA.
           UNSTRING EMPLOYEE-ADDR
               DELIMITED BY '/'
               INTO STREET-ADDR
                  CITY-ADDR
                  STATE-ADDR
                  ZIP-CODEX
           END-UNSTRING.
       200-EXIT-PARA.
           EXIT PROGRAM.