U@GETDTFRNBDY

U@GETDTFRNBDY gets a result date from a named calendar that is a specified number of marked days from the input date. For an error in calendar name or from date, nothing is returned. The number of calendar days can be negative. See Century Parameter Processing.


Module	CALRTNS

Required Input


Field	Type and length	Definition
E@DRCALENDAR	A 15	Name of calendar.
E@DRFRDATE	N 8	Start date from which to check. If E@DRFRDATE equals 00000000, then it calculates backwards from the E@DRTODATE.
E@DRNBRCALDYS	N 8	Specified number of marked days. Always positive.

Output


Field	Type and length	Definition
E@DRTODATE	N 8	Calculated date. When invalid, the field is cleared and left blank. Note: If E@DRFRDATE = 00000000, then E@DRTODATE is the input and E@DRFRDATE is the output.
E@DRERRORNBR	N 9	Error number. See Error Number
E@DRERRORVAR	A 20	Input parameter is in error.

Programming Example

`IF F1@PRCSSD <> *ZEROS EVAL F1@FRMDT = F1@PRCSSD CLEAR F1@PRCSSD IF PWSSV#DTYP = 'M' CLEAR E@DRERRORNBR CLEAR E@DRERRORVAR EVAL E@DRCALENDAR = PWSSV#CLNDR EVAL E@DRFRDATE = F1@FRMDT EVAL E@DRNBRCALDYS = PWSSV#DDYS CALLP U@GETDTFRNBDY Get Date From Nbr Da EVAL F1@TODATE = E@DRTODATE`

     IF        F1@PRCSSD <> *ZEROS   
      EVAL      F1@FRMDT       = F1@PRCSSD        
      CLEAR                   F1@PRCSSD         
      IF        PWSSV#DTYP = 'M'         
      CLEAR                   E@DRERRORNBR               
      CLEAR                   E@DRERRORVAR           
      EVAL      E@DRCALENDAR   = PWSSV#CLNDR               
      EVAL      E@DRFRDATE     = F1@FRMDT            
      EVAL      E@DRNBRCALDYS  = PWSSV#DDYS               
      CALLP     U@GETDTFRNBDY          Get Date From Nbr Da
      EVAL      F1@TODATE      = E@DRTODATE