Dateien

Dateien

IFS$FILE (RPGLE)

X

*

*PSSR

BEGSR

IFS$FILE

2

X

X

*

*ENTRY

PLIST

IFS$FILE

2

X

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,IFS$PROC

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

121 ms | Contact | Information | Aibo-Bar © 2005-2024