IBM Mainframe Forum

COMPUTE L = FUNCTION LENGTH(NAME)                     
  DISPLAY "L=  ", L.                                         
  INSPECT NAME(I: ) TALLYING A FOR ALL "."             
                                       
  DO UNSTR WHILE L >= I.                                     
       INSPECT NAME(I: ) TALLYING I FOR CHARACTERS     
             BEFORE '.'                                     
       IF A > 0                                             
         IF I NOT > L                                       
            ADD 1 TO I                                       
            UNSTRING NAME(J:I) DELIMITED BY             
                     "." INTO Q(K)                       
            ADD 1 TO K                                       
            COMPUTE J = I                                   
            SUBTRACT 1 FROM A                               
         END.                                               
       ELSE                                                 
          UNSTRING NAME(J:I) DELIMITED BY " " INTO Q(K)
          DISPLAY Q(K)                                       
          ADD 1 TO K                                         
       END.                                                 
  END UNSTR.                                                 
 
  DO UNSTR1 WHILE B <= 5.                                   
      INSPECT STRN REPLACING ALL 'X' BY B                   
      INSPECT TITLE TALLYING COUNT1 FOR ALL STRN         
      INSPECT TITLE REPLACING ALL STRN BY Q(B)           
      INSPECT STRN REPLACING ALL B BY 'X'                   
      INITIALIZE COUNT1                                     
      ADD 1 TO B                                       
  END UNSTR1.   
                                           
  MOVE SPACES TO TITLE1   
                               
  DO UNSTR2 VARY C FROM 1 BY 1 TO L.                       
   IF TITLE(C:1) = " "                                   
      CONTINUE                                             
   ELSE                                                     
      MOVE TITLE(C:1)TO TITLE1(D:1)                     
      ADD 1 TO D                                           
   END.                                                     
  END.