$Sclass

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