Align Comma Delimited Field

valic · New User Joined: 28 Jun 2006 Posts: 3

Hi All,

I need some help to align a comma delimited field in a file I am creating. What I want to do is populate a numeric edited field with COMP-3 data and align the COMP-3 data immediately following the comma in its record field.

Input is as follows:

CALC-AMT PIC Z(09)V99 COMP-3 VALUE ZERO.

Output edited field:

CALC-OUT PIC --------9.99.

If CALC-AMT is equal to 000033000 and moved into CALC-OUT the result is ,bbbb33000.00. Four leading spaces past the comma.

What I would like to do is line up CALC-OUT next to the comma ,33000.00 without the leading spaces. Is this possible?

Any help would be appreciated.

Thanks,
Jim

dick scherrer · Posted: Thu Oct 04, 2007 7:25 am

Hello,

Yes, it is possible, but would take a bit of work.

You could use CALC-OUT PIC -9999999.99. and the result would be 000033000.00 for a positive value. This result should work anywhere the 33000.00 would work. It's a few bytes longer, but numerically equal.

Please let us know if there is more to the requirement.

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

Only problem is you can't have a PIC Z for a comp-3 field.

valic · New User Joined: 28 Jun 2006 Posts: 3

Sorry about the PIC Z in the comp-3 field.

It should have been CALC-AMT PIC S(09)V99 COMP-3 VALUE ZERO.

Thanks for your quick response.

dick scherrer · Posted: Fri Oct 05, 2007 2:10 am

Hello Valic,

Do you have a solution you are satisfied with?

valic · New User Joined: 28 Jun 2006 Posts: 3

Yes, thanks again Dick for all your assistance.

Regards, Jim

dick scherrer · Posted: Fri Oct 05, 2007 8:19 am

You're welcome.

Thanks for letting us know all is well