GETCOLTIME   _srcRec^Col, _dstRec^DateTimeCol

 RECORD (SD.Def) _srcRec
 RECORD (SD.Def) _dstRec
 
 BEGIN
   REDIM _srcRec[10]
   REDIM _dstRec[10]
 

 ; Činnosť akcie GETCOLTIME
   IF _srcRec\DIM # _dstRec\DIM THEN
     ; CHYBA _ERR_RANGE_ERROR
     END
   ENDIF
 

   INT _row
   _row := 1
   DO_LOOP
     EXIT_LOOP _row > _srcRec\DIM
     _dstRec[_row]^DateTimeCol := _srcRec[_row]^Col\TIM
     _row := _row + 1
   END_LOOP
 ; koniec akcie
 
 END 

 GETCOLTIME _srcRec^Col, _dstRec^DateTimeCol