Cet exemple simple est constitué de 5 champs avec liaison sur le fichier RPCSAMPLE qui a été décrit avec le Constructeur RPC/DTAQ et importé dans l'analyse.
Ce fichier correspond à un programme qui attends 5 paramètres en entrée et qui retourne 3 paramètres en sortie.
EcranVersFichier("",RPCSAMPLE)
ASLanceRPC(RPCSAMPLE)
FichierVersEcran("",RPCSAMPLE)
La connexion utilisée est la connexion associée au fichier dans l'analyse.
On peut également utiliser HAjoute.
Il utilise un programme CL très rudimentaire, RPCSAMPLE qui se trouve dans la bibliothèque Easycom et dont le source se trouve dans QCLSRC de la même bibliothèque :
0001.00 PGM PARM(&VAL1I &STR1I &VAL2IO &STR2IO &VAL3O)
0002.00
0003.00 DCL VAR(&VAL1I) TYPE(*DEC) LEN(5 2)
0004.00 DCL VAR(&VAL2IO) TYPE(*DEC) LEN(5 2)
0005.00 DCL VAR(&VAL3O) TYPE(*DEC) LEN(10 4)
0006.00 DCL VAR(&STR1I) TYPE(*CHAR) LEN(20)
0007.00 DCL VAR(&STR2IO) TYPE(*CHAR) LEN(30)
0008.00
0009.00 CHGVAR VAR(&VAL3O) VALUE(&VAL1I * &VAL2IO)
0010.00 CHGVAR VAR(&VAL2IO) VALUE(&VAL1I + &VAL2IO)
0011.00 CHGVAR VAR(&STR2IO) VALUE(&STR1I)
Ce programme attend 5 variables en entrée, 2 chaînes et 3 numériques.
Le texte de la première chaîne est copié dans la seconde.
La valeur du deuxième opérateur est additionnée à celle du premier.
Le troisième opérateur (en sortie seule) est le résultat de la multiplication du premier par le second.
Les variables se retrouvent dans la description du fichier avec leur type et leur nature (I, IO ou O)