home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 25 / CD_ASCQ_25_1095.iso / dos / tools / par330 / exampl04.pom < prev    next >
Text File  |  1995-09-06  |  6KB  |  116 lines
  1. ;   The following comment lines are for quick-reference.
  2. ;   You can copy them into your own POM files to make programming easier.
  3. ;
  4. ;   In the table below:
  5. ;
  6. ;   "var"   means a variable that is being set.
  7. ;   "c"     means a comparator (if omitted, defaults to "equals")
  8. ;   "value" means a variable whose value is being read.
  9. ;   Square brackets [like this] indicate optional items.
  10. ;
  11. ;   -------------------------------------------  ------------------------------
  12. ;   COMMAND FORMATS                              EXAMPLE
  13. ;   -------------------------------------------  ------------------------------
  14. ;   ACCEPT   value c value                       ACCEPT   $FLINE[1 3] = "YES"
  15. ;   APPEND   var value value [value [value]]     APPEND   name first last
  16. ;   BEGIN    value c value                       BEGIN    linecntr < "3"
  17. ;   CALCREAL var value operation value           CALCREAL salary hours "*" rate
  18. ;   CALC     var value oepration value           CALC     total total "+" sold
  19. ;   CHANGE   var value value                     CHANGE   date "/" "-"
  20. ;   CHOP     from to [,from to] [...]            CHOP     1 250, 251 300
  21. ;   DONE     [value c value]                     DONE     $FLINE = "End Data"
  22. ;   ELSE                                         ELSE
  23. ;   EPILOGUE                                     EPILOGUE
  24. ;   END                                          END
  25. ;   HALT     value c value value [value]         HALT     x = y "Item repeated"
  26. ;   IF       value c value var value [value]     IF       x = "Y" THEN z = "N"
  27. ;   IGNORE   value c value                       IGNORE   price = "0.00"
  28. ;   INSERT   var spec value                      INSERT   price "L" "$"
  29. ;   LOG      value c value value                 LOG      x = y "Item repeated"
  30. ;   LOOKCOLS value value value value             LOOKCOLS "1" "3" "8" "255"
  31. ;   LOOKFILE value                               LOOKFILE "C:\TABLES\DATA.TBL"
  32. ;   LOOKSPEC value value value                   LOOKSPEC "Y" "N" "N"
  33. ;   LOOKUP   var value                           LOOKUP   phonenum "FRED JONES"
  34. ;   MINLEN   value [value]                       MINLEN   "15"
  35. ;   NEXTFILE [value c value]                     NEXTFILE $FLINE = "End File"
  36. ;   OUT      [value c value] |output-picture     OUT      z = "X" |{price}
  37. ;   OUTEND   [value c value] |output-picture     OUTEND   z = "X" |{$FLINE}
  38. ;   OUTHDG   value                               OUTHDG   "LIST OF EMPLOYEES"
  39. ;   PAD      var spec character len              PAD      sernum "L" "0" "10"
  40. ;   PAGELEN  value [value]                       PAGELEN  "66" "N"
  41. ;   PARSE    var value from to [control]         PARSE    x $FLINE "2*(" "3*)"
  42. ;   PEEL     var var from to [control]           PEEL     x $FLINE "2*(" "3*)"
  43. ;   PROPER   var [methods [exceptions-file]]     PROPER   custname "I" "XY.PEF"
  44. ;   PROLOGUE                                     PROLOGUE
  45. ;   READNEXT [value c value]                     READNEXT $FLINE[1 5] = "NOTE:"
  46. ;   SET      var value                           SET      name $FLINE[20 26]
  47. ;   SETLEN   var value                           SETLEN   length custname
  48. ;   SOUND    value                               SOUND    "BUZZ"
  49. ;   SPLIT    from to [,from to] [...]            SPLIT    1 250, 251 300
  50. ;   TRACE    var                                 TRACE    price
  51. ;   TRIM     var spec character                  TRIM     price "R" "$"
  52. ;   -------------------------------------------  ------------------------------
  53. ;
  54. ;   DEFAULT VALUES
  55. ;
  56. ;   LOOKCOLS:  Keyfield Start = 1, End = 10; Datafield Start = 12, End = 255
  57. ;   LOOKFILE:  No default, but you can set the file name via the /L parameter
  58. ;   LOOKSPEC:  Trim = Yes; Sorted = No; Case-sensitive = No
  59. ;   MINLEN:    Normal reading (value1) = "1"; READNEXT (value2) = "0"
  60. ;   PAGELEN:   0
  61. ;   PROPER:    Methods:  "IW"
  62. ;
  63. ;   ---------------------------------------------------------------------------
  64. ;
  65. ;   PADDING FOR CLARITY
  66. ;
  67. ;   Before:   IF PRICE "0.00" BONUS "1.00" "0.00
  68. ;   After:    IF PRICE = "0.00" THEN BONUS = "1.00" ELSE "0.00
  69. ;
  70. ;******************************************************************************
  71. ;
  72. ;   Restrict the lines we'll accept
  73. ;
  74. ACCEPT   $FLINE[58 60] = "IBM"
  75. ACCEPT   $FLINE[58 60] = "MAC"
  76. ;
  77. ;   Pad out description, with spaces, to 40 characters
  78. ;   We'll also modify the string -PC to read -IBMPC
  79. ;   Note the trailing space after PC to ensure it's at the end of the string
  80. ;
  81. SET      descrip       = $FLINE[19 49]
  82. INSERT   descrip         "@PC "  "IBM"
  83. PAD      descrip         "R"   " "   "40"
  84. ;
  85. ;   Make quantity only 2 characters wide (maximum would therefore be 99)
  86. ;
  87. SET      qty           = $FLINE[63 66]
  88. TRIM     qty             "A"   " "
  89. PAD      qty             "L"   " "  "2"
  90. ;
  91. ;   Take only the last three digits of the invoice number
  92. ;
  93. SET      inv           = $FLINE[14 16]
  94. ;
  95. ;   Detect minus sign and set price accordingly
  96. ;
  97. SET      price         = $FLINE[70 76]
  98. TRIM     price           "A" " "
  99. IF       $FLINE[77]    = "-" THEN minus = "-" ELSE ""
  100. INSERT   price           "L" minus
  101. PAD      price           "L" " " "7"
  102. INSERT   price           "L" "$"
  103. ;
  104. ;   Set other fields; note use of uppercase version of $FLINE ($FLUPC) for type
  105. ;
  106. SET      itemnum       = $FLINE[01 07]
  107. SET      type          = $FLUPC[51 55]
  108. SET      cat           = $FLINE[58 60]
  109. ;
  110. ;   Set output as follows:
  111. ;   Invoice, Item, Type (in uppercase), Category
  112. ;   Description, Quantity, Unit price
  113. ;
  114. OUT      |{inv} {itemnum} {type} {cat}
  115. OUTEND   | {descrip} {qty}    {price}
  116.