Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
geeta.mishra

New User

Joined: 27 Dec 2005
Posts: 21
Location: Bangalore

 Posted: Tue Jun 06, 2006 8:09 pm    Post subject: Movement from S9(09) COMP-3 to 9(10) Hi, I am not able to move from S9(09) COMP-3 to 9(10) when the value of S9(09) COMP-3 = 1234567890, the digit "1" is getting truncated( the value is coming to 234567890) Please help. Geeta

calspach

New User

Joined: 05 May 2006
Posts: 32
Location: USA

 Posted: Tue Jun 06, 2006 9:22 pm    Post subject: Your value is getting truncated in the s9(9) comp-3, not in the move. 1234567890 is ten digits, s9(9) comp-3 or otherwise can only hold 9 digits.
chk_25

New User

Joined: 09 Jun 2006
Posts: 2
Location: India

 Posted: Fri Jun 09, 2006 11:17 pm    Post subject: Hi! In S9(9) comp-3, the maximum data size it can hold is 5bytes( Here five digits). But u have stated that it will hold 9 digits. plz clear my doubt. CHETAN KUMAR
calspach

New User

Joined: 05 May 2006
Posts: 32
Location: USA

 Posted: Fri Jun 09, 2006 11:30 pm    Post subject: an S9(9) comp-3 data fields holds 9 digits of numerical data, and a sign. It does this by storing two digits per byte, with the least significant byte of data holding one digit and the sign of the entire data field. Check here for a more detailed description of how comp-3 data items are stored. http://www.discinterchange.com/TechTalk_Packed_fields_.html
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics Protection Exception while move 0 to ... Kevin Vaz CICS 10 Tue Oct 18, 2016 4:19 pm How can we create a flat file in JAVA... rakesh.v18 Java & MQSeries 7 Fri Sep 23, 2016 10:46 pm Need help to populate date in COMP-3 ... chetanambi DFSORT/ICETOOL 3 Tue Jun 21, 2016 12:25 pm comparing comp-3 and unpacked numbers juares castro COBOL Programming 3 Mon May 30, 2016 6:46 pm SIGNED DECIMAL TO COMP-3 using cobol ... ram_vizag COBOL Programming 1 Tue Mar 01, 2016 11:32 pm

 © 2003-2017 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us