Le programme de service

Un programme de service (ici écrit en RPG) utilise l’API QWCRDTAA pour ramener pour une dtaara / bib / position de départ / longueur, la valeur trouvée.

Utilisation

Appel du programme de service dans un programme pour récupérer une valeur dans une dtaara. L’exemple qui suit récupère dans une dtaara système la version de l’OS.

Déclaration de la procédure

*********************
* Prototype lecture dtaara
*********************
D RtvDtaAra PR 7A
D p_RetVal * value
D p_DtaAra 10a Const
D p_DtaAraLib 10a Const Options(*omit:*nopass)
D p_StrPos 5p 0 Const Options(*omit:*nopass)
D p_DtaLen 5p 0 Const Options(*omit:*nopass)

Déclaration de la variable de retour

D u_QSS1MRI 8A


Appel de la procédure

Error_Exec = RtvDtaAra(%addr(u_QSS1MRI):'QSS1MRI':'QUSRSYS':1:8);