Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
Picture with Comma?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & ASSEMBLER
Author Message
alabama

New User


Joined: 27 Aug 2008
Posts: 2
Location: Munich

PostPosted: Thu Oct 09, 2008 2:23 pm    Post subject: Picture with Comma?
Reply with quote

I have a DEC FIX(13,2) variable and must be copy in a Picture Variable.

with PIC'9999999999999' lost the two Comma position.
but PIC=DECFIX*100 is not allowed.

How do i declare the Picture Variable with comma?


Thanks
Back to top
View user's profile Send private message
References
Robert Sample

Senior Member


Joined: 06 Jun 2008
Posts: 941
Location: Atlanta, GA

PostPosted: Thu Oct 09, 2008 4:48 pm    Post subject:
Reply with quote

From the Language Reference manual link that can be found on this page:
Quote:
15.3.3.1 Insertion and decimal point characters


The point, comma, or slash can be used in conjunction with the V to cause insertion of the point (or comma or slash) in the position that delimits the end of the integer portion in and the beginning of the fractional portion of a fixed-point (or floating-point) number, as might be desired in printing, since the V does not cause printing of a point. The point must immediately precede or immediately follow the V. If the point precedes the V, it is inserted only if an unsuppressed digit appears to the left of the V, even if all fractional digits are significant. If the point immediately follows the V, it is suppressed if all digits to the right of the V are suppressed, but it appears if there are any unsuppressed fractional digits (along with any intervening zeros).

The following example shows decimal conventions that are used in different countries.


declare A picture 'Z,ZZZ,ZZZV.99',
B picture 'Z.ZZZ.ZZZV,99',
C picture 'ZBZZZBZZZV,99';
A,B,C = 1234;
Back to top
View user's profile Send private message
alabama

New User


Joined: 27 Aug 2008
Posts: 2
Location: Munich

PostPosted: Thu Oct 09, 2008 5:13 pm    Post subject:
Reply with quote

Thank you!
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & ASSEMBLER All times are GMT + 6 Hours
Page 1 of 1