GDSX Manual

USKELEX and USKELEXC Listings
Extended General Device Support (GDSX) Manual–134303
B-24
USKELEXC Listing
!***************************************************************************
PROC PROCESS^ASSIGNS (buf);
INT .buf;
BEGIN
!
! Any user assign params will be passed to this proc for further processing
!
END;
!===========================================================================
?PAGE "PROC PROCESS^USER^PARAMS"
!===========================================================================
!***************************************************************************
! Function: This PROC serves as a way for users to supply their parameters at
! startup time.
!
! Whenever a parameter starts with USERPARAM in a startup PARAM message,
! the rest of buffer containing the parameter message will be passed to
! this routine for further processing.
!
! Users can use this procedure to process user defined values for
! their own startup processing (not GDSX defined configuration
! parameters). See GDSX documentation for a list of defined
! configuration parameters, such as MAXLINES.
!
! Input: STRING .user^param^string.
!
! Output: None. User can process the given param string and assign
! its corresponding values.
!
! EXAMPLE:
!
! The following gives an EXAMPLE for processing params if the convention is
! the same as the Tandem start CI -- i.e.,
!
! STRING param^msg[0] : = "N" : Length of param name
! param^msg[1] for N : = USERPARAMn
! where n is a number
! from 1 to 99999
!
! param^msg[N+1] : = "V" : Length of param value
! param^msg[N+2] for V : = param value
!
! An example: startup PARAM msg is PARAM USERPARAM1 user_value
! startup^msg^buf looks like this: buf[0] = 10, buf[1:10] = "USERPARAM1"
! buf[11] = 13, buf[12:24]= "uservar-value"
! User^param^buf points to buf.
!***************************************************************************
PROC PROCESS^USER^PARAMS (user^param^buf);
STRING .user^param^buf;
BEGIN
Literal eof = %377;
STRING xlate^user^parm^name = 'p' := [
!01234567890123 4 56789012345678 9
"USERPARAM1 ", 1, "USERPARAM2 ", 2,
eof ];
STRING