DLTF FILE(QTEMP/T_IFS)
MONMSG CPF0000
CRTPF FILE(QTEMP/T_IFS) RCDLEN(1000) LVLCHK(*NO)
/* Pfad schreibweise egal, Datei gr. kl. beachten !!! */
CHGVAR VAR(&QSHC) VALUE('FIND +
/QNTC/freigabe/des serveres/so/weit/wie/du/kennst/*')
/* SIZE xx (BIS zum *) */ chgvar &start xx
CHGJOB JOB(*) LOG(4 0 *NOLIST)
OVRDBF FILE(STDOUT) TOFILE(QTEMP/T_IFS) OVRSCOPE(*JOB)
STRQSH CMD(&QSHC)
CHGJOB JOB(*) LOG(4 0 *SECLVL)
DLTOVR FILE(STDOUT) LVL(*JOB)
/* --------------------------------------------------------------------------*/
/* lies bis EOF oder leer Datei */
/* --------------------------------------------------------------------------*/
OVRDBF FILE(DATEI) TOFILE(QTEMP/T_IFS)
START1: RCVF
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ENDE_1))
/* nix gefunden */
IF COND(%SST(&T_IFS 1 6) *EQ 'find: ') +
THEN(GOTO CMDLBL(ENDE_1))
/*------------------------------------------------------*/
/* SAMMELPFAD */
/*------------------------------------------------------*/
CHGVAR VAR(&TO) value(' +
/QNTC/freigabe/eines/anderen verzeichis/' +
*CAT %SST(&T_IFS &START 35)) /* Dateinamensläng max */
/*------------------------------------------------------*/
/* KOPIERE NEUE AUF AS400 (Deine verarbeitung) */
/*------------------------------------------------------*/
CPYFRMIMPF FROMSTMF(&T_IFS) TOFILE(xxx) +
MBROPT(*ADD) RCDDLM(*CRLF) DTAFMT(*DLM) +
STRDLM(*DBLQUOTE) FLDDLM(';') +
DECPNT(*COMMA) DATFMT(*YYMD) FROMRCD(2) + RPLNULLVAL(*FLDDFT)
/*------------------------------------------------------*/
/* MOVE NEUE IN DEN SAMMEL PFAD */
/*------------------------------------------------------*/
CHGVAR VAR(&QSHC) VALUE('MV ' *CAT &T_IFS *BCAT &TO)
STRQSH CMD(&QSHC)
goto start1
Bookmarks