Quarter Saving

1. DISPFILE:FILE=CG.SA.;//Check there should be file CG.SA.Q21AP/Q22AP/M21AP exists.
2. RESETCFOPT;
3. EXECCMDFILE:FILE=CG.SA.Q21AP;
4. EXECCMDFILE:FILE=CG.SA.M21AP;
Note:-Sr no.-1 to 4 should be on Existing MO .
Now you have to change the MO side.
5. RESETMO:MOD=00;
6. RESETCFOPT;
7. EXECCMDFILE:FILE=CG.SA.Q22AP; //Check finished without fault.
8. DISPGEN:VSN=SAVMOD;
9.DISPGEN;
10. DISPMO;
11. TRANSSYFILE:GEN=.........(NEW ONE),VSN=SAVMOD,REASON=REINST,VERIFY=Y;
12. DISPGEN;
12. MODGEN:GEN=..........(NEW ONE),VALIDITY=VALID;
13. DISPGEN;
14. CANGEN:GEN=...........(OLD ONE);
15. DISPMO:MOD=00;
16. CONFMOD:MOD=00 (confirm MOD no.),OST=MBL;
                            Do you want command to be executed ? ( Yes: +/ NO : - )
17. DIAGMOD:MOD=00,LABELMO=YES;// It will Erase data.
18. CONFMOD:MOD=00,OST=ACT;
19. INITMO:VSN=LOGMOD,CD=EBC,MOD=00,OWNER=BBZ(here);// It will Erase Data.
20. DISPMO:MOD=00;
21. RESETCFOPT;
22. EXECCMDFILE:FILE=CG.SA.M21MP;