Email-ek arhiválása
DATAFILE ArhivMails = AHMAILS <module:AL>
VERSION 1
[ 1 :
Típus : CARD8
Kötet : ASCII 2
Ügyfél : ÜgyfélTörzs.Kód <LinkedTo>
THely : ÜgyfélThely.Kód <LinkedTo>
Szemely : ÜgyfélSzem.Kód <LinkedTo>
SajSzem : SzemélyTörzs.Kód <LinkedTo>
AutoId : CARD32
Címzett : ASCII 50
Feladó : ASCII 50
Tárgy : ASCII 50
Operátor : CARD8
Dátum : DOSDATE
Idő : LBCD 4 '99:99'
BizTípus : ENUM '%BizTípus%'
BizSzám : ASCII 40
FileId : CARD32
]
INDEX DUPKEY [ Dátum+Idő ]
INDEX DUPKEY [ Kötet+Ügyfél+THely+Szemely+Dátum+Idő ]
INDEX DUPKEY [ Címzett+Dátum+Idő ]
END DATAFILE ArhivMails;