Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
What does this PIC --8(9) means in PIC Clause

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
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    Post subject: What does this PIC --8(9) means in PIC Clause
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: 1187
Location: Bangalore,India

PostPosted: Mon Oct 16, 2006 3:02 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Need help on SQL Dynamic WHERE Clause subratarec DB2 12 Sat Jul 16, 2016 3:11 pm
No new posts Null Indicator value -2 means in Embe... deepak_shrivastava DB2 2 Wed Jan 06, 2016 10:27 pm
No new posts [SQL0029] INTO clause missing from em... HABBIE DB2 2 Fri Sep 04, 2015 3:54 pm
No new posts 3-D Table with nested DEPENDING ON Cl... VivekKhanna COBOL Programming 5 Sat Aug 08, 2015 11:18 pm
No new posts What's the +1 means in CLC FOUR,SIX+1 ? jackzhang75 PL/I & Assembler 2 Tue May 19, 2015 2:02 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us