$Cms: Difference between revisions
(Automatically generated page update) |
(Automatically generated page update) |
||
| Line 26: | Line 26: | ||
<li>[[List of $functions|Sirius functions]]</li> | <li>[[List of $functions|Sirius functions]]</li> | ||
<li>[[Fast/Unload User Language Interface]]</li> | <li>[[Fast/Unload User Language Interface]]</li> | ||
<li>[[Media:JoclrNew.pdf|Janus Open Client]</li> | <li>[[Media:JoclrNew.pdf|Janus Open Client]]</li> | ||
<li>[http://m204wiki.rocketsoftware.com/images/1/17/JosrvrNew.pdf Janus Open Server]</li> | <li>[http://m204wiki.rocketsoftware.com/images/1/17/JosrvrNew.pdf Janus Open Server]</li> | ||
<li>[[Janus Sockets]]</li> | <li>[[Janus Sockets]]</li> | ||
Revision as of 21:20, 19 February 2015
Determine if online is running under CMS
Note: Most Sirius $functions have been deprecated in favor of Object Oriented methods. There is currently no OO equivalent for the $Cms function.
This function can be used to determine if the online is running under CMS.
The $Cms function accepts no arguments and returns either a 1 if the online is running under CMS or a 0 otherwise.
Syntax
%CMS = $Cms
%CMS is set to either 0 or 1.
This function can be used to test if running under CMS before running any operating system specific code. For example, the program
IF $Cms THEN %RC = $SETG('NEXTPROC', 'PROC.CMS') ELSE %RC = $SETG('NEXTPROC', 'PROC.MVS') END IF
would set global variable NEXTPROC to 'PROC.CMS' if running under CMS and to 'PROC.MVS', otherwise.
Products authorizing $Cms
- Sirius functions
- Fast/Unload User Language Interface
- Janus Open Client
- Janus Open Server
- Janus Sockets
- Janus Web Server
- Japanese functions
- Sir2000 Field Migration Facility