Here's what we use, but, apparently, SYSTEM(4001) is undocumented.
BEGIN CASE
CASE AT.WHO = 'TEST'
AT.WHO = 'tst'
CASE AT.WHO = 'TEST2'
AT.WHO = 'tst2'
CASE AT.WHO = 'DEAL'
AT.WHO = 'deal'
CASE AT.WHO = 'FIN'
AT.WHO = 'fin'
CASE AT.WHO = 'UTIL'
AT.WHO = 'utl'
CASE AT.WHO = 'CLOSE'
AT.WHO = 'cls'
CASE 1
AT.WHO = DOWNCASE(AT.WHO)
END CASE
STELPROMPT = AT.WHO:C4 ; * normal
STELPROMPT<2> = AT.WHO:C4:C4 ; * sel list active
STELPROMPT<3> = '+' ; * multi-line cmd
ASSIGN 1 TO SYSTEM(4001)
ASSIGN STELPROMPT TO SYSTEM(4002)
Eric Armstrong
Programmer/Analyst
Lobel Financial
LOBEL FINANCIAL PRIVACY NOTICE:
This communication may contain confidential company information that is
protected by federal law. Federal regulations prohibit the disclosure (or
re-disclosure) of confidential information without the written consent of the
person(s) to whom it pertains. Additionally, the views or opinions presented in
this email are solely those of the author and do not necessarily represent
those of the company.
_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users
