Ajuda p/o campo (APSPERPRG)

Quando se deseja estabelecer os acumulados sobre uma periodicidade não pré-definida pelo software, pode-se definir aqui o nome de um tratamento cujos sub-programas seguintes devem ser definidos :

• # Este sub-programa permite de rechamar uma data (definida por DAT1)
  # para que ela corresponda a um fim de período.
  # O resultado está DAT2.
  # LIBCLE corresponde ao título do período sob forma alfanumérica.
  Subprog BORNES(DAT1,DAT2,LIBCLE)
  Value    Date    DAT1
  Variable Date    DAT2
  Variable Char    LIBCLE
• # Este sub-programa reenquadra uma data (definida por DA1) para que ela corresponda a um início de período.
  Subprog CADRE(DAT1)
  Variable Date DAT1
• # Este sub-programa reenvia em DAT2 o fim do período definido por DAT1
  Subprog DATFIN(DAT1,DAT2)
  Value Date DAT1
  Variable Date DAT2
• # Este sub-programa reenvia o número de períodos (assinado) separando as duas datas
  Subprog DECAL(DAT1,DAT2,DECAL)
  Value Date DAT1
  Value Date DAT2
  Variable Integer DECAL
• # Este sub-programa acrescenta um número de períodos (assinado) a uma data de fim
  Subprog DECAL(DAT1,DAT2,DECAL)
  Value Date DAT1
  Value Date DAT2
  Variable Integer DECAL

Um exemplo de tais sub-programas pode ser consultado em face o tratamento SUBSTADEC, que define os sub-programas correspondentes à gestão por década.