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

What does this PIC --8(9) means in PIC Clause
IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
csprakash

New User


Joined: 12 Oct 2006
Posts: 2
PostPosted: Mon Oct 16, 2006 2:50 pm
 Reply with quote
Code:
ID DIVISION.
PROGRAM-ID. DYNAMDEL.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 ERR-CODE PIC --(8)9.
77 TEMP-CITY PIC X(15).
01 SQL-TEXT.
49 SQL-TEXT-LEN PIC S9(4) COMP.
49 SQL-TEXT-TEXT PIC X(250).


what does this PIC --8(9) means, it is compiling without any error and running correctly.
Back to top
View user's profile Send private message
guptae

Moderator


Joined: 14 Oct 2005
Posts: 1208
Location: Bangalore,India
PostPosted: Mon Oct 16, 2006 3:02 pm
 Reply with quote
Hi There,


It means ---------9.
Here - Minus use as edited picture clause
If the sending item is negative, a minus sign is printed. If the sending item is positive, a space is printed instead. Use this to highlight negative values only.

If ERR-CODE contain -0080 then if we display it will show
BBBBBBBB-80

Correction are welcome
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 -> COBOL Programming

 

Similar Topics
Topic Forum Replies
No new posts To search DB2 table based on Conditio... DB2 1
No new posts NOT IN clause in COBOL pgm COBOL Programming 8
No new posts SUSBSCRIPT WITH SIGN IN PIC CLAUSE COBOL Programming 3
No new posts usage of CASE in WHERE clause DB2 10
No new posts Cobol redefines for Signed pictured c... COBOL Programming 4
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us