For the number of sales without shipping charges, in your TLOOP you need:
CHKLARGE EQU *
ZERO DC PL2'0'
NONOSHIP DC PL2'0'
and you need to do a compare after the CHKLARGE, then a move. Before the CP in the code, you could count the number of sales; if you do that after starting the compares make sure you count every record. NONOSHIP is the number of records with no shipping charge.