CPYF einer leeren Datei

[dino]

Es kommt ein Stop CPF2817.
Wie kann ich
a) das Kopieren übergehen (if cond...?)
b) die leere Datei kopieren?

[Stephan_T]

Hast du im Befehl CPYF den Parameter CRTFILE auf *YES gesetzt?.

[dino]

Ja - habe ich:
CPYF FROMFILE(ALPGWOZD/L646004P) +
TOFILE(DBEURO/BFSOPSICH) MBROPT(*REPLACE) +
CRTFILE(*YES) FMTOPT(*NOCHK)

[dino]

Klappt das vielleicht mit "CHKOBJ"?

[plinzen]

Vielleicht vorher mit dem Befehl RTVMBRD die Anzahl Datensätze ermitteln.

RTVMBRD    FILE(QTEMP/DATEI) NBRCURRCD(&NBRRP)        
                                                        
IF         COND(&NBRRP *EQ 0) THEN(DO)                  
SNDMSG     MSG('Keine Daten +         
             vorhanden!') TOMSGQ(*HSTLOG) MSGTYPE(*INFO)
                              ENDDO

Achtung: Der Befehl geht eigentlich auf eine Teildatei, aber wenn nur eine vorhanden, dann passts ja.

Gruß Plinzen

[dino]

Danke - das wars.
R T V M B R D

[Pikachu]

MONMSG MSGID(CPF2817) nach dem CPYF?

[Fuerchau]

Einfach per MONMSG MSGID(CPF2817) ignorieren, wenn die Datei erstellt werden muss auch wenn sie leer ist.