*! version 1.0.1  13aug2025
program markobs

    version 11.2

    capture syntax varlist(ts fv) [ , * ]
    if ( _rc ) {

        gettoken newmarkvar 0 : 0

        nobreak {

            mark `newmarkvar' `macval(0)'

            char `newmarkvar'[markobs] OK

        }

        exit

    }

    gettoken markvar : varlist

    local OK : char `markvar'[markobs]

    if ("`OK'" != "OK") {

        display as err "`markvar' not created by markobs"
        exit 498

    }

    markout `macval(0)'

end


exit


/*  _________________________________________________________________________

1.0.1   13aug2025   fix error message
1.0.0   12aug2025   release on GitHub