- XUTMTP0 ;SEA/RDS - TaskMan: ToolKit, Print, Part 2 ;12/16/94 15:47 [ 04/02/2003 8:29 AM ]
- ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003
- ;;8.0;KERNEL;;Jul 10, 1995
- ;
- Q
- STATUS ;
- S %=$P(XUTSK(.1),U) I %]"",$T(@%)]"" D @% Q
- TRAP S XUTSK(.15,ZTC)="This task has an irregular status code." Q
- ;
- CODES ;Messages For The Various Status Codes
- 0 S XUTSK(.15,ZTC)="Incomplete or still being created." Q
- 1 S XUTSK(.15,ZTC)="Stopped irregularly while scheduled." Q
- 2 S XUTSK(.15,ZTC)="Being inspected by Task Manager." Q
- 3 S XUTSK(.15,ZTC)="Stopped irregularly while waiting for a partition." Q
- 4 S XUTSK(.15,ZTC)="Being prepared." Q
- 5 S XUTSK(.15,ZTC)="Started running "_XUTSK("UPDATE")_" and stopped irregularly." Q
- 6 S XUTSK(.15,ZTC)="Completed "_XUTSK("UPDATE")_"." Q
- A S XUTSK(.15,ZTC)="Stopped irregularly while waiting for a device." Q
- B S XUTSK(.15,ZTC)="Rejected.",XUTSK(.15,ZTC+1)=$P(XUTSK(.1),U,3),ZTC=ZTC+1 Q
- C S XUTSK(.15,ZTC)="Error "_XUTSK("UPDATE")_".",XUTSK(.15,ZTC+1)=$P(XUTSK(.1),U,3),ZTC=ZTC+1 Q
- D S XUTSK(.15,ZTC)="Stopped by "_$S(ZTNAME'=$P(XUTSK(.1),U,10):$P(XUTSK(.1),U,10)_".",1:"you.") Q
- E S XUTSK(.15,ZTC)="Interrupted while running." Q
- F S XUTSK(.15,ZTC)="Unscheduled by "_$S(ZTNAME'=$P(XUTSK(.1),U,3):$P(XUTSK(.1),U,3)_".",1:"you.") Q
- G S XUTSK(.15,ZTC)="Stopped irregularly while waiting for a link." Q
- H S XUTSK(.15,ZTC)="Edited without being scheduled." Q
- I S XUTSK(.15,ZTC)="Discarded by Task Manager because its record was incomplete." Q
- J S XUTSK(.15,ZTC)="Currently being edited." Q
- K S XUTSK(.15,ZTC)="Created without being scheduled." Q
- L S XUTSK(.15,ZTC)="Preparing this task caused the submanager an error "_XUTSK("UPDATE")_".",XUTSK(.15,ZTC+1)=$P(XUTSK(.1),U,3),ZTC=ZTC+1 Q
- ;
- ;
- XUTMTP0 ;SEA/RDS - TaskMan: ToolKit, Print, Part 2 ;12/16/94 15:47 [ 04/02/2003 8:29 AM ]
- +1 ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003
- +2 ;;8.0;KERNEL;;Jul 10, 1995
- +3 ;
- +4 QUIT
- STATUS ;
- +1 SET %=$PIECE(XUTSK(.1),U)
- IF %]""
- IF $TEXT(@%)]""
- DO @%
- QUIT
- TRAP SET XUTSK(.15,ZTC)="This task has an irregular status code."
- QUIT
- +1 ;
- CODES ;Messages For The Various Status Codes
- 0 SET XUTSK(.15,ZTC)="Incomplete or still being created."
- QUIT
- 1 SET XUTSK(.15,ZTC)="Stopped irregularly while scheduled."
- QUIT
- 2 SET XUTSK(.15,ZTC)="Being inspected by Task Manager."
- QUIT
- 3 SET XUTSK(.15,ZTC)="Stopped irregularly while waiting for a partition."
- QUIT
- 4 SET XUTSK(.15,ZTC)="Being prepared."
- QUIT
- 5 SET XUTSK(.15,ZTC)="Started running "_XUTSK("UPDATE")_" and stopped irregularly."
- QUIT
- 6 SET XUTSK(.15,ZTC)="Completed "_XUTSK("UPDATE")_"."
- QUIT
- A SET XUTSK(.15,ZTC)="Stopped irregularly while waiting for a device."
- QUIT
- B SET XUTSK(.15,ZTC)="Rejected."
- SET XUTSK(.15,ZTC+1)=$PIECE(XUTSK(.1),U,3)
- SET ZTC=ZTC+1
- QUIT
- C SET XUTSK(.15,ZTC)="Error "_XUTSK("UPDATE")_"."
- SET XUTSK(.15,ZTC+1)=$PIECE(XUTSK(.1),U,3)
- SET ZTC=ZTC+1
- QUIT
- D SET XUTSK(.15,ZTC)="Stopped by "_$SELECT(ZTNAME'=$PIECE(XUTSK(.1),U,10):$PIECE(XUTSK(.1),U,10)_".",1:"you.")
- QUIT
- E SET XUTSK(.15,ZTC)="Interrupted while running."
- QUIT
- F SET XUTSK(.15,ZTC)="Unscheduled by "_$SELECT(ZTNAME'=$PIECE(XUTSK(.1),U,3):$PIECE(XUTSK(.1),U,3)_".",1:"you.")
- QUIT
- G SET XUTSK(.15,ZTC)="Stopped irregularly while waiting for a link."
- QUIT
- H SET XUTSK(.15,ZTC)="Edited without being scheduled."
- QUIT
- I SET XUTSK(.15,ZTC)="Discarded by Task Manager because its record was incomplete."
- QUIT
- J SET XUTSK(.15,ZTC)="Currently being edited."
- QUIT
- K SET XUTSK(.15,ZTC)="Created without being scheduled."
- QUIT
- L SET XUTSK(.15,ZTC)="Preparing this task caused the submanager an error "_XUTSK("UPDATE")_"."
- SET XUTSK(.15,ZTC+1)=$PIECE(XUTSK(.1),U,3)
- SET ZTC=ZTC+1
- QUIT
- +1 ;
- +2 ;