2

我需要在 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
4

1 回答 1

2

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

于 2014-11-09T15:39:58.903 回答