FIx invalid option number in DEPTS

IBM · Jan 23, 2024 · cbccd82 · cbccd82
1 parent 90b6e2e
commit cbccd82
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/qrpglesrc/depts.pgm.sqlrpgle b/qrpglesrc/depts.pgm.sqlrpgle
@@ -138,7 +138,7 @@
               SelVal = %Trim(XSEL);
 
               Select;
-                When (SelVal = '6');
+                When (SelVal = '5');
                   //DSPLY @XID;
                   Employees(XID);
               Endsl;