Ì i 2
main
[batch]
*(S)SRT[srt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
batch 7 PINT R srt
batch.bkg.err.pgm 0 FREE L VAL=@Pgm.trans("%LAB.C.TELCOM.bkg.err")_"(1)"
date 8 DATE L *(S)SRT[srt]|0
entered.offset 9 TIME L *(S)SRT[srt]|1
eval.print.error 1 YN L VAL=IF{"Y"'=c.error.only;@LAB.C.TELCOM.except.x "Y";"N
VAL="}
eval.time 1 YN L VAL=IF{LAB.C.TELCOM.date=b.date=e.date IF{@LAB.C.TELCO
VAL=M.time'<b.time'>e.time "Y";"N"};LAB.C.TELCOM
VAL=.date=b.date IF{@LAB.C.TELCOM.time'<b.time "Y";
VAL="N"};LAB.C.TELCOM.date=e.date IF{@LAB.C.TELCOM.tim
VAL=e'>e.time "Y";"N"};"Y"}
from.date 8 DATE L *(S)SRT[srt]|10
from.date.ext 3 FREE L *(S)SRT[srt]|5
last.activity.date 8 DATE L VAL=-@LAB.C.TELCOM.activity.x[LAB.C.TELCOM.site,""]
line.class 10 FREE L MIS.LINE.CLASS
new.only 1 YN L *(S)SRT[srt]|7
print.q.cnt 1 PINT R *(S)SRT[srt]|14
printer 10 FREE L UNV.PRINTER *(S)SRT[srt]|12
printq.bkg.err.pgm 0 FREE L VAL=@Pgm.trans("%LAB.C.TELCOM.bkg.err")_"(2)"
prt.bkg.err.pgm 0 FREE L VAL=@Pgm.trans("%LAB.C.TELCOM.bkg.err")_"(3)"
records.printed 5 PINT R VAL=@LAB.C.RB.records.printed[LAB.C.TELCOM.report.batc
VAL=h]
records.sorted 5 PINT R VAL=@LAB.C.RB.records.sorted[LAB.C.TELCOM.report.batch
VAL=]
report 10 FREE L LAB.C.RPT *(S)SRT[srt]|4
report.batch 7 PINT R LAB.C.RB *(S)SRT[srt]|9
restart.batch 7 PINT R LAB.C.TELCOM *(S)SRT[srt]|8
schedule.bkg.err.pgm 0 FREE L VAL=@Pgm.trans("%LAB.C.TELCOM.bkg.err")_"(0)"
site 10 FREE L LAB.C.TELSITE *(S)SRT[srt]|2
status 10 CHOICE L *(S)SRT[srt]|13
telsite.type 9 CHOICE L *(S)SRT[srt]|15
temp.prefix 2 FREE L VAL=TE
thru.date 8 DATE L *(S)SRT[srt]|11
thru.date.ext 3 FREE L *(S)SRT[srt]|6
time 4 HHMM L VAL=%Z.time.out(@LAB.C.TELCOM.entered.offset)
type 6 CHOICE L *(S)SRT[srt]|3
Ì € i 2
audit.trail
[batch, audit.q]
*(S)SRT[srt]A[srtAQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
audit.q 2 PINT R srtAQ
audit.error.flag 1 YN L *(S)SRT[srt]A[srtAQ]|2
audit.line 60 FREE L *(S)SRT[srt]A[srtAQ]|1
audit.time 7 PINT R *(S)SRT[srt]A[srtAQ]|0
audit.time.out 8 FREE L VAL=%Z.time.dollar(@LAB.C.TELCOM.audit.time+@LAB.C.TEL
VAL=COM.entered.offset)
Ì i 2
print.active
[active.batch]
*(S)SRTT[srt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
active.batch 7 PINT R LAB.C.TELCOM srt
active.time 9 PINT R *(S)SRTT[srt]|0
Ì i 2
print.queue
[print.q]
*(S)SRTP[srtP]
Field Name Len Dat Typ J DPM Offset/Local/VAL
print.q 3 PINT R srtP
print.batch 7 PINT R LAB.C.TELCOM *(S)SRTP[srtP]|0
print.parameters 30 FREE L *(S)SRTP[srtP]|2
print.q.size 3 PINT R VAL=@Root(@LAB.C.TELCOM.print.queue)!0
print.time 9 PINT R *(S)SRTP[srtP]|1
Ì i 2
print.sites
[print.site,print.site.batch]
*(S)SRTPS[srs,srt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
print.site 10 FREE L LAB.C.TELSITE srs
print.site.batch 7 PINT R LAB.C.TELCOM srt
print.site.job PINT R *(S)SRTPS[srs,srt]|2
print.site.machine 30 FREE L UNV.CLIENT *(S)SRTPS[srs,srt]|1
print.site.status 6 CHOICE L *(S)SRTPS[srs,srt]|0
Ì i 2
site.queue
[site.q]
*(S)SRTS[srtS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
site.q 2 PINT R srtS
site.day 3 DAY L *(S)SRTS[srtS]|0
site.demand.data 30 FREE L *(S)SRTS[srtS]|7
site.immediate.count 2 PINT R *(S)SRTS[srtS]|5
site.immediate.priority 1 FREE L *(S)SRTS[srtS]|4
site.immediate.report 10 FREE L LAB.C.RPT *(S)SRTS[srtS]|6
site.q.size 3 PINT R VAL=@Root(@LAB.C.TELCOM.site.queue)!0
site.sort.key 6 PDEC R *(S)SRTS[srtS]|2
site.time 4 HHMM L *(S)SRTS[srtS]|1
site.urn 10 FREE L LAB.C.TELSITE *(S)SRTS[srtS]|3
Index Files Subscripts/Physical Base
activity.by.date.x [date,time,site,batch]
?(S)SRTAD[srtD,srtT,srs,srt]
activity.x [site,date,batch]
?(S)SRTA[srs,srtD,srt]
except.x [date,batch]
?(S)SRTE[srtD,srt]
printer.x [printer] = batch
?(S)SRTD[hup]
stop.x [report.batch] = batch
?(S)SRTSTP[sce]
|
|
| | | | |