From cbccd82574d62b31a7a3786ad7d101c2097659c4 Mon Sep 17 00:00:00 2001
From: worksofliam <mrliamallan@live.co.uk>
Date: Tue, 23 Jan 2024 13:52:59 -0500
Subject: [PATCH] FIx invalid option number in DEPTS

---
 qrpglesrc/depts.pgm.sqlrpgle | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/qrpglesrc/depts.pgm.sqlrpgle b/qrpglesrc/depts.pgm.sqlrpgle
index 77bfe2c..985925a 100755
--- 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;