This COBOL program extracts price information from a DB2 database table for ACR service plans and outputs it to a file with minimal data manipulation. It opens the same cursors multiple times to select different fields for different record types, making processing easier. It includes error handling for empty cursors and outputs informational messages for some. The program extracts data from multiple DB2 tables joined together and limits results to the most current effective and non-expired records.