Correct rc in SQBS

git-svn-id: file:///home/jj/hercules.svn/trunk@7651 956126f8-22a0-4046-8f4a-272fa8102e63
2026-04-21 03:12:58 +02:00 · 2011-08-01 05:28:45 +00:00
parent 337d1890a5
commit a1b0d52653
1 changed files with 1 additions and 0 deletions
--- a/qdio.c
+++ b/qdio.c
@@ -240,6 +240,7 @@ ARCH_DEP(display_inst) (regs, inst);
         }
         else
         {   /* this is an invalid queue index */
+             regs->GR_H(r3) = 1;   /* Indicate activation error in return code */
             regs->psw.cc = 2;  /* guess */
             return;
         }