{ "add": { "prefix": "add", "body": [ "add ${1:a} to ${2:b} giving ${3:c}" ], "description": "Add a to b giving c", "scope": "cobol,acucobol" }, "ADD": { "prefix": "ADD", "body": [ "ADD ${1:a} TO ${2:b} GIVING ${3:c}" ], "description": "Add a to b giving c", "scope": "cobol,acucobol" }, "accept": { "prefix": "accept", "body": [ "accept ${1:variable}", "$0" ], "scope": "cobol,acucobol" }, "ACCEPT": { "prefix": "ACCEPT", "body": [ "ACCEPT ${1:variable}", "$0" ], "scope": "cobol,acucobol" }, "accept from": { "prefix": "accept", "body": [ "accept ${1:variable} ${2|from date,from day,from day-of-week,time|}", "$0" ], "description": "accept from date/day/week/time", "scope": "cobol,acucobol" }, "ACCEPT FROM": { "prefix": "ACCEPT", "body": [ "ACCEPT ${1:variable} ${2|FROM DATE,FROM DAY,FROM DAY-OF-WEEK,TIME|}", "$0" ], "description": "ACCEPT FROM DATE/DAY/WEEK/TIME", "scope": "cobol,acucobol" }, "class-id": { "prefix": "class-id", "body": [ " class-id $1 ${3|public,private|}.", "", " method-id new public.", " procedure division.", " $0", " exit method.", " end method.", "", " end class." ], "description": "class with ctor", "scope": "cobol" }, "copy": { "prefix": "copy", "body": [ "copy \"${1:subprog.cpy}\"", " replacing ==${2:()}== by ==${3:lnk-}==." ], "description": "Copy replacing", "scope": "cobol,acucobol" }, "COPY": { "prefix": "COPY", "body": [ "COPY \"${1:SUBPROG.CPY}\"", " REPLACING ==${2:()}== BY ==${3:lnk-}==." ], "description": "COPY REPLACING", "scope": "cobol,acucobol" }, "delimited": { "prefix": [ "delimited by size", "dbs" ], "body": [ "delimited by size" ], "description": "delimited by size (string)", "scope": "cobol,acucobol" }, "DELIMITED": { "prefix": [ "DELIMITED BY SIZE", "DBS" ], "body": [ "DELIMITED BY SIZE" ], "description": "DELIMITED BY SIZE (string)", "scope": "cobol,acucobol" }, "delimited_space": { "prefix": [ "delimited by space", "ds" ], "body": [ "delimited by space" ], "description": "delimited by size (string)", "scope": "cobol,acucobol" }, "DELIMITED_SPACE": { "prefix": [ "DELIMITED BY SPACE", "DS" ], "body": [ "DELIMITED BY SPACE" ], "description": "DELIMITED BY SPACE (string)", "scope": "cobol,acucobol" }, "divide": { "prefix": [ "divide", "dgr" ], "body": [ "divide ${1:a} by ${2:b} giving ${3:c} ${4:remainder ${5:d}}" ], "description": "divide a by b giving [remainder}", "scope": "cobol,acucobol" }, "DIVIDE": { "prefix": [ "DIVIDE", "DGR" ], "body": [ "DIVIDE ${1:a} BY ${2:b} GIVING ${3:c} ${4:REMAINDER ${5:d}}" ], "description": "DIVIDE a BY b GIVING [REMAINDER}", "scope": "cobol,acucobol" }, "entry": { "prefix": [ "entry", "eg" ], "body": [ "$1-ep section.", "entry \"$1\".", " $0\t", " goback.", "" ], "description": "entry statement", "scope": "cobol,acucobol" }, "ENTRY": { "prefix": [ "ENTRY", "GB" ], "body": [ "$1-EP SECTON.", "ENTRY \"$1\".", " $0\t", " GOBACK.", "" ], "description": "ENTRY statement", "scope": "cobol,acucobol" }, "enum-id": { "prefix": [ "enum-id", "ei" ], "body": [ "*>> enum-id $1", "enum-id. $1 as \"Status\".", " 78 ${2:Item} value ${3:1}.", "end enum $1.", "" ], "description": "enum-id", "scope": "cobol" }, "evaluate": { "prefix": [ "evaluate", "ee" ], "body": [ "evaluate $1", " when $2", " $0", " when other", " continue", "end-evaluate", "" ], "description": "evaluate", "scope": "cobol,acucobol" }, "EVALUATE": { "prefix": "EVALUATE", "body": [ "EVALUATE $1", " WHEN $2", " $0", " WHEN OTHER", " CONTINUE", "END-EVALUATE", "" ], "description": "EVALUATE", "scope": "cobol,acucobol" }, "exec-sql": { "prefix": "exec", "body": [ "exec sql include sqlca end-exec." ], "description": "exec sql include", "scope": "cobol,acucobol" }, "exec-sql-begin": { "prefix": "exec", "body": [ "exec sql begin declare section end-exec.", "$0", "exec sql end declare section end-exec." ], "description": "exec sql declare", "scope": "cobol" }, "if": { "prefix": [ "if", "ie" ], "body": [ "if ${1:condition}", " $0", "end-if" ], "scope": "cobol" }, "IF": { "prefix": [ "IF", "ie" ], "body": [ "IF ${1:CONDITION}", " $0", "END-IF" ], "scope": "cobol" }, "if else": { "prefix": [ "if", "iee" ], "body": [ "if ${1:condition}", " $0", "else", " ", "end-if" ], "scope": "cobol" }, "IF ELSE": { "prefix": [ "IF", "IEE" ], "body": [ "IF ${1:CONDITION}", " $0", "ELSE", " ", "END-IF" ], "scope": "cobol" }, "inspect converting": { "prefix": "inspect", "body": [ "inspect $1 converting '${2:ABCDEFGHIJKLMNOPQRSTUVWXYZ}' to '${3:abcdefghijklmnopqrstuvwxyz}'" ], "description": "inspect converting", "scope": "cobol,acucobol" }, "INSPECT CONVERTING": { "prefix": "INSPECT", "body": [ "INSPECT $1 CONVERTING '${2:ABCDEFGHIJKLMNOPQRSTUVWXYZ}' to '${3:abcdefghijklmnopqrstuvwxyz}'" ], "description": "INSPECT CONVERTING", "scope": "cobol,acucobol" }, "inspect replacing": { "prefix": "inspect", "body": [ "inspect $1 replacing all ${2|spaces,zero|} by '${3}'" ], "description": "inspect replacing", "scope": "cobol,acucobol" }, "INSPECT REPLACING": { "prefix": "INSPECT", "body": [ "INSPECT $1 REPLACING ALL ${2|SPACES,ZERO|} BY '${3}'" ], "description": "INSPECT REPLACING", "scope": "cobol,acucobol" }, "inspect tallying": { "prefix": "inspect", "body": [ "move 0 to ${2:counter}", "inspect ${1:source} tallying ${2:counter} for ${3|all spaces,all $4,characters|}" ], "description": "Inspect a tallying counter for ...", "scope": "cobol,acucobol" }, "INSPECT TALLYING": { "prefix": "INSPECT", "body": [ "MOVE 0 to ${2:COUNTER}", "INSPECT ${1:SOURCE} TALLYING ${2:COUNTER} FOR ${3|ALL SPACES,ALL $4,CHARACTERS|}" ], "description": "Inspect a tallying counter for ...", "scope": "cobol,acucobol" }, "main method-id": { "prefix": "main", "body": [ "*>> method main", "method-id main public static.", "procedure division using", " by value args as string occurs any.", " $0", "end method.", "" ], "description": "method-id (main)", "scope": "cobol" }, "method-id": { "prefix": [ "method-id", "mi" ], "body": [ "*>> method $1", "method-id $1.", "procedure division.", " $0", "end method.", "" ], "description": "method-id", "scope": "cobol" }, "MFUnit Test": { "prefix": "mfu,program-id", "body": [ " program-id. MFUT_${1:${TM_FILENAME_BASE/MFUT[_](.*)/$1/}}.", " working-storage section.", " copy \"mfunit.cpy\".", "", " 01 test-fail-count binary-long value 0.", "", " *> Testcase : $1", " *> Description : $2", " procedure division.", " $0", " if 1 not equal 1", " display \"Odd... 1 not equal 1?\"", " add 1 to test-fail-count", " end-if", "", " if test-fail-count not equal 0", " call \"MFU_ASSERT_FAIL_Z\" using", " by reference z\"$1 has failed\"", " end-call", " end-if", "", " goback returning test-fail-count.", "", " *> Startup for testcase $1", " entry \"MFUS_$1\".", " *> Open any files", " goback.", "", " *> Teardown for testcase $1", " entry \"MFUE_$1\".", " *> Close any files/delete any temp files", " goback.", "", " *> Metadata for testcase $1", " entry \"MFUM_$1\".", " move \"$2\" to MFU-MD-TESTCASE-DESCRIPTION", " goback.", " end program." ], "description": "MFUNIT skelton program", "scope": "cobol" }, "multiply": { "prefix": [ "multiply", "mg" ], "body": [ "multiply ${1:a} by ${2:b} giving ${3:c}" ], "description": "Multiply a by y giving z", "scope": "cobol,acucobol" }, "MULTIPLY": { "prefix": [ "MULTIPLY", "MG" ], "body": [ "MULTIPLY ${1:a} BY ${2:b} GIVING ${3:c}" ], "description": "MULTIPLY a BY y GIVING z", "scope": "cobol,acucobol" }, "perform": { "prefix": [ "perform", "pt" ], "body": [ "perform ${1:paragraph-name} ${2:value-1} times" ], "description": "perform paragraph x times", "scope": "cobol,acucobol" }, "PERFORM": { "prefix": [ "PERFORM", "PE" ], "body": [ "PERFORM ${1:paragraph-name} ${2:value-1} TIMES" ], "description": "PERFORM paragraph x TIMES", "scope": "cobol,acucobol" }, "perform-end-perform": { "prefix": [ "perform", "pe" ], "body": [ "perform ${1}", "\t${2}", "end-perform", "${0}" ], "description": "perform .. end-perform", "scope": "cobol,acucobol" }, "PERFORM-END-PERFORM": { "prefix": [ "PERFORM", "PE" ], "body": [ "PERFORM ${1}", "\t${2}", "END-PERFORM", "${0}" ], "description": "PERFORM .. END-PERFORM", "scope": "cobol,acucobol" }, "perform varying": { "prefix": [ "perform", "pv" ], "body": [ "perform ${1:paragraph-name} varying ${2:field-1}", " from ${3:value-1} by ${4:value-2}", " until ${5:condition}", "$0" ], "description": "inline perform varying", "scope": "cobol,acucobol" }, "PERFORM VARYING": { "prefix": [ "PERFORM", "PV" ], "body": [ "PERFORM ${1:paragraph-name} VARYING ${2:field-1}", " FROM ${3:value-1} BY ${4:value-2}", " UNTIL ${5:condition}", "$0" ], "description": "INLINE PERFORM VARYING", "scope": "cobol,acucobol" }, "IDENTIFICATION (CICS)": { "prefix": "IDENTIFICATION", "body": [ " IDENTIFICATION DIVISION. ", " PROGRAM-ID. $1.", " DATA DIVISION.", " WORKING-STORAGE SECTION. ", " 01 OUT-MSG.", " 02 FILLER PIC X(6) VALUE \"Hello \". ", " 02 MSG PIC X(20).", " 01 INP-MSG PIC X(20) VALUE \"What is your name? \". ", " PROCEDURE DIVISION.", " PARA1.", " EXEC CICS", " SEND FROM(INP-MSG)", " ERASE", " END-EXEC", "", " EXEC CICS", " RECEIVE INTO (MSG)", " END-EXEC", "", " *", " EXEC CICS", " SEND FROM (OUT-MSG)", " ERASE", " END-EXEC", "", " EXEC CICS", " RETURN", " END-EXEC.", "", " *", " END PROGRAM $1.", "" ], "description": "Template for program (CICS)", "scope": "cobol" }, "Minimum Line Sequential": { "prefix": "identification", "body": [ " identification division.", " program-id. ${1:${TM_FILENAME/(.*)\\..+$/$1/}}.", "", " environment division.", " input-output section.", " file-control.", " select ${2:cust} assign to '${4:$2}.txt'", " organization is line sequential. ", "", " data division.", " file section.", " fd $2.", " 01 ${3:$2-file}.", " 03 ${5:customer-id} pic 9(5).", " 03 ${6:customer-info} pic x(65).", "", " working-storage section.", " 01 ws-eof pic a. ", "", " procedure division.", " open input $2.", " perform until ws-eof='Y'", " read $2", " at end", " move 'Y' to ws-eof", " not at end", " display ${5} \" => \" ${6}", " end-read", " end-perform", " close $2.", " $0", " goback.", "", " end program $1.", "" ], "description": "Minimum template File/Seq", "scope": "cobol" }, "Minimum mainframe program [uppercase]": { "prefix": "IDENTIFICATION", "body": [ " IDENTIFICATION DIVISION.", " PROGRAM-ID. ${1:${1:${TM_FILENAME/(.*)\\..+$/$1/}}}.", " AUTHOR. $2.", " INSTALLATION. ${3:where}.", " DATE-WRITTEN. ${4:$CURRENT_DATE/$CURRENT_MONTH/$CURRENT_YEAR}.", " DATE-COMPILED. ${5:$4}.", " SECURITY.", " ENVIRONMENT DIVISION.", " CONFIGURATION SECTION.", " SOURCE-COMPUTER. ${6:pc}.", " OBJECT-COMPUTER. ${7:${6}}.", " SPECIAL-NAMES.", " INPUT-OUTPUT SECTION.", " FILE-CONTROL.", " DATA DIVISION.", " FILE SECTION.", " WORKING-STORAGE SECTION.", " LINKAGE SECTION.", " PROCEDURE DIVISION.", " DECLARATIVES.", " END DECLARATIVES.", " main-processing SECTION.", " mainline-paragraph.", " $0", " STOP RUN." ], "description": "Template for mainframe", "scope": "cobol" }, "Skelton program": { "prefix": "program-id", "body": [ " program-id. ${1:${TM_FILENAME/(.*)\\..+$/$1/}}.", "", " environment division.", " configuration section.", "", " data division.", " working-storage section.", "", " procedure division.", " $0", " goback.", "", " end program $1.", "" ], "description": "Small template for program", "scope": "cobol" }, "Minimum program": { "prefix": "program-id", "body": [ " program-id. ${1:${TM_FILENAME/(.*)\\..+$/$1/}}.", " procedure division.", " $0", " goback.", "", " end program $1.", "" ], "description": "Minimum template", "scope": "cobol" }, "END PROGRAM": { "prefix": "END PROGRAM", "body": [ "END PROGRAM ${1:${TM_FILENAME/(.*)\\..+$/$1/}}." ], "description": "END PROGRAM prg.", "scope": "cobol" }, "end program": { "prefix": "end program", "body": [ "end program ${1:${TM_FILENAME/(.*)\\..+$/$1/}}." ], "description": "end program ${1:${TM_FILENAME/(.*)\\..+$/$1/}}.", "scope": "cobol" }, "property": { "prefix": "property", "body": [ "01 ${2:_prop} ${3:binary-long} private.", "method-id. get property #${1:Prop}.", "procedure division returning ret as ${3:binary-long}.", " set ret to ${2:_prop}", "end method.", "method-id. set property #${1:Prop}.", "procedure division using by value val as ${3:binary-long}.", " set ${2:_prop} to 0", "end method.", "" ], "description": "set/get property", "scope": "cobol" }, "subtract": { "prefix": "subtract", "body": [ "subtract ${1:a} from ${2:b} giving ${3:c}" ], "description": "subtract a from b giving c", "scope": "cobol,acucobol" }, "SUBTRACT": { "prefix": "SUBTRACT", "body": [ "SUBTRACT ${1:a} FROM ${2:b} GIVING ${3:c}" ], "description": "SUBTRACT a FROM b GIVING c", "scope": "cobol,acucobol" }, "try": { "prefix": "try", "body": [ "try", "$2", "catch ${1:Exception}", "$0", "end-try" ], "description": "try catch", "scope": "cobol" }, "valuetype": { "prefix": [ "vi", "valuetype-id" ], "body": [ "valuetype-id $1 ${2:public}.", "01 item string ${2:public}.", "", "method-id new ${2:public}.", "procedure division.", " $0", "end method.", "", "end valuetype." ], "description": "valuetype", "scope": "cobol" }, "display": { "prefix": "display", "body": [ "display \"$0\"" ], "description": "display literal", "scope": "cobol" }, "DISPLAY": { "prefix": "DISPLAY", "body": [ "DISPLAY \"$0\"" ], "description": "DISPLAY literal", "scope": "cobol" }, "select-to-section": { "prefix": "perform", "body": [ "$1 section.", " $TM_SELECTED_TEXT", "$1-end section.", " exit section." ], "description": "select-tosection", "scope": "cobol" }, "string": { "prefix": "string", "body": [ "string ${1:item1} delimited by size", " ${2:item2} delimited by size", " into ${3:result}", "end-string", "$0" ], "description": "string delimited by size", "scope": "cobol,acucobol" }, "STRING": { "prefix": "STRING", "body": [ "STRING ${1:item1} DELIMITED BY SIZE", " ${2:item2} DELIMITED BY SIZE", " INTO ${3:result}", "END-STRING", "$0" ], "description": "string delimited by size", "scope": "cobol,acucobol" }, "function-abs": { "prefix": [ "function abs" ], "body": [ "function abs(${1:number})$0" ], "description": "function absolute value of number", "scope": "cobol,acucobol" }, "function-acos": { "prefix": [ "function acos" ], "body": [ "function acos(${1:cosine})$0" ], "description": "function trigonometric arc-cosine, or inverse cosine, of cosine", "scope": "cobol,acucobol" }, "function-annuity": { "prefix": [ "function annuity" ], "body": [ "function annuity(${1:interest-rate},${2:number-of-periods})$0" ], "description": "function annuity", "scope": "cobol,acucobol" }, "function-asin": { "prefix": [ "function asin" ], "body": [ "function asin(${1:sine})$0" ], "description": "function trigonometric arc-sine, or inverse sine, of sine", "scope": "cobol,acucobol" }, "function-atan": { "prefix": [ "function atan" ], "body": [ "function atan(${1:tangent})$0" ], "description": "function trigonometric arc-tangent, or inverse tangent, of tangent", "scope": "cobol,acucobol" }, "function-boolean-of-integer": { "prefix": [ "function boolean-of-integer" ], "body": [ "function boolean-of-integer(${1:integer},${2:length})$0" ], "description": "function boolean item of usage bit representing the binary value of integer; with the given length", "scope": "cobol,acucobol" }, "function-byte-length": { "prefix": [ "function byte-length" ], "body": [ "function byte-length(${1:integer})$0" ], "description": "function byte-length (in bytes) of item", "scope": "cobol,acucobol" }, "function-char": { "prefix": [ "function char" ], "body": [ "function char(${1:integer})$0" ], "description": "function character in the ordinal position specified by integer, from the current alphanumeric collating sequence", "scope": "cobol,acucobol" }, "function-char-national": { "prefix": [ "function char-national" ], "body": [ "function char-national(${1:integer})$0" ], "description": "function character in the ordinal position specified by <integer> from the current national collating sequence", "scope": "cobol,acucobol" }, "function-combined-datetime": { "prefix": [ "function combined-datetime" ], "body": [ "function combined-datetime(${1:integer-date},${2:standard-numeric-time})$0" ], "description": "function combines integer-date and standard-numeric-time into a single numeric item from which both date and time components can be derived", "scope": "cobol,acucobol" }, "function-concatenate": { "prefix": [ "function concatenate" ], "body": [ "function concatenate(${1:string1},${2:string2})$0" ], "description": "function concatenates the string1.. string2 into a single string result", "scope": "cobol,acucobol" }, "function-cos": { "prefix": [ "function cos" ], "body": [ "function cos(${1:angle})$0" ], "description": "function trigonometric cosine of angle", "scope": "cobol,acucobol" }, "function-currency-symbol": { "prefix": [ "function currency-symbol" ], "body": [ "function currency-symbol()$0" ], "description": "function currency symbol character currently in effect for the locale under which the program is running", "scope": "cobol,acucobol" }, "function-current-date": { "prefix": [ "function current-date" ], "body": [ "function current-date(${1:date-and-time-format})$0" ], "description": "function current date and time as 21-character value", "scope": "cobol,acucobol" }, "function-formatted-date": { "prefix": [ "function formatted-date" ], "body": [ "function formatted-date(${1:date-format},${2:integer-date})$0" ], "description": "function formatted-date", "scope": "cobol,acucobol" }, "function-formatted-datetime": { "prefix": [ "function formatted-datetime" ], "body": [ "function formatted-datetime(${1:date-and-time-format},${2:integer-date},${3:standard-numeric-time},${4:offset_or_system_offset})$0" ], "description": "function formatted-datetime", "scope": "cobol,acucobol" }, "Function-formatted-time": { "prefix": [ "function formatted-time" ], "body": [ "function formatted-time(${1:time-format},${2:standard-numeric-time},${3:offset_or_system_offset})$0" ], "description": "function formatted-time", "scope": "cobol,acucobol" }, "function-fraction-part": { "prefix": [ "function fraction-part" ], "body": [ "function fraction-part(${1:number})$0" ], "description": "portion of number that occurs to the right of the decimal point", "scope": "cobol,acucobol" }, "function-highest-algebraic": { "prefix": [ "function highest-algebraic" ], "body": [ "function highest-algebraic(${1:numeric-identifier})$0" ], "description": "highest value that could possibly be stored in the specified numeric-identifier", "scope": "cobol,acucobol" }, "function-integer": { "prefix": [ "function integer" ], "body": [ "function integer(${1:number})$0" ], "description": "greatest integer value that is less than or equal to number", "scope": "cobol,acucobol" }, "function-integer-of-boolean": { "prefix": [ "function integer-of-boolean" ], "body": [ "dunction integer-of-boolean(${1:boolean-item})$0" ], "description": "numeric value of boolean-item", "scope": "cobol,acucobol" }, "function-integer-of-date": { "prefix": [ "function integer-of-date" ], "body": [ "function integer-of-date(${1:yyyymmdd})$0" ], "description": "converts yyyymmdd to an internal integer-date", "scope": "cobol,acucobol" }, "function-integer-of-day": { "prefix": [ "function integer-of-day" ], "body": [ "function integer-of-day(${1:yyyymmdd})$0" ], "description": "converts yyyymmdd to an internal integer-day", "scope": "cobol,acucobol" }, "function-integer-of-formatted-date": { "prefix": [ "function integer-of-formatted-date" ], "body": [ "function integer-of-formatted-date(${1:format},${2:date})$0" ], "description": "converts date in specified format to an internal integer", "scope": "cobol,acucobol" }, "function-integer-part": { "prefix": [ "function integer-part" ], "body": [ "function integer-part(${1:number})$0" ], "description": "portion of number that occurs to the left of the decimal point", "scope": "cobol,acucobol" }, "function-length": { "prefix": [ "function length" ], "body": [ "function length(${1:item})$0" ], "description": "returns the length (in character positions) of the specified item", "scope": "cobol,acucobol" }, "function-length-an": { "prefix": [ "function length-an" ], "body": [ "function length-an(${1:item})$0" ], "description": "returns the length (in bytes) of the specified item;", "scope": "cobol,acucobol" }, "function-locale-compare": { "prefix": [ "function locale-compare" ], "body": [ "function locale-compare(${1:argument1},${2:argument2},${3:locale-optional})$0" ], "description": "character '=' or '<' or '>' indicating the result of comparing argument1 and argument2 using a culturall", "scope": "cobol,acucobol" }, "function-locale-date": { "prefix": [ "function locale-date" ], "body": [ "function locale-date(${1:yyyymmdd},${2:locale-optional})$0" ], "description": "format yyyymmd; according to locale", "scope": "cobol,acucobol" }, "function-locale-time": { "prefix": [ "function locale-time" ], "body": [ "function locale-time(${1:yyyymmdd},${2:locale-optional})$0" ], "description": "format time; according to locale", "scope": "cobol,acucobol" }, "function-locale-time-from-seconds": { "prefix": [ "function locale-time-from-seconds" ], "body": [ "function locale-time-from-seconds(${1:integer-time},${2:locale-optional})$0" ], "description": "format integer-time (internal-format) according to locale", "scope": "cobol,acucobol" }, "function-log": { "prefix": [ "function log" ], "body": [ "function log(${1:number})$0" ], "description": "format base e logarithm of number", "scope": "cobol,acucobol" }, "function-log10": { "prefix": [ "function log10" ], "body": [ "function log10(${1:number})$0" ], "description": "format base 10 logarithm of number", "scope": "cobol,acucobol" }, "function-lowercase": { "prefix": [ "function lowercase" ], "body": [ "function lowercase(${1:string})$0" ], "description": "character string that contains string with any uppercase letters replaced by their corresponding lowercase letters", "scope": "cobol,acucobol" }, "function-lowest-algebraic": { "prefix": [ "function lowest-algebraic" ], "body": [ "function lowest-algebraic(${1:numeric-identifier})$0" ], "description": "lowest value that could possibly be stored in the specified numeric-identifier", "scope": "cobol,acucobol" }, "function-max": { "prefix": [ "function max" ], "body": [ "function max(${1:number},${2:...})$0" ], "description": "Alphanumeric/Index/Integer/National/Numeric maximum value from the specified list of numbers", "scope": "cobol,acucobol" }, "function-mean": { "prefix": [ "function mean" ], "body": [ "function mean(${1:number},${2:...})$0" ], "description": "statistical mean value of the specified list of numbers", "scope": "cobol,acucobol" }, "function-median": { "prefix": [ "function median" ], "body": [ "function median(${1:number},${2:...})$0" ], "description": "statistical median value of the specified list of numbers", "scope": "cobol,acucobol" }, "function-midrange": { "prefix": [ "function midrange" ], "body": [ "function midrange(${1:number},${2:...})$0" ], "description": "statistical midrange value of the specified list of numbers", "scope": "cobol,acucobol" }, "function-min": { "prefix": [ "function min" ], "body": [ "function min(${1:number},${2:...})$0" ], "description": "statistical min value of the specified list of numbers", "scope": "cobol,acucobol" }, "function-mod": { "prefix": [ "function mod" ], "body": [ "function mod(${1:value},${2:modulus})$0" ], "description": "remainder from the division of value by modulus", "scope": "cobol,acucobol" }, "function-monetary-decimal-point": { "prefix": [ "function monetary-decimal-point" ], "body": [ "function monetary-decimal-point()$0" ], "description": "character used to separate the integer portion from the fractional part of a monetary currency value according to the current locale", "scope": "cobol,acucobol" }, "function-monetary-thousands-separator": { "prefix": [ "function monetary-thousands-separator" ], "body": [ "function monetary-thousands-separator()$0" ], "description": "character used to separate the thousands digit groupings in a monetary currency value according to the current locale", "scope": "cobol,acucobol" }, "function-national-of": { "prefix": [ "function national-of" ], "body": [ "function national-of(${1:alphanumeric-string},${2:replacement-char})$0" ], "description": "convert alphanumeric-string to the national coded character set representation", "scope": "cobol,acucobol" }, "function-numeric-thousands-separator": { "prefix": [ "function numeric-thousands-separator" ], "body": [ "function numeric-thousands-separator()$0" ], "description": "character used to separate the thousands digit groupings in a numeric value according to the current locale", "scope": "cobol,acucobol" }, "function-numval": { "prefix": [ "function numval" ], "body": [ "function numval(${1:string})$0" ], "description": "corresponding numeric value for string", "scope": "cobol,acucobol" }, "function-numval-c": { "prefix": [ "function numval-c" ], "body": [ "function numval-c(${1:string},${2:currency-symbol}${3:,ANYCASE})$0" ], "description": "corresponding numeric value for string, case-sensitive if ANYCASE not given", "scope": "cobol,acucobol" }, "function-numval-f": { "prefix": [ "function numval-f" ], "body": [ "function numval-f(${1:string})$0" ], "description": "corresponding numeric value for floating-point-string", "scope": "cobol,acucobol" }, "function-ord": { "prefix": [ "function ord" ], "body": [ "function ord(${1:char},${2:...})$0" ], "description": "ordinal position in the program character set corresponding to char", "scope": "cobol,acucobol" }, "function-ord-max": { "prefix": [ "function ord-max" ], "body": [ "function ord-max(${1:char},${2:...})$0" ], "description": "max. ordinal position in the program character set corresponding to list of chars", "scope": "cobol,acucobol" }, "function-ord-min": { "prefix": [ "function ord-min" ], "body": [ "function ord-min(${1:char},${2:...})$0" ], "description": "min. ordinal position in the program character set corresponding to list of chars", "scope": "cobol,acucobol" }, "function-pi": { "prefix": [ "function pi" ], "body": [ "function pi()$0" ], "description": "pi", "scope": "cobol,acucobol" }, "function-present-value": { "prefix": [ "function present-value" ], "body": [ "function present-value(${1:discount-rate},${2:amount},${3:...})$0" ], "description": "approximation of the present value of a series of future period-end amount", "scope": "cobol,acucobol" }, "function-random": { "prefix": [ "function random" ], "body": [ "function random(${1:seed})$0" ], "description": "pseudo-random number 0> <1 from a rectangular distribution with optional seed", "scope": "cobol,acucobol" }, "function-range": { "prefix": [ "function range" ], "body": [ "function range(${1:argument},${2:...})$0" ], "description": "value of the maximum argument minus the value of the minimum argument", "scope": "cobol,acucobol" }, "function-rem": { "prefix": [ "function rem" ], "body": [ "function rem(${1:number},${2:divisor})$0" ], "description": "remainder of number divided by divisor", "scope": "cobol,acucobol" }, "function-reverse": { "prefix": [ "function reverse" ], "body": [ "function reverse(${1:string})$0" ], "description": "reverse representation with same length of string", "scope": "cobol,acucobol" }, "function-seconds-from-formatted-time": { "prefix": [ "function seconds-from-formatted-time" ], "body": [ "function seconds-from-formatted-time(${1:format},${2:time})$0" ], "description": "decode time according to format (a time format or a combined date and time format)", "scope": "cobol,acucobol" }, "function-seconds-past-midnight": { "prefix": [ "function seconds-past-midnight" ], "body": [ "function seconds-past-midnight()$0" ], "description": "current time of day expressed as the total number of elapsed seconds since midnight", "scope": "cobol,acucobol" }, "function-sign": { "prefix": [ "function sign" ], "body": [ "function sign(${1:number})$0" ], "description": "sign representation of number as -1, 0, 1", "scope": "cobol,acucobol" }, "function-sin": { "prefix": [ "function sin" ], "body": [ "function sin(${1:angle})$0" ], "description": "trigonometric sine of the specified angle", "scope": "cobol,acucobol" }, "function-sqrt": { "prefix": [ "function sqrt" ], "body": [ "function sqrt(${1:number})$0" ], "description": "aproximation of the square root of number", "scope": "cobol,acucobol" }, "function-tan": { "prefix": [ "function tan" ], "body": [ "function tan(${1:angle})$0" ], "description": "trigonometric tangent of the specified angle", "scope": "cobol,acucobol" }, "function-upper-case": { "prefix": [ "function upper-case" ], "body": [ "function upper-case(${1:string})$0" ], "description": "character string that contains string with any lowercase letters replaced by their corresponding uppercase letters", "scope": "cobol,acucobol" }, "function-variance": { "prefix": [ "function variance" ], "body": [ "function variance(${1:number},${2:...})$0" ], "description": "statistical variance of the specified list of number argument", "scope": "cobol,acucobol" }, "function-year-to-yyyy": { "prefix": [ "function year-to-yyyy" ], "body": [ "function year-to-yyyy(${1:yy},${2:[yy-cutoff, default: 50},${3:yy-execution-time, default: now})$0" ], "description": "convert yy to yyyy with optional yy-cutoff to delineate centuries", "scope": "cobol,acucobol" }, "call": { "prefix": "call", "body": [ "call \"$1\" using", " by ${2|value,reference,content|} ${3:identifer}", " returning ${4:return-code}", "end-call", "$0" ], "description": "CALL literal" }, "FUNCTION-ABS": { "prefix": [ "FUNCTION ABS" ], "body": [ "FUNCTION ABS(${1:number})$0" ], "description": "function absolute value of number", "scope": "cobol,acucobol" }, "FUNCTION-ACOS": { "prefix": [ "FUNCTION ACOS" ], "body": [ "FUNCTION ACOS(${1:cosine})$0" ], "description": "function trigonometric arc-cosine, or inverse cosine, of cosine", "scope": "cobol,acucobol" }, "FUNCTION-ANNUITY": { "prefix": [ "FUNCTION ANNUITY" ], "body": [ "FUNCTION ANNUITY(${1:interest-rate},${2:number-of-periods})$0" ], "description": "function annuity", "scope": "cobol,acucobol" }, "FUNCTION-ASIN": { "prefix": [ "FUNCTION ASIN" ], "body": [ "FUNCTION ASIN(${1:sine})$0" ], "description": "function trigonometric arc-sine, or inverse sine, of sine", "scope": "cobol,acucobol" }, "FUNCTION-ATAN": { "prefix": [ "FUNCTION ATAN" ], "body": [ "FUNCTION ATAN(${1:tangent})$0" ], "description": "function trigonometric arc-tangent, or inverse tangent, of tangent", "scope": "cobol,acucobol" }, "FUNCTION-BOOLEAN-OF-INTEGER": { "prefix": [ "FUNCTION BOOLEAN-OF-INTEGER" ], "body": [ "FUNCTION BOOLEAN-OF-INTEGER(${1:integer},${2:length})$0" ], "description": "function boolean item of usage bit representing the binary value of integer; with the given length", "scope": "cobol,acucobol" }, "FUNCTION-BYTE-LENGTH": { "prefix": [ "FUNCTION BYTE-LENGTH" ], "body": [ "FUNCTION BYTE-LENGTH(${1:integer})$0" ], "description": "function byte-length (in bytes) of item", "scope": "cobol,acucobol" }, "FUNCTION-CHAR": { "prefix": [ "FUNCTION CHAR" ], "body": [ "FUNCTION CHAR(${1:integer})$0" ], "description": "function character in the ordinal position specified by integer, from the current alphanumeric collating sequence", "scope": "cobol,acucobol" }, "FUNCTION-CHAR-NATIONAL": { "prefix": [ "FUNCTION CHAR-NATIONAL" ], "body": [ "FUNCTION CHAR-NATIONAL(${1:integer})$0" ], "description": "function character in the ordinal position specified by <integer> from the current national collating sequence", "scope": "cobol,acucobol" }, "FUNCTION-COMBINED-DATETIME": { "prefix": [ "FUNCTION COMBINED-DATETIME" ], "body": [ "FUNCTION COMBINED-DATETIME(${1:integer-date},${2:standard-numeric-time})$0" ], "description": "function combines integer-date and standard-numeric-time into a single numeric item from which both date and time components can be derived", "scope": "cobol,acucobol" }, "FUNCTION-CONCATENATE": { "prefix": [ "function concatenate" ], "body": [ "function concatenate(${1:string1},${2:string2})$0" ], "description": "function concatenates the string1.. string2 into a single string result", "scope": "cobol,acucobol" }, "FUNCTION-COS": { "prefix": [ "FUNCTION COS" ], "body": [ "FUNCTION COS(${1:angle})$0" ], "description": "function trigonometric cosine of angle", "scope": "cobol,acucobol" }, "FUNCTION-CURRENCY-SYMBOL": { "prefix": [ "FUNCTION CURRENCY-SYMBOL" ], "body": [ "FUNCTION CURRENCY-SYMBOL()$0" ], "description": "function currency symbol character currently in effect for the locale under which the program is running", "scope": "cobol,acucobol" }, "FUNCTION-CURRENT-DATE": { "prefix": [ "FUNCTION CURRENT-DATE" ], "body": [ "FUNCTION CURRENT-DATE(${1:date-and-time-format})$0" ], "description": "function current date and time as 21-character value", "scope": "cobol,acucobol" }, "FUNCTION-FORMATTED-DATE": { "prefix": [ "FUNCTION FORMATTED-DATE" ], "body": [ "FUNCTION FORMATTED-DATE(${1:date-format},${2:integer-date})$0" ], "description": "function formatted-date", "scope": "cobol,acucobol" }, "FUNCTION-FORMATTED-DATETIME": { "prefix": [ "FUNCTION FORMATTED-DATETIME" ], "body": [ "FUNCTION FORMATTED-DATETIME(${1:date-and-time-format},${2:integer-date},${3:standard-numeric-time},${4:offset_or_system_offset})$0" ], "description": "function formatted-datetime", "scope": "cobol,acucobol" }, "function-formatted-time": { "prefix": [ "function formatted-time" ], "body": [ "function formatted-time(${1:time-format},${2:standard-numeric-time},${3:offset_or_system_offset})$0" ], "description": "function formatted-time", "scope": "cobol,acucobol" }, "FUNCTION-FRACTION-PART": { "prefix": [ "FUNCTION FRACTION-PART" ], "body": [ "FUNCTION FRACTION-PART(${1:number})$0" ], "description": "portion of number that occurs to the right of the decimal point", "scope": "cobol,acucobol" }, "FUNCTION-HIGHEST-ALGEBRAIC": { "prefix": [ "FUNCTION HIGHEST-ALGEBRAIC" ], "body": [ "FUNCTION HIGHEST-ALGEBRAIC(${1:numeric-identifier})$0" ], "description": "highest value that could possibly be stored in the specified numeric-identifier", "scope": "cobol,acucobol" }, "FUNCTION-INTEGER": { "prefix": [ "FUNCTION INTEGER" ], "body": [ "FUNCTION INTEGER(${1:number})$0" ], "description": "greatest integer value that is less than or equal to number", "scope": "cobol,acucobol" }, "FUNCTION-INTEGER-OF-BOOLEAN": { "prefix": [ "FUNCTION INTEGER-OF-BOOLEAN" ], "body": [ "FUNCTION INTEGER-OF-BOOLEAN(${1:boolean-item})$0" ], "description": "numeric value of boolean-item", "scope": "cobol,acucobol" }, "FUNCTION-INTEGER-OF-DATE": { "prefix": [ "FUNCTION INTEGER-OF-DATE" ], "body": [ "FUNCTION INTEGER-OF-DATE(${1:yyyymmdd})$0" ], "description": "converts yyyymmdd to an internal integer-date", "scope": "cobol,acucobol" }, "FUNCTION-INTEGER-OF-DAY": { "prefix": [ "FUNCTION INTEGER-OF-DAY" ], "body": [ "FUNCTION INTEGER-OF-DAY(${1:yyyymmdd})$0" ], "description": "converts yyyymmdd to an internal integer-day", "scope": "cobol,acucobol" }, "FUNCTION-INTEGER-OF-FORMATTED-DATE": { "prefix": [ "FUNCTION INTEGER-OF-FORMATTED-DATE" ], "body": [ "FUNCTION INTEGER-OF-FORMATTED-DATE(${1:format},${2:date})$0" ], "description": "converts date in specified format to an internal integer", "scope": "cobol,acucobol" }, "FUNCTION-INTEGER-PART": { "prefix": [ "FUNCTION INTEGER-PART" ], "body": [ "FUNCTION INTEGER-PART(${1:number})$0" ], "description": "portion of number that occurs to the left of the decimal point", "scope": "cobol,acucobol" }, "FUNCTION-LENGTH": { "prefix": [ "FUNCTION LENGTH" ], "body": [ "FUNCTION LENGTH(${1:item})$0" ], "description": "returns the length (in character positions) of the specified item", "scope": "cobol,acucobol" }, "FUNCTION-LENGTH-AN": { "prefix": [ "FUNCTION LENGTH-AN" ], "body": [ "FUNCTION LENGTH-AN(${1:item})$0" ], "description": "returns the length (in bytes) of the specified item;", "scope": "cobol,acucobol" }, "FUNCTION-LOCALE-COMPARE": { "prefix": [ "FUNCTION LOCALE-COMPARE" ], "body": [ "FUNCTION LOCALE-COMPARE(${1:argument1},${2:argument2},${3:locale-optional})$0" ], "description": "character '=' or '<' or '>' indicating the result of comparing argument1 and argument2 using a culturall", "scope": "cobol,acucobol" }, "FUNCTION-LOCALE-DATE": { "prefix": [ "FUNCTION LOCALE-DATE" ], "body": [ "FUNCTION LOCALE-DATE(${1:yyyymmdd},${2:locale-optional})$0" ], "description": "format yyyymmd; according to locale", "scope": "cobol,acucobol" }, "FUNCTION-LOCALE-TIME": { "prefix": [ "FUNCTION LOCALE-TIME" ], "body": [ "FUNCTION LOCALE-TIME(${1:yyyymmdd},${2:locale-optional})$0" ], "description": "format time; according to locale", "scope": "cobol,acucobol" }, "FUNCTION-LOCALE-TIME-FROM-SECONDS": { "prefix": [ "FUNCTION LOCALE-TIME-FROM-SECONDS" ], "body": [ "FUNCTION LOCALE-TIME-FROM-SECONDS(${1:integer-time},${2:locale-optional})$0" ], "description": "format integer-time (internal-format) according to locale", "scope": "cobol,acucobol" }, "FUNCTION-LOG": { "prefix": [ "FUNCTION LOG" ], "body": [ "FUNCTION LOG(${1:number})$0" ], "description": "format base e logarithm of number", "scope": "cobol,acucobol" }, "FUNCTION-LOG10": { "prefix": [ "FUNCTION LOG10" ], "body": [ "FUNCTION LOG10(${1:number})$0" ], "description": "format base 10 logarithm of number", "scope": "cobol,acucobol" }, "FUNCTION-LOWERCASE": { "prefix": [ "FUNCTION LOWERCASE" ], "body": [ "FUNCTION LOWERCASE(${1:string})$0" ], "description": "character string that contains string with any uppercase letters replaced by their corresponding lowercase letters", "scope": "cobol,acucobol" }, "FUNCTION-LOWEST-ALGEBRAIC": { "prefix": [ "FUNCTION LOWEST-ALGEBRAIC" ], "body": [ "FUNCTION LOWEST-ALGEBRAIC(${1:numeric-identifier})$0" ], "description": "lowest value that could possibly be stored in the specified numeric-identifier", "scope": "cobol,acucobol" }, "FUNCTION-MAX": { "prefix": [ "FUNCTION MAX" ], "body": [ "FUNCTION MAX(${1:number},${2:...})$0" ], "description": "Alphanumeric/Index/Integer/National/Numeric maximum value from the specified list of numbers", "scope": "cobol,acucobol" }, "FUNCTION-MEAN": { "prefix": [ "FUNCTION MEAN" ], "body": [ "FUNCTION MEAN(${1:number},${2:...})$0" ], "description": "statistical mean value of the specified list of numbers", "scope": "cobol,acucobol" }, "FUNCTION-MEDIAN": { "prefix": [ "FUNCTION MEDIAN" ], "body": [ "FUNCTION MEDIAN(${1:number},${2:...})$0" ], "description": "statistical median value of the specified list of numbers", "scope": "cobol,acucobol" }, "FUNCTION-MIDRANGE": { "prefix": [ "FUNCTION MIDRANGE" ], "body": [ "FUNCTION MIDRANGE(${1:number},${2:...})$0" ], "description": "statistical midrange value of the specified list of numbers", "scope": "cobol,acucobol" }, "FUNCTION-MIN": { "prefix": [ "FUNCTION MIN" ], "body": [ "FUNCTION MIN(${1:number},${2:...})$0" ], "description": "statistical min value of the specified list of numbers", "scope": "cobol,acucobol" }, "FUNCTION-MOD": { "prefix": [ "FUNCTION MOD" ], "body": [ "FUNCTION MOD(${1:value},${2:modulus})$0" ], "description": "remainder from the division of value by modulus", "scope": "cobol,acucobol" }, "FUNCTION-MONETARY-DECIMAL-POINT": { "prefix": [ "FUNCTION MONETARY-DECIMAL-POINT" ], "body": [ "FUNCTION MONETARY-DECIMAL-POINT()$0" ], "description": "character used to separate the integer portion from the fractional part of a monetary currency value according to the current locale", "scope": "cobol,acucobol" }, "FUNCTION-MONETARY-THOUSANDS-SEPARATOR": { "prefix": [ "FUNCTION MONETARY-THOUSANDS-SEPARATOR" ], "body": [ "FUNCTION MONETARY-THOUSANDS-SEPARATOR()$0" ], "description": "character used to separate the thousands digit groupings in a monetary currency value according to the current locale", "scope": "cobol,acucobol" }, "FUNCTION-NATIONAL-OF": { "prefix": [ "FUNCTION NATIONAL-OF" ], "body": [ "FUNCTION NATIONAL-OF(${1:alphanumeric-string},${2:replacement-char})$0" ], "description": "convert alphanumeric-string to the national coded character set representation", "scope": "cobol,acucobol" }, "FUNCTION-NUMERIC-THOUSANDS-SEPARATOR": { "prefix": [ "FUNCTION NUMERIC-THOUSANDS-SEPARATOR" ], "body": [ "FUNCTION NUMERIC-THOUSANDS-SEPARATOR()$0" ], "description": "character used to separate the thousands digit groupings in a numeric value according to the current locale", "scope": "cobol,acucobol" }, "FUNCTION-NUMVAL": { "prefix": [ "FUNCTION NUMVAL" ], "body": [ "FUNCTION NUMVAL(${1:string})$0" ], "description": "corresponding numeric value for string", "scope": "cobol,acucobol" }, "FUNCTION-NUMVAL-C": { "prefix": [ "FUNCTION NUMVAL-C" ], "body": [ "FUNCTION NUMVAL-C(${1:string},${2:currency-symbol}${3:,ANYCASE})$0" ], "description": "corresponding numeric value for string, case-sensitive if ANYCASE not given", "scope": "cobol,acucobol" }, "FUNCTION-NUMVAL-F": { "prefix": [ "FUNCTION NUMVAL-F" ], "body": [ "FUNCTION NUMVAL-F(${1:string})$0" ], "description": "corresponding numeric value for floating-point-string", "scope": "cobol,acucobol" }, "FUNCTION-ORD": { "prefix": [ "FUNCTION ORD" ], "body": [ "FUNCTION ORD(${1:char},${2:...})$0" ], "description": "ordinal position in the program character set corresponding to char", "scope": "cobol,acucobol" }, "FUNCTION-ORD-MAX": { "prefix": [ "FUNCTION ORD-MAX" ], "body": [ "FUNCTION ORD-MAX(${1:char},${2:...})$0" ], "description": "max. ordinal position in the program character set corresponding to list of chars", "scope": "cobol,acucobol" }, "FUNCTION-ORD-MIN": { "prefix": [ "FUNCTION ORD-MIN" ], "body": [ "FUNCTION ORD-MIN(${1:char},${2:...})$0" ], "description": "min. ordinal position in the program character set corresponding to list of chars", "scope": "cobol,acucobol" }, "FUNCTION-PI": { "prefix": [ "PI", "FUNCTION PI" ], "body": [ "FUNCTION PI()$0" ], "description": "pi", "scope": "cobol,acucobol" }, "FUNCTION-PRESENT-VALUE": { "prefix": [ "FUNCTION PRESENT-VALUE" ], "body": [ "FUNCTION PRESENT-VALUE(${1:discount-rate},${2:amount},${3:...})$0" ], "description": "approximation of the present value of a series of future period-end amount", "scope": "cobol,acucobol" }, "FUNCTION-RANDOM": { "prefix": [ "FUNCTION RANDOM" ], "body": [ "FUNCTION RANDOM(${1:seed})$0" ], "description": "pseudo-random number 0> <1 from a rectangular distribution with optional seed", "scope": "cobol,acucobol" }, "FUNCTION-RANGE": { "prefix": [ "FUNCTION RANGE" ], "body": [ "FUNCTION RANGE(${1:argument},${2:...})$0" ], "description": "value of the maximum argument minus the value of the minimum argument", "scope": "cobol,acucobol" }, "FUNCTION-REM": { "prefix": [ "FUNCTION REM" ], "body": [ "FUNCTION REM(${1:number},${2:divisor})$0" ], "description": "remainder of number divided by divisor", "scope": "cobol,acucobol" }, "FUNCTION-REVERSE": { "prefix": [ "FUNCTION REVERSE" ], "body": [ "FUNCTION REVERSE(${1:string})$0" ], "description": "reverse representation with same length of string", "scope": "cobol,acucobol" }, "FUNCTION-SECONDS-FROM-FORMATTED-TIME": { "prefix": [ "FUNCTION SECONDS-FROM-FORMATTED-TIME" ], "body": [ "FUNCTION SECONDS-FROM-FORMATTED-TIME(${1:format},${2:time})$0" ], "description": "decode time according to format (a time format or a combined date and time format)", "scope": "cobol,acucobol" }, "FUNCTION-SECONDS-PAST-MIDNIGHT": { "prefix": [ "FUNCTION SECONDS-PAST-MIDNIGHT" ], "body": [ "FUNCTION SECONDS-PAST-MIDNIGHT()$0" ], "description": "current time of day expressed as the total number of elapsed seconds since midnight", "scope": "cobol,acucobol" }, "FUNCTION-SIGN": { "prefix": [ "FUNCTION SIGN" ], "body": [ "FUNCTION SIGN(${1:number})$0" ], "description": "sign representation of number as -1, 0, 1", "scope": "cobol,acucobol" }, "FUNCTION-SIN": { "prefix": [ "FUNCTION SIN" ], "body": [ "FUNCTION SIN(${1:angle})$0" ], "description": "trigonometric sine of the specified angle", "scope": "cobol,acucobol" }, "FUNCTION-SQRT": { "prefix": [ "FUNCTION SQRT" ], "body": [ "FS", "FUNCTION SQRT(${1:number})$0" ], "description": "aproximation of the square root of number", "scope": "cobol,acucobol" }, "FUNCTION-TAN": { "prefix": [ "FUNCTION TAN" ], "body": [ "FT", "FUNCTION TAN(${1:angle})$0" ], "description": "trigonometric tangent of the specified angle", "scope": "cobol,acucobol" }, "FUNCTION-UPPER-CASE": { "prefix": [ "FU", "FUNCTION UPPER-CASE" ], "body": [ "FUNCTION UPPER-CASE(${1:string})$0" ], "description": "character string that contains string with any lowercase letters replaced by their corresponding uppercase letters", "scope": "cobol,acucobol" }, "FUNCTION-VARIANCE": { "prefix": [ "FUNCTION VARIANCE" ], "body": [ "FUNCTION VARIANCE(${1:number},${2:...})$0" ], "description": "statistical variance of the specified list of number argument", "scope": "cobol,acucobol" }, "FUNCTION-YEAR-TO-YYYY": { "prefix": [ "FY", "FUNCTION YEAR-TO-YYYY" ], "body": [ "FUNCTION YEAR-TO-YYYY(${1:yy},${2:[yy-cutoff, default: 50},${3:yy-execution-time, default: now})$0" ], "description": "convert yy to yyyy with optional yy-cutoff to delineate centuries", "scope": "cobol,acucobol" }, "CALL": { "prefix": "CALL", "body": [ "CALL \"$1\" USING", " BY ${2|VALUE,REFERENCE,CONTENT|} ${3:IDENTIFER}", " RETURNING ${4:RETURN-CODE}", "END-CALL", "$0" ], "description": "CALL literal" }, "cancel": { "prefix": "cancel", "body": [ "cancel \"$1\"", "$0" ], "description": "CANCEL literal" }, "CANCEL": { "prefix": "CANCEL", "body": [ "CANCEL \"$1\"", "$0" ], "description": "CANCEL literal" }, "exit program": { "prefix": [ "ep", "exit" ], "body": [ "exit program returning ${1:item}" ], "description": "EXIT PROGRAM" }, "EXIT PROGRAM": { "prefix": [ "EP", "EXIT" ], "body": [ "EXIT PROGRAM RETURNING ${1:item}" ], "description": "EXIT PROGRAM" }, "dialect": { "prefix": "$set", "body": [ "\\$set dialect\"${2|ans85,bs2000,bs2000-offload,cob370,cob371,cob372,mf,mvs,os390,osvs,vsc21,vsc22,vsc23,vsc24|}\"", "$0" ] }, "sourceformat": { "prefix": "$set", "body": [ "\\$set sourceformat\"${2|free,variable,fixed|}\"", "$0" ], "scope": "cobol" }, "IDENTIFICATION DIVISION": { "prefix": [ "ID", "IDENTIFICATION DIVISION" ], "body": [ "IDENTIFICATION DIVISION.", "$0" ], "scope": "cobol" }, "identification division": { "prefix": [ "id", "identification division" ], "body": [ "identification division.", "$0" ], "scope": "cobol" }, "environment division": { "prefix": [ "ed", "environment division" ], "body": [ "environment division.", "$0" ] }, "ENVIRONMENT DIVISION": { "prefix": [ "ED", "ENVIRONMENT DIVISION" ], "body": [ "ENVIRONMENT DIVISION.", "$0" ] }, "DATA DIVISION": { "prefix": [ "DD", "DATA DIVISION" ], "body": [ "DATA DIVISION.", "$0" ] }, "data division": { "prefix": [ "dd", "data division" ], "body": [ "data division.", "$0" ], "scope": "cobol" }, "WORKING-STORAGE SECTION": { "prefix": [ "WS", "WORKING-STORAGE" ], "body": [ "WORKING-STORAGE SECTION.", "$0" ] }, "working-storage section": { "prefix": [ "ws", "working-storage" ], "body": [ "working-storage section.", "$0" ], "scope": "cobol" }, "local-storage section": { "prefix": [ "ls", "local-storage" ], "body": [ "local-storage section.", "$0" ] }, "LINKAGE SECTION ": { "prefix": [ "LS", "LKS", "LINKAGE SECTION" ], "body": [ "LINKAGE SECTION.", "$0" ], "scope": "cobol" }, "linkage section.": { "prefix": [ "ls", "lks", "linkage section" ], "body": [ "linkage section.", "$0" ] }, "PROCEDURE DIVISION": { "prefix": [ "PD", "PROCEDURE DIVISION" ], "body": [ "PROCEDURE DIVISION.", "$0" ] }, "procedure division": { "prefix": [ "pd", "procedure division" ], "body": [ "procedure division.", "$0" ], "scope": "cobol" }, "PROGRAM-ID": { "prefix": [ "PI", "PROGRAM-ID. PRG." ], "body": [ "PROGRAM-ID. ${1:${TM_FILENAME/(.*)\\..+$/${1:/upcase}/}}.", "$0" ], "scope": "cobol" }, "program-id": { "prefix": [ "pi", "program-id. prg." ], "body": [ "program-id. ${1:${TM_FILENAME/(.*)\\..+$/$1/}}.", "$0" ], "scope": "cobol" }, "*>> > > ${1:XX is a method in the YY class.}", "*>> ${2}", "*>> $0", "*>> " ], "scope": "cobol" }, "": { "prefix": "", "body": [ "${1:description}", "*>> $0" ], "scope": "cobol" }, "", "body": [ "${2}", "*>> $0" ], "scope": "cobol" }, "${2:description}", "*>> $0" ], "scope": "cobol" }, "", "body": [ "value>${1:property-description}", "*>> $0" ], "scope": "cobol" }, "ruler": { "prefix": "ruler", "body": "|...+.*..1....+....2....+....3....+....4....+....5....+....6....+....7..", "scope": "cobol" } }