Ibm midrange 在CLLE中显示QMODEL串行的子例程

我需要在IBMRDI中制作一个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 

---

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