Cannot find MIMHYPS() REXX Function for MIM
search cancel

Cannot find MIMHYPS() REXX Function for MIM

book

Article ID: 131241

calendar_today

Updated On:

Products

MIM Resource Sharing (MIM) MIM Data Sharing (MII) MIM Tape Sharing (MIA) MIM Message Sharing (MIC)

Issue/Introduction



Setting up GDPS/PPRC HyperSwap Support in a sysplex. MII runs on all systems.
The doc states

"The HyperSwap code periodically calls the VPCEXIT4 REXX EXEC if it exists in the NetView CLIST concatenation." and points to the member in the hlq.CBTDSAMP library.

It also states "VPCEXIT4 calls the MIMHYPS() external REXX function"

Where is the MIMHYPS() REXX function located?

Environment

Release: MIMALM00200-12.5-MIM-Resource Sharing-for z/OS-Plus MSU
Component:

Resolution

MIMHPYS() is a function that has no parameters.

Review of the sample content of  VPCEXIT4, one can see where it utilizes MIMHYPS():

Signal on Syntax

result = MIMHYPS();

If (result == "OK") Then
  rc = 0
Else
  Do
   Call NetVLogMsg 'VPCEXIT4: ===> HyperSwap is disabled, 'result
   rc = 4
  End

Exit(rc)



The function itself is a CSECT in module MIMEQFIN located in the CBTDLOAD:

BROWSE   MIM.MIMR125.CBTDLOAD(MIMEQFIN)                                                      Line 00000000
Command ===>                                                                                                 
********************************************************** Top of Data *********************************************
..¬MIMFGSNA..xØ....MIMEQFIN.......½MIMEQX01..#½...&MIMEQX02..=....8MIMEQFRN...0...-MIMEQFSM..&Ì...¬MIMEQFSC..â&....
..¬MIMEQXER..õq....MIMEQXEX..ü¬...øMIMEQXCX..T....&MIMEQXCT..Vø...&MIMEQXTR..²{....MIMEQXBP..Ó8...¬MIMEQXDM..2y....
.  MIMEQXRF...Ç... FLTRGQ0A........FLTRSV56........FLTRXRTM........ZRESMNGR...À....MIMEQHSH..ö½...\MIMEQGQC..ß-...Ì
...MIMEQHPS..¬ì...yMIMEQXCC..Þq...{MIMEQQCT..¥....&MIMEQOBS..B&...ìMIMEQKTO..Gy...ØMIMEQXNQ..­....hMIMHYPS ..¬ì....
...XTCBSUSP...Æ....XGDRCVRY...d....XSRRMTR ...Ç....XSRRCVRY........XPXRETRY...O....XQDRCVRY..Dö....................
..................................................................................................................


NOTE: The CBTDLOAD library does NOT need to be added to the LINKLST in order for the exit to work.