API error encountered - Message after running Startup program

[llarge]

I currently have a startup program that was created with the template provided for a NAB app. It seems like it is working and doing what I want, I just get this error in the snack bar at the bottom after it finishes.
API error encountered: {myStartupProgram}
I have no idea what that means or where to find out what it means. Any ideas on how to troubleshoot the issue?

[sean.lanktree]

Maybe try recompiling your start up program (assuming you just upgraded).
If that is not the case or does not help, can you post the code in your startup program?

[llarge]

I saw the release notes to recompile some RPG programs so I did that this morning.
Here is the code for the startup program.

**Free
/Include spchdrdft
//================================================== ===========================================
// Description..... Startup program for Annual training app
//
// 05/19/2021 KDR Program created
// *End
//================================================== ===========================================
// Note To compile program: addlible VALENCE6 *last
/define nabStartup
/include qcpylesrc,vvNabTmpl

//================================================== =======================
// --------------------------------------------------------------
// program start
// --------------------------------------------------------------


Initialize();
Process();
CleanUp();
*inlr=*on;
// --------------------------------------------------------------


*InLR = *On;

DCL-PROC process;
DCL-PI *N;
END-PI ;

dcl-s div_char char(2);
dcl-s div_num packed(2);
dcl-s CurUser Char(10);



exec sql set :curUser = session_user;

Exec Sql delete from prwtrain where WKUSER = :curUser;

exec sql Declare division Cursor for
select AUDIVN from PRPUSERS
where AUDIVN <> 0 and auuser = :curUser;
exec sql open division;
exec sql fetch division into :div_num;
dow sqlcod = 0;

div_char = %editc(div_num:'X');

Exec sql insert into prwtrain
( select
empn ,
divn ,
eename ,
shift ,
Shift_desc,
trnc ,
TRDESC ,
dept ,
deptd ,
jobc ,
jobd ,
rtyp ,
req_Type ,
req_typ_dsc,
req_ovr ,
type ,
req ,
:CurUser
from table(pr_train1(:div_char)) );

exec sql fetch division into :div_num;
Enddo;
exec sql close division;


End-Proc;
DCL-PROC Initialize;
DCL-PI *N;
END-PI ;


End-Proc;
DCL-PROC CleanUp;
DCL-PI *N;
END-PI ;

End-Proc;

[robert.swanson]

Looks like there is no positive response coming from your program, so the front-end is throwing up that generic error.

Try putting vvOut_success() at the end of your process procedure.

[llarge]

Update! Resolved.
My startup program did not have the copy source at the bottom. So the procedures that were running were not the correct ones and that's why no response was being sent back to the front end which caused the generic error message.
Sean got it figured out. Thank you.

[sean.lanktree]

We resolved this over an online meeting. The program source was missing the include statement at the bottom:

/include qcpylesrc,vvNabTmpl

And we removed the redundant Initialize and Cleanup prototype definitions.