1 | LBRYREPT ;SSI/ALA-LIBRARY PACKAGE STATUS REPORT ;[ 09/02/97 3:20 PM ]
|
---|
2 | ;;2.5;Library;**2**;Mar 11, 1996
|
---|
3 | EN ; Report on the status of the Library TaskMan options
|
---|
4 | W !!,"LIBRARY TASKMAN OPTIONS STATUS REPORT",!
|
---|
5 | F OPT="LBRY TRAN SEND","LBRY TRAN PROCESS","LBRY TRAN PURGE" D DS
|
---|
6 | R !!,"Press Return to Continue: ",X:DTIME
|
---|
7 | K OPT,DA,TSK,Y,LDT,FRQ
|
---|
8 | Q
|
---|
9 | DS ; Check and display options
|
---|
10 | I $$FIND^XUTMOPT(OPT)=-1 D Q
|
---|
11 | . W !!!,OPT," is not set up in TaskMan. Please call IRM."
|
---|
12 | S DIC(0)="NZ",DIC="^DIC(19.2,",X=OPT D ^DIC
|
---|
13 | S DA=+Y,TSK=Y(0),FRQ=$P(TSK,"^",6)
|
---|
14 | S Y=$P(TSK,"^",2),LDT=$$FMTE^XLFDT(Y,1)
|
---|
15 | W !,OPT,?20,"Frequency: ",FRQ,?40,"Run Time: ",LDT
|
---|
16 | Q
|
---|