anyparm     _var    =   ''                                              
option   nolist                                                         
setvar   __var__     !_var                                              
setvar __type__  typeof(__var__)                                        
if   __type__    =   1                                                  
     setvar  __type_desc__   'Integer'                                  
elseif   __type__    =   2                                              
     setvar  __type_desc__   'String'                                   
elseif   __type__    =   3                                              
     setvar  __type_desc__   'Boolean'                                  
else                                                                    
     setvar  __type_desc__   'INVALID TYPE'                             
endif                                                                   
echo Var !_var = ![!_var]&                                              
     ; !__type_desc__&                                                  
     ; len = ![len('!__var__')]                                         
return                                                                  
#    VARINFO     Dave Powell,    MMfab Inc,         06/17/2003          
#                                                                       
#    Show info about a variable: name, value, type & length             
#    mostly to help testing/debugging other cmd files.                  
#                                                                       
#    Can also be used for info on some functions, such as len           
#    and typeof, though it can be confusing seeing results              
#    like length and length-of-length.                                  
#                                                                       
#    Ex:                                                                
#    varinfo  hpyyyymmdd                                                
#    Var hpyyyymmdd = 20031201; String; len = 8                         
#    but                                                                
#    varinfo !hpyyyymmdd                                                
#    Var 20031201 = 20031201; Integer; len = 8                          
#    ( exclamation-point before the variable is NOT recommended )       
#                                                                       
#    varinfo hpstreamedby                                               
#    Var hpstreamedby = DAVE,MGR.SHR (#S87); String; len = 19           
#    or                                                                 
#    varinfo len(hpstreamedby)                                          
#    Var len(hpstreamedby) = 19; Integer; len = 2                       
#                                                                       
#    :varinfo hptypeahead                                               
#    Var hptypeahead = FALSE; Boolean; len = 5                          
#    or                                                                 
#    varinfo typeof(hptypeahead)                                        
#    Var typeof(hptypeahead) = 3; Integer; len = 1                      
#