*COMDECK VDDIR
      COMMON VDDIR; 
        BEGIN 
        ARRAY VDDR[1:DIRNO] S(1); 
          BEGIN 
          ITEM VDENTR        U(0,0,NL) =
                             [
                             O"02045400000000",  #BD=                  #
                             O"02245400000000",  #BT=                  #
                             O"03165400000000",  #CN=                  #
                             O"04165400000000",  #DN=                  #
                             O"05045400000000",  #ED=                  #
                             O"05245400000000",  #ET=                  #
                             O"14055400000000",  #LE=                  #
                             O"16155400000000",  #NM=                  #
                             O"20235400000000",  #PS=                  #
                             O"20065400000000",  #PF=                  #
                             O"23155400000000",  #SM=                  #
                             O"23165400000000",  #SN=                  #
                             O"02000000000000",  #B                    #
                             O"03000000000000",  #C                    #
                             O"05000000000000",  #E                    #
                             O"06000000000000",  #F                    #
                             O"16000000000000",  #N                    #
                             O"20000000000000",  #P                    #
                             O"22000000000000",  #R                    #
                             O"24000000000000",  #T                    #
                             O"25000000000000",  #U                    #
                             O"30000000000000"   #X                    #
                             ]; 
          ITEM VDLEN         U(0,ZL,AL) = 
                             [DIRNO3(3), DIRNO1(1)];
          END 
        END 
