-
Notifications
You must be signed in to change notification settings - Fork 20
/
QSHONISRVH.RPGLE
107 lines (100 loc) · 4.15 KB
/
QSHONISRVH.RPGLE
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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
**FREE
// Run CL command line via QCMDEXC program call
Dcl-PR QcmdExc Extpgm('QCMDEXC');
*N Char(5000) Const Options(*Varsize);
*N Packed(15:5) Const;
End-PR;
// Run QSHGETPARR rpg program to get return values
Dcl-PR QshGetParr Extpgm('QSHGETPARR');
parm01 Char(255);
parm02 Char(255);
parm03 Char(255);
parm04 Char(255);
parm05 Char(255);
parm06 Char(255);
parm07 Char(255);
parm08 Char(255);
parm09 Char(255);
parm10 Char(255);
End-PR;
// Run CL command via wrapper procedure
// that calls QCmdExc and monitors for errors.
Dcl-PR RunClCmd Int(10:0);
*N VarChar(5000) const;
End-PR;
// Run pase command via QSHEXEC command
Dcl-PR QshExec Int(10:0);
cmdln VarChar(5000) const;
setpkgpath VarChar(4) const;
dspstdout VarChar(5) const;
logstdout VarChar(5) const;
prtstdout VarChar(5) const;
dltstdout VarChar(5) const;
ifsstdout VarChar(5) const;
ifsfile VarChar(255) const;
ifsopt VarChar(10) const;
ccsid VarChar(10) const;
prtsplf VarChar(10) const;
prtusrdta VarChar(10) const;
prttxt VarChar(30) const;
prthold VarChar(4) const;
prtoutq VarChar(21) const;
outfile VarChar(21) const;
mbropt VarChar(10) const;
pasejobnam VarChar(10) const;
promptcmd VarChar(5) const;
End-PR;
// Run pase command via QSHBASH CL command
Dcl-PR QshBash Int(10:0);
cmdln VarChar(5000) const;
setpkgpath VarChar(4) const;
dspstdout VarChar(5) const;
logstdout VarChar(5) const;
prtstdout VarChar(5) const;
dltstdout VarChar(5) const;
ifsstdout VarChar(5) const;
ifsfile VarChar(255) const;
ifsopt VarChar(10) const;
ccsid VarChar(10) const;
prtsplf VarChar(10) const;
prtusrdta VarChar(10) const;
prttxt VarChar(30) const;
prthold VarChar(4) const;
prtoutq VarChar(21) const;
outfile VarChar(21) const;
mbropt VarChar(10) const;
pasejobnam VarChar(10) const;
promptcmd VarChar(5) const;
End-PR;
// Run pase command via QSHCALL CL command and return values
Dcl-PR QshCall Int(10:0);
cmdln VarChar(5000) const;
setpkgpath VarChar(4) const;
dspstdout VarChar(5) const;
logstdout VarChar(5) const;
prtstdout VarChar(5) const;
dltstdout VarChar(5) const;
ifsstdout VarChar(5) const;
ifsfile VarChar(255) const;
ifsopt VarChar(10) const;
ccsid VarChar(10) const;
prtsplf VarChar(10) const;
prtusrdta VarChar(10) const;
prttxt VarChar(30) const;
prthold VarChar(4) const;
prtoutq VarChar(21) const;
outfile VarChar(21) const;
mbropt VarChar(10) const;
pasejobnam VarChar(10) const;
promptcmd VarChar(5) const;
rtnparm01 Char(255);
rtnparm02 Char(255);
rtnparm03 Char(255);
rtnparm04 Char(255);
rtnparm05 Char(255);
rtnparm06 Char(255);
rtnparm07 Char(255);
rtnparm08 Char(255);
rtnparm09 Char(255);
rtnparm10 Char(255);
End-PR;