+C* GETDOW	MACRO  GDATE NDOWIX
     C* GET DAY OF WEEK INDEX (1=SUN,2=MON, ... 7=SAT)
    +C* Z-ADD &1 TO GDATE
    +C* EXSR SRDAYS
    +C* DIV   NDATE BY 7 = #NWORK 5.0
    +C* MVR   &2 5.0
    +C* ADD   1 TO &2