;
;   NOTE:  A quick-reference summary of POM commands appears in EXAMPL04.POM
;
;-------------------------------------------------------------------------------
;
;   Ignore lines that are less than 85 characters long
;
MINLEN   "85"
;
;   Ignore lines that contain extraneous information ("^" means "contains")
;
IGNORE   $FLINE ^ "Date: "
IGNORE   $FLINE ^ "Order      Expected"
IGNORE   $FLINE ^ "Date       Ship Date"
IGNORE   $FLINE ^ "Item number/Description"
;
;   Change double-quotes (the " character) to single-quotes (').
;
CHANGE   $FLINE """" "'"
;
;   Determine where we are
;
IF       $FLINE[8] = " " THEN ITEMCNTR = ITEMCNTR+ ELSE "0"
;
;   Set variables
;
BEGIN    ITEMCNTR = "0"
  SET    REFNUM   = $FLINE[  1   8]
  SET    CUSTCODE = $FLINE[ 10  15]
  SET    CUSTDESC = $FLINE[ 17  47]
  SET    ORDRDATE = $FLINE[ 49  57]
  SET    MSTRCVDT = $FLINE[ 60  68]
  TRIM   REFNUM   "B" " "
  TRIM   CUSTCODE "B" " "
  TRIM   CUSTDESC "B" " "
  TRIM   ORDRDATE "B" " "
  TRIM   MSTRCVDT "B" " "
END

BEGIN    ITEMCNTR = "1"
  SET    PRICE    = $FLINE[105 114]
  SET    QTY      = $FLINE[ 76  86]
  SET    PARTNUM  = $FLINE[ 10  32]
  TRIM   PRICE    "B" " "
  TRIM   PRICE    "A" ","
  TRIM   QTY      "B" " "
  TRIM   PARTNUM  "B" " "
  IF     PRICE     = "" THEN PRICE = "0.00"
  IF     QTY       = "" THEN QTY   = "0"
END

BEGIN    ITEMCNTR = "2"
  SET    DESCRIP  = $FLINE[ 10  43]
  TRIM   DESCRIP  "B" " "
  OUT    |"{REFNUM}","{CUSTCODE}",{PRICE},{QTY},"{PARTNUM}",
  OUTEND |"{DESCRIP}"
  SET    ITEMCNTR = "0"
END