awk '

{
printf "%s",substr($0,1,1094)
printf "%1500s",""
print substr($0,1095)

} ' HEAD
exit


# |  1 H00 filenu 06 01   0 | 2 H01 dateor 10 00   6 | 3 H02 cotiza 06 01  16 |
# |  4 H03 fechco 10 00  22 | 5 H04 cusdat 512 11  32 | 6 H05 obrdat 256 11 544 |
# |  7 H06 observ 256 11 800 | 8 H07 ordenc 20 01 1056 | 9 H08 fechae 10 00 1076 |
# | 10 H09 assoc  03 52 1086 |11 H10 respon 03 54 1089 |12 H11 statu  02 53 1092 |

# 13 D00 itemmm  2   01 | 14 D01 itemss  500 12 | 15 D02 textos  2   16 | 
# 16 D03 adicio  500 15 | 17 D04 cantid  6   01 | 18 D05 precio  10  15 | 
