5. Routine interpolation#

CALL RSINCH (    nomsd, nomsy, acces, rval, chextr, proldr,                 prolga, istop, base, iret)

nomsd

IN

K8

nom de la structure de données RESULTAT

nomsy

IN

K16

nom symbolique

acces

IN

K16

nom de la variable d’accès

rval

IN

R8

valeur réelle de la variable d’accès

chextr

IN

K19

nom du champ a créer. (s’il existe, on le détruit)

proldr

IN

K8

type de prolongement voulu à droite : ‘CONSTANT‘, ‘LINEAIRE‘, ‘EXCLU’

prolga

IN

K8

type de prolongement voulu à gauche : ‘CONSTANT‘, ‘LINEAIRE‘, ‘EXCLU‘

istop

IN

I

en cas d’erreur d’interpolation : = 0, n’écrit pas de message, ne fait pas stop. = 1, écrit message, ne fait pas stop. = 2, écrit message, fait stop.

base

IN

K8

base du champ créé

iret

OUT

I

code retour : 1) le champ est calculé : = 0, le champ est interpolé entre 2 valeurs. = 1, le champ est prolongé à gauche. = 2, le champ est prolongé à droite. 2) le champ n’est pas calculé : = 10, il n’existe aucun champ pour l’interpolation. = 11, le prolongement à gauche interdit. = 12, le prolongement à droite interdit. = 20, la variable d’accès est illicite.

Interpolation pour un nom symbolique et une variable d’accès, d’un champ dans une structure SD_RESULTAT