
{
{  The purpose of this request is to get the pointer to the execution control
{  block of a specified task.  If the job is swapped but IO has not been initiated
{  an ajl entry is assigned to allow access to the xcb.  Otherwise an
{  error is returned.
{
{    TMP$FIND_XCB (TASKID, XCB_P, IJLE_P, STATUS)
{
{  TASKID : (INPUT) This parameter specifies the taskid of the
{                   selected task.
{
{  XCB_P : (OUTPUT) This parameter specifies the pointer to the
{                   execution control block.
{
{  IJLE_P : (OUTPUT) This parameter specifies the pointer to the
{                    initiated job list entry.
{
{  STATUS : (OUTPUT) This parameter specifies the request status.
{
{  NOTE : This procedure will lock the ajl entry of the job if xcb access is
{         possible.  It is the callers responsibility to unlock the ajl with
{         a call to jmp$free_ajl_entry.
