Aide sur champ (APSPERPRG)

Lorsque l'on désire établir des cumuls sur une périodicité non prédéfinie par le progiciel, on peut définir ici le nom d'un traitement dont les sous-programmes suivants devront être définis :

• # Ce sous-programme permet de recaler une date (définie par DAT1)
  # pour qu'elle corresponde à une fin de période.
  # Le résultat est DAT2.
  # LIBCLE correspond au libellé de la période sous forme alphanumérique.
  Subprog BORNES(DAT1,DAT2,LIBCLE)
  Value    Date    DAT1
  Variable Date    DAT2
  Variable Char    LIBCLE
• # Ce sous-programme recadre une date (définie par DA1) pour qu'elle corresponde à un début de période.
  Subprog CADRE(DAT1)
  Variable Date DAT1
• # Ce sous-programme renvoie dans DAT2 la fin de la période définie par DAT1
  Subprog DATFIN(DAT1,DAT2)
  Value Date DAT1
  Variable Date DAT2
• # Ce sous-programme renvoie le nombre de périodes (signé) séparant deux dates
  Subprog DECAL(DAT1,DAT2,DECAL)
  Value Date DAT1
  Value Date DAT2
  Variable Integer DECAL
• # Ce sous-programme ajoute un nombre de périodes (signé) à une date de fin
  Subprog RECAL(DAT1,DAT2,DECAL)
  Value Date DAT1
  Variable Date DAT2
  Value Integer DECAL

Un exemple de tels sous-programmes peut être consulté en regardant le traitement SUBSTADEC, qui définit les sous-programmes correspondant à la gestion par décade.