" Empleando cabecera.
FORM guardar_tvarv_cabecera .
    " Variables empleadas para la toma del tiempo.
    DATA:
        rt_str TYPE i,
        rt_end TYPE i,
        run_time TYPE p DECIMALS 2.

    " Tpo. inicial.
    GET RUN TIME FIELD rt_str.

    CLEAR TVARVC.
    TVARVC-type = 'P'.
    TVARVC-name = 'Z_LAST_MONTH_XDAY'.
    TVARVC-numb = 0000.
    TVARVC-sign = 'I'.
    TVARVC-opti = 'EQ'.
    TVARVC-low = gv_laborable.
    MODIFY TVARVC.

    "Tpo. final.
    GET RUN TIME FIELD rt_end.
    run_time = ( rt_end - rt_str ) / 1000000 .

    WRITE: 'Runtime cabecera', run_time.
ENDFORM.                    " GUARDAR_TVARV

" Empleando fs.
FORM guardar_tvarv_fs .
    " Variables empleadas para la toma del tiempo.
    DATA:
        rt_str TYPE i,
        rt_end TYPE i,
        run_time TYPE p DECIMALS 2.

    " Creamos el fs
    FIELD-SYMBOLS <fs_TVARVC> LIKE LINE OF TVARVC.

    GET RUN TIME FIELD rt_str.

    <fs_TVARVC>-type = 'P'.
    <fs_TVARVC>-name = 'Z_LAST_MONTH_XDAY'.
    <fs_TVARVC>-numb = 0000.
    <fs_TVARVC>-sign = 'I'.
    <fs_TVARVC>-opti = 'EQ'.
    <fs_TVARVC>-low = gv_laborable.

    GET RUN TIME FIELD rt_end.
    run_time = ( rt_end - rt_str ) / 1000000 .

    WRITE: 'Runtime fs', run_time.