|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
*COPYRIGHT JÜRGEN REULE 2010-2023 |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
STOUT |
|
|
PR |
|
|
|
|
|
EXTPROC('QtmhWrStout') |
|
|
D |
BUF |
|
|
|
|
32767 |
A |
|
|
OPTIONS(*VARSIZE) CONST |
|
|
D |
BUFLEN |
|
|
|
|
10 |
I |
0 |
|
CONST |
|
|
D |
QUSEC |
|
|
|
|
16 |
A |
|
|
OPTIONS(*VARSIZE) |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
STIN |
|
|
PR |
|
|
|
|
|
EXTPROC('QtmhRdStin') |
|
|
D |
BUF |
|
|
|
|
32767 |
A |
|
|
OPTIONS(*VARSIZE) CONST |
|
|
D |
BUFLEN |
|
|
|
|
10 |
I |
0 |
|
CONST |
|
|
D |
RCVLEN |
|
|
|
|
10 |
I |
0 |
|
CONST |
|
|
D |
QUSEC |
|
|
|
|
16 |
A |
|
|
OPTIONS(*VARSIZE) |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
GETENV |
|
|
PR |
|
|
|
|
|
EXTPROC('QtmhGetEnv') |
|
|
D |
ENVRCV |
|
|
|
|
32767 |
A |
|
|
OPTIONS(*VARSIZE) |
|
|
D |
ENVRCVLEN |
|
|
|
|
10 |
I |
0 |
|
CONST |
|
|
D |
ENVLEN |
|
|
|
|
10 |
I |
0 |
|
|
|
|
D |
ENVNAME |
|
|
|
|
32767 |
A |
|
|
OPTIONS(*VARSIZE) CONST |
|
|
D |
ENVNAMELEN |
|
|
|
|
10 |
I |
0 |
|
CONST |
|
|
D |
QUSEC |
|
|
|
|
16 |
A |
|
|
OPTIONS(*VARSIZE) |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
CVTDB |
|
|
PR |
|
|
|
|
|
EXTPROC('QtmhCvtDb') |
|
|
D |
FILE |
|
|
|
|
20 |
A |
|
|
CONST |
|
|
D |
BUF |
|
|
|
|
32767 |
A |
|
|
OPTIONS(*VARSIZE) CONST |
|
|
D |
BUFLEN |
|
|
|
|
10 |
I |
0 |
|
CONST |
|
|
D |
RSPVAR |
|
|
|
|
32767 |
A |
|
|
OPTIONS(*VARSIZE) |
|
|
D |
RSPVARLEN |
|
|
|
|
10 |
I |
0 |
|
CONST |
|
|
D |
RSPLEN |
|
|
|
|
10 |
I |
0 |
|
|
|
|
D |
RSPCDE |
|
|
|
|
10 |
I |
0 |
|
|
|
|
D |
QUSEC |
|
|
|
|
16 |
A |
|
|
OPTIONS(*VARSIZE) |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
CVTCS |
|
|
PR |
|
|
|
|
|
EXTPROC('QlgConvertCase') |
|
|
D |
RCB |
|
|
|
|
22 |
A |
|
|
OPTIONS(*VARSIZE) CONST |
|
|
D |
IN |
|
|
|
|
32767 |
A |
|
|
OPTIONS(*VARSIZE) CONST |
|
|
D |
OUT |
|
|
|
|
32767 |
A |
|
|
OPTIONS(*VARSIZE) |
|
|
D |
LEN |
|
|
|
|
10 |
I |
0 |
|
CONST |
|
|
D |
QUSEC |
|
|
|
|
16 |
A |
|
|
OPTIONS(*VARSIZE) |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
QUSEC |
|
|
DS |
|
|
|
|
|
|
|
|
D |
QUSBPRV |
|
|
|
|
10 |
I |
0 |
|
INZ(%SIZE(QUSEC)) |
|
|
D |
QUSBAVL |
|
|
|
|
10 |
I |
0 |
|
INZ |
|
|
D |
QUSEI |
|
|
|
|
7 |
A |
|
|
INZ |
|
|
D |
QUSERVED |
|
|
|
|
1 |
A |
|
|
INZ |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
TOLOWER |
|
|
DS |
|
|
|
|
|
|
|
|
D |
|
|
|
|
|
10 |
I |
0 |
|
INZ(1) |
|
|
D |
|
|
|
|
|
10 |
I |
0 |
|
INZ(0) |
|
|
D |
|
|
|
|
|
10 |
I |
0 |
|
INZ(1) |
|
|
D |
|
|
|
|
|
10 |
A |
|
|
INZ(*ALLX'00') |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
TOUPPER |
|
|
DS |
|
|
|
|
|
|
|
|
D |
|
|
|
|
|
10 |
I |
0 |
|
INZ(1) |
|
|
D |
|
|
|
|
|
10 |
I |
0 |
|
INZ(0) |
|
|
D |
|
|
|
|
|
10 |
I |
0 |
|
INZ(0) |
|
|
D |
|
|
|
|
|
10 |
A |
|
|
INZ(*ALLX'00') |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
CVTCH |
|
|
PR |
|
|
|
|
|
EXTPROC('cvtch') |
|
|
D |
|
|
|
|
|
16 |
A |
|
|
OPTIONS(*VARSIZE) |
|
|
D |
|
|
|
|
|
32 |
A |
|
|
OPTIONS(*VARSIZE) CONST |
|
|
D |
|
|
|
|
|
10 |
I |
0 |
|
VALUE |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
CVTHC |
|
|
PR |
|
|
|
|
|
EXTPROC('cvthc') |
|
|
D |
|
|
|
|
|
32 |
A |
|
|
OPTIONS(*VARSIZE) |
|
|
D |
|
|
|
|
|
16 |
A |
|
|
OPTIONS(*VARSIZE) CONST |
|
|
D |
|
|
|
|
|
10 |
I |
0 |
|
VALUE |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
QTQCVRT |
|
|
PR |
|
|
|
|
|
EXTPGM('QTQCVRT') |
|
|
D |
CCSID1 |
|
|
|
|
10 |
I |
0 |
|
CONST |
|
|
D |
ST1 |
|
|
|
|
10 |
I |
0 |
|
CONST |
|
|
D |
S1 |
|
|
|
|
32767 |
A |
|
|
OPTIONS(*VARSIZE) CONST |
|
|
D |
L1 |
|
|
|
|
10 |
I |
0 |
|
CONST |
|
|
D |
CCSID2 |
|
|
|
|
10 |
I |
0 |
|
CONST |
|
|
D |
ST2 |
|
|
|
|
10 |
I |
0 |
|
CONST |
|
|
D |
GCCASN |
|
|
|
|
10 |
I |
0 |
|
CONST |
|
|
D |
L2 |
|
|
|
|
10 |
I |
0 |
|
CONST |
|
|
D |
S2 |
|
|
|
|
32767 |
A |
|
|
OPTIONS(*VARSIZE) |
|
|
D |
L3 |
|
|
|
|
10 |
I |
0 |
|
|
|
|
D |
L4 |
|
|
|
|
10 |
I |
0 |
|
|
|
|
D |
FB |
|
|
|
|
10 |
I |
0 |
|
DIM(3) |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
ASCII |
|
|
S |
|
10 |
I |
0 |
|
INZ(819) |
|
|
D |
EBCDIC |
|
|
S |
|
10 |
I |
0 |
|
INZ(273) |
|
|
D |
RCVLEN |
|
|
S |
|
10 |
I |
0 |
|
INZ |
|
|
D |
DUMMY |
|
|
S |
|
10 |
I |
0 |
|
INZ |
|
|
D |
FB |
|
|
S |
|
10 |
I |
0 |
|
INZ DIM(3) |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
QCMDEXC |
|
|
C |
|
|
|
|
|
CONST('QCMDEXC') |
|
|
D |
QRCVDTAQ |
|
|
C |
|
|
|
|
|
CONST('QRCVDTAQ') |
|
|
D |
QSNDDTAQ |
|
|
C |
|
|
|
|
|
CONST('QSNDDTAQ') |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
CIPHER |
|
|
PR |
|
|
|
|
|
EXTPROC('_CIPHER') |
|
|
D |
|
|
|
|
|
|
* |
|
|
VALUE |
|
|
D |
|
|
|
|
|
|
* |
|
|
VALUE |
|
|
D |
|
|
|
|
|
|
* |
|
|
VALUE |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
CONTROLS |
|
|
DS |
|
|
|
|
|
|
|
|
D |
FUNCTION |
|
|
|
|
5 |
I |
0 |
|
INZ(5) |
|
|
D |
HASHALG |
|
|
|
|
1 |
A |
|
|
INZ(X'00') |
|
|
D |
SEQUENCE |
|
|
|
|
1 |
A |
|
|
INZ(X'00') |
|
|
D |
DATALENGTH |
|
|
|
|
10 |
U |
0 |
|
INZ(0) |
|
|
D |
UNUSED |
|
|
|
|
8 |
A |
|
|
INZ(*LOVAL) |
|
|
D |
HASHCTXPTR |
|
|
|
|
|
* |
|
|
INZ(%ADDR(HASHWORKAREA)) |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
HASHWORKAREA |
|
|
S |
|
96 |
A |
|
|
INZ(*LOVAL) |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
RECEIVER$PTR |
|
|
S |
|
|
* |
|
|
INZ(%ADDR(RECEIVER$)) |
|
|
D |
SOURCE$PTR |
|
|
S |
|
|
* |
|
|
INZ(%ADDR(SOURCE$)) |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
RECEIVER$ |
|
|
S |
|
16 |
A |
|
|
INZ |
|
|
D |
SOURCE$ |
|
|
S |
|
32767 |
A |
|
|
INZ |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
RANDOM |
|
|
PR |
|
|
|
|
|
EXTPROC('CEERAN0') |
|
|
D |
SEED |
|
|
|
|
10 |
I |
0 |
|
|
|
|
D |
RANDNUM |
|
|
|
|
8 |
F |
|
|
|
|
|
D |
FEEDBACK |
|
|
|
|
12 |
A |
|
|
OPTIONS(*OMIT) |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
SEED |
|
|
S |
|
10 |
I |
0 |
|
INZ |
|
|
D |
RANDNUM |
|
|
S |
|
8 |
F |
|
|
INZ |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
UTCOFFSETS |
|
|
PR |
|
|
|
|
|
EXTPROC('CEEUTCO') |
|
|
D |
HOURS |
|
|
|
|
10 |
I |
0 |
|
|
|
|
D |
MINUTES |
|
|
|
|
10 |
I |
0 |
|
|
|
|
D |
SECONDS |
|
|
|
|
8 |
F |
|
|
|
|
|
D |
FEEDBACK |
|
|
|
|
12 |
A |
|
|
OPTIONS(*OMIT) |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
UTCOFFSET |
|
|
S |
|
10 |
I |
0 |
|
INZ |
|
|
D |
HOURS |
|
|
S |
|
10 |
I |
0 |
|
INZ |
|
|
D |
MINUTES |
|
|
S |
|
10 |
I |
0 |
|
INZ |
|
|
D |
SECONDS |
|
|
S |
|
8 |
F |
|
|
INZ |
|
|
D |
FEEDBACK |
|
|
S |
|
12 |
A |
|
|
INZ |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
EPOCH |
|
|
C |
|
|
|
|
|
CONST(Z'1970-01-01-+ |
|
|
D |
|
|
|
|
|
|
|
|
|
00.00.00.000000') |
| |