"VGET (ZPF05) PROFILE"
   save_f5 = zpf05
   "TBTOP" $tn$
   do forever
                               zpf05 = "END"  ; "VPUT (ZPF05) PROFILE"
      "TBDISPL" $tn$ "PANEL(PIDISP)"
      disp_rc = rc
                               zpf05 = save_f5; "VPUT (ZPF05) PROFILE"
      if disp_rc > 8 then do
         zerrlm = exec_name "("BRANCH("ID")")",
                  zerrlm
         "SETMSG  MSG(ISRZ002)"
         sw.0error_found = "1"
         leave
         end
      if disp_rc = 8 then,
         if pfkey = "F5" then call Z_REFIND        /*               -*/
                         else leave
      if zcmd ^= "" then do
         "CONTROL DISPLAY SAVE"
         call BDC_PROCESS_CMD          /*                           -*/
         "CONTROL DISPLAY RESTORE"
         iterate
         end

      do ztdsels
         "CONTROL DISPLAY SAVE"

         select

            when sel = "D" then do
               end

            otherwise nop

         end                           /* select                     */

         "CONTROL DISPLAY RESTORE"

         if ztdsels > 1 then "TBDISPL" $tn$

      end                              /* ztdsels                    */

      sel = ""

   end                                 /* forever                    */