Routine: XUCIGTM

Name	Comments	DBIA/ICR reference
DO	;Do some routine and return
D
ERR
RES
K
1
2	;For GT.M this is a NOP, Return Y.
ENT
SWAP	; ; X ^%ZOSF("PROGMODE") I 'Y S X=$S(X[",":$ZC(%SETUCI,$P(X,","),$P(X,",",2)),1:$ZC(%SETUCI,$P(X,","))),X=$ZC(%PGMSET),X=$ZC(%SECMAP)
GO	;GOTO some routine
U
SAV

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"GT.M doesn't have an equivlent to UCI's.",!,"You will remain in this enviroment." Line Location: 1+0
Function Call: READ	Prompt: "What UCI: " Formatting: ! Timeout: $S($D(DTIME):DTIME,1:10)," Variable: %UCI Line Location: 1+1
Function Call: WRITE	Prompt: *7,!,"YOU'RE IN UCI: ",Y,! Line Location: U+0
Function Call: WRITE	Prompt: !?9,"'"_X_"' DOES NOT EXIST IN "_%UCI,! Line Location: GO+2
Function Call: WRITE	Prompt: !?9,"'"_X_"' IS AN INVALID UCI!",! Line Location: ERR+0

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	U+1
^%ZOSF("TEST"	GO+2
^%ZOSF("UCI"	2+1
^UTILITY($J	GO+3!
^XUTL("XQ"	GO+3!

Routine: XUCIGTM Platform: GT.M