cono2000
30-08-10, 10:02
Hallo zusammen,
ich versuche ein IFS-Verzeichnis sequentiell durchzulesen um die darin befindlichen PDF-Dateien mit einem anderen Programm zu Bearbeiten und dann zu löschen.
Beispiel-Datei: 00001_100134000_20100826_Mahn_01097_0000530.pdf
Bei der bei jeder 11ten Datei wird wird jedoch das Programm beendet.
Kann mir jemad weiterhelfen?
Da es immer 11 Dateien sind vermute ich das es nichts mit der Kommunikation zu tun hat.
Vielmehr vermute ich das die Austrittsbedingun erfüllt ist.
[]
Auszug..
***********************************
* Felddefinitionen für Verzeichnis
***********************************
ddirent ds based(structptr)
dreserved1 16
dfil_gen_id 9B 0
dfil_no 9B 0
drec_len 9B 0
dreserved3 9B 0
dreserved4 6
dreserved5 2
dnls_ccsid 9B 0
dnls_country 2
dnls_languag 3
dnls_reserved 3
dnamelen 9B 0
dname 640
Auszug...
**************************************************
* Directory lesen
**************************************************
c eval structptr = *null
c structptr doueq *null
C eval structptr = readd(dirptr)
c structptr ifne *null
C Null scan name NullFound 5 0
c if NullFound > 1
c sub 1 NullFound
c endif
C eval Dir_Entry = %SUBST(name:1:NullFound)
*
ich versuche ein IFS-Verzeichnis sequentiell durchzulesen um die darin befindlichen PDF-Dateien mit einem anderen Programm zu Bearbeiten und dann zu löschen.
Beispiel-Datei: 00001_100134000_20100826_Mahn_01097_0000530.pdf
Bei der bei jeder 11ten Datei wird wird jedoch das Programm beendet.
Kann mir jemad weiterhelfen?
Da es immer 11 Dateien sind vermute ich das es nichts mit der Kommunikation zu tun hat.
Vielmehr vermute ich das die Austrittsbedingun erfüllt ist.
[]
Auszug..
***********************************
* Felddefinitionen für Verzeichnis
***********************************
ddirent ds based(structptr)
dreserved1 16
dfil_gen_id 9B 0
dfil_no 9B 0
drec_len 9B 0
dreserved3 9B 0
dreserved4 6
dreserved5 2
dnls_ccsid 9B 0
dnls_country 2
dnls_languag 3
dnls_reserved 3
dnamelen 9B 0
dname 640
Auszug...
**************************************************
* Directory lesen
**************************************************
c eval structptr = *null
c structptr doueq *null
C eval structptr = readd(dirptr)
c structptr ifne *null
C Null scan name NullFound 5 0
c if NullFound > 1
c sub 1 NullFound
c endif
C eval Dir_Entry = %SUBST(name:1:NullFound)
*