Moin!

Es gibt da eine gewisse Schwierigkeit mit einem Programm, welches ich zu warten habe.

Im Programm soll ein Member erstellt werden, das vorher entsprechend mit Textpassagen zu füllen ist. Der Text durchläuft vorher das Programm 'TOKENIZE' und wird dort noch umformatiert (Umbrechen nach CRLF, ...) und das Ergebnis als Array zurückgegeben.

Im Code sieht das ganze so aus:

Code:
FTEXT      O  A E             DISK    USROPN

C                   MOVE      *BLANKS       BEFEHL           70    
C                   EVAL      BEFEHL = 'OVRDBF FILE(TEXT) TOFILE(' 
C                                    + %TRIMR(PLIB) + '/'          
C                                    + %TRIMR(PFILE) + ')' + ' '   
C                                    + 'MBR(' + %TRIMR(PMBR) + ')' 
C                   MOVE      *BLANKS       QCA                    
C                   MOVEL(P)  BEFEHL        QCA              75    
C                   CALL      'QCMDEXC'                            
C                   PARM                    QCA              75    
C                   PARM      75            LANG             15 5  


C                   MOVEL(P)  MYTEXT    TEXT5000                    
C                   CALL      'TOKENIZE'                                  
C                   PARM                    TEXT5000       5000         
C                   PARM      60            ANZSTELL          6 0       
C                   PARM                    ANZINDEX          6 0       
C                   PARM                    FG_TXT                      
C*                                                                      
C                   OPEN      TEXT                                      
C                   Z-ADD     0             Y                 4 0       
C                   DO        ANZINDEX                                  
C                   ADD       1             Y                           
C                   MOVEL(P)  FG_TXT(Y)     TXT3                        
C                   WRITE     TEXTFF                                    
C                   ENDDO                                               
C                   CLOSE     TEXT
Das Programm bricht nach 56 writes ab - die Meldung lautet:

Nachricht . . . : E/A-Fehler CPF5152 in Datei TEXT erkannt.
Ursache . . . . : Die RPG-Prozedur XYZ in Programm PGM/MYPGM hat die
Nachricht CPF5152 empfangen, während E/A-Operation WRITE für Datei TEXT
ausgeführt wurde. Die tatsächliche Datei ist TXT3/B1412(B141200001).
Fehlerbeseitigung: Das Jobprotokoll auf eine vollständige Beschreibung von
Nachricht CPF5152 prüfen und den für die Programmpflege verantwortlichen
Benutzer benachrichtigen.

Joblog:

Teildatei B141200001 zu Datei B1412 in TXT3 hinzugefügt.
Abfrageauswahl aus Datei QAQQINI in Bibliothek QUSRSYS abgerufen.
Satzformat TEXTFF nicht in Teildatei B141200001.
E/A-Fehler CPF5152 in Datei TEXT erkannt.
E/A-Fehler CPF5152 in Datei TEXT erkannt.

Komischerweise funktioniert das Programm nur bei "großen Texten" nicht...

Der Ursprungstext lautet:
Code:
Titel 1.

1Stck.Men.Steckd.Soft-Contact 5 Pol.
1 Stck.Kais Agro PVC verschr.M63
1 Stck.ABB FI-Schutzschaltung 125 A F 204A-125/0,3NL
3 Stck. Weid.Durchgangskl.WDU 50N
1 Stck.Weid.Durchgangskl.WDU 50NBL
1 Stck.Weid.Reihenkl.WPE50N 184604
18 M NYCWY 4x50SM/25
3 Stck.Lin.-Sicherungen 125A GR 00 1B765
2 Stck. OBO BBS Schellen 2056 28 -34 MM
2 Stck.OBO KU.Gegenwannen 2058 28-34MM
1 Stck.NHOO-Lasttrenner 160A DTL 160
2 Stck.Anschlussklemme 50QMM BKS5005 ZK 150
2 Stck. Kais AGRO PVC verschr.M40
2 Stck.Kais AGRO PVC Gegennutter M40

Titel 2
1 Stck. Men.Steckdosen Soft - Contact 5Pol. 
1 Stck. Kais AGRO PVC verschr.M63
1 Stck. ABB FI - Schutzsch. 125A F204A-125/0,3NL
3 Stck. Weid. Durchgangskl. WDU 50N
1 Stck. Weid.Durchgangskl. WDU50NBL
1 Stck. Weid.Reihenkl. WPE50N
3 Stck. Lin.NH-Sicher.125A GR00 IB765
2 Stck. OBO BBS Schellen 2056 28-34MM
2 Stck. OBO ku.-Gegenwannen 2058 28-34MM
40 M    NYCWY 4x50SM/25
1 Stck. NH00 - Latstrenner 160A DTL 160
2 Stck.Kais. AGRO PVC verschr. M 40
2 Stck.Kasis.AGRO PVC Gegenmutter M 40

Titel 3
1 Stck.Men.Steckd.Soft-Conatct 5Pol.
1 Stck.Kais.AGRO PVC verschr. M63
3 Stck.Weid.Durchgangskl.WDU 50N
1 Stck.Weid.Durchgangskl.WDU 50NBL
1 Stck.Weid.Reihenkl.WPE50N
8M NYCWY 4x50SM/25
2 Stck.Erico Caddy Kastenklemme EM 58
3 M Pipe.Kupa-Rohr PSM-E-MF40
10 Stck.OBO Spannkl.SKS M12x65+GLMU.M12
2 M Profilschl.Gel.2M1268SL
2 Stck.Kais AGRO PVC verschr. M40

Titel 4
1 Stck.Men.Steckd.Soft.Contact 5Pol.
1 Stck.Kais.AGRO PVC verschr.M63
3 Stck.Weid.Durchgangskl.WDU 50N
1 Stck.Weid.Durchgangskl.WDU50NBL
1 Stck.Weid.Reihenkl.WPE50N
3 Stck.Lin.NH-Sicher.125A GR00 1B765
49 M NYCWY 4x50SM/25
2 Stck.Kais AGRO PVC verschr. M40
2 Stck.Kais.AGRO PVC Gegenmutter M 40
1 Stck.Montageneben- und Logistikkosten(Klein- und Befestigungsmaterial)
1 Psch Arbeitsleistung

Der gekürzte Text funktioniert tadellos:

Code:
Titel 1.

1Stck.Men.Steckd.Soft-Contact 5 Pol.
1 Stck.Kais Agro PVC verschr.M63
1 Stck.ABB FI-Schutzschaltung 125 A F 204A-125/0,3NL
3 Stck. Weid.Durchgangskl.WDU 50N
1 Stck.Weid.Durchgangskl.WDU 50NBL
1 Stck.Weid.Reihenkl.WPE50N 184604
18 M NYCWY 4x50SM/25
3 Stck.Lin.-Sicherungen 125A GR 00 1B765
2 Stck. OBO BBS Schellen 2056 28 -34 MM
2 Stck.OBO KU.Gegenwannen 2058 28-34MM
1 Stck.NHOO-Lasttrenner 160A DTL 160
2 Stck.Anschlussklemme 50QMM BKS5005 ZK 150
2 Stck. Kais AGRO PVC verschr.M40
2 Stck.Kais AGRO PVC Gegennutter M40

Titel 2
1 Stck. Men.Steckdosen Soft - Contact 5Pol. 
1 Stck. Kais AGRO PVC verschr.M63
1 Stck. ABB FI - Schutzsch. 125A F204A-125/0,3NL
3 Stck. Weid. Durchgangskl. WDU 50N
1 Stck. Weid.Durchgangskl. WDU50NBL
1 Stck. Weid.Reihenkl. WPE50N
3 Stck. Lin.NH-Sicher.125A GR00 IB765
2 Stck. OBO BBS Schellen 2056 28-34MM
2 Stck. OBO ku.-Gegenwannen 2058 28-34MM
40 M    NYCWY 4x50SM/25
1 Stck. NH00 - Latstrenner 160A DTL 160
2 Stck.Kais. AGRO PVC verschr. M 40
2 Stck.Kasis.AGRO PVC Gegenmutter M 40
Weiß hier jemand Rat?

Gruß
Bratmaxxe