IBM Mainframe Forum

[gvenkateshmca]

Thanks for your help
i am sure that i m getting spaces .
do you have any alternative solution for this check instead of the above logic(any generic solutions by using Justified right ). I have another filed which has 18 length so i need to same validations .

My main aim is if use entered any values leading spaces and trailing space with data we need to move all those spaces to zeroes before the number.
suppose

1bb -- 001
bb1 -- 001
like that
if 1b1 it is error

Thanks
Venkat

[BillyBoyo]

Can you show how you've defined the field to CICS, please?

[gvenkateshmca]

I have defined the map field as below
HEIGHT DFHMDF POS=(17,29),LENGTH=03,COLOR=RED,
HILIGHT=UNDERLINE,ATTRB=(UNPROT,NUM,FSET)

and in the program i have defined as below
10 WS99-MAP-HEAD-HEIGHT-A PIC X(01).
10 WS99-MAP-HEAD-HEIGHT-C PIC X(01).
10 WS99-MAP-HEAD-HEIGHT-H PIC X(01).
10 WS99-MAP-HEAD-HEIGHT PIC 9(03).
10 WS99-MAP-HEAD-HEIGHT-X REDEFINES WS99-MAP-HEAD-HEIGHT
15 WS99-MAP-HEAD-HEIGHT-R PIC X(03).

Thanks
Venkat

[NicC]

it would help reading if you indented your level 15 and used the code tags.