This is the code piece that was originally ported from a Unisys mainframe.
I am currently seeking management approval to send the full program.
MOVE 0 TO DECODE-MODE.
** Translate the hex ASCII to characters.
PERFORM TRAN-HEX-TO-CHAR
VARYING TSUB FROM 1 BY 1
UNTIL TSUB > LENGTH OF VPN-CRCR-TEXT.
CALL "__PACK_DECIMAL" USING WS-CRCR-TEXT CRCR-INTEGER
BY VALUE LENGTH OF CRCR-INTEGER.
CALL "__UNPACK_DECIMAL" USING ERROR-FLAG-PAD-DIGIT
WS-ERROR-PAD BY VALUE 1.