You are not getting column names out because you didn't put that in your program. Between line 173 and 174, insert this code
MVI PLINE,C' '
In line 183, change
and you really should use EDMK instead of ED on line 184 for inserting the currency symbol. Similar changes to the edit masks are needed on lines 189, 192, 195. Lines 186 and 187 are flat-out wrong -- you cannot move a packed decimal data field to the print line and expect anything printable to result. You used edit masks for the other packed decimal fields, why did you not use them for these two fields? Those weird looking characters you see in your output lines are the data -- it doesn't look right because you did not properly use your edit masks and truncated them.
I would change line 218 from
PLINE DC CL1' ' PRINT LINE
PLINE DS 0CL121
DC CL1' ' PRINT LINE
to clearly indicate that the next 121 bytes are all part of PLINE.
can you clarify regarding line 77 (i chose it that way cause the teacher gave us the DSECT values and also the values that we are supposed to pack).
This is a very important lesson to learn: teachers are human, too. They make mistakes. Your teacher didn't compare the card layout to the input statements and hence missed that the 4 needs to be a 3. Or, your teacher could have deliberately inserted that error to see if you could fix it yourself.