select tname, tabtype, clusterid from tab 
where 1=2;

DECLARE
  plist ParamList; 
  errcode NUMBER;
BEGIN 

  plist := Get_Parameter_List('DATA_TMP'); 

  IF NOT Id_Null(plist) THEN 
    Destroy_Parameter_List( plist ); 
  END IF; 

  plist := Create_Parameter_List('DATA_TMP'); 

  errcode := POPULATE_GROUP_WITH_QUERY(
                                      'FRM_RG_TAB', 
                                      'SELECT  TNAME, TABTYPE, CLUSTERID FROM TAB'); 

   Add_Parameter(plist,
                 'REP_RG_TAB',
                 DATA_PARAMETER,
                 'FRM_RG_TAB'); 
  
   Add_Parameter(plist, 
                'PARAMFORM', 
                TEXT_PARAMETER, 
                'NO');

  Run_Product(REPORTS, 
              'empreport.REP', 
              SYNCHRONOUS, 
              RUNTIME, 
              FILESYSTEM, 
              plist, 
              NULL); 
END;