Hi,

If you have a Qedit, then you can do the Conversion from HEX value to
decimal by:

/= $9AD0
Result=39632.0


or Decimal to HEX as shown below.

=39632,h
Result=$9ad0
/

You can always do a conversion the longwinded way:

e.g.  9AD0, which would be (16**3 * 9) + (16**2 * 10) + (16 * 13) + (1 * 0)

/=(16**3 * 9) + (16**2 * 10) + (16 * 13) + (1 * 0)
Result=39632.0
/

Now, if you meant the compiler to provide you with this answer then I do
not know.

Nilesh.



Internet
[log in to unmask]@RAVEN.UTC.EDU - 18/01/2006 08:42


Please respond to [log in to unmask]

Sent by:    [log in to unmask]

To:    HP3000-L

cc:


Subject:    [HP3000-L] COBOL Compile "DATA AREA" Question


Can someone explain to me how to convert into a user friendly displayable
value?

How do I translate the "E0" and " 9AD0" byte values to numeric values  that
"makes sense?"
(such as 256 bytes, 512 bytes etc etc......)

PAGE 0001  COBOL II/iX HP31500A.04.21  [85] Copyright  Hewlett-Packard CO.
1987

0 ERROR(s), 0 QUESTIONABLE, 0 WARNING(s)

    DATA AREA IS       E0  BYTES.
CPU TIME = 0:00:00.  WALL TIME =  0:00:00.

END OF PROGRAM
END OF COMPILE

PAGE 0001  COBOL II/iX HP31500A.04.21  [85] Copyright  Hewlett-Packard CO.
1987


LINE #   SEQ # COL ERROR  SEV             TEXT
------------------------------------------------------------------------------

01387   086800  80  055  W  LEFT TRUNCATION MAY  OCCUR.
01388  086900  80  055  W  LEFT  TRUNCATION MAY OCCUR.
01395  001300  80  055   W  LEFT TRUNCATION MAY OCCUR.
01396  001400  80   055  W  LEFT TRUNCATION MAY OCCUR.
01528  097900   80  055  W  LEFT TRUNCATION MAY OCCUR.
01529   098000  80  055  W  LEFT TRUNCATION MAY  OCCUR.
01536  001300  80  055  W  LEFT  TRUNCATION MAY OCCUR.
01537  001400  80  055   W  LEFT TRUNCATION MAY OCCUR.
01978  138300  80   055  W  LEFT TRUNCATION MAY OCCUR.
02156  152800   80  055  W  LEFT TRUNCATION MAY OCCUR.
02157   152900  80  055  W  LEFT TRUNCATION MAY  OCCUR.
02182  155400  80  055  W  LEFT  TRUNCATION MAY OCCUR.
02183  155500  80  055   W  LEFT TRUNCATION MAY OCCUR.
02539  187100  80   055  W  LEFT TRUNCATION MAY OCCUR.
02540  187200   80  055  W  LEFT TRUNCATION MAY OCCUR.
02568   190000  80  055  W  LEFT TRUNCATION MAY  OCCUR.
02569  190100  80  055  W  LEFT  TRUNCATION MAY OCCUR.
02597  192900  80  055   W  LEFT TRUNCATION MAY OCCUR.
02598  193000  80   055  W  LEFT TRUNCATION MAY OCCUR.
02750  010900   80  055  W  LEFT TRUNCATION MAY OCCUR.
02859   004000  80  055  W  LEFT TRUNCATION MAY  OCCUR.
02862  007000  80  055  W  LEFT  TRUNCATION MAY OCCUR.
02865  010000  80  055   W  LEFT TRUNCATION MAY OCCUR.
02868  013000  80   055  W  LEFT TRUNCATION MAY OCCUR.
02871  016000   80  055  W  LEFT TRUNCATION MAY OCCUR.
02873   018000  80  055  W  LEFT TRUNCATION MAY OCCUR.

0 ERROR(s), 0 QUESTIONABLE, 26 WARNING(s)

    DATA AREA IS     9AD0  BYTES.
CPU TIME = 0:00:03.  WALL TIME =  0:00:20.

END OF PROGRAM
END OF COMPILE


TIA,
Brian Donaldson.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *


This message and any attachments (the "message") is
intended solely for the addressees and is confidential. 
If you receive this message in error, please delete it and 
immediately notify the sender. Any use not in accord with 
its purpose, any dissemination or disclosure, either whole 
or partial, is prohibited except formal approval. The internet
can not guarantee the integrity of this message. 
BNP PARIBAS (and its subsidiaries) shall (will) not 
therefore be liable for the message if modified. 

                ---------------------------------------------

Ce message et toutes les pieces jointes (ci-apres le 
"message") sont etablis a l'intention exclusive de ses 
destinataires et sont confidentiels. Si vous recevez ce 
message par erreur, merci de le detruire et d'en avertir 
immediatement l'expediteur. Toute utilisation de ce 
message non conforme a sa destination, toute diffusion 
ou toute publication, totale ou partielle, est interdite, sauf 
autorisation expresse. L'internet ne permettant pas 
d'assurer l'integrite de ce message, BNP PARIBAS (et ses
filiales) decline(nt) toute responsabilite au titre de ce 
message, dans l'hypothese ou il aurait ete modifie.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *