You mentioned nothing about your environment (lang, OS, editor, etc.)
I'll assume you use ISPF/PDF:
1) Go into edit and call up your pgm code.
2) Enter "bnd 6 80" on the command line.
3) Enter "))2 " as a line command on the 1st line of your pgm.
4) Enter ")) " as a line command on the last line of your pgm.
5) Reset the boundary by entering "bnd" on the command line.
This will shift every line 2 spaces to the right.
If you have seq numbers in cols 73 thru 80 set thebnds to "bnd 6 72".
Be careful; if you have data in cols 71 & 72 the data can get truncated.
So check those cols before you do the shift.
Use "x all;f all p'^' 71 72" If this doesn't work (your keyboard may not be configured foor ^ equal to "not equal") try this:
"x all;f all ' ' 71 72;flip"
Either will display all pgm lines that contain non-blanks in 71 or 72.