58 lines
1.1 KiB
Text
Executable file
58 lines
1.1 KiB
Text
Executable file
# Progress/OpenEdge ABL snippets
|
|
# define
|
|
snippet defbuf
|
|
DEFINE BUFFER b_${1:TableName} FOR $1 ${0}.
|
|
snippet defvar
|
|
DEFINE VARIABLE ${1:VariableName} AS ${0}.
|
|
snippet nl
|
|
NO-LOCK
|
|
snippet ne
|
|
NO-ERROR
|
|
snippet nle
|
|
NO-LOCK NO-ERROR
|
|
snippet ini
|
|
INITIAL ${0:?}
|
|
snippet nu
|
|
NO-UNDO
|
|
snippet err
|
|
ERROR
|
|
snippet ff
|
|
FIND FIRST ${1:BufferName}
|
|
${2:WHERE $1.${3}} ${0}
|
|
snippet input
|
|
DEFINE INPUT PARAMETER ${1:ParamName} AS ${0}.
|
|
snippet output
|
|
DEFINE OUTPUT PARAMETER ${1:ParamName} AS ${0:ParamType}.
|
|
snippet proc
|
|
|
|
/******************************************************************************/
|
|
|
|
PROCEDURE ${1:ProcName}:
|
|
|
|
${0}
|
|
|
|
END PROCEDURE. /* $1 */
|
|
|
|
/******************************************************************************/
|
|
|
|
snippet alert
|
|
MESSAGE "${1:MessageContent}" ${2:Data} VIEW-AS ALERT-BOX.
|
|
snippet if
|
|
IF ${1:Condition}
|
|
THEN ${2:Action}
|
|
${3:ELSE ${4:OtherWise}}
|
|
snippet do
|
|
DO${1: Clauses}:
|
|
${0}
|
|
END.
|
|
# datatypes
|
|
snippet int
|
|
INTEGER
|
|
snippet char
|
|
CHARACTER
|
|
snippet log
|
|
LOGICAL
|
|
snippet dec
|
|
DECIMAL
|
|
snippet sep
|
|
/* ------------------------------------------------------------------------- */
|