Numeric value EDIT problem

sureshbabu.jv · New User Joined: 11 Apr 2006 Posts: 41 Location: Chennai

Hi,

I have declared one pic clause in the working storage section that is EMP ID PIC 9(6).

EMP id's in the in the input file:

000001
000012
000113
001111

I want to get the below values in the output file. Can you tell me is there any command to get only values instead of getting value with ZERO's

1
12
113
1111

Thanks,
Suresh

UmeySan · Posted: Thu Jun 28, 2007 2:20 pm

Hi !

Use specific masks for your output fields.

Examples:

01 ZNUM-1206 PIC +++++++++++9,999999.
01 ZNUM-1602 PIC +++++++++++++++9,99.
01 ZNUM-1800 PIC ZZZZZZZZZZZZZZZZZ9.
01 ZNUM-0400 PIC ZZZ9.
01 ZNUM-1000 PIC 9(10).
01 ZNUM-0800 PIC 9(08).
01 ZNUM-08BB PIC 999B999B99.

Regards, UmeySan

murmohk1 · Posted: Thu Jun 28, 2007 2:29 pm

UmeySan,

Using mask, how would you do left alignment for a numeric value?

William Thompson · Posted: Thu Jun 28, 2007 3:01 pm

There is no "command".
Use a perform loop with RM and "squeeze" out the blanks.

sureshbabu.jv · New User Joined: 11 Apr 2006 Posts: 41 Location: Chennai

I think Umeysan solution is works fine. I have found one PIC clause in the report program that one is to display the page number on report

05 WS-I-PAGE PIC ZZZ9.

AS per the above PIC the page number start with 1 and that range goes upto 9999.

Thanks Umeysan...

Suresh

William Thompson · Posted: Thu Jun 28, 2007 3:42 pm

Not

sureshbabu.jv · New User Joined: 11 Apr 2006 Posts: 41 Location: Chennai

Can you give the sysntax to get the format as you mentioned above. I don' have an idea .

Thanks,
Suresh