|
|
|
|
| |
X |
|
|
| |
X |
* |
*PSSR |
BEGSR |
STMFFILE |
2 |
|
|
|
|
|
|
|
| |
X |
|
|
| |
X |
* |
*ENTRY |
PLIST |
STMFFILE |
2 |
|
|
|
|
|
|
|
|
H |
|
|
|
H |
*COPYRIGHT JÜRGEN REULE 2016-2023 |
|
|
H |
|
|
|
H |
BNDDIR('QC2LE':'BAR') |
|
|
H |
DATFMT(*ISO) TIMFMT(*ISO) |
|
|
H |
DFTACTGRP(*NO) ACTGRP('QILE') |
|
|
H |
COPYRIGHT('COPYRIGHT JÜRGEN REULE 2016-2023') |
|
|
H |
|
|
|
F |
FILEP |
U |
F |
|
A |
|
E |
|
|
|
K |
|
DISK |
|
RENAME(FILEF:FILEF) |
|
|
F |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
D |
FILEDS |
E |
|
DS |
|
|
|
|
|
EXTNAME(FILEP) |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
PATHNAME |
|
|
S |
|
5000 |
A |
|
|
VARYING |
|
|
D |
PATHNAMEDS |
|
|
DS |
|
|
|
|
|
INZ |
|
|
D |
PATHNAMEDS1 |
|
|
|
|
5000 |
A |
|
|
INZ |
|
|
D |
|
|
|
|
|
1 |
A |
|
|
INZ |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
FILENAME |
|
|
S |
|
5000 |
A |
|
|
VARYING |
|
|
D |
FILENAMEDS |
|
|
DS |
|
|
|
|
|
INZ |
|
|
D |
FILENAMEDS1 |
|
|
|
|
5000 |
A |
|
|
INZ |
|
|
D |
|
|
|
|
|
1 |
A |
|
|
INZ |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
RC |
|
|
S |
|
10 |
I |
0 |
|
INZ |
|
|
D |
DIR |
|
|
S |
|
|
* |
|
|
INZ |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
DIV |
|
|
S |
|
|
|
|
|
INZ LIKE(MODE) |
|
|
D |
MVR |
|
|
S |
|
|
|
|
|
INZ LIKE(MODE) |
|
|
D |
MYSTAT |
|
|
S |
|
|
|
|
|
LIKE(STATBUFDS) |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
NAMESIZE1 |
|
|
C |
|
|
|
|
|
CONST(%SIZE(NAME1)) |
|
|
D |
DATETIME3 |
|
|
S |
|
|
Z |
|
|
INZ |
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
/COPY SOURCE,STMFPROC |
|
|
C |
|
|
|
|
|
|
|
|
C |
* |
|
|
-------------------------------------- |
|
|
C |
* |
|
|
Dateien ermitteln |
|
|
C |
* |
|
|
-------------------------------------- |
|
|
C |
|
|
|
EVAL |
PATHNAMEDS = %TRIM(PATHNAME)+NULL |
|
|
C |
|
|
|
EVAL |
DIR = OPENDIR |
( |
%ADDR(PATHNAMEDS) ) |
|
|
C |
|
|
*NULL |
IFNE |
DIR |
|
|
|
|
|
|
|
|
|
C |
|
|
|
EVAL |
DIRENT = READDIR(DIR) |
|
|
C |
|
|
*NULL |
DOWNE |
DIRENT |
|
|
|
|
|
|
|
|
|
C |
|
|
|
|
|
|
|
|
C |
* |
|
|
-------------------------------------- |
|
|
C |
* |
|
|
Dateiname ermitteln |
|
|
C |
* |
|
|
-------------------------------------- |
|
|
C |
|
|
|
CLEAR |
|
FILEDS |
|
|
|
|
|
|
|
|
C |
|
|
NAMELEN1 |
IFGE |
1 |
|
|
|
|
|
|
|
|
|
C |
|
|
NAMELEN1 |
ANDLE |
NAMESIZE1 |
|
|
|
|
|
|
|
|
|
C |
|
|
NAMELEN1 |
SUBST(P) |
NAME1 |
FINAME |
|
|
|
|
|
|
|
|
C |
|
|
*ZERO |
ADD |
NAMELEN1 |
FINAMELEN |
|
|
|
|
|
|
|
|
C |
|
|
|
|
|
|
|
|
C |
|
|
|
EVAL |
FILENAME = %TRIM(PATHNAME)+'/'+ |
|
|
C |
|
|
|
|
|
%TRIM(FINAME ) |
|
|
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 |
FITYPE |
|
|
|
|
|
|
|
|
C |
|
|
*ZERO |
ADD |
SIZE1 |
FISIZE |
|
|
|
|
|
|
|
|
C |
|
|
*ZERO |
ADD |
MTIME |
FITIME |
|
|
|
|
|
|
|
|
C |
|
|
|
ENDIF |
|
|
|
|
|
|
|
|
|
|
C |
|
|
|
WRITE |
FILEF |
|
|
|
— |
77 |
— |
|
|
|
C |
|
|
|
ENDIF |
|
|
|
|
|
|
|
|
|
|
C |
|
|
|
EVAL |
DIRENT = READDIR(DIR) |
|
|
C |
|
|
|
ENDDO |
|
|
|
|
|
|
|
|
|
|
C |
|
|
|
EVAL |
RC = CLOSEDIR |
( |
DIR ) |
|
|
C |
|
|
|
ENDIF |
|
|
|
|
|
|
|
|
|
|
C |
|
|
|
SETON |
|
|
|
|
— |
LR |
— |
|
|
|
C |
|
|
|
|
|
|
|
|
C |
|
|
*PSSR |
BEGSR |
|
|
|
|
|
|
|
|
|
|
C |
|
|
|
ENDSR |
'*CANCL' |
|
|
|
|
|
|
|
|
|
C |
|
|
|
|
|
|
|
|
C |
|
|
*ENTRY |
PLIST |
|
|
|
|
|
|
|
|
|
|
C |
|
|
|
PARM |
|
PATHNAME |
|
|
|
|
|
|
|