Re: Retrieve IP Address using Telnet exit point

From: <leif@ibm.net>
Sent: July 17, 1999 9:28 AM


> 1st hex digit:
> if hex1 = "1" then digit1 = 1 else
> if hex1= "2" then digit1 = 2 else
> if hex1 = "3" then digit1 = 3 else
<snip>

Or, more succinctly:

RPG code  (I-specs not aligned)
   I         DS
   I                1   4 HEXCOD
   I                1   40BINARY

   C                     MOVE CODE      HEXCOD
   C                     DIV  256       BINARY
   C                     MVR            DIGIT4  30
   C                     DIV  256       BINARY
   C                     MVR            DIGIT3  30
   C           BINARY    DIV 256        DIGIT1  30
   C                     MVR            DIGIT2  30

(where CODE is your 4-byte hex code from the API.)

HTH
-- 
Dennis Lovelady                    Fayetteville, GA
mail: dennis@lovelady.com          dennis.e.lovelady@ac.com
URL:  http://www.lovelady.com  **NEW**
ICQ:  5734860
--
"Nuclear war can ruin your whole compile."
        - Karl Lehenbauer


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---