Prefixing Zeroes to Alphanumeric

vinu78 · Active User Joined: 02 Oct 2008 Posts: 179 Location: India

Hi All,

I will be entering the amount values in the screen and need to edit the entered amount.

Initially all the fields in the CICS screen will be '____' [PIC X(4)]. So the user can enter the amount as 10 or 11 or 123, 1234 etc.. Then I will do numeric check in the COBOL prgoram. If the entered amount is 12, it will be coming to the program as 12__
Is there any way, I can edit the program and make it as 0012 ?

Similarly, the entered value '10' in screen will be 10__ but need to change it as 0010 in the program.
Similarly the value '1' can be entered as ___1 and we need to make it as 0001 (I think this case can be checked using INSPECT variable REPLACING ALL '_' BY ZEROES after checking for leading '-').

Please help me.

Thanks
Vinu

Robert Sample · Posted: Wed Oct 27, 2010 10:32 pm

Why not use EXEC CICS BIF DEEDIT?

dbzTHEdinosauer · Posted: Wed Oct 27, 2010 10:41 pm

why Pic x(4) and not Pic 9(4)?????

vinu78 · Active User Joined: 02 Oct 2008 Posts: 179 Location: India

Thanks Robert for the suggestion. It worked.

@ Dbz - I have used X(4) since it is defined as X(4) in map variable.

Thanks
Vinu

Robert Sample · Posted: Wed Oct 27, 2010 11:15 pm

Glad to hear it works!