PROGEN

professional generator

This documentation is also part of the zip file progen.zip which also contains the program. The program runs under Win95 and above. The version number 0.5 says nearly everything about the program status. PROGEN is free for non commercial and private use. If you want to use it for commercial applications, if you need any help, if you have an example to publish or if you like to tell me your opinion about it please send me a mail.

PROGEN is a source code generator which can produce any kind of source code. I use it mainly to produce COBOL files and have therefor implemented a parser for COBOL data records. The input files can be easily build from existing applications. When you take an existing C-file as input file, the output is a 1:1 copy of the input file. Sure this doesn't make much sense, but with the powerful control language, the expression calculator, tab handling and the possibility of using variables and tables you can easily build useful templates.

The input file (default extension is ".src") consists of two types of lines. A control statement always starts in column one. If column one is empty, the line is interpreted as a source code line which is passed to the output file (default extension is ".gen"). Before an output line is written, used variables where substituted by their values, expressions where calculated and tabs where expanded. To overpass the disadvantage that source lines can't be defined in column one, you can use the tab 1 ("<1>") to generate an output line beginning in col one.

Introduction to the following parts of the input file:

control language
expressions
variables
tab

control language

As said before, a control statement always starts in column one, and begins with a keyword. It is possible to switch off this mechanism by the keyword ignoreCtrlLine to handle data lines beginning in column one. The parameters of the control statements are literals, numbers or variables. You can use inline comments in control lines with "*>".

Table of keywords of control language:

.	Symbol for control line. Next word is keyword. Allows keyword indent for better reading
*	Comment line which is not analyzed
$	Define and compute a variable
/	Continuation, the current line is added to the line before
ignoreCtrlLine	The following lines are data lines, even if they begin in column one until ...
end-ignoreCtrlLine	... the following lines are again interpreted as control lines if they begin in column one
assignformat	Associate a format string to a variable
table	Create a table (indexed variable). A table stores variables organized in cols and rows (like SQL-table)
end-table	End of table definition
addfields	Add fields (cols) to an existing table
saveas	Save generate file as ...
open	Opens a new input file
createas	Create generate file as ..., but only if it does not exist
copyascobolcomment	Copy file as a cobol comment
close	Save generate file and close it
command	Exec an os command
loop	Start a loop
exit-loop	Quit a loop before normal termination
end-loop	End of loop
evaluate	Start evaluate (like switch in "C")
when	When statement (like case in "C")
end-evaluate	End of evaluate
if	Evaluate a condition
else	Else part of a condition
else if	Combination of "else" and "if" in one line
end-if	End of a condition
define	Define a procedure
end-define	End of procedure definition
function	Define a function
end-function	End of function definition
dialog	Create a dialog box
execDialog	calls a created dialog box
message	Show a message
exec	Call a procedure
scan	Invoke a scanner
end-scan	End of lines to be scanned
calc	Execute an expression

.

Symbol for control line. Next word is keyword. Allows keyword indent for better reading

Syntax:
. <keyword>

Example:
.    if $a > 10
                     a is greater then 10
.         if $a > 20
                     a is greater then 20
.         end-if
.      end-if

*

Comment symbol (see also inline comment)
Syntax:
* <text>

Example:
* This is a comment line which is not analyzed

$

Define and compute a variable. Please see also the feature to build var names at run time with the $ function

Syntax:
$ <var> := <expression>

Examples:
$min := min($val1, $val2, $val3 * $val4)
$file := "datei"
$age := 20

/

Continuation, the current line is added to the line before. Be aware that the combined lines may not exceed 1000 bytes.

Syntax:
/ <expression>

Examples:
if $Name = "Sebastian"
/        or $Name = "Peter"
/        or $Name = "George"
/        or $Name = "Marion"
     $Name is member of the fun club.
end-if

ignoreCtrlLine

The following lines are data lines, even if they begin in column one until the keyword end-ignoreCtrlLine

Syntax:
/ <expression>

Examples:
if $Name = "Sebastian"
/        or $Name = "Peter"
/        or $Name = "George"
/        or $Name = "Marion"
     $Name is member of the fun club.
end-if

assignformat

Associate a format string to a variable. The behavior of the format string is comparable to COBOL display variable definition. For alphanumeric vars there is only one possibility to describe the associated format by defining the size e.g. "x(35)", defines the size to 35 bytes. Numeric variables can be defined much more complex. Sign can be defined before or after the number. Leading zeros can be ignored. Thousand points can be used (see also $decimalPoint). Various filler can be used (e.g. "/" or ":").

"-": In the first occurrence is replaced by "-" if the number is negative, by " " space if it is positive. The followings occurrences are like "z".
"+": like "-" but the first occurrence is replaced by "+" if the number is positive.
"z": a zero is printed as "0" only, if already another digit is already printed; so with "z" you can cut leading zeros.
"9": the related digit is always printed
"." or "," are interpreted as thousand or decimal point according to the value of $decimalPoint.
any other char is printed 1:1

Syntax:
assignformat <variable> <expressionFormat>

Example:
assignformat $varString "x(35)"    *> It's an alphanumeric var with size 35 Bytes
assignformat $varNum1 "---.---.--9,99"    *> It's a numeric var with leading sign. Leading zeros are ignored. "-23.459,00" "12,99"
assignformat $varNum2 "zzz.zz9,99-"    *> It's a numeric var with sign at end. Leading zeros are ignored. "23.459,00-" "12,99"

table

Create (define) a table (indexed variable). A table consists of one or more cols and of one or more rows. The <tableDescriptor> specifies the number of cols, the type and the length of the cols. There are three different types of cols.
1)    Alphanumeric type "x", syntax: "aName:x:20;"
2)    Integer type "n", syntax: "nName:n:4;"
3)    Real type "s" with additional amount of decimals, syntax: "sName:x:8:2;"
Each col descriptor ends with a ";". All col descriptors are combined to a string e.g. "name:x:20;age:n:3;".
The size of a table is returned by the function tabUsed(<tableName> ) or tabUsed(<tabVariable>) .

Syntax:
table <tableName>
<tableDecriptor>
{<tableData>}
end-table

Example:
in the following example a table is defined with to cols named "name" (type alpha 20 bytes) and "age" (type numeric 3 bytes) . The name of the table is "person".
table "person"
        "name:x:20;age:n:3;"
        "Sebastian Mayer", 38
        "Annette Pfeufer", 34
        "Gerhard Bumann", 39
        "Anika Heindl", 1
end-table
see also loop

end-table

End of table definition

Syntax:
end-table

<tabId>

addfields

Adds new fields to an existing table. A table consists of one or more cols and of one or more rows. The <tableDescriptor> specifies the number of cols, the type and the length of the cols. There are three different types of cols.
1)    Alphanumeric type "x", syntax: "aName:x:20;"
2)    Integer type "n", syntax: "nName:n:4;"
3)    Real type "s" with additional amount of decimals, syntax: "sName:x:8:2;"
Each col descriptor ends with a ";". All col descriptors are combined to a string e.g. "name:x:20;age:n:3;".
The size of a table is returned by the function tabUsed(<tableName> ) or tabUsed(<tabVariable>) .

Syntax:
addfields <tableId> <tableDecriptor>

Example:
in the following example adds a new col "birthyear" to the existing table "person", identified by its col name "name". Afterwards the value of each row is computed by the simplified formula birthyear = curentYear - age.
table "person"
        "name:x:20;age:n:3;"
        "Sebastian Mayer", 38
        "Annette Pfeufer", 34
        "Gerhard Bumann", 39
        "Anika Heindl", 1
end-table
addfields "$name" "birthyear:n:4;"
loop tabUsed($name)
.    $birthyear := $sysyear - $age
end-loop

saveas

Save generate file as ...

Syntax:
saveas <expression>
saveas "clipboard" Saves generated data to windows clipboard

Examples:
saveas "test.gen"
saveas concat(substr($main, 1, 3), "e.gen")

open

Open a new input file

Syntax:
open <expression>
open "clipboard" Opens windows clipboard as input file

Examples:
open "input.src"
open concat(substr($main, 1, 3), "e.gen")

createas

Create generate only if it does not exist

Syntax:
createas <expression>

Example:
createas $outfile

copyascobolcomment

Copy file as a cobol comment, which means that the original line was shifted to col 12 and in col 7 there's an "*". This can be used for documentation purposes

Syntax:
copyascobolcomment <expression>[":" <fromLine> ":" <toLine> ]

Example:
copyascobolcomment "orig.gra":1:20

close

Save generate file and close it. This function is normally not required because a "close" is implicitly performed, when generation is completed or the outputfile changes. But if you work with an endless loop e.g. running PROGEN as a clipboard expander, you have to force the writing

Syntax:
close

Example:
The following examples runs in an endless loop. The user is asked for a source file to be processed. When the process is over the result is stored, when the "close" command is handled.
loop 100000000 *> Runs a loop so often, that it is nearly an endless loop
open input("Please enter name of sourcefile:")
close
end-loop

command

Exec an os command

Syntax:
command <expression>

Example:
command "gcc -c $main.c -o $main"

loop

Start a loop which is processed from 1 or <fromNum> to <toNum>. This counter can be explicitly addressed by $loop. When a variable from a table is used without specifying an index, loop is used as the index. It is also possible to terminate a loop depending on a condition by using "loop until" <condition>.

Syntax:
loop <fromNum>:<toNum>
loop <toNum>
loop until <condition>

Example:
in the following example a table is defined with to cols named "name" (type alpha 20 bytes) and "age" (type numeric 3 bytes) . The name of the table is "person". When a table is defined a variable named "no"<tableName> was created, which stores the number of rows of the table.
table "person"
        "name:x:20;age:n:3;"
        "Sebastian Mayer", 38
        "Annette Pfeufer", 34
        "Gerhard Bumann", 39
        "Anika Heindl", 1
end-table
loop tabUsed($age)      *> Loop over every table row from the table ("person") in which $age is defined
.    if $age < 2
                      <1>$name is $age year old
.    else
                      <1>$name is $age years old
.    end-if
end-loop

exit-loop

Quit loop before normal termination

Syntax:
exit-loop

Example:
loop $noPerson
.    if $age = 0
                      <1>Illegal entry in person table: $name
.       exit-loop
.    end-if
.    if $age < 2
                      <1>$name is $age year old
.    else
                      <1>$name is $age years old
.    end-if
end-loop

end-loop

End of loop

Syntax:
end-loop

evaluate

Start evaluate (like switch in "C"). The evaluate clause executes the first when clause which condition is true and jumps to "end-evaluate" afterwards. The when clause "other" is always true.

Syntax:
evaluate

Example:
loop tabUsed(person)
.    evaluate
.        when $age < 1
                      <1>$name is less then a year old
.        when $age = 1
                      <1>$name is 1 year old
.        when other
                      <1>$name is $age years old
.    end-evaluate
end-loop

when

When statement (like case in "C")

Syntax:
when <condition>
when other

Example:
see evaluate

end-evaluate

End of evaluate

Syntax:
end-evaluate

if

Evaluate a condition

Syntax:
if <condition>

Example:
if $age < 18 or $age > 65
Reduced entrance price for $person
else
Normal entrance price for $person
end-if

else if

Is a combination of else and if in one control line

Syntax:
else if <condition>

Example:
if $age < 18
       Reduced entrance price for $person
else if $age < 65
       Normal entrance price for $person
else
       Reduced entrance price for $person
end-if end-if

else

Else part of a condition

Syntax:
else

Example:
see if

end-if

End of a condition. You can combine more then one "end-if" if you have to close several if.

Syntax:
end-if {end-if}

Example:
see "else if"

define

Defines a procedure which can be called with exec .

Syntax:
define <expression>

Example:
the following complex example defines a procedure which calls a second procedure when a variable is assumed to be part of an index of a COBOL isam file. The assumption is, that the first real vars of a data record are index vars, if they have the same or a lower level as the first real var.
define "keyFilter"
$lev := 0
loop $noDataRecord
*    if the current level is greater then the one of the first real var do nothing more
. if $lev > 0 and $lev < 99 and $datVarLevel < $lev
.     $lev := 99
. end-if
*         no Group, Constant or Boolean
. if $datVarType > 0 and $datVarType < 78 and $lev < 99
*      if it is the first real var, store the var level
.     if $lev = 0
.        $lev := $datVarLevel
.     end-if
exec $filterProc          *> A second Procedure was called, whose name is stored in $filterProc
. end-if
end-loop
end-define

end-define

End of procedure definition

Syntax:
end-define

function

Define a function. The difference to a procedure is that a function is executed by CALC the expression analyzer, while a procedure is executed by PROGEN.

Syntax:
function <expression>

Example:
see dialog

end-function

End of function definition

Syntax:
end-function

dialog

Create a dialog box. At present time the following gadgets, are supported:

Text label "text": show a text in dialog box
Text entry "textentry": display a label and create an edit field, associated with a format string
pushbutton creates one or more buttons placed at the bottom of the box. You can associate a function to a button, which results in that function call when the button is pressed. Any other button will finish dialog box editing and will write the value of the button (i.e. the number of the button) in the variable $button

Syntax:
dialog <expression>
   {
        text(<expression>) |
        textentry(<labelLiteral> , <formatLiteral>, <variable>)
   }
end-dialog

Example:
table "person"
   "name:x:35;age:n:3;"        *> Define a table with 2 columns: name and age
end-table
*
function "okPressed"            *> Add data from dialog box to table "person" and show message
   $row := addTableLine("person", $diaPerson, $diaAge)
   message(concat("Person ï", $diaPerson, "ï, age ï", $diaAge "ï added as number ï", $row, "ï"))
end-function
*
dialog "Person"
      textentry("Name: ", "x(35)", $diaPerson)
      textentry("Age : ", "z(03)", $diaAge)
      pushbutton("OK":{okple:
see dialog example

message

Show a message box

Syntax:
message(<expression>)

Example:
see dialog example

calc

Exec a calc expression

Syntax:
calc <expression>
calc <condition>

Example:
calc

execCall a procedure

Syntax:
exec <expression>

Example:
exec "keyFilter"

scan

Invoke a scanner. For any kind of data, a scanner can be written, which scans all data until "end-scan". The result is put in tables and variables which can be used for the former generation process. Scanners can be added at any time. At present there is only one scanner available, called "cbldata" which scans a cobol data structure.

Syntax:
scan <scanner>

Example:
scan cbldata
       01 adr010-satz.
             05 adr010-ob.
                10 adr010-betrnr       pic 9(2) comp.
                10 adr010-sa           pic 9(2) comp.
                  88 adr010-debitor    value 1.
                  88 adr010-kreditor   value 2.
                10 adr010-ktonr        pic 9(10) comp.
                10 adr010-lnr          pic 9(8) comp.   *> lfd.Nummer
             05 adr010-alpha.
                 10 adr010-adr1        pic x(35).       *> 1.adresszeile
                 10 adr010-titel       pic x(15).
                 10 adr010-vname       pic x(20).
                 10 adr010-adr2        pic x(35).       *> 2.adresszeile
                 10 adr010-adr3        pic x(35).       *> 3.adresszeile
                 10 adr010-adr4        pic x(35).       *> 4.adresszeile
                 10 adr010-strasse     pic x(35).
                 10 adr010-postort     pic x(35).
                 10 adr010-plz         pic x(07).
                 10 adr010-ort         pic x(26).
                 10 adr010-brief-anr   pic x(35).
                 10 adr010-brief-name pic x(35).
                 10 adr010-listen-name pic x(35).
end-scan

after scanning of the cobol data structure, the following vars are available for every data field:

                  $datOffset         *> Offset within structure
                  $datNoByte         *> No of bytes
                  $datVarName        *> Name
                  $datValueNum       *> If a numerical value is assigned, the value
                  $datValueLiteral   *> If a literal value is assigned, the value
                  $datVarLevel       *> The Level ( 01 02 .. 78 88 )
                  $datVarRedefines   *> If redefines 1
                  $datVarString      *> The format string
                  $datVarFString     *> Another format string
                  $datOccLev         *> Level of occurrence
                  $datOccValConst    *> Constant No of poss. occurrences
                  $datOccValNum      *> No of poss. occurrences
                  $datVarType        *> Datatyp: 0=group, 1=alpha, 2=comp, 3=display
                  $datVarDec         *> If numeric no of numbers after decimal point
                  $datVarSign        *> "-" " " or "+"
                  $datVarComment     *> Associated comment to var

end-scan

End of lines to be scanned

Syntax:
end-scan

Expressions

PROGEN can handle three types of expressions. Alphanumeric, numeric and boolean ones. Expression are made of numbers, literals, variables, operators and functions. Like in "C" every numeric value can also be used as a boolean one. False is equivalent to 0, any other numeric value means true. Brackets "(" and ")" are supported as well as operator precedence, though 4 + 5 * 3 is computed as 19. The following two tables listen the operands and the functions which are available in PROGEN.

Table of Operands

and	Logical and
or	Logical or
not	Negotiation
>	Greater
<	Less
>=	Greater or equal
<=	Less or equal
=	Equal
<>	Different
;	Handle more then one expression at a time, return the result of the last expression
+	Numerical addition or string concatenation
-	Numerical subtract
/	Division
*	Multiplication
:=	Set value of a variable, return the value
(	Bracket handling
other	Return numeric value "1" which is equivalent to true

Table of functions

$	Create a var name at run time
apply	Apply a parameter string to a function
average	Compute the average of a list of numbers
min	Compute the min of a list of numbers
max	Compute the max of a list of numbers
abs	Return the abs value of a num
mod	Modulo function returns the remainder
fix	Fix function returns the divisor
env	Get value of environment variable
length	Return length of string expression
firstup	Convert first char to upper case
toupper	Convert to upper case
tolower	Convert to lower case
cbl2c	Convert COBOL var to C var with replacing "_" by "-"
dos2win	Convert chars to windows character set, especially german "Umlaute"
dos2html	Converts chars to html syntax, especially german "Umlaute"
substr	Get a substring
concat	Concatenate two or more strings
quote	Wrap a string in "
dollar	Put an "$" before the string
definedIn	Look if a value is part of a table
definedInIgnore	Look if a value is part of a table, ignoring case
addTableLine	Adds a line to a table, returning the row (size of table)
input	Query user for a value of a variable and set the value
tabUsed	Return number of rows from a table
tabHandle	Return table handle

Operands

and

Logical and

Syntax:
<expression> and <expression>

Example:
if $a > 10 and $b < 20

or

Logical or

Syntax:
<expression> or <expression>

Example:
if $a > 10 or $b < 20

not

Negotiation

Syntax:
not <expression>

Example:
if not $Name = "Mayer"
see also <>

>

Greater

Syntax:
<expression> > <expression>

Example:
if $city1 > $city2

<

Less

Syntax:
<expression> <expression>

Example:
if $a < 10

>=

Greater or equal

<=

Less or equal

=

Equal

<>

Different

Syntax:
if <expression> <> <expression>

Example:
if tolower($Name) <> "sebastian"

;

Handle more then one expression at a time, return the result of the last expression

Syntax:
<expression>; <expression>{; <expression>}

Examples:
$sum1 := 12 + 4 ; $sum2 := 12 + 5

+

Numerical addition or string concatenation. If you use this operator for string concatenation, all used elements must be string. If you are not sure about it, take concat which does take the alpha representations (i.e. string) of numbers.

Syntax:
<expression> + <expression>

Examples:
$sum := 12 + 4
$address := $name + ", " + $street + ", " + $city
see also concat

-

Numerical subtract

Syntax:
<expression> - <expression>

/

Division

*

Multiplication

:=

Set value of a variable, return the value

Syntax:
<var> := <expression>

Example:
$sum := 12 + 4
$address := $name + ", " + $street + ", " + $city
if ($sum := 12 +$last) > 20
. $sum := 20
end-if

(

Bracket handling

Syntax:
( <expression> )

Example:
$sum := (4 + 5) * 3

other

Return numeric value "1" which is equivalent;                                  ;             *> New radio button, first button of group
.     $(concat($s2, "Lgt")) := 1
.     $(concat($s2, "Offs")) := $su
. else                                      & ;                                *> Button is 2 or more of a group
.     $(concat($s2, "Lgt")) := $(concat($s2, "Lgt")) + 1
. end-if
end-if
end-loop
*
         01 infoTab.
loop tabUsed($datVarName)
if (not $isRBut or $newRBut)
               03 $vName-entry.
                   04 $mw-fObj        object reference.
. if $isRBut
                   04 $mw-fId         pic x(04) comp-5 value 0.
                   04 $mw-fTyp        pic 9(02) comp value 6.
                   04 $mw-fRadOffs    pic x(04) comp-5 value {$(concat($s2, "Offs"))}.   *> Offset radio button in table
                   04 $mw-fRadLgt     pic x(04) comp-5 value {$(concat($s2, "Lgt"))}.   *> No radio button in table
. else
                   04 $mw-fId         pic x(04) comp-5
                                       value $vName-w.
                   04 $mw-fTyp        pic 9(02) comp value 1.
                   04 $mw-fRadOffs    pic x(04) comp-5 value 0.   *> Offset radio button in Tabelle
                   04 $mw-fRadLgt     pic x(04) comp-5 value 0.   *> Anzahl radio button in Tabelle
. end-if
                   04 $mw-fFld-offs   pic x(04) comp-5 value {$(concat($vName, "_O"))}.
                   04 $mw-fFld-lge    pic x(04) comp-5 value {$(concat($vName, "_L"))}.
end-if
end-loop

apply

Apply a parameter string to a function.

Syntax:
apply( <parameterExpression> , <functionExpression> )

Example:
table "person"
        "name:x:20;age:n:3;"
        "Sebastian Mayer", 38
        "Annette Pfeufer", 34
        "Gerhard Bumann", 39
        "Anika Heindl", 1
end-table
$line := $age[1]        *> Get age of first person
loop 2:tabUsed($age)      *> Loop over every table row, beginning with row = 2, from the table ("person") in which $age is defined
$line := concat($line, ", ", $age)      *> Append for every more person ", <age>"
end-loop
* The first appliance is equivalent to "average(38, 34, 39, 1)"
     Average age is {apply($line, "average")}
     Minimum age is {apply($line, "min")}
     Maximum age is {apply($line, "max")}

average

Computes the average of a list of numbers

Syntax:
average( <expression> {, <expression> } )

Example:
see apply

max

Computes the max of a list of numbers

Syntax:
max( <expression> {, <expression> } )

Example:
see apply

min

Computes the minimum of a list of numbers

Syntax:
min( <expression> {, <expression> } )

Example:
see apply

abs

Return the abs value of a num

Syntax:
abs( <expression> )

Example:
abs(-5) = 5

mod

Modulo function returns the remainder

Syntax:
mod( <expression>, <expression>)

Example:
if 1 = mod($yearMonth, 12) + 1 *> If month is january

fix

Fix function returns the divisor

Syntax:
fix( <expression>, <expression>)

Example:
fix($sallary / 1000) *> Integer part of $sallary in thousand

env

Get value of environment variable

Syntax:
env (<expression>) *> Returns the value of environment variable "path"

Example:
env ("path") *> Returns the value of environment variable "path"

length

Return length of string expression

Syntax:
length (<expression>)

Example:
length(env ("path")) *> Returns the length of the value of environment variable "path"

firstup

Convert first char to upper case

Syntax:
firstup(<expression>)

Example:
if firstup($Name) = "M"

toupper

Convert to upper case

Syntax:
toupper(<expression>)

Example:
toupper($Name)

tolower

Convert to lower case

Syntax:
tolower(<expression>)

cbl2c

Convert COBOL var to C var with replacing "-" by "_"

Syntax:
h2c(<expression>)

Example:
cbl2c("illegal-c-var") = "illegal_c_var"

dos2win

Convert chars to windows character set, especially German "Umlaute"

Syntax:
dos2win( <expression>)

dos2html

Convert chars to html character set, especially German "Umlaute" but also "<" and "&"

Syntax:
dos2html( <expression>)

Example:
dos2html("München & Köln") = "München & Köln"

substr

Get a substring. If ou use the <occurrence> version with a negative value, the string is analyzed from behind.

Syntax:
substr(<string>, <splitString>)
substr(<string>, <splitString>,<occurrence>)
substr(<string>, <offset>)
substr(<string>, <offset>, <length>)

Example:
substr("part1_part2_part3", "_") = "part1"
substr("part1_part2_part3", "_", 2) = "part2"
substr("part1_part2_part3", "_", -1) = "part3"
substr("part1_part2_part3", 7) = "part2_part3"
substr("part1_part2_part3", 7, 5) = "part2"

concat

Concatenate two or more strings. If an element is a number, the string representation of the number is used.

Syntax:
concat( <expression> {, <expression> })

Example:
concat($name, ", ", $city)
see also +

quote

Wrap a string in "

Syntax:
quote(<expression>)

Example:
quote(4) = "4"

dollar

Put an "$" before the string

Syntax:
dollar(<expression>)

Example:
dollar("name") = "$name"

definedIn, definedInIgnore

Look if a value within a certain column is part of a table containing this column. If so, returning the first row, containing the value. If you use "definedInIgnore" no case matching is made.

Syntax:
definedin(<colVar>, <valueExpression>)

Example:
table "person"
        "name:x:20;age:n:3;"
        "Sebastian Mayer", 38
        "Annette Pfeufer", 34
        "Gerhard Bumann", 39
        "Anika Heindl", 1
end-table
definedin($name, Annette) = 2
definedinIgnore($name, annette) = 2

addTableLine

Adds a line to a table identified by a tableId, returning the row (size of table). TableId can be the name of the Table (as literal) or a name of a column within the table (beginning with "$")

Syntax:
addTableLine(<tableId>, <col1>[, <col2>[, <col3>[, <col4> [, .... ]]]])

Example:
function "okPressed"
$row := addTableLine("person", $diaPerson, $diaAge)
message(concat("Person ", quote($diaPerson), ", age ", quote($diaAge) ", added as number ", quote($row))
end-function

tabUsed

Return number of rows from a table, identified by a tableId. TableId can be the name of the Table (as literal) or a name of a column within the table (beginning with "$")

Syntax:
tabUsed(<tableId>)
tabused <condition>

Example:
table "person"
        "name:x:20;age:n:3;"
        "Sebastian Mayer", 38
        "Annette Pfeufer", 34
        "Gerhard Bumann", 39
        "Anika Heindl", 1
end-table
loop tabUsed($age)
    Name: $name, age: $age
end-loop

tabHandle

Return table handle identified by a tableId . TableId can be the name of the Table (as literal) or a name of a column within the table (beginning with "$")

Syntax:
tabhandle(<tabId>)

Example:
table "person"
        "name:x:20;age:n:3;"
        "Sebastian Mayer", 38
        "Annette Pfeufer", 34
        "Gerhard Bumann", 39
        "Anika Heindl", 1
end-table

display "this is table no: " {tabHandle($name)}

Things COBOL site is owned by Sebastian Mayer

Prev 5 Sites Next 5 Sites

Previous Site | Random Site | List Sites | Next Site

Add My Home Page to the All Things COBOL Webring

All Things COBOL Home

[Besucherzähler]