PeterJ 2010-11-08 15:19

/* -----------------------------------------------------------------------------------
 * DEFINE: Define Structure, 
 * PUT:    Build Record using Variables
 * GET:    Extract Variables from Record 
 * -----------------------------------------------------------------------------------
 */
declare: PROCEDURE EXPOSE(allitems)  
PARSE ARG mode,strdef,strval
IF mode='DEFINE' THEN DO 
   IF strval="" THEN strval=";;"
   struct=''
   DO i=1 TO WORDS(strdef)
      struct=struct||"'"strval"'"WORD(strdef,i)
   END
   IF EXISTS("AllItems")=0 THEN allitems=""
   allitems=allitems||strdef" "
   RETURN SUBSTR(struct,LENGTH(strval)+3)   
END
IF mode='PUT' THEN DO 
   INTERPRET "record="strdef
   RETURN record
END 
IF mode='GET' THEN DO 
   INTERPRET "parse value strval with "strdef
   RETURN ""
END 

PeterJ 2010-11-08 15:19