AUJOBK.m

AUJOBK ;KILL A JOB [ 08/13/85  3:51 PM ]

 ;IHS-OKLA CITY AREA OFFICE-LMD

VAR S USTO=300

UCI X ^%ZOSF("UCI") S AU("UCI")=$P(Y,",",1) S X="MGR" D ^%AUXUCI

SY D ^%SY W !!,"KILL which job? " D SBRS G ORIGUCI:$D(DUOUT)!$D(DFOUT)!$D(DTOUT)!$D(DLOUT),QUES:$D(DQOUT)!(+Y<1) S AU("JOB")=+Y

RJD S ANS="J"_AU("JOB") D RESTORE+1^RJD

ORIGUCI S X=AU("UCI") D ^%AUXUCI

END K AU Q

QUES W !!,"Enter the JOB NUMBER of the job to be killed." G SY

SBRS K DFOUT,DTOUT,DUOUT,DQOUT,DLOUT R Y:USTO I '$T W *7 R Y:5 G SBRS:Y="." I '$T S (DTOUT,Y)="" Q

 S:Y="/.," (DFOUT,Y)="" S:Y="" DLOUT="" S:Y="^" (DUOUT,Y)="" S:Y?1"?".E!(Y["^") (DQOUT,Y)=""

 Q

AUJOBK    ;KILL A JOB [ 08/13/85  3:51 PM ]

 +1       ;IHS-OKLA CITY AREA OFFICE-LMD

VAR        SET USTO=300

UCI        XECUTE ^%ZOSF("UCI")

           SET AU("UCI")=$PIECE(Y,",",1)

           SET X="MGR"

           DO ^%AUXUCI

SY         DO ^%SY

           WRITE !!,"KILL which job? "

           DO SBRS

           IF $DATA(DUOUT)!$DATA(DFOUT)!$DATA(DTOUT)!$DATA(DLOUT)

               GOTO ORIGUCI

           IF $DATA(DQOUT)!(+Y<1)

               GOTO QUES

           SET AU("JOB")=+Y

RJD        SET ANS="J"_AU("JOB")

           DO RESTORE+1^RJD

ORIGUCI    SET X=AU("UCI")

           DO ^%AUXUCI

END        KILL AU

           QUIT 

QUES       WRITE !!,"Enter the JOB NUMBER of the job to be killed."

           GOTO SY

SBRS       KILL DFOUT,DTOUT,DUOUT,DQOUT,DLOUT

           READ Y:USTO

           IF '$TEST

               WRITE *7

               READ Y:5

               IF Y="."

                   GOTO SBRS

               IF '$TEST

                   SET (DTOUT,Y)=""

                   QUIT 

 +1        IF Y="/.,"

               SET (DFOUT,Y)=""

           IF Y=""

               SET DLOUT=""

           IF Y="^"

               SET (DUOUT,Y)=""

           IF Y?1"?".E!(Y["^")

               SET (DQOUT,Y)=""

 +2        QUIT