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

Meaning of PIC clause -X0(20)


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
athiqmsr
Warnings : 2

New User


Joined: 27 Jul 2006
Posts: 10

PostPosted: Tue Dec 12, 2006 2:54 pm
Reply with quote

what is the meaning of PIC -X0(20)
& S9(12)V99#?
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Tue Dec 12, 2006 3:52 pm
Reply with quote

I think the "0" forces twenty "0"s after the one variable charcter.
I think the "#" might be defined as the "currency symbol".
Back to top
View user's profile Send private message
SSR
Warnings : 1

New User


Joined: 26 Feb 2006
Posts: 38

PostPosted: Thu Dec 14, 2006 12:06 pm
Reply with quote

Quote:

what is the meaning of PIC -X0(20)
& S9(12)V99#?


D PIC X0(08).

move 'Test' to d.
display d

will display

T00000000 (Intial letter followed by 8 zeroes).
Back to top
View user's profile Send private message
SSR
Warnings : 1

New User


Joined: 26 Feb 2006
Posts: 38

PostPosted: Thu Dec 14, 2006 12:07 pm
Reply with quote

Quote:

what is the meaning of PIC -X0(20)
& S9(12)V99#?


Hi,

D PIC X0(08).

move 'Test' to d.
display d

will display

T00000000 (Intial letter followed by 8 zeroes).

Regards
SSR
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2481
Location: @my desk

PostPosted: Thu Dec 14, 2006 3:50 pm
Reply with quote

Hi

Quote:
what is the meaning of PIC -X0(20)


I think it is not possible to have a definition -X0(20).You cant give a -ve sign before an alphanumeric PIC definiton.Why do you want to give such a definition?

Thanks
Arun
Back to top
View user's profile Send private message
sharda

New User


Joined: 13 Sep 2006
Posts: 7

PostPosted: Thu Dec 14, 2006 4:19 pm
Reply with quote

Hi ssr,

I tried but at run time its giving Soc4 . plz clear it , it works or not.
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2481
Location: @my desk

PostPosted: Thu Dec 14, 2006 4:54 pm
Reply with quote

Without -ve sign it wont give any error
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