IFS – Creare file CSV e inviarlo con SNDSMTPEMM da RPG pgm

HomePage Forums Coding IFS – Creare file CSV e inviarlo con SNDSMTPEMM da RPG pgm

This topic contains 1 reply, has 2 voices, and was last updated by  Roberto De Pedrini 8 months, 4 weeks ago.

  • Creator
    Topic
  • #9961

    manuela75
    Participant

    Buonasera
    Ho la necessità di creare un file CSV da un programma RPGLE nella IFS e inviarlo via email con il comando SNDSMTPEMM.
    Ho creato il file :
    c eval fd = open(nome_File:
    c O_CREAT + O_TRUNC + O_CODEPAGE + O_WRONLY :
    c S_IRWXU + S_IRWXG + S_IROTH : 819)
    c callp close(fd)

    il nome_file include anche il percorso
    c eval fd = open(nome_File:
    c O_TEXTDATA + O_WRONLY)
    c eval Line = Testo1 + ‘,’ + Testo2 + ‘,’ + Testo3 . . .
    c callp writeline(fd: %addr(line): %len(trim(line)))

    c callp close(fd)

    poi invio la mail con SNDSMTPEMM inviando questo file ed un altro file creato da un altro programma nella stesso percorso,
    premetto che l’invio della mail funziona se non includo il file creato da questo programma.

    l’errore è Integrated File System File Not Found.

    ho provato a accedere da Exporer e vedo il file ma risulta vuoto e non mi permette di aprirlo.
    questo : access(%trimr(Nome_File): F_OK) risulta -1 come se il file non esistesse, ma se accedo da WRKLNK e lo apro mi fa vedere tutte le riche del file e me lo fa modificare, salvare e cancellare.

    Ho provato a crearlo anche TXT ma il risultato non cambia. . . .
    Avete qualche suggerimento?
    Grazie

  • Author
    Replies
  • #9964

    Ciao Manuela75,
    sembra tutto corretto effettivamente … come test proverei a dare i permessi di scrittura anche agli user other … S_IRWXO invece di S_IROTH quando fai il create …
    Altra cosa … metti un delete se esiste prima, così sei sicura che il file avrà il contenuto richiesto e i permessi voluti …
    (https://www.scottklement.com/rpg/ifs_ebook/unlink.html)

You must be logged in to reply to this topic.