./appl/sh/wrkor| awk -F^ ' /0[23]\/2023/ { print $3,$4,$21 } '  >tmp/OTC
./appl/sh/cotiz| awk -F^ ' /0[23]\/2023/ { print $1,$2,$23,$15 } '  >tmp/CTC

# |  1 H00 filenu 06 01   0 | 2 H01 dateor 10 00   6 | 3 H02 codigo 05 51  16 |
# |  4 H03 cusdat 512 11  21 | 5 H04 obras  07 59 533 | 6 H05 obrdat 256 11 540 |
# |  7 H06 obrass 07 15 796 | 8 H07 condxs 02 55 803 | 9 H08 cndxv1 256 11 805 |
# | 10 H09 observ 256 11 1061 |11 H10 totalo 10 01 1317 |12 H11 deposi 10 01 1327 |
# | 13 H12 balanc 10 01 1337 |14 H13 assoc  03 52 1347 |15 H14 statu  02 53 1350 |

# 16 D00 produc  6   54 | 17 D01 itemss  500 12 | 18 D02 textos  2   16 | 
# 19 D03 adicio  500 15 | 20 D04 costos  10  01 | 21 D05 cantid  6   01 | 
# 22 D06 pricel  10  01 | 23 D07 pricef  10  01 | 24 D08 amount  10  01 | 
# 25 D09 checko  1   17 | 

