IDENTIFICATION DIVISION.
       PROGRAM-ID. STRINGG.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  ADR-IN   PIC X(22)  VALUE "231/EAST MAIN/ST      ".
       01  ADR-OUT.
           05  ADR-NUM        PIC X(5)       VALUE SPACES.
           05  ADR-NAME       PIC X(20)      VALUE SPACES.
           05  ADR-TYPE       PIC XX         VALUE SPACES.
       01  BACK-TOGETHER      PIC X(22)      VALUE SPACES.
       01 JUNK-ANS   PIC X.
       PROCEDURE DIVISION.
       MAINLINE.
           PERFORM B-100-ADR-FLIP.
	   STOP RUN.
       B-100-ADR-FLIP.
          UNSTRING ADR-IN
	      DELIMITED BY "/"
              INTO ADR-NUM ADR-NAME ADR-TYPE.
          DISPLAY "THE SEPARATED STREET # IS " ADR-NUM.
          DISPLAY "THE SEPARATE STREET NAME IS " ADR-NAME.
          DISPLAY "THE SEPARATE STREET TYPE IS " ADR-TYPE.
          ACCEPT JUNK-ANS.
	  STRING
              ADR-NUM DELIMITED BY " "
	      " " DELIMITED BY SIZE
              ADR-NAME DELIMITED BY "  "
              " " DELIMITED BY SIZE
              ADR-TYPE DELIMITED BY SIZE
	      INTO BACK-TOGETHER.
          DISPLAY "THE STRING BACK TOGETHER ADDRESS IS " BACK-TOGETHER.
          ACCEPT JUNK-ANS.