GETCOMM:                                                                      
 
   ****************************************************************** 
   * Check to see if there is an SLIST entry matching the current             
   * Plant/Task/Monomer/CalYr combination;                                    
   ******************************************************************;         
                                                                              
   incat  = 'library.' || tsk_dsn || '.' || commval || '.slist';              
                                                                              
   mstrlist = makelist();                                                     
   templist = makelist();                                                     
                                                                              
   do i=1 to dim(comments);                                                   
      call notify(comments{i},'_clear_');                                     
   end;                                                                       
                                                                              
   if cexist(incat) = 1 then                                                  
      do;                                                                     
         rc = fillist('catalog', incat, mstrlist);    
                        
         * Go through the list and fill each comment field;                   
         do i=1 to dim(comments);                                             
            found = nameditem(mstrlist, comments{i});                         
            if found then                                                     
               do;                                                            
                  templist = getiteml(mstrlist,found);                        
                  call notify(comments{i}, '_set_value_', templist);          
                  rc = clearlist(templist);                                   
               end;                                                           
         end;                                                                 
      end;                                                                    
                                                                              
   rc = dellist(templist);                                                    
   rc = dellist(mstrlist);