MVSFORUMS.com

hisabarinath

I have searched but couldnt find the earlier post.

Thru COBOL Program, i want to replace prefix with zeros instead of spaces. My requirement is i have a price field of X(6).X(5) - this field should convert to 9(11)V9(5).
for eg-

hisabarinath · Posted: Wed Mar 25, 2009 9:56 am Post subject:

Sorry the convert field should be Assumed decimal NOT fixed decimal.

The updated eg -

dbzTHEdinosauer · Posted: Wed Mar 25, 2009 10:37 am Post subject:

what have you tried so far? provide us a sample of this code and then we can help.
_________________
Dick Brenholtz
American living in Varel, Germany

kolusu · Posted: Wed Mar 25, 2009 11:10 am Post subject:

hisabarinath,

Is this a trick question? I did not test but a simple numval would give you the desired results?

hisabarinath · Posted: Wed Mar 25, 2009 11:24 am Post subject:

dbzTHEdinosauer,
I have tried to find howmany spaces prefix with the Integer part of the X(6) then replace those spaces with 0 by moving 0 to the integer part thru reference modification.

dbzTHEdinosauer · Posted: Wed Mar 25, 2009 11:48 am Post subject:

I appreciate you posting your code, but you should see kolusu's answer - which is a solution........
_________________
Dick Brenholtz
American living in Varel, Germany

hisabarinath · Posted: Wed Mar 25, 2009 12:03 pm Post subject:

Thanks Kolus,

I'm testing your suggestion but getting ABEND. Since, i have declared the field to

kolusu · Posted: Wed Mar 25, 2009 12:14 pm Post subject:

hisabarinath,

*Sigh* In your first post you said it is PIC X(6).X(5) and now why are using only 6 bytes? bonk

. Also NUM val assumes that you have atleast 1 number in the input.

if you have all spaces then check for it and issue . Define the whole field as 12 bytes and just use that field in numval

hisabarinath · Posted: Wed Mar 25, 2009 1:28 pm Post subject:

Pefect kolusu.. You are the real Hero in the FORUMs

Dibakar · Posted: Fri Mar 27, 2009 5:49 pm Post subject:

slade · Posted: Mon Apr 06, 2009 8:12 pm Post subject:

A little late, but here goes:

Define your I/P field as Z(?).9(?) you pick your own ?s
Define your O/P field as 9(?)V9(?). Use the same ?s as above.

In the IF stmt use: MOVE I/P TO O/P ELSE etc.

If you can't change the I/P PIC, define an intermediate work fld as PIC Xs then redefine it as Z(?).9(?). Use 2 MOVEs - I/P to WRK (PIC X), WRK(PIC Z) to O/P.

Even w/the 2 moves you'll get better efficiency.
_________________
Regards, Jack.

"A problem well stated is a problem half solved" -- Charles F. Kettering