| 1 | ZTMDCL ;SFISC/RWF - Run Taskman with a DCL context. ;09/11/2006
|
|---|
| 2 | ;;8.0;KERNEL;**24,355**;Jul 10, 1995;Build 9
|
|---|
| 3 | ;This assumes that TM was started with a DCL context.
|
|---|
| 4 | N FILE,QUEUE,ENV,%SPAWN,%
|
|---|
| 5 | S FILE=$S(%ZTOS["OpenM":"ZTMS2WDCL.COM",%ZTOS["DSM":"ZTMSWDCL.COM",1:"")
|
|---|
| 6 | S QUEUE=$S($L(ZTNODE):ZTNODE,1:%ZTNODE)
|
|---|
| 7 | S ENV=%ZTPFLG("DCL")
|
|---|
| 8 | I %ZTOS["OpenM" D
|
|---|
| 9 | . S ENV=$S($L(ZTNODE):ZTNODE,1:$P(%ZTPAIR,":",2))
|
|---|
| 10 | . S QUEUE=$G(%ZTPFLG("Q",ENV))
|
|---|
| 11 | I ENV="" D ^%ZTER Q ;Something is wrong
|
|---|
| 12 | ;Use the next line if you want/need log files
|
|---|
| 13 | ;S %SPAWN="SUBMIT/NOPRINT/KEEP/QUEUE=TM$"_QUEUE_" DHCP$TASKMAN:"_FILE_"/PARAM=("_ENV_","_ZTUCI_","_ZTDVOL_")"
|
|---|
| 14 | ;Use the next line if you don't need log files.
|
|---|
| 15 | S %SPAWN="SUBMIT/NOPRINT/NOLOG/QUEUE=TM$"_QUEUE_" DHCP$TASKMAN:"_FILE_"/PARAM=("_ENV_","_ZTUCI_","_ZTDVOL_")"
|
|---|
| 16 | I %ZTOS["VAX DSM" S %=$ZC(%SPAWN,%SPAWN) I 1
|
|---|
| 17 | I %ZTOS["OpenM" S %=$ZF(-1,%SPAWN) I 1
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
