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_;