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
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

Reply via email to