Some have written and run a program. Runs at IPL and issues a LOAD for various programs, then ends. Actual use never decrements the count to zero, so it is never unloaded.
On Sun, Oct 6, 2013 at 2:10 PM, [email protected] <[email protected]> wrote: > 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 -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
