Test Program to See what LANSA Services are Licensed

FUNCTION OPTIONS(*DIRECT)
*
DEFINE FIELD(#W_SERVICE) TYPE(*CHAR) LENGTH(30)
DEFINE FIELD(#W_STS) TYPE(*CHAR) LENGTH(20)
DEFINE FIELD(#W_MSG) TYPE(*CHAR) LENGTH(80)
DEF_LIST NAME(#LICENSE) FIELDS(#W_SERVICE) TYPE(*WORKING)
DEF_LIST NAME(#DLICENSE) FIELDS(#W_SERVICE #W_STS #W_MSG)
*
CLR_LIST NAMED(#LICENSE)
CLR_LIST NAMED(#DLICENSE)
*
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’XMLCLIENT’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’FTPCLIENT’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’POPCLIENT’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’SMTPCLIENT’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’HTTPCLIENT’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’HTTPIXMLCLIENT’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’HTTPOXMLCLIENT’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’HTTPIEDICLIENT’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’HTTPOEDICLIENT’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’HTTPISVCLIENT’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’SQLCLIENT’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’MQCLIENT’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’CECLIENT’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’FILECLIENT’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’SVFILECLIENT’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’EDICLIENT’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’RFICLIENT’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’SOAPCLIENT’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’AS2CERT’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’AS2SERVER’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’AS2CLIENT’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’AS2RECEIPT’)
EXECUTE SUBROUTINE(ADD) WITH_PARMS(’UCCNETCLIENT’)
*
*
* DEFINE FIELD(#JSMSTS) TYPE(*CHAR) LENGTH(20)
* DEFINE FIELD(#JSMMSG) TYPE(*CHAR) LENGTH(255)
* DEFINE FIELD(#JSMCMD) TYPE(*CHAR) LENGTH(255)
* INPUT_ATR(LC)
*
* Load and Each Service
*
SELECTLIST NAMED(#LICENSE)
EXECUTE SUBROUTINE(TEST) WITH_PARMS(#W_SERVICE)
ENDSELECT
*
* Close
*
DISPLAY BROWSELIST(#DLICENSE)
RETURN
*
* Build Service List
SUBROUTINE NAME(ADD) PARMS(#W_SERVICE)
ADD_ENTRY TO_LIST(#LICENSE)
ENDROUTINE
* Test Each Service
SUBROUTINE NAME(TEST) PARMS(#W_SERVICE)
*
USE BUILTIN(JSM_OPEN) TO_GET(#JSMSTS #JSMMSG)
*
USE BUILTIN(TCONCAT) WITH_ARGS(’SERVICE_LOAD SERVICE(’ #W_SERVICE ‘)’) TO_GET(#JSMCMD)
USE BUILTIN(JSM_COMMAND) WITH_ARGS(#JSMCMD) TO_GET(#JSMSTS #JSMMSG)
CHANGE FIELD(#W_STS) TO(#JSMSTS)
CHANGE FIELD(#W_MSG) TO(#JSMMSG)
ADD_ENTRY TO_LIST(#DLICENSE)
USE BUILTIN(JSM_COMMAND) WITH_ARGS(’SERVICE_UNLOAD’) TO_GET(#JSMSTS #JSMMSG)
*
USE BUILTIN(JSM_CLOSE) TO_GET(#JSMSTS #JSMMSG)
*
ENDROUTINE

This entry was posted on 29. January 2009 at 20:22 and is filed under LANSA. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response or trackback from your own site.