PROC 0 PANEL(ISR@PRIM)
    CONTROL MAIN
    LOOP: ISPEXEC DISPLAY PANEL(&PANEL)
          SET RC = &LASTCC.
          IF &RC = 8 THEN EXIT CODE(0)
          IF &STR(&ZSEL.) = &STR() THEN GOTO LOOP
          IF &STR(&ZSEL.) = &STR(EXIT) THEN EXIT CODE(0)
          IF &STR(&ZSEL.) = &STR(?) THEN DO
             ISPEXEC SETMSG MSG(ISPD241)
             GOTO LOOP
             END
          ISPEXEC SELECT &ZSEL.
          GOTO LOOP