IBM MAINFRAME HELP & SUPPORT FORUMS

lizzy · Joined: 28 Jul 2008 Posts: 3 Location: Philippines

Hi there I may sound a little dumb here.

But here is my question:

In map there is a field that needs to be input with a signed number either positive or negative and in my definition in its physical map it is picin='s9(9)v9(2) , let call it JAN-AMOUNT. but when i trace it using ts queue the sign is not retrieve because there is no D0 in its hex value at the end..

Whats the correct way of getting the sign of the number inputted by the user without modifying the JCL ... only the use of redefining and if possible JAN-AMOUNT will have a pic in='x(17)'

Thanks a lot . I will need the field to be in pic x so I can validate it and not have a ASRA when moving an invalid decimal..

CICS Guy · Joined: 18 Jul 2007 Posts: 1199 Location: At my desk

The COBOL NUMVAL will do what you want, convert the leading sign to your trailing byte 'D0".....
But you had better check the field to make sure that it contains at least one numeric character......