*COMDECK  COMDTREC - RECORD TYPE JUMP VECTOR. 
          BASED ARRAY TREC ;       # RECORD TYPE JUMP VECTOR #
               BEGIN
               ITEM RECT I (0, 0,WL) ;  # RECORD ORDINAL CONVERSION    #
               END
          ITEM TRECL ;
