3.1 3.2 3.3 3.4 3.5 NetCOBOL for.net 3.6 53
.NET Framework NetCOBOL for.net.net Framework COBOL () () () () 54
55
Person1 Name = " " No = 101 Person Name No Person2 Name = " " No = 102 NetCOBOL for.net 56
Workbook Worksheet Graph Workbooks Workbook3 Workbook2 Workbook1 Worksheets Worksheet C Worksheet B Worksheet A Microsoft Excel Excel1 Workbook Workbookbook1.xls.xls Workbook ExcelWorksheet WorksheetA2009 3 57
getset )Worksheets "get_item" USING 1 1 Worksheets "get_item" USING "A" A NetCOBOL for.net2.net Framework NetCOBOL for.net 58
NetCOBOL for.net.net Framework Object 59
1 SaveData SaveData object stringint 60
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
Orange,Apple,Lemon 500,300,Lemon Tstring Tint T Lemonint Orange,Apple,Lemon Apple,Lemon,Orange TT TstringintT stringint 62
COBOL COBOL COBOL(3.2) COBOL COBOL COBOL CLASS-IDEND CLASS PROGRAM-IDEND PROGRAM 63
3.1.4 (3) 64
NetCOBOL for.net.net Framework.NET COBOL () (REPOSITORY) () () /() DLL IDEGUI 65
COBOLCOBOL COBOL NEW INVOKE MOVESET.NET VBC# 66
[] [] CLASSPROPERTY () REPOSITORY WindowsWeb NetCOBOL for.net 67
CLASS AS "" PROPERTY AS "" () ENUM ENUM 68
OBJECT REFERENCE NEW OBJECT REFERENCE () () INVOKE "NEW" RETURNING "NEW"NetCOBOL for.net RETURNING 69
70
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
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
.Net FrameworkCOBOL(OCCURS) COBOL.Net Framework 3.3.4 GetSetCOBOL 73
74
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
PERFORM Get 76
.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
.NET.NET FrameworkCOBOL COBOL.NETCOBOL System.Int32.NET FrameworkUSAGE BINARY- LONGCOBOL 78
.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
UCS-2 NUCS-2 UnicodeASCII1 2 3 JIS XUTF-8 80
NetCOBOL for.netcobol (4.4) COBOLCALL ID COBOL (LINKAGE SECTION)COBOL Form1.cob Program1.cob Sample1.cobproj Windows 81
82
NetCOBOL for.net PROGRAM-ID CLASS-ID COBOL 83
Form1.cob Class1.cob Sample1.cobproj Windows 3.6.1 84
85
() 86
.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
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
NetCOBOL for.net WindowsAPI DLL NetCOBOL for.net DLL CALL CALL CALLCALL 89
90