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
 
Meaning of PIC clause -X0(20)

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
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    Post subject: Meaning of PIC clause -X0(20)
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: 3158
Location: Tucson AZ

PostPosted: Tue Dec 12, 2006 3:52 pm    Post subject:
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    Post subject: Re: Meaning of PIC clause -X0(20)
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    Post subject: Re: Meaning of PIC clause -X0(20)
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: 2285
Location: @my desk

PostPosted: Thu Dec 14, 2006 3:50 pm    Post subject:
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    Post subject:
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: 2285
Location: @my desk

PostPosted: Thu Dec 14, 2006 4:54 pm    Post subject:
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    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 what is meaning of the number in dcl Martylin PL/I & Assembler 2 Thu Mar 09, 2017 7:18 am
No new posts WER416B Error meaning kbnkb2 SYNCSORT 9 Sat Jul 16, 2016 7:28 pm
No new posts Need help on SQL Dynamic WHERE Clause subratarec DB2 12 Sat Jul 16, 2016 3:11 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

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