PageRenderTime 412ms queryFilters 1ms Sphinxql 19ms app.CodeModel.GetByIds 177ms findMatchingLines 81ms GetByIds 258ms meta 0ms repositoryFilters 17ms languageFilters 0ms sourceFilters 3ms

13,352 results for 'cobol' (412 ms)

Source

Language

Repository

testcases.txt https://bitbucket.org/openesb/openesb-components.git | Plain Text | 154 lines
15
16B, REDEFCOB2A - build XSD, T, test/data/redefcob2a/TESTCOB.properties, , test/data/redefcob2a/TESTCOB.cobol, test/data/redefcob2a/TESTCOB.xsd, test/data/redefcob2a/TESTCOB.exp.xsd
17D, REDEFCOB2A - decode, T, test/data/redefcob2a/TESTCOB.exp.xsd, TESTCOB, test/data/redefcob2a/TESTCOB.dat, test/data/redefcob2a/TESTCOB.dec.xml, test/data/redefcob2a/TESTCOB.xml.utf8
22#1 - build XSD with PreDecodeCharCoding and PostEncodeCharCoding build spec properties
23B, REDEFCOB2AA - build XSD, T, test/data/redefcob2aa/TESTCOB2.properties, , test/data/redefcob2aa/TESTCOB2.cobol, test/data/redefcob2aa/TESTCOB2.xsd, test/data/redefcob2aa/TESTCOB2.exp.xsd
24
31############## misc01a from JCAPS ##############
32B, misc01a - build XSD, T, test/data/misc01a/FILLER-AND-NONAME-LEN224.properties, , test/data/misc01a/FILLER-AND-NONAME-LEN224.cobol, test/data/misc01a/FILLER-AND-NONAME-LEN224.xsd, test/data/misc01a/FILLER-AND-NONAME-LEN224.exp.xsd
33D, misc01a - decode, T, test/data/misc01a/FILLER-AND-NONAME-LEN224.exp.xsd, FILLER-AND-NONAME-LEN224, test/data/misc01a/FILLER-AND-NONAME-LEN224.dat, test/data/misc01a/FILLER-AND-NONAME-LEN224.dec.xml, test/data/misc01a/FILLER-AND-NONAME-LEN224.xml
36############## qan3glr1 from JCAPS ##############
37B, qan3glr1 - build XSD, T, test/data/qan3glr1/DFHCOMMAREA.properties, , test/data/qan3glr1/DFHCOMMAREA.cobol, test/data/qan3glr1/DFHCOMMAREA.xsd, test/data/qan3glr1/DFHCOMMAREA.exp.xsd
38D, qan3glr1 - decode, T, test/data/qan3glr1/DFHCOMMAREA.exp.xsd, DFHCOMMAREA, test/data/qan3glr1/DFHCOMMAREA.dat, test/data/qan3glr1/DFHCOMMAREA.dec.xml, test/data/qan3glr1/DFHCOMMAREA.exp.xml
41############## AUTO-RECORD-IN from Fernando Martinez ##############
42B, AUTO-RECORD-IN - build XSD, T, test/data/autorec/AUTO-RECORD-IN.properties, , test/data/autorec/AUTO-RECORD-IN.cobol, test/data/autorec/AUTO-RECORD-IN.xsd, test/data/autorec/AUTO-RECORD-IN.exp.xsd
43D, AUTO-RECORD-IN - decode, T, test/data/autorec/AUTO-RECORD-IN.exp.xsd, AUTO-RECORD-IN, test/data/autorec/AUTO-RECORD-IN.dat, test/data/autorec/AUTO-RECORD-IN.dec.xml, test/data/autorec/AUTO-RECORD-IN.exp.xml
seeds.csv https://bitbucket.org/EvTeam/l2evil.git | Unknown | 608 lines
355656;28;5824;5844;1870;1877;1;1;5625;562
36# Seed: Red Cobol
377051;31;5078;5108;1871;4042;1;0;2025;2250
377051;31;5078;5108;1871;4042;1;0;2025;2250
38# Seed: Alternative Red Cobol
397044;31;5825;5845;1871;4042;1;1;5625;562
397044;31;5825;5845;1871;4042;1;1;5625;562
40# Seed: Chilly Cobol
417019;34;5075;5105;1872;1880;1;0;1620;1800
417019;34;5075;5105;1872;1880;1;0;1620;1800
42# Seed: Alternative Chilly Cobol
437033;34;5826;5846;1872;1880;1;1;4500;450
437033;34;5826;5846;1872;1880;1;1;4500;450
44# Seed: Blue Cobol
455023;37;5077;5107;1873;4044;1;0;810;900
CocoLanguage.java https://bitbucket.org/openesb/openesb-components.git | Java | 1,092 lines
38/**
39 * Encapsulates information about the Cobol language, as it pertains to
40 * Copybook contents.
53/**
54 * Cobol plus character
55 */
58/**
59 * Cobol hyphen character
60 */
63/**
64 * Cobol asterisk character
65 */
431/**
432 * Indicates whether a string is a Cobol word.  A Cobol word is any
433 * word that is reserved, user-defined, or is a system name. It has length
cobol2v.vdm https://bitbucket.org/chriz/z_vedit | Unknown | 2,726 lines
1// COBOL2V.VDM - Process COBOL copybook, converting to Greenview's
2//		 "code colbeg,colend" format.
20//
21//		 -y causes COBOL2V.VDM to exit to DOS when running in
22//		    stand-alone-mode, saving all files. Otherwise, the
35//
36//			  "vpw -x cobol2v cobol.cbk -a gv.lay -u DBASE"
37//
58//
59//		    NAMES - Generate .nam file with COBOL field names.
60//		    	    Names are quoted and comma delimited.
76//		 In stand alone mode, the entire active file is presumed
77//		 to be COBOL copybook statements.  The only extra statements
78//		 are blank lines, VEDIT comments, "c=0[,R]" and, perhaps,
109//	 probably need to edit the resulting output file or edit the
110//	 source file and rerun COBOL2V on the edited source file.
111//
ebcdic-t.txt https://bitbucket.org/chriz/z_vedit | text | 1,701 lines
108
109COBOL.COP       A sample COBOL "Copy-Book" corresponding to sample data file
110                COBOL.EBC.
152You can perform a quick test by converting the supplied COBOL.EBC file using
153the supplied COBOL.LAY data layout (COBOL copy-book) file. From a DOS/NT
154command box, change to the directory containing VEDIT and into which you
1092
1093        vpw -x cobol2v.vdm cobol.cop -a cobold.lay -u dbase
1094
1221
1222The following is the result of running COBOL2V on the supplied COBOL.LAY file:
1223
1354
1355        vpw -x cobol2v.vdm cobol.cop -a myfile.lay -u dbase ishort cc=17
1356
CobolDataConverter.java https://bitbucket.org/openesb/openesb-components.git | Java | 2,554 lines
23/*
24 * @(#)CobolDataConverter.java 
25 *
59 */
60public class CobolDataConverter {
61
83    private static final ErrorManager cErrorMgr =
84            ErrorManager.getManager("OpenESB.encoder.COBOLCopybook." + CobolDataConverter.class.getName());
85
85
86    private CobolDataConverter() {
87    }
89    /**
90     * Write a value as a Cobol display usage item. Use for alphabetic,
91     * alphanumeric, alphanumeric-edited, and numeric-edited items. If the
5000-5099.xml https://bitbucket.org/EvTeam/l2evil.git | XML | 914 lines
230  </etcitem>
231  <etcitem id="5023" name="Seed: Blue Cobol">
232    <set name="class" value="OTHER"/>
233    <set name="crystal_type" value="NONE"/>
234    <set name="icon" value="icon.etc_cobol_seed_i00"/>
235    <set name="price" value="50"/>
275  </etcitem>
276  <etcitem id="5028" name="Seed: Red Cobol">
277    <set name="class" value="OTHER"/>
278    <set name="crystal_type" value="NONE"/>
279    <set name="icon" value="icon.etc_cobol_seed_i00"/>
280    <set name="price" value="20"/>
284  </etcitem>
285  <etcitem id="5029" name="Seed: Chilly Cobol">
286    <set name="class" value="OTHER"/>
ebcdic-t.vdm https://bitbucket.org/chriz/z_vedit | Unknown | 3,418 lines
7//
8//		   Converts COBOL picture specifications into commands
9//		   recognized by the rest of this macro. The picture
10//		   specifications may be edited to include new Greenview codes
11//		   for more flexibility in the translation. See COBOL2V.VDM.
12//
27//		   of each output file. The initial field names can be generated
28//		   from a COBOL copy-book. See COBOL2V.VDM.
29//
37//
38// Optional:	COBOL2V.VDM (for preprocessing COBOL copybooks).
39//		RELAY.VDM for generating output column #'s.
67//		   When (mask&2) is true, this macro terminates after
68//		   COBOL preprocessing.
69//
test_declarative_inheritance.py https://bitbucket.org/fero14041/sqlalchemy-enhance_doc_with_version_info_markups | Python | 989 lines
134                     employees=[Engineer(name='vlad',
135                     primary_language='cobol')])
136        sess.add(c1)
141            any(Engineer.primary_language
142            == 'cobol')).first(), c2)
143
431                     employees=[Engineer(name='vlad',
432                     primary_language='cobol')])
433        sess.add(c1)
437        eq_(sess.query(Person).filter(Engineer.primary_language
438            == 'cobol').first(), Engineer(name='vlad'))
439        eq_(sess.query(Company).filter(Company.employees.of_type(Engineer).
440            any(Engineer.primary_language
441            == 'cobol')).first(), c2)
442
Jbi4cicsEndpoint.java https://bitbucket.org/openesb/openesb-components.git | Java | 501 lines
79    /**
80     * The input copy Cobol, used also for output if {@link #outputCopyCobol} is
81     * <code>null</code> or empty.
264     *
265     * @param   cpyCobol         the copy Cobol describing the commarea to
266     *                           parse. Must be not <code>null</code>.
461    public void setCopyCobolFileName(final String copyCobolFileName) {
462        this.copyCobolFileName = copyCobolFileName;
463    }
476     *
477     * @param  outputCopyCobolFileName  the output copy Cobol file name to set.
478     */
480            final String outputCopyCobolFileName) {
481        this.outputCopyCobolFileName = outputCopyCobolFileName;
482    }
Jbi4CicsBinding.java https://bitbucket.org/openesb/openesb-components.git | Java | 251 lines
49    /**
50     * The output copy Cobol. May be the same as the input copy Cobol or it may
51     * be a different one.
55    /**
56     * Flag indicating if the input copy Cobol and the output copy Cobol are the
57     * same. If set to <code>Boolean.FALSE</code>, then also the
163     *
164     * @param  copyCobol  the new input copy Cobol to set.
165     */
222    public void setOutputCopyCobol(String outputCopyCobol) {
223        this.outputCopyCobol = outputCopyCobol;
224    }
247     */
248    public void setSameCopyCobol(Boolean sameCopyCobol) {
249        this.sameCopyCobol = sameCopyCobol;
declarative.py https://bitbucket.org/tsangpo/eric | Python | 1,512 lines
818        c2 = Company(name="Elbonia, Inc.", employees=[
819            Engineer(name="vlad", primary_language="cobol")
820        ])
927        c2 = Company(name="Elbonia, Inc.", employees=[
928            Engineer(name="vlad", primary_language="cobol")
929        ])
936        eq_((sess.query(Person).
937             filter(Engineer.primary_language == 'cobol').first()),
938            Engineer(name='vlad'))
940             filter(Company.employees.of_type(Engineer).
941                    any(Engineer.primary_language == 'cobol')).first()),
942            c2)
1110
1111        java, cpp, cobol = Language(name='java'),Language(name='cpp'), Language(name='cobol')
1112        e1 = Engineer(name="dilbert", primary_language=java)
test_inheritance.py https://bitbucket.org/techniq/sqlalchemy | Python | 1,162 lines
136                     employees=[Engineer(name='vlad',
137                     primary_language='cobol')])
138        sess.add(c1)
143            any(Engineer.primary_language
144            == 'cobol')).first(), c2)
145
397                     employees=[Engineer(name='vlad',
398                     primary_language='cobol')])
399        sess.add(c1)
403        eq_(sess.query(Person).filter(Engineer.primary_language
404            == 'cobol').first(), Engineer(name='vlad'))
405        eq_(sess.query(Company).filter(Company.employees.of_type(Engineer).
406            any(Engineer.primary_language
407            == 'cobol')).first(), c2)
408
test_inheritance.py https://bitbucket.org/miracle2k/sqlalchemy | Python | 1,160 lines
136                     employees=[Engineer(name='vlad',
137                     primary_language='cobol')])
138        sess.add(c1)
143            any(Engineer.primary_language
144            == 'cobol')).first(), c2)
145
397                     employees=[Engineer(name='vlad',
398                     primary_language='cobol')])
399        sess.add(c1)
403        eq_(sess.query(Person).filter(Engineer.primary_language
404            == 'cobol').first(), Engineer(name='vlad'))
405        eq_(sess.query(Company).filter(Company.employees.of_type(Engineer).
406            any(Engineer.primary_language
407            == 'cobol')).first(), c2)
408
test_declarative_inheritance.py https://bitbucket.org/f0rk/sqlalchemy | Python | 1,044 lines
134                     employees=[Engineer(name='vlad',
135                     primary_language='cobol')])
136        sess.add(c1)
141            any(Engineer.primary_language
142            == 'cobol')).first(), c2)
143
431                     employees=[Engineer(name='vlad',
432                     primary_language='cobol')])
433        sess.add(c1)
437        eq_(sess.query(Person).filter(Engineer.primary_language
438            == 'cobol').first(), Engineer(name='vlad'))
439        eq_(sess.query(Company).filter(Company.employees.of_type(Engineer).
440            any(Engineer.primary_language
441            == 'cobol')).first(), c2)
442
test_inheritance.py https://bitbucket.org/paulgb/sqlalchemy | Python | 1,100 lines
136                     employees=[Engineer(name='vlad',
137                     primary_language='cobol')])
138        sess.add(c1)
143            any(Engineer.primary_language
144            == 'cobol')).first(), c2)
145
397                     employees=[Engineer(name='vlad',
398                     primary_language='cobol')])
399        sess.add(c1)
403        eq_(sess.query(Person).filter(Engineer.primary_language
404            == 'cobol').first(), Engineer(name='vlad'))
405        eq_(sess.query(Company).filter(Company.employees.of_type(Engineer).
406            any(Engineer.primary_language
407            == 'cobol')).first(), c2)
408
test_declarative.py https://github.com/hughperkins/springgrid.git | Python | 1,607 lines
859        c2 = Company(name="Elbonia, Inc.", employees=[
860            Engineer(name="vlad", primary_language="cobol")
861        ])
995        c2 = Company(name="Elbonia, Inc.", employees=[
996            Engineer(name="vlad", primary_language="cobol")
997        ])
1004        eq_((sess.query(Person).
1005             filter(Engineer.primary_language == 'cobol').first()),
1006            Engineer(name='vlad'))
1008             filter(Company.employees.of_type(Engineer).
1009                    any(Engineer.primary_language == 'cobol')).first()),
1010            c2)
1201
1202        java, cpp, cobol = Language(name='java'),Language(name='cpp'), Language(name='cobol')
1203        e1 = Engineer(name="dilbert", primary_language=java)
microfocus.rb https://github.com/masamiya/chef-cookbooks.git | Ruby | 136 lines
1#
2# Cookbook Name:: cobol
3# Recipe:: microfocus
23
24directory "/opt/microfocus/cobol" do
25  recursive true
29# Server Express install
30ark "cobol" do
31  url node['cobol']['microfocus']['download_url']
31  url node['cobol']['microfocus']['download_url']
32  checksum node['cobol']['microfocus']['download_checksum']
33  path '/opt/microfocus'
37
38ruby_block "install mf cobol" do
39  block do
cobol.properties https://bitbucket.org/sideproject/scite | Unknown | 47 lines
1# Define SciTE settings for COBOL files.
2
3file.patterns.COBOL=*.cob
4filter.cobol=COBOL (cob)|$(file.patterns.COBOL)|
5
5
6lexer.$(file.patterns.COBOL)=COBOL
7
7
8word.characters.$(file.patterns.cobol)=$(chars.alpha)$(chars.numeric)$(chars.accented)_-
9
10# These keywords are case insensitive
11keywords.$(file.patterns.COBOL)=configuration data declaratives division environment environment-division file file-control function i-o i-o-control identification input input-output linkage local-storage output procedure program program-id receive-control section special-names working-storage
12keywords2.$(file.patterns.COBOL)=accept add alter apply assign call chain close compute continue control convert copy count delete display divide draw drop eject else enable end-accept end-add end-call end-chain end-compute end-delete end-display end-divide end-evaluate end-if end-invoke end-multiply end-perform end-read end-receive end-return end-rewrite end-search end-start end-string end-subtract end-unstring end-write erase evaluate examine exec execute exit go goback generate if ignore initialize initiate insert inspect invoke leave merge move multiply open otherwise perform print read receive release reload replace report reread rerun reserve reset return rewind rewrite rollback run search seek select send set sort start stop store string subtract sum suppress terminate then transform unlock unstring update use wait when wrap write
12keywords2.$(file.patterns.COBOL)=accept add alter apply assign call chain close compute continue control convert copy count delete display divide draw drop eject else enable end-accept end-add end-call end-chain end-compute end-delete end-display end-divide end-evaluate end-if end-invoke end-multiply end-perform end-read end-receive end-return end-rewrite end-search end-start end-string end-subtract end-unstring end-write erase evaluate examine exec execute exit go goback generate if ignore initialize initiate insert inspect invoke leave merge move multiply open otherwise perform print read receive release reload replace report reread rerun reserve reset return rewind rewrite rollback run search seek select send set sort start stop store string subtract sum suppress terminate then transform unlock unstring update use wait when wrap write
13keywords3.$(file.patterns.COBOL)=access acquire actual address advancing after all allowing alphabet alphabetic alphabetic-lower alphabetic-upper alphanumeric alphanumeric-edited also alternate and any are area areas as ascending at attribute author auto auto-hyphen-skip auto-skip automatic autoterminate background-color background-colour backward basis beep before beginning bell binary blank blink blinking block bold bottom box boxed by c01 c02 c03 c04 c05 c06 c07 c08 c09 c10 c11 c12 cancel cbl cd centered cf ch chaining changed character characters chart class clock-units cobol code code-set col collating color colour column com-reg comma command-line commit commitment common communication comp comp-0 comp-1 comp-2 comp-3 comp-4 comp-5 comp-6 comp-x compression computational computational-1 computational-2 computational-3 computational-4 computational-5 computational-6 computational-x computational console contains content control-area controls conversion converting core-index corr corresponding crt crt-under csp currency current-date cursor cycle cyl-index cyl-overflow date date-compiled date-written day day-of-week dbcs de debug debug-contents debug-item debug-line debug-name debug-sub-1 debug-sub-2 debug-sub-3 debugging decimal-point default delimited delimiter depending descending destination detail disable disk disp display-1 display-st down duplicates dynamic echo egcs egi emi empty-check encryption end end-of-page ending enter entry eol eop eos equal equals error escape esi every exceeds exception excess-3 exclusive exhibit extend extended-search external externally-described-key factory false fd fh--fcd fh--keydef file-id file-limit file-limits file-prefix filler final first fixed footing for foreground-color foreground-colour footing format from full giving global greater grid group heading high high-value high-values highlight id in index indexed indic indicate indicator indicators inheriting initial installation into invalid invoked is japanese just justified kanji kept key keyboard label last leading left left-justify leftline length length-check less limit limits lin linage linage-counter line line-counter lines lock lock-holding locking low low-value low-values lower lowlight manual mass-update master-index memory message method mode modified modules more-labels multiple name named national national-edited native nchar negative next no no-echo nominal not note nstd-reels null nulls number numeric numeric-edited numeric-fill o-fill object object-computer object-storage occurs of off omitted on oostackptr optional or order organization other others overflow overline packed-decimal padding page page-counter packed-decimal paragraph password pf ph pic picture plus pointer pop-up pos position positioning positive previous print-control print-switch printer printer-1 printing prior private procedure-pointer procedures proceed process processing prompt protected public purge queue quote quotes random range rd readers ready record record-overflow recording records redefines reel reference references relative remainder remarks removal renames reorg-criteria repeated replacing reporting reports required resident return-code returning reverse reverse-video reversed rf rh right right-justify rolling rounded s01 s02 s03 s04 s05 same screen scroll sd secure security segment segment-limit selective self selfclass sentence separate sequence sequential service setshadow shift-in shift-out sign size skip1 skip2 skip3 sort-control sort-core-size sort-file-size sort-merge sort-message sort-mode-size sort-option sort-return source source-computer space spaces space-fill spaces standard standard-1 standard-2 starting status sub-queue-1 sub-queue-2 sub-queue-3 subfile super symbolic sync synchronized sysin sysipt syslst sysout syspch syspunch system-info tab tallying tape terminal terminal-info test text than through thru time time-of-day time-out timeout times title to top totaled totaling trace track-area track-limit tracks trailing trailing-sign transaction true type typedef underline underlined unequal unit until up updaters upon upper upsi-0 upsi-1 upsi-2 upsi-3 upsi-4 upsi-5 upsi-6 upsi-7 usage user using value values variable varying when-compiled window with words write-only write-verify writerszero zero zero-fill zeros zeroes
14
nmcobol-mode.el https://github.com/emacsmirror/nmcobol-mode.git | Lisp | 2,163 lines
33;; Since Tandem's line format is not standard this mode is not likely to
34;; suit the needs of most Cobol progammers.  Moreover, Tandem Cobol has
35;; extensions that standard Cobol doesn't have and may not implement
76;;(require 'nmcobol-mode)      ; Unconditional load
77;;(autoload 'nmcobol-mode "nmcobol-mode" "Major mode for Tandem NMCOBOL files." t nil)
78;;
211  (define-key (current-local-map) [menu-bar nmcobol-menu]
212    (cons "NMCobol" (make-sparse-keymap "NMCobol")))
213  (define-key (current-local-map) [menu-bar nmcobol-menu customize]
2031  (around nmcobol-ad-forward-paragraph activate)
2032  "In nmcobol-mode, moves by numbered data levels or Cobol paragraphs.
2033Uses `nmcobol-beginning-of-sentence' in determining how to move."
2036               (save-excursion (beginning-of-line)
2037                               (looking-at nmcobol-non-cobol-regexp)))
2038          ad-do-it
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21