define record test-record using ! ! a record to demonstrate how BABY_ED2 can be used ! with FMS to enter and edit fields ! 01 test-rec. 03 field1 pic x(20). 03 field2 pic x(20). 03 field3 pic x(1000). 03 field3-parts redefines field3. 05 field3_1 pic x(78). 05 field3_2 pic x(78). 05 field3_3 pic x(78). 05 field3_4 pic x(78). 05 field3_5 pic x(78). 03 field4 pic x(1000). 03 field4-parts redefines field4. 05 field4_1 pic x(78). 05 field4_2 pic x(78). 05 field4_3 pic x(78). 05 field4_4 pic x(78). 05 field4_5 pic x(78). 05 field4_6 pic x(78). ;