H*****************************************************************
     H*                                                               *
     H*    EJEMPLO DE UTILIZACION DEL PROGRAMA BDPG10 PARA CALCULAR   *
     H*                                                               *
     H*               LA FECHA DEL SIGUIENTE SABADO                   *
     H*                                                               *
     H*****************************************************************
     H*                                                               *
     H*  Juan Ramón Garcia (JUANRA)              8 de Julio de 1.999  *
     H*****************************************************************
     C*
     C** CALCULA LA FECHA DEL SIGUIENTE SABADO 
     C                     CALL 'BDPG10'
     C                     PARM 50197     PGAFIN  80       FECHA INIC.
     C                     PARM UDATE     PGAFFI  80       FECHA FINAL
     C                     PARM ' DMA'    PGAFMT  4        FORMATO
     C                     PARM 0         PGADIA 150       DIAS DIFEREN
     C                     DIV  7         PGADIA
     C                     MVR            PGADIA
     C           6         SUB  PGADIA    PG7SUM
     C                     CALL 'BDPG07'
     C                     PARM UDATE     PG7FEC  80       FECHA
     C                     PARM ' DMA'    PG7FMT  4        FORMATO
     C                     PARM           PG7SUM  50       DIAS A SUMAR
     C           CDENED    PARM 0         PG7DIA  20       DIA (SALIDA)
     C           CDENEM    PARM 0         PG7MES  20       MES (SALIDA)
     C           CDENEA    PARM 0         PG7A¥O  40       A¥O (SALIDA)

Nota: CDENED, CDENEM, CDENEA son sub-campos de una estructura de datos
      de 6 posiciones en formato DD-MM-AA.
      El día 5.01.97 era Domingo y lo utilizo simplemente como base de 
      cálculo.