2011-06-15 11:46

divin: PROCEDURE EXPOSE (dict$.exposestems)
PARSE ARG mode
CALL varserverini()
SAY ptime()' Load Variable Tables started'
loaded=0
DO i= 1 TO dict$.variable_name.0             /* load all variable files to be used */
   varname=dict$.variable_name.i
   vardir=dict$.variable_dir.i
   vartext=dict$.variable_text.i
   INTERPRET 'lcc=DIVLOAD("'vardir'","'varname'",'varname'.,"'vartext'")'
   IF lcc=0 THEN DO 
      loaded=loaded+1 
      INTERPRET varname'.UPDATE=0'
   END 
END
SAY ptime()' Load Variable Tables completed, 'loaded' tables loaded' 
SAY ptime()' All update flags have been cleared' 
RETURN 
/* --------------------------------------------------------------------------------------------
 * Load Entire Pool of certain Table 
 * --------------------------------------------------------------------------------------------
 */
divload: PROCEDURE
USE ARG table,divname,divobj.,tabmsg 
exec=table||divname'.0.rex'
rcc=0
suffix=0
DO UNTIL exec=''
   DO
     CALL [exec](divobj.) 
     CATCH SYNTAX
     rcc=8
   END
   IF rcc>0 THEN LEAVE
   SAY ptime() tabmsg' Partition 'suffix' Loaded' 
   IF divobj.next_extension=0 THEN exec='' 
   ELSE DO 
      suffix=suffix+1
      exec=table||divname'.'suffix'.rex'
   END
END
RETURN rcc
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
/*** --------------------------------------------------------------------------- */
/*** Auto Loaded Modules, source changes should be done in the original modules  */
/*** --------------------------------------------------------------------------- */  /*$$AUTOLOAD ALL */
ptime: PROCEDURE
ptime=TIME('l')
len=LENGTH(ptime)-3
RETURN SUBSTR(ptime,1,len)      /*$$AUTOLOAD END ALL */
/*** ------------------------------------------------------------------------------------------------------- */
/*** XREF of (Auto-) Loaded Modules                                                                          */
/*** ------------------------------------------------------------------------------------------------------- */
/*** PTIME.REX               I:\Varserver\\SysProc\                 AUTOLOAD       281BT 23/12/2008 15:12:04 */
/*** ------------------------------------------------------------------------------------------------------- */
/*** XREF of Procedures      Defined  Used in Line   Suffix "+" Label, none Procedure                        */
/*** ------------------------------------------------------------------------------------------------------- */
/***   1 DIVIN                   5    2                                                                      */
/***   2 DIVLOAD                23    15                                                                     */
/***   3 PTIME                  67    10 17 35                                                               */
/*** ------------------------------------------------------------------------------------------------------- */
/*** XREF of Variables              Modified in Line   Suffix "+" Parse Arg, "*" Parse Variable, none SET    */
/*** ------------------------------------------------------------------------------------------------------- */
/***   1 EXEC                                25 39                                                           */
/***   2 LEN                                 69                                                              */
/***   3 MODE                                6+                                                              */
/***   4 PTIME                               68                                                              */
/***   5 RCC                                 26 32                                                           */
/***   6 SUFFIX                              27 38                                                           */
/***   7 VARDIR                              13                                                              */
/***   8 VARNAME                             12                                                              */
/***   9 VARSTEM1.0                          9                                                               */
/***  10 VARTEXT                             14                                                              */

2011-06-15 11:46