SQL append to IFS file

ifs_append.sql

----------------------------------------------------------------------------------------------
-- Easy way to append text to a stream file in the IFS, by using C runtime as inline code
--
-- Simply paste the raw version of this gist into ACS SQL and select "run all" 
--
-- Note: I am using library QUSRSYS. I suggest you put it into your own tool library
--
-- You need library QSYSINC installed:
-- https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_74/apiref/conQSYSINC.htm
--
-- I doubt it is a good idea to build huge applications this way, however it 
-- is a cool example how far you can go with SQL. Have fun. 
-- (C) Niels Liisberg 2020
----------------------------------------------------------------------------------------------
call qcmdexc ('ADDLIBLE LIB(QSYSINC)');
call qcmdexc ('CRTSRCPF FILE(QTEMP/C) MBR(C) CCSID(37)');
delete  from qtemp.c;
insert into qtemp.c (srcdta) values 
    ('{'),
    ('#include <sys/types.h>'),
    ('#include <sys/stat.h>'),
    ('#include <fcntl.h>'), 
    ('int f,l,o;'),
    ('mode_t mode = S_IRUSR | S_IWUSR | S_IXUSR;'),
    ('o = O_WRONLY | O_CREAT | O_APPEND | O_CCSID ;'),
    ('IFS_APPEND.NAME.DAT[IFS_APPEND.NAME.LEN] =0;'),
    ('f = open(IFS_APPEND.NAME.DAT, o, mode, 1208);'),
    ('l = write(f, IFS_APPEND.BUF.DAT,IFS_APPEND.BUF.LEN);'),
    ('close (f);'),
    ('}')
;

create or replace procedure qusrsys.ifs_append(name varchar(256), buf varchar(32700) ccsid 1208)
external action 
modifies sql data
set option output=*print, commit=*none, dbgview = *source
begin
  if buf is not null then 
    include qtemp/c(c);
  end if;
end;    

-- Test it like this - Yes it supports national characters 
call qusrsys.ifs_append('/tmp/test2.txt'  , 'Hello ÆØÅ こんにちは');

Hi Niels,
I've solved using ACS.
Thank's a lot.

Great !! My pleasure :)