XUTMQH.m

XUTMQH ;SEA/RDS - TaskMan: Option, ZTMINQ, Part 1A (Help) ;4/19/90  12:11 ;

 ;;8.0;KERNEL;;Jul 10, 1995

 ;

ENTRY G ^XUTMQ

 ;

HELP ;Help Prompt For '?'

 N ZT W @IOF,!!,"This option can only display the tasks that are currently defined on this",!?5,"volume set."

 W !!,"Enter A to see all tasks that you created."

 W !,"Enter Y to see all currently scheduled or waiting tasks that you created."

 W !,"Enter E to see every task."

 W !,"Enter L to pick by number the tasks you want to see."

 W !,"Enter U to see tasks that errored, were rejected, or were unscheduled."

 W:%ZTF !,"Enter F to see all currently scheduled or waiting tasks."

 W:%ZTI !,"Enter T to see all tasks waiting for busy devices to become available."

 W:%ZTI !,"Enter W to pick a device, and see all tasks waiting for that device."

 W:%ZTR !,"Enter R to see all tasks that are currently running."

 W:%ZTL !,"Enter C to see all tasks waiting for a dropped link to be restored."

 F ZT=0:0 R !!,"Press RETURN to continue: ",ZT:$S($D(DTIME)#2:DTIME,1:60) Q:ZT=""!(ZT="^")  W !!,"Enter either RETURN or '^'" W:ZT'["?" $C(7)

 W @IOF Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XUTMQH   1118     printed  Apr 09, 2024@21:07:44                                                                                                                                                                                                      Page 2

XUTMQH    ;SEA/RDS - TaskMan: Option, ZTMINQ, Part 1A (Help) ;4/19/90  12:11 ;

 +1       ;;8.0;KERNEL;;Jul 10, 1995

 +2       ;

ENTRY      GOTO ^XUTMQ

 +1       ;

HELP      ;Help Prompt For '?'

 +1        NEW ZT

           WRITE @IOF,!!,"This option can only display the tasks that are currently defined on this",!?5,"volume set."

 +2        WRITE !!,"Enter A to see all tasks that you created."

 +3        WRITE !,"Enter Y to see all currently scheduled or waiting tasks that you created."

 +4        WRITE !,"Enter E to see every task."

 +5        WRITE !,"Enter L to pick by number the tasks you want to see."

 +6        WRITE !,"Enter U to see tasks that errored, were rejected, or were unscheduled."

 +7        if %ZTF

               WRITE !,"Enter F to see all currently scheduled or waiting tasks."

 +8        if %ZTI

               WRITE !,"Enter T to see all tasks waiting for busy devices to become available."

 +9        if %ZTI

               WRITE !,"Enter W to pick a device, and see all tasks waiting for that device."

 +10       if %ZTR

               WRITE !,"Enter R to see all tasks that are currently running."

 +11       if %ZTL

               WRITE !,"Enter C to see all tasks waiting for a dropped link to be restored."

 +12       FOR ZT=0:0

               READ !!,"Press RETURN to continue: ",ZT:$SELECT($DATA(DTIME)#2:DTIME,1:60)

               if ZT=""!(ZT="^")

                   QUIT 

               WRITE !!,"Enter either RETURN or '^'"

               if ZT'["?"

                   WRITE $CHAR(7)

 +13       WRITE @IOF

           QUIT 

 +14      ;