Adding set pointers
The following example directs the RESTRUCTURE utility to use the base restructuring table, LRDKRSTT, to add prior pointers to the owners and members of set A-B and owner pointers to the members of set A-B.
Input to RESTRUCTURE
RESTRUCTURE empdemo using restr01
rsttmod lrdkrstt continue yes;
Output from RESTRUCTURE
When the RESTRUCTURE operation is completed, the following listing is generated.
IDMSBCF IDMS Batch Command Facility mm/dd/yy PAGE 1 RESTRUCTURE EMPDEMO USING RESTR01 RSTTMOD LRDKRSTT CONTINUE YES; 0UT000038 Starting Restructure of area EMPDEMO.EMP-DEMO-REGION UT000041 Completed processing of area EMPDEMO.EMP-DEMO-REGION, Pages read=10 Records read=6 UT011023 Record name AA Found=2 Changed=2 Ldel=0 0UT000038 Starting Restructure of area EMPDEMO.INS-DEMO-REGION UT000041 Completed processing of area EMPDEMO.INS-DEMO-REGION, Pages read=10 Records read=3 UT011023 Record name BB Found=3 Changed=3 Ldel=0 Status = 0
Connecting prior and owner pointers
To complete this restructure operation, the RESTRUCTURE CONNECT utility is executed to connect the prior and owner pointers in all occurrences of set A-B after restructuring records A and B.
Input to RESTRUCTURE CONNECT
restructure connect segment empdemo using EMPSS01
rsttmod lrdkrstt continue yes;
Output from RESTRUCTURE CONNECT
When the RESTRUCTURE CONNECT operation is completed, the following listing is generated.
IDMSBCF IDMS Batch Command Facility mm/dd/yy PAGE 1 RESTRUCTURE CONNECT SEGMENT EMPDEMO USING EMPSS01 RSTTMOD LRDKRSTT CONTINUE YES; 0UT000038 Starting Connect of area EMPDEMO.EMP-DEMO-REGION UT000041 Completed processing of area EMPDEMO.EMPDEMO-REGION, Pages read=10 Records read=6 UT011023 Record name AA Found=2 Changed=2 Ldel=0 0UT000038 Starting Connect of area EMPDEMO.INSDEMO-REGION UT000041 Completed processing of area EMPDEMO.INSDEMO-REGION, Pages read=10 Records read=3 UT011023 Record name BB Found=3 Changed=3 Ldel=0 Status = 0
|
Copyright © 2014 CA.
All rights reserved.
|
|