Gestione files in IFS

**free
ctl-opt datfmt(*eur) datedit(*dmy) debug(*yes) copyright('FAQ400.COM') decedit('0,');    
//-------------------------------------------------------------------------------------------------*
// Definizione campi di comodo                                                                     *
//-------------------------------------------------------------------------------------------------*
dcl-s data                             date;
dcl-s comando                          char(500);
dcl-s nome_json                        char(500);
dcl-s messagetext                      char(1024);
//-------------------------------------------------------------------------------------------------*
// Main program                                                                                    *
//-------------------------------------------------------------------------------------------------*
// Impostazione data limite per ricerca JSON
data = %date() - %days(5);                                                     // Impostazione del campo data ad oggi -5 giorni

// Preparazione SQL per lettura contenuto IFS
exec sql                                                                       // Dichiarazione del cursore per la lettura del IFS
  declare jsn cursor for
    select CAST(PATH_NAME AS CHAR(500))                                        // Il campo PATH_NAME è un blob di 16M quindi lo leggo
      from table(QSYS2.IFS_OBJECT_STATISTICS('/myfolder/json', 'YES'))         // utilizzando la funzione CAST per evitare errori SQL
      where create_timestamp <= :data and                                      // L'opzione *YES permette la lettura delle sottocartelle
            object_type = '*STMF';                                             // Questa condizione mi fa leggere solo i files *STMF

exec sql
  open jsn;

dow 1 = 1;

  exec sql
    fetch jsn
      into :nome_json;

  if sqlcod <> 0;

    if sqlcod <> 100;                                                           // Questa funzione risulta utilissima qualora si riceva
      exec sql                                                                  // un sqlcode <> da 100 per ottenere nel campo messagetext
        Get Diagnostics Condition 1                                             // un indicazione più dettagliata dell'errore ricevuto
          :messageText = MESSAGE_TEXT;
    endif;

    leave;
  endIf;

  comando = 'RMVLNK OBJLNK(''' + %trim(nome_json) + ''')';                      // Compongo il comando per rimuovere l'oggetto interessato

  exec sql
    call qsys2.qcmdexc(:comando);                                               // Eseguo, via SQL il comando preparato precedentemente
                                                                                // Se avete una verzione 7.1 non aggiornata potrebbe essere
endDo;                                                                          // necessario inserire la lunghezza del comando da eseguire

exec sql
  close jsn;

exsr esci;
//-------------------------------------------------------------------------------------------------*
// Routine di fine lavoro                                                                          *
//-------------------------------------------------------------------------------------------------*
begsr esci;

  *inlr = *on;
  return;

endsr;