$Cms: Difference between revisions

Revision as of 23:39, 12 September 2013

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.

%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.

@@ Line 26: / Line 26: @@
 <li>[[Sirius functions]]</li>
 <li>[[Fast/Unload User Language Interface]]</li>
-<li>[[Janus Open Client]]</li>
+<li>[http://m204wiki.rocketsoftware.com/images/4/4a/JoclrNew.pdf Janus Open Client]</li>
 <li>[[Janus Open Server]]</li>
 <li>[[Janus Sockets]]</li>