IFS files management

** free
ctl-opt datfmt (* eur) datedit (* dmy) debug (* yes) copyright ('FAQ400.COM') decedit ('0,');    
// ------------------------------------------------ ------------------------------------------------- *
// Definition of convenience fields *
// ------------------------------------------------ ------------------------------------------------- *
dcl-s date date;
dcl-s command char (500);
dcl-s json_name char (500);
dcl-s messagetext char (1024);
// ------------------------------------------------ ------------------------------------------------- *
// Main program *
// ------------------------------------------------ ------------------------------------------------- *
// Set deadline for JSON search
date =% date () -% days (5); // Setting the date field to today -5 days

// SQL preparation for reading IFS content
exec sql // Declaration of the cursor for reading the IFS
  declare jsn cursor for
    select CAST (PATH_NAME AS CHAR (500)) // The PATH_NAME field is a 16M blob so I read it
      from table (QSYS2.IFS_OBJECT_STATISTICS ('/ myfolder / json', 'YES')) // using the CAST function to avoid SQL errors
      where create_timestamp <=: data and // The * YES option allows reading of subfolders
            object_type = '* STMF'; // This condition makes me read only * STMF files

exec sql
  open jsn;

dow 1 = 1;

  exec sql
    fetch jsn
      into: json_name;

  if sqlcod <> 0;

    if sqlcod <> 100; // This function is very useful if you receive
      exec sql // a sqlcode <> from 100 to get in the messagetext field
        Get Diagnostics Condition 1 // a more detailed indication of the error received
          : messageText = MESSAGE_TEXT;
    endif;

    leave;
  endIf;

  command = 'RMVLNK OBJLNK (' '' +% trim (json_name) + '' ')'; // I compose the command to remove the affected object

  exec sql
    call qsys2.qcmdexc (: command); // I execute, via SQL, the command prepared previously
                                                                                // If you have an outdated 7.1 version it might be
endDo; // need to enter the length of the command to execute

exec sql
  close jsn;

exsr exit;
// ------------------------------------------------ ------------------------------------------------- *
// End of job routine *
// ------------------------------------------------ ------------------------------------------------- *
begsr quit;

  * inlr = * on;
  return;

endsr;