midrange.com code scratchpad
Name:
Get IP address for *DEVD
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
03/22/2011 06:16:40 pm
IP:
Logged
Description:
For example, call it as: CALL GETIPADR ('QPADEV0002' &ADR) in a CL program; it returns the IP address in &ADR
Code:
  1.     PGM      PARM(&DEV &ADR)                                  
  2.     DCL      VAR(&DEV) TYPE(*CHAR) LEN(10)                    
  3.     DCL      VAR(&ADR) TYPE(*CHAR) LEN(15)                    
  4.     DCL      VAR(&RCV) TYPE(*CHAR) LEN(1024)                  
  5.     DCL      VAR(&LEN) TYPE(*CHAR) LEN(4) VALUE(X'00000400')  
  6.     DCL      VAR(&ERR) TYPE(*CHAR) LEN(96) VALUE(X'00000060') 
  7.     DCL      VAR(&FMT) TYPE(*CHAR) LEN(8) VALUE('DEVD0600')   
  8.     DCL      VAR(&ZERO) TYPE(*CHAR) LEN(4) VALUE(X'00000000') 
  9.                                                               
  10.     CALL     PGM(QDCRDEVD) PARM(&RCV &LEN &FMT &DEV &ERR)     
  11.     IF (%SST(&ERR 5 4) *NE &ZERO) +                           
  12.        CHGVAR  VAR(&ADR) VALUE(%SST(&ERR 8 7))                
  13.     ELSE +                                                    
  14.        CHGVAR   VAR(&ADR) VALUE(%SST(&RCV 878 15))            
  15.     RETURN                                                    
  16.     ENDPGM                                                    
  17.  
© 2004-2019 by midrange.com generated in 0.005s valid xhtml & css