*COMDECK LDSET
          CONTROL NOLIST;    #LDSET#
 #
* 
*         THIS ARRAY IS USED TO STORE VALUES TO BE PUT INTO THE 
*         LDSET TABLE 
 #
 #
*         VALUES FOR LDSETTYPE
 #
  
          STATUS LDSETVAL 
                 NUL         #NOT USED# 
              ,  OMIT        #GEN LDSET OMIT - OMIT THIS ONE# 
              ,  USE         #GET LDSET USE - LOAD THIS ONE#
              ,  LIBRARY     #GEN LDSET LIB - LOAD FROM THIS LIBRARY# 
              ; 
  
          COMMON LDSETCM; 
          BASED ARRAY LDSETARRAY  S(1); 
              BEGIN 
              ITEM LDSETNAME C(00, 00, 07);    #NAME FOR LOADSET# 
              ITEM LDSETTYPE S:LDSETVAL (00, 42, 02);  #TYPE OF LDSET#
              ITEM LDSETOVL U(00,44,08);
              END 
          CONTROL LIST;      #LDSET#
