PLI for AIX 3.1 _IBMPCODP should show same behaviour as on zOS

COBOL provides a knob "COBOL_BCD_NOVALIDATE=1" to skip validation and show same behaviour as on z/OS.

A similar functionality should be provided for PLI for AIX 3.1 to prevent the below demonstrated data exception:

AETESTC:
Procedure(RunTimeParms) options (main) ;
dcl RunTimeParms char(100) varying;

dcl char5 char (5) Init('2117090140'X);
dcl PIC9 Picture '99999999';
dcl dec91 dec fixed (9,1) Based(Addr(Char5));

put skip list('Hex PIC9: ',Hex(PIC9));
put skip list('Hex char5: ',Hex(char5));
put skip list('Hex dec91: ',Hex(dec91));
PIC9 = dec91;
put skip list('After --> PIC9 = dec91');
put skip list('PIC9: ',Pic9,'Hex PIC9: ',Hex(PIC9));
Goto Ende;
Ende:
End AETESTC;

zOS
LA r1,CHAR5(,r13,196)
UNPK _temp6(9,r13,224),CHAR5(5,r1,0)
MVC PIC9(8,r13,204),_temp6(r13,224)

Hex PIC9: 0000000000000000
Hex char5: 2117090140
Hex dec91: 2117090140
After --> PIC9 = dec91
PIC9: 21170901 Hex PIC9: F2F1F1F7F0F9F0F1

AIX:
20| 0005EC addi 38A1006C 1 AI gr5=gr1,108
20| 0005F0 addi 38610064 1 AI gr3=gr1,100
20| 0005F4 addi 389E0450 1 AI gr4=gr30,1104
20| 0005F8 addi 38DE0440 1 AI gr6=gr30,1088
20| 0005FC bl 4BFFFA05 1 CALL _IBMPCODP,4,gr3-gr6,_IBMPCODP",gr1,cr[01567]",gr0",gr3"-gr12",fp0"-fp13"

Hex PIC9: 0000000000000000
Hex char5: 2117090140
Hex dec91: 2117090140
IBM0537I ONCODE=8097 A data exception occurred.
In statement 20 at offset +000005FC in procedure with entry AETESTC