/******************************************************************************
 * Programme : System File Creation Macro
 * Reference : SYSTEM25B5
 * Source    : https://www.wearecas.eu/en/sampleCode/SYSTEM25B5
 ******************************************************************************/

/* --- BLOC 1 --- */
%macro AHGcreatefile(
dir=%AHGtempdir,
filename=,
fullname=,
str=%str());
    %if %AHGblank(&fullname) and not %sysfunc(fileexist(&dir/tmp&filename..tmp))  %then  x "echo ""&str"" >&dir/tmp&filename..tmp";
    %else %if not %AHGblank(&fullname) and not %sysfunc(fileexist(&fullname))  %then x "echo ""&str"" >&fullname"
    ;
%mend;