59 lines
1.1 KiB
Plaintext
59 lines
1.1 KiB
Plaintext
|
# Progress/OpenEdge ABL snippets
|
||
|
|
# define
|
||
|
|
snippet defbuf
|
||
|
|
DEFINE BUFFER b_${1:TableName} FOR $1 ${2}.
|
||
|
|
snippet defvar
|
||
|
|
DEFINE VARIABLE ${1:VariableName} AS ${2}.
|
||
|
|
snippet nl
|
||
|
|
NO-LOCK
|
||
|
|
snippet ne
|
||
|
|
NO-ERROR
|
||
|
|
snippet nle
|
||
|
|
NO-LOCK NO-ERROR
|
||
|
|
snippet ini
|
||
|
|
INITIAL ${1:?}
|
||
|
|
snippet nu
|
||
|
|
NO-UNDO
|
||
|
|
snippet err
|
||
|
|
ERROR
|
||
|
|
snippet ff
|
||
|
|
FIND FIRST ${1:BufferName}
|
||
|
|
${2:WHERE $1.${3}} ${4}
|
||
|
|
snippet input
|
||
|
|
DEFINE INPUT PARAMETER ${1:ParamName} AS ${2}.
|
||
|
|
snippet output
|
||
|
|
DEFINE OUTPUT PARAMETER ${1:ParamName} AS ${2:ParamType}.
|
||
|
|
snippet proc
|
||
|
|
|
||
|
|
/******************************************************************************/
|
||
|
|
|
||
|
|
PROCEDURE ${1:ProcName}:
|
||
|
|
|
||
|
|
${2}
|
||
|
|
|
||
|
|
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}:
|
||
|
|
${2}
|
||
|
|
END.
|
||
|
|
# datatypes
|
||
|
|
snippet int
|
||
|
|
INTEGER
|
||
|
|
snippet char
|
||
|
|
CHARACTER
|
||
|
|
snippet log
|
||
|
|
LOGICAL
|
||
|
|
snippet dec
|
||
|
|
DECIMAL
|
||
|
|
snippet sep
|
||
|
|
/* ------------------------------------------------------------------------- */
|