Commands (YPOPWSIPDD - Y2CALL) › YRTVMDLVAL (Retrieve Model Value) Command › Example

Example

To retrieve the YGENLIB model value:

DCL VAR(&VALUE) TYPE(*CHAR) LEN(80)
 DCL VAR (&GENLIB) TYPE(*CHAR) LEN(10)
 YRTVMDLVAL MDLVAL(YGENLIB) +
VALUE(&VALUE) CHGVAR &GENLIB &VALUE