| |
X |
* |
*PSSR |
BEGSR |
IFS$EXIST |
2 |
|
|
|
|
|
|
|
| |
X |
|
|
| |
X |
* |
*ENTRY |
PLIST |
IFS$EXIST |
3 |
|
|
|
|
|
|
|
| |
X |
|
|
|
H |
|
|
|
H |
*COPYRIGHT JÜRGEN REULE 2010-2023 |
|
|
H |
|
|
|
H |
BNDDIR('QC2LE':'BAR$') |
|
|
H |
DATFMT(*ISO) TIMFMT(*ISO) |
|
|
H |
DFTACTGRP(*NO) ACTGRP('QILE') |
|
|
H |
COPYRIGHT('COPYRIGHT JÜRGEN REULE 2010-2023') |
|
|
H |
|
|
|
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 |
|
|
|
|
|
|
|
|
|
|
|
|
D |
NOTFOUND |
|
|
S |
|
1 |
N |
|
|
|
|
|
D |
|
|
|
|
|
|
|
|
|
|
|
|
D |
/COPY SOURCE,IFS$PROC |
|
|
C |
|
|
|
|
|
|
|
|
C |
* |
|
|
-------------------------------------- |
|
|
C |
* |
|
|
Datei vorhanden? |
|
|
C |
* |
|
|
-------------------------------------- |
|
|
C |
|
|
|
EVAL |
FILENAMEDS = %TRIM(FILENAME)+NULL |
|
|
C |
|
|
|
EVAL |
RC = ACCESS |
( |
%ADDR(FILENAMEDS):FOK) |
|
|
C |
|
|
RC |
COMP |
*ZERO |
|
|
|
— |
77 |
— |
|
|
|
C |
|
|
|
SETON |
|
|
|
|
— |
LR |
— |
|
|
|
C |
|
|
|
|
|
|
|
|
C |
|
|
*PSSR |
BEGSR |
|
|
|
|
|
|
|
|
|
|
C |
|
|
|
ENDSR |
'*CANCL' |
|
|
|
|
|
|
|
|
|
C |
|
|
|
|
|
|
|
|
C |
|
|
*ENTRY |
PLIST |
|
|
|
|
|
|
|
|
|
|
C |
|
|
|
PARM |
|
FILENAME |
|
|
|
|
|
|
|
|
C |
|
|
|
PARM |
*IN77 |
NOTFOUND |
|
|
|
|
|
|
| |