| 
dnomlong s 128
dwnomlong s like(nomlong)
dbibnomlong s 10
drtnval s 10
Dmin c 'abcdefghijklmnopqrstuvwxyz'
DMAJ c 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
ddsretour ds
d retour_nom 10
d retour_bib 10
dcoderreur ds
d cod_lg 10I 0 inz(%len(coderreur))
d cod_lgr 10I 0
d cod_cpf 7
d cod_filler 1
Drtvsn pr extpgm('QDBRTVSN')
d retour like(dsretour)
d nom like(nomlong) const
d nom_len 10I 0 const
d bib like(bibnomlong) const
d code like(coderreur)
c *entry plist
c parm nomlong
c parm bibnomlong
c parm rtnval
c min:MAJ xlate nomlong wnomlong
c callp rtvsn(dsretour : wnomlong :
c %len(%trimr(nomlong)) :
c bibnomlong : coderreur )
c if cod_cpf = ' '
c eval rtnval = retour_nom
c endif
c return
|
