2011-06-15 11:46

varserverini: PROCEDURE EXPOSE dict$. 
IF EXISTS('dict$.init')=1 THEN RETURN 
/* File Variable Server File addresses and location */
primdir=DIRECTORY()
dict$.variable_name.1='cities'             /* Define Stem root which addresses variable pool (ommit '.') */
dict$.variable_dir.1=primdir'\Varpool\'    /* physical location of file */
dict$.variable_text.1='Cities>1 Million'   /* Text describing contents of file */
dict$.variable_name.2='countries'          /* Define Stem root which addresses variable pool (ommit '.') */
dict$.variable_dir.2=primdir'\Varpool\'    /* physical location of file */
dict$.variable_text.2='countries'          /* Text describing contents of file */

dict$.variable_name.0=2                    /* number of Variable Files to be used */

dict$.partsize=2500                         /* maximum statements of created rexx containing variables */ 
/* characters which need to be translated, to be used in variable and stem names */ 
dict$.trfrom=":/\'()"
dict$.trto=  "#{}%<>"
/* call internal post process script to complete init */
CALL internal
RETURN 
/* -----------------------------------------------------------
 * Internal settings 
 * -----------------------------------------------------------
 */
internal:
lp=LASTPOS('\',primdir)
IF lp>0 THEN ddname=SUBSTR(primdir,lp+1)
dict$.drive=SUBSTR(primdir,1,3)
dict$.trvarfrom='^ -+*/&äöüßÄÖÜ.'||dict$.trto||dict$.trfrom
dict$.trvarto=COPIES('_',LENGTH(dict$.trvarfrom))
dict$.dir=primdir
dict$.dict=ddname
dict$.init=1
dict$.exposestems='Dict$. mpout.'
DO i=1 TO dict$.variable_name.0
   dict$.exposestems=dict$.exposestems' 'dict$.variable_name.i'.'
END 
RETURN

2011-06-15 11:46