1 /* BEGIN INCLUDE FILE gtss_filact_intp6.incl.pl1 */
 2 /*
 3   Created: (Wardd Multics)  10/05/78 1602.9 mst Thu
 4 */
 5 provide_bcd_name: proc (fnia, no, bp, pd);
 6 
 7 /**       Provide caller with file name in BCD.
 8           fnia="1"b => file name is in ascii.
 9           no offset in caller's memory to file name.
10           bp pointer to caller's buffer.
11           pd is "pd" field of caller's status.
12 **/
13 dcl  fnia                     bit(1)parm;
14 dcl  no                       bit(18)parm;
15 dcl  bp                       ptr parm;
16 dcl  pd                       bit(18)parm;
17           if fnia then do;                                  /* Name must be converted. */
18                np = addrel (bp, 51);
19                call gtss_ascii_bcd_ (addrel (gseg, no), 8, np);
20                last4 = (4)"20"b3;                           /* Blank last 4 BCD characters. */
21                pd = rel (np);
22                return;
23           end;
24 
25 /**       Name already in BCD.          **/
26           pd = no;
27           return;
28 
29 dcl  np                       ptr init(null());
30 
31 dcl 1 bcdname aligned based(np),
32     2 first8        bit(48)unal         /* First 8 BCD characters. */,
33     2 last4         bit(24)unal         /* LaST $ BCD characters. */;
34      end                                                    /* provide_bcd_name */;
35 /*   END INCLUDE FILE gtss_filact_intp6.incl.pl1 */