Re: Retrieving Telnet IP Address using API QDCRDEVD

Patrick

At 02:31 PM 10/23/97 +0000, you wrote:

>Has anyone successfully used API QDCRDEVD to retrieve an IP address of 
>an Telnet device?  I get all zeroes. 


You bet. Here's a sample of the code for a CL program:

pgm (&devicename &ipaddress)                                            
                                                                        
/******************************/                                        
/* Parameters                 */                                        
/******************************/                                        
dcl &devicename *char 10                                                
                                                                        
/******************************/                                        
/* Parameters for QDCRDEVD    */                                        
/******************************/                                        
dcl &receiver *char 892                                                 
dcl &rcvrlength *char 4                                                 
dcl &formatname *char 8 'DEVD0600' /* The format for display devices */ 
dcl &errorcode *char 4 x'00000000' /* Use normal error handling */      
                                                                        
/******************************/                                        
/* Set length of receiver     */                                        
/******************************/                                        
chgvar %bin(&rcvrlength) 892                                            
                                                                        
/******************************/                                        
/* Get device info            */                                        
/******************************/                                        
call qdcrdevd (&receiver &rcvrlength &formatname &devicename &errorcode)
                                                                        
/*********************************/                                     
/* Convert to hex representation */                                     
/*********************************/                                     
rmvrexbuf                                                               
strrexprc rtvipadr parm(%sst(&receiver 878 15))                         

It's at position 878, length 15, of the receiver variable.

HTH

Vernon Hamberg
Systems Software Programmer
Old Republic National Title Insurance Company
400 Second Avenue South
Minneapolis, MN 55401
(612) 371-1111 x480


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---