189 lines
4.6 KiB
Text
Generated
189 lines
4.6 KiB
Text
Generated
'* Easytrieve Plus example programm.\n' Comment.Single
|
|
|
|
'\n' Text.Whitespace
|
|
|
|
'* Environtment section.\n' Comment.Single
|
|
|
|
'PARM' Keyword.Declaration
|
|
' ' Operator
|
|
'DEBUG' Name
|
|
'(' Operator
|
|
'FLOW' Name
|
|
' ' Text.Whitespace
|
|
'FLDCHK' Name
|
|
')' Operator
|
|
'\n\n' Text.Whitespace
|
|
|
|
'* Library Section.\n' Comment.Single
|
|
|
|
'FILE' Keyword.Declaration
|
|
' ' Text.Whitespace
|
|
'PERSNL' Name.Function
|
|
' ' Text.Whitespace
|
|
'FB' Name
|
|
'(' Operator
|
|
'150' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'1800' Literal.Number.Integer
|
|
')' Operator
|
|
'\n' Text.Whitespace
|
|
|
|
' ' Text.Whitespace
|
|
'NAME' Name
|
|
' ' Text.Whitespace
|
|
'17' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'8' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'A' Name
|
|
'\n' Text.Whitespace
|
|
|
|
' ' Text.Whitespace
|
|
'EMP#' Name
|
|
' ' Text.Whitespace
|
|
'9' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'5' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'N' Name
|
|
' ' Text.Whitespace
|
|
"* Note: '#' is a valid character for names.\n" Comment.Single
|
|
|
|
' ' Text.Whitespace
|
|
'DEPT' Name
|
|
' ' Text.Whitespace
|
|
'98' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'3' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'N' Name
|
|
'.' Operator
|
|
' ' Text.Whitespace
|
|
'GROSS' Name
|
|
' ' Text.Whitespace
|
|
'94' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'4' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'P' Name
|
|
' ' Text.Whitespace
|
|
'2' Literal.Number.Integer
|
|
'\n' Text.Whitespace
|
|
|
|
' ' Text.Whitespace
|
|
'* ^ 2 field definitions in 1 line.\n' Comment.Single
|
|
|
|
'\n' Text.Whitespace
|
|
|
|
'* Call macro in example.mac.\n' Comment.Single
|
|
|
|
'FILE' Keyword.Declaration
|
|
' ' Text.Whitespace
|
|
'EXAMPLE' Name.Function
|
|
' ' Text.Whitespace
|
|
'FB' Name
|
|
'(' Operator
|
|
'80' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'200' Literal.Number.Integer
|
|
')' Operator
|
|
'\n' Text.Whitespace
|
|
|
|
'%EXAMPLE' Name.Variable
|
|
' ' Text.Whitespace
|
|
'SOMEFILE' Name
|
|
' ' Text.Whitespace
|
|
'SOME' Name
|
|
'\n\n' Text.Whitespace
|
|
|
|
'* Activity Section.\n' Comment.Single
|
|
|
|
'JOB' Keyword.Declaration
|
|
' ' Operator
|
|
'INPUT' Name
|
|
' ' Text.Whitespace
|
|
'PERSNL' Name
|
|
' ' Text.Whitespace
|
|
'NAME' Name
|
|
' ' Text.Whitespace
|
|
'FIRST-PROGRAM' Name
|
|
' ' Text.Whitespace
|
|
'START' Name
|
|
' ' Text.Whitespace
|
|
'AT-START' Name
|
|
' ' Text.Whitespace
|
|
'FINISH' Name
|
|
' ' Text.Whitespace
|
|
'AT_FINISH' Name
|
|
'\n' Text.Whitespace
|
|
|
|
' ' Text.Whitespace
|
|
'PRINT' Keyword.Reserved
|
|
' ' Operator
|
|
'PAY-RPT' Name
|
|
'\n' Text.Whitespace
|
|
|
|
'REPORT' Keyword.Declaration
|
|
' ' Text.Whitespace
|
|
'PAY-RPT' Name.Function
|
|
' ' Text.Whitespace
|
|
'LINESIZE' Name
|
|
' ' Text.Whitespace
|
|
'80' Literal.Number.Integer
|
|
'\n' Text.Whitespace
|
|
|
|
' ' Text.Whitespace
|
|
'TITLE' Keyword.Reserved
|
|
' ' Operator
|
|
'01' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
"'PERSONNEL REPORT EXAMPLE-1'" Literal.String
|
|
'\n' Text.Whitespace
|
|
|
|
' ' Text.Whitespace
|
|
'LINE' Keyword.Reserved
|
|
' ' Operator
|
|
'01' Literal.Number.Integer
|
|
' ' Text.Whitespace
|
|
'DEPT' Name
|
|
' ' Text.Whitespace
|
|
'NAME' Name
|
|
' ' Text.Whitespace
|
|
'EMP#' Name
|
|
' ' Text.Whitespace
|
|
'GROSS' Name
|
|
'\n\n' Text.Whitespace
|
|
|
|
'* Procedure declarations.\n' Comment.Single
|
|
|
|
'AT-START' Name.Function
|
|
'.' Operator
|
|
' ' Text.Whitespace
|
|
'PROC' Keyword.Declaration
|
|
'\n' Text.Whitespace
|
|
|
|
' ' Text.Whitespace
|
|
'DISPLAY' Keyword.Reserved
|
|
' ' Operator
|
|
"'PROCESSING...'" Literal.String
|
|
'\n' Text.Whitespace
|
|
|
|
'END-PROC' Keyword.Reserved
|
|
'\n' Operator
|
|
|
|
'\n' Text.Whitespace
|
|
|
|
'AT-FINISH' Name.Function
|
|
'\n' Text.Whitespace
|
|
|
|
'PROC' Keyword.Declaration
|
|
'\n' Text.Whitespace
|
|
|
|
' ' Text.Whitespace
|
|
'DISPLAY' Keyword.Reserved
|
|
' ' Operator
|
|
"'DONE.'" Literal.String
|
|
'\n' Text.Whitespace
|
|
|
|
'END-PROC' Keyword.Reserved
|
|
'\n' Operator
|