home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / parsomat.zip / quickref.pom < prev    next >
Text File  |  2001-07-15  |  8KB  |  132 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. ;   ----------------------------------  ---------------------------------------
  5. ;   COMMAND FORMATS                     EXAMPLE
  6. ;   ----------------------------------  ---------------------------------------
  7. ;   ACCEPT   comp                       ACCEPT   $FLINE[1 3] = "YES"
  8. ;   AGAIN    [comp]                     AGAIN    linecntr #< "3"
  9. ;   APPEND   var val val [val [val]]    APPEND   name first last
  10. ;   BEGIN    [comp]                     BEGIN    linecntr #< "3"
  11. ;   CALL     val                        CALL     "Format Price Field"
  12. ;   CALC     var num operation num      CALC     total total "+" sold
  13. ;   CALCBITS var char operation char    CALCBITS z byte1 "XOR" $80
  14. ;   CALCREAL var num operation num      CALCREAL salary hours "*" rate
  15. ;   CHANGE   var val val                CHANGE   date "/" "-"
  16. ;   CHOP     from to [,from to] [...]   CHOP     1 250, 251 300
  17. ;   CODE     val                        CODE     "Format Price Field"
  18. ;   COPY     var val ixfrom [ixto]      COPY     x $FLINE "-2" "-1"
  19. ;   CVTCASE  var val [ctl]              CVTCASE  x $FLINE "L7"
  20. ;   DATE     var num num num [ctl]      DATE     x "98" "12" "31"
  21. ;   DEC      var val                    DEC      x "2"
  22. ;   DELETE   var ixfrom [ixto]          DELETE   x "3" "5"
  23. ;   DONE     [comp]                     DONE     $FLINE = "End Data"
  24. ;   ELSE                                ELSE
  25. ;   END                                 END
  26. ;   EPILOGUE                            EPILOGUE
  27. ;   ERASE    file                       ERASE    "C:\MYFILES\OUTPUT.TXT"
  28. ;   EXTRACT  var var ixfrom [ixto]      EXTRACT  x $FLINE "15" "30"
  29. ;   FILESIZE var file                   FILESIZE x "C:\MYFILES\INPUT.TXT"
  30. ;   FINDPOSN var val left [right [ctl]] FINDPOSN x $FLINE "2*/"
  31. ;   GET      var ctl [ctl [ctl]]        GET      x #0 "END" "I"
  32. ;   GETENV   var val                    GETENV   x "COMSPEC"
  33. ;   GETTEXT  var ctl [ctl]              GETTEXT  date "WORD" "DATE"
  34. ;   HALT     comp val [ctl]             HALT     x = y "Item repeated"
  35. ;   IF       comp var val [val]         IF       x = "Y" THEN z = "N"
  36. ;   INC      var val                    INC      x "2"
  37. ;   IGNORE   comp                       IGNORE   price = "0.00"
  38. ;   INSERT   var ctl val                INSERT   price "L" "$"
  39. ;   KEEP     num                        KEEP     "5"
  40. ;   LOG      comp val [val [val]]       LOG      x = y "Item repeated"
  41. ;   LOOKCOLS num num num num            LOOKCOLS "1" "3" "8" "255"
  42. ;   LOOKFILE file                       LOOKFILE "C:\TABLES\DATA.TBL"
  43. ;   LOOKSPEC ctl ctl ctl                LOOKSPEC "Y" "N" "N"
  44. ;   LOOKUP   var val                    LOOKUP   phonenum "FRED JONES"
  45. ;   MAKEDATA var val ctl                MAKEDATA x "255" "BYTE"
  46. ;   MAKETEXT var val ctl                MAKETEXT z x "BYTE"
  47. ;   MAPFILE  file val [ctl]             MAPFILE  "XYZ.MPF" "XYZ" "ANYCASE"
  48. ;   MINLEN   num [num]                  MINLEN   "15" "1"
  49. ;   MONTHNUM var val                    MONTHNUM x "February"
  50. ;   MSGWAIT  num                        MSGWAIT  "60"
  51. ;   NEXTFILE [comp]                     NEXTFILE $FLINE = "End File"
  52. ;   OFILE    file [val [ctl]]           OFILE    "C:\MYFILES\OUT.TXT"
  53. ;   OUT      [comp] |pic                OUT      z = "X" |{price}
  54. ;   OUTEND   [comp] |pic                OUTEND   z = "X" |{$FLINE}
  55. ;   OUTHDG   val                        OUTHDG   "LIST OF EMPLOYEES"
  56. ;   OUTPAGE  [comp]                     OUTPAGE  partnum <> oldpartnum
  57. ;   OVERLAY  var val from               OVERLAY  x "***" "15"
  58. ;   PAD      var ctl char num           PAD      sernum "L" "0" "10"
  59. ;   PAGELEN  num [ctl]                  PAGELEN  "66" "N"
  60. ;   PARSE    var val left right [ctl]   PARSE    x $FLINE "2*(" "3*)" "I"
  61. ;   PAUSE    num                        PAUSE    "1000"
  62. ;   PEEK     var                        PEEK     nextline
  63. ;   PEEL     var var left right [ctl]   PEEL     x $FLINE "2*(" "3*)" "I"
  64. ;   PEELX    var var left right [ctl]   PEELX    word wordlist "" " "
  65. ;   PROLOGUE                            PROLOGUE
  66. ;   PROPER   var [ctl [file]]           PROPER   custname "I" "XY.PEF"
  67. ;   RANDOM   var val val                RANDOM   roll "1" "6"
  68. ;   READNEXT [comp]                     READNEXT $FLINE[1 5] = "NOTE:"
  69. ;   REMAP    var [val]                  REMAP    $FLINE "BIN2CODE"
  70. ;   REWIND   [num]                      REWIND   "15"
  71. ;   ROUNDING val                        ROUNDING "N"
  72. ;   SCANPOSN var var val val [ctl]      SCANPOSN from to $FLINE "/MR/MISS/MRS"
  73. ;   SET      var val [val [val]]        SET      price $FLINE[20 26] "L$" "0"
  74. ;   SETERROR [comp] val                 SETERROR custname = "NONE" "123"
  75. ;   SETLEN   var val                    SETLEN   length custname
  76. ;   SHOWNOTE val [val] [val] [...]      SHOWNOTE "Processing record #" recnum
  77. ;   SOUND    ctl                        SOUND    "BUZZ"
  78. ;   SPLIT    from to [,from to] [...]   SPLIT    1 250, 251 300
  79. ;   TODAY    var [ctl]                  TODAY    x "?y/?n/?d"
  80. ;   TRACE    var                        TRACE    price
  81. ;   TRIM     var ctl char               TRIM     price "R" "$"
  82. ;   ZERODATE num num num                ZERODATE "1753" "12" "31"
  83. ;   ----------------------------------  ---------------------------------------
  84. ;
  85. ;   The following conventions are used in the preceding table:
  86. ;
  87. ;   comp   A comparison (Example: Name = "John")
  88. ;   ctl    Variable or literal: command control specifications
  89. ;   file   File name (see "How Parse-O-Matic Searches for a File")
  90. ;   from   Variable or literal: a starting character position (see Note #1)
  91. ;   ixfrom Variable or literal: character position (begining from...)
  92. ;   ixto   Variable or literal: character position (ending at...)
  93. ;   left   Variable or literal: a delimiter-search parameter (decapsulator)
  94. ;   num    Variable or literal: must contain a number (see Note #1)
  95. ;   pic    Output picture used by OUT and OUTEND
  96. ;   right  Variable or literal: a delimiter-search parameter (decapsulator)
  97. ;   to     Variable or literal: an ending position (see Note #1)
  98. ;   val    Variable or literal whose value is being read
  99. ;   var    Variable that is being set
  100. ;   [xxx]  Square brackets indicate optional items
  101. ;
  102. ;   Note #1:  Tabs, spaces and commas are stripped from numeric values
  103. ;
  104. ;   COMMAND   DEFAULT SETTINGS
  105. ;   --------  -----------------------------------------------------------------
  106. ;   CVTCASE   "UI" (Uppercase, IBM extended character set)
  107. ;   DATE      Default date format is as set in POMDATE.CFG
  108. ;   FINDPOSN  "IS" (Include, Start)
  109. ;   LOOKCOLS  Keyfield Start = 1, End = 10; Datafield Start = 12, End = 255
  110. ;   LOOKFILE  No default, but you can set the file name via the /L parameter
  111. ;   LOOKSPEC  "Y" "N" "N" (Trim = Yes; Sorted = No; Case-sensitive = No)
  112. ;   MAPFILE   "MATCHCASE"
  113. ;   MINLEN    Normal and PEEK reading = "1"; READNEXT = "0"
  114. ;   OFILE     Default deduction is "WEAK" (override filename if not specified)
  115. ;   PAGELEN   "0" "N" if command omitted; ctl defaults to "Y" (use form feeds)
  116. ;   PARSE     "X"  (Exclude delimiters)
  117. ;   PEEL      "X"  (Exclude delimiters)
  118. ;   PROPER    "IW" (Intelligent word detection, capitalize each word)
  119. ;   ROUNDING  "Y"  (Perform rounding if precision is specified in CALCREAL)
  120. ;   SCANPOSN  "I" (Ignore case when comparing; find any occurence)
  121. ;   TODAY     Default date format is as set in POMDATE.CFG
  122. ;
  123. ;   ---------------------------------------------------------------------------
  124. ;
  125. ;   PADDING FOR CLARITY
  126. ;
  127. ;   Before:   IF PRICE "0.00" BONUS "1.00" "0.00
  128. ;   After:    IF PRICE = "0.00" THEN BONUS = "1.00" ELSE "0.00
  129. ;
  130. ;******************************************************************************
  131. ;
  132.