Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
dalib
Currently Banned

New User

Joined: 26 Jul 2008
Posts: 2

 Posted: Sat Jul 26, 2008 12:48 pm    Post subject: how to convert alphanumeric to numeric I need the difference between two alphanumeric numbers. like if temp-num1 = "ABCDEF" and temp-num2 = "ABCDEH" I need the temp-num2 - temp-num1 to be stored in third numeric veeriable. like temp 9(6). compute temp = temp-num2 - temp-num1 but since temp-num2 and temp-num1 are alphanumeric so is there any way to get the difference between these two.

dbzTHEdinosauer

Global Moderator

Joined: 20 Oct 2006
Posts: 6970
Location: porcelain throne

 Posted: Sat Jul 26, 2008 1:12 pm    Post subject: nice theoretical homework problem.
dick scherrer

Site Director

Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

Posted: Sat Jul 26, 2008 2:52 pm    Post subject:

Hello,

 Quote: so is there any way to get the difference between these two.
Of course there is. . .

Now is where you have to do some work. Post the rule(s) describing how to calculate the difference. Also, rather than the "simple" example you've used (you'd expect a difference of 2, right?) you need to post what you would expect the difference between "AVRDEW" and "JYREXS" to be and how you determined that difference. Once the rule is understood, coding might follow.

Another thought is that you might describe what you are trying to accomplish and someone may have a suggestion.

Please do not post in both forums. . . This topic is locked.
enrico-sorichetti

Global Moderator

Joined: 14 Mar 2007
Posts: 10439
Location: italy

Posted: Sat Jul 26, 2008 4:11 pm    Post subject: Reply to: how to convert alphanumeric to numeric

given the following digits sequence

arbdgts = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

jyrexs - avrdev = 9301IX

happy multibasing computations

here is the rexx to do it

 Code: #! /bin/rexx /*REXX- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -*/ /*                                                                   */ /*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -*/ Trace "O" OPTIONS "STRICT_WHITE_SPACE_COMPARISONS" numeric digits 64 arbdgts  = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" n2 = to_dec("AVRDEV") c2 = to_arb(n2) say c2 n1 = to_dec("jyrexs") c1 = to_arb(n1) say c1 nx = n1 - n2 diff = to_arb(nx) say "jyrexs - avrdev  = " diff exit to_dec:procedure expose arbdgts    trace "O"    parse upper arg arbn    base  = length(arbdgts)    mult  = 1    decn  = 0    do  d = length(arbn) to 1 by -1       work = substr(arbn,d,1)       decn = decn + mult * ( pos(work,arbdgts) - 1 )       mult = mult * base    end    return decn to_arb:procedure expose arbdgts    trace "O"    parse upper arg decn    base = length(arbdgts)    arbn = ""    do while ( decn >= base )       work = decn //  base       decn = decn % base       arbn = substr(arbdgts,work+1,1) || arbn    end    arbn = substr(arbdgts,decn+1,1) || arbn    return arbn
 All times are GMT + 6 Hours
 Page 1 of 1

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics Moving a COMP-3 Variable to a Numeric... ajayachander COBOL Programming 2 Thu Dec 14, 2017 5:46 pm Can EDCICONV convert EBCDIC to ASCII... natt.sut IBM Tools 3 Fri Nov 17, 2017 8:46 pm Can a alphanumeric data be moved to a... nico_neoz COBOL Programming 10 Mon Oct 30, 2017 8:28 am File Aid tool to compare numeric data balaji81_k Compuware & Other Tools 2 Tue Sep 26, 2017 3:35 am Remove leading spaces from numeric field rexx77 SYNCSORT 6 Wed Sep 06, 2017 2:15 am

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