VOL.24NO.1 61
IMS Transaction 3270 DataBase Transaction OS/370 IMS Traditional Transaction Web Browser Transaction Internet WWW AP IIS APache WebLogic Websphere DataBase Oracle DB2 SQL Server Web Browser WWW AP E Web Browser DataBase 62 SOFTECHS
JOB JOB DataCmunication DataBase DC DB (CSS) TCP/IP SQL RDB PC SQL GUI Web Web HTTP Internet WWW AP DB RDB ODB WWW Web HTTP VOL.24NO.1 63
64 SOFTECHS
e SCM CRM ERP EAI -commerce CORBA EJB RDB Java VB C++ HTML,XML HTTP AP WWW DB Web MQ VOL.24NO.1 65
IT C'K DB GUI 66 SOFTECHS
IDEF1X) FK FK FK FK FK index xx index yy referential integrity RDB order_table products_table customer_table UML Java Public class Order { getname () setname () } Public class Customer { getname () setname () } VOL.24NO.1 67
XML <?xml version="1.0"?> < ="100001"> <>2000/10/12</> < =""> <></> <></> <></> <></> <>112-0004</> </> < =""> <></> <></> <></> <></> <>101-0003</> </> <></> <> < ="872-AA"> <>Lawnmower</> <>1</> <>148.95</> <>Confirm this is electric</> </> < ="926-AA"> <>Baby Monitor</> <>1</> <>39.98</> <>2000/10/30</> </> </> </> XML XMLW3C <xsd:schema xmlns:xsd="http://www.w3.org/1999/xmlschema"> <xsd:annotation> <xsd:documentation> Purchase order schema for Example.com. Copyright 2000 Example.com. All rights reserved. </xsd:documentation> </xsd:annotation> <xsd:element name="" type=""/> <xsd:element name="" type="xsd:string"/> <xsd:complextype name=""> <xsd:element name= " type=""/> <xsd:element name="" type=""/> <xsd:element ref="" minoccurs="0"/> <xsd:element name="" type="items"/> <xsd:attribute name="" type="xsd:date"/> </xsd:complextype> <xsd:complextype name=""> <xsd:element name="" type="xsd:string"/> <xsd:element name="" type="xsd:string"/> <xsd:element name="" type="xsd:string"/> <xsd:element name="" type="xsd:string"/> <xsd:element name="" type="xsd:decimal"/> <xsd:attribute name="" type="xsd:nmtoken" use="fixed" value=""/> </xsd:complextype> <xsd:complextype name=""> <xsd:element name="item" minoccurs="0" maxoccurs="unbounded"> <xsd:complextype> <xsd:element name="" type="xsd:string"/> <xsd:element name=""> <xsd:simpletype base="xsd:positiveinteger"> <xsd:maxexclusive value="100"/> </xsd:simpletype> </xsd:element> 68 SOFTECHS
X A A XML XML XSLT XML XML B XML XML VOL.24NO.1 69
B A D C net net net 70 SOFTECHS
MQ RPC CORBA EJB EAI ERP VOL.24NO.1 71
COBOL IDENTIFICATION DIVISION. PROGRAM-ID. MAIN1. ENVIRINMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. IBM-390. OBJECT-COMPUTER. IBM-390. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT ORDER-FILE ASSIGN TO.. DATA DIVISION. FILESECTION. FDORDER-FILE.. 01 ORDER-REC. 03 ORDER-NO PIC X(5). 03 ORDER-DATE PIC X(8). 03 ORDER-COMPANY PIC X(8). 03. WORKING-STORAGE SECTION. PROCEDURE DIVISION. MAIN1-MAIN SECTION. MAIN. OPEN INPUT ORDER-FILE. READ ORDER-FILE.. CLOSE ORDER-FILE. STOP RUN. RDBMS Create table order( Order_no char(5), Order_date date, Order_company char(8),.. HTML SQL Select order_no,order_date, from order; 72 SOFTECHS
COBOL * IDENTIFICATION DIVISION. PROGRAM-ID. MAIN1. DATA DIVISION. WORKING-STORAGE SECTION. 01MSGPUT1PICX(1). 01MSGPUT2PICX(2). PROCEDURE DIVISION. MAIN1-MAIN SECTION. MAIN. MOVE "ON" TO MSGPUT1. MOVE "ON" TO MSGPUT2. CALL "MSGPUT" USING MSGPUT1,MSGPUT2. MOVE "ON" TO MSGPUT1. MOVE " " TO MSGPUT2. CALL "MSGPUT" USING MSGPUT1,MSGPUT2. STOP RUN. Java // class Main1{ public static void main(string args[]){ //Mymethod Msgput Mymethod = new Msgput(); // Mymethod.msgput1(); // Mymethod.msgput2(); // Mymethod.msgput1(); } } COBOL * IDENTIFICATION DIVISION. PROGRAM-ID. MSGPUT. DATA DIVISION. WORKING-STORAGE SECTION. LINKAGE SECTION. 01MSGPUT1PICX(1). 01MSGPUT2PICX(2). PROCEDURE DIVISION USING MSGPUT1,MSGPUT2. MSG-PUT-MAIN SECTION. MAIN. IFMSGPUT1="ON" THEN DISPLAY "". IFMSGPUT2="ON" THEN DISPLAY "". EXITPROGRAM. Java // public class Msgput{ void msgput1(){ System.out.println(""); } void msgput2(){ System.out.println(""); } } VOL.24NO.1 73
Java JavaVM COBOL Xxxx oooo 74 SOFTECHS
Internet VOL.24NO.1 75