View source for $Cms

{{DISPLAYTITLE:$Cms}}
<span class="pageSubtitle">Determine if online is running under CMS</span>

<p class="warn"><b>Note:</b> Many $functions have been deprecated in favor of Object Oriented methods. There is currently no OO equivalent for the <var>$Cms</var> function.</p>

The <var>$Cms</var> function determines if the Model&nbsp;204 Online is running under CMS. 

==Syntax==
<p class="syntax">%cms = $Cms </p>
<p>
<var>$Cms</var> accepts no arguments; it returns a 1 if the Online is running under CMS, or it returns a 0 otherwise. n</p>

==Usage notes==
<var>$Cms</var> can be used before running any operating system specific code. For example, the following code fragment sets [[Global features#Global string variables|global variable]] <code>NEXTPROC</code> to <code>PROC.CMS</code> if running under CMS, or it sets <code>NEXTPROC</code> to <code>PROC.MVS</code>, otherwise:
<p class="code">if $cms then
%rc = $setg('NEXTPROC', 'PROC.CMS')
else
%rc = $setg('NEXTPROC', 'PROC.MVS')
end if
</p>

==Products authorizing {{PAGENAMEE}}== 
<ul class="smallAndTightList">
<li>[[Release notes for Model 204 version 7.5#Former Sirius $functions|Sirius Functions]]</li>
<li>[[Fast/Unload User Language Interface]]</li>
<li>[[Media:JoclrNew.pdf|Janus Open Client]]</li>
<li>[[Media:JosrvrNew.pdf|Janus Open Server]]</li>
<li>[[Janus Sockets]]</li>
<li>[[Janus Web Server]]</li>
<li>Japanese functions</li>
<li>[[Media:SirfieldNew.pdf|Sir2000 Field Migration Facility]]</li>
</ul>

[[Category:$Functions|$Cms]]