home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / parsomat.zip / exampl02.pom < prev    next >
Text File  |  2001-07-15  |  1KB  |  54 lines
  1. ;
  2. ;   Ignore lines that are less than 85 characters long
  3. ;
  4. MINLEN   "85"
  5. ;
  6. ;   Ignore lines that contain extraneous information ("^" means "contains")
  7. ;
  8. IGNORE   $FLINE ^ "Date: "
  9. IGNORE   $FLINE ^ "Order      Expected"
  10. IGNORE   $FLINE ^ "Date       Ship Date"
  11. IGNORE   $FLINE ^ "Item number/Description"
  12. ;
  13. ;   Change double-quotes (the " character) to single-quotes (').
  14. ;
  15. CHANGE   $FLINE """" "'"
  16. ;
  17. ;   Determine where we are
  18. ;
  19. IF       $FLINE[8] = " " THEN ItemCounter = ItemCounter+ ELSE "0"
  20. ;
  21. ;   Set variables
  22. ;
  23. BEGIN    ItemCounter  = "0"
  24.   SET    ReferenceNum = $FLINE[  1   8]
  25.   SET    CustomerCode = $FLINE[ 10  15]
  26.   SET    CustomerDesc = $FLINE[ 17  47]
  27.   SET    OrderDate    = $FLINE[ 49  57]
  28.   TRIM   ReferenceNum "B" " "
  29.   TRIM   CustomerCode "B" " "
  30.   TRIM   CustomerDesc "B" " "
  31.   TRIM   OrderDate    "B" " "
  32. END
  33.  
  34. BEGIN    ItemCounter  = "1"
  35.   SET    Price        = $FLINE[105 114]
  36.   SET    Quantity     = $FLINE[ 76  86]
  37.   SET    PartNumber   = $FLINE[ 10  32]
  38.   TRIM   Price        "B" " "
  39.   TRIM   Price        "A" ","
  40.   TRIM   Quantity     "B" " "
  41.   TRIM   PartNumber   "B" " "
  42.   IF     Price    = "" THEN Price = "0.00"
  43.   IF     Quantity = "" THEN Quantity   = "0"
  44. END
  45.  
  46. BEGIN    ItemCounter = "2"
  47.   SET    Description  = $FLINE[ 10  43]
  48.   TRIM   Description  "B" " "
  49.   OUT    |"{ReferenceNum}","{CustomerCode}",
  50.   OUT    |{Price},{Quantity},"{PartNumber}",
  51.   OUTEND |"{Description}"
  52.   SET    ItemCounter = "0"
  53. END
  54.