/******************************************************************************
 * Programme : Demostración de ejecución paralela SAS/CONNECT
 * Reference : DEMOST4D8D
 * Source    : https://www.wearecas.eu/en/sampleCode/DEMOST4D8D
 ******************************************************************************/

/* --- BLOC 1 --- */
options
  metaserver='my.sas.server'
  metaport=8561
  metaprotocol='bridge'
  metauser='sasdemo'
  metapass='password'
  metarepository='Foundation'
  metaconnect='NONE';

%let rc=%sysfunc(grdsvc_enable(_all_, server=SASApp));

/* --- BLOC 2 --- */
%let st_tm=%SYSFUNC(time(),time.);
SIGNON sess1;
rsubmit sess1 wait=no;
  data _null_;
    rc=sleep(10,1);
  run;
  %put Note: Sess1 waited 10 seconds;
endrsubmit;

/* --- BLOC 3 --- */
SIGNON sess2;
rsubmit sess2 wait=no;
  data _null_;
    rc=sleep(10,1);
  run;
  %put Note: Sess2 waited 10 seconds;
endrsubmit;

/* --- BLOC 4 --- */
waitfor _all_;
SIGNOFF _all_;

/* --- BLOC 5 --- */
%let en_tm=%SYSFUNC(time(),time.) ;
data _null_;
  st_tm="&st_tm"t;
  en_tm="&en_tm"t;
  int=intck('seconds',st_tm,en_tm);
  put "Interval is " int "seconds.";
run;