Server module returns error but everything seems fine in the log file (RESOLVED)
Posted: Fri Oct 18, 2019 1:30 am
From the web page, there is a button triggers the server module to create a CSV file on the AS400 and the page is waiting for the completed event to pull it up. The CSV file was created by the CL program and the log file shows that the execution completed normally. But it returns the following error:
Fatal Error:
Error executing EXRFUNS02.CREATE_OUTSIDESR_CSV: Unrecoverable error occurred while executing the Web application routine.
Reported By:
http://dev.expresspersonnel.com:4580/dc ... sa_wrtn.js, line 7:79
Here is my code in the server module:
-------------------------------------------------------
#SYS_APPLN.TraceMessageText( ("Calling EXRFUN_OutsideSR_CSV(&1 &2 &3 &4 &5 &6 &7 '&8')").Substitute( #wk_OfficeNumberA #wk_StartDateA #wk_EndDateA #wk_PeriodTypeA #wk_BusinessClassA #wk_FunSkillA #wk_FunRoleA #CLSLID ) )
Call Pgm(FR0003C4 PGMLIB) Parm(#wk_OfficeNumberA ' ' #wk_StartDateA #wk_EndDateA #wk_PeriodTypeA #wk_BusinessClassA #wk_FunSkillA #wk_FunRoleA #CLSLID) Exit_Used(*NEXT) If_Error(*RETURN)
#SYS_APPLN.TraceMessageText( ("Calling EXRFUN_Outside SR_CSV Done!") )
Here is the log file:
----------------------------------------
2019-10-16 10:55:46.446 EXRFUNS02 194 Calling EXRFUN_OutsideSR_CSV(01002 20190929 20190929 03 03 000 0000 'DPWinfrey')
2019-10-16 10:55:46.695 EXRFUNS02 201 Calling EXRFUN_Outside SR_CSV Done!
Please HELP!
Fatal Error:
Error executing EXRFUNS02.CREATE_OUTSIDESR_CSV: Unrecoverable error occurred while executing the Web application routine.
Reported By:
http://dev.expresspersonnel.com:4580/dc ... sa_wrtn.js, line 7:79
Here is my code in the server module:
-------------------------------------------------------
#SYS_APPLN.TraceMessageText( ("Calling EXRFUN_OutsideSR_CSV(&1 &2 &3 &4 &5 &6 &7 '&8')").Substitute( #wk_OfficeNumberA #wk_StartDateA #wk_EndDateA #wk_PeriodTypeA #wk_BusinessClassA #wk_FunSkillA #wk_FunRoleA #CLSLID ) )
Call Pgm(FR0003C4 PGMLIB) Parm(#wk_OfficeNumberA ' ' #wk_StartDateA #wk_EndDateA #wk_PeriodTypeA #wk_BusinessClassA #wk_FunSkillA #wk_FunRoleA #CLSLID) Exit_Used(*NEXT) If_Error(*RETURN)
#SYS_APPLN.TraceMessageText( ("Calling EXRFUN_Outside SR_CSV Done!") )
Here is the log file:
----------------------------------------
2019-10-16 10:55:46.446 EXRFUNS02 194 Calling EXRFUN_OutsideSR_CSV(01002 20190929 20190929 03 03 000 0000 'DPWinfrey')
2019-10-16 10:55:46.695 EXRFUNS02 201 Calling EXRFUN_Outside SR_CSV Done!
Please HELP!