$SirProd: Difference between revisions
m (1 revision) |
m (→Syntax) |
||
| Line 52: | Line 52: | ||
==Syntax== | ==Syntax== | ||
<p class="syntax"><section begin="syntax" /> %AVAIL = $SirProd(product_code) | <p class="syntax"><section begin="syntax" />%AVAIL = $SirProd(product_code) | ||
<section end="syntax" /></p> | <section end="syntax" /></p> | ||
< | |||
</ | where <var class="term">%AVAIL</var> is set to a non-zero number if the Sirius product or capability is available, or to 0 if it is not available. | ||
This function can be used to ensure that a product is available. For example, the following program would stop if the ''[[Fast/Unload User Language Interface]]'' were not available: | This function can be used to ensure that a product is available. For example, the following program would stop if the ''[[Fast/Unload User Language Interface]]'' were not available: | ||
<p class="code"> IF $SirProd(5) = 0 THEN | <p class="code">IF $SirProd(5) = 0 THEN | ||
PRINT 'Fast/Unload is not available' | |||
STOP | |||
END IF | |||
</p> | </p> | ||
<ul class="smallAndTightList"> | <ul class="smallAndTightList"> | ||
Revision as of 19:14, 24 October 2012
Determine availability of Sirius product or capability
Most Sirius $functions have been deprecated in favor of Object Oriented methods. There is no OO equivalent for the $SirProd function, though you can get a full list of local capabilities via the Sirius command.
The $SirProd function checks to see if a particular Sirius product or capability is available.
$SirProd accepts one argument and returns 1 if the argument is the code of a Sirius product or capability which is available in the current Model 204, and 0 otherwise.
The argument is a number corresponding to the following products and capabilities:
- 1: Base User Language Functions
- 2: Fast/Reload
- 3: Fast/Reload FLOD Compiler
- 4: Fast/Backup
- 5: Fast/Unload Functions
- 6: Janus Base
- 7: Janus Open Server
- 8: Janus Open Client
- 9: Japanese Functions
- 10: SirScan
- 11: Trusted Login
- 12: Janus Specialty Data Store
- 13: Performance Enhancements
- 14: Janus Web Server
- 15: Janus Network Security
- 16: Sir2000 User Language Tools
- 17: Sir2000 Field Migration Facility
- 18: SirPro
- 19: SirFile
- 20: SirMon
- 21: SirXref
- 22: SirLib
- 23: SirDBA
- 24: Sirius Functions
- 25: SIRMSG Functions
- 26: Monitor Functions
- 27: Procedure Functions
- 28: Library Functions
- 29: Performance Enhancements V2
- 30: SirSafe
- 31: SirFact
- 32: Janus Sockets
- 33: Performance Enhancements V3
- 34: $SIR_LOGIN facility
- 35: Janus SOAP
- 36: Fast/Forward
- 37: Limited Janus Web Server
- 37: Reserved
- 39: Janus Debugger
- 40: SirTune Data Collector
- 41: Sirius Debugger
Syntax
<section begin="syntax" />%AVAIL = $SirProd(product_code) <section end="syntax" />
where %AVAIL is set to a non-zero number if the Sirius product or capability is available, or to 0 if it is not available.
This function can be used to ensure that a product is available. For example, the following program would stop if the Fast/Unload User Language Interface were not available:
IF $SirProd(5) = 0 THEN PRINT 'Fast/Unload is not available' STOP END IF
- Sirius functions
- Fast/Unload User Language Interface
- Janus Open Client
- Janus Open Server
- Janus Sockets
- Janus Web Server
- Japanese functions
- Sir2000 Field Migration Facility
Products authorizing $SirProd