1 "  BEGIN:   ls_macros.incl.alm                                *  *  *  *  *  */
 2 
 3 " HISTORY COMMENTS:
 4 "  1) change(85-09-01,Coren), approve(87-07-14,MCR7679),
 5 "     audit(87-03-18,GDixon), install(87-08-04,MR12.1-1056):
 6 "     Initial coding.
 7 "                                                      END HISTORY COMMENTS
 8 
 9 "This include file contains macros used in data segments for the login server.
10 
11 " LS_MESSAGE MACRO
12 "
13 " This macro, adapted from the ec macro, is used to define a message
14 " to be used as an ioa_ control string, as follows:
15 "
16 "         ls_message name,(message)
17 "
18 " If more than a single name is to be defined for a given message,
19 " a list of names separated by commas and enclosed in parentheses
20 " must be given. message is enclosed
21 " in parentheses in order to cause ALM to ignore embedded blanks.  Please
22 " note that double quote characters in message
23 " must be doubled in order to make the ALM assembly work properly.
24 " Note that a macro invocation line terminated by a comma will cause that
25 " statement to be continued on the next line.
26 " The ls_message macro assumes the use of the et macro (defined in
27 " et_macros.incl.alm) to define the table itself.
28 
29 macro     ls_message
30           use       codes
31 
32           maclist   on,save
33 &(1       segdef  &i
34 &)        maclist   restore
35 &(1&i:
36 &)        maclist   object,save
37           zero      .segno,&U
38           maclist   restore
39           use       messages
40 &U:
41           maclist   on,save
42           acc  "&2"
43 
44           maclist   restore
45           &end
46 
47 "  END OF:  ls_macros.incl.alm                                *  *  *  *  *  */