( Oops , forgot  the word function)
Another way is :-

$control post85

  03   aChar        display pic x.
  03   charValue    binary  pic s9(4).

  compute charValue = function ord(aChar) - 1







Internet

From:     [log in to unmask] on 05/05/2000 01:43 GMT



Pour :    HP3000-L

cc :

ccc:  Tad BOCHAN

Objet :   Re: Q:How to you find the ASCII value.




   05  CHAR-FIELDS.
       07  CHAR-1            PIC X.
       07  CHAR-2            PIC X.
   05  NUMB-FIELD REDEFINES CHAR-FIELDS PIC S9(4) COMP.

    .
    .
    .

   0090-CONVERT-TO-ASCII.
       MOVE ZERO TO NUMB-FIELD.
       MOVE "A" TO CHAR-2.
       DISPLAY NUMB-FIELD.

   0095-CONVER-TO-NUMB.
       MOVE 65 TO NUMB-FIELD.
       DISPLAY CHAR-2.





----------------------------------------------------------------------------------------------
This message is confidential; its contents do not constitute a
commitment by BNP Paribas Group* except where provided
for in a written agreement between you and BNP Paribas Group*.
Any unauthorised disclosure, use or dissemination, either
whole or partial, is prohibited. If you are not the intended
recipient of the message, please notify the sender immediately.
*BNP Paribas Group  is a trading name of BNP SA and Paribas SA

Ce message est confidentiel; son contenu ne represente en
aucun cas un engagement de la part du groupe BNP Paribas*
sous reserve de tout accord conclu par ecrit entre vous et le
groupe BNP Paribas*. Toute publication, utilisation ou diffusion,
meme partielle, doit etre autorisee prealablement. Si vous n'etes
pas destinataire de ce message, merci d'en avertir immediatement
l'expediteur.
*Le groupe BNP Paribas est le nom commercial utilise par BNP SA et Paribas SA