RPG - alle Varianten » Validation in SQLRPGLE

Hi,

I have a validation subroutine in my SQLRPGLE program it's a very long subroutine below is the some portion of it :-

           // Invalid case/Pallet scanned
            Chain(N)  WSCASN  IDCASE00;                //Single Case
            IF  Not %Found(IDCASE00);
            Chain(N) (LdWhse:' ':WSCASN) IDCASE10;
              If  Not %Found(IDCASE10);
                  WsMsg = 'Not Valid Cs/Pl';
                  Flg_Error = 'Y' ;
                  LeaveSr;
              Else ;
            ----------------
            ----------------
           -----------------
 
 

So in this validation subroutine i want to add checks whether case/pallet entered is valid or not and accordingly it displays message on the screen.

Currently it accepts case id and displays it on the screen as per program's flow but i just want to add a message on the screen that when any case id is entered that 'you entered case not pallet' and after this it should proceed like earlier i mean after overriding this message program's flow should be continued like earlier so i just wanted to introduce this warning kind of message only which should be overriden(soft warning).

my subroutine to validate pallet and case id is like below , so could someone please advise the suitable changes in this subroutine to get this soft warning introduced in it with below conditions:-

---->when they enter Pallet and it does NOT exist in IDCASE10 then hard stop error.

-->If they enter case# (that does NOT start with letter 'L')
and it does NOT exist in IDCASE00 file, then hard stop error.

-->If they enter valid case# (ie., it exists in IDCASE00 but NOT in IDCASE10)
then "warning soft error". With the use of SELECT and ENDSL statements combining with LeaveSR .

So if anyone has expertise in SQLRPGLE then could someone please advise here.


Thanks a lot ....