Loading...
Searching...
No Matches
getdynamiccolvals.test.2.sas
Go to the documentation of this file.
1/**
2 @file
3 @brief testing getdynamiccolvals service
4
5 <h4> SAS Macros </h4>
6 @li mp_assertcolvals.sas
7 @li mf_getuniquefileref.sas
8 @li mx_testservice.sas
9
10**/
11
12%let _program=&appLoc/services/editors/getdynamiccolvals;
13
14/**
15 * check extended values
16 */
17
18%let f1=%mf_getuniquefileref();
19data _null_;
20 file &f1 termstr=crlf;
21 put 'libds:$41. variable_nm:$32.';
22 put "&dclib..MPE_TABLES,DSN";
23run;
24%let f2=%mf_getuniquefileref();
25data _null_;
26 file &f2 termstr=crlf;
27 put 'LIBREF:$char8. DSN:$char16. NUM_OF_APPROVALS_REQUIRED:best. LOADTYPE:$char10. '@;
28 put 'BUSKEY:$char35. VAR_TXFROM:$char7. VAR_TXTO:$char5. VAR_BUSFROM:$char1. '@;
29 put 'VAR_BUSTO:$char1. VAR_PROCESSED:$char1. CLOSE_VARS:$char1. PRE_EDIT_HOOK:$char1. '@;
30 put 'POST_EDIT_HOOK:$char1. PRE_APPROVE_HOOK:$char1. POST_APPROVE_HOOK:$char1. '@;
31 put 'SIGNOFF_COLS:$char1. SIGNOFF_HOOK:$char1. NOTES:$char55. RK_UNDERLYING:$char1. '@;
32 put 'AUDIT_LIBDS:$char1. _____DELETE__THIS__RECORD_____:$char2.';
33 put "&dclib,MPE_VALIDATIONS,14,TXTEMPORAL,BASE_LIB BASE_DS BASE_COL RULE_TYPE,TX_FROM"@;
34 put ',TX_TO, , , , , , , , ,,,Configuration of data quality rules in Editor component, , ,No';
35run;
36%mx_testservice(&_program,
37 viyacontext=&defaultcontext,
38 inputfiles=&f1:sascontroltable &f2:source_row,
39 outlib=web2,
40 mdebug=&sasjs_mdebug
41)
42
43data DYNAMIC_VALUES;
44 set web2.DYNAMIC_VALUES;
45 if _n_<2 then putlog (_all_)(=);
46run;
47
48data DYNAMIC_EXTENDED_VALUES;
49 set web2.DYNAMIC_EXTENDED_VALUES;
50 if _n_<5 then putlog (_all_)(=);
51run;
52
53data work.check;
54 val='VAR_PROCESSED';output;
55 val='VAR_TXFROM';output;
56 val='VAR_TXTO';output;
57 val='VAR_BUSFROM';output;
58 val='VAR_BUSTO';output;
59run;
60%mp_assertcolvals(work.DYNAMIC_EXTENDED_VALUES.element2,
61 checkvals=work.check.val,
62 desc=Correct values found in EXTRA_COL_NAME response,
63 test=ALLVALS
64)