MONTSUQI Ver

Transcription

1 MONTSUQI Ver

2

3 1 I MONTSUQI PL II ProcessNode III LD PL

4 COBOL COBOL COBOL API PostgreSQL Shell System A 99 A.1 dbs A.2 glserver A.3 glclient A.4 htserver A.5 mon A.6 pgserver A.7 glauth A.8 wfc A.9 aps A.10 aps A.11 dbredirector B 115 B.1 copygen B.2 copygen B.3 htcgen B.4 checkdir B.5 user B.6 monitor C 125 C C.2 LD C C

5 3 C.5 DB C C.7 HTC C C.9 Unti-news( )

6

7 I

8

9 MONTSUQI UNIX OS MONTSUQI MONTSUQI 1 2.

10 8 1 MONTSUQI COBOL, C 3. MONTSUQI MONTSUQI 4. MONTSUQI

11 9 2 MONTSUQI MONTSUQI LD (Logical Dentination) SPA (LINKAREA) LD SPAAREA LD BD UNIX MONTSUQI

12 10 2 MONTSUQI PL 1. PL MONTSUQI 2. GUI GUI PL MONTSUQI 3. MONTSUQI 4. 5.PL PL PL PL

13 LD ( ) LD LD (APplication Server, APS) LD LD SPA 1 1 SPA(Scratch Pad Area) SPA LD LD linkarea LD no 1 2. id LD

14 12 2 MONTSUQI LD 3. ld LD 4. aps LD LD LD (LD) ( ) BD (Batch Description) API MONTSUQI MONTSUQI MONTSUQI

15 MONTSUQI 1. :TCP ( ) 2. : 1 TCP 2 UNIX 1. : TCP TCP IP MONTSUQI localhost TCP ( ) 2. : UNIX UNIX UNIX 8 666

16 14 2 MONTSUQI TCP UNIX UNIX TCP # UNIX

17 MONTSUQI 1. PL glclient GUI glclient X Windows Java glclient web mon 2. PL PL PL PL PL

18 16 3 WFC glserver APS APS dbs pgserver HAKAMA dbredirector dbredirector DB DB log DB DB glclient glclient fig MONTSUQI

19 3.2 PL PL PL Presentation Layer service Presentation Layer MONTSUQI Presentetion Layer MONTSUQI PL PL MONTSUQI PL MONTSUQI PL PL PL MONTSUQI MONTSUQI MONTSUQI PL PL PL PL glserver/glclient glclient GUI glserver glserver glclient glclient glade XML htserver/mon mon CGI htserver htserver ID ID hidden cookie cookie i HTC 3.2.1glclient XML htcgen htserver mon eruby PHP

20 pgserver pgserver MONTSUQI MONTSUQI pgserver MONTSUQI PL PL PL (Presentation Layser service application) C API MONTSUQI API MONTSUQI MONTSUQI PL PL MONTSUQI API

21 MONTSUQI (termthread) 2. (mqthread) 3. (corethread) 4. (controlthread) 1. (termthread) BLOB 2. (mqthread) 3. (corethread) 1 1 LD 4. (controlthread)

22 link LD spa 4. MONTSUQI mcp MONTSUQI

23 *1 ( ) MONTSUQI LD * bind 1. C 2. OpenCOBOL *1 *2

24 dotcobol 4. Ruby 5. Exec mcp spa link scr MONTSUQI API API MONTSUQI API

25 CURRENT NEW CLOSE CHANGE BACK FORK JOIN EXIT JOIN FORK MONTSUQI MONTSUQI DBOPEN DBDISCONNECT DBSTART DBCOMMIT,,

26 MONTSUQI MONTSUQI MONTSUQI MONTSUQI ( ) MONTSUQI MONTSUQI MONTSUQI ( ) PostgreSQL PostgreSQL Shell shell System 3 MONTSUQI SQL SQL ANSI/ISO/JIS SQL *3 SQL SQL MONTSUQI SQL *3

27 MONTSUQI

28 MONTSUQI MONTSUQI MONTSUQI TCP/IP 3.6.2

29 copygen MONTSUQI COBOL COPY COPY (dotcobol ) DB (dotcobol ) DB DB DB (dotcobol ) SPA LINK MCP dbgen DB create fdw/fdd fdd daemon fdw fdd

30

31 II

32

33 MONTSUQI MONTSUQI 4.2 typedef struct { char *name; Bool fuse; void (*ExecuteProcess)(ProcessNode *); void (*StartBatch)(char *name, char *param); /* DC function */ void (*ReadyDC)(void); void (*StopDC)(void); void (*CleanUpDC)(void); /* DB function */ void (*ReadyDB)(void); void (*StopDB)(void); void (*CleanUpDB)(void); } MessageHandler; name LD BD bind

34 32 4 fuse ExecuteProcess StartBatch ReadyDC StopDC CleanUpDC ReadyDB StopDB CleanUpDB ExecureProcess ProcessNode *?? 1. mcprec dc.module StartBatch char * ASCIZ

35 ReadyDC, StopDC, CleanUpDC ReadyDC NULL StopDC NULL CleanUpDC NULL StopDC ReadyDB NULL StopDB NULL

36 CleanUpDB NULL StopDC 4.3 ProcessNode ( )

37 TCP connect dbs dbs A leftrightarrow URL encode NULL 0x01 URL encode

38 36 5 string stringe stringe 2. Connect: OK Error: version authentication 3. Schema: DB Exec: End: : :

39 DB ( DBOPEN, DBCLOSE, DBSTART, DBEND ) 4. ( ) 1 5. Exec: 0 OK 1 EOF 2 NONFATAL SQL :

40 : : 9. stringe ; : URL encode

41 DBOPEN DBDISCONNECT DBSTART DBCOMMIT ::= char varchar byte text number. varchar ::= "char" [ "(" ")" ]. char ::= "char" [ "(" ")" ]. byte ::= "byte" [ "(" byte ")" ]. number ::= "number" [ "(" [ "," ] ")" ]. ::=. byte ::=. ::=. ::=. text ::= "text". ::= "int".

42

43 III

44

45 MONTSUQI LD aps LD PL 2, 3, MONTSUQI LD PL SPA MONTSUQI MONTSUQI

46 44 6 LD LD LD LD LD PL SPA 2 SPA

47 LD C LD ( )

48 46 6 COBOL COPY ( ) MONTSUQI MONTSUQI ( CPU) SPA COBOL COPY

49 PL 6.1 PL 9000 MONTSUQI 9001 UNIX 6.1 TCP UNIX LD LD MONTSUQI LD aps 1 LD *1 LD LD LD LD LD 1 *1 CPU

50 LD commit commit Shell

51 ( ) ( ) dbredirector dbredirector 5. dbredirector 6. PostgreSQL 1 1 SQL psql

52 50 6 name demo; base "~/MONTSUQI/panda/samples"; ddir record "=/sample1"; "=/sample1"; multiplex_level aps; linkage demolink; control { port }; "#/tmp/wfc"; wfc { port ":9002"; }; ld { demo1 2; demo2; }; db_group "log" { priority 100; type "PostgreSQL"; port "other"; name "ORCA2"; redirect_port "localhost:9300"; file "orca.log"; };

53 db_group "ORCA" { type "PostgreSQL"; port "localhost"; name "ORCA"; redirect "log"; }; db_group "system" { name "system"; type "System"; }; db_group "shell" { type "Shell"; name "shell"; priority 1000; }; demo "~/MONTSUQI/panda/samples" ~ "=/sample1" \verb= base "~/MONTSUQI/panda/samples/sample1" aps aps demolink "/tmp/wfc" UNIX aps TCP 9002 localhost PL (TCP localhost 9000 ) LD 2 demo1 demo2 demo1 aps 2 ORCA,log,system shell log PostgreSQL other ORCA2 orca.log dbredirector TCP localhost 9300 ORCA PostgreSQL localhost ORCA log system System System system shell Shell Shell system

54

55 6.4 LD LD LD LD 1. LD bind ( ) 5. ( ) ?? LD LD MONTSUQI LD LD LD.ld id id id id LD

56 dotcobol OpenCOBOL C Exec Ruby 2. MONTSUQI dotcobol OpenCOBOL CSV1, CSV2, CSV3, CSVE, CSV RFC822 CGI XML MONTSUQI UTF-8 MONTSUQI iconv(3) iconv(3) 5.

57 6.4 LD 55 URL base64 CSV1, CSV2, CSV3, CSVE, CSV RFC822 CGI XML 6. : handler "OpenCOBOL" { class "OpenCOBOL"; serialize "OpenCOBOL"; coding "euc-jp"; start ""; }; handler "C" { class "C"; start ""; } handler "Exec" { class "Exec"; serialize "CGI"; coding "euc-jp"; start "%m"; }

58 bind ( ) ( PL ) *2 "" ( ) MONTSUQI copyge copygen MONTSUQI ".rec" *2 LD

59 6.4 LD ".db" DB DB LD SPA SPA LD SPA

60 58 6 name sample; handler "RubyExec" { class "Exec"; serialize "CGI"; start "/usr/bin/ruby -Ke %p/%m.rb"; coding "euc-jp"; encoding "URL"; }; handler "Ruby" { class "Ruby"; loadpath "=/sample2"; coding "euc-jp"; }; bind "" "OpenCOBOL" "SAMPLE1"; bind "list" "OpenCOBOL" "SAMPLE1"; #bind "" "RubyExec" "SAMPLE1"; #bind "list" "RubyExec" "SAMPLE1"; #bind "" "Ruby" "Sample1"; #bind "list" "Ruby" "Sample1"; arraysize 20; textsize 200; cache 5; home "=/sample2"; data { spa samplespa; window { list; }; }; db "ORCA" { adrs; }; db "shell" { shell; }; db "system" { metadb; }; LD LD sample RubyExec

61 6.4 LD 59 Exec CGI "/usr/bin/ruby -Ke %p/%m.rb" Exec exec(2) euc-jp CGI URL Ruby Ruby "=/sample2" = euc-jp OpenCOBOL SAMPLE1 OpenCOBOL list OpenCOBOL SAMPLE1 bind "=/sample2" samplespa list ORCA adrs shell shell system metadb

62 PL PL PL PL PL PL glclient V1 PL glclient V1 PL PL glclient glade XML V1 PL XML 6.1 glclient (1)

63 6.5 PL 61 <?xml version="1.0"?> <GTK-Interface> <project> <name>project2</name> <program_name>project2</program_name> <directory></directory> <source_directory>src</source_directory> <pixmaps_directory>pixmaps</pixmaps_directory> <language>c</language> <gnome_support>true</gnome_support> <gettext_support>true</gettext_support> </project> <widget> <class>gtkwindow</class> <name>list</name> <title> </title> <type>gtk_window_toplevel</type> <position>gtk_win_pos_none</position> <modal>false</modal> <allow_shrink>false</allow_shrink> <allow_grow>true</allow_grow> <auto_shrink>false</auto_shrink> <widget> <class>gtkfixed</class> <name>fixed1</name> <widget> <class>gtkentry</class> <name>key</name> <x>16</x> <y>16</y> <width>158</width> <height>22</height> <can_focus>true</can_focus> <signal> <name>changed</name> <handler>changed</handler> </signal> <editable>true</editable> <text_visible>true</text_visible> <text_max_length>32</text_max_length> <text></text> </widget> <widget> <class>gtkbutton</class> <name>button1</name> <x>192</x> <y>16</y> 6.2 (1)

64 62 6 <width>55</width> <height>22</height> <can_focus>true</can_focus> <signal> <name>clicked</name> <handler>send_event</handler> <data>search</data> </signal> <label> </label> </widget> <widget> <class>gtkclist</class> <name>clist1</name> <x>16</x> <y>48</y> <width>400</width> <height>216</height> <can_focus>true</can_focus> <signal> <name>click_column</name> <handler>send_event</handler> <data>clist</data> </signal> <columns>4</columns> <column_widths>72,86,100,80</column_widths> <selection_mode>gtk_selection_single</selection_mode> <show_titles>true</show_titles> <shadow_type>gtk_shadow_in</shadow_type> <widget> <class>gtklabel</class> <child_name>clist:title</child_name> <name>label1</name> <label> </label> <justify>gtk_justify_center</justify> <wrap>false</wrap> <xalign>0.5</xalign> <yalign>0.5</yalign> <xpad>0</xpad> <ypad>0</ypad> </widget> <widget> <class>gtklabel</class> <child_name>clist:title</child_name> <name>label2</name> <label> </label> <justify>gtk_justify_center</justify> <wrap>false</wrap> 6.3 (1 )

65 6.5 PL 63 <xalign>0.5</xalign> <yalign>0.5</yalign> <xpad>0</xpad> <ypad>0</ypad> </widget> <widget> <class>gtklabel</class> <child_name>clist:title</child_name> <name>label3</name> <label> </label> <justify>gtk_justify_center</justify> <wrap>false</wrap> <xalign>0.5</xalign> <yalign>0.5</yalign> <xpad>0</xpad> <ypad>0</ypad> </widget> <widget> <class>gtklabel</class> <child_name>clist:title</child_name> <name>label4</name> <label> </label> <justify>gtk_justify_center</justify> <wrap>false</wrap> <xalign>0.5</xalign> <yalign>0.5</yalign> <xpad>0</xpad> <ypad>0</ypad> </widget> </widget> <widget> <class>gtkbutton</class> <name>button2</name> <x>360</x> <y>272</y> <width>55</width> <height>22</height> <can_focus>true</can_focus> <signal> <name>clicked</name> <handler>send_event</handler> <data>quit</data> </signal> <label> </label> </widget> </widget> </widget> </GTK-Interface> 6.4 (1 )

66 64 6 PL <class> </class> ( ) GtkEntry, GtkLabel, GtkCList GtkFixed GtkWindow recdefgen list { fixed1 { key { value varchar(32); }; clist1 { count int; item { value0 varchar(9); value1 varchar(10); value2 varchar(12); value3 varchar(10); } [??]; select bool[??]; }; }; }; 6.5 PL (1)?? GtkCList ( )?? PL glclient PL COBOL COPY recrefgen PL?? COPY C Ruby ( ) glclient V2 PL glclient V2 PL PL PL

67 6.5 PL 65 V2 PL XML 6.6 glclient (2)

68 66 6 <widget> <class>gtkvbox</class> <name>vbox16</name> <homogeneous>false</homogeneous> <spacing>0</spacing> <widget> <class>gtklabel</class> <name>w.day[5]</name> <label>xxxxxx</label> <justify>gtk_justify_center</justify> <wrap>false</wrap> <xalign>0.5</xalign> <yalign>0.5</yalign> <xpad>0</xpad> <ypad>0</ypad> <child> <padding>0</padding> <expand>false</expand> <fill>false</fill> </child> </widget> <widget> <class>gtkhseparator</class> <name>hseparator14</name> <child> <padding>0</padding> <expand>false</expand> <fill>false</fill> </child> </widget> <widget> <class>gtkscrolledwindow</class> <name>scrolledwindow11</name> <hscrollbar_policy>gtk_policy_automatic</hscrollbar_policy> <vscrollbar_policy>gtk_policy_automatic</vscrollbar_policy> <hupdate_policy>gtk_update_continuous</hupdate_policy> <vupdate_policy>gtk_update_continuous</vupdate_policy> <child> <padding>0</padding> <expand>true</expand> <fill>true</fill> </child> <widget> <class>gtkviewport</class> <name>viewport7</name> <shadow_type>gtk_shadow_in</shadow_type> 6.7 (2)

69 6.5 PL 67 <widget> <class>gtklist</class> <name>w.apo[5]</name> <selection_mode>gtk_selection_single</selection_mode> </widget> </widget> </widget> </widget> </widget> 6.8 (2 ) GtkLabel, GtkList W.day[5], W.apo[5] W.day[0] W.day[6], W.apo[0] W.apo[6] 6.9 recgen.rb 6.10 apo GtkList?? PL V2 W { apo { count item select }[7]; day { value }[7]; } int; varchar(64)[24]; bool[24]; varchar(6); 6.9 PL (2)

70 68 6 W { apo { item count select }[7]; day { value }[7]; }; varchar(??)[??]; int; bool[??]; varchar(6); 6.10 PL (2)

71 ( ) C.3 LD MONTSUQI.bd bind ( ) name sample; arraysize 20; textsize 200; bind "SAMPLEB" "OpenCOBOL"; bind "say" "OpenCOBOL"; db "ORCA" { metadb; adrs; };

72 70 6 sample SAMPLEB OpenCOBOL say OpenCOBOL ORCA metadb adrs

73 ( ) C.4 LD name sample; arraysize 20; textsize 200; db "ORCA" { metadb; adrs; }; db "shell" { shell; }; sample ORCA metadb adrs shell shell

74 C ( SQL) MONTSUQI adrs { name char(40); tel char(13); mail { home char(64); 1 office char(64); }; toll number(5,1); weight number(5,1); address char(80)[3]; 2 tv char[], virtual; 3 }; 1. mail.home 2 address[1] address 1 3 virtual COPY

75 dbgen create MONTSUQI SQL primary { name; }; primary { name, mail.home; };, MONTSUQI SQL join MONTSUQI ( )

76 MONTSUQI PostgreSQL DBSTART DBCOMMIT DBFETCH DBUPDATE DBDELETE DBINSERT adrs { name varchar(40); tel varchar(13); mail { home varchar(64); office varchar(64); }; 6.11

77 toll number(5,1); weight number(5,1); address varchar(80)[3]; info varchar(2000); }; primary { name; }; path tel { DBSELECT { DECLARE adrs_tel_csr CURSOR FOR SELECT * WHERE tel = :tel ; }; }; path mail { DBSELECT { DECLARE adrs_mail_csr CURSOR FOR SELECT name, tel, mail.home, mail.office, toll, weight, address FROM adrs WHERE mail.home like :mail.home ORDER BY name ; }; DBFETCH { FETCH FROM adrs_mail_csr INTO :name, :tel, :mail.home, :mail.office, :toll, :weight, :address ; }; 6.12 ( )

78 76 6 }; DBCLOSECURSOR { CLOSE adrs_mail_csr; }; DBUPDATE { UPDATE adrs SET tel = :tel, weight = :weight, address = :address WHERE adrs.name = :name; }; DBINSERT { INSERT INTO adrs ( name, mail.home, mail.office, toll, weight, address ) VALUES ( :name, :mail.home, :mail.office, :toll, :weight, :address ) ; }; DBDELETE { DELETE FROM adrs WHERE adrs.name = :name ; }; 6.13 ( ) name dbgen SQL adrs tel DBSELECT

79 mail DBSELECT DBFETCH DBCLOSECURSOR DBUPDATE DBINSERT DBDELETE 6.14 virtual person { userid address_type tel_type mail_type varchar(64); int; int; int; }; name = person_name.name; yomi = person_name.yomi; zip = person_address.zip; address = person_address.address; tel = person_tel.no; mail = person_mail.address; use person_name; use person_address; use person_tel; use person_mail; path simple { operation DBSELECT { DECLARE person_simple_csr CURSOR FOR SELECT person_name.name, person_name.yomi, person_address.zip, person_address.address, person_tel.no, person_mail.address 6.14

80 78 6 }; FROM person_name, person_address, person_tel, person_mail WHERE person_name.id = :userid AND person_address.type = :address_type AND person_address.id = :userid AND person_tel.type = :tel_type AND person_tel.id = :userid AND person_mail.type = :mail_type AND person_mail.id = :userid ; }; operation DBFETCH { FETCH FROM person_simple_csr INTO :name, :yomi, :zip, :address, :tel, :mail ; }; 6.15 ( ) person person_name person_address person_tel person_mail simple DBSELECT DBFETCH name

81 person_name name yomi, zip, address, tel, mail person_photo { userid varchar(64); photo object; }; primary { userid; }; path simple { operation DBSELECT { DECLARE person_photo_simple_csr CURSOR FOR SELECT person_photo.userid, person_photo.photo FROM person_photo WHERE person_photo.userid = :userid ; }; operation DBINSERT( userid varchar(64), fname varchar(255)) { INSERT INTO person_photo ( userid, photo ) 6.16 simple DBINSERT DBINSERT person_photo DBINSERT userid fname

82 80 6 }; VALUES ( :userid, lo_import(:fname) ) ; }; operation DBDELETE( userid varchar(64)) { DELETE FROM person_photo WHERE userid = :userid ; }; 6.17 ( )

83 MONTSUQI C MONTSUQI ( ) bool byte binary char ( ) 1 varchar ( )

84 SQL varchar float 64bit IEEE int 32bit number char text object BLOB(Binary Large OBject) object id API dbcode varchar (SQL ) virtual adrs { name varchar(40); tel varchar(13); mail { home varchar(64); office varchar(64); 1 }; toll number(5,1); weight number(5,1); address varchar(80)[3]; 2 info varchar(2000); }; copygen COBOL

85 ADRS. 02 NAME PIC X(40). 02 TEL PIC X(13). 02 MAIL. 03 HOME PIC X(64). 03 OFFICE PIC X(64). 02 TOLL PIC S9(4)V9(1). 02 WEIGHT PIC S9(4)V9(1). 02 ADDRESS PIC X(80) OCCURS 3 TIMES. 02 INFO PIC X(2000). MONTSUQI COBOL 1 C value = GetItemLongName(adrs,"mail.office"); 2 3 value = GetItemLongName(adrs,"address[2]"); C API C

86

87 85 7 COBOL MONTSUQI COBOL 7.2 COBOL COBOL mcp spa COBOL bool X(1) T F byte(n) X(n) binary X(n) char(n) X(n) varchar(n) X(n) float X(8) int S9(9) USAGE BINARY endian number(m,n) S9(m-m)V9(n) text X(n) n textsize object X(8) dbcode X(n) [n] OCCURS n

88 86 7 COBOL link scr ( ) 7.1 COPY LINKAGE SECTION. COPY MCPAREA. COPY SPAAREA. COPY LINKAREA. COPY SCRAREA. ************************************************************************** PROCEDURE DIVISION USING MCPAREA SPAAREA LINKAREA SCRAREA MCPAREA MCP-WIDGET, MCP-EVENT, MCP-STATUS MCP-STATUS LINK PUTG MCP-WIDGET MCP-EVENT MCP-WIDGET MCP-EVENT MCP-EVENT MCP-STATUS 7.2 PERFORM

89 LINKAGE SECTION. COPY MCPAREA. COPY SPAAREA. COPY LINKAREA. COPY SCRAREA. ************************************************************************** PROCEDURE DIVISION USING MCPAREA SPAAREA LINKAREA SCRAREA. 000-MAIN SECTION. EVALUATE MCP-STATUS ALSO MCP-EVENT WHEN LINK ALSO ANY PERFORM 010-INIT WHEN PUTG ALSO OpenCalendar PERFORM 210-OPEN-CALENDAR WHEN PUTG ALSO CloseCalendar PERFORM 220-CLOSE-CALENDAR WHEN PUTG ALSO PutData PERFORM 230-PUT-DATA WHEN PUTG ALSO Left PERFORM 240-CLICK-LEFT WHEN PUTG ALSO Right PERFORM 250-CLICK-RIGHT WHEN OTHER PERFORM 290-OTHER END-EVALUATE. * EXIT PROGRAM. 7.2 COBOL COPY MCPAREA LINKAREA ( ) SPAAREA SCRAREA LD COPY LINKAREA linkage SPAAREA data spa SCAAREA data window copygen copygen B.1 MCPAREA MCPAREA MONTSUQI

90 88 7 COBOL MCPAREA $ copygen -mcp SPAAREA COPY spa { current { user varchar(64); group varchar(64); year number(4); month number(2); day number(2); hour number(2); min number(2); }; selected { user varchar(64); cdate int; }; new bool; keyl { cdate int; }[100]; keylcount int; keyw { wday int; cdate int; }[100]; keywcount int; grouplist varchar(64)[100]; }; 7.3 $ copygen -name SPAAREA -prefix SPA- <SPA > copygen COPY OpenCOBOL SPAAREA LD LD

91 SPAAREA. 02 SPA-CURRENT. 03 SPA-USER PIC X(64). 03 SPA-GROUP PIC X(64). 03 SPA-YEAR PIC S9(4). 03 SPA-MONTH PIC S9(2). 03 SPA-DAY PIC S9(2). 03 SPA-HOUR PIC S9(2). 03 SPA-MIN PIC S9(2). 02 SPA-SELECTED. 03 SPA-USER PIC X(64). 03 SPA-CDATE PIC S9(9) BINARY. 02 SPA-NEW PIC X. 02 SPA-KEYL OCCURS 100 TIMES. 03 SPA-CDATE PIC S9(9) BINARY. 02 SPA-KEYLCOUNT PIC S9(9) BINARY. 02 SPA-KEYW OCCURS 100 TIMES. 03 SPA-WDAY PIC S9(9) BINARY. 03 SPA-CDATE PIC S9(9) BINARY. 02 SPA-KEYWCOUNT PIC S9(9) BINARY. 02 SPA-GROUPLIST PIC X(64) OCCURS 100 TIMES. 7.4 SPAAREA SPAAREA LD + SP A LINKAREA COPY link { linktext }; char(200); 7.5 LINKAREA $ copygen -linkage -ld <LD >

92 90 7 COBOL 01 LINKAREA. 02 LINKDATA-REDEFINE. 03 FILLER PIC X(217). 02 SCHEDULE REDEFINES LINKDATA-REDEFINE. 04 LINKTEXT PIC X(200). 7.6 LINKAREA LINKAREA 1 LD arraysize, textsize LD LD LINKAREA SCRAREA LD data spa samplespa; window list; ; ; list COPY list fixed1 key value varchar(30); ; clist1 count int; item value1 char(12); value2 char(12); value3 char(12); value4 char(12); [20]; select bool[20]; ; ; ; 7.7 $ copygen -screen -name SCRAREA -wprefix -ld <LD > SCRAREA SPAAREA LD LD SCRAREA SPAAREA LD + SCR

93 SCRAREA. 02 SCREENDATA. 03 LIST. 04 LIST-FIXED1. 05 LIST-KEY. 06 LIST-VALUE PIC X(30). 05 LIST-CLIST1. 06 LIST-COUNT PIC S9(9) BINARY. 06 LIST-ITEM OCCURS 20 TIMES. 07 LIST-VALUE1 PIC X(12). 07 LIST-VALUE2 PIC X(12). 07 LIST-VALUE3 PIC X(12). 07 LIST-VALUE4 PIC X(12). 06 LIST-SELECT PIC X OCCURS 20 TIMES. 7.8 SCRAREA SCRAREA glclient V1 LD COBOL OF SCRAREA MONTSUQI COBOL OCCURS LD $ copygen -screen 2

94 92 7 COBOL $ copygen -screen < > LD window PATH COBOL LD COPY $ copygen -dbpath -ld <LD > LD COPY 7.4 COBOL API OpenCOBOL MCPSUB MONTSUQI MCPAREA MCPSUB MCPSUB MCP-PATH 3. MCP-FUNC 4. MCPSUB 5. MCP-RC MCPSUB CALL MCPSUB USING MCPAREA < > COBOL MCP-RC S9(9) BINARY

95 7.4 COBOL API MCP-RC MCPSUB MCPSUB PUTWINDOW 1. MCP-FUNC (PUTWINDOW) 2. MCP-PUTYPE 3. MCP-WINDOW 4. MCPSUB 5. MCP-RC PUTWINDOW - MCP-PUTTYPE MCP-WINDOW 3.1

96

97 MONTSUQI DB group 8.2 PostgreSQL PostgreSQL libpq TCP/IP DB group DBFETCH ( ) < > + _ + < > + _ + "csr" DBFETCH selection DBUPDATE DBDELETE DBINSERT DBFETCH DBSELECT DBSELECT

98 PostgreSQL PostgreSQL SQL (FETCH ) INTO :*

99 8.3 Shell Shell shell aps Shel /bin/sh shell

100 System DBSELECT DBFETCH DBSELECT DBFETCH PL host

101 99 A A.1 dbs dbs - MONTSUQI dbs <OPTIONS> <DBD > dbs MONTSUQI -port back 5 -base base -dir./directory -record -dir -ddir DB -dir -dbhost -dir -dbport -dir -db -dir -dbuser -dir

102 100 A -dbpass -dir -auth URL glauth://localhost:8001 glauth localhost nocheck dbredirector -noredirect dbredirector dbs sample & pgserver dbslib.rb, DBIO dbs

103 A.2 glserver 101 A.2 glserver glserver - GUI glserver <OPTIONS> glserver glclient -port back 5 -screen -record -auth URL glauth://localhost:8001 glauth localhost ssl glclient SSL SSL SSL -key, -cert, -CApath, -CAfile, -verifypeer SSL -key SSL pem ( ) -cert pem -key -cert -CApath CA CA -CAfile CA CA -CApath -CAfile CA -verifypeer -panda wfc localhost:9000

104 102 A glserver & glserver glserver glclient SSL ( ) SSL (-verifypeer ) glauth

105 A.3 glclient 103 A.3 glclient glclient - GUI glclient <OPTIONS> glclient glserver GUI -port glserver localost:8000 -cache cache -style gltermrc -user glserver login USER -pass glserver login -v1 V1 -v2 V2 -mlog -ssl glclient SSL SSL SSL -key, -cert, -CApath, -CAfile, -verifypeer SSL -key SSL pem ( ) -cert pem -key -cert -CApath CA CA -CAfile CA CA -CApath -CAfile

106 104 A CA -verifypeer glserver : MONTSUQI panda:<ld > glclient -user ogochan -pass "ain@lkad" panda:sample glclient ogochan panda sample glserver

107 A.4 htserver 105 A.4 htserver htserver - web htserver <OPTIONS> htserver mon web browser -port back 5 -record -expire ( ) 300 -panda wfc localhost:9000 htserver & htserver mon, wfc, glserver htserver web browserglclient

108 106 A A.5 mon mon - web cgi mon <OPTIONS> mon htserver web browser CGI -server localhost:8010 -screen CGI -get action GET POST -dump OFF -cookie cookie hidden HTML -command htserver./mon -command "panda:demo1" -server "tencha:8010" mon htserver tencha 8010 mon web browser htserver, wfc, glserver

109 A.6 pgserver 107 A.6 pgserver pgserver - pgserver <OPTIONS> pgserver -port back 5 -record -auth URL glauth://localhost:8001 glauth localhost panda wfc localhost:9000 pgserver & pgserver monlib.rb, PGIO pgserver

110 108 A A.7 glauth glauth - glserver glauth <OPTIONS> glauth glclient glserver -port back 5 -password./passwd glauth & MD5

111 A.8 wfc 109 A.8 wfc wfc - wfc <OPTIONS> wfc -port apsport back 5 -dir./directory -base base -record -dir -ddir LD -dir -retry wfc & aps Ver 2.6 Linux ps(1)

112 110 A A.9 aps aps - aps <OPTIONS> LD aps -wfcport -dir -base base -record -dir -lddir LD -dir -dir./directory -path OpenCOBOL COB_LIBRARY_PATH -dbhost -dir -dbport -dir -db -dir -dbuser -dir -dbpass -dir -maxtran -cache -dir -nocheck dbredirector -noredirect

113 A.9 aps 111 dbredirector aps sample & sample LD wfc wfc aps aps

114 112 A A.10 aps dbstub - dbstub <OPTIONS> < > dbstub -dir./directory -base base -record -dir -ddir -dir -parameter -path OpenCOBOL COB_LIBRARY_PATH -host -dir -port -dir -bd -db -dir -user -dir -pass -dir -nocheck dbredirector -noredirect dbredirector dbstub -bd sample SAMPLEB &

115 A.10 aps 113 sample BD SAMPLEB aps

116 114 A A.11 dbredirector dbredirector - dbredirector <OPTIONS> <DB > dbredirector -port -dir -back 5 -dir./directory -base base -record -dir -ddir -dir -host -dir -port -dir -db -dir -user -dir -pass -dir dbredirector log & log DB dbredirector monitor

117 115 B B.1 copygen copygen - COBOL COPY copygen <OPTIONS> copygen LD MONTSUQI COBOL COPY -ldw (dotcobol ) LD MCPMAIN COPY FILLER LD OFF -ldr (dotcobol ) LD MCPMAIN COPY SPA FILLER LD OFF -spa LD SPA COPY OFF -linkage LINKAGE COPY OFF -screen LD COPY OFF -db (dotcobol ) LD MCPSUB CALL 2 ( ) MCPSUB COPY OFF -dbpath LD MCPSUB CALL MCP-PATH DB COPY OFF

118 116 B -dbrec LD MCPSUB CALL 2 ( ) COPY OFF -dbcomm (dotcobol ) LD MCPSUB DB COPY OFF -mcp MCPAREA OFF -textsize ( ) 100 -arraysize ( ) 10 -prefix -wprefix -name 01 ( ) -filler FILLER OFF -noconv OFF -dir./directory -record -dir -lddir LD -dir -bddir -dir -ld LD LD -bd copygen -ctrl -spa -screen -prefix LDR- -name LDR demo

119 B.1 copygen 117 demo.ld LDR LDR- SPA copygen -filler -name SPAAREAR demospa.rec demspa.rec SPAAREA FILLER recdefgen.rb

120 118 B B.2 copygen dbgen - DB create dbgen <OPTIONS> <DB > dbgen DB create table SQL -create DB create table SQL OFF -textsize ( ) 100 -arraysize ( ) 10 -record dbgen -create sample.db sample.db

121 B.3 htcgen 119 B.3 htcgen htcgen - glade htc ruby htcgen.rb glade htcgen glade htc htc mon web HTML Gtk+ ruby htcgen.rb project1.glade > project1.htc./project1.glade project1.htc GtkCalendar

122 120 B B.4 checkdir checkdir - checkdir <OPTIONS> checkdir -ld LD OFF -bd OFF -dbg DB OFF -dir./directory -record -dir -lddir LD -dir -bddir -dir checkdir -ld -bd -dbg./directory LD,, DB

123 B.5 user 121 B.5 user gluseradd - gluserdel - glusermod - gluseradd <OPTIONS> gluserdel <OPTIONS> glusermod <OPTIONS> glserver -file./passwd -u ID gluseradd, glusermod gluseradd ID + 1 glusermod ID -g ID gluseradd, glusermod gluseradd 0 glusermod ID -o -p gluseradd ogochan -p "1wsadfghp" ogochan gluserdel ogochan -file /usr/local/etc/glpasswd /usr/local/etc/glpasswd ogochan glauth glauth SIGHUP

124 122 B B.6 monitor monitor - wfc, aps, dbredirector monitor <OPTIONS> monitor wfc, aps, dbredirector -ApsPath aps /usr/local/panda/bin/aps -wfcpath wfc /usr/local/panda/bin/wfc -RedPath dbredirector /usr/local/panda/bin/dbredirector -myhost localhost -redirector dbredirector -restart -log -dir./directory -record -dir -ddir LD -dir -q -? -? OFF monitor -ApsPath ~/panda/aps/aps -WfcPath ~/panda/wfc/wfc -dir ~/panda/samples/sample2/director

125 B.6 monitor 123 ~/panda/samples/sample2/directory wfc, aps, dbredirector -restart

126

127 125 C C.1 C.1.1 ::= [ ] [ multiplex_level ] [ ] [ ] [ LD ] [ ] [ wfc ] { DB }. ::= "name" ";". ::=. ::= [ ] [ ] [ ]. ::= "base". ::=. ::= "ddir". ::=. wfc ::= "wfc" "{" { wfc } "}" ";". wfc ::= [ aps ] [ PL ]. aps ::= "port" ";". PL ::= "termport" ";". ::=. ::= "record". ::=. multiplex_level ::= "multiplex_level". ::= "no" "ld" "id" "aps". ::= "stacksize" ";". ::=. ::= "linkage". ::=. LD ::= "ld" "{" { LD } "}" ";". LD ::= LD aps ";".

128 126 C aps ::= [ [ "*" ] aps ]. aps ::=. ::= "db_group" [ ] "{" [ ] "}" ";". ::=. ::= [ ] [ ] [ commit ] [ ] [ ]. ::= "type" ";". ::=. ::= "redirect" ";". ::= "redirect_port" ";". ::=. commit ::= "priority" ";". ::=. ::= "log" ";". ::=. ::= "name" ";". ::=. C.1.2 #include #include <> "" # ~ = base -base C.2 LD??

129 C.2 LD 127 C.2.1 LD ::= LD [ ] [ multiplex_group ] [ ] [ ] [ ] { bind } DC { DB }. LD ::= "name" LD ";". LD ::=. ::= "handler" "{" "}" ";". ::= [ ] [ ] [ ] [ ] [ ]. ::= "class" ";". ::= ( ). ::= "serialize" ";". ::= ( ). ::= "start" ";". ::=. ::= "coding" ";". ::= ( ). ::= "encoding" ";". ::= ( ). ::= "loadpath" ";". ::=. multiplex_group ::= "multiplex_group" multiplex_group ";". multiplex_group ::=. bind ::= "bind" ";". ::=. ::=. ::=. ::= "home". ::=. DC ::=. ::=. ::= "arraysize" ";". ::= "textsize" ";". ::=. ::= "cache" ";". ::=. DC ::= "data" "{" SPA window "}". SPA ::= "spa" SPA ";".

130 128 C SPA ::=. ::= "window" "{" { } "}" ";". ::= ";". ::=. DB ::= "db" [ DB ] "{" { DB } "}" ";". DB ::=. DB ::= DB ";". DB ::=. C.2.2 #include #include <> "" # base -base

131 C C.3 C.3.1 ::= [ ] [ ] [ ] { bind } { DB }. ::= "name" ";". ::=. ::= "handler" "{" "}" ";". ::= [ ] [ ] [ ] [ ] [ ]. ::= "class" ";". ::= ( ). ::= "serialize" ";". ::= ( ). ::= "start" ";". ::=. ::= "coding" ";". ::= ( ). ::= "encoding" ";". ::= ( ). ::= "loadpath" ";". ::=. ::=. ::= "arraysize" ";". ::= "textsize" ";". ::=. ::= "home". bind ::= "bind" ";". ::=. ::=. DB ::= "db" [ DB ] "{" { DB } "}" ";". DB ::=. DB ::= DB ";". DB ::=. C.3.2 #include

132 130 C #include <> "" #

133 C C.4 C.4.1 ::= [ ] [ ] { DB }. ::= "name" ";". ::=. ::=. ::= "arraysize" ";". ::= "textsize" ";". ::=. ::= "home". DB ::= "db" [ DB ] "{" { DB } "}" ";". DB ::=. DB ::= DB ";". DB ::=. C.4.2 #include #include <> "" #

134 132 C C.5 DB C.5.1 DB ::= [ ] [ ] [ ]. ::= "primary" "{" "}" ";". ::= ";". ::= ",". ::=. ::= "use" DB. DB ::=. ::= "path" [ ] "{" "}" ";". ::=. ::= { }. ::= [ "operation" ] [ ] "{" "}" ";". ::= { }. ::= ";". ::= "(" ")".?? C.5.2 ( ) : :* DB SQL * C.6 C.6.1 ::=. ::= "{" { } "}". ::= ( ). ::= { } { "," } ";". ::= "=" ";". ::=. ::= ".".

135 C.7 HTC 133 ::= [ "." ]. ::= "[" ( "" ) "]". ::=. ::= bool byte binary char varchar float number text object dbcode. bool ::= "bool". byte ::= "byte" [ "(" byte ")" ]. binary ::= "binary". char ::= "char" [ "(" ")" ]. varchar ::= "varchar" [ "(" ")" ]. float ::= "float". ::= "int". number ::= "number" [ "(" [ "," ] ")" ]. text ::= "text". object ::= "object". dbcode ::= "dbcode" [ "(" ")" ]. ::=. ::=. byte ::=. ::=. ::=. ::= [ "virtual" ] ; C.6.2 #include #include <> "" # C.7 HTC HTC web panda HTML HTML C.7.1

136 134 C ENTRY 1 COMBO FIXED TEXT BUTTON TOGGLEBUTTON ON/OFF CHECKBUTTON RADIOBUTTON CALENDAR COUNT C.7.2 ENTRY 1 name size maxlength C.7.3 COMBO name size item

137 C.7 HTC 135 count C.7.4 FIXED name size C.7.5 TEXT name rows cols C.7.6 BUTTON event face size C.7.7 TOGGLEBUTTON ON/OFF

138 136 C name label C.7.8 CHECKBUTTON name label C.7.9 RADIOBUTTON name label group C.7.10 CALENDAR year month day C.7.11 COUNT

139 C var ( ) from var 0 to var step var 1 <COUNT> \verbvar from to step </COUNT> <TABLE BORDER> <TR> <TD align="center"><fixed name="project1.vbox1.swin1.clist1.label1.value"></td> <TD align="center"><fixed name="project1.vbox1.swin1.clist1.label2.value"></td> <TD align="center"><fixed name="project1.vbox1.swin1.clist1.label3.value"></td> <COUNT var="i" from=0 to="project1.vbox1.swin1.clist1.count"> <TR> <TD align="left"><fixed name="project1.vbox1.swin1.clist1.item[#i].value1"></td> <TD align="left"><fixed name="project1.vbox1.swin1.clist1.item[#i].value2"></td> <TD align="left"><fixed name="project1.vbox1.swin1.clist1.item[#i].value3"></td> </TR> </COUNT> </TABLE> i project1.vbox1.swin1.clist1.iterm[].value # C.8 MONPS LOAD PATH glserver panda.so $libdir APS HANDLER LOAD PATH aps(dbstab ) $libdir MONDB LOAD PATH HAKAMA $libdir MONDB LOCALE locale const.h DB LOCALE

140 138 C APS LOAD PATH C $libdir APS EXEC PATH exec type $libdir COB LIBRARY PATH OpenCOBOL $libdir LD LIBRARY PATH dynamic load LOG FILE msgd LOG DATA FORMAT %Y/%M/%D/%h:%m:%s %F:%f:%L:%B msgd %F:%i:%f:%L:%B RUBYLIB Ruby C.8.1 LOG DATA FORMAT % Y (4 ) M (2 ) D (2 ) h (2 ) m (2 ) s (2 ) F f i ID L B C.9 Unti-news( ) MONTSUQI

141 C.9 Unti-news( ) 139 C.9.1 TCP aps wfc ddir lddir, bddir, dbddir 3 wfccontrol panda kill C.9.2 dbredirector dbredirector dbredirector copygen -ddir -lddir,-bddir glclient V2 glclient bind SQL SQL LD SPA multiplex level 1 LD 1 aps wfc ld aps aps wfc

142 140 C dotcobol, OpenCOBOL Shell shell MONTSUQI