SQL send messages to joblog

joblog.sql

-- Log a message to the joblog
--
-- This also showcase how to integrate the C code directly into your UDTF/Procedure
--
-- Simply paste this gist into ACS SQL and step through the example.
--
-- Note: I am using library QUSRSYS. I suggest you put it into your own tool library.
--
-- This is a cool example how far you can go with SQL: Have fun 😀  
-- (C) Niels Liisberg 2022
--
-- This gist is distributed on an "as is" basis, without warranties 
-- or conditions of any kind, either expressed or implied.
--------------------------------------------------------------------------------------
call qsys2.ifs_write(
    path_name => '/tmp/main.c' , 
    file_ccsid => 1208, 
    overwrite => 'REPLACE',
    line =>
'{
  /* declare prototype for Qp0zLprintf */
  extern int Qp0zLprintf (char *format, ...);

  /* print input parameter to job log */
  Qp0zLprintf("%.*s\n", JOBLOG.TEXT.LEN, JOBLOG.TEXT.DAT);
}'
);


create or replace procedure qusrsys.joblog (
    text varchar(256)
) 
external action 
modifies sql data 
set option output=*print, commit=*none, dbgview = *source --list
begin
    include '/tmp/main.c';
end;

-- Usecase:
---------------------------------------------
call joblog('Test');