Von einem PC werden täglich Daten in das IFS-Laufwerk "home" erstellt.
das Herunterladen auf die AS mittels
CPYFRMIMPF oder CPYFRMSTMF
bei einem eindeutigen Dateinamen ist kein Problem.
Die Dateinamen haben aber einen festen Prefix + Laufnummer.
Wie kann ich diese Dateien abholen, wenn deren Name der AS/400 nicht
bekannt ist.
Hallo Hell,
zuerst einmal unbedingt die Daten aus dem /home in ein Unterverzeichnis packen, zB /home/vonPC oder ähnlich. In dieses Verzeichnis dann auch nur die Daten dieser Anwendung rein.
Anschliessend ein bischen CL und ein bischen RPG:
:WasIsDa1C pgm
DCL VAR(&DIR) TYPE(*CHAR) LEN(50) +
VALUE('/home/vonPC')
CRTPF FILE(QTEMP/DSPLNKP) RCDLEN(132)
/* HIER die passende Dateischablone einbauen statt '*' */
CHGVAR VAR(&WORK) VALUE(&DIR *TCAT '/' *TCAT '*')
CD DIR('/')
DSPLNK OBJ(&WORK) OUTPUT(*PRINT) OBJTYPE(*STMF) +
DETAIL(*NAME) DSPOPT(*ALL)
CPYSPLF FILE(QSYSPRT) TOFILE(QTEMP/DSPLNKP)
DLTSPLF FILE(QSYSPRT)
OVRDBF FILE(DSPLNKP) TOFILE(QTEMP/DSPLNKP)
CALL PGM(WasIstDa1R)
Das RPGLE Programm in Fixformat RPG:
*WasIstDa1R
FDSPLNKP IF F 132 DISK
IDSPLNKP KF
I 2 26 I#FILE
C DO *HIVAL
C READ DSPLNKP LR
C LR LEAVE
C* Hier Dateischablone anpassen!!!!
C IF %SUBST(I#FILE:1:5) <> 'daten'
C ITER
C ENDIF
C CALL 'WasIstDa2C'
C PARM I#FILE
C ENDDO
und nun wieder bischen CL
WasIstDa2C: PGM PARM(&FILE)
DCL VAR(&FILE) TYPE(*CHAR) LEN(25)
OVRPRTF FILE(QSYSPRT) OUTQ(PRAB01) OVRSCOPE(*JOB)
MONMSG MSGID(CPF0000)
CPYFRMSTMF FROMSTMF(&FILE)
TOMBR('QSYS.LIB/MYLIB.LIB/MYFILE.FILE/MYMBR.MBR') MONMSG MSGID(CPA0000 CPF0000)
ENDPGM
Das TOMBR muss nactürlich angepasst werden. Da wir hier mit einem selbstgemachen CSV Converter arbeiten habe ich schnell den Befehlsprompt von CPYFRMSTMF reinkopiert.
Das man statt der einzelnen Programme auch Moduls draus machen kann etc ist klar.
Das sollte dir aber erstmal einen Ansatz geben.
Bei dem DSPLNK auf Spool gibts sicher auch den Weg der APIs für IFS, aber dafür hab ich keine Beispiele, weil wir da mit IFS-Tools arbeiten, die ich nur benutze. No Clue, wer der Hersteller ist bzw wo du dir diese downloaden kannst
Gruß