/******************************************************************************
 * Programme : Standardisez vos développements SAS : Créez automatiquement vos macros et fichiers de tests
 * Reference : GENERAD8DB
 * Source    : https://www.wearecas.eu/en/sampleCode/GENERAD8DB
 ******************************************************************************/

/* --- BLOC 1 --- */
%macro newmacro(name, srcid=);
    %if "&srcid."="" %then
        %do;

            %if not %symexist(g_curr) %then
                %do;
                    %put ERROR: Source Folder not specified!;
                    %return;
                %end;
            %else
                %do;
                    %let srcid=&g_curr;
                %end;
        %end;
    %local fname;
    %let fname=%canonicalname(&name.);

    %if "&fname."="" %then
        %do;
            %put ERROR: Specified macro name <&name.> is invalid!;
            %return;
        %end;
    %local path;
    %let path=%getpath(&fname., srcid=&srcid.);

    %if "&path"="" %then
        %do;
            %put ERROR: Source Folder not specified!;
            %goto testfile;
        %end;
    %else %if %sysfunc(fileexist(&path.)) %then
        %do;
            %put NOTE: Macro<&fname.> has already existed!;
            %goto testfile;
        %end;
        
    %local author;
    %let author=Daniel YU;

    data _null_;
        file "&path.";
        year=put(year(date()), 4.);
        date=put(date(), yymmdd10.);
        time=put(time(), tod8.);
        put '/*************************************************';
        put '* Copyright(c) ' year 'coco, All Rights Reserved.';
        put "* @html/SAS Help Center_ isAuthorized Action.html  &author.";
        put '* @since   ' date time;
        put '* @code_sas_json_prod_multi/dsc_cdm_version_update_de.json 1.0';
        put "* ";
        put '*************************************************/';
        put ' ';
        put '%macro ' "&fname.();";
        put ' %* Please write code here;;';
        put '%mend;';
        stop;
    run;

%testfile:
    %let path=%getpath(&fname., suffix=_test, srcid=&srcid.);

    %if "&path"="" %then
        %do;
            %put ERROR: Source Folder not specified!;
            %return;
        %end;
    %else %if %sysfunc(fileexist(&path.)) %then
        %do;
            %put NOTE: Macro<&fname.> test has already existed!;
            %return;
        %end;

    data _null_;
        file "&path.";
        put "%*Please write test code here;;";
        put '%*%asserteq( ,%' "&fname.());";
        put '%*%assertne( ,%' "&fname.());";
        put '%*%assertref( );';
    run;

%mend;