$Sclass: Difference between revisions
(Automatically generated page update) |
mNo edit summary |
||
| Line 1: | Line 1: | ||
<p>$SCLASS returns a variable length character string equal to the current user's subsystem user class (SCLASS). $SCLASS returns a null string if the user is not running in a subsystem. For more information on user classes and subsystems, refer to [[Application Subsystem | <p>$SCLASS returns a variable length character string equal to the current user's subsystem user class (SCLASS). $SCLASS returns a null string if the user is not running in a subsystem. For more information on user classes and subsystems, refer to [[Application Subsystem development]]. </p> | ||
<p>The $SCLASS function typically is used when designing applications through the Subsystem Management facility. $SCLASS can be used to determine the user class of the current user. Control can then be transferred depending upon the user's privileges. The $SCLASS function takes no arguments. </p> | <p>The $SCLASS function typically is used when designing applications through the Subsystem Management facility. $SCLASS can be used to determine the user class of the current user. Control can then be transferred depending upon the user's privileges. The $SCLASS function takes no arguments. </p> | ||
<b>Example</b> | <b>Example</b> | ||
Revision as of 20:18, 21 January 2014
$SCLASS returns a variable length character string equal to the current user's subsystem user class (SCLASS). $SCLASS returns a null string if the user is not running in a subsystem. For more information on user classes and subsystems, refer to Application Subsystem development.
The $SCLASS function typically is used when designing applications through the Subsystem Management facility. $SCLASS can be used to determine the user class of the current user. Control can then be transferred depending upon the user's privileges. The $SCLASS function takes no arguments.
Example
GET.OPTION: JUMP TO (ADD.REC,VIEW.REC,UPD.REC) - %MAIN.MENU:SELECTION . . . UPD.REC: IF $SCLASS = 'UPDATE' THEN IF $SETG('NEXT','PRE-MAINT.PGM') THEN PRINT 'GLOBAL TABLE FULL' END IF . . .