1. ET EXPRESS.NET 1 -WEB -.NET -MICRO FOCUS - 2. COBOL 4 -COBOL COM -COM - COM - -COBOL 3. COBOL 11 4. WEB COBOL..12 -WSDL: WEB -WSML: WEB -WSDL WSML 5.. 15
.NET.NET (Common Language Runtime) IL (Microsoft Intermidiate Language).NET Micro Focus Net Express.NET COBOL Web 1. Net Express.NET.NET.NET.NET.NET Web Windows Web.NET Web Web HTTP XML SOAP.NET Web PDA SOAP Toolkit V2.0 SOAP(Simple Object Access Protocol) Web XML SOAP Web SOAP Toolkit Web 1
COM COM COBOL.NET.NET.NET Web.NET Windows DOS Windows.NET (CLR) (MSIL) CLR CLR MSIL Net Express COBOL.NET COM COM Micro Focus.NET MSIL COBOL.NET Net Express.NET COBOL Micro Focus COBOL Micro Focus.NET COBOL.NET Micro Focus Micro Focus COBOL 2
25 COBOL COBOL Net Express CGI CORBA COM.NET Micro Focus Net Express COM.NET.NET CLR 2 l l CLR MSIL COBOL Micro Focus COBOL COBOL MSIL CPU Micro Focus Net Express CLR Micro Focus Net Express COBOL Web Micro Focus ObjectCOBOL COM 5 Net Express COBOL COM COBOL COM COBOL Net Express COM l l l COBOL COM COBOL Microsoft SOAP Toolkit COBOL Web 3
2. COBOL.NET COM.NET SDK TLBIMP COM.NET COM.NET COM Net Express COM COBOL COM COBOL COBOL COM Net Express COM Micro Focus COBOL COM COBOL COM COBOL Java COBOL COM Enterprise Java Bean Micro Focus COBOL COM Net Express COBOL COBOL COBOL COM COM.NET SDK TLBIMP TLBIMP 4
TLBIMP < > /out:< > < > DLL DLL < > DLL COM COBOL COBOL COBOL COMPUTE RETURN-VAL = INPUT-VAL * 2. 2 COM Net Express Net Express [ ] [ ] 5
COBOL cobcalc COM DLL COM COM COM [ ] [ ] [ ] 6
2 [ ] [ ] [ ] _D cobcalc _D _Dcobcalc I Icobcalc [ ] 7
8 cobcalc.cbl DLL Net Express [ ] cobcalc.cbl input-val DoubleIt COBOL IN/OUT 8
method-id. "DoubleIt". local-storage Section. *>---USER-CODE. linkage Section. 01 input-val pic x(4) comp-5. 01 return-val pic x(4) comp-5. procedure division using by reference input-val returning return-val. *>---USER-CODE. exit method. end method "DoubleIt". COMPUTE RETURN-VAL = INPUT-VAL * 2. COBOL cobcalc.dll COM DLL DLL Windows regsvr32 ( ) > regsvr32 cobcalc.dll DLL.NET Windows > tlbimp cobcalc.dll /out:cob_cobcalc.dll cob_cobcalc.dll DLL cobcalc.dll 9
cobcalc.dll Visual Basic.NET C# cobcalc.dll /reference (/r ) cob_cobcalc.dll Visual Basic.NET [ ] DLL C# using Visual Basic.NET imports cobcalc C# using cobcalc; VB.NET imports cobcalc COBOL 2 Visual Basic.NET C# Visual Basic COM COM 1 0
COBOL Visual Basic.NET C# COBOL C# Icobcalc objcobcalc; objcobcalc = (Icobcalc) new cobcalc.cobcalc(); VB.NET dim objcobcalc as Icobcalc objcobcalc = new cobcalc.cobcalc() C# Result = objcobcalc.doubleit(123); VB.NET strresult = objcobcalc.doubleit(123) 3. COBOL COBOL COBOL COBOL Windows COM REGASM REGASM.EXE Microsoft.NET Framework SDK DLL regasm managedcode.dll 1 1
Microsoft.NET Framework SDK REGSVCS COM+ 1.0 4. Web COBOL Web Web HTTP XML SOAP Web COBOL Web Microsoft SOAP Toolkit Web SOAP SOAP (Simple Object Acces Protocol) XML SOAP www.w3.org/tr/soap Microsoft SOAP Toolkit COM Microsoft IIS SOAP 2 : l l SOAP Web (WSDL) Web (WSML) COM WSDL/WSML Generator COM WSDL WSML WSDL: Web Web (WSDL) Web XML WSDL SOAP WSDL WSDL 1 2
SOAP XML SOAP SOAP WSML: Web Web (WSML) WSDL SOAP COM WSDL WSML WSDL WSML XML Microsoft SOAP Toolkit COM Web WSDL/WSML SOAP Toolkit [WSDL Generator] 2 COBOL COM WSDL WSML COM DLL : 1 3
COM Web : URL : WSDL : <message name='cobcalc.doubleit'> <part name='p0' type='xsd:int'/> </message> <message name='cobcalc.doubleitresponse'> <part name='result' type='xsd:int'/> </message> <porttype name='cobcalcsoapport'> 1 4
<operation name='doubleit' parameterorder='p0'> <input message='wsdlns:cobcalc.doubleit' /> <output message='wsdlns:cobcalc.doubleitresponse' /> </operation> </porttype> SOAP SOAP WSH VBScript : set soapclient = CreateObject("MSSOAP.SoapClient") Call soapclient.mssoapinit ("http://www.microfocus.co.jp/soaplisten/cobcalc.wsdl", "cobcalc", "cobcalcsoapport") wscript.echo soapclient.doubleit(1234) 2 COBOL COM 2468 5. COBOL.NET 1 5