{
{    This procedure expands the PTL.
{
{        OSP$EXPAND_PTL (UNCONDITIONALLY_EXPAND, STATUS)
{
{  UNCONDITIONALLY_EXPAND: (input) This boolean parameter specifies whether
{        or not the PTL will be expanded if there are already free entries
{        available.
{
{  STATUS: (output) This parameter specifies the result of the procedure.
{
