$Cms: Difference between revisions

From m204wiki
Jump to navigation Jump to search
m (1 revision)
m (1 revision)
Line 2: Line 2:
<span class="pageSubtitle">Determine if online is running under CMS</span>
<span class="pageSubtitle">Determine if online is running under CMS</span>


<p class="warning">Most Sirius $functions have been deprecated in favor of Object Oriented methods. There is currently no OO equivalent for the $Cms function.</p>
<p class="warning">Most Sirius $functions have been deprecated in favor of Object Oriented methods. There is currently no OO equivalent for the <var>$Cms</var> function.</p>


This function can be used to determine if the online is running under CMS.  
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.
The <var>$Cms</var> function accepts no arguments and returns either a 1 if the online is running under CMS or a 0 otherwise.
==Syntax==
==Syntax==
<p class="syntax"><section begin="syntax" /> %CMS = $Cms
<p class="syntax"><section begin="syntax" /> %CMS = $Cms

Revision as of 20:28, 19 October 2012

Determine if online is running under CMS

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

<section begin="syntax" /> %CMS = $Cms <section end="syntax" />

$Cms Function

%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