The sample code shown below illustrates the steps taken to modify an occurrence of the EMPSKLLR logical record. Assume that the department name for department 1200 is to be changed, as well as the maximum salary for a specific job working in this department (job identification number 5051).
@OBTAIN FIRST,REC=EMPSKLLR, *
WHERE DEPTID EQ '1200' *
AND JOBID EQ '5051'
MVC JOBNAME,NEWNAME MVC MAXSAL,NEWSAL
@MODIFY REC=EMPSKLLR
|
Copyright © 2014 CA.
All rights reserved.
|
|