Ì € i 2
main
[batch]
*(S)SRT[srt]
Field Name Len Dat Typ J DPM Offset/Local/VAL
batch 7 PINT R srt
account 30 FREE L LAB.C.PAT
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)
Index Files Subscripts/Physical Base
activity.by.date.x [date,time,site,batch]
?(S)SRTAD[srtD,srtT,srs,srt]
activity.by.pat.x [account,date,time,batch] = LAB.C.RB.batch
?(S)SRTAP[aa,srtD,srtT,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]
|
|
|