| |
X |
* |
*PSSR |
BEGSR |
ENVVARS |
2 |
|
|
|
|
|
|
|
| |
X |
|
|
| |
X |
* |
*ENTRY |
PLIST |
ENVVARS |
3 |
|
|
|
|
|
|
|
| |
X |
|
|
|
H |
|
|
|
H |
*COPYRIGHT JÜRGEN REULE 2012-2023 |
|
|
H |
|
|
|
H |
BNDDIR('QC2LE') |
|
|
H |
DATFMT(*ISO) TIMFMT(*ISO) |
|
|
H |
DFTACTGRP(*NO) ACTGRP('QILE') |
|
|
H |
COPYRIGHT('COPYRIGHT JÜRGEN REULE 2012-2023') |
|
|
H |
|
|
|
D |
PTR |
|
|
S |
|
|
* |
|
|
INZ |
|
|
D |
VAR |
|
|
S |
|
|
* |
|
|
BASED(PTR) |
|
|
D |
ENVIRON |
|
|
S |
|
|
* |
|
|
IMPORT('environ') |
|
|
D |
INITENV |
|
|
PR |
|
10 |
I |
0 |
|
EXTPROC('Qp0zInitEnv') |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
BUF |
|
|
S |
|
32767 |
A |
|
|
VARYING |
|
|
D |
LINEX |
|
|
S |
|
1 |
A |
|
|
|
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
C |
|
|
|
CALLP(E) |
INITENV() |
|
|
C |
|
|
|
EVAL |
BUF = '' |
|
|
C |
|
|
|
EVAL |
PTR = ENVIRON |
|
|
C |
|
|
*NULL |
DOWNE |
VAR |
|
|
|
|
|
|
|
|
|
C |
|
|
|
EVAL |
BUF = BUF + %STR(VAR) + LINEX |
|
|
C |
|
|
|
EVAL |
PTR = PTR + %SIZE(VAR) |
|
|
C |
|
|
|
ENDDO |
|
|
|
|
|
|
|
|
|
|
C |
|
|
|
SETON |
|
|
|
|
— |
LR |
— |
|
|
|
C |
|
|
|
|
|
|
|
|
C |
|
|
*PSSR |
BEGSR |
|
|
|
|
|
|
|
|
|
|
C |
|
|
|
ENDSR |
'*CANCL' |
|
|
|
|
|
|
|
|
|
C |
|
|
|
|
|
|
|
|
C |
|
|
*ENTRY |
PLIST |
|
|
|
|
|
|
|
|
|
|
C |
|
|
|
PARM |
|
BUF |
|
|
|
|
|
|
|
|
C |
|
|
|
PARM |
|
LINEX |
|
|
|
|
|
|
| |