/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* eachwrk APL2 V1.0.0 *************************************************
* Called from eachdyaf and eachmona to set up a work Aplcb if the      *
* argument is not nested.                                              *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb eachwrk(argin)
Aplcb argin; /* input */
{
     Getcb;

     if (argin->aplflags & APLAPL)
     	return(NULL); /* no work variable needed */
     return(getcb(NULL, 1, argin->aplflags & APLMASK, 0, NULL));
}