*COMDECK VDPARM 
      DEF PARMNO#5#;         # NUMBER OF VALID PARAMETERS              #
  
      COMMON VDPARMC; 
      BEGIN 
      ARRAY [1:PARMNO] S(1);
        ITEM                 # LIST OF VALID PARAMETERS                #
          VDPARM             U(0,0,NL) = [
                                          O"11000000000000",# I        #
                                          O"14000000000000",# L        #
                                          O"02000000000000",# B        #
                                          O"16000000000000",# N        #
                                          O"04000000000000",# D        #
                                         ], 
          VDPMLEN            I(0,NL,AL)= [4(2),1];
      END 
