05 in-put pic xx value x'0123'. 05 x-o pic s9(5) comp-3 value zero. 10 x-i pic xx. 10 pic x. . . . move in-put to x-i move x-o to wherever
IBM Mainframe Discussion List <[email protected]> wrote on 12/05/2005 09:49:10 AM: > Dear all, > > I am converting a rexx program to cobol and having this problem . > The data is , for example x'0123' and after conversion , it must have the > value 123 (decimal) > In rexx , the statement is : decvalue = x2d(c2x(value)) > > I don't know how to achieve it in Cobol. > > CAn you please help ? > > Thank you in advance > > Daniel ----------------------------------------- The information contained in this communication (including any attachments hereto) is confidential and is intended solely for the personal and confidential use of the individual or entity to whom it is addressed. The information may also constitute a legally privileged confidential communication. If the reader of this message is not the intended recipient or an agent responsible for delivering it to the intended recipient, you are hereby notified that you have received this communication in error and that any review, dissemination, copying, or unauthorized use of this information, or the taking of any action in reliance on the contents of this information is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail, and delete the original message. Thank you ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
