DICTIONARY INF
WORKDIR TMP
ERASE VSIHBLD,TEM
MARGIN 0,19
PRINTER VSIHBLD,TEM
INPUT po.history
po.history                       VSQ1AH      -
KEYRANGE '8               ' TO '9^^^            '
KEYNAME INGOT
Reading po.history by INGOT
SELECTING ingot eq '8-16-01327' and
ingot.po eq '  2303'
SORT input.size,d
LINES 0
NOHEADINGS
SPACES 0
INDENT 0
REPORT
PRINT ingot;po.number
RUN DataExp,UTL,"INFINFIHBLDX.IBR  "