CLLE에 QMODEL 시리얼을 표시하는 서브 루틴

Question

IBM Rdi에서 사용자가 서브 루틴을 호출하도록 호출하는 옵션 1 ~ 7을 입력 할 수 있도록 CLLE 프로그램을 작성해야합니다. 나는 그들이 당신은 아주 가까이있어 내가 지금까지 옵션 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 

Answer 1

에 코드에 관한 한 5.이를 입력하면 시리얼/모델 번호가 표시되는 시스템을 가지고하는 방법을 알아낼 수 없습니다! QMODEL은 기계 모델의 시스템 값입니다. 원하는 것은 QSRLNBR입니다.