This program works for Universe on a UNIX machine giving three commands
PATH FULL would give aprompt like /usr/ibm/uv>
PATH would give a prompt like uv>
PATH CLEAR would give a prompt like >
PROGRAM PATH
************************************************************************
*** Sets or clears the account or path in the TCL prompt
*** so a TCL user doesn't forget where they are.
***
*** MODS:
*** =====
*** Seq Date Who Reference Description
*** --- --------- --- ---------- ---------------------------------------
*** 001 27 Feb 07 KRJ CC440 Written
***
************************************************************************
SENTENCE = UPCASE(@SENTENCE)
THIS = '' ; THAT = 1
BEGIN CASE
CASE INDEX(SENTENCE,'CLEAR',1) ; THAT = 0
CASE INDEX(SENTENCE,'FULL',1) ; THIS = @PATH:'>'
CASE 1 ; THIS = FIELD(@PATH,'/',DCOUNT(@PATH,'/')):'>'
END CASE
IF THIS NE '' THEN
THIS<2> = THIS<1>:'>'
THIS<3> = '+'
END
ASSIGN THIS TO SYSTEM(4002)
ASSIGN THAT TO SYSTEM(4001)
_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users
