Function VSAM142: Existing Application (10% Employee Salary Update in Batch)
Name: VSAM142
Description: The following RDML function represents an existing application.
Note: Ensure that this function is created within the same process as function VSAM141
FUNCTION OPTIONS(*DIRECT *MLOPTIMIZE *LIGHTUSAGE);
********** COMMENT(This is a batch job.);
********** COMMENT(It updates all employee's);
********** COMMENT(salaries by 10%.);
DEFINE FIELD(#RRN) REFFLD(#PRIFILRRN);
SELECT FIELDS(#SALARY) FROM_FILE(PSLMST) RETURN_RRN(#RRN);
CHANGE FIELD(#SALARY) TO('#Salary * 1.1');
UPDATE FIELDS(#SALARY) IN_FILE(PSLMST) VAL_ERROR(*NEXT) WITH_RRN(#RRN);
ENDSELECT;
RETURN;
Name: VSAM142
Description: The following RDML function represents an existing application.
Note: Ensure that this function is created within the same process as function VSAM141
FUNCTION OPTIONS(*DIRECT *MLOPTIMIZE *LIGHTUSAGE);
********** COMMENT(This is a batch job.);
********** COMMENT(It updates all employee's);
********** COMMENT(salaries by 10%.);
DEFINE FIELD(#RRN) REFFLD(#PRIFILRRN);
SELECT FIELDS(#SALARY) FROM_FILE(PSLMST) RETURN_RRN(#RRN);
CHANGE FIELD(#SALARY) TO('#Salary * 1.1');
UPDATE FIELDS(#SALARY) IN_FILE(PSLMST) VAL_ERROR(*NEXT) WITH_RRN(#RRN);
ENDSELECT;
RETURN;