3 <xs:annotation>

4 <xs:appinfo source="urn:com.sun:encoder">

5 <enc:encoding name="COBOL Copybook Encoder" namespace="urn:com.sun:encoder-coco-1.0" style="cocoencoder-1.0"/>

6 <coco:cocoXsdBuilderVendor>SUNW</coco:cocoXsdBuilderVendor>

7 <coco:cocoXsdBuilderVersion>${BUILDER_VERSION}</coco:cocoXsdBuilderVersion>

74 public void testZonedsp9_10(){

75 try{

76 CobolTypeDescriptor cobolTypeDescriptor=new CobolTypeDescriptor();

77 cobolTypeDescriptor.setType(CobolType.ZONED);

179 public void testZonedsp9_10_9_2(){

180 try{

181 CobolTypeDescriptor cobolTypeDescriptor=new CobolTypeDescriptor();

182 cobolTypeDescriptor.setType(CobolType.ZONED);

215 public void testZonedsm9_10_9_2(){

216 try{

217 CobolTypeDescriptor cobolTypeDescriptor=new CobolTypeDescriptor();

218 cobolTypeDescriptor.setType(CobolType.ZONED);

251 public void testUnformatZoned9_10(){

252 try{

253 CobolTypeDescriptor cobolTypeDescriptor=new CobolTypeDescriptor();

254 cobolTypeDescriptor.setType(CobolType.ZONED);

115 cobolTypeDescriptor.setLevel(2);

116 expectedCommareaBeanMappingDescriptor.addFieldMapping(cobolTypeDescriptor.getName().replace('-','_'),cobolTypeDescriptor.getName(),cobolTypeDescriptor);

117 // 02 CA-RETCODE5 PIC 99999 .

118 cobolTypeDescriptor=new CobolTypeDescriptor();

122 cobolTypeDescriptor.setLevel(2);

123 expectedCommareaBeanMappingDescriptor.addFieldMapping(cobolTypeDescriptor.getName().replace('-','_'),cobolTypeDescriptor.getName(),cobolTypeDescriptor);

124 // 02 CA-RETCODE6 PIC 9(5) .

125 cobolTypeDescriptor=new CobolTypeDescriptor();

129 cobolTypeDescriptor.setLevel(2);

130 expectedCommareaBeanMappingDescriptor.addFieldMapping(cobolTypeDescriptor.getName().replace('-','_'),cobolTypeDescriptor.getName(),cobolTypeDescriptor);

131 // 02 CA-RETCODE7 PIC S99999 .

132 cobolTypeDescriptor=new CobolTypeDescriptor();

163 cobolTypeDescriptor.setLevel(2);

164 expectedCommareaBeanMappingDescriptor.addFieldMapping(cobolTypeDescriptor.getName().replace('-','_'),cobolTypeDescriptor.getName(),cobolTypeDescriptor);

165 // 02 CA-RETCODE11 PIC 99999V999 .

166 cobolTypeDescriptor=new CobolTypeDescriptor();

396 FOREGROUND-COLOR 9

397 BACKGROUND-COLOR 2

398 VALUE 'Now with COBOL version 5.30 you have the'.

399 03 LINE 14 COLUMN 48

400 highlight

442 FOREGROUND-COLOR 6

443 BACKGROUND-COLOR 7

444 VALUE 'COBOL VER. 5.30'.

445

446 01 NEXT-SCREEN.

449 FOREGROUND-COLOR 9

450 BACKGROUND-COLOR 2

451 VALUE 'ANSI STANDARD COBOL has gone thru many '.

452 03 LINE 3 COLUMN 20

453 highlight

24 | \d{B011} | Embedded Ada | |

25 | \d{B012} | Embedded C | |

26 | \d{B013} | Embedded COBOL | |

27 | \d{B014} | Embedded Fortran | |

28 | \d{B015} | Embedded MUMPS | |

46 | \d{B111} | Module language Ada | |

47 | \d{B112} | Module language C | |

48 | \d{B113} | Module language COBOL | |

49 | \d{B114} | Module language Fortran | |

50 | \d{B115} | Module language MUMPS | |

53 | \d{B121} | Routine language Ada | |

54 | \d{B122} | Routine language C | |

55 | \d{B123} | Routine language COBOL | |

56 | \d{B124} | Routine language Fortran | |

57 | \d{B125} | Routine language MUMPS | |

173 ../lexlib/StyleContext.h ../lexlib/CharacterSet.h \

174 ../lexlib/LexerModule.h

175 LexCOBOL.o: ../lexers/LexCOBOL.cxx ../include/ILexer.h \

176 ../include/Scintilla.h ../include/SciLexer.h ../lexlib/PropSetSimple.h \

177 ../lexlib/WordList.h ../lexlib/LexAccessor.h ../lexlib/Accessor.h \

213 @programmer = Programmer.using(:brazil).create!(:name => "Thiago")

214 @project = Project.using(:brazil).create!(:name => "RubySoc")

215 @project2 = Project.using(:brazil).create!(:name => "Cobol Application")

216 @programmer.projects << @project

217 @programmer.save()

283 \ }

284 let types.ctags = type_ctags

285 " COBOL {{{1

286 let type_cobol = tagbar#prototypes#typeinfo#new()

287 let type_cobol.ctagstype = 'cobol'

288 let type_cobol.kinds = [

296 \ {'short' : 's', 'long' : 'sections', 'fold' : 0, 'stl' : 1}

297 \ ]

298 let types.cobol = type_cobol

299 " CSS {{{1

300 let type_css = tagbar#prototypes#typeinfo#new()

183 \ }

184 let types.cs = type_cs

185 " COBOL {{{1

186 let type_cobol = tagbar#prototypes#typeinfo#new()

187 let type_cobol.ctagstype = 'cobol'

188 let type_cobol.kinds = [

194 \ {'short' : 's', 'long' : 'sections', 'fold' : 0, 'stl' : 1}

195 \ ]

196 let types.cobol = type_cobol

197 " DOS Batch {{{1

198 let type_dosbatch = tagbar#prototypes#typeinfo#new()

351 ../../lexlib/CharacterSet.h \

352 ../../lexlib/LexerModule.h

353 $(DIR_O)/LexCOBOL.obj: \

354 ../../lexers/LexCOBOL.cxx \

351 ../../lexlib/CharacterSet.h \

352 ../../lexlib/LexerModule.h

353 LexCOBOL.o: \

354 ../../lexers/LexCOBOL.cxx \

185 ../lexlib/LexAccessor.h ../lexlib/Accessor.h ../lexlib/StyleContext.h \

186 ../lexlib/CharacterSet.h ../lexlib/LexerModule.h

187 LexCOBOL.o: ../lexers/LexCOBOL.cxx ../include/ILexer.h \

188 ../include/Scintilla.h ../include/SciLexer.h ../lexlib/WordList.h \

189 ../lexlib/LexAccessor.h ../lexlib/Accessor.h ../lexlib/StyleContext.h \

400 .cil_literal1{color:#2a00ff}

401 .cil_literal2{color:teal}

402 .cobol_keyword1{color:#7f0055}

403 .cobol_keyword2{color:#03f}

404 .cobol_keyword3{color:#3066ac}

405 .cobol_keyword4{color:#36c}

406 .cobol_function,.cobol_markup{color:navy}

407 .cobol_operator{color:#7f0055}

408 .cobol_label{color:olive}

409 .cobol_digit{color:red}

410 .cobol_comment1{color:#3f7f5f}

411 .cobol_comment2{color:#999}

225 it "returns false when neither of slug or language match" do

226 queue = queue('builds.linux', {})

227 queue.matches?(stub('job', repository: stub('repository', owner_name: 'foo', name: 'bar', owner: nil), config: { language: 'COBOL' })).should be_false

228 end

229

136 ../include/Accessor.h ../src/StyleContext.h ../include/KeyWords.h \

137 ../include/Scintilla.h ../include/SciLexer.h

138 LexCOBOL.o: ../src/LexCOBOL.cxx ../include/Platform.h \

139 ../include/PropSet.h ../include/Accessor.h ../include/KeyWords.h \

140 ../include/Scintilla.h ../include/SciLexer.h ../src/StyleContext.h

142 public static readonly System.Guid Basic;

143 public static readonly System.Guid C;

144 public static readonly System.Guid Cobol;

145 public static readonly System.Guid CPlusPlus;

146 public static readonly System.Guid CSharp;

37 sess = fixture_session()

38 any_ = Company.employees.of_type(Engineer).any(

39 Engineer.primary_language == "cobol"

40 )

41 eq_(sess.query(Company).filter(any_).one(), self.c2)

45 calias = aliased(Company)

46 any_ = calias.employees.of_type(Engineer).any(

47 Engineer.primary_language == "cobol"

48 )

49 eq_(sess.query(calias).filter(any_).one(), self.c2)

64 sess = fixture_session()

65 any_ = Company.employees.of_type(Engineer).any(

66 and_(Engineer.primary_language == "cobol")

67 )

68 eq_(sess.query(Company).filter(any_).one(), self.c2)

299 cp *.cob $user_id$user_random/ 2> /dev/null

300 cp *.cpy $user_id$user_random/ 2> /dev/null

301 cp *.cobol $user_id$user_random/ 2> /dev/null

302 cp *.scala $user_id$user_random/ 2> /dev/null

303 cp *.d $user_id$user_random/ 2> /dev/null

20 *> Program: cobjapi.cob

21 *>

22 *> Purpose: GnuCOBOL wrapper functions for JAPI

23 *>

24 *> Author: Laszlo Erdos - https://www.facebook.com/wortfee

28 *> Tectonics: cobc -c -free cobjapi.cob

29 *>

30 *> Usage: Use these functions in GnuCOBOL GUI programs.

31 *>

32 *>******************************************************************************

37 *>------------------------------------------------------------------------------

38 *> 2014.12.24 Laszlo Erdos:

39 *> - GnuCOBOL support for JAPI added.

40 *> - japi4c.c converted into cobjapi.cob.

41 *>******************************************************************************

2 PROGRAM-ID. COBDES.

3 *>**********************************************************************

4 *> Purpose: DES (Data Encryption Standard) in COBOL

5 *> http://en.wikipedia.org/wiki/Data_Encryption_Standard

6 *>

33 *> Date Change description

34 *> ========== ==========================================================

35 *> 04.10.2013 Converted to GnuCOBOL

36 *>----------------------------------------------------------------------

37 *> 19.09.2015 Usage extended

23 working-storage section.

24

25 *> GNU Cobol function keys.

26 copy screenio.

27

20 Debug/c.o\

21 Debug/clist.o\

22 Debug/cobol.o\

23 Debug/debug.o\

24 Debug/eiffel.o\

121 Debug/clist.o.d:

122 $(GCC) -DHAVE_CONFIG_H -I. -Ilibctags -MTDebug/clist.o -MFDebug/clist.o.d -MM libctags/clist.c

123 Debug/cobol.o: libctags/cobol.c Debug/cobol.o.d

124 $(GCC) -c libctags/cobol.c -DHAVE_CONFIG_H -I. -Ilibctags -o Debug/cobol.o

125 Debug/cobol.o.d:

126 $(GCC) -DHAVE_CONFIG_H -I. -Ilibctags -MTDebug/cobol.o -MFDebug/cobol.o.d -MM libctags/cobol.c

127 Debug/debug.o: libctags/debug.c Debug/debug.o.d

128 $(GCC) -c libctags/debug.c -DHAVE_CONFIG_H -I. -Ilibctags -o Debug/debug.o

101 ../src/CharClassify.h ../include/PropSet.h ../include/Accessor.h \

102 ../include/KeyWords.h ../include/Scintilla.h ../include/SciLexer.h

103 LexCOBOL.o: ../src/LexCOBOL.cxx ../include/Platform.h \

104 ../include/PropSet.h ../include/Accessor.h ../include/KeyWords.h \

105 ../include/Scintilla.h ../include/SciLexer.h ../src/StyleContext.h

211 ../lexlib/Accessor.h ../lexlib/StyleContext.h ../lexlib/CharacterSet.h \

212 ../lexlib/LexerModule.h

213 LexCOBOL.o: ../lexers/LexCOBOL.cxx ../include/ILexer.h \

214 ../include/Scintilla.h ../include/SciLexer.h ../lexlib/WordList.h \

215 ../lexlib/LexAccessor.h ../lexlib/Accessor.h ../lexlib/StyleContext.h \

10

11 def getname():

12 return "cobol"

13

14 def getversion():

635 | (r_enter <- "enter" | "ENTER")

636 | (r_ending <- "ending" | "ENDING")

637 | (r_endcobol <- "endcobol" | "ENDCOBOL")

638 | (r_end_write <- "end-write" | "END-WRITE")

639 | (r_end_unstring <- "end-unstring" | "END-UNSTRING")

786 | (r_code_set <- "code-set" | "CODE-SET")

787 | (r_code <- "code" | "CODE")

788 | (r_cobol <- "cobol" | "COBOL")

789 | (r_close <- "close" | "CLOSE")

790 | (r_clock_units <- "clock-units" | "CLOCK-UNITS")

20 *> Program: filedialog.cob

21 *>

22 *> Purpose: Example GnuCOBOL program for JAPI

23 *>

24 *> Author: Laszlo Erdos - https://www.facebook.com/wortfee

41 *>------------------------------------------------------------------------------

42 *> 2014.12.24 Laszlo Erdos:

43 *> - GnuCOBOL support for JAPI added.

44 *> - filedialog.c converted into filedialog.cob.

45 *>******************************************************************************

7 Environment division.

8 Configuration section.

9 Source-computer. GNU-Cobol.

10 Object-computer. GNU-Cobol.

96 /// <param name="languageName"></param>

97 /// <param name="routineName"></param>

98 void EnterEnterCompilerStatement(TypeCobol.Compiler.Scanner.Token enterToken, TypeCobol.Compiler.Scanner.Token languageName, TypeCobol.Compiler.Scanner.Token routineName);

99

100 /// <summary>

153 /// <param name="serviceToken"></param>

154 /// <param name="labelToken"></param>

155 void EnterServiceLabelCompilerStatement(TypeCobol.Compiler.Scanner.Token serviceToken, TypeCobol.Compiler.Scanner.Token labelToken);

156

157 /// <summary>

168 void EnterServiceReloadCompilerStatement(TypeCobol.Compiler.Scanner.Token serviceToken,

169 TypeCobol.Compiler.Scanner.Token reloadToken, TypeCobol.Compiler.Scanner.Token userDefinedWord);

170

171 /// <summary>

191 /// <param name="titleToken"></param>

192 /// <param name="title"></param>

193 void EnterTitleCompilerStatement(TypeCobol.Compiler.Scanner.Token titleToken, TypeCobol.Compiler.Scanner.Token title);

194 }

195 }

11 import it.imolinfo.jbi4cics.messageformat.commarea.CommareaFormatter;

12 import it.imolinfo.jbi4cics.service.ServiceContext;

13 import it.imolinfo.jbi4cics.typemapping.cobol.CobolType;

14 import it.imolinfo.jbi4cics.typemapping.cobol.CobolTypeDescriptor;

43 // inizializzazione del cobolTypeDescriptor

44 CobolTypeDescriptor cobolTypeDescriptor = new CobolTypeDescriptor();

45 cobolTypeDescriptor.setType(CobolType.STRING);

46 cobolTypeDescriptor.setStringLength(10);

47 cobolTypeDescriptor.setPadCharacter(" ");

48 cobolTypeDescriptor.setCodePage(DeafultHostCodePage);

49

50 // inizializzazione del CommareaBeanMappingDescriptor External

59

60 // creo il field descriptor per l'internal mapping descriptor

61 CobolTypeDescriptor cobolTypeDescriptorInternal = new CobolTypeDescriptor();

62 cobolTypeDescriptorInternal.setType(CobolType.NESTED_COMMAREA);

6 <META http-equiv="Content-Type" content="text/html; charset=UTF-8">

7 <TITLE>

8 Uses of Package jcobol.reader (jCobolLexer)

9 </TITLE>

10

102 <TR BGCOLOR="#CCCCFF" CLASS="TableHeadingColor">

103 <TH ALIGN="left" COLSPAN="2"><FONT SIZE="+2">

104 Classes in <A HREF="../../jcobol/reader/package-summary.html">jcobol.reader</A> used by <A HREF="../../jcobol/reader/package-summary.html">jcobol.reader</A></FONT></TH>

105 </TR>

106 <TR BGCOLOR="white" CLASS="TableRowColor">

107 <TD><B><A HREF="../../jcobol/reader/class-use/CobolLine.html#jcobol.reader"><B>CobolLine</B></A></B>

108

109 <BR>

1 using System;

2 using System.Collections.Generic;

3 using TypeCobol.Compiler.Diagnostics;

4 using TypeCobol.Compiler.Directives;

5 using TypeCobol.Compiler.Scanner;

6 using TypeCobol.Compiler.Text;

7

8 namespace TypeCobol.Compiler.Preprocessor

9 {

10 /// <summary>

36 sess = Session()

37 any_ = Company.employees.of_type(Engineer).any(

38 Engineer.primary_language == "cobol"

39 )

40 eq_(sess.query(Company).filter(any_).one(), self.c2)

44 calias = aliased(Company)

45 any_ = calias.employees.of_type(Engineer).any(

46 Engineer.primary_language == "cobol"

47 )

48 eq_(sess.query(calias).filter(any_).one(), self.c2)

63 sess = Session()

64 any_ = Company.employees.of_type(Engineer).any(

65 and_(Engineer.primary_language == "cobol")

66 )

67 eq_(sess.query(Company).filter(any_).one(), self.c2)

17 {name: 'C', mime: 'text/x-csrc', mode: 'clike'},

18 {name: 'C++', mime: 'text/x-c++src', mode: 'clike'},

19 {name: 'Cobol', mime: 'text/x-cobol', mode: 'cobol'},

20 {name: 'Java', mime: 'text/x-java', mode: 'clike'},

21 {name: 'C#', mime: 'text/x-csharp', mode: 'clike'},

113 | Clipper | |

114 | CLU | |

115 | COBOL | |

116 | Cobra | |

117 | COMAL | |

44 changes, just the ones for benefiting of the real-time calculations of STIFF. STIFF on the

45 other hand, will need some major refactoring to be done to ensure real-time calculations. The

46 whole system has to be transformed from Cobol into Java. Since this is too big of a step, we will

47 wait with the refactoring of STIFF until the third phase. In this first phase, STIFF will receive

48 a wrapper which starts the system on demand, and that just lets STIFF make use of its old components.\\

16

17 import lexer.*;

18 import lexer.Cobol.CCobolKeywordList;

19

20 import org.w3c.dom.Document;

21 import org.w3c.dom.Element;

22

23 import parser.Cobol.CCobolElement;

24 import parser.condition.CCondAndStatement;

25 import parser.condition.CCondEqualsStatement;

232 CExpression expr = m_arrIdToEval.get(i) ;

233 CBaseToken tokThru = GetCurrentToken() ;

234 if (tokThru.GetKeyword() == CCobolKeywordList.THRU || tokThru.GetKeyword() == CCobolKeywordList.THROUGH)

235 {

236 GetNext();

1 using System.Collections.Generic;

2

3 namespace TypeCobol.Compiler.Types

4 {

5 public partial class PictureValidator

6 <META http-equiv="Content-Type" content="text/html; charset=UTF-8">

7 <TITLE>

8 jcobol.reader Class Hierarchy (jCobolLexer)

9 </TITLE>

10

17 {

18 if (location.href.indexOf('is-external=true') == -1) {

19 parent.document.title="jcobol.reader Class Hierarchy (jCobolLexer)";

20 }

21 }

94 <UL>

95 <LI TYPE="circle">java.lang.Object<UL>

96 <LI TYPE="circle">jcobol.reader.<A HREF="../../jcobol/reader/CardReader.html" title="class in jcobol.reader"><B>CardReader</B></A><LI TYPE="circle">jcobol.reader.<A HREF="../../jcobol/reader/CobolLineFactory.html" title="class in jcobol.reader"><B>CobolLineFactory</B></A><LI TYPE="circle">jcobol.reader.<A HREF="../../jcobol/reader/CobolLineFixed.html" title="class in jcobol.reader"><B>CobolLineFixed</B></A> (implements jcobol.reader.<A HREF="../../jcobol/reader/CobolLine.html" title="interface in jcobol.reader">CobolLine</A>)

97 <LI TYPE="circle">jcobol.reader.<A HREF="../../jcobol/reader/CobolLineFree.html" title="class in jcobol.reader"><B>CobolLineFree</B></A> (implements jcobol.reader.<A HREF="../../jcobol/reader/CobolLine.html" title="interface in jcobol.reader">CobolLine</A>)

102 </H2>

103 <UL>

104 <LI TYPE="circle">jcobol.reader.<A HREF="../../jcobol/reader/CobolLine.html" title="interface in jcobol.reader"><B>CobolLine</B></A></UL>

105 <HR>

106

115 - !!models.Label

116 category: Language

117 name: COBOL

118 - !!models.Label

119 category: Language

120 name: CobolScript

121 - !!models.Label

122 category: Language

55 template.queryForInt(selectIdWithNamedParams, Map("description" -> "python")) should be(1)

56 intercept[EmptyResultDataAccessException] {

57 template.queryForInt(selectIdWithNamedParams, Map("description" -> "cobol"))

58 }

59

61 template.queryForInt(selectIdWithNamedParams, new MapSqlParameterSource("description", "python")) should be(1)

62 intercept[EmptyResultDataAccessException] {

63 template.queryForInt(selectIdWithNamedParams, new MapSqlParameterSource("description", "cobol"))

64 }

65

69 template.queryForInt("select id from test_bean where description = 'python'") should be(1)

70 intercept[EmptyResultDataAccessException] {

71 template.queryForInt(selectId, "cobol")

72 }

73 }

120 << CharKindPair( 't', qCtagsSense::Typedef );

121

122 CharKindPairList cobolList = CharKindPairList()

123 << CharKindPair( 'd', qCtagsSense::ItemData )

124 << CharKindPair( 'f', qCtagsSense::FileDescriptor )

311 mLanguageChars[ "C++" ] = cppList;

312 mLanguageChars[ "C#" ] = csharpList;

313 mLanguageChars[ "Cobol" ] = cobolList;

314 mLanguageChars[ "Eiffel" ] = eiffelList;

315 mLanguageChars[ "Erlang" ] = erlangList;

274 a(cobol,subsystems,[null,1,5]).

275 a(cobol,cobol,[xor,3,6]).

276 a(cobol,jcl,[or,2,6]).

279 a(cobol,progress,[or,2,6]).

280 a(cobol,ibm_cobol,[xor,3,7]).

281 a(cobol,microfocus_cobol,[xor,3,7]).

298 a(cobol,annotation_section,[and,0,7]).

299 a(cobol,activation_section,[and,0,7]).

300 a(cobol,entities_section,[and,0,7]).

494 a(ibm_cobol,subsystems,[null,1,6]).

495 a(ibm_cobol,cobol,[xor,3,7]).

496 a(ibm_cobol,jcl,[or,2,7]).

499 a(ibm_cobol,progress,[or,2,7]).

500 a(ibm_cobol,ibm_cobol,[null,4,8]).

501 a(ibm_cobol,microfocus_cobol,[xor,3,8]).

20 *> Program: dialogmodal.cob

21 *>

22 *> Purpose: Example GnuCOBOL program for JAPI

23 *>

24 *> Author: Laszlo Erdos - https://www.facebook.com/wortfee

41 *>------------------------------------------------------------------------------

42 *> 2014.12.24 Laszlo Erdos:

43 *> - GnuCOBOL support for JAPI added.

44 *> - dialogmodal.c converted into dialogmodal.cob.

45 *>******************************************************************************

32 | **B011 Embedded Ada** | NONE | |

33 | **B012 Embedded C** | NONE | |

34 | **B013 Embedded COBOL** | NONE | |

35 | **B014 Embedded FORTRAN** | NONE | |

36 | **B015 Embedded MUMPS** | NONE | |

46 | **B111 Module language Ada** | NONE | |

47 | **B112 Module language C** | NONE | |

48 | **B113 Module language COBOL** | NONE | |

49 | **B114 Module language Fortran** | NONE | |

50 | **B115 Module language MUMPS** | NONE | |

53 | **B121 Routine language Ada** | NONE | |

54 | **B122 Routine language C** | NONE | |

55 | **B123 Routine language COBOL** | NONE | |

56 | **B124 Routine language Fortran** | NONE | |

57 | **B125 Routine language MUMPS** | NONE | |

34 #define CV_S_OBJNAME 0x0009

35 #define CV_S_ENDARG 0x000a

36 #define CV_S_COBOLUDT 0x000b

37 #define CV_S_COBOLUDT_NEW 0x1004

200 } CV_OBJECT_FILENAME;

201

202 typedef struct _CV_COBOLUDT {

203

204 CV_HEADER Header;

207 char Name[DEFAULT_NAME_SIZE];

208

209 } CV_COBOLUDT;

210

211 typedef struct _CV_COBOLUDT_NEW {

216 char Name[DEFAULT_NAME_SIZE];

217

218 } CV_COBOLUDT_NEW;

219

220 typedef struct _CV_MANYREG {

12 import org.junit.Test;

13

14 import io.proleap.cobol.CobolTestBase;

15 import io.proleap.cobol.asg.metamodel.CompilationUnit;

26 import io.proleap.cobol.asg.metamodel.procedure.ProcedureDivision;

27 import io.proleap.cobol.asg.metamodel.procedure.StatementTypeEnum;

28 import io.proleap.cobol.asg.metamodel.procedure.close.AssociatedDataLengthPhrase;

39 import io.proleap.cobol.asg.runner.impl.CobolParserRunnerImpl;

40 import io.proleap.cobol.preprocessor.CobolPreprocessor.CobolSourceFormatEnum;

41

42 public class CloseStatementTest extends CobolTestBase {

46 final File inputFile = new File("src/test/resources/io/proleap/cobol/asg/procedure/close/CloseStatement.cbl");

47 final Program program = new CobolParserRunnerImpl().analyzeFile(inputFile, CobolSourceFormatEnum.TANDEM);

48

49 final CompilationUnit compilationUnit = program.getCompilationUnit("CloseStatement");

27 NoApiLicenseAda,

28 NoApiLicenseC,

29 NoApiLicenseCobol,

30 NoApiLicenseFtn,

31 NoApiLicenseJava,

70 StatusError::NoApiLicenseAda => "API: no license Ada",

71 StatusError::NoApiLicenseC => "API: no license C",

72 StatusError::NoApiLicenseCobol => "API: no license COBOL",

73 StatusError::NoApiLicenseFtn => "API: no license FORTRAN",

74 StatusError::NoApiLicenseJava => "API: no license Java",

5 /*

6 +* Filename: IICOBPACK.C

7 ** Purpose: Routines to allow Cobol scaled packed decimal variables to

8 ** interface with our run-time modules as f8's. It seems that

9 ** just assign them to f8's causes some truncation by the

18 ** about the internal storage of ceratin types.

19 **

20 ** COBOL Type VAX Type

21 **

22 ** comp (scaled) i2 or i4 - Work with f8 variable.

91 /*

92 +* Procedure: IIcmptof8

93 ** Purpose: Format COBOL scaled COMP data to C f8 data.

94 ** Parameters: dbl - f8 * - COMP-2 variable.

95 ** cmpvar - char *- COMP variable.

15 <tr><td> 1 </td><td> B011 </td><td> Embedded Ada¹ </td><td> - Subclause 20.3, "&lt;embedded SQL Ada program&gt;" </td></tr>

16 <tr><td> 2 </td><td> B012 </td><td> Embedded C¹ </td><td> - Subclause 20.4, "&lt;embedded SQL C program&gt;" </td></tr>

17 <tr><td> 3 </td><td> B013 </td><td> Embedded COBOL¹ </td><td> - Subclause 20.5, "&lt;embedded SQL COBOL program&gt;" </td></tr>

18 <tr><td> 4 </td><td> B014 </td><td> Embedded Fortran¹ </td><td> - Subclause 20.6, "&lt;embedded SQL Fortran program&gt;" </td></tr>

19 <tr><td> 5 </td><td> B015 </td><td> Embedded MUMPS¹ </td><td> - Subclause 20.7, "&lt;embedded SQL MUMPS program&gt;" </td></tr>

8

9

10 package it.imolinfo.jbi4cics.typemapping.cobol;

11

12 import it.imolinfo.jbi4cics.Logger;

49 - ../src/CharClassify.h ../include/PropSet.h ../include/Accessor.h \

50 - ../include/KeyWords.h ../include/Scintilla.h ../include/SciLexer.h

51 -LexCOBOL.o: ../src/LexCOBOL.cxx ../include/Platform.h \

52 - ../include/PropSet.h ../include/Accessor.h ../include/KeyWords.h \

53 - ../include/Scintilla.h ../include/SciLexer.h ../src/StyleContext.h

266 -LexAbaqus.o LexAda.o LexAPDL.o LexAsm.o LexAsn1.o LexASY.o LexAU3.o LexAVE.o \

267 -LexBaan.o LexBash.o LexBasic.o LexBullant.o LexCaml.o LexCLW.o LexCmake.o \

268 -LexCOBOL.o LexConf.o LexCPP.o LexCrontab.o LexCsound.o LexCSS.o LexD.o \

269 -LexEiffel.o LexErlang.o LexEScript.o LexFlagship.o LexForth.o LexFortran.o \

270 -LexGAP.o LexGui4Cli.o LexHaskell.o LexHTML.o LexInno.o LexKix.o LexLisp.o \

420 -$(DIR_O)\LexCmake.obj: ..\src\LexCmake.cxx $(LEX_HEADERS)

421 -

422 -$(DIR_O)\LexCOBOL.obj: ..\src\LexCOBOL.cxx $(LEX_HEADERS)

423 -

424 -$(DIR_O)\LexConf.obj: ..\src\LexConf.cxx $(LEX_HEADERS)

101 ../src/CharClassify.h ../include/PropSet.h ../include/Accessor.h \

102 ../include/KeyWords.h ../include/Scintilla.h ../include/SciLexer.h

103 LexCOBOL.o: ../src/LexCOBOL.cxx ../include/Platform.h \

104 ../include/PropSet.h ../include/Accessor.h ../include/KeyWords.h \

105 ../include/Scintilla.h ../include/SciLexer.h ../src/StyleContext.h

251 }

252

253 .file.file_type_cobol {

254 background-image: url('./icons/file_type_cobol.svg');

1 # Yes, it's true: you can write makefiles in COBOL.

2 #

3 # Last edited: 2010-05-13 12:54:20 by piumarta on emilia-2.local

1 *HEADER,COBOL,ST140A TES00010

2 000100 IDENTIFICATION DIVISION. ST1404.2

3 000200 PROGRAM-ID. ST1404.2

9 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".ST1404.2

10 000900* * ST1404.2

11 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".ST1404.2

12 001100* * ST1404.2

13 001200**************************************************************** ST1404.2

401 040000 02 FILLER PIC X(39) VALUE SPACES. ST1404.2

402 040100 02 FILLER PIC X(42) VALUE ST1404.2

403 040200 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". ST1404.2

404 040300 02 FILLER PIC X(39) VALUE SPACES. ST1404.2

405 040400 01 CCVS-H-2A. ST1404.2

428 042700 " FOR OFFICIAL USE ONLY ". ST1404.2

429 042800 02 FILLER PIC X(58) VALUE ST1404.2

430 042900 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".ST1404.2

431 043000 02 FILLER PIC X(28) VALUE ST1404.2

432 043100 " COPYRIGHT 1985 ". ST1404.2

1 *HEADER,COBOL,ST115A,SUBPRG,ST116A

2 000100 IDENTIFICATION DIVISION. ST1164.2

3 000200 PROGRAM-ID. ST1164.2

9 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".ST1164.2

10 000900* * ST1164.2

11 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".ST1164.2

12 001100* * ST1164.2

13 001200**************************************************************** ST1164.2

1 *HEADER,COBOL,SM201A

2 000100 IDENTIFICATION DIVISION. SM2014.2

3 000200 PROGRAM-ID. SM2014.2

9 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SM2014.2

10 000900* * SM2014.2

11 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SM2014.2

12 001100* * SM2014.2

13 001200**************************************************************** SM2014.2

233 023200 02 FILLER PIC X(39) VALUE SPACES. SM2014.2

234 023300 02 FILLER PIC X(42) VALUE SM2014.2

235 023400 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". SM2014.2

236 023500 02 FILLER PIC X(39) VALUE SPACES. SM2014.2

237 023600 01 CCVS-H-2A. SM2014.2

260 025900 " FOR OFFICIAL USE ONLY ". SM2014.2

261 026000 02 FILLER PIC X(58) VALUE SM2014.2

262 026100 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SM2014.2

263 026200 02 FILLER PIC X(28) VALUE SM2014.2

264 026300 " COPYRIGHT 1985 ". SM2014.2

1 *HEADER,COBOL,SM103A

2 000100 IDENTIFICATION DIVISION. SM1034.2

3 000200 PROGRAM-ID. SM1034.2

9 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SM1034.2

10 000900* * SM1034.2

11 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SM1034.2

12 001100* * SM1034.2

13 001200**************************************************************** SM1034.2

218 021700 02 FILLER PIC X(39) VALUE SPACES. SM1034.2

219 021800 02 FILLER PIC X(42) VALUE SM1034.2

220 021900 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". SM1034.2

221 022000 02 FILLER PIC X(39) VALUE SPACES. SM1034.2

222 022100 01 CCVS-H-2A. SM1034.2

245 024400 " FOR OFFICIAL USE ONLY ". SM1034.2

246 024500 02 FILLER PIC X(58) VALUE SM1034.2

247 024600 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SM1034.2

248 024700 02 FILLER PIC X(28) VALUE SM1034.2

249 024800 " COPYRIGHT 1985 ". SM1034.2

1 *HEADER,COBOL,SM101A

2 000100 IDENTIFICATION DIVISION. SM1014.2

3 000200 PROGRAM-ID. SM1014.2

9 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".SM1014.2

10 000900* * SM1014.2

11 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SM1014.2

12 001100* * SM1014.2

13 001200* * SM1014.2

195 019400 02 FILLER PIC X(39) VALUE SPACES. SM1014.2

196 019500 02 FILLER PIC X(42) VALUE SM1014.2

197 019600 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". SM1014.2

198 019700 02 FILLER PIC X(39) VALUE SPACES. SM1014.2

199 019800 01 CCVS-H-2A. SM1014.2

222 022100 " FOR OFFICIAL USE ONLY ". SM1014.2

223 022200 02 FILLER PIC X(58) VALUE SM1014.2

224 022300 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".SM1014.2

225 022400 02 FILLER PIC X(28) VALUE SM1014.2

226 022500 " COPYRIGHT 1985 ". SM1014.2

1 *HEADER,COBOL,NC253A

2 000100 IDENTIFICATION DIVISION. NC2534.2

3 000200 PROGRAM-ID. NC2534.2

9 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2534.2

10 000900* * NC2534.2

11 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2534.2

12 001100* * NC2534.2

13 001200**************************************************************** NC2534.2

338 033700 02 FILLER PIC X(39) VALUE SPACES. NC2534.2

339 033800 02 FILLER PIC X(42) VALUE NC2534.2

340 033900 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2534.2

341 034000 02 FILLER PIC X(39) VALUE SPACES. NC2534.2

342 034100 01 CCVS-H-2A. NC2534.2

365 036400 " FOR OFFICIAL USE ONLY ". NC2534.2

366 036500 02 FILLER PIC X(58) VALUE NC2534.2

367 036600 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2534.2

368 036700 02 FILLER PIC X(28) VALUE NC2534.2

369 036800 " COPYRIGHT 1985 ". NC2534.2

1 *HEADER,COBOL,NC246A

2 000100 IDENTIFICATION DIVISION. NC2464.2

3 000200 PROGRAM-ID. NC2464.2

9 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2464.2

10 000900* * NC2464.2

11 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2464.2

12 001100* * NC2464.2

13 001200**************************************************************** NC2464.2

365 036400 02 FILLER PIC X(39) VALUE SPACES. NC2464.2

366 036500 02 FILLER PIC X(42) VALUE NC2464.2

367 036600 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2464.2

368 036700 02 FILLER PIC X(39) VALUE SPACES. NC2464.2

369 036800 01 CCVS-H-2A. NC2464.2

392 039100 " FOR OFFICIAL USE ONLY ". NC2464.2

393 039200 02 FILLER PIC X(58) VALUE NC2464.2

394 039300 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2464.2

395 039400 02 FILLER PIC X(28) VALUE NC2464.2

396 039500 " COPYRIGHT 1985 ". NC2464.2

1 *HEADER,COBOL,NC233A

2 000100 IDENTIFICATION DIVISION. NC2334.2

3 000200 PROGRAM-ID. NC2334.2

9 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2334.2

10 000900* * NC2334.2

11 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2334.2

12 001100* * NC2334.2

13 001200**************************************************************** NC2334.2

231 023000 02 FILLER PIC X(39) VALUE SPACES. NC2334.2

232 023100 02 FILLER PIC X(42) VALUE NC2334.2

233 023200 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2334.2

234 023300 02 FILLER PIC X(39) VALUE SPACES. NC2334.2

235 023400 01 CCVS-H-2A. NC2334.2

258 025700 " FOR OFFICIAL USE ONLY ". NC2334.2

259 025800 02 FILLER PIC X(58) VALUE NC2334.2

260 025900 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2334.2

261 026000 02 FILLER PIC X(28) VALUE NC2334.2

262 026100 " COPYRIGHT 1985 ". NC2334.2

1 *HEADER,COBOL,NC209A

2 000100 IDENTIFICATION DIVISION. NC2094.2

3 000200 PROGRAM-ID. NC2094.2

10 000900* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2094.2

11 001000* * NC2094.2

12 001100* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2094.2

13 001200* * NC2094.2

14 001300**************************************************************** NC2094.2

205 020400 02 FILLER PIC X(39) VALUE SPACES. NC2094.2

206 020500 02 FILLER PIC X(42) VALUE NC2094.2

207 020600 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2094.2

208 020700 02 FILLER PIC X(39) VALUE SPACES. NC2094.2

209 020800 01 CCVS-H-2A. NC2094.2

232 023100 " FOR OFFICIAL USE ONLY ". NC2094.2

233 023200 02 FILLER PIC X(58) VALUE NC2094.2

234 023300 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2094.2

235 023400 02 FILLER PIC X(28) VALUE NC2094.2

236 023500 " COPYRIGHT 1985 ". NC2094.2

1 *HEADER,COBOL,NC207A

2 000100 IDENTIFICATION DIVISION. NC2074.2

3 000200 PROGRAM-ID. NC2074.2

9 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2074.2

10 000900* * NC2074.2

11 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2074.2

12 001100* * NC2074.2

13 001200**************************************************************** NC2074.2

381 038000 02 FILLER PIC X(39) VALUE SPACES. NC2074.2

382 038100 02 FILLER PIC X(42) VALUE NC2074.2

383 038200 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2074.2

384 038300 02 FILLER PIC X(39) VALUE SPACES. NC2074.2

385 038400 01 CCVS-H-2A. NC2074.2

408 040700 " FOR OFFICIAL USE ONLY ". NC2074.2

409 040800 02 FILLER PIC X(58) VALUE NC2074.2

410 040900 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2074.2

411 041000 02 FILLER PIC X(28) VALUE NC2074.2

412 041100 " COPYRIGHT 1985 ". NC2074.2

1 *HEADER,COBOL,NC206A

2 000100 IDENTIFICATION DIVISION. NC2064.2

3 000200 PROGRAM-ID. NC2064.2

8 000700* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2064.2

9 000800* * NC2064.2

10 000900* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2064.2

11 001000* * NC2064.2

12 001100**************************************************************** NC2064.2

282 028100 02 FILLER PIC X(39) VALUE SPACES. NC2064.2

283 028200 02 FILLER PIC X(42) VALUE NC2064.2

284 028300 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2064.2

285 028400 02 FILLER PIC X(39) VALUE SPACES. NC2064.2

286 028500 01 CCVS-H-2A. NC2064.2

309 030800 " FOR OFFICIAL USE ONLY ". NC2064.2

310 030900 02 FILLER PIC X(58) VALUE NC2064.2

311 031000 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2064.2

312 031100 02 FILLER PIC X(28) VALUE NC2064.2

313 031200 " COPYRIGHT 1985 ". NC2064.2

1 *HEADER,COBOL,NC205A

2 000100 IDENTIFICATION DIVISION. NC2054.2

3 000200 PROGRAM-ID. NC2054.2

10 000900* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2054.2

11 001000* * NC2054.2

12 001100* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2054.2

13 001200* * NC2054.2

14 001300**************************************************************** NC2054.2

22 002100**************************************************************** NC2054.2

23 002200* * NC2054.2

24 002300* PROGRAM NC205A TESTS THE CONTINUATION OF COBOL WORDS, * NC2054.2

25 002400* NUMERIC AND NON-NUMERIC LITERALS AND PICTURE STRINGS USING* NC2054.2

26 002500* A HYPHEN IN THE INDICATOR AREA OF CONTINUATION LINES. * NC2054.2

207 020600 02 FILLER PIC X(39) VALUE SPACES. NC2054.2

208 020700 02 FILLER PIC X(42) VALUE NC2054.2

209 020800 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2054.2

210 020900 02 FILLER PIC X(39) VALUE SPACES. NC2054.2

211 021000 01 CCVS-H-2A. NC2054.2

1 *HEADER,COBOL,NC202A

2 000100 IDENTIFICATION DIVISION. NC2024.2

3 000200 PROGRAM-ID. NC2024.2

10 000900* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2024.2

11 001000* * NC2024.2

12 001100* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2024.2

13 001200* * NC2024.2

14 001300**************************************************************** NC2024.2

337 033600 02 FILLER PIC X(39) VALUE SPACES. NC2024.2

338 033700 02 FILLER PIC X(42) VALUE NC2024.2

339 033800 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2024.2

340 033900 02 FILLER PIC X(39) VALUE SPACES. NC2024.2

341 034000 01 CCVS-H-2A. NC2024.2

364 036300 " FOR OFFICIAL USE ONLY ". NC2024.2

365 036400 02 FILLER PIC X(58) VALUE NC2024.2

366 036500 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2024.2

367 036600 02 FILLER PIC X(28) VALUE NC2024.2

368 036700 " COPYRIGHT 1985 ". NC2024.2

1 *HEADER,COBOL,NC126A

2 000100 IDENTIFICATION DIVISION. NC1264.2

3 000200 PROGRAM-ID. NC1264.2

9 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1264.2

10 000900* * NC1264.2

11 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1264.2

12 001100* * NC1264.2

13 001200**************************************************************** NC1264.2

329 032800 02 FILLER PIC X(39) VALUE SPACES. NC1264.2

330 032900 02 FILLER PIC X(42) VALUE NC1264.2

331 033000 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC1264.2

332 033100 02 FILLER PIC X(39) VALUE SPACES. NC1264.2

333 033200 01 CCVS-H-2A. NC1264.2

356 035500 " FOR OFFICIAL USE ONLY ". NC1264.2

357 035600 02 FILLER PIC X(58) VALUE NC1264.2

358 035700 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1264.2

359 035800 02 FILLER PIC X(28) VALUE NC1264.2

360 035900 " COPYRIGHT 1985 ". NC1264.2

1 *HEADER,COBOL,NC113M

2 000100 IDENTIFICATION DIVISION. NC1134.2

3 000200 PROGRAM-ID. NC1134.2

9 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1134.2

10 000900* * NC1134.2

11 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1134.2

12 001100* * NC1134.2

13 001200**************************************************************** NC1134.2

64 006300 SPACE. NC1134.2

65 006400 02 FILLER PICTURE X(42) VALUE NC1134.2

66 006500 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM ". NC1134.2

67 006600 02 FILLER PICTURE X(35) VALUE NC1134.2

68 006700 SPACE. NC1134.2

1 *HEADER,COBOL,NC104A

2 000100 IDENTIFICATION DIVISION. NC1044.2

3 000200 PROGRAM-ID. NC1044.2

9 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1044.2

10 000900* * NC1044.2

11 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1044.2

12 001100* * NC1044.2

13 001200**************************************************************** NC1044.2

230 022900 02 FILLER PIC X(39) VALUE SPACES. NC1044.2

231 023000 02 FILLER PIC X(42) VALUE NC1044.2

232 023100 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC1044.2

233 023200 02 FILLER PIC X(39) VALUE SPACES. NC1044.2

234 023300 01 CCVS-H-2A. NC1044.2

257 025600 " FOR OFFICIAL USE ONLY ". NC1044.2

258 025700 02 FILLER PIC X(58) VALUE NC1044.2

259 025800 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1044.2

260 025900 02 FILLER PIC X(28) VALUE NC1044.2

261 026000 " COPYRIGHT 1985 ". NC1044.2

1 *HEADER,COBOL,IX106A

2 000100 IDENTIFICATION DIVISION. IX1064.2

3 000200 PROGRAM-ID. IX1064.2

9 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX1064.2

10 000900* * IX1064.2

11 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IX1064.2

12 001100* * IX1064.2

13 001200**************************************************************** IX1064.2

541 054000 02 FILLER PIC X(39) VALUE SPACES. IX1064.2

542 054100 02 FILLER PIC X(42) VALUE IX1064.2

543 054200 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". IX1064.2

544 054300 02 FILLER PIC X(39) VALUE SPACES. IX1064.2

545 054400 01 CCVS-H-2A. IX1064.2

568 056700 " FOR OFFICIAL USE ONLY ". IX1064.2

569 056800 02 FILLER PIC X(58) VALUE IX1064.2

570 056900 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IX1064.2

571 057000 02 FILLER PIC X(28) VALUE IX1064.2

572 057100 " COPYRIGHT 1985 ". IX1064.2

9 import org.junit.Test;

10

11 import io.proleap.cobol.CobolTestBase;

12 import io.proleap.cobol.asg.metamodel.CompilationUnit;

17 import io.proleap.cobol.asg.metamodel.ProgramUnit;

18 import io.proleap.cobol.asg.metamodel.data.DataDivision;

19 import io.proleap.cobol.asg.metamodel.data.datadescription.DataDescriptionEntryGroup;

24 import io.proleap.cobol.asg.runner.impl.CobolParserRunnerImpl;

25 import io.proleap.cobol.preprocessor.CobolPreprocessor.CobolSourceFormatEnum;

26

27 public class DataDescriptionValueFigurativeConstantTest extends CobolTestBase {

32 "src/test/resources/io/proleap/cobol/asg/data/workingstorage/DataDescriptionValueFigurativeConstant.cbl");

33 final Program program = new CobolParserRunnerImpl().analyzeFile(inputFile, CobolSourceFormatEnum.TANDEM);

34

35 final CompilationUnit compilationUnit = program.getCompilationUnit("DataDescriptionValueFigurativeConstant");

7 import org.junit.Test;

8

9 import io.proleap.cobol.CobolTestBase;

10 import io.proleap.cobol.asg.metamodel.CompilationUnit;

13 import io.proleap.cobol.asg.metamodel.call.Call;

14 import io.proleap.cobol.asg.metamodel.call.SpecialRegisterCall;

15 import io.proleap.cobol.asg.metamodel.procedure.ProcedureDivision;

18 import io.proleap.cobol.asg.runner.impl.CobolParserRunnerImpl;

19 import io.proleap.cobol.preprocessor.CobolPreprocessor.CobolSourceFormatEnum;

20

21 public class SpecialRegisterCallTest extends CobolTestBase {

25 final File inputFile = new File("src/test/resources/io/proleap/cobol/asg/call/SpecialRegisterCall.cbl");

26 final Program program = new CobolParserRunnerImpl().analyzeFile(inputFile, CobolSourceFormatEnum.TANDEM);

27

28 final CompilationUnit compilationUnit = program.getCompilationUnit("SpecialRegisterCall");

11 import org.antlr.v4.runtime.tree.ParseTree;

12

13 import io.proleap.cobol.CobolParser.AlphabetNameContext;

14 import io.proleap.cobol.CobolParser.AssignmentNameContext;

15 import io.proleap.cobol.CobolParser.CdNameContext;

16 import io.proleap.cobol.CobolParser.ClassNameContext;

17 import io.proleap.cobol.CobolParser.CobolWordContext;

18 import io.proleap.cobol.CobolParser.ComputerNameContext;

19 import io.proleap.cobol.CobolParser.ConditionNameContext;

20 import io.proleap.cobol.CobolParser.DataDescNameContext;

21 import io.proleap.cobol.CobolParser.DataDescriptionEntryFormat1Context;

22 import io.proleap.cobol.CobolParser.DataDescriptionEntryFormat2Context;

16 import org.slf4j.LoggerFactory;

17

18 import io.proleap.cobol.CobolParser.AcceptStatementContext;

19 import io.proleap.cobol.CobolParser.AddStatementContext;

20 import io.proleap.cobol.CobolParser.AlterProceedToContext;

21 import io.proleap.cobol.CobolParser.AlterStatementContext;

22 import io.proleap.cobol.CobolParser.AtEndPhraseContext;

23 import io.proleap.cobol.CobolParser.CallStatementContext;

24 import io.proleap.cobol.CobolParser.CancelCallContext;

25 import io.proleap.cobol.CobolParser.CancelStatementContext;

26 import io.proleap.cobol.CobolParser.CdNameContext;

27 import io.proleap.cobol.CobolParser.CloseFileContext;

14 import java.util.Map;

15

16 import io.proleap.cobol.CobolParser.PictureStringContext;

17 import io.proleap.cobol.CobolParser.ScreenDescriptionAutoClauseContext;

18 import io.proleap.cobol.CobolParser.ScreenDescriptionBackgroundColorClauseContext;

19 import io.proleap.cobol.CobolParser.ScreenDescriptionBellClauseContext;

20 import io.proleap.cobol.CobolParser.ScreenDescriptionBlankClauseContext;

21 import io.proleap.cobol.CobolParser.ScreenDescriptionBlankWhenZeroClauseContext;

22 import io.proleap.cobol.CobolParser.ScreenDescriptionBlinkClauseContext;

23 import io.proleap.cobol.CobolParser.ScreenDescriptionColumnClauseContext;

24 import io.proleap.cobol.CobolParser.ScreenDescriptionControlClauseContext;

25 import io.proleap.cobol.CobolParser.ScreenDescriptionEntryContext;

19 import io.proleap.cobol.CobolParser.ReportDescriptionContext;

20 import io.proleap.cobol.CobolParser.ReportDescriptionEntryContext;

21 import io.proleap.cobol.CobolParser.ReportGroupBlankWhenZeroClauseContext;

22 import io.proleap.cobol.CobolParser.ReportGroupColumnNumberClauseContext;

23 import io.proleap.cobol.CobolParser.ReportGroupDescriptionEntryContext;

24 import io.proleap.cobol.CobolParser.ReportGroupDescriptionEntryFormat1Context;

25 import io.proleap.cobol.CobolParser.ReportGroupDescriptionEntryFormat2Context;

26 import io.proleap.cobol.CobolParser.ReportGroupDescriptionEntryFormat3Context;

27 import io.proleap.cobol.CobolParser.ReportGroupIndicateClauseContext;

33 import io.proleap.cobol.CobolParser.ReportGroupSignClauseContext;

34 import io.proleap.cobol.CobolParser.ReportGroupSourceClauseContext;

35 import io.proleap.cobol.CobolParser.ReportGroupSumClauseContext;

15 import io.proleap.cobol.CobolParser.BlockContainsToContext;

16 import io.proleap.cobol.CobolParser.CodeSetClauseContext;

17 import io.proleap.cobol.CobolParser.DataNameContext;

18 import io.proleap.cobol.CobolParser.DataRecordsClauseContext;

19 import io.proleap.cobol.CobolParser.ExternalClauseContext;

20 import io.proleap.cobol.CobolParser.FileDescriptionEntryContext;

21 import io.proleap.cobol.CobolParser.GlobalClauseContext;

32 import io.proleap.cobol.CobolParser.RecordContainsToContext;

33 import io.proleap.cobol.CobolParser.ReportClauseContext;

34 import io.proleap.cobol.CobolParser.ReportNameContext;

35 import io.proleap.cobol.CobolParser.ValueOfClauseContext;

36 import io.proleap.cobol.CobolParser.ValuePairContext;

21 import io.proleap.cobol.CobolParser.DataBlankWhenZeroClauseContext;

22 import io.proleap.cobol.CobolParser.DataCommonOwnLocalClauseContext;

23 import io.proleap.cobol.CobolParser.DataDescriptionEntryContext;

24 import io.proleap.cobol.CobolParser.DataDescriptionEntryExecSqlContext;

25 import io.proleap.cobol.CobolParser.DataDescriptionEntryFormat1Context;

26 import io.proleap.cobol.CobolParser.DataDescriptionEntryFormat2Context;

27 import io.proleap.cobol.CobolParser.DataDescriptionEntryFormat3Context;

38 import io.proleap.cobol.CobolParser.DataSynchronizedClauseContext;

39 import io.proleap.cobol.CobolParser.DataThreadLocalClauseContext;

40 import io.proleap.cobol.CobolParser.DataTypeClauseContext;

41 import io.proleap.cobol.CobolParser.DataTypeDefClauseContext;

42 import io.proleap.cobol.CobolParser.DataUsageClauseContext;

350 ../lexlib/CharacterSet.h \

351 ../lexlib/LexerModule.h

352 $(DIR_O)/LexCOBOL.obj: \

353 ../lexers/LexCOBOL.cxx \

350 ../lexlib/CharacterSet.h \

351 ../lexlib/LexerModule.h

352 LexCOBOL.o: \

353 ../lexers/LexCOBOL.cxx \

231 lexlib/LexAccessor.h lexlib/Accessor.h lexlib/StyleContext.h \

232 lexlib/CharacterSet.h lexlib/LexerModule.h

233 win32/LexCOBOL.o: lexers/LexCOBOL.cxx include/ILexer.h include/Sci_Position.h \

234 include/Scintilla.h include/SciLexer.h lexlib/WordList.h \

235 lexlib/LexAccessor.h lexlib/Accessor.h lexlib/StyleContext.h \

870 lexlib/LexAccessor.h lexlib/Accessor.h lexlib/StyleContext.h \

871 lexlib/CharacterSet.h lexlib/LexerModule.h

872 cocoa/LexCOBOL.o: lexers/LexCOBOL.cxx include/ILexer.h include/Sci_Position.h \

873 include/Scintilla.h include/SciLexer.h lexlib/WordList.h \

874 lexlib/LexAccessor.h lexlib/Accessor.h lexlib/StyleContext.h \

20 *> Program: windowlistener.cob

21 *>

22 *> Purpose: Example GnuCOBOL program for JAPI

23 *>

24 *> Author: Laszlo Erdos - https://www.facebook.com/wortfee

41 *>------------------------------------------------------------------------------

42 *> 2014.12.24 Laszlo Erdos:

43 *> - GnuCOBOL support for JAPI added.

44 *> - windowlistener.c converted into windowlistener.cob.

45 *>******************************************************************************

8 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2534.2

9 000900* * NC2534.2

10 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2534.2

11 001100* * NC2534.2

12 001200**************************************************************** NC2534.2

337 033700 02 FILLER PIC X(39) VALUE SPACES. NC2534.2

338 033800 02 FILLER PIC X(42) VALUE NC2534.2

339 033900 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2534.2

340 034000 02 FILLER PIC X(39) VALUE SPACES. NC2534.2

341 034100 01 CCVS-H-2A. NC2534.2

364 036400 " FOR OFFICIAL USE ONLY ". NC2534.2

365 036500 02 FILLER PIC X(58) VALUE NC2534.2

366 036600 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2534.2

367 036700 02 FILLER PIC X(28) VALUE NC2534.2

368 036800 " COPYRIGHT 1985 ". NC2534.2

8 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2334.2

9 000900* * NC2334.2

10 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2334.2

11 001100* * NC2334.2

12 001200**************************************************************** NC2334.2

230 023000 02 FILLER PIC X(39) VALUE SPACES. NC2334.2

231 023100 02 FILLER PIC X(42) VALUE NC2334.2

232 023200 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2334.2

233 023300 02 FILLER PIC X(39) VALUE SPACES. NC2334.2

234 023400 01 CCVS-H-2A. NC2334.2

257 025700 " FOR OFFICIAL USE ONLY ". NC2334.2

258 025800 02 FILLER PIC X(58) VALUE NC2334.2

259 025900 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2334.2

260 026000 02 FILLER PIC X(28) VALUE NC2334.2

261 026100 " COPYRIGHT 1985 ". NC2334.2

8 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2074.2

9 000900* * NC2074.2

10 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2074.2

11 001100* * NC2074.2

12 001200**************************************************************** NC2074.2

380 038000 02 FILLER PIC X(39) VALUE SPACES. NC2074.2

381 038100 02 FILLER PIC X(42) VALUE NC2074.2

382 038200 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2074.2

383 038300 02 FILLER PIC X(39) VALUE SPACES. NC2074.2

384 038400 01 CCVS-H-2A. NC2074.2

407 040700 " FOR OFFICIAL USE ONLY ". NC2074.2

408 040800 02 FILLER PIC X(58) VALUE NC2074.2

409 040900 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2074.2

410 041000 02 FILLER PIC X(28) VALUE NC2074.2

411 041100 " COPYRIGHT 1985 ". NC2074.2

7 000700* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2064.2

8 000800* * NC2064.2

9 000900* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2064.2

10 001000* * NC2064.2

11 001100**************************************************************** NC2064.2

281 028100 02 FILLER PIC X(39) VALUE SPACES. NC2064.2

282 028200 02 FILLER PIC X(42) VALUE NC2064.2

283 028300 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2064.2

284 028400 02 FILLER PIC X(39) VALUE SPACES. NC2064.2

285 028500 01 CCVS-H-2A. NC2064.2

308 030800 " FOR OFFICIAL USE ONLY ". NC2064.2

309 030900 02 FILLER PIC X(58) VALUE NC2064.2

310 031000 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2064.2

311 031100 02 FILLER PIC X(28) VALUE NC2064.2

312 031200 " COPYRIGHT 1985 ". NC2064.2

9 000900* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2024.2

10 001000* * NC2024.2

11 001100* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2024.2

12 001200* * NC2024.2

13 001300**************************************************************** NC2024.2

336 033600 02 FILLER PIC X(39) VALUE SPACES. NC2024.2

337 033700 02 FILLER PIC X(42) VALUE NC2024.2

338 033800 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2024.2

339 033900 02 FILLER PIC X(39) VALUE SPACES. NC2024.2

340 034000 01 CCVS-H-2A. NC2024.2

363 036300 " FOR OFFICIAL USE ONLY ". NC2024.2

364 036400 02 FILLER PIC X(58) VALUE NC2024.2

365 036500 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2024.2

366 036600 02 FILLER PIC X(28) VALUE NC2024.2

367 036700 " COPYRIGHT 1985 ". NC2024.2

8 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1264.2

9 000900* * NC1264.2

10 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1264.2

11 001100* * NC1264.2

12 001200**************************************************************** NC1264.2

328 032800 02 FILLER PIC X(39) VALUE SPACES. NC1264.2

329 032900 02 FILLER PIC X(42) VALUE NC1264.2

330 033000 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC1264.2

331 033100 02 FILLER PIC X(39) VALUE SPACES. NC1264.2

332 033200 01 CCVS-H-2A. NC1264.2

355 035500 " FOR OFFICIAL USE ONLY ". NC1264.2

356 035600 02 FILLER PIC X(58) VALUE NC1264.2

357 035700 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1264.2

358 035800 02 FILLER PIC X(28) VALUE NC1264.2

359 035900 " COPYRIGHT 1985 ". NC1264.2

8 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1164.2

9 000900* * NC1164.2

10 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1164.2

11 001100* * NC1164.2

12 001200**************************************************************** NC1164.2

217 021700 02 FILLER PIC X(39) VALUE SPACES. NC1164.2

218 021800 02 FILLER PIC X(42) VALUE NC1164.2

219 021900 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC1164.2

220 022000 02 FILLER PIC X(39) VALUE SPACES. NC1164.2

221 022100 01 CCVS-H-2A. NC1164.2

244 024400 " FOR OFFICIAL USE ONLY ". NC1164.2

245 024500 02 FILLER PIC X(58) VALUE NC1164.2

246 024600 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1164.2

247 024700 02 FILLER PIC X(28) VALUE NC1164.2

248 024800 " COPYRIGHT 1985 ". NC1164.2

8 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1134.2

9 000900* * NC1134.2

10 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1134.2

11 001100* * NC1134.2

12 001200**************************************************************** NC1134.2

63 006300 SPACE. NC1134.2

64 006400 02 FILLER PICTURE X(42) VALUE NC1134.2

65 006500 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM ". NC1134.2

66 006600 02 FILLER PICTURE X(35) VALUE NC1134.2

67 006700 SPACE. NC1134.2

8 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1044.2

9 000900* * NC1044.2

10 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1044.2

11 001100* * NC1044.2

12 001200**************************************************************** NC1044.2

229 022900 02 FILLER PIC X(39) VALUE SPACES. NC1044.2

230 023000 02 FILLER PIC X(42) VALUE NC1044.2

231 023100 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC1044.2

232 023200 02 FILLER PIC X(39) VALUE SPACES. NC1044.2

233 023300 01 CCVS-H-2A. NC1044.2

256 025600 " FOR OFFICIAL USE ONLY ". NC1044.2

257 025700 02 FILLER PIC X(58) VALUE NC1044.2

258 025800 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1044.2

259 025900 02 FILLER PIC X(28) VALUE NC1044.2

260 026000 " COPYRIGHT 1985 ". NC1044.2

8 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX1064.2

9 000900* * IX1064.2

10 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IX1064.2

11 001100* * IX1064.2

12 001200**************************************************************** IX1064.2

540 054000 02 FILLER PIC X(39) VALUE SPACES. IX1064.2

541 054100 02 FILLER PIC X(42) VALUE IX1064.2

542 054200 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". IX1064.2

543 054300 02 FILLER PIC X(39) VALUE SPACES. IX1064.2

544 054400 01 CCVS-H-2A. IX1064.2

567 056700 " FOR OFFICIAL USE ONLY ". IX1064.2

568 056800 02 FILLER PIC X(58) VALUE IX1064.2

569 056900 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IX1064.2

570 057000 02 FILLER PIC X(28) VALUE IX1064.2

571 057100 " COPYRIGHT 1985 ". IX1064.2

41

42 *COPY CQOMC0WK.

43 *COPY"/distrib/appli/cristal/05200/ref/cobol/copyb/CQOMC0WK.CPY" CQOMC0WK

44 *LibFac * * * * * * * * * * * * * * * * * * * * * CQOMC0WK

45 *LibFac liberFactory GCOS to Linux Translator * CQOMC0WK

176

177 *COPY WSHWZ001.

178 *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/WSHWZ001.CPY" WSHWZ001

179 *LibFac * * * * * * * * * * * * * * * * * * * * * WSHWZ001

180 *LibFac liberFactory GCOS to Linux Translator * WSHWZ001

271 *END_OF_COPY_FILE WSHWZ001

272 *COPY WSHWZ003.

273 *COPY"/distrib/appli/cristal/05200/ref/cobol/copy/WSHWZ003.CPY" WSHWZ003

274 *LibFac * * * * * * * * * * * * * * * * * * * * * WSHWZ003

275 *LibFac liberFactory GCOS to Linux Translator * WSHWZ003

831 RESULT = (Token) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;

832 TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;

833 RESULT = t;

834 CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(169/*skipTokens*/, RESULT);

854 RESULT = (Token) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;

855 TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;

856 RESULT = t;

857 CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(169/*skipTokens*/, RESULT);

903 RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;

904 TypeCobol.Compiler.Scanner.Token s = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-4)).value;

905 TypeCobol.Compiler.Scanner.Token l = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;

925 {

926 object RESULT = null;

927 TypeCobol.Compiler.Scanner.Token s = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;

928 my_parser.Builder.StartServiceReloadCompilerStatement();

929 CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(203/*NT$28*/, RESULT);

4 //----------------------------------------------------

5

6 namespace TypeCobol.Compiler.CupParser

7 {

8

9 using TypeCobol.Compiler.CupParser.NodeBuilder;

10 using TypeCobol.Compiler.CodeElements;

16 /** C# CUP v0.1 generated parser.

17 */

18 public class TypeCobolProgramParser : TUVienna.CS_CUP.Runtime.lr_parser {

19

20 /** Default constructor. */

21 public TypeCobolProgramParser():base() {;}

22

23 /** Constructor which sets the default scanner. */

32 LOCAL void VerifyBasicArray (uchar *);

33 LOCAL void VerifyModifier (uchar *);

34 LOCAL void VerifyCobolTypeRef (uchar *);

35 LOCAL void VerifyVTShape (uchar *);

36 LOCAL void VerifyBPRelative (uchar *);

63 { OLF_FSTRING, NULL }, // ok

64 { OLF_FARRIDX, NULL }, // ok

65 { OLF_COBOL, NULL }, // ok

66 { OLF_SCALAR, NULL }, // ok

67 { OLF_NIL, NULL }, // ok

71 { OLF_METHODLIST, VerifyMethodList },

72 { OLF_VTSHAPE, VerifyVTShape },

73 { OLF_COBOLTYPEREF, VerifyCobolTypeRef },

74 { OLF_BARRAY, VerifyBasicArray },

75 { OLF_MODIFIER, VerifyModifier },

137 llscmd rpc llslicenseadd "DINOSAUR.WIN 3.1" "TestUser" 135 "Add License DINOSAUR.WIN 3.1"

138 llscmd rpc llslicenseadd "DRAW10.WIN 3.1" "TestUser" 135 "Add License DRAW10.WIN 3.1"

139 llscmd rpc llslicenseadd "COBOL500 3.1" "TestUser" 135 "Add License COBOL500 3.1"

140 llscmd rpc llslicenseadd "FORT510A.DOS 3.1" "TestUser" 145 "Add License FORT510A.DOS 3.1"

141 llscmd rpc llslicenseadd "FORTRN32.NT 3.1" "TestUser" 145 "Add License FORTRN32.NT 3.1"

137 llscmd rpc llslicenseadd "DINOSAUR.WIN 1.0" "TestUser" 5 "Add License DINOSAUR.WIN 1.0"

138 llscmd rpc llslicenseadd "DRAW10.WIN 1.0" "TestUser" 5 "Add License DRAW10.WIN 1.0"

139 llscmd rpc llslicenseadd "COBOL500 1.0" "TestUser" 5 "Add License COBOL500 1.0"

140 llscmd rpc llslicenseadd "FORT510A.DOS 1.0" "TestUser" 5 "Add License FORT510A.DOS 1.0"

141 llscmd rpc llslicenseadd "FORTRN32.NT 1.0" "TestUser" 5 "Add License FORTRN32.NT 1.0"

1 // Code generated from Cobol85Preprocessor.g4 by ANTLR 4.7.2. DO NOT EDIT.

2

3 package cobol85preprocessor // Cobol85Preprocessor

4 import (

5 "fmt"

423 "", "ADATA", "ADV", "ALIAS", "ANSI", "ANY", "APOST", "AR", "ARITH", "AUTO",

424 "AWO", "BIN", "BLOCK0", "BUF", "BUFSIZE", "BY", "CBL", "CBLCARD", "CICS",

425 "CO", "COBOL2", "COBOL3", "CODEPAGE", "COMPAT", "COMPILE", "COPY", "CP",

426 "CPP", "CPSM", "CS", "CURR", "CURRENCY", "DATA", "DATEPROC", "DBCS", "DD",

427 "DEBUG", "DECK", "DIAGTRUNC", "DLI", "DLL", "DP", "DTR", "DU", "DUMP",

481 }

482

483 func NewCobol85PreprocessorParser(input antlr.TokenStream) *Cobol85PreprocessorParser {

484 this := new(Cobol85PreprocessorParser)

518 Cobol85PreprocessorParserCO = 19

519 Cobol85PreprocessorParserCOBOL2 = 20

520 Cobol85PreprocessorParserCOBOL3 = 21

1 // Code generated from Cobol85Preprocessor.g4 by ANTLR 4.7.2. DO NOT EDIT.

2

3 package cobol85preprocessor

1 // Code generated from Cobol85.g4 by ANTLR 4.7.2. DO NOT EDIT.

2

3 package cobol85 // Cobol85

4 import (

5 "fmt"

1 // Code generated from Cobol85.g4 by ANTLR 4.7.2. DO NOT EDIT.

2

3 package cobol85 // Cobol85

4 import "github.com/antlr/antlr4/runtime/Go/antlr"

5

6 // Cobol85Listener is a complete listener for a parse tree produced by Cobol85Parser.

7 type Cobol85Listener interface {

1 // Code generated from Cobol85.g4 by ANTLR 4.7.2. DO NOT EDIT.

2

3 package cobol85

1 // Code generated from Cobol85.g4 by ANTLR 4.7.2. DO NOT EDIT.

2

3 package cobol85 // Cobol85

4 import "github.com/antlr/antlr4/runtime/Go/antlr"

5

6 // BaseCobol85Listener is a complete listener for a parse tree produced by Cobol85Parser.

7 type BaseCobol85Listener struct{}

8

9 var _ Cobol85Listener = &BaseCobol85Listener{}

10

11 // VisitTerminal is called when a terminal node is visited.

12 func (s *BaseCobol85Listener) VisitTerminal(node antlr.TerminalNode) {}

13

14 // VisitErrorNode is called when an error node is visited.

178 <KEYWORD2>charg</KEYWORD2>

179 <KEYWORD2>chargraphic</KEYWORD2>

180 <KEYWORD2>cobol</KEYWORD2>

181 <KEYWORD2>column</KEYWORD2>

182 <KEYWORD2>complex</KEYWORD2>