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).
;