我需要在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 发布于 2014-11-09 15:39:58
你离我很近!QMODEL是机器模型的系统值。你想要的是QSRLNBR。
https://stackoverflow.com/questions/26824654
复制相似问题