"LIBDEF  ISPTLIB  DATASET  ID( "isptlib" ) STACK"
   "TBSTATS" @tn@ "STATUS1( s1 ) STATUS2( s2 )"
   if s1 > 1 then do
      zerrsm = "Table" @tn@ "not available."
      say   zerrsm
      zerrlm = "Table" @tn@ "not found in the ISPTLIB library chain"
      "SETMSG  MSG( ISRZ002 )"
      sw.0error_found = "1"; return
      end; else,
   if s2 = 1 then do                   /* table is not open          */
      "TBOPEN "   @tn@   openmode.NOUPDT
      if rc > 4 then do
         sw.0error_found = 1
         zerrsm = "Table did not OPEN"
         zerrlm = "Table" @tn@ "cannot be opened due to prior",
                  "enqueues."
         "SETMSG  MSG( ISRZ002 )"
         end
      end
   else "TBTOP" @tn@
   "LIBDEF  ISPTLIB"