NetCOBOL for .NET 応用編

Size: px

Start display at page:

Download "NetCOBOL for .NET 応用編"

そうすけしんまつ
7 years ago
Views:

1 NetCOBOL for.net

2 .NET Framework NetCOBOL for.net.net Framework COBOL () () () () 54

3 55

4 Person1 Name = " " No = 101 Person Name No Person2 Name = " " No = 102 NetCOBOL for.net 56

5 Workbook Worksheet Graph Workbooks Workbook3 Workbook2 Workbook1 Worksheets Worksheet C Worksheet B Worksheet A Microsoft Excel Excel1 Workbook Workbookbook1.xls.xls Workbook ExcelWorksheet WorksheetA

B Worksheet A Microsoft Excel Excel1 Workbook

6 getset )Worksheets "get_item" USING 1 1 Worksheets "get_item" USING "A" A NetCOBOL for.net2.net Framework NetCOBOL for.net 58

7 NetCOBOL for.net.net Framework Object 59

8 1 SaveData SaveData object stringint 60

9 stringint Orange,Apple,Lemon 500,300,Lemon string Apple,Lemon,Orange int Lemonint object Orange,Apple,Lemon 500,300,Lemon object Lemon Orange,Apple,Lemon Apple,Lemon,Orange 500,300,Lemon (1) (2).NET Framework 61

10 Orange,Apple,Lemon 500,300,Lemon Tstring Tint T Lemonint Orange,Apple,Lemon Apple,Lemon,Orange TT TstringintT stringint 62

11 COBOL COBOL COBOL(3.2) COBOL COBOL COBOL CLASS-IDEND CLASS PROGRAM-IDEND PROGRAM 63

12 3.1.4 (3) 64

13 NetCOBOL for.net.net Framework.NET COBOL () (REPOSITORY) () () /() DLL IDEGUI 65

14 COBOLCOBOL COBOL NEW INVOKE MOVESET.NET VBC# 66

15 [] [] CLASSPROPERTY () REPOSITORY WindowsWeb NetCOBOL for.net 67

16 CLASS AS "" PROPERTY AS "" () ENUM ENUM 68

17 OBJECT REFERENCE NEW OBJECT REFERENCE () () INVOKE "NEW" RETURNING "NEW"NetCOBOL for.net RETURNING 69

18 70

19 INVOKE INVOKE "" [USING [USING ] [[ RETURNING ]] :: ::"" (, ) ) MOVESET () Person1 Person1GetData 2 INVOKE INVOKE Person1 "GetData" USING p1 p2 RETURNING RetCode MOVE Person1 :: "GetData" (p1, p2) TO RetCode INVOKE USING RETURNING INVOKE MOVESET 71

"GetData" USING p1 p2 RETURNING RetCode MOVE Person1 ::

20 OF OF () Person1 Person1Name(PROP-Name ) MOVE MOVE PROP-Name OF Person1 TO SET SET websession TO Session OF SELF Sessionwebsession MOVESET COBOLMOVE COBOLSET INVOKE 72

21 .Net FrameworkCOBOL(OCCURS) COBOL.Net Framework GetSetCOBOL 73

22 74

23 VB COBOL.NET Framework get () INVOKE get_ USING USING Returning SET SET TO TO :: get_ () MOVE MOVE :: get_ () TO TO set INVOKE set_ USING USING () WorkSheets Sheet Name="Sheet3" Sheet Name="Sheet2" WorkSheetSheet Item Sheet "Name=Sheet1" SET w-worksheet TO WorkSheets "get_tem" ("Sheet2") w-worksheetsheet2sheet get_set_ 75

24 PERFORM Get 76

25 .NET Framework NetCOBOL for.net.net FrameworkCOBOL COBOLCOBOL.NET.NET.NET.NET.NET Framework.NET Framework.NET.NET Framework.NET.NetCOBOL for.net COBOL COBOL(PICTURE).NET Framework 77

26 .NET.NET FrameworkCOBOL COBOL.NETCOBOL System.Int32.NET FrameworkUSAGE BINARY- LONGCOBOL 78

27 .NET FrameworkUnicode(UCS-2) WindowsJIS NetCOBOL for.net.net Framework UnicodeJIS COBOL JIS JIS SCS(ACP), RCS(SJIS) JIS JIS UCS-2 SCS(ACP), RCS(SJIS-UCS2) UTF-8 UCS-2 SCS(ACP), RCS(UTF8-UCS2) UTF-8 UTF-8 UCS-2 SCS(UTF8), RCS(UTF8-UCS2) JIS MS-DOSWindowsASCII12 UCS-2 Unicode2 UTF-8 UnicodeASII13 WindowsASCII 12 Windows NetCOBOL.NET Framework UnicodeASCII12.NET Framework.NET Framework 79

28 UCS-2 NUCS-2 UnicodeASCII1 2 3 JIS XUTF-8 80

29 NetCOBOL for.netcobol (4.4) COBOLCALL ID COBOL (LINKAGE SECTION)COBOL Form1.cob Program1.cob Sample1.cobproj Windows 81

30 82

31 NetCOBOL for.net PROGRAM-ID CLASS-ID COBOL 83

32 Form1.cob Class1.cob Sample1.cobproj Windows

33 85

34 () 86

35 .NET Framework(.NET ).NET Framework.NET NetCOBOL for.net NetCOBOL for.net.net P/INVOKE DLL WindowsAPI Windows AxImp.EXE TlbImp.EXE ActiveX TlbImp.EXE COM COBOL Start (EXE) NetCOBOL for.net.net Framework Start:System.Diagnostics.ProcessStart Windows NetCOBOLVisual C++WindowsDLL Windows API.NET FrameworkP/INVOKE NetCOBOL for.netdll P/INVOKEDLL 87

36 COMVisual Basic 6.0DLL (ActiveX DLL).NET FrameworkTlbImp.EXE.NET Framework Visual BasicPowerCOBOL ActiveXTlbImp.EXE.NET FrameworkAxImp.EXEWindows ActiveX ActiveX Windows Form System.Diagnostics.ProcessStart Process.WaitForExit NetCOBOL for.netp/invoke DLL 88

37 NetCOBOL for.net WindowsAPI DLL NetCOBOL for.net DLL CALL CALL CALLCALL 89

38 90

NetCOBOL for .NET 応用編

NetCOBOL for .NET 応用編 NetCOBOL for.net NetCOBOL for.net NetCOBOL Base Edition for.net V4.0 NetCOBOL Standard Edition for.net V4.0 NetCOBOL Enterprise Edition for.net V4.0 COBOL Windows Windows Windows NetCOBOL COBOL NetCOBOL