From 177cdee8d3aa99276ec6bea0a8a414f8bdf67bec Mon Sep 17 00:00:00 2001 From: LJ <3708366+worksofliam@users.noreply.github.com> Date: Wed, 24 Apr 2024 08:37:51 -0400 Subject: [PATCH] Update newemp.pgm.sqlrpgle --- qrpglesrc/newemp.pgm.sqlrpgle | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/qrpglesrc/newemp.pgm.sqlrpgle b/qrpglesrc/newemp.pgm.sqlrpgle index 3d63086..275ff09 100644 --- a/qrpglesrc/newemp.pgm.sqlrpgle +++ b/qrpglesrc/newemp.pgm.sqlrpgle @@ -45,7 +45,7 @@ dcl-s currentError like(XERR); autoEmpId = getNewEmpId(); if (autoEmpId = ''); - XERR = 'Unable to automatically generate an new ID.'; + XERR = 'Cannot get a new ID.'; else; XID = autoEmpId; Endif; @@ -191,4 +191,4 @@ Dcl-Proc getNewEmpId; endif; return ''; -End-Proc; \ No newline at end of file +End-Proc;