RECORD (SD.Def) _srcRec
RECORD (SD.Def) _dstRec
BEGIN
REDIM _srcRec[10]
REDIM _dstRec[10]
; Activity of SETCOLTIME action
IF _srcRec\DIM # _dstRec\DIM THEN
; The error _ERR_RANGE_ERROR
END
ENDIF
INT _row
_row := 1
DO_LOOP
EXIT_LOOP _row > _srcRec\DIM
IF ! _srcRec[_row]^TimeCol\VLD THEN
; Error
END
ENDIF
_dstRec[_row]^ValueCol := _dstRec[_row]^ValueCol TIME _srcRec[_row]^TimeCol
_row := _row + 1
END_LOOP
; End of the action
END
Pridať komentár