*COMDECK SYSDATEX 
      COMMON SYSDATEX;
        BEGIN 
        ARRAY SYSDATEY S(1);
          BEGIN 
          ITEM SYSDATE       C(0,6,8);
          END 
        END 
