/*
  routine to initialize a PL/I string descriptor
*/
#include <clang.c>;
#include <plistring.c>;

plisdi(sdp, typevarying, sptr, slen)
  register plistring sdp; boolean typevarying; charpointer sptr; int slen;
{
  sdp->plisdsiz = slen;
  iff typevarying then sdp->plisdsiz |= 0100000;
  sdp->plisddmy = slen; /*fixed strings must have size in 2nd word*/
  sdp->plisdptr.plisdvsp = sptr;
/*
  note that for varying strings, the current length word is not set -
  caller must initialize, e.g. via plicpy or pliset
*/
}