IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

What does this mean PIC 'ZZZZR';


IBM Mainframe Forums -> PL/I & Assembler
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
tamminenisidhartha
Currently Banned

New User


Joined: 31 Oct 2012
Posts: 43
Location: INDIA

PostPosted: Mon Mar 11, 2013 12:29 pm
Reply with quote

Hi all,

I am analyzing a program which has a variable declared as PIC 'ZZZZR';

Could anyone please explain what exactly does the 'R' at the end of the Pic means ?
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Mon Mar 11, 2013 12:38 pm
Reply with quote

Looking in some random PL/I manual located with google:

Quote:
R
On input, R specifies that the EBCDIC characters } through R represent
negative values and the digits 0 through 9 represent positive values.
On output, R specifies that the associated position contains one of the
EBCDIC characters } through R if the input data represents negative
values; otherwise, it contains one of the digits 0 through 9. For example:
DECLARE X FIXED DECIMAL(3);
GET EDIT (X) (P'R99');
sets X to 132 on finding '1327' in the next 3 positions of the input stream,
but -132 on finding 'J32'.


I suspect it is the same in your manual. I suggest that you check, so you can also become aware of other options for PICture.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> PL/I & Assembler

 


Search our Forums:

Back to Top