Procedure Vdisc(nam: ch6; det: ch10; var stat: VI_status_type);
   EXTERNAL;
{*USER*
 
Disconnect from one or all form jobs currently in "connected form list".  This
is done by sending a "disconnect" (PK_RESOURCE/PS_CLOSE) to the task(s).
If the task name in NAM is all blank (or all null, which is a cleared string),
the disconnect message will be sent to all tasks currently connected.
If the task name in NAM is non-blank and non-null, the disconnect message will
be sent ONLY to the specified task.
 
The value supplied in DET will be used for the RESOURCE_DETAIL field of
the message.  The return processing status will be returned in STAT.
 
VDISC is the one of four commonly used VIEWPORT interface calls (VINIT,
VSEND, VRECV and VDISC).  It will use the other VIEWPORT interface calls
for its work, making it uneccesary for the normal user to call any other
VIEWPORT interface calls.
 
This call is normally made when the user is trying to recover from
an error (resyncronize), or doing an orderly abort.
 
*ERROR CODES*
 
VI_SUCCESS - If single job was specified, it was on the
             connected job list, and was sent a disconnect
             message and removed from the list.  If no specific
             job specified, all jobs on the connected job
             list were sent a disconnect message and removed
             from the list.
 
VI_NOT_CONNECTED - The specific job specified was not
                   found on the connected job list.  However,
                   a disconnect message was still sent
                   to the job if it was in the system.
 
}