IBM MAINFRAME HELP & SUPPORT FORUMS
Technical Forums for IBM Mainframe Applications like COBOL, JCL, CICS, DB2, FileAid, DFSORT, Endevor, Xpediter, CoolGen, CA-7&11, AbendAid, IMS, IDMS, PL/I, MqSeries, SyncSort, Assembler, ChangeMan, Easytrieve, InterTest, REXX, CLIST etc...
 

How the value displays in the output in Comp-3

THIS IS AN ARCHIVE FORUM: CLICK HERE TO GO TO THE ORIGINAL TOPIC

 
       IBMMAINFRAMES.com - IBM Mainframe Support Forums Index -> Mainframe COBOL
View previous topic :: View next topic  
Author Message
ksivapradeep



Joined: 30 Jul 2004
Posts: 98

Posted: Sat Dec 11, 2004 4:38 pm    Post subject: How the value displays in the output in Comp-3  

hi all,

suppose i am having the decleration

01 a pic s9(6)v99 and i move the value 10005.0 then the question is how the value displays in the out put the out put should be hexadecimal foramt.

regards,
siva pradeep
Back to top  
mmwife



Joined: 30 May 2003
Posts: 1508

Posted: Sun Dec 12, 2004 12:49 am    Post subject:  

Hi Siva,

You don't mention how you plan to display the output. Use ISPF w/hex on?
DISPLAY to SYSOUT?, etc. You also don't mention how you will move the value 10005.0 to the COMP-3 field. I assume if you code it as a literal in a move stmt (without quotes) it will be treated as numeric edited data. If you move it from a data area you must define it as such.

After the move the data you cite will be represented in memory as:

X'001000500C'

If you DISPLAY it on SYSOUT it will appear as:

00100050{
Back to top  
 
       IBMMAINFRAMES.com - IBM Mainframe Support Forums Index -> Mainframe COBOL
Page 1 of 1
THIS IS AN ARCIVE FORUM IN READ ONLY MODE. IF YOU WANT TO ASK YOUR DOUBTS USE THE ACTUAL FORUM