13,352 results for 'cobol' (412 ms)
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.xmlseeds.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;900CocoLanguage.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 lengthcobol2v.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 1356CobolDataConverter.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 the5000-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) 442Jbi4cicsEndpoint.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) 408test_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) 408test_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) 442test_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) 408test_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 docobol.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 14nmcobol-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