Been away from CICS for a few years, so apologies for what is a basic question.
I have a BMS field defined as follows:
DEPAMT DFHMDF POS=(6,25),LENGTH=8,ATTRB=(UNPROT,NUM)
Note this is a CL8 field with NUM set - NUM implies JUSTIFY RIGHT and ZEROS but does not stop the user from entering 'Shifted' garbage if he so chooses. So the field still has to be validated.
The MAP is being RECEIVED by an ASM program.
Within the ASM program, I have written a small routine that validates each byte for x'F0'-'F9' validity, checks for the presence of a decimal point x'4B' and it being in the correct place (based on the number of permitted decimal places etc and of course that only one decimal point be present etc etc and if valid, removes the decimal point (if present) and PACKS the resultant field into a PL5.
Is there a more 'elegant' way of handling a numeric 'monetary' amount validation of a BMS field from an ASM program - these days - or is a homegrown routine still the way to go?