*
*
*
*
*
*
*
*
*
*
$include ccall.common
*
      A = \123"'`\
      CALL CSUB.SETSID
   end
