DNJAHR = ano AAAA
DNMM   = mes MM
DNTT   = dia TT

te devuelve @WT (1=lunes, 7=domingo)


     C                     MOVE *BLANK    @WOTAG 40
     C                     MOVE *ZERO     @WT    150
     C*
     C           DNMM      IFGT 2                                           B001
     C                     SUB  2         DNMM                                 1
     C                     ELSE                            .DNMM>2          X001
     C                     ADD  10        DNMM                                 1
     C                     SUB  1         DNJAHR                               1
     C                     ENDIF                           DNMM>2           E001
     C*
     C           DNJAHR    DIV  100       @C     150
     C                     MVR            @J     150
     C*
     C           DNMM      MULT 13        @WRK   150
     C                     SUB  1         @WRK
     C                     DIV  5         @WRK
     C                     ADD  @WRK      @WT
     C*
     C           @J        DIV  4         @WRK
     C                     ADD  @WRK      @WT
     C*
     C           @C        DIV  4         @WRK
     C                     ADD  @WRK      @WT
     C*
     C                     ADD  @J        @WT
     C*
     C                     ADD  DNTT      @WT
     C*
     C           @C        MULT 2         @WRK
     C                     SUB  @WRK      @WT
     C*
     C           @WT       DIV  7         @WRK
     C                     MVR            @WT
     C*
     C           @WT       IFLT 0                                           B001
     C                     ADD  7         @WT                                  1
     C                     ENDIF                           @WT<0            E001
     C*