*# Last Updated by JAZZUSR at 14/11/2021 2:44:50 PM PROGRAM JSPG2A WEBSERVICE MyJSv CONTAINER DFHWS-DATA DATABASE sample DB2 JSON; * Single Table Update COPY JZTrim; ACCEPT (IJSPG2A.Function) MESSAGE OJSPG2A.Error; CASE (IJSPG2A.Function); WHEN (Enquiry); ACCEPT (EMPLOYEE.EMPNO = IJSPG2A.EMPNO OR EMPLOYEE.WORKDEPT = IJSPG2A.WORKDEPT) MESSAGE OJSPG2A.Error; GET EMPLOYEE KEY(EMPLOYEE.EMPNO OR EMPLOYEE.WORKDEPT) SAVESUM OJSPG2A.JZ-EMPLOYEE.Checksum; END GET EMPLOYEE RESPOND OJSPG2A; WHEN (Update); ACCEPT (EMPLOYEE.EMPNO=IJSPG2A.EMPNO) MESSAGE OJSPG2A.Error; GET EMPLOYEE KEY(EMPLOYEE.EMPNO) UPDATE CHECKSUM IJSPG2A.JZ-EMPLOYEE.Checksum; COPY JZSMth; COPY JZMDays; COPY JZDTVS; ACCEPT (IJSPG2A.JZ-EMPLOYEE.*) EXCEPT(EMPLOYEE.EMPNO) MESSAGE OJSPG2A.Error; END GET EMPLOYEE UPDATE RESPOND OJSPG2A; WHEN (Add); ACCEPT (EMPLOYEE.EMPNO=IJSPG2A.EMPNO) MESSAGE OJSPG2A.Error; GET EMPLOYEE FREEKEY CREATE; ACCEPT (IJSPG2A.JZ-EMPLOYEE.*) EXCEPT(EMPLOYEE.EMPNO) MESSAGE OJSPG2A.Error; END GET EMPLOYEE CREATE RESPOND OJSPG2A; WHEN (Delete); ACCEPT (EMPLOYEE.EMPNO=IJSPG2A.EMPNO) MESSAGE OJSPG2A.Error; DELETE EMPLOYEE KEY(EMPLOYEE.EMPNO) CHECKSUM IJSPG2A.JZ-EMPLOYEE.Checksum; END CASE; REPLY;