| 
Dretour ds
D rt_nbsysval 10i 0
d rt_dep 10I 0
d rt_filler 32767
dpointer s *
dunesysval ds based(pointer)
d rt_sysval 10
d rt_type 1
* 'C'=valeur Char,'B'= valeur Bin
d rt_etat 1
* ' ' = OK, 'L' = Locked
d rt_lgvaleur 10i 0
* valeur
d rt_valeurc 255
d rt_valeurb 10I 0 overlay(rt_valeurc)
dlgretour s 10i 0 inz(%len(retour))
dnbsysval s 10i 0 inz(1)
dsysval s 10 inz('QUTCOFFSET')
dcoderreur ds
d cod_lg 10i 0 inz(%len(coderreur))
d cod_errlg 10i 0
d cod_id 7
d cod_filler 1
c call 'QWCRSVAL'
c parm retour
c parm lgretour
c parm nbsysval
c parm sysval
c parm coderreur
* en "jouant" avec pointer on positionne "unesysval" sur retour
* en tenant compte du déplacement prévu.
c eval pointer=%addr(retour) + rt_dep
* il vous reste à utiliser rt_valeurc ou rt_valeurb suivant "rt_type"
c eval *inlr=*on
|
