RPG Subroutine Calling C_EVENT

// ...
           w_eventKey = %trim(sPolicyID); //sPolicyID is defined LIKE(w_eventKey)
           w_processed = 'N';
           EXEC SQL CALL C_EVENT(
                    :lFileID,
                    :w_eventKey,
                    :w_processed) ;
           If SQLCOD = 466;
             // A resultset has been returned
             sql_error = *OFF;
           ElseIf SQLCOD = 100;
             // No data found but we don't need an error message
             sql_error = *ON;
           Else;
             S#STMT = 'CALL C_EVENT';
             ExSr CheckSQLError;
           EndIf;
           if sql_error = *OFF;
             EXEC SQL associate RESULT SET LOCATOR (:C_EVENT_rs)
                 WITH PROCEDURE C_EVENT;
             EXEC SQL ALLOCATE C_EVENT_C CURSOR
                           FOR RESULT SET :C_EVENT_rs;
             S#STMT = 'ALLOCATE C_EVENT_C';
             ExSr CheckSQLError;
             // The C_ procedures return the created file record
             // back as a resultset
             EXEC SQL FETCH NEXT FROM C_EVENT_C INTO :C_EVENT_Row;
             S#STMT = 'FETCH C_EVENT_C';
             ExSr CheckSQLError;
             // ...
             EXEC SQL CLOSE C_EVENT_C;
// ...