| 1 | XUTMR1 ;SEA/RDS - Taskman: Requeue Interface, Part Two ;06/06/95 14:59
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ;Continued From XUTMR
|
|---|
| 5 | ;
|
|---|
| 6 | S ZTPRI="" G:'ZTKEY REQ
|
|---|
| 7 | PROG ;Programmer Parameters Edit: Partition Size And Priority
|
|---|
| 8 | K DIR
|
|---|
| 9 | S DIR(0)="NO^1:10:0",DIR("A")="Task priority: ",DIR("?",1)="Please enter an integer between 1 (low) and 10 (high) to specify the task's",DIR("?")="priority. (Optional)"
|
|---|
| 10 | S:$P(ZTREC,U,15)]"" DIR("B")=$P(ZTREC,U,15)
|
|---|
| 11 | D ^DIR K DIR I $L(Y) G NEXT:$D(DIRUT) S:Y>0 ZTPRI=Y
|
|---|
| 12 | ;
|
|---|
| 13 | REQ ;Dequeue, Modify, And Requeue Task
|
|---|
| 14 | ;
|
|---|
| 15 | D DQ^%ZTLOAD
|
|---|
| 16 | S $P(ZTREC,U,3)=DUZ,$P(ZTREC,U,5)=$H,$P(ZTREC,U,6)=ZTDTH,$P(ZTREC,U,15)="",ZTREC2=ZTIO_"^^^^"_$P(ZTREC2,U,5)_"^"
|
|---|
| 17 | S:ZTCPU]"" $P(ZTREC,U,14)=ZTCPU I ZTKEY,ZTPRI]"" S $P(ZTREC,U,15)=ZTPRI
|
|---|
| 18 | S ^%ZTSK(ZTSK,0)=ZTREC
|
|---|
| 19 | K ^%ZTSK(ZTSK,.25),^(.21),^(.26) S:$D(ZTIO("H"))#2 $P(ZTREC2,U,6)=ZTIO("H"),^%ZTSK(ZTSK,.25)=ZTIO("P") S ^%ZTSK(ZTSK,.2)=ZTREC2
|
|---|
| 20 | K ZTRTN,ZTIO,ZTREC,ZTREC2,ZTREC25
|
|---|
| 21 | D REQ^%ZTLOAD
|
|---|
| 22 | W !!!,"Task requeued!" H 1
|
|---|
| 23 | NEXT L -^%ZTSK(ZTSK)
|
|---|
| 24 | G LKUP^XUTMR
|
|---|
| 25 | ;
|
|---|
| 26 | Q ;Cleanup And End Of Taskman Requeue Interface
|
|---|
| 27 | K %,%DT,%H,%T,%ZTD,%ZTDTH,%ZTI,%ZTIO,%ZTN,%ZTO,%ZTOS,%ZTU,XUTMUCI,%ZTYN,%ZTYND,X,Y,ZTCPU,ZTDTH,ZTIO,ZTKEY,ZTPAR,ZTPRI,ZTREC,ZTREC2,ZTSK
|
|---|
| 28 | D HOME^%ZIS Q
|
|---|
| 29 | ;
|
|---|
