fix: adding quit statement so that exit loop would work on step boundary

sasjs · Jan 21, 2021 · 82184bc · 82184bc
1 parent efc731c
commit 82184bc
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/all.sas b/all.sas
@@ -4782,6 +4782,7 @@ proc sql
 %local lib dir ds1 ds2 ds3 start_tm i;
 
 %let start_tm=%sysfunc(datetime());
+%let duration=%sysevalf(&duration);
 
 /* create a temporary library in WORK */
 %let lib=%mf_getuniquelibref();
@@ -4809,7 +4810,7 @@ libname &lib "%sysfunc(pathname(work))/&dir";
   proc summary ;
     class randnum0 randnum1;
     output out=&lib..&ds2;
-  run;
+  run;quit;
   %if %sysevalf( (%sysfunc(datetime())-&start_tm)>&duration ) %then %goto gate;
 
   /* add more data */
@@ -4818,6 +4819,7 @@ libname &lib "%sysfunc(pathname(work))/&dir";
     select *, ranuni(0)*10 as randnum2
   from &lib..&ds1
   order by randnum1;
+  quit;
   %if %sysevalf( (%sysfunc(datetime())-&start_tm)>&duration ) %then %goto gate;
 
   proc sort data=&lib..&ds3;

diff --git a/base/mp_testjob.sas b/base/mp_testjob.sas
@@ -26,6 +26,7 @@
 %local lib dir ds1 ds2 ds3 start_tm i;
 
 %let start_tm=%sysfunc(datetime());
+%let duration=%sysevalf(&duration);
 
 /* create a temporary library in WORK */
 %let lib=%mf_getuniquelibref();
@@ -53,7 +54,7 @@ libname &lib "%sysfunc(pathname(work))/&dir";
   proc summary ;
     class randnum0 randnum1;
     output out=&lib..&ds2;
-  run;
+  run;quit;
   %if %sysevalf( (%sysfunc(datetime())-&start_tm)>&duration ) %then %goto gate;
 
   /* add more data */
@@ -62,6 +63,7 @@ libname &lib "%sysfunc(pathname(work))/&dir";
     select *, ranuni(0)*10 as randnum2
   from &lib..&ds1
   order by randnum1;
+  quit;
   %if %sysevalf( (%sysfunc(datetime())-&start_tm)>&duration ) %then %goto gate;
 
   proc sort data=&lib..&ds3;