$SirProd: Difference between revisions

Revision as of 22:35, 19 February 2015

Determine availability of Sirius product or capability

Note: 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.

Syntax

%avail = $SirProd(product_code)

Syntax terms

%avail	A numeric variable set to a non-zero number (if the Sirius product or capability is available) or set to 0 (if the product or capability is not available).
product_code	A number corresponding to the products and capabilities shown in Product codes, below.

Product codes

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

Usage notes

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

Products authorizing $SirProd

Sirius functions
Fast/Unload User Language Interface
Janus Open Client
[[Media:JosrvrNew.pdf|Janus Open Server]
Janus Sockets
Janus Web Server
Japanese functions
Sir2000 Field Migration Facility

@@ Line 78: / Line 78: @@
 <li>[[Fast/Unload User Language Interface]]</li>
 <li>[[Media:JoclrNew.pdf|Janus Open Client]]</li>
-<li>[http://m204wiki.rocketsoftware.com/images/1/17/JosrvrNew.pdf Janus Open Server]</li>
+<li>[[Media:JosrvrNew.pdf|Janus Open Server]</li>
 <li>[[Janus Sockets]]</li>
 <li>[[Janus Web Server]]</li>