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 COMP Variables Mismatch gayu7 COBOL Programming 5 Wed Dec 20, 2017 5:06 pm Moving a COMP-3 Variable to a Numeric... ajayachander COBOL Programming 2 Thu Dec 14, 2017 5:46 pm CONDITIONAL USING COMP-2 WITH PROBLEMS. JOSUEGENTIL COBOL Programming 7 Wed Nov 08, 2017 11:13 pm how can i move s9(9) to s9(9) usage comp HARENDRA CHOUDHARY COBOL Programming 3 Mon Nov 06, 2017 12:10 am Protection Exception while move 0 to ... Kevin Vaz CICS 10 Tue Oct 18, 2016 4:19 pm

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