do forever
      action = ""                      /* setup                      */
 
      "DISPLAY  PANEL(SMCMAIN)"
      if rc > 0 then leave             /* PF3 ?                      */
 
      if action = "" then do           /* no selection               */
         zerrsm = "What ??"
         zerrlm = "You should select one of the 'actions' shown",
                  "or press the 'END' key to terminate."
         "SETMSG  MSG(ISRZ002)"
         iterate
         end                           /* no selection               */
 
      valid_actions = "1 2 3 4 5"
      select                           /* on ACTION                  */
         when action = 1 then do
            end                        /* 1                          */
         when action = 2 then do
            end                        /* 2                          */
         when action = 3 then do
            end                        /* 3                          */
         when action = 4 then do
            end                        /* 4                          */
         when action = 5 then do
            end                        /* 5                          */
         otherwise do
            zerrsm = "Pardon ?"
            zerrlm = "You entered '"action"'.  The only action",
                     "codes I know of are '"valid_actions"'"
            "SETMSG  MSG(ISRZ002)"
            end                        /* otherwise                  */
      end                              /* select                     */
   end                                 /* forever                    */