*COMDECK DLNOD
      COMMON DLNOD; 
        BEGIN 
        ARRAY NODX [1:12];
          ITEM NOD I         # NUMBER OF DAYS IN A MONTH               #
                             =[31, 28, 31, 30, 31, 30, 31, 31,
                               30, 31, 30, 31]; 
        END 
