1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
/****************************************************************
* *
* Copyright 2001, 2007 Fidelity Information Services, Inc *
* *
* This source code contains the intellectual property *
* of its copyright holder(s), and is made available *
* under a license. If you do not know the terms of *
* the license, please stop and do not read further. *
* *
****************************************************************/
#include "mdef.h"
#include "gtm_string.h"
#include "gtm_stdlib.h"
#include "job.h"
/*
* -------------------------------------------------------------
* Load the child environment into parameter structure
* -------------------------------------------------------------
*/
void ojgetch_env(job_params_type *jparms)
{
/*
* Pass all information about the job via shell's environment
* The child will get those variables to obtain the info about the job.
*/
jparms->gbldir.addr = GETENV(GBLDIR_ENV);
if (jparms->gbldir.addr)
jparms->gbldir.len = STRLEN(jparms->gbldir.addr);
else
jparms->gbldir.len = 0;
jparms->input.addr = GETENV(IN_FILE_ENV);
if (jparms->input.addr)
jparms->input.len = STRLEN(jparms->input.addr);
else
jparms->input.len = 0;
jparms->output.addr = GETENV(OUT_FILE_ENV);
if (jparms->output.addr)
jparms->output.len = STRLEN(jparms->output.addr);
else
jparms->output.len = 0;
jparms->error.addr = GETENV(ERR_FILE_ENV);
if (jparms->error.addr)
jparms->error.len = STRLEN(jparms->error.addr);
else
jparms->error.len = 0;
jparms->routine.addr = GETENV(ROUTINE_ENV);
if (jparms->routine.addr)
jparms->routine.len = STRLEN(jparms->routine.addr);
else
jparms->routine.len = 0;
jparms->label.addr = GETENV(LABEL_ENV);
if (jparms->label.addr)
jparms->label.len = STRLEN(jparms->label.addr);
else
jparms->label.len = 0;
jparms->directory.addr = GETENV(CWD_ENV);
if (jparms->directory.addr)
jparms->directory.len = STRLEN(jparms->directory.addr);
else
jparms->directory.len = 0;
jparms->offset = (int)(ATOL(GETENV(OFFSET_ENV)));
}
|
