# która powinna być powiązana z końcem okresu
# Wynik to DAT2.
# LIBCLE odnosi się do etykiet dla okresu w formacie alfanumerycznym.
Podprogram BORNES(DAT1,DAT2,LIBCLE)
Wartość Data DAT1
Zmienna Data DAT2
Zmienna Znak LIBCLE
# Podprogram ten służy do identyfikacji daty (określanej dla DA1), która będzie powiązana z początkiem okresu.
Podprogram CADRE(DAT1)
Zmienna Data DAT1# Podprogram ten zwraca w DAT2 koniec okresu określany w DAT1
Podprogram DATFIN(DAT1,DAT2)
Wartość Data DAT1
Zmienna Data DAT2# Podprogram ten zwraca liczbę okresów (podpisanych) rozdzielających dwie daty
Podprogram DECAL(DAT1,DAT2,DECAL)
Wartość Data DAT1
Wartość Data DAT2
Zmienna Liczba całkowita DECAL# Podprogram ten dodaje liczbę okresów (podpisanych) do daty końcowej
Podprogram RECAL(DAT1,DAT2,DECAL)
Wartość Data DAT1
Zmienna Data DAT2
Zmienna Liczba całkowita DECALPrzykład takiego podprogramu może być uzgadniany poprzez przyjrzenie się procesowi SUBSTADEC, który określa podprogram powiązany z zarządzaniem dekadami.