Ì € i 2
lab.p.msg.audits (audits)
[urn, au.q]
?SPM[spm]A[spmAQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
au.q 3 PINT R spmAQ
au.action 13 FREE L ?SPM[spm]A[spmAQ]|2
au.date 8 DATE L VAL=%Z.date.in.magic(@au.seconds)
au.seconds 10 PINT R ?SPM[spm]A[spmAQ]|0
au.time 4 HHMM L VAL=%Z.time.out(@au.seconds)
au.user 10 FREE L MIS.USER ?SPM[spm]A[spmAQ]|1
au.user.name 34 FREE L VAL=@MIS.USER.name[@au.user]
Ì € i 2
lab.p.msg.message (message)
[urn, msg.q]
?SPM[spm]M[spmMQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
msg.q 3 PINT R spmMQ
msg.line 80 FREE L ?SPM[spm]M[spmMQ]
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
lab.p.msg.new.x [to,spec,urn]
new.x ?SPMN[spmT,sps,spm]
lab.p.msg.sent.x [sent.seconds,urn] = to
sent.x ?SPMS[spmS,spm]
lab.p.msg.spec.x [spec,urn] = to
spec.x ?SPMP[sps,spm]
|
|
|