Type : CREATION_INTERNE
Der Code verwendet keine externen Rohdatenquellen. Er arbeitet mit bestehenden SAS-Tabellen, die als Parameter übergeben werden.
| 1 | %macro assert_empty( DS, |
| 2 | MESSAGE=DATA SET &DS not empty, |
| 3 | TYPE=, |
| 4 | LEVEL=, |
| 5 | ATTACHDATA=, |
| 6 | ATTACHFILE=, |
| 7 | METRIC=, |
| 8 | PROPERTIES=, |
| 9 | ON_EVENT=, |
| 10 | DESCRIPTION=, ABORT= ); |
| 11 | |
| 12 | %let futs_tst_cnt = %eval(&futs_tst_cnt.+1); |
| 13 | |
| 14 | %IF %exist(&DS) %THEN |
| 15 | %IF %obs(&DS) > 0 %THEN |
| 16 | %generate_event(TYPE=&TYPE, LEVEL=&LEVEL, |
| 17 | MESSAGE=&MESSAGE, |
| 18 | ATTACHDATA=&ATTACHDATA, ATTACHFILE=&ATTACHFILE, |
| 19 | METRIC=&METRIC, |
| 20 | PROPERTIES=&PROPERTIES, |
| 21 | ON_EVENT=&ON_EVENT, |
| 22 | DESCRIPTION=&DESCRIPTION, ABORT=&ABORT); |
| 23 | |
| 24 | %mend assert_empty; |