ZTMDCL.m

ZTMDCL ;SFISC/RWF - Run Taskman with a DCL context. ;09/11/2006

 ;;8.0;KERNEL;**24,355**;Jul 10, 1995;Build 9

 ;This assumes that TM was started with a DCL context.

 N FILE,QUEUE,ENV,%SPAWN,%

 S FILE=$S(%ZTOS["OpenM":"ZTMS2WDCL.COM",%ZTOS["DSM":"ZTMSWDCL.COM",1:"")

 S QUEUE=$S($L(ZTNODE):ZTNODE,1:%ZTNODE)

 S ENV=%ZTPFLG("DCL")

 I %ZTOS["OpenM" D

 . S ENV=$S($L(ZTNODE):ZTNODE,1:$P(%ZTPAIR,":",2))

 . S QUEUE=$G(%ZTPFLG("Q",ENV))

 I ENV="" D ^%ZTER Q  ;Something is wrong

 ;Use the next line if you want/need log files

 ;S %SPAWN="SUBMIT/NOPRINT/KEEP/QUEUE=TM$"_QUEUE_" DHCP$TASKMAN:"_FILE_"/PARAM=("_ENV_","_ZTUCI_","_ZTDVOL_")"

 ;Use the next line if you don't need log files.

 S %SPAWN="SUBMIT/NOPRINT/NOLOG/QUEUE=TM$"_QUEUE_" DHCP$TASKMAN:"_FILE_"/PARAM=("_ENV_","_ZTUCI_","_ZTDVOL_")"

 I %ZTOS["VAX DSM" S %=$ZC(%SPAWN,%SPAWN) I 1

 I %ZTOS["OpenM" S %=$ZF(-1,%SPAWN) I 1

 Q

 ;

ZTMDCL    ;SFISC/RWF - Run Taskman with a DCL context. ;09/11/2006

 +1       ;;8.0;KERNEL;**24,355**;Jul 10, 1995;Build 9

 +2       ;This assumes that TM was started with a DCL context.

 +3        NEW FILE,QUEUE,ENV,%SPAWN,%

 +4        SET FILE=$SELECT(%ZTOS["OpenM":"ZTMS2WDCL.COM",%ZTOS["DSM":"ZTMSWDCL.COM",1:"")

 +5        SET QUEUE=$SELECT($LENGTH(ZTNODE):ZTNODE,1:%ZTNODE)

 +6        SET ENV=%ZTPFLG("DCL")

 +7        IF %ZTOS["OpenM"

               Begin DoDot:1

 +8                SET ENV=$SELECT($LENGTH(ZTNODE):ZTNODE,1:$PIECE(%ZTPAIR,":",2))

 +9                SET QUEUE=$GET(%ZTPFLG("Q",ENV))

               End DoDot:1

 +10      ;Something is wrong

           IF ENV=""

               DO ^%ZTER

               QUIT 

 +11      ;Use the next line if you want/need log files

 +12      ;S %SPAWN="SUBMIT/NOPRINT/KEEP/QUEUE=TM$"_QUEUE_" DHCP$TASKMAN:"_FILE_"/PARAM=("_ENV_","_ZTUCI_","_ZTDVOL_")"

 +13      ;Use the next line if you don't need log files.

 +14       SET %SPAWN="SUBMIT/NOPRINT/NOLOG/QUEUE=TM$"_QUEUE_" DHCP$TASKMAN:"_FILE_"/PARAM=("_ENV_","_ZTUCI_","_ZTDVOL_")"

 +15       IF %ZTOS["VAX DSM"

               SET %=$ZC(%SPAWN,%SPAWN)

               IF 1

 +16       IF %ZTOS["OpenM"

               SET %=$ZF(-1,%SPAWN)

               IF 1

 +17       QUIT 

 +18      ;