1.CDO> CHANGE RECORD SUPPLIER_REC
cont> ROW_MAJOR ARRAY 1:20.
cont> END RECORD.
This example uses the CHANGE RECORD command to add an array
clause to a record called SUPPLIER_REC.
2.CDO> CHANGE RECORD EMPLOYEE_WORK_SCHEDULE
cont> NONAME COBOL.
cont> END RECORD.
In this example, the CHANGE RECORD command uses the NO keyword
to remove the NAME FOR COBOL record property from the EMPLOYEE_
WORK_SCHEDULE record definition.
3.CDO> CHANGE RECORD EMP_ADDRESS.
cont> DELETE DEPT_CODE.
cont> END RECORD.
In this example, the CHANGE RECORD command deletes the DEPT_
CODE field definition.
4.CDO> CHANGE RECORD EMP_ADDRESS.
cont> DEFINE EMP_NAME.
cont> END EMP_NAME DEFINE.
cont> END RECORD.
In this example, the CHANGE RECORD command adds the EMP_NAME
record definition to the EMP_ADDRESS record element.
5.CDO> CHANGE RECORD EMPLOYEE_REC
cont> /* Adding new fields WAGE_STATUS and CLASS_CODE */.
cont> DEFINE WAGE_STATUS.
cont> END DEFINE.
cont> DEFINE CLASS_CODE.
cont> END DEFINE.
cont> END EMPLOYEE-REC RECORD.
To include an additional field in a record definition, use the
CHANGE command with the DEFINE record property. The included
field becomes the last field in the record definition. This
example adds the fields WAGE_STATUS and CLASS_CODE to the
record definition EMPLOYEE_REC.