Подпрограмма для отображения серийного номера QMODEL в CLLE

Мне нужно создать CLLE-программу в IBM RDi, которая позволит пользователю вводить опции с 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
Источник

1 ответ

Решение

Ты очень близко! QMODEL - системное значение для модели машины. То, что вы хотите, это QSRLNBR.

Источник
Другие вопросы по тегам