用于在CLLE中显示QMODEL序列的子程序

Question

我需要在IBM RDi中创建一个CLLE程序，允许用户输入选项1到7，这将调用要运行的子程序。我无法弄清楚如何在输入5时显示系统序列号/型号。这是我到目前为止与选项5有关的代码。

DCL        &SERIAL *CHAR (10)

WHEN       (&OPTION = '5' *OR &OPTION = '05') CALLSUBR OPTION5

SUBR       OPTION5
           RTVSYSVAL  SYSVAL(QMODEL) RTNVAR(&SERIAL)
           CHGVAR     &MSGTXT ('SYSTEM SERIAL #: ' *BCAT &SERIAL)
ENDSUBR 

Answer 1

你非常接近！ QMODEL是机器模型的系统值。你想要的是QSRLNBR。