The following example creates a simple test case that includes setup code, a simple test that writes to a data file, and a teardown that tidies up the test at the end. You can enhance this test further by including your own test assertions in the main test case section.
A new test program is created, and within it, the stub-code for your first test case.
       environment division.
       input-output section.
       file-control.
       select cust assign to 'cust.txt'
       organization is line sequential. 
                  			 And add the following immediately after the line data division:
       file section.
       fd cust.
       01 cust-file.
          03 customer-id    pic 9(5).
          03 customer-info  pic x(65). 
                  		   
                  		open output cust
This sets up the test, by opening the file, ready for any file operations performed in the test case itself.
       move 0 to customer-id
       perform 100 times
        add 1 to customer-id
        move "A customer" to customer-info
        write cust-file
       end-perform 
                  			 The test case performs a simple write operation on the file. if this fails, the test case is marked as failed. This is also the section in which you would add your own test assertions; see Determining a test outcome for more information.
move "This is a simple test to write to a data file" to MFU-MD-TESTCASE-DESCRIPTION
close cust
The teardown section tidies up the environment.