XOBWLIB ;ALB/MJK - HWSC :: Utilities Library ; 09/13/10 4:00pm
Source file <XOBWLIB.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETFAC(XOBWSN) | ; -- get web service proxy factory
; Input: ; XOBWSN - web service name |
|
| GETPROXY(XOBWSN,XOBSRVR) | ; -- get web service proxy
; Input: ; XOBWSN - web service name ; XOBSRVR - web server name |
|
| GENPORT(XOBY) | ; -- generate http port class from WSDL during install
|
|
| REGSOAP(XOBWSN,XOBCXT,XOBCLASS,XOBWSDL,XOBCAURL) | ; -- register SOAP service
; Input: ; XOBWSN - SOAP web service name ; XOBCXT - web service context root ; XOBCLASS - full class name, including package ; XOBWSDL - file path containing WSDL document [optional] ; XOBCAURL - 'check availability' url portion to follow context root [optional] |
|
| ATTACHDR(XOBPROXY) | ; -- add VistaInfoHeader to proxy object
; Input: ; XOBPROXY - web service proxy object |
|
| UNREG(XOBWSN) | ; unregister/delete REST *or* SOAP web service
; Input: ; XOBWSN - web service name |
|
| GETRESTF(XOBWSN) | ; -- get REST service request factory
; Input: ; XOBWSN - web service name |
|
| GETREST(XOBWSN,XOBSRVR) | ; -- get REST service request
; Input: ; XOBWSN - web service name ; XOBSRVR - web server name |
|
| REGREST(XOBWSN,XOBCXT,XOBCAURL) | ; -- register REST service
; Input: ; XOBWSN - REST web service name ; XOBCXT - web service context root ; XOBCAURL - 'check availability' url portion to follow context root [optional] |
|
| GET(XOBREST,XOBRSCE,XOBERR,XOBFERR) | ; -- do HTTP GET method and force M/Cache error if problem encountered
; Executes STATCHK and HTTPCHK calls. ; input: ; XOBREST = instance of xobw.RestRequest class ; XOBRSCE = resource for HTTP GET method ; XOBERR = where to store HWSC error object if problem encountered ; XOBFERR = if error object created, force M/Cache error [1], otherwise return to caller [0] ; [optional ; default = 1] |
|
| POST(XOBREST,XOBRSCE,XOBERR,XOBFERR) | ; -- do HTTP POST method and force M/Cache error if problem encountered
; Executes STATCHK and HTTPCHK calls. ; input: ; XOBREST = instance of xobw.RestRequest class ; XOBRSCE = resource for HTTP GET method ; XOBERR = where to store HWSC error object if problem encountered ; XOBFERR = if error object created, force M/Cache error [1], otherwise return to caller [0] ; [optional ; default = 1] |
|
| HTTPCHK(XOBREST,XOBERR,XOBFERR) | ; -- check HTTP response status code
; input: ; XOBREST = instance of xobw.RestRequest class ; XOBERR = where to store HWSC error object if problem encountered ; XOBFERR = if error object created, force M/Cache error [1], otherwise return to caller [0] ; [optional ; default = 1] |
|
| HTTPOK(XOBSCODE) | ; -- is HTTP response status code an 'OK' code
; -- Future: Should we add more 200 series codes to the check? |
|
| EOFAC(XOBPROXY) | ; -- Error Object FACtory
; > finds and parses errors in partition ; > builds and returns error object for easier processing |
|
| EOSTAT(XOBSO) | ; -- create object error from status error object
|
|
| EOHTTP(XOBHRO) | ; -- create object error from %Net.HttpResponse object
|
|
| ERRDISP(XOBEO) | ; -- do simple error display
|
|
| ERR2ARR(XOBEO,XOBERR) | ; -- decompose error for traditional M processing
|
|
| ZTER(XOBEO) | ; -- build error object array and call error trap
|
|
| STATCHK(XOBSO,XOBERR,XOBFERR) | ; -- check Cache Status Object
; input: ; XOBSO = Cache status object ; XOBERR = where to store HWSC error object if problem encountered ; XOBFERR = if error object created, force M/Cache error [1], otherwise return to caller [0] ; [optional ; default = 1] |
|
| SKEYADD(XOBWKEY,XOBWDESC,XOBERR) | ; add or edit a server key name/desc (no prompting)
; input parameters: ; XOBWKEY: name for key ; XOBWDESC: (optional) brief description ; XOBERR: (optional) textual error description as array node(s) starting ; at XOBERR(1) / passed by reference ; returns: ; >0: success (value = IEN of new or existing entry) ; 0: failure (did not add/edit key) |
|
| SNAME4KY(XOBWKEY,XOBWSNM,XOBERR) | ; get server name based on key
; input parameters: ; XOBWKEY: name of key to lookup ; XOBWSNM: where web server name is returned / passed by reference ; XOBERR: (optional) where any error is returned / passed by reference ; format: <error #>^<error text> ; errors possible: ; 186008^description (key does not exist) ; 186009^description (server association missing) ; returns: ; 1 - successful lookup ; 0 - unsuccessful lookup ; |
|
| SELSRV() | ; -- interactive display and selection of an server
; Input: None ; Output: ; Function Value - server name ; -- display servers |
|
| GETSRV() | ; -- PUBLIC API: return interactive-user-selected server name
; User selects a server entry in the WEB SERVER file (#18.12) ; Input: ; None ; Output: ; Function Value - server name (#.01 field of file 18.12) ; |
|
| DISPSRVS | ; -- display servers
; Input: ; None ; Output: ; Screen formatted display of app servers and associated fields from file 18.12 |
