-
Notifications
You must be signed in to change notification settings - Fork 8
/
pm.sas
36 lines (25 loc) · 1.33 KB
/
pm.sas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
%macro PM / pbuff des="Post a message using a pop-up";
/********************************************************************************
BEGIN MACRO HEADER
********************************************************************************
Name: PM
Author: Chris Swenson
Created: 2010-08-24
Purpose: Post a message using a pop-up
Arguments: Message to display
Revisions
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Date Author Comments
¯¯¯¯¯¯¯¯¯¯ ¯¯¯¯¯¯ ¯¯¯¯¯¯¯¯
YYYY-MM-DD III Please use this format and insert new entries above
********************************************************************************
END MACRO HEADER
********************************************************************************/
%local msg;
%let msg=%substr(%bquote(&syspbuff), 2, %length(%bquote(&syspbuff))-2);
/* Check for quotes */
%if %index(*%str(%')*%str(%")*, *%bquote(%substr(%bquote(&msg), 1, 1)*))>0
and %index(*%str(%')*%str(%")*, *%bquote(%substr(%bquote(&msg), %length(%bquote(&msg)), 1)*))>0
%then %let msg=%substr(%bquote(&msg), 2, %length(%bquote(&msg))-2);
dm "postmessage %bquote(')&MSG%bquote(')";
%mend PM;