The IBM-supplied example edit program in COBOL named DSQUXCTC is located in QMF sample library QMF810.SDSQSAPE on z/OS. The example program is heavily commented; it can be browsed online, printed, or modified to suit your needs.