6. Routines of existence#

CALL RSEXIS (names, irets)

IN

nomsd

K8

data structure name RESULTAT

OUT

iret

I

return code: = 0, the structure exists; ? 0, the structure does not exist.

Verification of the existence of a structure SD_RESULTAT.

CALL RSEXPA (names, icode, name, iret)

IN

nomsd

K8

data structure name RESULTAT

IN

icode

I

= 0, access variable = 1, parameter = 2, access variable or parameter

IN

name by

K16

name of the access parameter or variable

OUT

iret

I

return code: = 0, the name does not exist; = 100, the name exists.

Checking the existence of a parameter name or an access variable name in a SD_RESULTAT structure.

CALL RSVPAR (name, order, name, par, ipar, rpar, kpar, iret)

IN

nomsd

K8

data structure name RESULTAT

IN

iordr

I

order number

IN

name by

K16

name of the parameter to check

IN

ipar

I

parameter value if integer

IN

rpar

R8

parameter value if real

IN

kpar

parameter value if character

OUT

iret

I

return code: = 0, it is not a parameter = 100, the parameter value is correct = 110, the parameter value is not correct

Checking the existence of a parameter name and its value for a given order number in a SD_RESULTAT structure.