*COMDECK VARUSER
*IF DEF,BSC,1 
*CALL,VARBSC
*CALL IPVAR 
*CALL VARBLK
*CALL SVMVAR
*CALL VARHIP
*IF DEF,MODE4,1 
*CALL VARMD4
*IF DEF,HASPTIP,1 
*CALL HASPVAR 
*IF DEF,ASYNC,1 
*CALL VARASYNC
*IF DEF,HLIP,1
*CALL VARHLIP 
*IF DEF,OLDSYS,1
*CALL VAROLD
*IF DEF,X25,2 
*CALL X25VAR
*CALL PADVAR
*IF DEF,3270TIP,1 
*CALL 3270VAR 
*IF DEF,USERTIP1,1
*CALL UT1VAR
*IF DEF,USERTIP2,1
*CALL UT2VAR
*IF DEF,USERTIP3,1
*CALL UT3VAR
*CALL,PERFVAR 
_**********************************************************************?
