The following statements connect an EMPLOYEE record from the DEPT-EMPLOYEE set to the OFFICE-EMPLOYEE set as a new member.
MVC DEPTID,=C'5200' @FIND CALC,REC='DEPARTMENT' @OBTAIN FIRST,SET='DEPT-EMPLOYEE' MVI OFFCODE,C'1' @FIND CALC,REC='OFFICE' @CONNECT REC='EMPLOYEE',SET='OFFICE-EMPLOYEE'
|
Copyright © 2014 CA.
All rights reserved.
|
|