1 /****^  ***********************************************************
 2         *                                                         *
 3         * Copyright, (C) Honeywell Bull Inc., 1988                *
 4         *                                                         *
 5         * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 6         *                                                         *
 7         * Copyright (c) 1972 by Massachusetts Institute of        *
 8         * Technology and Honeywell Information Systems, Inc.      *
 9         *                                                         *
10         *********************************************************** */
11 
12 
13 setid_:   procedure(symlnk);
14 /*^L*/
15 %include varcom;
16 /*^L*/
17 dcl       inputs_$getid       ext entry;
18 dcl       glpl_$setblk        ext entry(fixed bin (26), fixed bin (26)) returns(fixed bin (35));
19 dcl       (symlnk, count)     fixed bin (35);
20 /*^L*/
21           call inputs_$getid;
22           count = fixed(substr(unspec(sym(1)),1,9),9,0);
23           if count = 0 then symlnk = 0;
24           else symlnk = glpl_$setblk(sym(1),divide(count+4,4,26,0));
25           return;
26 end setid_;