*COMDECK QRCTLDCLS
      BASED ARRAY QCCTLWD S(2); 
        BEGIN 
        ITEM QCWORD0 (0,0,60);         # BLOCK CONTROL WORD ZERO       #
        ITEM QCAID U(0,0,12);          # AREA ID                       #
        ITEM QCPRUN U(0,12,24);        #PRU NUMBER OF BLOCK            #
        ITEM QCINDEXF B(0,36,1);       #TRUE IF BLOCK FOR INDEX FILE   #
        ITEM QCGBID U(0,37,23);        #GOOD BLOCK ID                  #
  
        ITEM QCWORD1 (1,0,60);         # BLOCK CONTROL WORD 1          #
        ITEM QCVENAME C(1,0,07);       # PRIMARY VERSION NAME          #
        END 
