
{
{   The purpose of this procedure is to initialize a newly started jobs
{  environment. The procedure is called by tasking only for a new job and only
{  once for the new job. The procedure will perform functions such as moving
{  Job Templates into the various job segments, initialize respective heaps,
{  and other similar functions. Upon returning to tasking, the jobs initial
{  execution ring, a Program Descriptor, and Program Parameters for the
{  Job Monitor of the requesting job are formed and passed back to tasking
{  as return parameters of the initial call.
{
{     JMP$INITIALIZE_JOB_ENVIRONMENT ( JMTR_INITIAL_RING,
{       JMTR_PROGRAM_DESCRIPTION_P, JMTR_PROGRAM_PARAMETERS_P, STATUS)
{
{  JMTR_INITIAL_RING: (output) This parameter specifies the initial execution
{                              of the Job Monitor for the requesting job.
{
{  JMTR_PROGRAM_DESCRIPTION_P: (output) This parameter specifies the pointer
{                                       to the Program Description for the Job
{                                       Monitor of the requesting job.
{
{  JMTR_PROGRAM_PARAMETERS_P: (output) This parameter specifies the pointer
{                                      to the Program Parameters for the Job
{                                      Monitor of the requesting job.
{
{  STATUS: (output) This parameter specifies the request status.
{

