Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

What does this mean PIC 'ZZZZR';

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
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    Post subject: What does this mean PIC 'ZZZZR';
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

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7308

PostPosted: Mon Mar 11, 2013 12:38 pm    Post subject: Reply to: What does this mean PIC 'ZZZZR';
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    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:



Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us