2

I need to make a CLLE program in IBM RDi that will allow the user to enter options 1 to 7 which will call a subroutine to be run. I can't figure out how to have the System Serial/Model Number displayed when they enter 5. This is the code I have so far relating to option 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 
mike
  • 1,233
  • 1
  • 15
  • 36
joshcunningsworth
  • 197
  • 1
  • 1
  • 9

1 Answers1

2

You're very close! QMODEL is the system value for the machine model. What you want is QSRLNBR.

Buck Calabro
  • 7,558
  • 22
  • 25