01 month-value.
           05  FILLER                    PIC X(10)  value "January".
           05  FILLER                    PIC X(10)  value "February".
           05  FILLER                    PIC X(10)  value "March".
           05  FILLER                    PIC X(10)  value "April".
           05  FILLER                    PIC X(10)  value "May".
           05  FILLER                    PIC X(10)  value "June".
           05  FILLER                    PIC X(10)  value "July".
           05  FILLER                    PIC X(10)  value "August".
           05  FILLER                    PIC X(10)  value "September".
           05  FILLER                    PIC X(10)  value "October".
           05  FILLER                    PIC X(10)  value "November".
           05  FILLER                    PIC X(10)  value "December".

       01 month-table redefines month-value.
           05  months occurs 12 times.
               10  month-NAME            PIC X(10).

       01 month                          PIC 99.

       01 secondQuarterMonths            pic x(70).
 
       display "The months are:"
       perform varying month from 1 by 1 until month equals 12
         display " " months(month)    
       end-perform

       display " "
       display "The second quarter months are: "

       string months(4) delimited by space
              "/" delimited by size
              months(5) delimited by space
              "/" delimited by size
              months(6) delimited by space
          into secondQuarterMonths
          on overflow
             display "FATAL Error - secondQuarterMonths is too small"
             stop run
       end-string

       display " " secondQuarterMonths