|
|
|
|
| |
X |
|
|
| |
X |
* |
*PSSR |
BEGSR |
STMFSTAT |
2 |
|
|
|
|
|
|
|
| |
X |
|
|
| |
X |
* |
*ENTRY |
PLIST |
STMFSTAT |
6 |
|
|
|
|
|
|
|
|
H |
|
|
|
H |
*COPYRIGHT JÜRGEN REULE 2017-2023 |
|
|
H |
|
|
|
H |
BNDDIR('QC2LE':'BAR') |
|
|
H |
DATFMT(*ISO) TIMFMT(*ISO) |
|
|
H |
DFTACTGRP(*NO) ACTGRP('QILE') |
|
|
H |
COPYRIGHT('COPYRIGHT JÜRGEN REULE 2017-2023') |
|
|
H |
|
|
|
D |
FILENAME |
|
|
S |
|
5000 |
A |
|
|
VARYING |
|
|
D |
FILENAMEDS |
|
|
DS |
|
|
|
|
|
INZ |
|
|
D |
FILENAMEDS1 |
|
|
|
|
5000 |
A |
|
|
INZ |
|
|
D |
|
|
|
|
|
1 |
A |
|
|
INZ |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
DIV |
|
|
S |
|
|
|
|
|
INZ LIKE(MODE) |
|
|
D |
MVR |
|
|
S |
|
|
|
|
|
INZ LIKE(MODE) |
|
|
D |
MYSTAT |
|
|
S |
|
|
|
|
|
LIKE(STATBUFDS) |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
NOTFOUND |
|
|
S |
|
1 |
N |
|
|
|
|
|
D |
TYPE |
|
|
S |
|
2 |
S |
0 |
|
|
|
|
D |
SIZE |
|
|
S |
|
10 |
S |
0 |
|
|
|
|
D |
TIME |
|
|
S |
|
10 |
S |
0 |
|
|
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
/COPY SOURCE,STMFPROC |
|
|
C |
|
|
|
|
|
|
|
|
C |
|
|
|
SETON |
|
|
|
|
— |
72 |
— |
|
|
|
C |
* |
|
|
-------------------------------------- |
|
|
C |
* |
|
|
Datei-Informationen ermitteln |
|
|
C |
* |
|
|
-------------------------------------- |
|
|
C |
|
|
|
EVAL |
FILENAMEDS = %TRIM(FILENAME)+NULL |
|
|
C |
|
|
|
IF |
STAT |
( |
%ADDR(FILENAMEDS): |
|
|
C |
|
|
|
|
|
%ADDR(MYSTAT)) >= 0 |
|
|
C |
|
|
|
EVAL |
STATBUF = %ADDR(MYSTAT) |
|
|
C |
|
|
|
|
|
|
|
|
C |
* |
|
|
-------------------------------------- |
|
|
C |
* |
|
|
Datei-Informationen ermitteln |
|
|
C |
* |
|
|
-------------------------------------- |
|
|
C |
|
|
MODE |
DIV |
131072 |
DIV |
|
|
|
|
|
|
|
|
C |
|
|
|
MVR |
|
MVR |
|
|
|
|
|
|
|
|
C |
|
|
MVR |
DIV |
4096 |
DIV |
|
|
|
|
|
|
|
|
C |
|
|
*ZERO |
ADD |
DIV |
TYPE |
|
|
|
|
|
|
|
|
C |
|
|
*ZERO |
ADD |
SIZE1 |
SIZE |
|
|
|
|
|
|
|
|
C |
|
|
*ZERO |
ADD |
MTIME |
TIME |
|
|
|
|
|
|
|
|
C |
|
|
|
SETOFF |
|
|
|
|
— |
72 |
— |
|
|
|
C |
|
|
|
ENDIF |
|
|
|
|
|
|
|
|
|
|
C |
|
|
|
SETON |
|
|
|
|
— |
LR |
— |
|
|
|
C |
|
|
|
|
|
|
|
|
C |
|
|
*PSSR |
BEGSR |
|
|
|
|
|
|
|
|
|
|
C |
|
|
|
ENDSR |
'*CANCL' |
|
|
|
|
|
|
|
|
|
C |
|
|
|
|
|
|
|
|
C |
|
|
*ENTRY |
PLIST |
|
|
|
|
|
|
|
|
|
|
C |
|
|
|
PARM |
|
FILENAME |
|
|
|
|
|
|
|
|
C |
|
|
|
PARM |
*IN72 |
NOTFOUND |
|
|
|
|
|
|
|
|
C |
|
|
|
PARM |
|
TYPE |
|
|
|
|
|
|
|
|
C |
|
|
|
PARM |
|
SIZE |
|
|
|
|
|
|
|
|
C |
|
|
|
PARM |
|
TIME |
|
|
|
|
|
|
|