MVSFORUMS.com

vak255 · Intermediate Joined: 10 Sep 2004 Posts: 384 Topics: 79

I have a FB file with LRECL=301.

I need to copy all the data to another file and convert a particular field to packed decimal, other data remains same.
The field starts at 212 and is declared as $zzz,zz9.99.

I appreciate any help!!

krisprems · Posted: Sat Oct 20, 2007 12:42 pm Post subject:

vak255
I would suggest you to use SORT, which would be more easy in this scenario.
Let me know if could use SORT 8)
_________________
cHEERs
krisprems

krisprems · Posted: Sun Oct 21, 2007 7:28 am Post subject:

vak255
OK, if you want to use COBOL only, then you could create a group like this

krisprems · Posted: Sun Oct 21, 2007 8:22 am Post subject:

forgot one thing, initialize the OUT-GROUP with ZEROES
_________________
cHEERs
krisprems

vak255 · Intermediate Joined: 10 Sep 2004 Posts: 384 Topics: 79

wonderful, Thanks Kris. I will try it and let you know.

CICS Guy · Intermediate Joined: 30 Apr 2007 Posts: 292 Topics: 3

Or
COMPUTE OUT-GROUP = FUNCTION NUMVAL-C (INPUT-GROUP)
where
OUT-GROUP PIC S9(7)V99
should work even easier....

vak255 · Intermediate Joined: 10 Sep 2004 Posts: 384 Topics: 79

I tried using s9(9)v99 comp-3, but in the output the decimal places are getting truncated,

in input I see $ 3.60.
In output this is getting converted to: 000003(in hex).

Below is the out-group structure that I used.
05 OUT-GROUP.
10 NUM1 PIC 9 comp-3
10 NUM2 PIC 9 comp-3
10 NUM3 PIC 9 comp-3
10 NUM4 PIC 9 comp-3
10 NUM5 PIC 9 comp-3
10 NUM6 PIC 9 comp-3
10 NUM7 PIC 99 comp-3

krisprems · Posted: Sun Oct 21, 2007 9:41 pm Post subject:

vak255
Look here for NUMVAL-C usage=>http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/igy3pg30/1.6.6.3?ACTION=MATCHES&REQUEST=NUMVAL-C&TYPE=FUZZY&SHELF=&DT=20050628164603&CASE=&searchTopic=TOPIC&searchText=TEXT&searchIndex=INDEX&rank=RANK&ScrollTOP=FIRSTHIT#FIRSTHIT
_________________
cHEERs
krisprems

vak255 · Intermediate Joined: 10 Sep 2004 Posts: 384 Topics: 79

Thanks Kris, it worked great.

Thanks for your time and all the support.

krisprems · Posted: Wed Oct 24, 2007 12:00 pm Post subject:

You are welcome, but can you share as to what technique you implemented either group variable or NUMVAL-C.
And How?
_________________
cHEERs
krisprems