SAP: HR/ABAP Pan Card Validation check in PA 30 (Subtype : 185)

Question

Hi Gurus,
I am trying to implement BADI : ZHRPAD00INFTY for a validation check over the screen field  p0185-icnum.
Pan must be of 10 digits .
First five digit and tenth digit must be alphabet(A_Z)
Sixth to Ninth digit must be Number (0,1,2,3,4,5,6,7,8,9)
Fourth digit of Pan represent Assessee status,and if a Partnership firm provides pan with forth digit as P or C then it means the pan is incorrect
Fifth Digit of Pan represent Surname as per Data filled in the application in case of Individual assessees and in other case first name .
I require an assistance with code.
Regards.

Answer 1

Thank you always learner. Here is my working code in BAPI.
IF new_innnn-infty = '0185'.  " Pan Card Check
* screen field: P0185-ICNUM
     DATA: v_icnum TYPE i.
     DATA: text TYPE string,
        moff TYPE i,
        mlen TYPE i.
     FIELD-SYMBOLS : <fs_pan> TYPE any .
     ASSIGN ('(MP018500)P0185-ICNUM') TO <fs_pan>.
     v_icnum = strlen( <fs_pan> ).
     IF <fs_pan> IS NOT INITIAL AND v_icnum = '10' .
       FIND REGEX `[A-Z]{5}\d{4}[A-Z]{1}`
       IN <fs_pan>
          IGNORING CASE
          MATCH OFFSET moff
          MATCH LENGTH mlen.
       IF sy-subrc NE 0.
         MESSAGE e398(00) WITH 'Please Enter Valid Pan No.'.
       ENDIF.
     ELSE.
       MESSAGE e398(00) WITH 'Please Enter Valid Pan No.'.
     ENDIF.
   ENDIF.