-
Notifications
You must be signed in to change notification settings - Fork 20
/
QSHONIPR02.RPGLE
81 lines (62 loc) · 2.51 KB
/
QSHONIPR02.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
**FREE
Ctl-Opt DFTACTGRP(*NO) BNDDIR('QSHONI/QSHONISRV') OPTION(*SRCSTMT);
Dcl-F STDOUTQSH DISK(1000) Usage(*Input) usropn;
//TODO:
// Retrieve error message and CPF ID on failure if needed.
Dcl-Ds *N psds;
PROGID *PROC;
End-Ds;
Dcl-Ds qshlog;
logrecord char(1000);
End-Ds;
// Work fields
Dcl-S qt Char(1) inz('''');
Dcl-S clcmd VarChar(5000) inz('');
dcl-s rtncmd int(10);
// Include QSHONISRV service program prototypes
/copy qshoni/source,qshonisrvh
// Sample CL command call. 0=Success, -2=Errors
// Uncomment if you want to test calling a CL command.
// rtncmd=RunClCmd('SNDMSG MSG(TEST) TOUSR(QSYSOPR);
// Sample QSHBASH QShell/PASE command call. 0=Success, -2=Errors
// Prompt for the CL command and display STDOUT after run.
// Lists files in /tmp directory.
rtncmd=QshBash('cd /tmp;ls -l': // QSH/PASE command line
'*YES': // SETPKGPATH
'*YES': // DSPSTDOUT
'*NO': // LOGSTDOUT
'*NO': // PRTSTDOUT
'*YES': // DLTSTDOUT
'*NO': // IFSSTDOUT
'': // IFSFILE
'*REPLACE': // IFSOPT
'*SAME': // CCSID
'QSHONIPR1': // PRTSPLF
'': // PRTUSRDTA
'': // PRTTXT
'*NO': // PRTHOLD
'*SAME': // PRTOUTQ
'QTEMP/STDOUTQSH': // OUTFILE
'*REPLACE': // MBROPT
'*DEFAULT': // PASEJOBNAM
'*YES');// Prompt Command (Interactive debug or use)
// Note: This section reads the STDOUT log file.
// Make sure to only create STDOUTQSH in QTEMP library
// so the job only gets its own STDOUTQSH file.
// Open log file and set to beginning of
open STDOUTQSH;
setll *start STDOUTQSH;
// Read all records in QTEMP/STDOUTQSH file
dou %eof(STDOUTQSH);
// Read next record from STDOUTQSH
read STDOUTQSH qshlog;
// Process and scan or extract info from record1 field as needed
// If end of file, exit process loop
if %eof(STDOUTQSH);
leave;
endif;
enddo;
// Exit the program now. We're done
close STDOUTQSH;
*inlr=*on;
return;