[NEWSboard IBMi Forum]
Seite 2 von 2 Erste 1 2
  1. #13
    Registriert seit
    Jan 2003
    Beiträge
    746
    Wie "fett" ist denn Dein Word-Dokument?

    Wenn Du es mit ^Platzhaltern versiehst und als Open-Office-XML ins IFS stellst, kannst Du im RPG mischen und ggf. auch gleich verschicken...

    ääähm, beim zweite Lesen sieht es eher danach aus als wolltest Du einfach nur die RPG-Quelle übertragen...

  2. #14
    Registriert seit
    Jun 2004
    Beiträge
    86
    Danke für den schnelle Tip. Kannst du mir noch sagen wo ich das im Navigator mache. Habe diese Funktion noch nie genutzt...
    Zitat Zitat von K_Tippi Beitrag anzeigen
    Klar geht das,
    am besten mit der Funktion Daten übertragen im Navigator. Einfach als Quelle die SRC-File und das Member auswählen, Ort angeben wo die Datei hin soll und als Datenart Textdatei angeben. (geht auch mit ftp, dann musst du aber die IP Adresse deines Rechners/Laufwerks kennen).
    Klaus.

    evtl. die CCSID angeben.

  3. #15
    Registriert seit
    Jan 2003
    Beiträge
    746
    Zitat Zitat von svente Beitrag anzeigen
    Ich arbeite zu 90% noch in der "Grünen" Oberfläche.
    Kleinster gemeinsamer Nenner aller Maschinen ;- )

    PDM-Option:
    PHP-Code:
    EX    EX MEMBER(&NFILE(&FLIB(&L
    CMD EX
    PHP-Code:
                 CMD        PROMPT('QUELLEN-TEILDATEI EXPORTIEREN')      
                 
    PARM       KWD(MEMBERTYPE(*CHARLEN(10MIN(1) +     
                              
    MAX(1CHOICE('NAME') +                    
                              
    PROMPT('QUELLEN-TEILDATEI')                
                 
    PARM       KWD(FILETYPE(*CHARLEN(10DFT(QRPGSRC) + 
                              
    MIN(0MAX(1CHOICE('QRPGSRC, QCLSRC +    
                              ...'
    PROMPT('PHYSISCHE DATEI')            
                 
    PARM       KWD(LIBTYPE(*CHARLEN(10DFT(*LIBL) +    
                              
    MIN(0MAX(1CHOICE('NAME, *CURLIB, +     
                              *LIBL'
    PROMPT('BIBLIOTHEK'
    CLP EXPSRC
    PHP-Code:
                 PGM        PARM(&MEMBER &FILE &LIB)

                 
    DCL        VAR(&FILETYPE(*CHARLEN(10)
                 
    DCL        VAR(&MEMBERTYPE(*CHARLEN(10)
                 
    DCL        VAR(&LIBTYPE(*CHARLEN(10)

                 
    DCL        VAR(&USERTYPE(*CHARLEN(10)
                 
    DCL        VAR(&IFSDIRTYPE(*CHARLEN(128)
                 
    DCL        VAR(&FROMTYPE(*CHARLEN(128)
                 
    DCL        VAR(&TOTYPE(*CHARLEN(128)
                 
    DCL        VAR(&PCDIRTYPE(*CHARLEN(128)
                 
    DCL        VAR(&CTYPE(*CHARLEN(128)
                 
    DCL        VAR(&FTYPE(*CHARLEN(128)
                 
    DCL        VAR(&STRINGTYPE(*CHARLEN(128)

                 
    RTVJOBA    USER(&USER)

                 
    CHGVAR VAR(&IFSDIRVALUE('/USERTEMP/' *CAT &USER)
                 
    MD         DIR(&IFSDIRDTAAUT(*RWXOBJAUT(*ALL)
                 
    MONMSG     MSGID(CPF0000)

                 
    CHGVAR     VAR(&FROMVALUE('/QSYS.LIB/' *TCAT &LIB +
                              *
    TCAT '.LIB/' *TCAT &FILE *TCAT '.FILE/' +
                              *
    TCAT &MEMBER *TCAT '.MBR')

                 
    CHGVAR     VAR(&TOVALUE(&IFSDIR *TCAT '/' *TCAT +
                              &
    MEMBER *TCAT '.TXT')

                 
    CPYTOSTMF  FROMMBR(&FROMTOSTMF(&TOSTMFOPT(*REPLACE) +
                              
    STMFCODPAG(*PCASCII)
                 
    CHGAUT     OBJ(&TOUSER(*PUBLIC) DTAAUT(*RWX) +
                              
    OBJAUT(*ALL)

     
    SEND2PC:    STRPCO
                 MONMSG     MSGID
    (IWS4010)
                 
    MONMSG     MSGID(CPF0000)

     
    BAT:        CHGVAR VAR(&PCDIRVALUE('%temp%\AS400IFS')
                 
    CHGVAR VAR(&CVALUE('cmd.exe /c echo')
                 
    CHGVAR VAR(&FVALUE('%temp%\AS400IFS.BAT')

                 
    STRPCCMD PCCMD(&*BCAT '@ECHO OFF' *BCAT '>' *BCAT &F)
                 
    STRPCCMD PCCMD(&*BCAT 'mkdir %temp%\AS400IFS >>' *BCAT &F)

                 
    STRPCCMD PCCMD(&*BCAT 'cd.. >>' *BCAT &F)
                 
    STRPCCMD PCCMD(&*BCAT 'cd.. >>' *BCAT &F)
                 
    STRPCCMD PCCMD(&*BCAT 'cd.. >>' *BCAT &F)
                 
    STRPCCMD PCCMD(&*BCAT 'cd %temp% >>' *BCAT &F)
                 
    STRPCCMD PCCMD(&*BCAT 'ftp -s:AS400IFS.FTP.CMD >>' *BCAT &F)
                 
    STRPCCMD PCCMD(&*BCAT 'del %temp%\AS400IFS.FTP.CMD >>' *BCAT &F)

     
    FTP:        CHGVAR VAR(&CVALUE('Cmd.exe /c echo')
                 
    CHGVAR VAR(&FVALUE('%temp%\AS400IFS.FTP.CMD')
                 
    STRPCCMD PCCMD(&*BCAT 'open xxx.xxx.xxx.xxx >>' *BCAT &F)    
                 
    STRPCCMD PCCMD(&*BCAT 'UsrPrf >>' *BCAT &F)
                 
    STRPCCMD PCCMD(&*BCAT 'Pwd >>' *BCAT &F)

                 
    STRPCCMD PCCMD(&*BCAT 'lcd AS400IFS' *BCAT '>>' *BCAT &F)
                 
    STRPCCMD PCCMD(&*BCAT 'get /USERTEMP/' *TCAT &USER *TCAT +
                  
    '/' *TCAT &MEMBER *TCAT '.TXT >>' *BCAT &F)
                 
    STRPCCMD PCCMD(&*BCAT 'prompt >>' *BCAT &F)

                 
    STRPCCMD PCCMD(&*BCAT 'disconnect >>' *BCAT &F)
                 
    STRPCCMD PCCMD(&*BCAT 'bye >>' *BCAT &F)

     
    EXE:        STRPCCMD PCCMD('cmd.exe /c %temp%\AS400IFS.BAT')

                 
    CHGVAR     VAR(&STRINGVALUE('cmd.exe /c start +
                              NOTEPAD %temp%\AS400IFS\' *TCAT +
                              &MEMBER *TCAT '
    .TXT')

                 STRPCCMD PCCMD(&STRING)

     ENDE:       ENDPGM 
    Zusätzlicher Tip: eigenes, eingeschränktes UsrPrf für solche Zugriffe

  4. #16
    Registriert seit
    Dec 2000
    Beiträge
    279
    Schau mal in deiner "Grünen Oberfläche" da gibt es oben evtl. den Punkt Aktionen und dort Daten übertragen.
    Programmierung

  5. #17
    Registriert seit
    Jun 2004
    Beiträge
    86
    Zitat Zitat von K_Tippi Beitrag anzeigen
    Schau mal in deiner "Grünen Oberfläche" da gibt es oben evtl. den Punkt Aktionen und dort Daten übertragen.

    Klar...nutze ich ja auch für Excel..man sieht vor lauter Bäumen den Wald nicht. Hat geklappt.
    Vielen Dank.
    Und auch dir @RobertMack.

Similar Threads

  1. Daten aus dem Internet auf die AS400
    By alex61 in forum IBM i Hauptforum
    Antworten: 26
    Letzter Beitrag: 10-08-18, 12:47
  2. Daten via CSV von einer auf eine andere iSeries exportieren
    By ensöianer in forum IBM i Hauptforum
    Antworten: 7
    Letzter Beitrag: 04-12-14, 12:18
  3. Daten exportieren "AS/400 NOOB"
    By RobinHood2001 in forum IBM i Hauptforum
    Antworten: 8
    Letzter Beitrag: 12-12-13, 13:30
  4. Antworten: 3
    Letzter Beitrag: 25-02-02, 23:27
  5. Zugriffsprobleme von CODE/400 auf AS400-Daten
    By Weishäupl Josef in forum IBM i Hauptforum
    Antworten: 0
    Letzter Beitrag: 04-10-01, 16:18

Tags for this Thread

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • You may not post attachments
  • You may not edit your posts
  •