*COMDECK NETDATE
          BX5    X1 
          DATE   X1 
          SA1    X5 
          BX6    X1          RETURN DATE AS FUNCTION RESULT 
