Préparer un poisson d'avril avec SAS est une bonne occasion de travailler quelques fonctionnalités de SAS originales.

Dans mon service, nous travaillons avec un autoexec partagé. J'y ai rajouté ce matin (le lancer pour voir le résultat) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
dm   "log;  autoscroll 1" log;
data _NULL_ ;
start_time = time() ; do while ( (time() - start_time) < 0.25) ; i = 1 ; end ; putlog  ////////  ;
putlog  "ERROR: FATAL SYSTEM ERROR #127                                                               " ;
putlog  "ERROR: User &sysuserid. profile will be deleted                                              " ;
putlog  "ERROR: SAS will be closed in 3 seconds                                                       "  ;
run ;
data _NULL_ ;
 
start_time = time() ; do while ( (time() - start_time) < 3   ) ; i = 1 ; end ; putlog  /////  "                           ,-.-,-,"             ;
start_time = time() ; do while ( (time() - start_time) < 0.25) ; i = 1 ; end ; putlog         "                          _/ / / /       /)"    ;
start_time = time() ; do while ( (time() - start_time) < 0.25) ; i = 1 ; end ; putlog         "                        ,'        `.   ,'')"    ;
start_time = time() ; do while ( (time() - start_time) < 0.25) ; i = 1 ; end ; putlog         "                      _/(@) `.      `./ ,')"    ;
start_time = time() ; do while ( (time() - start_time) < 0.25) ; i = 1 ; end ; putlog         "                     (____,`  \:`-.   \ ,')"    ;
start_time = time() ; do while ( (time() - start_time) < 0.25) ; i = 1 ; end ; putlog         "                      (_      /::::}  / `.)"    ;
start_time = time() ; do while ( (time() - start_time) < 0.25) ; i = 1 ; end ; putlog         "                       \    ,' :,-' ,)\ `.)"    ;
start_time = time() ; do while ( (time() - start_time) < 0.25) ; i = 1 ; end ; putlog         "                        `.        ,')  `..)"    ;
start_time = time() ; do while ( (time() - start_time) < 0.25) ; i = 1 ; end ; putlog         "                          \-....-'\      \)  "  ;
start_time = time() ; do while ( (time() - start_time) < 0.25) ; i = 1 ; end ; putlog         "                           `-`-`-`-`"          ////  ;
start_time = time() ; do while ( (time() - start_time) < 0.5 ) ; i = 1 ; end ; putlog        /"                     P O I S S O N   D ' A V R I L    !   !   ! " ///////// ;
start_time = time() ; do while ( (time() - start_time) < 1   ) ; i = 1 ; end ;
run ;
dm  "log; autoscroll 0"  log ;
D'autres idées pour un bon poisson d'avril SAS ?