Make row 1, column 5 use center justification.
if rownum eq 1 then do;
  call send(gddvecid, '_setIndex', 5);
  rc = insertn(collst, 5, -1);
  call send(gddvecid, '_setHjust', 'CENTER');
end;

call send(viewerid, '_updateColumn', collst);