Guardian Programmer's Guide

Table Of Contents
Formatting and Manipulating Character Data
Guardian Programmer’s Guide 421922-014
19 - 60
Sample Program
! Upshift all characters in the edited command in case
! any characters were typed in lowercase (assumes default
! multibyte character set; otherwise you would need to
! use MBCS_CHAR_ and MBCS_SHIFTSTRING_):
CALL SHIFTSTRING(COMMAND,NUM,0);
END
! Loop until user responds to FC prompt with a carriage
! return only:
UNTIL NOT TEMPLATE^LENGTH;
! Return to command interpreter to execute edited command:
RETURN 1;
END;