I was reading the thread regarding NSLOOKUP (MVS VS OMVS), and it reminded me
of an issue I had about a year ago.
I was reading a list of Host Names And Used BPX1GHN to get the associated
ip-address.
I would load BPX1GHN on the first invocation and call BPX1GHN. Subsequent
invocations would bypass the LOAD and issue the CALL directly without issuing
another LOAD for BPX1GHN (see code sniper below).
The issue I experienced, was that every call to BPX1GHN seem to take a long
time to perform. We are talking about 30 - 60 seconds per invocation of BPX1GHN.
The JOB contained two DD statements
//SYSTCPT DD SYSOUT=*
//SYSTCPD DD DISP=SHR,DSN=SYS2.TTX.SYSPARM(TP29DATA)
Any Advice on how to speed up the execution of BPX1GHN ?
ICM R15,BPX1GHN@ Get Address Of Module
BNZ BPXREUSE No, Abort
* *
LOAD EP=BPX1GHN Load BPX Module
STM R15,R1,LOADREGS Save Registers From Load
ST R0,BPX1GHN@ Save Address Of BPX1GHN
*
BPXREUSE EQU *
L R15,BPX1GHN@ Get Address Of BPX1GHN
CALL (15), Get host by name +
(HOST_NAME, Input: Name of Host being queried +
HOST_NAME#, Input: Length of host name +
HOST_ENT@, Output: 0 or -> HOSTENT structure +
BPXVAL, Return code +
BPXRETCD, Return code +
BPXRSNCD), Reason code +
LINKINST=BASR, +
VL,MF=(E,PLIST) ----------------------------------
BPXPARMS DSECT
BPXSAVE DS 9D Register Save Area
BPXEYE DS D <=EYE CATCHER
BPXVAL DS A Return Value
BPXRETCD DS A Return Code
BPXRSNCD DS A Reason Code
HOST_ENT@ DS A Address Of Host Name Structure
HOST_NAME# DS A Length Of Host Name
HOST_NAME DS CL255 Host Name
IP_CHAR DS CL30 Returned IP Address In Character Format
BPXPARMS# EQU *-BPXPARMS STRUCTURE LENGTH
Paul D'Angelo
---------------------------------------------------------
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
