ZZZZ010101	100	REPEAT0=10
ZZZZ010101	200	PROGRAM=,&X1,?_MM?_I_HELP_TABLE
ZZZZ010101	300	LEFT=&X2,?_MM?_I_MENU_TABLE,,*
ZZZZ010101	400	JOIN_ON=?_T?.SYSTEM_CALL=
ZZZZ010101	500	JOIN_ON=   ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010101	510	JOIN_ON=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3
ZZZZ010101	600	JOIN_ON=   ?_CR? AND X2.?_NE&.SYSTEM_LANG?
ZZZZ010101	700	CONTROL=HIGH
ZZZZ010101	800	$1+CONTROL=?#ZZZZZZ_ARG_BEGIN_ENTER?
ZZZZ010101	900	$1-CONTROL=BEGIN_ENTER
ZZZZ010101	1000	$10-CONTROL=0
ZZZZ010101	1100	COLOR
ZZZZ010101	1200	=IF{FIND>0}JUMP{COLOR_B};
ZZZZ010101	1300	=SET{SYSTEM_SEQ@COLOR='W'};EXIT{};
ZZZZ010101	1400	=COLOR_B:SET{SYSTEM_SEQ@COLOR='B'};
ZZZZ010101	1500	BEGIN
ZZZZ010101	1600	=SET{WN.XWHERE='1=1'};
ZZZZ010101	1700	$1+=SET{#ZZZZZZ_ARG_BEGIN_ENTER=};
ZZZZ010101	1800	$1+=SET{.SYSTEM_LANG=_LANG
ZZZZ010101	1810	$1+=   ,.SYSTEM_JOB=#ZZZZZZ_ARG_JOB,WO='O'};
ZZZZ010101	1900	$1-=SET{.SYSTEM_JOB=$SYSTEM_CALL,.SYSTEM_HELP=$SYSTEM_HELP};
ZZZZ010101	2000	=SET{.S_FIND=#FIND,WN.F=0};
ZZZZ010101	2100	*****( WN.X... 設定 OUTPUT BEGIN )*****
ZZZZ010101	2200	=SET{WN.XKEY='SYSTEM_JOB'};
ZZZZ010101	2300	*SET{WN.XWHERE='?WN.XKEY?=''?SYSTEM_JOB?'''};
ZZZZ010101	2400	=SET{WN.XOBJECT='SYSTEM_HELP'};
ZZZZ010101	2500	*****( WN.X... 設定 INPUT BEGIN )*****
ZZZZ010101	2600	=SET{WN.XTABLEI='I_SYSTEM_HELP_TABLE'};
ZZZZ010101	2700	=SET{WN.XKEYVALUE=.?WN.XKEY?};
ZZZZ010101	2800	=SET{WN.XKEYCOPY=.?WN.XKEY?};
ZZZZ010101	2900	=SET{WN.XKEYDATA=&.DATA&?WN.XKEY?};
ZZZZ010101	3000	=SET{WN.XTABLE=_M+'_'+WN.XTABLEI};
ZZZZ010101	3100	=SET{WN.XOBJECTDATA=&.DATA&?WN.XOBJECT?};
ZZZZ010101	3200	*****( WN.X... 設定 END )*****
ZZZZ010101	3300	SET={,*,80}.S_CMD{52}
ZZZZ010101	3400	JA+TITLE=操作
ZZZZ010101	3500	MESSAGE=F[IND][0] [STR],L LOC,U[P] [LOC] ,D[OWN] [LOC]
ZZZZ010101	3600	=SET{W0.D=_DATA@COUNT,W0.C=1};
ZZZZ010101	3700	=SET{WN.EQ=,WN.1=,WN.2=,WN.3=,WN.4=,WN.5=,WN.6=};
ZZZZ010101	3800	=SPLIT_CHAR{WN.}{.S_CMD}{};
ZZZZ010101	3900	****( 汎用処理 OUTPUT 1/2 BEGIN )*****
ZZZZ010101	4000	=IF{WN.1='L',='LOCATE'}JUMP{LOCATE};
ZZZZ010101	4100	=IF{WN.1='LL',='LLOCATE'}JUMP{S_END};
ZZZZ010101	4200	=IF{WN.1='FC',WN.1='FINDCLEAR'}JUMP{FC};
ZZZZ010101	4300	=IF{WN.1='MAX'}JUMP{MAX};
ZZZZ010101	4400	=IF{WN.1='MIN'}JUMP{MIN};
ZZZZ010101	4500	=IF{WN.1='U',='UP'}JUMP{UP};
ZZZZ010101	4600	=IF{WN.1='D',='DOWN'}JUMP{DOWN};
ZZZZ010101	4700	=IF{WN.1='P',='PRIOR'}JUMP{PRIOR};
ZZZZ010101	4800	=IF{WN.1='E',='END'}JUMP{END};
ZZZZ010101	4900	=IF{W0.C<=W0.D}IF{.S_CMD[W0.C;1]=' '}COMPUTE{W0.C+=1}BACK{};
ZZZZ010101	5000	=IF{.S_CMD[W0.C]='F',='FIND',='FF'}JUMP{FIND1};
ZZZZ010101	5100	=IF{.S_CMD[W0.C]='F0',='FIND0',='FF0'}JUMP{FIND10};
ZZZZ010101	5200	=IF{.S_CMD[W0.C;2]='F '}JUMP{F};
ZZZZ010101	5300	=IF{.S_CMD[W0.C;3]='F0 '}JUMP{F0};
ZZZZ010101	5400	=IF{.S_CMD[W0.C;3]='FF '}JUMP{FF};
ZZZZ010101	5500	=IF{.S_CMD[W0.C;4]='FF0 '}JUMP{FF0};
ZZZZ010101	5600	=IF{.S_CMD[W0.C;5]='FIND '}JUMP{FIND};
ZZZZ010101	5700	=IF{.S_CMD[W0.C;6]='FIND0 '}JUMP{FIND0};
ZZZZ010101	5710	*IF{.S_CMD='SPEAK'}JUMP{SPEAK};
ZZZZ010101	5800	=IF{_DATA@COUNT!=0}ERROR{COMMAND};
ZZZZ010101	5900	=SET{.SYSTEM_SEQ=.SYSTEM_SEQ_NOW};JUMP{S_END};
ZZZZ010101	6000	*****
ZZZZ010101	6100	=FC:SET{WN.F=0,.S_FIND=,#FIND=};JUMP{S_END};
ZZZZ010101	6200	=MAX:SQL_SET{WN.LOCATE}{SELECT MAX(SYSTEM_SEQ) FROM
ZZZZ010101	6300	=   ?_TABLE? WHERE ?WN.XWHERE? AND Z_CANCEL=' '};
ZZZZ010101	6400	=IF{_SQL_SET_COUNT=0}JUMP{S_END};
ZZZZ010101	6500	=SET{.SYSTEM_SEQ=WN.LOCATE};JUMP{S_END};
ZZZZ010101	6600	=MIN:SET{.SYSTEM_SEQ=0};JUMP{S_END};
ZZZZ010101	6700	=PRIOR:SET{WN.MAX_MIN='MAX'};JUMP{NEXT };
ZZZZ010101	6800	=END:SET{WN.MAX_MIN='MAX',.SYSTEM_SEQ_NOW=99999};JUMP{NEXT };
ZZZZ010101	6900	=F:    COMPUTE{W0.C+=2};JUMP{FINDX};
ZZZZ010101	7000	=F0:   COMPUTE{W0.C+=3};JUMP{FINDX0};
ZZZZ010101	7100	=FF:   COMPUTE{W0.C+=3};JUMP{FINDX};
ZZZZ010101	7200	=FF0:  COMPUTE{W0.C+=4};JUMP{FINDX0};
ZZZZ010101	7300	=FIND: COMPUTE{W0.C+=5};JUMP{FINDX};
ZZZZ010101	7400	=FIND0:COMPUTE{W0.C+=6};JUMP{FINDX0};
ZZZZ010101	7500	****( 汎用処理 1/2 END )*****
ZZZZ010101	7600	****( 汎用処理 OUTPUT 2/2 BEGIN )*****
ZZZZ010101	7700	******( LOCATE )***************************
ZZZZ010101	7800	=UP:IF{WN.2=}SET{WN.2=1000};
ZZZZ010101	7900	=IF_ERROR_COMPUTE{.SYSTEM_SEQ=.SYSTEM_SEQ_NOW-WN.2}
ZZZZ010101	7910	=                                  SET{.SYSTEM_SEQ=0};
ZZZZ010101	8000	=JUMP{S_END};
ZZZZ010101	8100	=DOWN:IF{WN.2=}SET{WN.2=1000};
ZZZZ010101	8200	=IF_ERROR_COMPUTE{.SYSTEM_SEQ=.SYSTEM_SEQ_NOW+WN.2}NOP{};
ZZZZ010101	8300	=JUMP{S_END};
ZZZZ010101	8400	=LOCATE:IF_ERROR_SET{.SYSTEM_SEQ=WN.2}
ZZZZ010101	8410	=                             ERROR{LOCATE LOC NO GOOD};
ZZZZ010101	8500	=JUMP{S_END};
ZZZZ010101	8600	******( FIND )*****************************
ZZZZ010101	8700	=FIND10:SET{.SYSTEM_SEQ=0,.SYSTEM_SEQ_NOW=0};
ZZZZ010101	8800	=FIND1:SET{.S_FIND=#FIND};
ZZZZ010101	8900	=JUMP{T1};
ZZZZ010101	9000	=FINDX0:SET{.SYSTEM_SEQ=0,.SYSTEM_SEQ_NOW=0};
ZZZZ010101	9100	=FINDX:SET{.S_FIND=.S_CMD[W0.C],WN.EQ='='};
ZZZZ010101	9200	=IF{.S_FIND=}SET{.S_FIND=#FIND};
ZZZZ010101	9300	=T1:SET{#FIND=.S_FIND};
ZZZZ010101	9400	=SET{WN.F=_FIND((WN.XOBJECT);".S_FIND")};
ZZZZ010101	9500	=SQL_SET{.S_FIND_COUNT}{SELECT COUNT(*) FROM ?_TABLE? WHERE
ZZZZ010101	9600	=   ?WN.XWHERE? AND ?WN.F?>0 AND Z_CANCEL=' '};
ZZZZ010101	9800	=IF{WN.1[1;2]!='FF'}JUMP{T4};
ZZZZ010101	9900	=SET{_DATA@WHERE=WN.F+'>0'};
ZZZZ010101	10000	=JUMP{S_END};
ZZZZ010101	10100	=T4:SET{WN.MAX_MIN='MIN'};
ZZZZ010101	10200	******( NEXT )************
ZZZZ010101	10300	=NEXT:
ZZZZ010101	10400	=SET{WGL='>'};IF{WN.MAX_MIN='MAX'}SET{WGL='<'};
ZZZZ010101	10500	=SQL_SET{WN.LOCATE}{SELECT ?WN.MAX_MIN?(SYSTEM_SEQ) FROM
ZZZZ010101	10510	=   ?_TABLE? WHERE ?WN.XWHERE? AND ?WN.F?>0 AND Z_CANCEL=' '
ZZZZ010101	10700	=   AND SYSTEM_SEQ?WGL??WN.EQ?0?.SYSTEM_SEQ_NOW?};
ZZZZ010101	10800	=IF{_SQL_SET_COUNT=0}JUMP{S_END};
ZZZZ010101	10900	=SET{.SYSTEM_SEQ=WN.LOCATE};
ZZZZ010101	11000	=JUMP{S_END};
ZZZZ010101	11010	*SPEAK:SET{W0C=3};
ZZZZ010101	11020	*IF{W0C>_SQL_COUNT}JUMP{S_END};
ZZZZ010101	11021	*S1:IF{W0C>_SQL_COUNT}JUMP{S_END};
ZZZZ010101	11023	*SET{WN=SQL_VALUE_?W0C?};
ZZZZ010101	11024	*SPEAK{?WN?};COMPUTE{W0C+=3};BACK{S1};
ZZZZ010101	11100	=.S_CMD:SET{.S_CMD=};EXIT{.S_CMD};
ZZZZ010101	11200	=S_END:SET{.S_CMD=};EXIT{};
ZZZZ010101	11300	****( 汎用処理 OUTPUT 2/2 END )*****
ZZZZ010101	11400	*SET={K?$WO?=}.?&.DATA&SYSTEM_JOB?
ZZZZ010101	11410	*$1+SET={K=}.?&.DATA&SYSTEM_JOB?
ZZZZ010101	11420	*$1-SET={K?$WO?=}.?&.DATA&SYSTEM_JOB?
ZZZZ010101	11430	SET={K?$WO?=}.?&.DATA&SYSTEM_JOB?
ZZZZ010101	11500	=SET{WN.XWHERE='?WN.XKEY?=''?.SYSTEM_JOB?'''};
ZZZZ010101	11600	*SET={K?$WO?=}$.?&.DATA&SYSTEM_LANG?
ZZZZ010101	11610	*$1+SET={K=}.?&.DATA&SYSTEM_LANG?
ZZZZ010101	11620	*$1-SET={K?$WO?=}$.?&.DATA&SYSTEM_LANG?
ZZZZ010101	11621	=IF{_DATA@OLD!=_DATA}SET{.SYSTEM_SEQ=0};
ZZZZ010101	11630	SET={K?$WO?=}$.?&.DATA&SYSTEM_LANG?
ZZZZ010101	11700	SET={O>=}.SYSTEM_SEQ{5,,+,C}
ZZZZ010101	11800	JA+TITLE=先頭番号
ZZZZ010101	11900	SET={O,*,80}.SYSTEM_SEQ_NOW{5,,+,C}
ZZZZ010101	12000	SET={O,*}.S_FIND_COUNT{9,,+}
ZZZZ010101	12100	JA+TITLE=F数
ZZZZ010101	12200	SET={O,*}.S_FIND{50}
ZZZZ010101	12300	JA+TITLE=F文字
ZZZZ010101	12400	$1-SET={O,*}.?&.SET&SYSTEM_HELP?
ZZZZ010101	12500	$10-START
ZZZZ010101	12600	$10-=IF{SYSTEM_CALL=}ERROR{CALL NOT FOUND};
ZZZZ010101	12700	DATA={C}?&.DATA&SYSTEM_CALL?
ZZZZ010101	12800	DATA={A}?&.DATA&SYSTEM_SEQ?
ZZZZ010101	12900	DATA=?&.DATA&SYSTEM_HELP?
ZZZZ010101	13000	SELECT=REPLACE(CASE WHEN SYSTEM_MENU IS NULL
ZZZZ010101	13010	SELECT=   THEN RTRIM(SYSTEM_HELP)
ZZZZ010101	13100	SELECT=   ELSE REPLACE(RTRIM(SYSTEM_HELP),
ZZZZ010101	13200	H+SELECT=   CAST(
ZZZZ010101	13300	SELECT=   '?_Q?MENU?_Q?'
ZZZZ010101	13400	H+SELECT=   AS ?_SQL_NVARCHAR?(6)),CAST(
ZZZZ010101	13500	H-SELECT=   ,
ZZZZ010101	13600	SELECT=    ?_CL?'MENU['?_C?RTRIM(SYSTEM_MENU)?_C?']'?_CR?
ZZZZ010101	13700	H+SELECT=    AS ?_SQL_NVARCHAR?(61))
ZZZZ010101	13800	SELECT=   )END,
ZZZZ010101	13900	H+SELECT=   CAST(
ZZZZ010101	14000	SELECT=   '?_Q?_IV?_Q?'
ZZZZ010101	14100	H+SELECT=   AS ?_SQL_NVARCHAR?(4)),CAST(
ZZZZ010101	14200	H-SELECT=   ,
ZZZZ010101	14300	SELECT=   '?_IV?'
ZZZZ010101	14400	H+SELECT=   AS ?_SQL_NVARCHAR?(2))
ZZZZ010101	14500	SELECT=   )
ZZZZ010101	14600	DATA={*N}FIND{9}
ZZZZ010101	14700	SELECT=?WN.F?
ZZZZ010101	14800	COPY=@ZZZZZZ_SQL
ZZZZ010101	14900	=IF{_PAGE_SW=}SET{_PAGE_SW=1,.SYSTEM_SEQ_NOW=.SYSTEM_SEQ};
ZZZZ010101	15000	REPEAT0=
ZZZZ010102	100	PROGRAM=OUTPUT,&X1,?_MM?_I_MENU_TABLE
ZZZZ010102	200	INNER=&X2,?_MM?_I_SECURITY_J_TABLE,,*
ZZZZ010102	300	JOIN_ON=X2.SYSTEM_JOB=
ZZZZ010102	400	JOIN_ON=  ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010102	410	JOIN_ON=  ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3
ZZZZ010102	500	JOIN_ON=  ?_CR? AND X2.SYSTEM_PERSON='?_PERSON?'
ZZZZ010102	600	INNER=&X3,?_MM?_I_SECURITY_G_J_TABLE,,*
ZZZZ010102	700	JOIN_ON=X3.SYSTEM_JOB=
ZZZZ010102	800	JOIN_ON=  ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010102	810	JOIN_ON=  ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010102	1000	INNER=&X4,?_MM?_I_SECURITY_G_TABLE,&X3,*
ZZZZ010102	1100	JOIN_ON=X4.?_NE&X3.SYSTEM_GROUP?
ZZZZ010102	1200	JOIN_ON=   AND X4.SYSTEM_PERSON='?_PERSON?'
ZZZZ010102	1300	SET={N,*}SET_WHERE{1}
ZZZZ010102	1400	=SET{_DATA@WHERE='?_T?.SYSTEM_LANG=''?_LANG?'''};
ZZZZ010102	1500	DATA={K}?&.DATA&SYSTEM_MENU0?
ZZZZ010102	1600	DATA={K}?&.DATA&SYSTEM_MENU1?
ZZZZ010102	1700	DATA={K}?&.DATA&SYSTEM_MENU2?
ZZZZ010102	1800	DATA={K}?&.DATA&SYSTEM_MENU3?
ZZZZ010102	1900	DATA={K}X3.?&X3.DATA&SYSTEM_GROUP?
ZZZZ010102	2000	DATA={ }?&.DATA&SYSTEM_MENU?
ZZZZ010102	2100	MINUS=%ZZZZZZ_SQL_SELECT
ZZZZ010102	2200	MINUS=%ZZZZZZ_SQL_FROM
ZZZZ010102	2300	MINUS=%ZZZZZZ_SQL_ORDER
ZZZZ010102	2400	REPEAT0=2
ZZZZ010102	2500	SQL=?_UNION$$?
ZZZZ010102	2600	REPEAT=_SELECT_COUNT
ZZZZ010102	2700	$1+5-SQL=   ?_SELECT##?
ZZZZ010102	2800	$1+5+SQL=   ,' '
ZZZZ010102	2900	$2+SQL=   ?_SELECT##?
ZZZZ010102	3000	REPEAT=
ZZZZ010102	3100	%Z_CANCEL_SELECT+SQL=   ,?_T?.Z_CANCEL
ZZZZ010102	3200	$1+REPEAT=_FROM_COUNT-2
ZZZZ010102	3300	$2+REPEAT=_FROM_COUNT
ZZZZ010102	3400	$1+SQL=   ?_FROM##?
ZZZZ010102	3500	$2+2-SQL=   ?_FROM##?
ZZZZ010102	3600	REPEAT=
ZZZZ010102	3700	COPY=@ZZZZZZ_SQL
ZZZZ010102	3800	REPEAT0=_ORDER_COUNT
ZZZZ010102	3900	SQL=?_ORDER$$?
ZZZZ010102	4000	REPEAT0=
ZZZZ010104	100	* OUTPUT
ZZZZ010106	100	* OUTPUT
ZZZZ010108	100	PROGRAM=,&X1,?_MM?_I_SECURITY_G_J_TABLE
ZZZZ010108	200	CONTROL=SCROLL
ZZZZ010108	300	INNER=&X2,?_MM?_I_SECURITY_G_ID_TABLE,,0
ZZZZ010108	400	INNER=&X3,?_MM?_I_MENU_TABLE,,*
ZZZZ010108	500	JOIN_ON=?_T?.SYSTEM_JOB=
ZZZZ010108	600	JOIN_ON=  ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010108	700	JOIN_ON=  ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010108	800	*DICTIONARY=PERMISSION
ZZZZ010108	900	BEGIN
ZZZZ010108	1000	=SET{SX3.SYSTEM_LANG=_LANG};
ZZZZ010108	1100	SET={}.?&.SET&SYSTEM_GROUP?
ZZZZ010108	1200	SET={}SX2.?&X2.SET&SYSTEM_GROUP_NAME?
ZZZZ010108	1300	SET={}.?&.SET&SYSTEM_JOB?
ZZZZ010108	1400	SET={}SX3.?&X3.SET&SYSTEM_MENU?
ZZZZ010108	1500	SET={=,}SX3.?&X3.DATA&SYSTEM_LANG?
ZZZZ010108	1600	DATA={K}?&.DATA&SYSTEM_GROUP?
ZZZZ010108	1700	DATA={C}X2.?&X2.DATA&SYSTEM_GROUP_NAME?
ZZZZ010108	1800	DATA={A}?&.DATA&SYSTEM_JOB?
ZZZZ010108	1900	DATA=   X3.?&X3.DATA&SYSTEM_MENU?
ZZZZ010108	2000	COPY=@ZZZZZZ_SQL
ZZZZ010109	100	*OUTPUT
ZZZZ010111	100	PROGRAM=,&X1,?_MM?_I_MENU_TABLE
ZZZZ010111	200	LEFT=&X2,?_MM?_I_USE_TABLE,,*
ZZZZ010111	300	JOIN_ON=X2.SYSTEM_JOB=
ZZZZ010111	400	JOIN_ON=   ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010111	500	JOIN_ON=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010111	600	CONTROL=0,?#ZZZZZZ_ARG_BEGIN_ENTER?
ZZZZ010111	700	BEGIN
ZZZZ010111	800	=SET{#ZZZZZZ_ARG_BEGIN_ENTER=};
ZZZZ010111	900	=SET{.SYSTEM_PERSON=_PERSON,.SYSTEM_LANG=_LANG};
ZZZZ010111	1000	SET={,*}.?&X2.SET&SYSTEM_PERSON?
ZZZZ010111	1100	SET={,*}ALL{4,}{,ALL}
ZZZZ010111	1200	=IF{_DATA='ALL'}EXIT{};
ZZZZ010111	1300	=SET{_DATA@WHERE='X2.?_VRE&.SYSTEM_PERSON?'
ZZZZ010111	1400	=   +' OR X2.SYSTEM_COMPUTER=''?_COMPUTER?'''
ZZZZ010111	1500	=   +' AND X2.SYSTEM_PERSON='' '''};
ZZZZ010111	1600	SET={,*}.?&X2.SET&SYSTEM_JOB?
ZZZZ010111	1700	=SET{_DATA@WHERE='?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1'
ZZZZ010111	1800	=   +' ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?'
ZZZZ010111	1900	=   +' LIKE ''?.SYSTEM_JOB?%'''};
ZZZZ010111	2000	SET={O}.?&.SET&SYSTEM_LANG?
ZZZZ010111	2100	SET=.?&.SET&SYSTEM_MENU?
ZZZZ010111	2200	SET={N}SET_WHERE{1}
ZZZZ010111	2300	=SET{_DATA@WHERE='?_T?.SYSTEM_TEST='' '''
ZZZZ010111	2400	=   +' AND ?_T?.SYSTEM_MENU1>''00'''
ZZZZ010111	2500	=   +' AND ?_T?.SYSTEM_MENU1<''41'''
ZZZZ010111	2600	=   +' AND ?_T?.SYSTEM_MENU2>''00'''
ZZZZ010111	2700	=   +' AND ?_T?.SYSTEM_MENU2<''41'''
ZZZZ010111	2800	=   +' AND ?_T?.SYSTEM_MENU3>''00'''
ZZZZ010111	2900	=   +' AND ?_T?.SYSTEM_MENU3<''41'''};
ZZZZ010111	3000	DATA={OD}X2.?&X2.DATA&SYSTEM_USE?
ZZZZ010111	3100	SELECT=SUM(CASE WHEN SYSTEM_PERSON='?PERSON?'
ZZZZ010111	3200	SELECT=   OR SYSTEM_COMPUTER='?_COMPUTER?'
ZZZZ010111	3300	SELECT=   AND SYSTEM_PERSON=' ' THEN SYSTEM_USE ELSE 0 END)
ZZZZ010111	3400	DATA={OD}X2.?&X2.DATA&SYSTEM_YEAR_MONTH?
ZZZZ010111	3500	SELECT=MAX(CASE WHEN SYSTEM_PERSON='?PERSON?' OR
ZZZZ010111	3600	SELECT= SYSTEM_COMPUTER='?_COMPUTER?' AND SYSTEM_PERSON=' '
ZZZZ010111	3700	SELECT= THEN SYSTEM_YEAR_MONTH ELSE ' ' END)
ZZZZ010111	3800	DATA={KG}X2.?&X2.DATA&SYSTEM_JOB?
ZZZZ010111	3900	SELECT=?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1?_C?SYSTEM_MENU2
ZZZZ010111	4000	SELECT=   ?_C?SYSTEM_MENU3?_CR?
ZZZZ010111	4100	DATA={G}?&.DATA&SYSTEM_MENU?
ZZZZ010111	4200	COPY=@ZZZZZZ_SQL
ZZZZ010111	4300	PROGRAM=NOT
ZZZZ010111	4400	BEGIN
ZZZZ010111	4500	=EXE_I{?$X2.SYSTEM_JOB?};
ZZZZ010113	100	*OUTPUT
ZZZZ010114	100	*OUTPUT
ZZZZ010115	100	PROGRAM=,&X1,?_MM?_CALENDAR_TABLE
ZZZZ010115	200	DATA={KG}YEAR{4}
ZZZZ010115	300	JA+TITLE=年
ZZZZ010115	400	SELECT=?_SUBSTR(.SYSTEM_DATE;1;4)?
ZZZZ010115	500	DATA={KG}MONTH{2}
ZZZZ010115	600	JA+TITLE=月
ZZZZ010115	700	SELECT=?_SUBSTR(.SYSTEM_DATE;5;2)?
ZZZZ010115	800	DATA=COUNT{3,,+}
ZZZZ010115	900	JA+TITLE=稼動日
ZZZZ010115	1000	SELECT=SUM(CASE ?_T?.SYSTEM_HOLIDAY WHEN ' ' THEN 1
ZZZZ010115	1010	SELECT=   ELSE 0 END)
ZZZZ010115	1100	DATA=SYSTEM_HOLIDAY{3,,+}
ZZZZ010115	1200	JA+TITLE=休日
ZZZZ010115	1300	SELECT=SUM(CASE ?_T?.SYSTEM_HOLIDAY WHEN ' ' THEN 0
ZZZZ010115	1310	SELECT=   ELSE 1 END)
ZZZZ010115	1400	DATA=TOTAL{3,,+}
ZZZZ010115	1500	JA+TITLE=日数
ZZZZ010115	1600	SELECT=COUNT(*)
ZZZZ010115	1700	*** 年単位集計 ***
ZZZZ010115	1800	MINUS=%ZZZZZZ_SQL_SELECT
ZZZZ010115	1900	MINUS=%ZZZZZZ_SQL_GROUP
ZZZZ010115	2000	MINUS=%ZZZZZZ_SQL_ORDER
ZZZZ010115	2100	REPEAT=_SELECT_COUNT
ZZZZ010115	2200	2-SQL=   ?_SELECT##?
ZZZZ010115	2300	2+SQL=   ,'**'
ZZZZ010115	2400	REPEAT=
ZZZZ010115	2500	COPY=@ZZZZZZ_SQL
ZZZZ010115	2600	REPEAT=_GROUP_COUNT
ZZZZ010115	2700	2-SQL=   ?_GROUP##?
ZZZZ010115	2800	REPEAT=
ZZZZ010115	2900	SQL=   UNION ALL
ZZZZ010115	3000	*** 月単位集計 ***
ZZZZ010115	3100	PLUS=%ZZZZZZ_SQL_SELECT
ZZZZ010115	3200	PLUS=%ZZZZZZ_SQL_GROUP
ZZZZ010115	3300	PLUS=%ZZZZZZ_SQL_ORDER
ZZZZ010115	3400	COPY=@ZZZZZZ_SQL
ZZZZ010117	100	*OUTPUT
ZZZZ010118	100	*OUTPUT
ZZZZ010120	100	PROGRAM=,&X1,?_MM?_I_USE_TABLE
ZZZZ010120	200	LEFT=&X2,?_MM?_I_MENU_TABLE,,*
ZZZZ010120	300	JOIN_ON=?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010120	310	JOIN_ON=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3
ZZZZ010120	400	JOIN_ON=   ?_CR?=SYSTEM_JOB AND SYSTEM_LANG='?_LANG?'
ZZZZ010120	500	CONTROL=SCROLL
ZZZZ010120	600	BEGIN
ZZZZ010120	700	=SET{.SYSTEM_PERSON=_PERSON};
ZZZZ010120	800	SET={O}.?&.SET&SYSTEM_PERSON?
ZZZZ010120	900	SET={}.?&.SET&SYSTEM_JOB?
ZZZZ010120	1000	SET={}.?&.SET&SYSTEM_COMPUTER?
ZZZZ010120	1100	SET={N}SET_WHERE{1}
ZZZZ010120	1200	=SET{_DATA@WHERE='?_T?.SYSTEM_YEAR_MONTH'
ZZZZ010120	1300	=   +'=(SELECT MAX(SYSTEM_YEAR_MONTH) FROM ?_TABLE? X2'
ZZZZ010120	1400	=   +' WHERE X2.?_NE&.SYSTEM_PERSON?'
ZZZZ010120	1500	=   +' AND X2.?_NE&SYSTEM_JOB?'
ZZZZ010120	1600	=   +' AND X2.?_NE&SYSTEM_COMPUTER?'
ZZZZ010120	1700	=   +' AND X2.Z_CANCEL=' ')'};
ZZZZ010120	1800	DATA={K}?&.DATA&SYSTEM_JOB?
ZZZZ010120	1900	DATA={K}?&.DATA&SYSTEM_COMPUTER?
ZZZZ010120	2000	DATA={K}?&.DATA&SYSTEM_YEAR_MONTH?
ZZZZ010120	2100	DATA=   ?&.DATA&SYSTEM_USE?
ZZZZ010120	2200	DATA=   X2.?&X2.DATA&SYSTEM_MENU?
ZZZZ010120	2300	COPY=@ZZZZZZ_SQL
ZZZZ010121	100	PROGRAM=NOT,&X1,?_MM?_I_SECURITY_TABLE
ZZZZ010121	200	CONTROL=1,2
ZZZZ010121	300	BEGIN
ZZZZ010121	400	=SET{SYSTEM_PERSON=#?_PP?_ARG_PERSON};
ZZZZ010121	500	=SPLIT_CHAR{WN.ETC}
ZZZZ010121	600	=  {'LIMIT_DATE,MIN_LENGTH,MIN_ALPHABET,MIN_NUMBER'}{','};
ZZZZ010121	700	REPEAT=4
ZZZZ010121	710	=PROGRAM{0,?_MM?_ETC_TABLE,WC.SYSTEM_ETC=}
ZZZZ010121	711	=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010121	720	=   ,WC.SYSTEM_KEY2='?_PP?_PASSWORD_?WN.ETC##?'}{};
ZZZZ010121	740	=IF_ERROR_SET{W0.?WN.ETC##?=WC.SYSTEM_ETC}
ZZZZ010121	750	=  ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? NOT NUMERIC};
ZZZZ010121	1100	=IF{_PROGRAM_COUNT=0}
ZZZZ010121	1200	=  ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? NOT FOUND};
ZZZZ010121	1300	REPEAT=
ZZZZ010121	1400	DATA={K}?&.DATA&SYSTEM_PERSON?
ZZZZ010121	1500	=SET{OLD.SYSTEM_PASSWORD=};
ZZZZ010121	1600	DATA={*}IN.?&.DATA&SYSTEM_PASSWORD?
ZZZZ010121	1700	JA-TITLE=OLD ?&.TITLE&SYSTEM_PASSWORD?
ZZZZ010121	1800	JA+TITLE=旧?&.TITLE&SYSTEM_PASSWORD?
ZZZZ010121	1900	=PROGRAM{0,?_TABLE?,SYSTEM_PASSWORD,SYSTEM_PERSON_NAME
ZZZZ010121	1902	=   ,SYSTEM_ERROR_COUNT,SYSTEM_PASSWORD_LIMIT_DATE
ZZZZ010121	1903	=   ,SYSTEM_PASSWORD2,SYSTEM_PASSWORD3,SYSTEM_PASSWORD4}
ZZZZ010121	1910	=   {SYSTEM_PERSON}{};
ZZZZ010121	2300	=IF{_PROGRAM_COUNT=0}ERROR{DATA NOT FOUND};
ZZZZ010121	2400	=IF{SYSTEM_ERROR_COUNT>5}
ZZZZ010121	2500	=   ERROR{?&.TITLE&SYSTEM_ERROR_COUNT?>5};
ZZZZ010121	2600	=SET{OLD.SYSTEM_PASSWORD=SYSTEM_PASSWORD};
ZZZZ010121	2700	=SET{OLD.SYSTEM_PASSWORD2=SYSTEM_PASSWORD2};
ZZZZ010121	2800	=SET{OLD.SYSTEM_PASSWORD3=SYSTEM_PASSWORD3};
ZZZZ010121	2900	=SET{OLD.SYSTEM_PASSWORD4=SYSTEM_PASSWORD4};
ZZZZ010121	3000	=SET{_PASSWORD=SYSTEM_PERSON+IN.SYSTEM_PASSWORD};
ZZZZ010121	3100	=IF{_PASSWORD=OLD.SYSTEM_PASSWORD}EXIT{};
ZZZZ010121	3200	=SQL{UPDATE ?_TABLE? SET SYSTEM_USE_DATE17=?_NOW17?
ZZZZ010121	3300	=    ,SYSTEM_USE_COMPUTER='?_COMPUTER?'
ZZZZ010121	3400	=    ,SYSTEM_ERROR_COUNT=SYSTEM_ERROR_COUNT+1
ZZZZ010121	3500	=    WHERE ?_VRE&SYSTEM_PERSON?};
ZZZZ010121	3600	=ERROR{BAD PASSWORD};
ZZZZ010121	3700	DATA={*O}?&.DATA&SYSTEM_PERSON_NAME?
ZZZZ010121	3800	DATA={O}?&.DATA&SYSTEM_ERROR_COUNT?
ZZZZ010121	3900	DATA={*}NEW1.?&.DATA&SYSTEM_PASSWORD?
ZZZZ010121	4000	JA-TITLE=NEW ?&.TITLE&SYSTEM_PASSWORD?1/2
ZZZZ010121	4100	JA+TITLE=新?&.TITLE&SYSTEM_PASSWORD?1/2
ZZZZ010121	4200	=IF{_DATA@LENGTH<W0.MIN_LENGTH}
ZZZZ010121	4300	=   ERROR{LENGTH<?W0.MIN_LENGTH?};
ZZZZ010121	4400	=SET{W0.C=1,W0.NUM=0,W0.ALP=0};
ZZZZ010121	4500	=LOOP:IF{_DATA[W0.C;1]>='A'}IF{_DATA[W0.C;1]<='Z'}
ZZZZ010121	4600	=   COMPUTE{W0.ALP+=1};
ZZZZ010121	4700	=IF{_DATA[W0.C;1]>='0'}IF{_DATA[W0.C;1]<='9'}
ZZZZ010121	4800	=   COMPUTE{W0.NUM+=1};
ZZZZ010121	4900	=IF{W0.C<_DATA@COUNT}COMPUTE{W0.C+=1}BACK{LOOP};
ZZZZ010121	5000	=IF{W0.ALP<W0.MIN_ALPHABET}
ZZZZ010121	5100	=   ERROR{[A-Z]COUNT<?W0.MIN_ALPHABET?};
ZZZZ010121	5200	=IF{W0.NUM<W0.MIN_NUMBER}
ZZZZ010121	5300	=   ERROR{[0-9]COUNT<?W0.MIN_NUMBER?};
ZZZZ010121	5400	=IF{_DATA=}ERROR{SPACE};
ZZZZ010121	5500	=SET{_PASSWORD=SYSTEM_PERSON+_DATA};
ZZZZ010121	5600	=IF{OLD.SYSTEM_PASSWORD=_PASSWORD}ERROR{OLD=NEW};
ZZZZ010121	5700	=IF{OLD.SYSTEM_PASSWORD2=_PASSWORD}ERROR{OLD2=NEW};
ZZZZ010121	5800	=IF{OLD.SYSTEM_PASSWORD3=_PASSWORD}ERROR{OLD3=NEW};
ZZZZ010121	5900	=IF{OLD.SYSTEM_PASSWORD4=_PASSWORD}ERROR{OLD4=NEW};
ZZZZ010121	6000	=SET{SYSTEM_PASSWORD2=OLD.SYSTEM_PASSWORD};
ZZZZ010121	6100	=SET{SYSTEM_PASSWORD3=OLD.SYSTEM_PASSWORD2};
ZZZZ010121	6200	=SET{SYSTEM_PASSWORD4=OLD.SYSTEM_PASSWORD3};
ZZZZ010121	6300	DATA={*}NEW2.?&.DATA&SYSTEM_PASSWORD?
ZZZZ010121	6400	JA-TITLE=NEW ?&.TITLE&SYSTEM_PASSWORD?2/2
ZZZZ010121	6500	JA+TITLE=新?&.TITLE&SYSTEM_PASSWORD?2/2
ZZZZ010121	6600	=IF{NEW1.SYSTEM_PASSWORD!=_DATA}ERROR{NEW1!=NEW2};
ZZZZ010121	6700	=SET{SYSTEM_PASSWORD=_PASSWORD};
ZZZZ010121	6800	=SET{SYSTEM_ERROR_COUNT=0};
ZZZZ010121	6900	=IF{SYSTEM_PASSWORD=OLD.SYSTEM_PASSWORD}EXIT{};
ZZZZ010121	7000	=IF{W0.LIMIT_DATE=0}
ZZZZ010121	7100	=   SET{SYSTEM_PASSWORD_LIMIT_DATE=}EXIT{};
ZZZZ010121	7200	=SQL_SET{SYSTEM_PASSWORD_LIMIT_DATE}{SELECT
ZZZZ010121	7300	=   ?_DAY_DATE((_NOW_DATE);(W0.LIMIT_DATE))? ?_FROM_DUAL?};
ZZZZ010121	7500	=IF{_SQL_SET_COUNT=0}ERROR{PASSWORD_LIMIIT_DATE};
ZZZZ010121	7600	DATA={N}?&.DATA&SYSTEM_PASSWORD?
ZZZZ010121	7700	WORK=OLD.?&.DATA&SYSTEM_PASSWORD?
ZZZZ010121	7800	DATA={O}?&.DATA&SYSTEM_PASSWORD_LIMIT_DATE?
ZZZZ010121	7900	DATA={N}?&.DATA&SYSTEM_PASSWORD2?
ZZZZ010121	8000	WORK=OLD.?&.DATA&SYSTEM_PASSWORD2?
ZZZZ010121	8100	DATA={N}?&.DATA&SYSTEM_PASSWORD3?
ZZZZ010121	8200	WORK=OLD.?&.DATA&SYSTEM_PASSWORD3?
ZZZZ010121	8300	DATA={N}?&.DATA&SYSTEM_PASSWORD4?
ZZZZ010121	8400	WORK=OLD.?&.DATA&SYSTEM_PASSWORD4?
ZZZZ010122	100	PROGRAM=OUTPUT,&X1,?_MM?_I_SECURITY_TABLE
ZZZZ010122	200	TABLE=&X2,?_MM?_I_SECURITY_J_TABLE
ZZZZ010122	300	TABLE=&X3,?_MM?_I_SECURITY_G_TABLE
ZZZZ010122	400	CONTROL=0
ZZZZ010122	500	SET={}.?&.SET&SYSTEM_PERSON?
ZZZZ010122	600	SET={}.?&.SET&SYSTEM_PERSON_NAME?
ZZZZ010122	700	SET={N}SET_WHERE{1}
ZZZZ010122	800	=SET{_DATA@WHERE='?_VLG&SYSTEM_PERSON? AND ?_T?.'
ZZZZ010122	900	=+'SYSTEM_SECURITY_MARK IN(''PERSON'',''ADMIN'',''GUEST'')'};
ZZZZ010122	1000	START
ZZZZ010122	1100	=IF{.JOB_CNT=0}IF{.GROUP_CNT=0}ERROR{ZERO};
ZZZZ010122	1200	DATA={A}?&.DATA&SYSTEM_PERSON?
ZZZZ010122	1300	DATA=?&.DATA&SYSTEM_PERSON_NAME?
ZZZZ010122	1400	DATA=.JOB_CNT{5,,+,Z}
ZZZZ010122	1500	SELECT=(SELECT COUNT(*) FROM ?&X2.TABLE? X2 WHERE
ZZZZ010122	1600	SELECT=   X2.SYSTEM_PERSON='?_PERSON?' AND X2.Z_CANCEL=' '
ZZZZ010122	1700	SELECT=   AND NOT EXISTS(
ZZZZ010122	1710	SELECT=   SELECT SYSTEM_JOB FROM ?&X2.TABLE? XX2
ZZZZ010122	1800	SELECT=   WHERE XX2.?_NE&X2.SYSTEM_JOB?
ZZZZ010122	1900	SELECT=   AND XX2.?_NE&.SYSTEM_PERSON?
ZZZZ010122	2000	SELECT=   AND XX2.Z_CANCEL=' '))
ZZZZ010122	2100	JA+TITLE=ジョブ件数
ZZZZ010122	2200	DATA=.GROUP_CNT{5,,+,Z}
ZZZZ010122	2300	SELECT=(SELECT COUNT(*) FROM ?&X3.TABLE? X3 WHERE
ZZZZ010122	2400	SELECT=   X3.SYSTEM_PERSON='?_PERSON?' AND X3.Z_CANCEL=' '
ZZZZ010122	2500	SELECT=   AND NOT EXISTS(
ZZZZ010122	2510	SELECT=   SELECT SYSTEM_GROUP FROM ?&X3.TABLE? XX3
ZZZZ010122	2600	SELECT=   WHERE XX3.?_NE&X3.SYSTEM_GROUP?
ZZZZ010122	2700	SELECT=   AND XX3.?_NE&.SYSTEM_PERSON?
ZZZZ010122	2800	SELECT   =AND XX3.Z_CANCEL=' '))
ZZZZ010122	2900	JA+TITLE=グループ件数
ZZZZ010122	3000	COPY=@ZZZZZZ_SQL
ZZZZ010122	3100	PROGRAM=OUTPUT,&X1,?_MM?_I_SECURITY_TABLE
ZZZZ010122	3200	TABLE=&X2,?_MM?_I_SECURITY_J_TABLE
ZZZZ010122	3300	TABLE=&X3,?_MM?_I_SECURITY_G_TABLE
ZZZZ010122	3400	TABLE=&X4,?_MM?_I_MENU_TABLE
ZZZZ010122	3500	TABLE=&X5,?_MM?_I_SECURITY_G_ID_TABLE
ZZZZ010122	3600	CONTROL=0
ZZZZ010122	3700	BEGIN
ZZZZ010122	3800	SET={KO}.=?&.SET&SYSTEM_PERSON?
ZZZZ010122	3900	SET={O} .=?&.SET&SYSTEM_PERSON_NAME?
ZZZZ010122	4000	START
ZZZZ010122	4100	=IF{SYSTEM_GROUP=} SET{%JOB='+'};
ZZZZ010122	4200	=IF{SYSTEM_GROUP!=}SET{%JOB='-'};
ZZZZ010122	4300	DATA={ }SYSTEM_GROUP{5}
ZZZZ010122	4400	DATA={K}X5.?&X5.DATA&SYSTEM_GROUP?
ZZZZ010122	4500	JA+TITLE=ジョブ/グループ
ZZZZ010122	4600	DATA={ }X5.?&X5.DATA&SYSTEM_GROUP_NAME?
ZZZZ010122	4700	JA+TITLE=メニュー/概要
ZZZZ010122	4800	SQL=SELECT CAST(' ' AS CHAR(5))
ZZZZ010122	4810	SQL=   ,?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010122	4900	SQL=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010122	5000	SQL=   ,SYSTEM_MENU FROM ?&X2.TABLE? X2,?&X4.TABLE? X4 WHERE
ZZZZ010122	5100	SQL=   X2.SYSTEM_JOB=?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010122	5200	SQL=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010122	5300	SQL=   AND X2.SYSTEM_PERSON='?_PERSON?'
ZZZZ010122	5400	SQL=   AND X2.Z_CANCEL=' '
ZZZZ010122	5500	SQL=   AND X4.Z_CANCEL=' '
ZZZZ010122	5600	SQL=   AND X4.SYSTEM_LANG='?_LANG?'
ZZZZ010122	5700	SQL=   AND NOT EXISTS(SELECT SYSTEM_JOB FROM ?&X2.TABLE? XX2
ZZZZ010122	5800	SQL=   WHERE XX2.?_NE&X2.SYSTEM_JOB?
ZZZZ010122	5900	SQL=   AND XX2.?_VRE&.SYSTEM_PERSON?
ZZZZ010122	6000	SQL=   AND XX2.Z_CANCEL=' ')
ZZZZ010122	6100	SQL=   UNION SELECT CAST('GROUP' AS CHAR(5))
ZZZZ010122	6200	SQL=   ,X5.SYSTEM_GROUP,X5.SYSTEM_GROUP_NAME FROM
ZZZZ010122	6300	SQL=   ?&X3.TABLE? X3,?&X5.TABLE? X5 WHERE
ZZZZ010122	6400	SQL=   X3.?_NE&X5.SYSTEM_GROUP?
ZZZZ010122	6500	SQL=   AND X3.SYSTEM_PERSON='?_PERSON?'
ZZZZ010122	6600	SQL=   AND X3.Z_CANCEL=' '
ZZZZ010122	6700	SQL=   AND X5.Z_CANCEL=' '
ZZZZ010122	6800	SQL=   AND NOT EXISTS(
ZZZZ010122	6810	SQL=   SELECT SYSTEM_GROUP FROM ?&X3.TABLE? XX3
ZZZZ010122	6900	SQL=   WHERE XX3.?_NE&X3.SYSTEM_GROUP?
ZZZZ010122	7000	SQL=   AND XX3.?_VRE&.SYSTEM_PERSON?
ZZZZ010122	7100	SQL=   AND XX3.Z_CANCEL=' ')
ZZZZ010122	7200	REPEAT=_GROUP_COUNT
ZZZZ010122	7300	SQL=   ?_GROUP##?
ZZZZ010122	7400	REPEAT=_ORDER_COUNT
ZZZZ010122	7500	SQL=   ?_ORDER##?
ZZZZ010122	7600	REPEAT=
ZZZZ010122	7700	END
ZZZZ010122	7800	=SET{_RETURN_SQL=1};
ZZZZ010122	7900	%JOB+PROGRAM=NOT,&X1,?_MM?_I_SECURITY_J_TABLE
ZZZZ010122	8000	%JOB-PROGRAM=NOT,&X1,?_MM?_I_SECURITY_G_TABLE
ZZZZ010122	8100	%JOB+TABLE=&X2,?_MM?_I_MENU_TABLE
ZZZZ010122	8200	%JOB-TABLE=&X2,?_MM?_I_SECURITY_G_ID_TABLE
ZZZZ010122	8300	*ONTROL=SQL_DBO
ZZZZ010122	8400	BEGIN
ZZZZ010122	8500	%JOB+=SET{SYSTEM_JOB=$X5.SYSTEM_GROUP
ZZZZ010122	8600	%JOB+=   ,X2.SYSTEM_MENU=$X5.SYSTEM_GROUP_NAME};
ZZZZ010122	8700	DATA={KO}=.?&.DATA&SYSTEM_PERSON?
ZZZZ010122	8800	DATA={*O}=.?$&.DATA&SYSTEM_PERSON_NAME?
ZZZZ010122	8900	%JOB+DATA={KO}?&.DATA&SYSTEM_JOB?
ZZZZ010122	9000	%JOB+DATA={*O}X2.?&X2.DATA&SYSTEM_MENU?
ZZZZ010122	9100	%JOB-DATA={KO}$X5.?&X2.DATA&SYSTEM_GROUP?
ZZZZ010122	9200	%JOB-DATA={*O}$X5.?&X2.DATA&SYSTEM_GROUP_NAME?
ZZZZ010122	9300	END
ZZZZ010122	9400	=SET{_RETURN_SQL=1};
ZZZZ010124	100	PROGRAM=,&X1,?_MM?_I_SECURITY_TABLE
ZZZZ010124	200	TABLE=&X2,?_MM?_ETC_TABLE
ZZZZ010124	300	CONTROL=SCROLL
ZZZZ010124	400	BEGIN
ZZZZ010124	500	*IF{_PERMISSION!='ZZZZ'}SET{PERMISSION=_PERMISSION};
ZZZZ010124	600	*SET{PERMISSION=PERMISSION};
ZZZZ010124	700	=SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010124	800	=SPLIT_CHAR{WN.ETC}
ZZZZ010124	900	=  {'LIMIT_DATE,MIN_LENGTH,MIN_ALPHABET,MIN_NUMBER'}{','};
ZZZZ010124	1000	REPEAT=4
ZZZZ010124	1100	=PROGRAM{0,?_MM?_ETC_TABLE,WC.SYSTEM_ETC=}
ZZZZ010124	1110	=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010124	1200	=   ,WC.SYSTEM_KEY2='?_PP?_PASSWORD_?WN.ETC##?'}{};
ZZZZ010124	1310	=IF_ERROR_SET{W0.?WN.ETC##?=WC.SYSTEM_ETC}
ZZZZ010124	1320	=  ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? NOT NUMERIC};
ZZZZ010124	1400	=IF{_PROGRAM_COUNT=0}
ZZZZ010124	1500	=  ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? NOT FOUND};
ZZZZ010124	1700	REPEAT=
ZZZZ010124	1800	SET={}.?&.SET&SYSTEM_PERSON?
ZZZZ010124	1900	SET={}.?&.SET&SYSTEM_PERSON_NAME?
ZZZZ010124	2000	*SET={}?&.SET&.SYSTEM_PERMISSION?
ZZZZ010124	2100	SET={O,*}.?&.SET&SYSTEM_PERMISSION?(MY)
ZZZZ010124	2200	START
ZZZZ010124	2300	=IF{_START=2}SET{SYSTEM_ERROR_COUNT=0}EXIT{};
ZZZZ010124	2400	=IF{_PERMISSION=SYSTEM_PERMISSION}EXIT{};
ZZZZ010124	2500	=IF{_PERMISSION!='ZZZZ'}ERROR{PERMISSION!='?_PERMISSION?'};
ZZZZ010124	2600	DATA={K}?&.DATA&SYSTEM_PERSON?
ZZZZ010124	2700	DATA={,*&X2}?&.DATA&SYSTEM_PERMISSION?
ZZZZ010124	2800	*HECK2=?WN.SYSTEM_PERMISSION?
ZZZZ010124	2900	DATA=    ?&.DATA&SYSTEM_BEGIN_DATE?
ZZZZ010124	3000	DATA=    ?&.DATA&SYSTEM_END_DATE?
ZZZZ010124	3100	=IF{SYSTEM_BEGIN_DATE=,_DATA=}EXIT{};
ZZZZ010124	3200	=IF{SYSTEM_BEGIN_DATE>_DATA}ERROR{BEGIN>END};
ZZZZ010124	3300	DATA=   ?&.DATA&SYSTEM_PERSON_NAME?
ZZZZ010124	3400	DATA=   ?&.DATA&SYSTEM_SECURITY_MARK?
ZZZZ010124	3500	DATA=   ?&.DATA&SYSTEM_ERROR_COUNT?
ZZZZ010124	3600	DATA={N}?&.DATA&SYSTEM_PASSWORD?
ZZZZ010124	3700	INPUT+DATA={*}P1.?&.DATA&SYSTEM_PASSWORD?
ZZZZ010124	3800	INPUT+=IF{_DATA=}IF{_START=2}ERROR{PASSWORD SPACE};
ZZZZ010124	3900	INPUT+=IF{_DATA=}EXIT{}; 未入力はパスワード変更せず*
ZZZZ010124	4000	INPUT+=IF{_DATA!=}IF{_DATA@LENGTH<W0.MIN_LENGTH}
ZZZZ010124	4100	INPUT+=   ERROR{LENGTH<?W0.MIN_LENGTH?};
ZZZZ010124	4200	INPUT+=SET{W0.C=1,W0.NUM=0,W0.ALP=0};
ZZZZ010124	4300	INPUT+=LOOP:IF{_DATA[W0.C;1]>='A'}IF{_DATA[W0.C;1]<='Z'}
ZZZZ010124	4400	INPUT+=   COMPUTE{W0.ALP+=1};
ZZZZ010124	4500	INPUT+=IF{_DATA[W0.C;1]>='0'}IF{_DATA[W0.C;1]<='9'}
ZZZZ010124	4600	INPUT+=   COMPUTE{W0.NUM+=1};
ZZZZ010124	4700	INPUT+=IF{W0.C<_DATA@COUNT}COMPUTE{W0.C+=1}BACK{LOOP};
ZZZZ010124	4800	INPUT+=IF{W0.ALP<W0.MIN_ALPHABET}
ZZZZ010124	4900	INPUT+=   ERROR{[A-Z]COUNT<?W0.MIN_ALPHABET?};
ZZZZ010124	5000	INPUT+=IF{W0.NUM<W0.MIN_NUMBER}
ZZZZ010124	5100	INPUT+=   ERROR{[0-9]COUNT<?W0.MIN_NUMBER?};
ZZZZ010124	5200	*NPUT+=SET{P2.SYSTEM_PASSWORD=};
ZZZZ010124	5300	INPUT+SELECT=' '
ZZZZ010124	5400	INPUT+DATA={*}P2.?&.DATA&SYSTEM_PASSWORD?
ZZZZ010124	5500	INPUT+=IF{P1.SYSTEM_PASSWORD!=_DATA}ERROR{PASSWORD UNMATCH};
ZZZZ010124	5600	INPUT+=IF{P1.SYSTEM_PASSWORD=}EXIT{};
ZZZZ010124	5700	INPUT+=SET{_PASSWORD=SYSTEM_PERSON+_DATA};
ZZZZ010124	5800	INPUT+=SET{SYSTEM_PASSWORD=_PASSWORD};
ZZZZ010124	5900	INPUT+=IF{SYSTEM_PASSWORD=SYSTEM_PASSWORD@OLD}EXIT{};
ZZZZ010124	6000	INPUT+=SET{SYSTEM_PASSWORD_LIMIT_DATE='00000101'};
ZZZZ010124	6100	INPUT+=IF{W0.LIMIT_DATE=0}
ZZZZ010124	6110	INPUT+=   SET{SYSTEM_PASSWORD_LIMIT_DATE=};
ZZZZ010124	6200	INPUT+SELECT=' '
ZZZZ010124	6300	DATA={O}?&.DATA&SYSTEM_PASSWORD_LIMIT_DATE?
ZZZZ010124	6400	COPY=@ZZZZZZ_SQL
ZZZZ010126	100	PROGRAM=,&X1,?_MM?_I_SECURITY_J_TABLE
ZZZZ010126	200	CONTROL=SCROLL
ZZZZ010126	300	INNER=&X2,?_MM?_I_SECURITY_TABLE,,0
ZZZZ010126	400	LEFT=&X3,?_MM?_I_MENU_TABLE,,*
ZZZZ010126	500	JOIN_ON=?_T?.SYSTEM_JOB
ZZZZ010126	600	JOIN_ON=   =?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010126	700	JOIN_ON=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010126	800	BEGIN
ZZZZ010126	900	=SET{SX3.SYSTEM_LANG=_LANG};
ZZZZ010126	1000	%ME-=SET{.SYSTEM_PERSON=_PERSON};
ZZZZ010126	1100	=SET{SX3.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010126	1200	%ME+SET=   .?&.SET&SYSTEM_PERSON?
ZZZZ010126	1300	%ME-SET={O}.?&.SET&SYSTEM_PERSON?
ZZZZ010126	1400	=SET{WN.SYSTEM_PERSON=};
ZZZZ010126	1500	=IF{_DATA!=}SET{WN.SYSTEM_PERSON='AND '+_DATA@WHERE};
ZZZZ010126	1600	%ME+SET=   SX2.?&X2.SET&SYSTEM_PERSON_NAME?
ZZZZ010126	1700	%ME-SET={O}SX2.?&X2.SET&SYSTEM_PERSON_NAME?
ZZZZ010126	1800	SET=.?&.SET&SYSTEM_JOB?
ZZZZ010126	1900	=SET{WN.SYSTEM_JOB=};
ZZZZ010126	2000	=IF{_DATA!=}SET{WN.SYSTEM_JOB=
ZZZZ010126	2100	=   'AND ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1?_C?'
ZZZZ010126	2200	=   +'SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR? LIKE ''?_DATA?%'''};
ZZZZ010126	2300	SET={}SX3.?&X3.SET&SYSTEM_MENU?
ZZZZ010126	2400	SET={=}SX3.?&X3.DATA&SYSTEM_LANG?
ZZZZ010126	2500	SET={O}SX3.?&X3.SET&SYSTEM_PERMISSION?
ZZZZ010126	2600	SET={N}SET_WHERE{1}
ZZZZ010126	2700	=SET{_DATA@WHERE='(''?_PERMISSION?''=''ZZZZ'' OR'
ZZZZ010126	2800	=   +' ''?_PERMISSION?''=X3.SYSTEM_PERMISSION)'
ZZZZ010126	2900	%ME-=   +' AND X2.SYSTEM_PERSON=''?_PERSON?'''
ZZZZ010126	3000	=   };
ZZZZ010126	3100	DATA={K}?&.DATA&SYSTEM_PERSON?
ZZZZ010126	3200	CHECK2=SELECT SYSTEM_PERSON
ZZZZ010126	3300	CHECK2=   ,SYSTEM_PERSON_NAME FROM ?&X2.TABLE? ?_T? WHERE
ZZZZ010126	3400	CHECK2=   SYSTEM_SECURITY_MARK IN('PERSON','ADMIN','GUEST')
ZZZZ010126	3500	CHECK2=   AND NOT((?_VRE&SX3.SYSTEM_PERMISSION?
ZZZZ010126	3600	CHECK2=   OR  '?SX3.SYSTEM_PERMISSION?'='ZZZZ')
ZZZZ010126	3700	CHECK2=   AND SYSTEM_SECURITY_MARK='ADMIN')
ZZZZ010126	3800	CHECK2=   ?WN.SYSTEM_PERSON?
ZZZZ010126	3900	CHECK2=   AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010126	4000	=SET{X2.SYSTEM_PERSON_NAME=_LIST_BOX_COMMENT
ZZZZ010126	4100	=   ,WN.SYSTEM_PERMISSION=};
ZZZZ010126	4200	****(管理者の場合の条件設定 )******
ZZZZ010126	4300	=SET{WN.WHERE=};
ZZZZ010126	4400	*SQL_SET{WN.SYSTEM_PERMISSION}{SELECT SYSTEM_PERMISSION FROM
ZZZZ010126	4500	*   ?&X2.TABLE? WHERE .SYSTEM_PERSON='?_DATA?'
ZZZZ010126	4600	*   AND SYSTEM_SECURITY_MARK='ADMIN'
ZZZZ010126	4700	*   AND Z_CANCEL=' '};
ZZZZ010126	4800	*IF{_SQL_SET_COUNT!=0}
ZZZZ010126	4810	=PROGRAM{0,?&X2.TABLE?,WC.SYSTEM_SECURITY_MARK=}
ZZZZ010126	4812	=   {WC.SYSTEM_PERSON='?_DATA?'}{};
ZZZZ010126	4830	=IF{WC.SYSTEM_SECURITY_MARK='ADMIN'}
ZZZZ010126	4900	=   SET{WN.WHERE='AND NOT X3.SYSTEM_PERMISSION '
ZZZZ010126	5000	=   +' IN(''?WN.SYSTEM_PERMISSION?'',''ZZZZ'')'};
ZZZZ010126	5100	DATA={*OC}X2.?&X2.DATA&SYSTEM_PERSON_NAME?
ZZZZ010126	5200	DATA={K}?&.DATA&SYSTEM_JOB?
ZZZZ010126	5300	CHECK2=SELECT ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010126	5400	CHECK2=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?,SYSTEM_MENU
ZZZZ010126	5500	CHECK2=   FROM ?&X3.TABLE? X3
ZZZZ010126	5600	CHECK2=   WHERE ?_VRE&SX3.SYSTEM_LANG? AND
ZZZZ010126	5700	CHECK2=   ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010126	5800	CHECK2=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010126	5900	CHECK2=   NOT IN(SELECT SYSTEM_JOB FROM ?_TABLE?
ZZZZ010126	6000	CHECK2=   WHERE ?_VRE&SYSTEM_PERSON? AND Z_CANCEL=' ')
ZZZZ010126	6100	CHECK2=   AND X3.?_VRE&SX3.SYSTEM_PERMISSION?
ZZZZ010126	6200	CHECK2=   ?WN.WHERE? ?WN.SYSTEM_JOB?
ZZZZ010126	6300	CHECK2=   AND SYSTEM_SECURITY IN('J','P','A')
ZZZZ010126	6400	CHECK2=   AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010126	6500	=SET{X3.SYSTEM_MENU=_LIST_BOX_COMMENT};
ZZZZ010126	6600	DATA={*O}X3.?&X3.DATA&SYSTEM_SECURITY?
ZZZZ010126	6700	DATA={*O}X3.?&X3.DATA&SYSTEM_MENU?
ZZZZ010126	6800	DATA=    ?&.DATA&SYSTEM_BEGIN_DATE?
ZZZZ010126	6900	DATA=    ?&.DATA&SYSTEM_END_DATE?
ZZZZ010126	7000	=IF{SYSTEM_BEGIN_DATE=,_DATA=}EXIT{};
ZZZZ010126	7100	=IF{SYSTEM_BEGIN_DATE>_DATA}ERROR{BEGIN>END};
ZZZZ010126	7200	COPY=@ZZZZZZ_SQL
ZZZZ010128	100	PROGRAM=,&X1,?_MM?_I_SECURITY_G_ID_TABLE
ZZZZ010128	200	TABLE=&X2,?_MM?_I_SECURITY_G_J_TABLE
ZZZZ010128	300	TABLE=&X3,?_MM?_I_SECURITY_G_TABLE
ZZZZ010128	400	DICTIONARY=SYSTEM_PERMISSION
ZZZZ010128	500	CONTROL=0
ZZZZ010128	600	BEGIN
ZZZZ010128	700	%ME-=SET{PERSON=_PERSON};
ZZZZ010128	800	=SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010128	900	SET={}.?&.SET&SYSTEM_GROUP?
ZZZZ010128	1000	SET={}.?&.SET&SYSTEM_GROUP_NAME?
ZZZZ010128	1100	*ET={O,*}?&SET&PERMISSION?
ZZZZ010128	1200	SET={O,*}.?&SET&SYSTEM_PERMISSION?(MY)
ZZZZ010128	1300	=SET{_DATA@WHERE='(''?_PERMISSION?''=''ZZZZ'' OR'
ZZZZ010128	1400	=   +' ''?_PERMISSION?'''
ZZZZ010128	1500	=   +'=?_SUBSTR(.SYSTEM_GROUP;1;4)?)'};
ZZZZ010128	1600	START
ZZZZ010128	1700	=IF{_START!=2}IF{_PERMISSION!='ZZZZ'}
ZZZZ010128	1800	=   IF{SYSTEM_GROUP[1;4]!=_PERMISSION}
ZZZZ010128	1900	=   ERROR{?_PERMISSION?...};
ZZZZ010128	2000	=IF{_START!=1}EXIT{};
ZZZZ010128	2100	REPEAT=3,2
ZZZZ010128	2200	*SQL_SET{}{SELECT SYSTEM_GROUP FROM ?&X##.TABLE? WHERE
ZZZZ010128	2300	*   ?_VRE&SYSTEM_GROUP? AND Z_CANCEL=' '};
ZZZZ010128	2310	=PROGRAM{0,?&X##.TABLE?}{SYSTEM_GROUP}{};
ZZZZ010128	2400	*IF{_SQL_SET_COUNT!=0}ERROR{USE GROUP};
ZZZZ010128	2410	=IF{_PROGRAM_COUNT!=0}ERROR{USE GROUP};
ZZZZ010128	2500	REPEAT=
ZZZZ010128	2600	DATA={K}?&.DATA&SYSTEM_GROUP?
ZZZZ010128	2700	=IF{_PERMISSION!='ZZZZ'}
ZZZZ010128	2800	=   IF{_DATA[1;4]!=_PERMISSION}ERROR{?_PERMISSION?...};
ZZZZ010128	2900	=PROGRAM{0,?_MM?_ETC_TABLE}
ZZZZ010128	2901	=   {WC.SYSTEM_KEY1='ZZZZZZ_PERMISSION'
ZZZZ010128	3000	=   ,WC.SYSTEM_KEY2=SYSTEM_GROUP[1;4]}{};
ZZZZ010128	3100	=IF{_PROGRAM_COUNT=0}
ZZZZ010128	3200	=   ERROR{PERMISSION(?SYSTEM_GROUP[1;4]?) NOT FOUND};
ZZZZ010128	3300	DATA=   ?&.DATA&SYSTEM_GROUP_NAME?
ZZZZ010128	3400	COPY=@ZZZZZZ_SQL
ZZZZ010128	3500	********( 2 )************************************************
ZZZZ010128	3600	PROGRAM=,&X1,?_MM?_I_SECURITY_G_J_TABLE
ZZZZ010128	3700	LEFT=&X2,?_MM?_I_MENU_TABLE,,*
ZZZZ010128	3800	*JOIN_ON=X2.LANG='?LANG?' AND SYSTEM_JOB
ZZZZ010128	3900	JOIN_ON=?_T?.SYSTEM_JOB
ZZZZ010128	4000	JOIN_ON=   =?_CL?X2.SYSTEM_MENU0?_C?X2.SYSTEM_MENU1
ZZZZ010128	4100	JOIN_ON=   ?_C?X2.SYSTEM_MENU2?_C?X2.SYSTEM_MENU3?_CR?
ZZZZ010128	4200	*ONTROL=SQL_DBO,BEGIN_ENTER
ZZZZ010128	4300	CONTROL=BEGIN_ENTER
ZZZZ010128	4400	BEGIN
ZZZZ010128	4500	=SET{SX2.SYSTEM_LANG=_LANG};
ZZZZ010128	4600	SET=.?&.SET&SYSTEM_JOB?
ZZZZ010128	4700	=SET{WN.SYSTEM_JOB=};
ZZZZ010128	4800	=IF{_DATA!=}SET{WN.SYSTEM_JOB=
ZZZZ010128	4900	=   'AND ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1?_C?'
ZZZZ010128	5000	=   +'SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR? LIKE ''?_DATA?%'''};
ZZZZ010128	5100	SET={=}SX2.?&X2.DATA&SYSTEM_LANG?
ZZZZ010128	5200	SET={KO}.=?$&.SET&SYSTEM_GROUP?
ZZZZ010128	5300	SET={O,*}.=?$&.SET&SYSTEM_GROUP_NAME?
ZZZZ010128	5400	DATA={K}?&.DATA&SYSTEM_JOB?
ZZZZ010128	5500	CHECK2=SELECT ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010128	5600	CHECK2=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?,SYSTEM_MENU
ZZZZ010128	5700	CHECK2=   FROM ?&X2.TABLE? WHERE ?_VRE&SX2.SYSTEM_LANG?
ZZZZ010128	5800	CHECK2=   AND NOT EXISTS(SELECT SYSTEM_JOB FROM ?_TABLE? ?_T?
ZZZZ010128	5900	CHECK2=   WHERE SYSTEM_JOB=?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010128	6000	CHECK2=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010128	6100	CHECK2=   AND ?_VE&.SYSTEM_GROUP? AND Z_CANCEL=' ')
ZZZZ010128	6200	CHECK2=   AND SYSTEM_PERMISSION LIKE '?.SYSTEM_GROUP[1;4]?'
ZZZZ010128	6300	CHECK2=   AND  SYSTEM_SECURITY IN('J','P','A')
ZZZZ010128	6400	CHECK2=   ?WN.SYSTEM_JOB? AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010128	6500	=SET{X2.SYSTEM_MENU=_LIST_BOX_COMMENT};
ZZZZ010128	6600	DATA={*O}X2.?&X2.DATA&SYSTEM_MENU?
ZZZZ010128	6700	COPY=@ZZZZZZ_SQL
ZZZZ010129	100	PROGRAM=,&X1,?_MM?_I_SECURITY_G_TABLE
ZZZZ010129	200	TABLE=&X2,?_MM?_I_SECURITY_TABLE
ZZZZ010129	300	TABLE=&X3,?_MM?_I_SECURITY_G_ID_TABLE
ZZZZ010129	400	CONTROL=SCROLL
ZZZZ010129	500	DICTIONARY=SYSTEM_PERMISSION
ZZZZ010129	600	BEGIN
ZZZZ010129	700	=SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010129	800	SET=.?&.SET&SYSTEM_PERSON?
ZZZZ010129	900	SET={,X2}SX2.?&X2.SET&SYSTEM_PERSON_NAME?
ZZZZ010129	1000	SET=.?&.SET&SYSTEM_GROUP?
ZZZZ010129	1100	SET={,X3}SX3.?&X3.SET&SYSTEM_GROUP_NAME?
ZZZZ010129	1200	SET={O,*}.?&SET&SYSTEM_PERMISSION?(MY)
ZZZZ010129	1300	=SET{_DATA@WHERE='(''?_PERMISSION?''=''ZZZZ'' OR'
ZZZZ010129	1400	=   +' ''?_PERMISSION?'''
ZZZZ010129	1500	=   +' =?_SUBSTR(.SYSTEM_GROUP;1;4)?)'};
ZZZZ010129	1600	DATA={K,&X2}?&.DATA&SYSTEM_PERSON?
ZZZZ010129	1700	CHECK2=SELECT SYSTEM_PERSON,SYSTEM_PERSON_NAME
ZZZZ010129	1710	CHECK2=   FROM ?&X2.TABLE? WHERE
ZZZZ010129	1800	CHECK2=   SYSTEM_SECURITY_MARK IN('PERSON','ADMIN','GUEST')
ZZZZ010129	1900	CHECK2=   AND NOT(?_VRE&.SYSTEM_PERMISSION?
ZZZZ010129	2000	CHECK2=   AND '?.SYSTEM_PERMISSION?'<>'ZZZZ'
ZZZZ010129	2100	CHECK2=   AND SYSTEM_SECURITY_MARK='ADMIN')
ZZZZ010129	2200	CHECK2=   AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010129	2300	DATA={*OC,X2}X2.?&X2.DATA&SYSTEM_PERSON_NAME?
ZZZZ010129	2400	DATA={K,&X3}?&.DATA&SYSTEM_GROUP?
ZZZZ010129	2500	CHECK2=SELECT X3.SYSTEM_GROUP,SYSTEM_GROUP_NAME
ZZZZ010129	2600	CHECK2=   FROM ?&X3.TABLE? X3 WHERE NOT
ZZZZ010129	2700	CHECK2=   EXISTS(SELECT SYSTEM_GROUP
ZZZZ010129	2710	CHECK2=   FROM ?_TABLE? ?_T? WHERE
ZZZZ010129	2800	CHECK2=    X3.?_NE&SYSTEM_GROUP?
ZZZZ010129	2900	CHECK2=   AND ?_VE&SYSTEM_PERSON?
ZZZZ010129	3000	CHECK2=   AND ?_T?.Z_CANCEL=' ') AND
ZZZZ010129	3100	CHECK2=   ('?_PERMISSION?'='ZZZZ' OR
ZZZZ010129	3200	CHECK2=   '?_PERMISSION?'
ZZZZ010129	3300	CHECK2=   =?_SUBSTR(X3.SYSTEM_GROUP;1;4)?)
ZZZZ010129	3400	CHECK2=   AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010129	3500	DATA={*O,X3}X3.?&X3.DATA&SYSTEM_GROUP_NAME?
ZZZZ010129	3600	DATA=    ?&.DATA&SYSTEM_BEGIN_DATE?
ZZZZ010129	3700	DATA=    ?&.DATA&SYSTEM_END_DATE?
ZZZZ010129	3800	=IF{SYSTEM_BEGIN_DATE=,_DATA=}EXIT{};
ZZZZ010129	3900	=IF{SYSTEM_BEGIN_DATE>_DATA}ERROR{BEGIN>END};
ZZZZ010129	4000	COPY=@ZZZZZZ_SQL
ZZZZ010131	100	PROGRAM=OUTPUT,&X1,?_MM?_I_MENU_TABLE
ZZZZ010131	200	CONTROL=SCROLL
ZZZZ010131	300	TABLE=&X2,?_MM?_I_SECURITY_J_TABLE
ZZZZ010131	400	TABLE=&X3,?_MM?_I_SECURITY_G_J_TABLE
ZZZZ010131	500	CONTROL=0
ZZZZ010131	600	BEGIN
ZZZZ010131	700	=SET{.SYSTEM_LANG=_LANG};
ZZZZ010131	800	=IF{_PERMISSION!='ZZZZ'}SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010131	900	SET=.?&X2.SET&SYSTEM_JOB?
ZZZZ010131	1000	JA+TITLE=複写元ジョブ
ZZZZ010131	1100	SET=.?&.SET&SYSTEM_MENU?
ZZZZ010131	1200	JA+TITLE=複写元メニュー
ZZZZ010131	1300	SET=.?&.DATA&SYSTEM_LANG?
ZZZZ010131	1400	SET={O}.?&.DATA&SYSTEM_PERMISSION?(MY)
ZZZZ010131	1500	DATA={K}X2.?&X2.DATA&SYSTEM_JOB?
ZZZZ010131	1600	JA+TITLE=複写元ジョブ
ZZZZ010131	1700	DATA={*O}?&.DATA&SYSTEM_MENU?
ZZZZ010131	1800	JA+TITLE=複写元メニュー
ZZZZ010131	1900	DATA={O}SYSTEM_JOB_COUNT{8,,+}
ZZZZ010131	2000	JA+TITLE=複写元ジョブ件数
ZZZZ010131	2100	DATA={O}GROUP_NAME_COUNT{8,,+}
ZZZZ010131	2200	JA+TITLE=複写元グループ件数
ZZZZ010131	2300	SQL=SELECT ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010131	2400	SQL=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?,SYSTEM_MENU,
ZZZZ010131	2500	NAME=CNT_SYSTEM_JOB
ZZZZ010131	2600	SQL=   (SELECT COUNT(*) FROM ?&X2.TABLE? X2 WHERE
ZZZZ010131	2700	SQL=   X2.SYSTEM_JOB=(?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010131	2710	SQL=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?)
ZZZZ010131	2800	SQL=   AND X2.Z_CANCEL=' ')
ZZZZ010131	2900	NAME=
ZZZZ010131	3000	SQL=   ,
ZZZZ010131	3100	NAME=CNT_GROUP
ZZZZ010131	3200	SQL=   (SELECT COUNT(*) FROM ?&X3.TABLE? X3 WHERE
ZZZZ010131	3300	SQL=   X3.SYSTEM_JOB=(?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010131	3310	SQL=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?)
ZZZZ010131	3400	SQL=   AND X3.Z_CANCEL=' ')
ZZZZ010131	3500	NAME=
ZZZZ010131	3600	SQL=   FROM ?_TABLE? ?_T? WHERE
ZZZZ010131	3700	SQL=   ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010131	3710	SQL=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010131	3800	SQL=   LIKE '?.SYSTEM_JOB?%'
ZZZZ010131	3900	SQL=   AND SYSTEM_MENU1>'00' AND SYSTEM_MENU1<'31'
ZZZZ010131	4000	SQL=   AND SYSTEM_MENU LIKE '?.SYSTEM_MENU?%' AND (
ZZZZ010131	4100	COPY=CNT_SYSTEM_JOB
ZZZZ010131	4200	SQL=   >0 OR
ZZZZ010131	4300	COPY=CNT_GROUP
ZZZZ010131	4400	SQL=   >0) AND ?_T?.Z_CANCEL=' '
ZZZZ010131	4500	SQL=   AND ?_T?.SYSTEM_SECURITY IN('J','A','P')
ZZZZ010131	4600	SQL=   AND ?_VE&.SYSTEM_LANG?
ZZZZ010131	4700	SQL=   AND SYSTEM_MENU1>'00' AND SYSTEM_MENU1<'41'
ZZZZ010131	4800	SQL=   AND SYSTEM_MENU2>'00' AND SYSTEM_MENU2<'41'
ZZZZ010131	4900	SQL=   AND SYSTEM_MENU3>'00' AND SYSTEM_MENU3<'41'
ZZZZ010131	5000	SQL=   AND ?_LR&.SYSTEM_PERMISSION?
ZZZZ010131	5100	REPEAT=_DATA_COUNT
ZZZZ010131	5200	SQL=   ?_GROUP##?
ZZZZ010131	5300	REPEAT=_ORDER_COUNT
ZZZZ010131	5400	SQL=   ?_ORDER##?
ZZZZ010131	5500	REPEAT=
ZZZZ010131	5600	PROGRAM=OUTPUT,&X1,?_MM?_I_MENU_TABLE
ZZZZ010131	5700	TABLE=&X2,?_MM?_I_SECURITY_J_TABLE
ZZZZ010131	5800	TABLE=&X3,?_MM?_I_SECURITY_G_J_TABLE
ZZZZ010131	5900	CONTROL=0,SCROLL
ZZZZ010131	6000	BEGIN
ZZZZ010131	6100	=SET{.SYSTEM_JOB=$X2.SYSTEM_JOB,.SYSTEM_MENU=$SYSTEM_MENU};
ZZZZ010131	6200	SET={O}.?$&X2.SET&SYSTEM_JOB?
ZZZZ010131	6300	JA+TITLE=複写元ジョブ
ZZZZ010131	6400	SET={O}.?$&.SET&SYSTEM_MENU?
ZZZZ010131	6500	JA+TITLE=複写元メニュー
ZZZZ010131	6600	SET=TO.?$&X2.SET&SYSTEM_JOB?
ZZZZ010131	6700	JA+TITLE=複写先ジョブ
ZZZZ010131	6800	SET=TO.?$&.SET&SYSTEM_MENU?
ZZZZ010131	6900	JA+TITLE=複写先メニュー
ZZZZ010131	7000	SET={O}$.?$&.DATA&SYSTEM_PERMISSION?(MY)
ZZZZ010131	7100	DATA={K}X2.?&X2.DATA&SYSTEM_JOB?
ZZZZ010131	7200	JA+TITLE=複写先ジョブ
ZZZZ010131	7300	DATA={*O}?&.DATA&SYSTEM_MENU?
ZZZZ010131	7400	JA+TITLE=複写先メニュー
ZZZZ010131	7500	DATA={O}SYSTEM_JOB_COUNT{8,,+}
ZZZZ010131	7600	JA+TITLE=複写先ジョブ件数
ZZZZ010131	7700	DATA={O}GROUP_NAME_COUNT{8,,+}
ZZZZ010131	7800	JA+TITLE=複写先グループ件数
ZZZZ010131	7900	SQL=SELECT ?_CL?SYSTEM_MENU0
ZZZZ010131	7910	SQL=   ?_C?SYSTEM_MENU1?_C?SYSTEM_MENU2
ZZZZ010131	8000	SQL=   ?_C?SYSTEM_MENU3?_CR?,SYSTEM_MENU,
ZZZZ010131	8100	NAME=CNT_SYSTEM_JOB2
ZZZZ010131	8200	SQL=   (SELECT COUNT(*) FROM ?&X2.TABLE? X2 WHERE
ZZZZ010131	8300	SQL=   X2.?_VRE&.SYSTEM_JOB?
ZZZZ010131	8400	SQL=   AND X2.Z_CANCEL=' ' AND  NOT EXISTS
ZZZZ010131	8500	SQL=   (SELECT SYSTEM_PERSON FROM ?&X2.TABLE? XX2 WHERE
ZZZZ010131	8600	SQL=   X2.?_NE&XX2.SYSTEM_PERSON? AND XX2.SYSTEM_JOB=
ZZZZ010131	8700	SQL=   ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010131	8710	SQL=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010131	8800	SQL=   AND XX2.Z_CANCEL=' '))
ZZZZ010131	8900	NAME=
ZZZZ010131	9000	SQL=   ,
ZZZZ010131	9100	NAME=CNT_GROUP2
ZZZZ010131	9200	SQL=   (SELECT COUNT(*) FROM ?&X3.TABLE? X3
ZZZZ010131	9210	SQL=   WHERE X3.?_VRE&.SYSTEM_JOB?
ZZZZ010131	9300	SQL=   AND X3.Z_CANCEL=' ' AND NOT EXISTS
ZZZZ010131	9400	SQL=   (SELECT SYSTEM_GROUP FROM ?&X3.TABLE? XX3 WHERE
ZZZZ010131	9500	SQL=   X3.?_NE&XX3.SYSTEM_GROUP? AND XX3.SYSTEM_JOB=
ZZZZ010131	9600	SQL=   ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010131	9610	SQL=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010131	9700	SQL=   AND XX3.Z_CANCEL=' '))
ZZZZ010131	9800	NAME=
ZZZZ010131	9900	SQL=   FROM ?_TABLE? ?_T? WHERE
ZZZZ010131	10000	SQL=   ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010131	10010	SQL=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010131	10100	SQL=   LIKE '?TO.SYSTEM_JOB?%' AND SYSTEM_MENU
ZZZZ010131	10200	SQL=   LIKE '?TO.SYSTEM_MENU?%' AND(
ZZZZ010131	10300	COPY=CNT_SYSTEM_JOB2
ZZZZ010131	10400	SQL=   >0 OR
ZZZZ010131	10500	COPY=CNT_GROUP2
ZZZZ010131	10600	SQL=   >0)AND ?_T?.Z_CANCEL=' '
ZZZZ010131	10700	SQL=   AND ?_T?.SYSTEM_SECURITY IN('J','P','A')
ZZZZ010131	10800	SQL=   AND ?_T?.SYSTEM_LANG='?$.SYSTEM_LANG?'
ZZZZ010131	10900	SQL=   AND SYSTEM_MENU1>'00' AND SYSTEM_MENU1<'41'
ZZZZ010131	11000	SQL=   AND SYSTEM_MENU2>'00' AND SYSTEM_MENU2<'41'
ZZZZ010131	11100	SQL=   AND SYSTEM_MENU3>'00' AND SYSTEM_MENU3<'41'
ZZZZ010131	11200	SQL=   AND ?_LR&.SYSTEM_PERMISSION?
ZZZZ010131	11300	REPEAT=_DATA_COUNT
ZZZZ010131	11400	SQL=   ?_GROUP##?
ZZZZ010131	11500	REPEAT=_ORDER_COUNT
ZZZZ010131	11600	SQL=   ?_ORDER##?
ZZZZ010131	11700	REPEAT=
ZZZZ010131	11800	PROGRAM=NOT
ZZZZ010131	11900	FORM=
ZZZZ010131	12000	JA+FORM=     コピー元ジョブ= @        メニュー= @
ZZZZ010131	12100	JA-FORM=      COPY FROM JOB= @            MENU= @
ZZZZ010131	12200	JA+FORM=     コピー先ジョブ= @        メニュー= @
ZZZZ010131	12300	JA-FORM=      COPY TO   JOB= @            MENU= @
ZZZZ010131	12400	FORM=
ZZZZ010131	12500	JA+FORM=            JOB 件数 = @
ZZZZ010131	12600	JA-FORM=                COUNT= @
ZZZZ010131	12700	JA+FORM=           GROUP 件数= @
ZZZZ010131	12800	JA-FORM=          GROUP COUNT= @
ZZZZ010131	12900	FORM=
ZZZZ010131	13000	JA+FORM=                複写  @@@@@ (YES=する,NO=しない)
ZZZZ010131	13100	JA-FORM=                COPY  @@@@@ (YES,NO)
ZZZZ010131	13200	BEGIN
ZZZZ010131	13300	=SQL_SET{COUNT_X}{SELECT COUNT(*)  FROM ?$&X2.TABLE? X2
ZZZZ010131	13400	=   WHERE NOT EXISTS(SELECT SYSTEM_PERSON FROM ?$&X2.TABLE?
ZZZZ010131	13500	=   XX2 WHERE X2.?_NE&XX2.SYSTEM_PERSON?
ZZZZ010131	13600	=   AND XX2.?_VRE&X2.SYSTEM_JOB? AND  XX2.Z_CANCEL=' ')
ZZZZ010131	13700	=   AND X2.?_VRE&.SYSTEM_JOB? AND  X2.Z_CANCEL=' '};
ZZZZ010131	13800	=SQL_SET{GROUP_NAME_COUNT}{SELECT COUNT(*) FROM
ZZZZ010131	13900	=   ?$&X3.TABLE? X3 WHERE
ZZZZ010131	14000	=   NOT EXISTS(SELECT SYSTEM_GROUP FROM ?$&X3.TABLE? XX3
ZZZZ010131	14100	=   WHERE X3.?_NE&XX3.SYSTEM_GROUP?
ZZZZ010131	14200	=   AND XX3.?_VRE&X2.SYSTEM_JOB? AND XX3.Z_CANCEL=' ')
ZZZZ010131	14300	=   AND X3.?_VRE&.SYSTEM_JOB? AND  X3.Z_CANCEL=' '};
ZZZZ010131	14400	DATA={O}$.?$&X2.DATA&SYSTEM_JOB?
ZZZZ010131	14500	DATA={O}$?$&.DATA&SYSTEM_MENU?
ZZZZ010131	14600	DATA={O}$X2.?$&X2.DATA&SYSTEM_JOB?
ZZZZ010131	14700	DATA={O}$.?$&.DATA&SYSTEM_MENU?
ZZZZ010131	14800	DATA={O}COUNT_X{8,,+}
ZZZZ010131	14900	DATA={O}GROUP_NAME_COUNT{8,,+}
ZZZZ010131	15000	DATA=YN{4,1}{YES,NO}
ZZZZ010131	15100	=IF{_DATA='NO'}EXIT{_END};
ZZZZ010131	15200	STOP_AFTER
ZZZZ010131	15300	=SQL{UPDATE ?$&X2.TABLE? SET ?_Z_UPDATE_ADD?
ZZZZ010131	15400	=   WHERE Z_CANCEL<>' ' AND ?_VRE&X2.SYSTEM_JOB? AND
ZZZZ010131	15500	=   SYSTEM_PERSON IN(SELECT SYSTEM_PERSON FROM ?$&X2.TABLE?
ZZZZ010131	15600	=   WHERE ?_VRE&.SYSTEM_JOB? AND Z_CANCEL=' ')};
ZZZZ010131	15700	=SQL{INSERT INTO ?$&X2.TABLE?
ZZZZ010131	15800	=   (?_Z_INSERT_NAME?,SYSTEM_JOB,SYSTEM_PERSON
ZZZZ010131	15900	=   ,SYSTEM_BEGIN_DATE,SYSTEM_END_DATE)
ZZZZ010131	16000	=   SELECT ?_Z_INSERT_VALUE?,'?X2.SYSTEM_JOB?'
ZZZZ010131	16100	=   ,X2.SYSTEM_PERSON,X2.SYSTEM_BEGIN_DATE,X2.SYSTEM_END_DATE
ZZZZ010131	16200	=   FROM ?$&X2.TABLE? X2 WHERE ?_VRE&.SYSTEM_JOB? AND NOT
ZZZZ010131	16300	=   EXISTS (SELECT SYSTEM_JOB FROM ?$&X2.TABLE? XX2
ZZZZ010131	16400	=   WHERE XX2.?_VRE&X2.SYSTEM_JOB?
ZZZZ010131	16500	=   AND X2.?_NE&XX2.SYSTEM_PERSON?
ZZZZ010131	16600	=   AND XX2.Z_CANCEL=' ')AND X2.Z_CANCEL=' '};
ZZZZ010131	16700	=SQL{UPDATE ?_MM?_I_SECURITY_G_J_TABLE SET ?_Z_UPDATE_ADD?
ZZZZ010131	16800	=   WHERE Z_CANCEL<>' ' AND ?_VRE&X2.SYSTEM_JOB?
ZZZZ010131	16900	=   AND SYSTEM_GROUP IN(SELECT SYSTEM_GROUP
ZZZZ010131	17000	=   FROM ?_MM?_I_SECURITY_G_J_TABLE
ZZZZ010131	17100	=   WHERE ?_VRE&.SYSTEM_JOB? AND Z_CANCEL=' ')};
ZZZZ010131	17200	=SQL{INSERT INTO ?_MM?_I_SECURITY_G_J_TABLE
ZZZZ010131	17300	=   (?_Z_INSERT_NAME?,SYSTEM_JOB,SYSTEM_GROUP)SELECT
ZZZZ010131	17400	=   ?_Z_INSERT_VALUE?,'?X2.SYSTEM_JOB?',X2.SYSTEM_GROUP
ZZZZ010131	17500	=   FROM ?_MM?_I_SECURITY_G_J_TABLE X2
ZZZZ010131	17600	=   WHERE ?_VRE&.SYSTEM_JOB? AND NOT EXISTS
ZZZZ010131	17700	=   (SELECT SYSTEM_JOB FROM ?_MM?_I_SECURITY_G_J_TABLE XX2
ZZZZ010131	17800	=   WHERE XX2.?_VRE&X2.SYSTEM_JOB?
ZZZZ010131	17900	=   AND X2.?_NE&XX2.SYSTEM_GROUP?
ZZZZ010131	18000	=   AND XX2.Z_CANCEL=' ')AND X2.Z_CANCEL=' '};
ZZZZ010131	18100	=EXIT{_END};
ZZZZ010131	18200	END
ZZZZ010131	18300	=SET{_RETURN_SQL=1};
ZZZZ010133	100	PROGRAM=,&X1,?_MM?_CALENDAR_TABLE
ZZZZ010133	200	PLUS=%Z_CANCEL_WHERE
ZZZZ010133	300	CONTROL=1,2,PROGRAM_TEST
ZZZZ010133	400	BEGIN
ZZZZ010133	500	=SET{.SYSTEM_DATE=_TODAY};
ZZZZ010133	600	SET={>=}.?&.DATA&SYSTEM_DATE?
ZZZZ010133	700	DATA={KO}?&.DATA&SYSTEM_DATE?
ZZZZ010133	800	DATA=    ?&.DATA&SYSTEM_HOLIDAY?
ZZZZ010133	900	DATA={*O}?&.DATA&SYSTEM_HOLIDAY_DEFAULT?
ZZZZ010133	1000	DATA={*O}X_WEEK{1}
ZZZZ010133	1100	SELECT=?_WEEK_CHAR(.SYSTEM_DATE)?
ZZZZ010133	1200	JA+TITLE=曜日
ZZZZ010133	1300	COPY=@ZZZZZZ_SQL
ZZZZ010134	100	PROGRAM=,&X1,?_MM?_HOLIDAY_TABLE
ZZZZ010134	200	CONTROL=PROGRAM_TEST
ZZZZ010134	300	DATA={K}?&.DATA&SYSTEM_COUNTRY?
ZZZZ010134	400	DATA={K}?&.DATA&SYSTEM_MM?
ZZZZ010134	500	NAME=WEEK
ZZZZ010134	600	=SET{WN.CH='(01,07)'};
ZZZZ010134	700	JA+=SET{WN.SYSTEM_DD='曜日(01(日)～07(土))'};
ZZZZ010134	800	JA-=SET{WN.SYSTEM_DD='WEEK(01(SUN)->07(SAT))'};
ZZZZ010134	900	NAME=
ZZZZ010134	1000	=IF{_DATA!='00'}EXIT{};
ZZZZ010134	1100	=SET{.SYSTEM_MARK_CALENDAR='0'};EXIT{SYSTEM_DD};
ZZZZ010134	1200	DATA={K}?&.DATA&SYSTEM_MARK_CALENDAR?
ZZZZ010134	1300	=IF{_DATA='D'}SET{WN.CH='(01,31)',WN.SYSTEM_DD=
ZZZZ010134	1400	JA+=   '日(01～31)'}EXIT{};
ZZZZ010134	1500	JA-=   'DAY(01->31)'}EXIT{};
ZZZZ010134	1600	COPY=WEEK
ZZZZ010134	1700	DATA={K}?&.DATA&SYSTEM_DD?
ZZZZ010134	1800	MESSAGE=?WN.SYSTEM_DD?
ZZZZ010134	1900	CHECK=?WN.CH?
ZZZZ010134	2000	COPY=@ZZZZZZ_SQL
ZZZZ010137	100	PROGRAM=,&X1,?_MM?_ETC_ID_TABLE
ZZZZ010137	200	CONTROL=0,PROGRAM_TEST,SCROLL
ZZZZ010137	300	SET=.?&.SET&SYSTEM_KEY1?
ZZZZ010137	400	START
ZZZZ010137	500	=IF{_START!=1}EXIT{};
ZZZZ010137	600	=PROGRAM{0,?_MM?_ETC_TABLE}{SYSTEM_KEY1}{};
ZZZZ010137	700	=IF{_PROGRAM_COUNT>0}ERROR{DITAIL DATA FOUND};
ZZZZ010137	800	DATA={K}?&.DATA&SYSTEM_KEY1?
ZZZZ010137	900	DATA=   ?&.DATA&SYSTEM_COMMENT?
ZZZZ010137	1000	*COPY=@ZZZZZZ_SQL(これは混在マスター利用の為使用せず）
ZZZZ010137	1100	%ZZZZZZ_SQL_SELECT+REPEAT=_SELECT_COUNT
ZZZZ010137	1200	%ZZZZZZ_SQL_SELECT+SQL=?_SELECT##?
ZZZZ010137	1300	%ZZZZZZ_SQL_SELECT+REPEAT=
ZZZZ010137	1400	%Z_CANCEL_SELECT+SQL=,?_T?.Z_CANCEL
ZZZZ010137	1500	%ZZZZZZ_SQL_FROM+REPEAT=_FROM_COUNT
ZZZZ010137	1600	%ZZZZZZ_SQL_FROM+SQL=?_FROM##?
ZZZZ010137	1700	%ZZZZZZ_SQL_FROM+REPEAT=
ZZZZ010137	1800	%ZZZZZZ_SQL_LEFT+REPEAT=_LEFT_COUNT
ZZZZ010137	1900	%ZZZZZZ_SQL_LEFT+SQL=?_LEFT##?
ZZZZ010137	2000	%ZZZZZZ_SQL_LEFT+REPEAT=
ZZZZ010137	2100	%ZZZZZZ_SQL_WHERE+REPEAT=_WHERE_COUNT
ZZZZ010137	2200	%ZZZZZZ_SQL_WHERE+SQL=?_WHERE##?
ZZZZ010137	2300	%ZZZZZZ_SQL_WHERE+REPEAT=
ZZZZ010137	2400	%Z_CANCEL_WHERE+SQL=?_WHERE_AND? ?_T?.Z_CANCEL=' '
ZZZZ010137	2500	%ZZZZZZ_SQL_GROUP+REPEAT=_GROUP_COUNT
ZZZZ010137	2600	%ZZZZZZ_SQL_GROUP+SQL=?_GROUP##?
ZZZZ010137	2700	%ZZZZZZ_SQL_GROUP+REPEAT=
ZZZZ010137	2800	%ZZZZZZ_SQL_HAVING+SQL=?_HAVING?
ZZZZ010137	2900	%ZZZZZZ_SQL_ORDER+REPEAT=_ORDER_COUNT
ZZZZ010137	3000	%ZZZZZZ_SQL_ORDER+SQL=?_ORDER##?
ZZZZ010137	3100	%ZZZZZZ_SQL_ORDER+REPEAT=
ZZZZ010137	3200	PROGRAM=,&X1,?_MM?_ETC_TABLE
ZZZZ010137	3300	CONTROL=PROGRAM_TEST,SCROLL,BEGIN_ENTER
ZZZZ010137	3400	BEGIN
ZZZZ010137	3500	SET={KO}.=?$&.SET&SYSTEM_KEY1?
ZZZZ010137	3600	SET={O,*}SX0.=?$&.SET&SYSTEM_COMMENT?
ZZZZ010137	3700	SET={}.?&.SET&SYSTEM_KEY2?
ZZZZ010137	3800	SET={}.?&.SET&SYSTEM_ETC?
ZZZZ010137	3900	SET={}.?&.SET&SYSTEM_COMMENT?
ZZZZ010137	4000	DATA={K}?&.DATA&SYSTEM_KEY2?
ZZZZ010137	4100	DATA=   ?&.DATA&SYSTEM_ETC?
ZZZZ010137	4200	=IF{.SYSTEM_KEY1='ZZZZZZ_SYSTEM'}JUMP{SYSTEM};
ZZZZ010137	4300	=EXIT{};
ZZZZ010137	4400	=SYSTEM:
ZZZZ010137	4500	=IF{SYSTEM_KEY2!/'ZZZZZZ_'}EXIT{};
ZZZZ010137	4600	=IF{SYSTEM_KEY2='ZZZZZZ_INSTALL_PATH',='ZZZZZZ_BACKUP_SAVE'
ZZZZ010137	4700	=   ,='ZZZZZZ_DATABASE_PATH'} EXIT{};
ZZZZ010137	4800	=IF{_DATA=}ERROR{SPACE};
ZZZZ010137	4900	=IF{SYSTEM_KEY2/'ZZZZZZ_TIME_'}JUMP{TIME};
ZZZZ010137	5000	=IF{SYSTEM_KEY2%'_DAY',%'_DELETE'}JUMP{DAY};
ZZZZ010137	5100	=IF{SYSTEM_KEY2/'ZZZZZZ_PASSWORD_'}JUMP{PASSWORD};
ZZZZ010137	5200	=IF{SYSTEM_KEY2%'_ADD',%'_CANCEL'}JUMP{NUMERIC2};
ZZZZ010137	5300	=EXIT{};
ZZZZ010137	5400	=TIME:
ZZZZ010137	5500	=IF{_DATA@LENGTH!=5}ERROR{LENGTH!=5};
ZZZZ010137	5600	=IF{_DATA[1;1]<'0',>'2'}ERROR{NOT '0'<=[1;1]<='2'};
ZZZZ010137	5700	=IF{_DATA[2;1]<'0',>'9'}ERROR{NOT '0'<=[2;1]<='9'};
ZZZZ010137	5800	=SET{W0H=_DATA[1;2]};
ZZZZ010137	5900	=IF{SYSTEM_KEY2='ZZZZZZ_TIME_START'}IF{W0H>11}
ZZZZ010137	6000	=                                       ERROR{NOT [1;2]<=11};
ZZZZ010137	6100	=IF{SYSTEM_KEY2='ZZZZZZ_TIME_LIMIT'}IF{W0H>23,<13}
ZZZZ010137	6200	=                           ERROR{NOT 13<=[1;2]=<23};
ZZZZ010137	6300	=IF{_DATA[3;1]!=':'}ERROR{[3;1]!=':'};
ZZZZ010137	6400	=IF{_DATA[4;1]<'0',>'5'}ERROR{NOT '0'<=[4;1]<='5'};
ZZZZ010137	6500	=IF{_DATA[5;1]<'0',>'9'}ERROR{NOT '0'<=[5;1]<='9'};
ZZZZ010137	6600	=EXIT{};
ZZZZ010137	6700	=IF{SYSTEM_KEY2%'_ADD',%'_CANCEL'}JUMP{NUMERIC2};
ZZZZ010137	6800	=DAY:
ZZZZ010137	6900	=IF_ERROR_SET{W0=_DATA}ERROR{NOT NUMERIC};
ZZZZ010137	7000	=IF{W0>0}EXIT{};
ZZZZ010137	7100	=ERROR{NOT DAY>0};
ZZZZ010137	7200	=PASSWORD:
ZZZZ010137	7300	=IF_ERROR_SET{W0=_DATA}ERROR{NOT NUMERIC};
ZZZZ010137	7400	=IF{W0>=0}IF{W0<=16}EXIT{};
ZZZZ010137	7500	=ERROR{NOT 0<=PSSWORD<=16};
ZZZZ010137	7600	=NUMERIC2:
ZZZZ010137	7700	=SPLIT_CHAR{WC.}{_DATA}{'*'};
ZZZZ010137	7800	=IF{_SPLIT_CHAR_COUNT>2}ERROR{NOT NUMERIC*NUMERIC};
ZZZZ010137	7900	=IF_ERROR_SET{W0.1=WC.1}ERROR{NOT NUMERIC (?WC.1?)};
ZZZZ010137	8000	=IF{_SPLIT_CHAR_COUNT=2}
ZZZZ010137	8100	=   IF_ERROR_SET{W0.2=WC.2}ERROR{NOT NUMERIC (?WC.2?)};
ZZZZ010137	8200	=IF{W0.1<=0}ERROR{NOT (?WC.1?>0)};
ZZZZ010137	8300	=IF{_SPLIT_CHAR_COUNT=2}
ZZZZ010137	8400	=   IF{W0.2<=0}ERROR{NOT (?WC.2?>0)};
ZZZZ010137	8500	DATA=   ?&.DATA&SYSTEM_COMMENT?
ZZZZ010137	8600	*COPY=@ZZZZZZ_SQL(これは混在マスター利用の為使用せず）
ZZZZ010137	8700	%ZZZZZZ_SQL_SELECT+REPEAT=_SELECT_COUNT
ZZZZ010137	8800	%ZZZZZZ_SQL_SELECT+SQL=?_SELECT##?
ZZZZ010137	8900	%ZZZZZZ_SQL_SELECT+REPEAT=
ZZZZ010137	9000	%Z_CANCEL_SELECT+SQL=,?_T?.Z_CANCEL
ZZZZ010137	9100	%ZZZZZZ_SQL_FROM+REPEAT=_FROM_COUNT
ZZZZ010137	9200	%ZZZZZZ_SQL_FROM+SQL=?_FROM##?
ZZZZ010137	9300	%ZZZZZZ_SQL_FROM+REPEAT=
ZZZZ010137	9400	%ZZZZZZ_SQL_LEFT+REPEAT=_LEFT_COUNT
ZZZZ010137	9500	%ZZZZZZ_SQL_LEFT+SQL=?_LEFT##?
ZZZZ010137	9600	%ZZZZZZ_SQL_LEFT+REPEAT=
ZZZZ010137	9700	%ZZZZZZ_SQL_WHERE+REPEAT=_WHERE_COUNT
ZZZZ010137	9800	%ZZZZZZ_SQL_WHERE+SQL=?_WHERE##?
ZZZZ010137	9900	%ZZZZZZ_SQL_WHERE+REPEAT=
ZZZZ010137	10000	%Z_CANCEL_WHERE+SQL=?_WHERE_AND? ?_T?.Z_CANCEL=' '
ZZZZ010137	10100	%ZZZZZZ_SQL_GROUP+REPEAT=_GROUP_COUNT
ZZZZ010137	10200	%ZZZZZZ_SQL_GROUP+SQL=?_GROUP##?
ZZZZ010137	10300	%ZZZZZZ_SQL_GROUP+REPEAT=
ZZZZ010137	10400	%ZZZZZZ_SQL_HAVING+SQL=?_HAVING?
ZZZZ010137	10500	%ZZZZZZ_SQL_ORDER+REPEAT=_ORDER_COUNT
ZZZZ010137	10600	%ZZZZZZ_SQL_ORDER+SQL=?_ORDER##?
ZZZZ010137	10700	%ZZZZZZ_SQL_ORDER+REPEAT=
ZZZZ010138	100	PROGRAM=,&X1,?_MM?_KEEP_TABLE
ZZZZ010138	200	CONTROL=SCROLL
ZZZZ010138	300	SET={}.?&.SET&SYSTEM_COMPUTER?
ZZZZ010138	400	SET={}.?&.SET&SYSTEM_NAME?
ZZZZ010138	500	SET={}.?&.SET&SYSTEM_KEEP?
ZZZZ010138	600	DATA={K}?&.DATA&SYSTEM_COMPUTER?
ZZZZ010138	700	DATA={K}?&.DATA&SYSTEM_NAME?
ZZZZ010138	800	DATA={} ?&.DATA&SYSTEM_KEEP?
ZZZZ010138	900	COPY=@ZZZZZZ_SQL
ZZZZ010140	100	PROGRAM=,&X1,?_MM?_I_ERROR_TABLE
ZZZZ010140	200	CONTROL=SCROLL,0
ZZZZ010140	300	BEGIN
ZZZZ010140	400	=SET{.SYSTEM_COMPUTER=_COMPUTER};
ZZZZ010140	500	SET={}.?&.SET&SYSTEM_JOB?
ZZZZ010140	600	SET={}.?&.SET&SYSTEM_COMPUTER?
ZZZZ010140	700	SET={}.?&.SET&SYSTEM_ERROR?
ZZZZ010140	800	START
ZZZZ010140	900	=SPLIT_FORM{WN.E}{SYSTEM_ERROR}{74};
ZZZZ010140	910	=SET{W0.SPLIT_FORM_COUNT=_SPLIT_FORM_COUNT};
ZZZZ010140	1000	*****( 時間 )*****
ZZZZ010140	1100	DATA={*OD}?&.DATA&SYSTEM_TIME?
ZZZZ010140	1200	*****( ジョブ )*****
ZZZZ010140	1300	DATA={K }?&.DATA&SYSTEM_JOB?
ZZZZ010140	1400	*****( コンピュータ )*****
ZZZZ010140	1500	DATA={K }?&.DATA&SYSTEM_COMPUTER?
ZZZZ010140	1600	*****(  )*****
ZZZZ010140	1700	DATA={  }?&.DATA&SYSTEM_ERROR?
ZZZZ010140	1800	COPY=@ZZZZZZ_SQL
ZZZZ010140	1900	PROGRAM=OUTPUT
ZZZZ010140	2000	LINE=1
ZZZZ010140	2100	BEGIN
ZZZZ010140	2200	=OUTPUT{$WN.E1
ZZZZ010140	2300	REPEAT=?$W0.SPLIT_FORM_COUNT?,2
ZZZZ010140	2400	0-=   ,$WN.E##
ZZZZ010140	2500	REPEAT=
ZZZZ010140	2600	=   };
ZZZZ010140	2700	REPEAT=?$W0.SPLIT_FORM_COUNT?
ZZZZ010140	2800	DATA=WN.E##{74}*
ZZZZ010140	2900	REPEAT=
ZZZZ010201	100	MINUS=%TEST
ZZZZ010201	200	*BEGIN+PROGRAM=NOT
ZZZZ010201	300	*BEGIN+BEGIN
ZZZZ010201	400	*BEGIN+=SET{WN.O=};
ZZZZ010201	500	PROGRAM=,&X1,?_MM?_I_MENU_TABLE
ZZZZ010201	600	TABLE=&X2,?_MM?_I_PROGRAM_TABLE
ZZZZ010201	700	CONTROL=?#ZZZZZZ_ARG_BEGIN_ENTER?,0,SCROLL
ZZZZ010201	800	BEGIN
ZZZZ010201	900	=SET{#ZZZZZZ_ARG_BEGIN_ENTER=};
ZZZZ010201	1000	=IF_NAME{$COLOR}SET{COLOR=$COLOR};
ZZZZ010201	1100	SET={N,*}DUMMY{}
ZZZZ010201	1200	=SET{.SYSTEM_LANG=_LANG};
ZZZZ010201	1300	=IF{#ZZZZZZ_ARG_JOB=}EXIT{};
ZZZZ010201	1400	=SET{.SYSTEM_JOB=#ZZZZZZ_ARG_JOB};
ZZZZ010201	1500	=IF{#ZZZZZZ_ARG_JOB[9;2]='00'}
ZZZZ010201	1600	=   SET{.SYSTEM_JOB=#ZZZZZZ_ARG_JOB[1;8]};
ZZZZ010201	1700	=IF{#ZZZZZZ_ARG_JOB[7;2]='00'}
ZZZZ010201	1800	=   SET{.SYSTEM_JOB=#ZZZZZZ_ARG_JOB[1;6]};
ZZZZ010201	1900	=IF{#ZZZZZZ_ARG_JOB[5;2]='00'}
ZZZZ010201	2000	=   SET{.SYSTEM_JOB=#ZZZZZZ_ARG_JOB[1;4]};
ZZZZ010201	2100	=SET{#ZZZZZZ_ARG_JOB=};
ZZZZ010201	2200	*SET={?$WN.O?,*}?&X2.SET&.SYSTEM_JOB?
ZZZZ010201	2300	SET={,*}.?&X2.SET&SYSTEM_JOB?
ZZZZ010201	2400	=SET{_DATA@WHERE=
ZZZZ010201	2500	=   '?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1?_C?SYSTEM_MENU2'
ZZZZ010201	2600	=   +'?_C?SYSTEM_MENU3?_CR?  LIKE ''?.SYSTEM_JOB?%'''};
ZZZZ010201	2700	*SET={?$WN.O?,*}?&.SET&.SYSTEM_LANG?
ZZZZ010201	2800	SET={,*}.?&.SET&SYSTEM_LANG?
ZZZZ010201	2900	=SET{_DATA@WHERE='?_LR&.SYSTEM_LANG?'
ZZZZ010201	3000	=   +' OR SYSTEM_LANG='' '''};
ZZZZ010201	3100	*SET={?$WN.O?}?&.SET&.SYSTEM_MENU?
ZZZZ010201	3200	SET={}.?&.SET&SYSTEM_MENU?
ZZZZ010201	3300	SET={,*}COLOR{2}{,NO}
ZZZZ010201	3400	JA+TITLE=色指定
ZZZZ010201	3500	START
ZZZZ010201	3600	=IF{_START=0}IF{SYSTEM_MENU3='00'}
ZZZZ010201	3700	=   ERROR{SYSTEM_MENU(00) ERROR};
ZZZZ010201	3800	=SET{WN.JOB1=SYSTEM_MENU0+SYSTEM_MENU1
ZZZZ010201	3900	=   +SYSTEM_MENU2+SYSTEM_MENU3};
ZZZZ010201	4000	=SET{W0.JOB=1};
ZZZZ010201	4100	REPEAT=5
ZZZZ010201	4200	=SET{WN.SYSTEM_COPY##=SYSTEM_COPY##};
ZZZZ010201	4300	REPEAT=
ZZZZ010201	4400	=LOOP:IF{WN.SYSTEM_COPY2!='ZZZZZZZZZZ'}JUMP{FIN};
ZZZZ010201	4500	=IF{W0.JOB=6}ERROR{SYSTEM_MENU 'ZZZZZZZZZZ' 5 COUNT OVER};
ZZZZ010201	4600	=COMPUTE{W0.JOB+=1};
ZZZZ010201	4700	=SET{WN.JOB?W0.JOB?=WN.SYSTEM_COPY1};
ZZZZ010201	4800	*SQL_SET{WN.SYSTEM_COPY1,WN.SYSTEM_COPY2
ZZZZ010201	4900	*   ,WN.SYSTEM_COPY3,WN.SYSTEM_COPY4,WN.SYSTEM_COPY5}
ZZZZ010201	5000	*  {SELECT SYSTEM_COPY1,SYSTEM_COPY2
ZZZZ010201	5100	*   ,SYSTEM_COPY3,SYSTEM_COPY4,SYSTEM_COPY5 FROM
ZZZZ010201	5200	*   ?_TABLE? WHERE
ZZZZ010201	5300	*   ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010201	5400	*   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010201	5500	*   ='?WN.SYSTEM_COPY1?' AND Z_CANCEL=' ' AND
ZZZZ010201	5600	*   (?_LR&.SYSTEM_LANG? OR .SYSTEM_LANG=' ')};
ZZZZ010201	5700	*IF{_SQL_SET_COUNT=0}
ZZZZ010201	5710	=PROGRAM{00,?_TABLE?,WN.SYSTEM_COPY1=,WN.SYSTEM_COPY2=
ZZZZ010201	5711	=   ,WN.SYSTEM_COPY3=,WN.SYSTEM_COPY4=,WN.SYSTEM_COPY5=}
ZZZZ010201	5712	=   {WC.SYSTEM_MENU0=WN.SYSTEM_COPY1[1;4]
ZZZZ010201	5720	=   ,WC.SYSTEM_MENU1=WN.SYSTEM_COPY1[5;2]
ZZZZ010201	5730	=   ,WC.SYSTEM_MENU2=WN.SYSTEM_COPY1[7;2]
ZZZZ010201	5740	=   ,WC.SYSTEM_MENU3=WN.SYSTEM_COPY1[9;2]}
ZZZZ010201	5770	=   {?_LR&.SYSTEM_LANG? OR SYSTEM_LANG=' '};
ZZZZ010201	5780	=IF{_PROGRAM_COUNT=0}
ZZZZ010201	5800	=   ERROR{SYSTEM_MENU(?WN.SYSTEM_COPY1?) NOT FOUND};
ZZZZ010201	5900	=BACK{LOOP};
ZZZZ010201	6000	=FIN:SET{W0.SYSTEM_COPY=5};
ZZZZ010201	6100	=SET{W0.JOB_CNT=1};
ZZZZ010201	6200	=LOOP:SET{WN.JOB_?W0.JOB_CNT?=WN.JOB?W0.JOB_CNT?};
ZZZZ010201	6300	=COMPUTE{W0.CNT=W0.JOB_CNT-1};
ZZZZ010201	6400	=SET{WN.JOB_KIND_?W0.JOB_CNT?=' ?W0.CNT?'};
ZZZZ010201	6500	=IF{W0.JOB_CNT<W0.JOB}COMPUTE{W0.JOB_CNT+=1}BACK{LOOP};
ZZZZ010201	6600	REPEAT=5
ZZZZ010201	6700	=IF{WN.SYSTEM_COPY##!=}
ZZZZ010201	6800	=   COMPUTE{W0.JOB_CNT+=1}
ZZZZ010201	6900	=   SET{WN.JOB_?W0.JOB_CNT?=WN.SYSTEM_COPY##}
ZZZZ010201	7000	=   SET{WN.JOB_KIND_?W0.JOB_CNT?='C##'};
ZZZZ010201	7100	REPEAT=
ZZZZ010201	7200	DATA={K}?&.DATA&SYSTEM_MENU0?
ZZZZ010201	7300	DATA={K}?&.DATA&SYSTEM_MENU1?
ZZZZ010201	7400	DATA={K}?&.DATA&SYSTEM_MENU2?
ZZZZ010201	7500	DATA={K}?&.DATA&SYSTEM_MENU3?
ZZZZ010201	7600	DATA={K}?&.DATA&SYSTEM_LANG?
ZZZZ010201	7700	DATA=   ?&.DATA&SYSTEM_PERMISSION?
ZZZZ010201	7800	DATA=   ?&.DATA&SYSTEM_PART?
ZZZZ010201	7900	DATA=   ?&.DATA&SYSTEM_TEST?
ZZZZ010201	8000	DATA=   ?&.DATA&SYSTEM_PROGRAM_KIND?
ZZZZ010201	8100	DATA=   ?&.DATA&SYSTEM_SECURITY?
ZZZZ010201	8200	REPEAT=5
ZZZZ010201	8300	DATA=   ?&.DATA&SYSTEM_COPY##?
ZZZZ010201	8400	REPEAT=
ZZZZ010201	8500	DATA=   ?&.DATA&SYSTEM_MENU?
ZZZZ010201	8600	DATA={KO}DATE{10,,D}
ZZZZ010201	8700	SELECT=COALESCE(Z_CHANGE,Z_ADD)
ZZZZ010201	8800	JA+TITLE=年月日
ZZZZ010201	8900	COPY=@ZZZZZZ_SQL
ZZZZ010201	9000	*END
ZZZZ010201	9100	*%BEGIN+=EXIT{0};
ZZZZ010202	100	MINUS=%CANCEL
ZZZZ010202	200	PROGRAM=,&X1,?_MM?_I_TIME_TABLE
ZZZZ010202	300	CONTROL=0,SCROLL
ZZZZ010202	400	BEGIN
ZZZZ010202	500	SET={,*}S_HHMM{4}
ZZZZ010202	600	=SET{_DATA@WHERE=' ?_CL?SYSTEM_HH?_C?SYSTEM_MIN?_CR?'
ZZZZ010202	700	=   +' LIKE ''?S_HHMM?%'''};
ZZZZ010202	800	JA+TITLE=時分
ZZZZ010202	900	SET={,*}S_JOBG{5}
ZZZZ010202	1000	=SET{_DATA@WHERE=
ZZZZ010202	1100	=   '?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1?_C?SYSTEM_MENU2?_CR?'
ZZZZ010202	1200	=   +' LIKE ''?S_JOBG?%'''};
ZZZZ010202	1300	JA+TITLE=ジョブグループ
ZZZZ010202	1400	SET={,*}COLOR{2}{,NO}
ZZZZ010202	1500	JA+TITLE=色表示
ZZZZ010202	1600	START
ZZZZ010202	1700	=SET{#ZZZZZZ_ARG_JOB=
ZZZZ010202	1800	=   SYSTEM_MENU0+SYSTEM_MENU1+SYSTEM_MENU2};
ZZZZ010202	1900	=SET{WN.O='O',#ZZZZZZ_ARG_BEGIN_ENTER='BEGIN_ENTER'};
ZZZZ010202	2000	DATA=   ?&.DATA&SYSTEM_TEST?
ZZZZ010202	2100	DATA={K}?&.DATA&SYSTEM_HH?
ZZZZ010202	2200	DATA={K}?&.DATA&SYSTEM_MIN?
ZZZZ010202	2300	DATA=   ?&.DATA&SYSTEM_MENU0?
ZZZZ010202	2400	DATA=   ?&.DATA&SYSTEM_MENU1?
ZZZZ010202	2500	DATA=   ?&.DATA&SYSTEM_MENU2?
ZZZZ010202	2600	DATA=   ?&.DATA&SYSTEM_TIMING?
ZZZZ010202	2700	DATA=   ?&.DATA&SYSTEM_BEGIN_END?
ZZZZ010202	2800	DATA=   ?&.DATA&SYSTEM_SHIFT?
ZZZZ010202	2900	DATA=   ?&.DATA&SYSTEM_DOC?
ZZZZ010202	3000	DATA={O}SYSTEM_DATE{10,,D}
ZZZZ010202	3100	SELECT=COALESCE(Z_CHANGE,Z_ADD)
ZZZZ010202	3200	JA+TITLE=年月日
ZZZZ010202	3300	END
ZZZZ010202	3400	=SET{#ZZZZZZ_ARG_BEGIN_ENTER=};
ZZZZ010202	3500	COPY=@ZZZZZZ_SQL
ZZZZ010203	100	PROGRAM=,&X1,?_MM?_I_MENU_TABLE
ZZZZ010203	200	INNER=&X2,?_MM?_I_PROGRAM_TABLE,,*
ZZZZ010203	300	JOIN_ON=X2.SYSTEM_JOB=?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010203	400	JOIN_ON=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010203	500	JOIN_ON=   AND ?_T?.SYSTEM_LANG='?_LANG?'
ZZZZ010203	600	CONTROL=0
ZZZZ010203	700	BEGIN
ZZZZ010203	800	=SET{WN.O='O'};
ZZZZ010203	900	SET={N,*}.?&.SET&SYSTEM_MENU?
ZZZZ010203	1000	SET={,*}FIND{65,1}
ZZZZ010203	1100	JA+TITLE=    文字列１
ZZZZ010203	1200	=SQL_SET{WN.FD}{SELECT REPLACE('?FIND?','''','''''')
ZZZZ010203	1300	=   ?_FROM_DUAL?};
ZZZZ010203	1400	=SET{_DATA@WHERE=_FIND(X2.SYSTEM_PROGRAM;"WN.FD")+'>0'};
ZZZZ010203	1500	SET={,*}FIND2{}
ZZZZ010203	1600	JA+TITLE=AND 文字列２
ZZZZ010203	1700	=SET{_DATA@WHERE=};IF{FIND2=}EXIT{};
ZZZZ010203	1800	=SQL_SET{WN.FD}{SELECT REPLACE('?FIND2?','''','''''')
ZZZZ010203	1900	=   ?_FROM_DUAL?};
ZZZZ010203	2000	=SET{WN.FIND=_FIND(XX2.SYSTEM_PROGRAM;"WN.FD")};
ZZZZ010203	2100	=SET{_DATA@WHERE='EXISTS (SELECT SYSTEM_JOB FROM'
ZZZZ010203	2200	=   +' ?&X2.TABLE? XX2 WHERE '
ZZZZ010203	2300	=   +' X2.?_NE&XX2.SYSTEM_JOB? AND'
ZZZZ010203	2400	=   +' ?WN.FIND?'
ZZZZ010203	2500	=   +' >0 AND XX2.Z_CANCEL='' '''
ZZZZ010203	2600	=   +' AND XX2.SYSTEM_PROGRAM NOT LIKE ''*%'''
ZZZZ010203	2700	=   +' AND XX2.?_LR&SX2.SYSTEM_JOB?)'};
ZZZZ010203	2800	SET={,}SX2.?&X2.SET&SYSTEM_JOB?
ZZZZ010203	2900	SET={}.?&.SET&SYSTEM_PERMISSION?
ZZZZ010203	3000	SET={}.?&.SET&SYSTEM_PART?
ZZZZ010203	3100	SET={,*}COMMENT{3}{,YES}
ZZZZ010203	3200	=IF{_DATA=}
ZZZZ010203	3201	=   SET{_DATA@WHERE='X2.SYSTEM_PROGRAM NOT LIKE ''*%'''};
ZZZZ010203	3300	SET={,*}COLOR{2}{,NO}
ZZZZ010203	3400	START
ZZZZ010203	3500	*SET{WN.SYSTEM_JOB_1=X2.SYSTEM_JOB,#FIND=FIND,#FF='FF'};
ZZZZ010203	3600	*SET{W0.SYSTEM_JOB_CNT=1,WN.SYSTEM_JOB_KIND_1=' 0'};
ZZZZ010203	3602	=SET{#FIND=FIND,#FF='FF'};
ZZZZ010203	3610	=SET{W0.JOB_CNT=1,WN.JOB_KIND_1=' 0',WN.JOB_1=X2.SYSTEM_JOB};
ZZZZ010203	3700	DATA={AG}X2.?&X2.DATA&SYSTEM_JOB?
ZZZZ010203	3800	DATA={G}?&.DATA&SYSTEM_PERMISSION?
ZZZZ010203	3900	DATA={G}?&.DATA&SYSTEM_PART?
ZZZZ010203	4000	DATA={}X2.?&X2.DATA&SYSTEM_SEQ?
ZZZZ010203	4100	JA+TITLE=件数
ZZZZ010203	4200	JA-TITLE=COUNT
ZZZZ010203	4300	SELECT=COUNT(SYSTEM_JOB)
ZZZZ010203	4400	DATA={G}?&.DATA&SYSTEM_TEST?
ZZZZ010203	4500	DATA={G}?&.DATA&SYSTEM_MENU?
ZZZZ010203	4600	DATA={NG}?&.DATA&SYSTEM_COPY1?
ZZZZ010203	4700	DATA={NG}?&.DATA&SYSTEM_COPY2?
ZZZZ010203	4800	DATA={NG}?&.DATA&SYSTEM_COPY3?
ZZZZ010203	4900	DATA={NG}?&.DATA&SYSTEM_COPY4?
ZZZZ010203	5000	DATA={NG}?&.DATA&SYSTEM_COPY5?
ZZZZ010203	5100	COPY=@ZZZZZZ_SQL
ZZZZ010204	100	PROGRAM=,&X1,?_MM?_M_ZZZZ_OBJECT_VIEW
ZZZZ010204	200	CONTROL=0
ZZZZ010204	300	DICTIONARY=SYSTEM_PERMISSION
ZZZZ010204	400	BEGIN
ZZZZ010204	500	=SET{.SYSTEM_WORK='MAST',WN.M_W1='M',WN.M_W2='W'};
ZZZZ010204	600	%TEST-=SET{W.DB=_MM_REAL};
ZZZZ010204	700	%TEST+=SET{W.DB=_MM_TEST};
ZZZZ010204	800	=SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010204	900	=SQL_REPEAT{WC.SYSTEM_PERMISSION}
ZZZZ010204	1000	={SELECT SYSTEM_KEY2 FROM ?_MM?_ETC_TABLE
ZZZZ010204	1100	=   WHERE SYSTEM_KEY1='ZZZZZZ_PERMISSION'
ZZZZ010204	1110	=   AND Z_CANCEL=' ' ORDER BY 1};
ZZZZ010204	1200	=SET{W0.PERMISION_COUNT=_SQL_REPEAT_COUNT};
ZZZZ010204	1300	SET={,*}.?&DATA&SYSTEM_PERMISSION?
ZZZZ010204	1400	CHECK2=SELECT SYSTEM_KEY2,SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ010204	1500	CHECK2=   WHERE SYSTEM_KEY1='ZZZZZZ_PERMISSION'
ZZZZ010204	1600	CHECK2=   AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010204	1700	SET=.?&.SET&SYSTEM_NAME?
ZZZZ010204	1800	SET={,*}.?&.DATA&SYSTEM_WORK?
ZZZZ010204	1810	=SET{WC.W=.SYSTEM_WORK[1;1]};
ZZZZ010204	1900	DATA={K}?&.DATA&SYSTEM_NAME?
ZZZZ010204	2000	DATA=?&.DATA&SYSTEM_WORK?
ZZZZ010204	2100	DATA=?&.DATA&SYSTEM_REAL?
ZZZZ010204	2200	DATA=?&.DATA&SYSTEM_KIND?
ZZZZ010204	2300	REPEAT=_SELECT_COUNT
ZZZZ010204	2400	SQL=?_SELECT##?
ZZZZ010204	2500	REPEAT=
ZZZZ010204	2600	SQL=   FROM
ZZZZ010204	2610	SQL=?W.DB?_?WC.W?_?.SYSTEM_PERMISSION?_OBJECT_VIEW
ZZZZ010204	2700	SQL=   X1
ZZZZ010204	2800	REPEAT=_WHERE_COUNT
ZZZZ010204	2900	SQL=   ?_WHERE##?
ZZZZ010204	3000	REPEAT=_ORDER_COUNT
ZZZZ010204	3100	SQL=   ?_ORDER##?
ZZZZ010204	3200	REPEAT=
ZZZZ010204	3300	*############################################################
ZZZZ010204	3400	PROGRAM=
ZZZZ010204	3500	CONTROL=SQL_DBO
ZZZZ010204	3600	BEGIN
ZZZZ010204	3700	SET={O}.=?$&.SET&SYSTEM_NAME?
ZZZZ010204	3800	DATA=X2.?$&.DATA&SYSTEM_NAME?
ZZZZ010204	3900	REPEAT=$W0.PERMISION_COUNT
ZZZZ010204	4000	REPEAT2=2 (M,W)
ZZZZ010204	4100	1-|$1-SQL=UNION ALL
ZZZZ010204	4200	SQL=SELECT SYSTEM_NAME FROM
ZZZZ010204	4300	SQL=?$W.DB?_?$WN.M_W$$?_?$WC.SYSTEM_PERMISSION##?_OBJECT_VIEW
ZZZZ010204	4400	SQL=   WHERE ?_VRLG&.SYSTEM_NAME? AND 0<
ZZZZ010204	4500	SQL=   ?_FIND(SYSTEM_TEXT;".SYSTEM_NAME")?
ZZZZ010204	4600	SQL=   GROUP BY SYSTEM_NAME
ZZZZ010204	4700	REPEAT=
ZZZZ010204	4800	SQL=   ORDER BY 1
ZZZZ010205	100	*OUTPUT
ZZZZ010206	100	PROGRAM=,&X1,?_MM?_I_TABLE_TABLE
ZZZZ010206	200	CONTROL=0,SCROLL
ZZZZ010206	300	DICTIONARY=SYSTEM_WORK,SYSTEM_REAL,SYSTEM_KIND
ZZZZ010206	400	DICTIONARY=SYSTEM_GRANT,SYSTEM_PERMISSION
ZZZZ010206	500	BEGIN
ZZZZ010206	600	=SET{SCROLL='SCROLL',.SYSTEM_WORK='MAST'};
ZZZZ010206	700	%TEST-=SET{WN.DB=_M_REAL};
ZZZZ010206	800	%TEST+=SET{WN.DB=_M_TEST};
ZZZZ010206	900	=SET{WN.DBS=WN.DB+'ZZ_'};
ZZZZ010206	1000	=SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010206	1100	SET={,}.?&DATA&SYSTEM_PERMISSION?
ZZZZ010206	1200	CHECK2=SELECT SYSTEM_KEY2,SYSTEM_ETC FROM
ZZZZ010206	1300	CHECK2=?_MM?_ETC_TABLE WHERE SYSTEM_KEY1='ZZZZZZ_PERMISSION'
ZZZZ010206	1400	CHECK2=AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010206	1500	SET=.?&.SET&SYSTEM_NAME?
ZZZZ010206	1600	SET=.?&DATA&SYSTEM_WORK?
ZZZZ010206	1700	SET=Z{3,}{,YES}Z_...DISPLAY
ZZZZ010206	1800	JA+TITLE=Z_...表示
ZZZZ010206	1900	SET=SCROLL{6,}{,SCROLL}SCROLL
ZZZZ010206	2000	SET=.?&.SET&SYSTEM_COMMENT1?
ZZZZ010206	2100	=SET{WN.DOC=,WN.DOC2=};
ZZZZ010206	2200	=IF{SYSTEM_COMMENT1!=}IF{.SYSTEM_WORK='MAST'}
ZZZZ010206	2300	= SET{WN.DOC=
ZZZZ010206	2310	=    'AND (SYSTEM_COMMENT1 LIKE ''%?SYSTEM_COMMENT1?%'''
ZZZZ010206	2400	=   +' OR .SYSTEM_COMMENT12 LIKE ''%?.SYSTEM_COMMENT1?%'')'
ZZZZ010206	2500	=   ,WN.DOC2='AND SQL LIKE ''%?.SYSTEM_COMMENT1?%'''};
ZZZZ010206	2510	=SET{WC.WORK1=.SYSTEM_WORK[1;1]};
ZZZZ010206	2600	DATA=X0.?&.DATA&SYSTEM_NAME?
ZZZZ010206	2700	DATA=X0.?&DATA&SYSTEM_WORK?
ZZZZ010206	2800	DATA=X0.?&DATA&SYSTEM_REAL?
ZZZZ010206	2900	DATA={A}X0.?&DATA&SYSTEM_KIND?
ZZZZ010206	3000	DATA=?&.DATA&SYSTEM_PUBLIC?
ZZZZ010206	3100	DATA=?&.DATA&SYSTEM_COMMENT1?
ZZZZ010206	3200	DATA=?&.DATA&SYSTEM_COMMENT2?
ZZZZ010206	3300	REPEAT=_SELECT_COUNT
ZZZZ010206	3400	SQL=?_SELECT##?
ZZZZ010206	3500	REPEAT=
ZZZZ010206	3600	SQL= FROM ?WN.DBS??WC.WORK1?_?.SYSTEM_PERMISSION?_OBJECT_VIEW
ZZZZ010206	3700	SQL=   X0 LEFT OUTER JOIN  ?_TABLE? ?_T?
ZZZZ010206	3800	SQL=   ON  RTRIM(X0.SYSTEM_NAME)=RTRIM(?_T?.SYSTEM_NAME)
ZZZZ010206	3900	SQL=   WHERE  RTRIM(X0.SYSTEM_NAME)
ZZZZ010206	3910	SQL=   LIKE '?.SYSTEM_NAME?%' ?WN.DOC?
ZZZZ010206	4000	SQL=   AND X0.SYSTEM_KIND IN('TABLE','VIEW')
ZZZZ010206	4100	REPEAT=_ORDER_COUNT
ZZZZ010206	4200	SQL=   ?_ORDER##?
ZZZZ010206	4300	REPEAT=
ZZZZ010206	4400	*############################################################
ZZZZ010206	4500	PROGRAM=,&X1,?_MM?_I_COLUMN_TABLE
ZZZZ010206	4600	TABLE=&X2,?_MM?_I_DICTIONARY_TABLE
ZZZZ010206	4700	CONTROL=?$SCROLL?
ZZZZ010206	4800	BEGIN
ZZZZ010206	4810	=SET{WC.WORK1=$.SYSTEM_WORK[1;1]};
ZZZZ010206	4900	=SET{WN.Z=};
ZZZZ010206	5000	=IF{$Z=}SET{WN.Z=
ZZZZ010206	5100	*==' AND ?_SUBSTR?(RTRIM(X0.DATA_NAME)?_FROM?1?_FOR?2)'
ZZZZ010206	5200	*  =' AND ?_SUBSTR(X0.DATA_NAME;1;2)?'
ZZZZ010206	5300	*  +' <>''Z_'''};
ZZZZ010206	5320	=   ' AND X0.SYSTEM_DATA_NAME NOT IN(?_Z_ALL_NAME_VALUE?)'};
ZZZZ010206	5400	SET={O}$X0.?$&SET&SYSTEM_KIND?
ZZZZ010206	5500	SET={O}$X0.?$&SET&SYSTEM_REAL?
ZZZZ010206	5600	SET={O}$X0.?$&SET&SYSTEM_WORK?
ZZZZ010206	5700	SET={O}$.?$&SET&SYSTEM_PERMISSION?
ZZZZ010206	5800	SET={O}$X0.?$&.SET&SYSTEM_NAME?
ZZZZ010206	5900	DATA=X0.?&.DATA&SYSTEM_DATA_NAME?
ZZZZ010206	6000	DATA=X0.?&.DATA&SYSTEM_DEFAULT_TYPE?
ZZZZ010206	6100	DATA=X0.?&.DATA&SYSTEM_DEFAULT_LENGTH1?
ZZZZ010206	6200	DATA=X0.?&.DATA&SYSTEM_DEFAULT_LENGTH2?
ZZZZ010206	6300	DATA=X0.?&.DATA&SYSTEM_IX0?
ZZZZ010206	6400	SELECT=(SELECT I.SYSTEM_NO FROM
ZZZZ010206	6500	SELECT=   ?$WN.DBS??WC.WORK1?_?.SYSTEM_PERMISSION?_INDEX_VIEW
ZZZZ010206	6600	SELECT=   I WHERE RTRIM(I.SYSTEM_NAME)='?X0.SYSTEM_NAME?'
ZZZZ010206	6700	SELECT=   AND SYSTEM_IX='0'
ZZZZ010206	6800	SELECT=   AND RTRIM(I.SYSTEM_DATA_NAME)=X0.SYSTEM_DATA_NAME)
ZZZZ010206	6900	DATA=?&.DATA&SYSTEM_COMMENT1?
ZZZZ010206	7000	DATA=?&.DATA&SYSTEM_COMMENT2?
ZZZZ010206	7100	DATA={}X2.?&X2.DATA&SYSTEM_TYPE1?
ZZZZ010206	7200	DATA=  X2.?&X2.DATA&SYSTEM_TYPE2?
ZZZZ010206	7300	DATA=   X2.?&X2.DATA&SYSTEM_LENGTH1?
ZZZZ010206	7400	DATA=   X2.?&X2.DATA&SYSTEM_LENGTH2?
ZZZZ010206	7500	DATA=   X2.?&X2.DATA&SYSTEM_CHECK?
ZZZZ010206	7600	DATA=   X2.?&X2.DATA&SYSTEM_CHECK61?
ZZZZ010206	7700	DATA=   X2.?&X2.DATA&SYSTEM_CHECK62?
ZZZZ010206	7800	DATA=   X2.?&X2.DATA&SYSTEM_CHECK63?
ZZZZ010206	7900	DATA=   X2.?&X2.DATA&SYSTEM_CHECK64?
ZZZZ010206	8000	DATA=   X2.?&X2.DATA&SYSTEM_CHECK65?
ZZZZ010206	8100	DATA=   X2.?&X2.DATA&SYSTEM_CHECK66?
ZZZZ010206	8200	DATA=   X2.?&X2.DATA&SYSTEM_MESSAGE?
ZZZZ010206	8300	DATA={}X2.?&.DATA&SYSTEM_COMMENT1?
ZZZZ010206	8400	DATA={}X2.?&.DATA&SYSTEM_COMMENT2?
ZZZZ010206	8500	REPEAT=_DATA_COUNT
ZZZZ010206	8600	SQL=?_SELECT##?
ZZZZ010206	8700	REPEAT=
ZZZZ010206	8800	SQL=   FROM
ZZZZ010206	8900	SQL=   ?$WN.DBS??WC.WORK1?_?.SYSTEM_PERMISSION?_COLUMN_VIEW
ZZZZ010206	9000	SQL=   X0 LEFT OUTER JOIN ?_TABLE? ?_T?
ZZZZ010206	9100	SQL=   ON RTRIM(X0.SYSTEM_NAME)= RTRIM(?_T?.SYSTEM_NAME)
ZZZZ010206	9200	SQL=   AND RTRIM(?_T?.SYSTEM_DATA_NAME)
ZZZZ010206	9210	SQL=   =RTRIM(X0.SYSTEM_DATA_NAME)
ZZZZ010206	9300	SQL=   LEFT OUTER JOIN ?&X2.TABLE? X2
ZZZZ010206	9400	SQL=   ON RTRIM(X0.SYSTEM_DATA_NAME)
ZZZZ010206	9401	SQL=   = RTRIM(X2.SYSTEM_DATA_NAME)
ZZZZ010206	9410	SQL=   AND RTRIM(X2.SYSTEM_PERMISSION)='?.SYSTEM_PERMISSION?'
ZZZZ010206	9500	SQL=   AND X2.SYSTEM_LANG='?_LANG?'
ZZZZ010206	9600	SQL=   WHERE  RTRIM(X0.SYSTEM_KIND)='?X0.SYSTEM_KIND?'
ZZZZ010206	9700	SQL=   AND  RTRIM(X0.SYSTEM_NAME)='?X0.SYSTEM_NAME?'
ZZZZ010206	9800	SQL=   ?WN.Z?
ZZZZ010206	9900	SQL=   ORDER BY X0.SYSTEM_SEQ
ZZZZ010207	100	PROGRAM=
ZZZZ010207	200	DICTIONARY=SYSTEM_REAL,SYSTEM_WORK
ZZZZ010207	210	DICTIONARY=SYSTEM_NAME,SYSTEM_PERMISSION
ZZZZ010207	300	CONTROL=0
ZZZZ010207	400	BEGIN
ZZZZ010207	500	=SET{.SYSTEM_WORK='MAST'};
ZZZZ010207	600	%TEST+=SET{WN.DB=_MM_TEST};
ZZZZ010207	700	%TEST-=SET{WN.DB=_MM_REAL};
ZZZZ010207	800	=SET{WN.DBS=WN.DB+'_'};
ZZZZ010207	900	=SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010207	1000	SET={,}.?&DATA&SYSTEM_PERMISSION?
ZZZZ010207	1100	CHECK2=SELECT SYSTEM_KEY2,SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ010207	1200	CHECK2=   WHERE SYSTEM_KEY1='ZZZZZZ_PERMISSION'
ZZZZ010207	1300	CHECK2=   AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010207	1400	SET=.?&SET&SYSTEM_NAME?
ZZZZ010207	1500	SET=.?&DATA&SYSTEM_WORK?
ZZZZ010207	1510	=SET{WC.WORK1=.SYSTEM_WORK[1;1]};
ZZZZ010207	1600	DATA=X0.?&DATA&SYSTEM_NAME?
ZZZZ010207	1700	DATA=X0.?&DATA&SYSTEM_WORK?
ZZZZ010207	1800	DATA=X0.?&DATA&SYSTEM_REAL?
ZZZZ010207	1900	REPEAT=_SELECT_COUNT
ZZZZ010207	2000	SQL=?_SELECT##?
ZZZZ010207	2100	REPEAT=
ZZZZ010207	2200	SQL= FROM ?WN.DBS??WC.WORK1?_?.SYSTEM_PERMISSION?_OBJECT_VIEW
ZZZZ010207	2300	SQL= X0 WHERE X0.SYSTEM_KIND='TABLE'
ZZZZ010207	2400	SQL= AND X0.?_LR&.SYSTEM_NAME?
ZZZZ010207	2500	REPEAT=_ORDER_COUNT
ZZZZ010207	2600	SQL=   ?_ORDER##?
ZZZZ010207	2700	REPEAT=
ZZZZ010207	2800	PROGRAM=OUTPUT,&X1,?_MM?_I_COLUMN_TABLE
ZZZZ010207	2900	END
ZZZZ010207	3000	=DROP_TABLE{?_WORK_TABLE?A};
ZZZZ010207	3100	SET={O}$X0.?$&SET&SYSTEM_REAL?
ZZZZ010207	3110	=SET{WC.WORK1=.SYSTEM_WORK[1;1]};
ZZZZ010207	3200	=DROP_TABLE{?_WORK_TABLE?A};
ZZZZ010207	3300	=COPY_TABLE{?_WORK_TABLE?A,
ZZZZ010207	3400	=  ?$WN.DBS??WC.WORK1?_?.SYSTEM_PERMISSION?_INDEX_VIEW,
ZZZZ010207	3500	=  WHERE I.?_VRE&X0.SYSTEM_NAME?};
ZZZZ010207	3600	SET={O}$X0.?$&SET&SYSTEM_WORK?
ZZZZ010207	3700	SET={O}$.?$&SET&SYSTEM_PERMISSION?
ZZZZ010207	3800	SET={O}$X0.?$&SET&SYSTEM_NAME?
ZZZZ010207	3900	DATA={K}X0.?&.DATA&SYSTEM_DATA_NAME?
ZZZZ010207	4000	REPEAT=10
ZZZZ010207	4100	DATA=I#-{1}#-
ZZZZ010207	4200	REPEAT=
ZZZZ010207	4300	SQL=SELECT ?_1?
ZZZZ010207	4400	REPEAT=10
ZZZZ010207	4500	SQL=   ,(SELECT I.SYSTEM_NO FROM ?_WORK_TABLE?A I
ZZZZ010207	4600	SQL=   WHERE I.?_NE&X0.SYSTEM_DATA_NAME?
ZZZZ010207	4700	SQL=   AND I.SYSTEM_IX='#-')
ZZZZ010207	4800	REPEAT=
ZZZZ010207	4900	SQL=   FROM
ZZZZ010207	5000	SQL=   ?$WN.DBS??WC.WORK1?_?.SYSTEM_PERMISSION?_COLUMN_VIEW
ZZZZ010207	5100	SQL=   X0 WHERE ?_VE&X0.SYSTEM_NAME?
ZZZZ010207	5200	*QL=   AND ?_SUBSTR(X0.SYSTEM_DATA_NAME;1;2)?<>'Z_'
ZZZZ010207	5220	SQL=   AND X0.SYSTEM_DATA_NAME NOT IN (?_Z_ALL_NAME_VALUE?)
ZZZZ010207	5300	SQL=    ORDER BY X0.SYSTEM_SEQ
ZZZZ010208	100	PROGRAM=OUTPUT
ZZZZ010208	200	DICTIONARY=SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK
ZZZZ010208	300	DICTIONARY=SYSTEM_NAME,SYSTEM_PERMISSION
ZZZZ010208	400	CONTROL=0,SQL_DBO
ZZZZ010208	500	BEGIN_END
ZZZZ010208	600	=DROP_TABLE{?_WORK_TABLE?A};
ZZZZ010208	700	BEGIN
ZZZZ010208	800	=SET{.SYSTEM_WORK='MAST'};
ZZZZ010208	900	%TEST+=SET{WN.DB=_MM_TEST};
ZZZZ010208	1000	%TEST-=SET{WN.DB=_MM_REAL};
ZZZZ010208	1100	=SET{WN.DBS=WN.DB+'_'};
ZZZZ010208	1200	=CREATE_TABLE2{?_WORK_TABLE?A,SEQ,INT}{SQL_X,80};
ZZZZ010208	1300	=SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010208	1400	SET={,}.?&DATA&SYSTEM_PERMISSION?
ZZZZ010208	1500	CHECK2=SELECT SYSTEM_KEY2,SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ010208	1600	CHECK2=   WHERE SYSTEM_KEY1='ZZZZZZ_PERMISSION'
ZZZZ010208	1700	CHECK2=   AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010208	1800	SET=.?&SET&SYSTEM_NAME?
ZZZZ010208	1900	SET=.?&DATA&SYSTEM_WORK?
ZZZZ010208	1910	=SET{WC.WORK1=_DATA[1;1]};
ZZZZ010208	2000	DATA=X0.?&DATA&SYSTEM_NAME?
ZZZZ010208	2100	DATA=X0.?&DATA&SYSTEM_WORK?
ZZZZ010208	2200	DATA=X0.?&DATA&SYSTEM_REAL?
ZZZZ010208	2300	*ATA=?&DATA&PERMISSION?
ZZZZ010208	2400	DATA=X0.?&DATA&SYSTEM_KIND?
ZZZZ010208	2500	REPEAT=_SELECT_COUNT
ZZZZ010208	2600	SQL=?_SELECT##?
ZZZZ010208	2700	REPEAT=
ZZZZ010208	2800	SQL= FROM ?WN.DBS??WC.WORK1?_?.SYSTEM_PERMISSION?_OBJECT_VIEW
ZZZZ010208	2900	SQL= X0 WHERE ?_LR&.SYSTEM_NAME?
ZZZZ010208	3000	SQL= AND SYSTEM_KIND<>'TABLE'
ZZZZ010208	3100	REPEAT=_ORDER_COUNT
ZZZZ010208	3200	SQL=   ?_ORDER##?
ZZZZ010208	3300	REPEAT=
ZZZZ010208	3400	PROGRAM=OUTPUT
ZZZZ010208	3500	SET={O}$X0.?$&SET&SYSTEM_KIND?
ZZZZ010208	3600	SET={O}$X0.?$&SET&SYSTEM_REAL?
ZZZZ010208	3700	SET={O}$X0.?$&SET&SYSTEM_WORK?
ZZZZ010208	3710	=SET{WC.WORK1=_DATA[1;1]};
ZZZZ010208	3800	SET={O}$.?$&SET&SYSTEM_PERMISSION?
ZZZZ010208	3900	SET={O}$X0.?$&SET&SYSTEM_NAME?
ZZZZ010208	4000	=SQL{DELETE FROM ?_WORK_TABLE?A};
ZZZZ010208	4100	=DBO_SQL1{SELECT SYSTEM_TEXT FROM
ZZZZ010208	4110	*SQL1{SELECT SYSTEM_TEXT FROM
ZZZZ010208	4200	=   ?$WN.DBS??WC.WORK1?_?.SYSTEM_PERMISSION?_OBJECT_VIEW
ZZZZ010208	4300	=   WHERE ?_VRE&X0.SYSTEM_NAME?
ZZZZ010208	4400	=   AND ?_VRE&X0.SYSTEM_KIND?};
ZZZZ010208	4500	=SET{W0.SEQ=1};
ZZZZ010208	4600	=SQL1_NEXT:SQL1_NEXT{WW}EXIT{};
ZZZZ010208	4700	=SPLIT_FORM{WS}{WW}{80};SET{W0.C=1};
ZZZZ010208	4800	=LOOP:IF{W0.C>_SPLIT_FORM_COUNT}BACK{SQL1_NEXT};
ZZZZ010208	4900	=SET{_SPACE=WS?W0.C?,WS=_SPACE};
ZZZZ010208	5000	=SQL{INSERT INTO ?_WORK_TABLE?A(SEQ,SQL_X)
ZZZZ010208	5100	=   VALUES(?W0.SEQ?,'?WS?')};
ZZZZ010208	5200	=COMPUTE{W0.SEQ+=1,W0.C+=1};BACK{LOOP};
ZZZZ010208	5300	DATA=SQL_X{80,,/}SQL
ZZZZ010208	5400	SQL=SELECT ?_DATA_ALL_SQL?
ZZZZ010208	5410	SQL=   FROM ?_WORK_TABLE?A ?_T? ORDER BY SEQ
ZZZZ010209	100	PROGRAM=OUTPUT
ZZZZ010209	200	TABLE=&X2,?_MM?_I_DICTIONARY_TABLE
ZZZZ010209	300	TABLE=&X3,?_MM?_ETC_TABLE
ZZZZ010209	400	DICTIONARY=SYSTEM_DATA_NAME,SYSTEM_WORK,SYSTEM_PERMISSION
ZZZZ010209	500	CONTROL=0
ZZZZ010209	600	COLOR
ZZZZ010209	700	=IF{UNEQUAL_COUNT>0}SET{UNEQUAL_COUNT@COLOR='R'};
ZZZZ010209	800	BEGIN
ZZZZ010209	900	=SET{.SYSTEM_WORK='MAST'};
ZZZZ010209	1000	%TEST+=SET{WN.DB=_MM_TEST};
ZZZZ010209	1100	%TEST-=SET{WN.DB=_MM_REAL};
ZZZZ010209	1200	=SET{WN.DBS=WN.DB+'_'};
ZZZZ010209	1300	SET={,*&X3}.?&DATA&SYSTEM_PERMISSION?
ZZZZ010209	1400	SET=.?&SET&SYSTEM_DATA_NAME?
ZZZZ010209	1500	SET=.?&DATA&SYSTEM_WORK?
ZZZZ010209	1510	=SET{WC.WORK1=_DATA[1;1]};
ZZZZ010209	1600	SET=UNEQUAL{3,}{,YES}
ZZZZ010209	1700	=SET{WN.UNEQUAL='='};IF{_DATA='YES'}SET{WN.UNEQUAL=};
ZZZZ010209	1800	DATA={G}?&DATA&SYSTEM_DATA_NAME?
ZZZZ010209	1900	DATA=UNEQUAL_COUNT{5,,+}UNEQUAL_COUNT
ZZZZ010209	2000	DATA=EQUAL_COUNT{5,,+}EQUAL_COUNT
ZZZZ010209	2100	SQL=SELECT DISTINCT ?_T?.SYSTEM_DATA_NAME,
ZZZZ010209	2200	NAME=UNEQUAL
ZZZZ010209	2300	SQL=   SUM(
ZZZZ010209	2400	NAME2=CASE
ZZZZ010209	2500	SQL=   CASE WHEN(X2.?_NE&SYSTEM_DEFAULT_TYPE?
ZZZZ010209	2600	O+SQL=   OR X2.SYSTEM_DEFAULT_TYPE='VARCHAR'
ZZZZ010209	2700	O+SQL=   AND ?_T?.SYSTEM_DEFAULT_TYPE='VARCHAR2'
ZZZZ010209	2800	O+SQL=   OR X2.SYSTEM_DEFAULT_TYPE='NVARCHAR'
ZZZZ010209	2900	O+SQL=   AND ?_T?.SYSTEM_DEFAULT_TYPE='NVARCHAR2'
ZZZZ010209	3000	M-SQL=   OR X2.SYSTEM_DEFAULT_TYPE='DATETIME'
ZZZZ010209	3100	O+SQL=   AND ?_T?.SYSTEM_DEFAULT_TYPE='SYSDATE'
ZZZZ010209	3200	M-O-SQL=   AND ?_T?.SYSTEM_DEFAULT_TYPE='TIMESTAMP'
ZZZZ010209	3300	M-O-SQL=   OR X2.SYSTEM_DEFAULT_TYPE='NCHAR'
ZZZZ010209	3400	M-O-SQL=   AND ?_T?.SYSTEM_DEFAULT_TYPE='CHAR'
ZZZZ010209	3500	M-O-SQL=   OR X2.SYSTEM_DEFAULT_TYPE='NVARCHAR'
ZZZZ010209	3600	M-O-SQL=   AND ?_T?.SYSTEM_DEFAULT_TYPE='VARCHAR'
ZZZZ010209	3700	SQL=   )AND X2.?_NE&SYSTEM_DEFAULT_LENGTH1?
ZZZZ010209	3800	SQL=   AND(X2.?_NE&SYSTEM_DEFAULT_LENGTH2?
ZZZZ010209	3900	SQL=   OR X2.SYSTEM_DEFAULT_TYPE IS NULL)THEN
ZZZZ010209	4000	NAME2=
ZZZZ010209	4100	SQL=   0 ELSE 1 END)
ZZZZ010209	4200	NAME=
ZZZZ010209	4300	SQL=   ,SUM(
ZZZZ010209	4400	COPY=CASE
ZZZZ010209	4500	SQL=   1 ELSE 0 END)
ZZZZ010209	4600	NAME=TABLES
ZZZZ010209	4700	SQL= FROM ?WN.DBS??WC.WORK1?_?.SYSTEM_PERMISSION?_COLUMN_VIEW
ZZZZ010209	4800	SQL= X1 LEFT OUTER JOIN ?_MM?_I_DICTIONARY_TABLE X2
ZZZZ010209	4900	*QL= ON X2.?_VRE&.SYSTEM_PERMISSION?
ZZZZ010209	4910	SQL= ON  X2.?_NE&.SYSTEM_DATA_NAME?
ZZZZ010209	5000	SQL= AND X2.SYSTEM_LANG='?_LANG_SYSTEM?'
ZZZZ010209	5100	NAME=
ZZZZ010209	5200	*SQL=WHERE .SYSTEM_DATA_NAME LIKE '?SYSTEM_DATA_NAME?%'
ZZZZ010209	5300	SQL=   WHERE ?_L&.SYSTEM_DATA_NAME?
ZZZZ010209	5310	SQL=   AND X1.SYSTEM_DATA_NAME NOT IN(?_Z_ALL_NAME_VALUE?)
ZZZZ010209	5320	SQL=   AND X1.SYSTEM_KIND='TABLE'
ZZZZ010209	5400	REPEAT=_GROUP_COUNT
ZZZZ010209	5500	SQL=   ?_GROUP##?
ZZZZ010209	5600	REPEAT=
ZZZZ010209	5700	SQL=   HAVING
ZZZZ010209	5800	COPY=UNEQUAL
ZZZZ010209	5900	SQL=   >?WN.UNEQUAL?0 ORDER BY 1
ZZZZ010209	6000	PROGRAM=OUTPUT
ZZZZ010209	6100	TABLE=&X2,?_MM?_I_DICTIONARY_TABLE
ZZZZ010209	6200	DICTIONARY=SYSTEM_REAL,SYSTEM_WORK
ZZZZ010209	6210	DICTIONARY=SYSTEM_PERMISSION,SYSTEM_NAME
ZZZZ010209	6300	CONTROL=SCROLL
ZZZZ010209	6400	=SET{WN.DBS=$WN.DBS,.SYSTEM_WORK=$.SYSTEM_WORK};
ZZZZ010209	6500	COLOR
ZZZZ010209	6600	=IF{UNEQUAL_COUNT>0}SET{SYSTEM_DEFAULT_TYPE@COLOR='R'
ZZZZ010209	6700	=   ,SYSTEM_DEFAULT_LENGTH1@COLOR='R'
ZZZZ010209	6800	=   ,SYSTEM_DEFAULT_LENGTH2@COLOR='R'};
ZZZZ010209	6900	SET={O}.=?&X2.DATA&SYSTEM_DATA_NAME?
ZZZZ010209	7000	SET={O}$.?&DATA&SYSTEM_PERMISSION?
ZZZZ010209	7100	SET={O}$.?&DATA&SYSTEM_WORK?
ZZZZ010209	7200	DATA=?&DATA&SYSTEM_REAL?
ZZZZ010209	7300	*ATA=.?&DATA&.SYSTEM_WORK?
ZZZZ010209	7400	*ATA=?&DATA&.SYSTEM_PERMISSION?
ZZZZ010209	7500	DATA=?&DATA&SYSTEM_NAME?
ZZZZ010209	7600	DATA=?&X2.DATA&SYSTEM_DEFAULT_TYPE?
ZZZZ010209	7700	DATA=?&X2.DATA&SYSTEM_DEFAULT_LENGTH1?
ZZZZ010209	7800	DATA=?&X2.DATA&SYSTEM_DEFAULT_LENGTH2?
ZZZZ010209	7900	DATA=X2.?&X2.DATA&SYSTEM_DEFAULT_TYPE?
ZZZZ010209	8000	DATA=X2.?&X2.DATA&SYSTEM_DEFAULT_LENGTH1?
ZZZZ010209	8100	DATA=X2.?&X2.DATA&SYSTEM_DEFAULT_LENGTH2?
ZZZZ010209	8200	DATA={N}UNEQUAL_COUNT{5,,+}
ZZZZ010209	8300	REPEAT=_SELECT_COUNT-1
ZZZZ010209	8400	SQL=?_SELECT##?
ZZZZ010209	8500	REPEAT=
ZZZZ010209	8600	SQL=   ,
ZZZZ010209	8700	COPY=CASE
ZZZZ010209	8800	SQL=   0 ELSE 1 END
ZZZZ010209	8900	COPY=TABLES
ZZZZ010209	9000	*QL=  WHERE ?_VRE&.SYSTEM_DATA_NAME?
ZZZZ010209	9100	*QL=  WHERE X2.?_VRE&.SYSTEM_PERMISSION?
ZZZZ010209	9110	SQL=  WHERE ?_VE&.SYSTEM_DATA_NAME? AND
ZZZZ010209	9200	SQL=  (X2.SYSTEM_LANG='?_LANG?' OR X2.SYSTEM_LANG IS NULL)
ZZZZ010209	9300	REPEAT=_ORDER_COUNT
ZZZZ010209	9400	SQL=   ?_ORDER##?
ZZZZ010209	9500	REPEAT=
ZZZZ010211	100	PROGRAM=INPUT
ZZZZ010211	200	DICTIONARY=SYSTEM_PERMISSION,SYSTEM_WORK
ZZZZ010211	210	DICTIONARY=SYSTEM_KIND,SYSTEM_NAME,SYSTEM_USER_X
ZZZZ010211	300	CONTROL=0,2,3,PROGRAM,SCROLL,SQL_DBO
ZZZZ010211	400	BEGIN
ZZZZ010211	500	=SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010211	600	=SET{XX.COUNT=1000,XX.Z='C',XX.SCROLL='SCROLL'};
ZZZZ010211	700	%TEST+=SET{WN.REAL='TEST'};
ZZZZ010211	800	%TEST-=SET{WN.REAL='REAL'};
ZZZZ010211	900	=SET{WDBX=_M_?WN.REAL?+'ZZ'};
ZZZZ010211	1000	=SET{WN.M_W1='M',WN.M_W2='W'};
ZZZZ010211	1100	SET=.?&SET&SYSTEM_NAME?
ZZZZ010211	1200	SET={}.?&DATA&SYSTEM_PERMISSION?
ZZZZ010211	1300	CHECK2=SELECT SYSTEM_KEY2,SYSTEM_ETC FROM
ZZZZ010211	1400	CHECK2=?_MM?_ETC_TABLE WHERE SYSTEM_KEY1='ZZZZZZ_PERMISSION'
ZZZZ010211	1410	CHECK2=AND '?_PERMISSION?' IN('ZZZZ',SYSTEM_KEY2)
ZZZZ010211	1500	CHECK2=AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010211	1600	SET=XX.Z{1,1}Z_DISPLAY
ZZZZ010211	1700	JA+TITLE=Z_表示
ZZZZ010211	1800	CHECK2=C,Z_CANCEL ONLY,N,Z.. NOT,Y,Z_...ALL DISPLAY
ZZZZ010211	1900	SET=XX.SCROLL{6,}{,SCROLL};
ZZZZ010211	2000	SET={,,80}XX.COUNT{5,,+}
ZZZZ010211	2100	JA+TITLE=件数
ZZZZ010211	2200	SET=XX.PSQL1{}
ZZZZ010211	2300	JA+TITLE=SQL+
ZZZZ010211	2400	SET=XX.PSQL2{}
ZZZZ010211	2500	JA+TITLE=SQL+
ZZZZ010211	2600	SET=XX.PSQL3{}
ZZZZ010211	2700	JA+TITLE=SQL+
ZZZZ010211	2800	START
ZZZZ010211	2900	=SET{%XX.Z='+'};IF{XX.Z='Y'}SET{%XX.Z='-'};
ZZZZ010211	3000	=SET{%C='+'};IF{XX.Z='C',='Y'}SET{%C='-'};
ZZZZ010211	3100	=SET{WN.DBO_INP_USR='SQL_DBO'};
ZZZZ010211	3200	=IF{SYSTEM_WORK='MAST'}
ZZZZ010211	3300	= SET{WN.NAME=_MX_?WN.REAL?_?.SYSTEM_PERMISSION?+SYSTEM_NAME}
ZZZZ010211	3400	=  JUMP{OK};
ZZZZ010211	3500	=SET{WN.INP_OUT='INP'};
ZZZZ010211	3600	=IF{SYSTEM_USER_X='O'}SET{WN.INP_OUT='O'};
ZZZZ010211	3700	=IF{SYSTEM_USER_X!=}
ZZZZ010211	3701	=   SET{WN.DBO_INP_USR='SQL_'+SYSTEM_USER_X};
ZZZZ010211	3800	=IF{SYSTEM_USER_X='I'}SET{WN.DBO_INP_USR=};
ZZZZ010211	3900	=SET{_REAL_TEST=WN.REAL};
ZZZZ010211	4000	=SET{WN.NAME=
ZZZZ010211	4001	=   _WX_?WN.INP_OUT?_?.SYSTEM_PERMISSION?+SYSTEM_NAME};
ZZZZ010211	4100	=SET{_REAL_TEST='REAL'};
ZZZZ010211	4200	=OK:IF{_START=1}JUMP{DROP};
ZZZZ010211	4300	=SET{WDB=_M_?WN.REAL?};
ZZZZ010211	4400	=IF_ERROR_DBO_SET_TABLE{&X,?WN.NAME?}ERROR{};
ZZZZ010211	4500	=IF{&X.ALL_COUNT=0}ERROR{COLUMN NOT FOUND};
ZZZZ010211	4600	=IF{&X.Z_CANCEL=0}SET{%XX.Z='+',%C='+'};
ZZZZ010211	4700	=SET{W0.C=1};
ZZZZ010211	4800	=LOOP:IF{W0.C>&X.ALL_COUNT}JUMP{END};
ZZZZ010211	4900	=SET{WN=&X.ALL_?W0.C?};
ZZZZ010211	5000	=SET{WN.DATA?W0.C?=&X.DATA&?WN?,WN.K?W0.C?=&X.KEY&?WN?};
ZZZZ010211	5100	=SET{WN.NAME?W0.C?=WN};
ZZZZ010211	5200	=COMPUTE{W0.C+=1};BACK{LOOP};
ZZZZ010211	5300	=END:
ZZZZ010211	5400	=IF{SYSTEM_USER_X!=}
ZZZZ010211	5401	=   SET{WN.DBO_INP_USR='SQL_'+SYSTEM_USER_X};
ZZZZ010211	5500	=IF{SYSTEM_USER_X='I'}SET{WN.DBO_INP_USR=};
ZZZZ010211	5600	=EXIT{};
ZZZZ010211	5700	=DROP:
ZZZZ010211	5800	=IF{SYSTEM_KIND!='TABLE'}ERROR{DROP ERROR(NOT TABLE)};
ZZZZ010211	5900	=IF{SYSTEM_WORK!='WORK'}ERROR{DROP ERROR(NOT WORK)};
ZZZZ010211	6000	=IF{_PERMISSION!=.SYSTEM_PERMISSION}
ZZZZ010211	6100	=   IF{_PERMISSION!='ZZZZ'}ERROR{DROP ERROR(PERMISSION)};
ZZZZ010211	6200	STOP_AFTER
ZZZZ010211	6300	=SET{_JOB_PERMISSION=.SYSTEM_PERMISSION};
ZZZZ010211	6400	%TEST+=SET{_REAL_TEST='TEST'};
ZZZZ010211	6500	=IF{SYSTEM_USER_X='I'}JUMP{INP};
ZZZZ010211	6600	=IF{SYSTEM_USER_X='O'}JUMP{OUT};
ZZZZ010211	6700	=IF_ERROR_DBO_DROP_TABLE{?WN.NAME?}ERROR{};
ZZZZ010211	6800	=EXIT{};
ZZZZ010211	6900	=INP:IF_ERROR_DROP_TABLE{?WN.NAME?}ERROR{};
ZZZZ010211	7000	=EXIT{};
ZZZZ010211	7100	=OUT:IF_ERROR_OUT_DROP_TABLE{?WN.NAME?}ERROR{};
ZZZZ010211	7200	DATA={C}.DROP{1}
ZZZZ010211	7300	JA+TITLE=消滅
ZZZZ010211	7400	DATA=?&DATA&SYSTEM_NAME?
ZZZZ010211	7500	DATA=?&DATA&SYSTEM_KIND?
ZZZZ010211	7600	DATA=?&DATA&SYSTEM_WORK?
ZZZZ010211	7700	DATA={A}?&DATA&SYSTEM_USER_X?
ZZZZ010211	7800	DATA=.SYSTEM_ADD_DATE17{23,,T}
ZZZZ010211	7900	JA+TITLE=作成日
ZZZZ010211	8000	DATA=.SYSTEM_CHANGE_DATE17{23,,T}
ZZZZ010211	8100	JA+TITLE=変更日
ZZZZ010211	8200	REPEAT=2
ZZZZ010211	8300	SQL=?_UNION##? SELECT
ZZZZ010211	8400	SQL= CASE WHEN SYSTEM_WORK='WORK'
ZZZZ010211	8500	SQL= AND SYSTEM_KIND='TABLE' THEN '*' ELSE ' ' END
ZZZZ010211	8600	SQL=   ,SYSTEM_NAME,SYSTEM_KIND,SYSTEM_WORK
ZZZZ010211	8700	*SQL=   ,WORK_X,KIND
ZZZZ010211	8800	*SQL=   ,NAME,USER_X,ADD_DATE17,CHANGE_DATE17 FROM
ZZZZ010211	8900	SQL= ,SYSTEM_USER_X,SYSTEM_ADD_DATE17,SYSTEM_CHANGE_DATE17
ZZZZ010211	9000	SQL= FROM ?WDBX?_?WN.M_W##?_?.SYSTEM_PERMISSION?_OBJECT_VIEW
ZZZZ010211	9100	SQL= ?_T? WHERE SYSTEM_KIND IN('TABLE','VIEW')
ZZZZ010211	9200	SQL= AND SYSTEM_NAME LIKE '?.SYSTEM_NAME?%'
ZZZZ010211	9300	REPEAT=_ORDER_COUNT
ZZZZ010211	9400	SQL=   ?_ORDER##?
ZZZZ010211	9500	REPEAT=
ZZZZ010211	9600	*PROGRAM=OUTPUT,&X,?$WN.NAME?
ZZZZ010211	9610	PROGRAM=OUTPUT
ZZZZ010211	9700	CONTROL=ERROR_SQL,ERROR,?$XX.SCROLL?,?$WN.DBO_INP_USR?
ZZZZ010211	9800	%TEST+CONTROL=SQL_TEST
ZZZZ010211	9900	JOB_PERMISSION=?_PERMISSION?
ZZZZ010211	10000	BEGIN
ZZZZ010211	10100	=SET{_SQL_LIMIT=XX.COUNT};
ZZZZ010211	10110	*SET{.SYSTEM_NAME=$SYSTEM_NAME};
ZZZZ010211	10200	REPEAT=?$&X.ALL_COUNT?
ZZZZ010211	10300	=IF{?$WN.NAME##?@TYPE2='*'}
ZZZZ010211	10400	=   SET{?$WN.NAME##?@TYPE2=}; 非表示無視*
ZZZZ010211	10500	REPEAT=
ZZZZ010211	10600	SET={O}$XX.COUNT{5,,+}
ZZZZ010211	10700	JA+TITLE=件数
ZZZZ010211	10800	SET={O,S0}.=?$&SET&SYSTEM_WORK?
ZZZZ010211	10900	SET={O,S0,80}.=?$&SET&SYSTEM_NAME?
ZZZZ010211	11000	SET=$XX.PSQL1{}
ZZZZ010211	11100	JA+TITLE=SQL+
ZZZZ010211	11200	SET=$XX.PSQL2{}
ZZZZ010211	11300	JA+TITLE=SQL+
ZZZZ010211	11400	SET=$XX.PSQL3{}
ZZZZ010211	11500	JA+TITLE=SQL+
ZZZZ010211	11600	%C-DATA=Z_CANCEL{17,,T}Z_CANCEL
ZZZZ010211	11700	%XX.Z-DATA=Z_CANCEL_PERSON{8}Z_CANCEL_PERSON
ZZZZ010211	11800	%XX.Z-DATA=Z_CHANGE{17,,T}Z_CHANGE
ZZZZ010211	11900	%XX.Z-DATA=Z_CHANGE_PERSON{8}Z_CHANGE_PERSON
ZZZZ010211	12000	%XX.Z-DATA=Z_ADD{17,,T}Z_ADD
ZZZZ010211	12100	%XX.Z-DATA=Z_ADD_PERSON{8}Z_ADD_PERSON
ZZZZ010211	12200	%XX.Z-DATA=Z_LAST_JOB{10}Z_LAST_JOB
ZZZZ010211	12300	%XX.Z-DATA=Z_LAST_COMPUTER{15}Z_LAST_COMPUTER
ZZZZ010211	12400	REPEAT=?$&X.ALL_COUNT?
ZZZZ010211	12500	0-DATA={?$WN.K##?}?$WN.DATA##?
ZZZZ010211	12600	0-TITLE=?$WN.NAME##?
ZZZZ010211	12700	REPEAT=
ZZZZ010211	12800	SQL=SELECT ?_DATA_ALL_SQL? FROM ?$WN.NAME? ?_T?
ZZZZ010211	12900	SQL=   ?XX.PSQL1? ?XX.PSQL2? ?XX.PSQL3?
ZZZZ010212	100	PROGRAM=OUTPUT,&X1,?_MM?_I_SQL_TABLE
ZZZZ010212	110	TABLE=&X2,?_MM?_ETC_TABLE
ZZZZ010212	200	DICTIONARY=SYSTEM_PERMISSION
ZZZZ010212	300	CONTROL=0
ZZZZ010212	400	LINE=12
ZZZZ010212	500	BEGIN
ZZZZ010212	600	=SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010212	700	=SET{WN.SQLLOGIN=,WN.SQLDBO_T=,WN.SQLDBO_R=};
ZZZZ010212	800	M-=IF{_SECURITY='ADMIN'}
ZZZZ010212	900	=   SET{WN.SQLDBO_T=
ZZZZ010212	1000	=   ' UNION SELECT ''TEST'',''DBO'',''SQL='',4 ?_FROM_DUAL?'
ZZZZ010212	1100	=   +' UNION SELECT ''TEST'',''DBO'',''=SQL'',5 ?_FROM_DUAL?'
ZZZZ010212	1200	=   ,WN.SQLDBO_R=
ZZZZ010212	1300	=   +' UNION SELECT ''REAL'',''DBO'',''SQL='',9 ?_FROM_DUAL?'
ZZZZ010212	1400	=  +' UNION SELECT ''REAL'',''DBO'',''=SQL'',10 ?_FROM_DUAL?'
ZZZZ010212	1500	=   };
ZZZZ010212	1600	%TEST+=EXIT{};
ZZZZ010212	1700	=IF{_PERMISSION='ZZZZ'}SET{WN.SQLLOGIN=
ZZZZ010212	1800	= ' UNION SELECT ''    '',''LOGIN'',''SQL='',11 ?_FROM_DUAL?'
ZZZZ010212	1900	=+' UNION SELECT ''    '',''LOGIN'',''=SQL'',12 ?_FROM_DUAL?'
ZZZZ010212	2000	= };
ZZZZ010212	2100	START
ZZZZ010212	2200	=SET{WN.M=_M_REAL};IF{SYSTEM_REAL='TEST'}SET{WN.M=_M_TEST};
ZZZZ010212	2300	=SET{WN.OWNER='SQL_?.OWNER?'};
ZZZZ010212	2400	=IF{.OWNER='INP'}SET{WN.OWNER=};
ZZZZ010212	2500	*SET{%LOGIN='-',%DBO='-'};
ZZZZ010212	2600	=SET{%SEL='-'};
ZZZZ010212	2700	=IF{SYSTEM_SQL_KIND='SQL='}SET{%SEL='+'};
ZZZZ010212	2800	=SET{%LOGIN='-'};
ZZZZ010212	2900	=IF{.OWNER='LOGIN'}SET{%LOGIN='+'};
ZZZZ010212	3000	=SET{%DBO='-'};
ZZZZ010212	3100	=IF{.OWNER='DBO'}SET{%DBO='+'};
ZZZZ010212	3200	SET={,*&X2}.?&DATA&SYSTEM_PERMISSION?
ZZZZ010212	3300	DATA=?&.DATA&SYSTEM_REAL?
ZZZZ010212	3400	DATA={}.OWNER{5}
ZZZZ010212	3500	JA+TITLE=利用者
ZZZZ010212	3600	DATA={,,70}?&.DATA&SYSTEM_SQL_KIND?
ZZZZ010212	3700	SQL=      SELECT 'TEST','OUT','SQL=',1 ?_FROM_DUAL?
ZZZZ010212	3800	SQL=UNION SELECT 'TEST','INP','SQL=',2 ?_FROM_DUAL?
ZZZZ010212	3900	SQL=UNION SELECT 'TEST','INP','=SQL',3 ?_FROM_DUAL?
ZZZZ010212	4000	SQL=?WN.SQLDBO_T?
ZZZZ010212	4100	%TEST-SQL=UNION SELECT 'REAL','OUT','SQL=',6
ZZZZ010212	4200	%TEST-SQL=?_FROM_DUAL?
ZZZZ010212	4300	%TEST-SQL=UNION SELECT 'REAL','INP','SQL=',7
ZZZZ010212	4400	%TEST-SQL=?_FROM_DUAL?
ZZZZ010212	4500	%TEST-SQL=UNION SELECT 'REAL','INP','=SQL',8
ZZZZ010212	4600	%TEST-SQL=?_FROM_DUAL?
ZZZZ010212	4700	%TEST-SQL=?WN.SQLDBO_R?
ZZZZ010212	4800	%TEST-SQL=?WN.SQLLOGIN?
ZZZZ010212	4900	SQL= ORDER BY 4
ZZZZ010212	5000	PROGRAM=INPUT,&X1,?_MM?_I_SQL_TABLE
ZZZZ010212	5100	CONTROL=0,SCROLL,ERROR_SQL
ZZZZ010212	5200	BEGIN
ZZZZ010212	5300	=SET{.SYSTEM_PERSON=_PERSON,DATA_COUNT=10,DATA_LENGTH=80};
ZZZZ010212	5400	%LOGIN+=SET{S_LOGIN_ID=_LOGIN_ID_ADMIN};
ZZZZ010212	5500	SET={O}$.?$&SET&SYSTEM_PERMISSION?
ZZZZ010212	5600	SET={KO}.?&.SET&SYSTEM_PERSON?
ZZZZ010212	5700	SET={KO}.=?&.SET&SYSTEM_REAL?
ZZZZ010212	5800	SET={O}$.OWNER{5}
ZZZZ010212	5900	JA+TITLE=利用者
ZZZZ010212	6000	SET={KO}.=?&.SET&SYSTEM_SQL_KIND?
ZZZZ010212	6100	SET=.?&.SET&SYSTEM_SEQ?
ZZZZ010212	6200	JA+TITLE=開始番号
ZZZZ010212	6300	%LOGIN+SET=S_LOGIN_ID{14,}
ZZZZ010212	6400	%LOGIN+P-=SET{_UPPER=S_LOGIN_ID,S_LOGIN_ID=_UPPER};
ZZZZ010212	6500	%LOGIN+P+=SET{_LOWER=S_LOGIN_ID,S_LOGIN_ID=_LOWER};
ZZZZ010212	6600	%LOGIN+=SET{_LOGIN_ID=S_LOGIN_ID};
ZZZZ010212	6700	%LOGIN+SET=S_PASSWORD{80,,!,*}
ZZZZ010212	6800	%LOGIN+=SET{_LOGIN_PASSWORD=S_PASSWORD};
ZZZZ010212	6900	%LOGIN+=IF_ERROR_LOGIN_SQL{SELECT ?_NOW0? ?_FROM_DUAL?}
ZZZZ010212	7000	%LOGIN+=  ERROR{};
ZZZZ010212	7100	SET=DATA_COUNT{2,,+}{(1,99)}
ZZZZ010212	7200	SET=DATA_LENGTH{2,,+}{(1,80)}
ZZZZ010212	7300	START
ZZZZ010212	7400	=IF{_START!=0}EXIT{};
ZZZZ010212	7500	=SET{WN.1=,WN.2=,WN.3=,WN.4=,WN.5=,WN.W=,WN.SQL_TEST=};
ZZZZ010212	7600	*SET{WN.WN.1=,WN.WN.2=,WN.WN.3=,WN.WN.4=,WN.WN.5=};
ZZZZ010212	7700	=SQL1{SELECT SYSTEM_SQL_DATA FROM ?_MM?_I_SQL_TABLE WHERE
ZZZZ010212	7800	=  SYSTEM_SEQ>=0?.SYSTEM_SEQ? AND SYSTEM_SEQ<=0?SYSTEM_SEQ?
ZZZZ010212	7900	=   AND SYSTEM_PERSON='?_PERSON?' AND ?_VRE&.SYSTEM_REAL?
ZZZZ010212	8000	=   AND ?_VRE&.SYSTEM_SQL_KIND?
ZZZZ010212	8100	=   AND SYSTEM_COM IN(' ','?_DB?')
ZZZZ010212	8200	=   AND Z_CANCEL=' ' ORDER BY SYSTEM_SEQ};
ZZZZ010212	8300	REPEAT=5
ZZZZ010212	8400	=SQL1_NEXT{WN.##}JUMP{SQL1_END};
ZZZZ010212	8500	REPEAT=
ZZZZ010212	8600	=SQL1_NEXT:SQL1_NEXT{WN.X}JUMP{SQL1_END};
ZZZZ010212	8700	=SET{_REAL_TEST=.SYSTEM_REAL};
ZZZZ010212	8800	=SET{WN.W=WN.W+_NEW_LINE+WN.X};BACK{SQL1_NEXT};
ZZZZ010212	8900	=SQL1_END:
ZZZZ010212	9000	=SET{_REAL_TEST='REAL'};
ZZZZ010212	9010	=SET{WN.WS_1=};
ZZZZ010212	9100	=SPLIT_CHAR{WN.WS_}{WN.1}{};
ZZZZ010212	9200	=IF{.SYSTEM_SQL_KIND='SQL='}JUMP{SQLEQ};
ZZZZ010212	9300	=IF{WN.WS_1='SELECT'}ERROR{?WN.WS_1?};
ZZZZ010212	9400	=EXIT{};
ZZZZ010212	9410	=SQLEQ:
ZZZZ010212	9500	=IF{WN.WS_1='INSERT',='UPDATE',='DELETE'}ERROR{?WN.WS_1?};
ZZZZ010212	9600	=IF{.SYSTEM_REAL='TEST'}SET{WN.SQL_TEST=',SQL_TEST'};
ZZZZ010212	9700	DATA={K}?&.DATA&SYSTEM_SEQ?
ZZZZ010212	9800	=IF{_START!=2}EXIT{};
ZZZZ010212	9900	=IF{_DATA>=.SYSTEM_SEQ}EXIT{};
ZZZZ010212	10000	=SET{SYSTEM_COM='*'};EXIT{.SYSTEM_SQL_DATA};
ZZZZ010212	10100	DATA={}?&.DATA&SYSTEM_COM?
ZZZZ010212	10200	DATA=?&.DATA&SYSTEM_SQL_DATA?
ZZZZ010212	10210	DATA={*N}DUMMY{1}
ZZZZ010212	10300	SQL=SELECT SYSTEM_SEQ,SYSTEM_COM,SYSTEM_SQL_DATA
ZZZZ010212	10302	SQL=   ,CASE WHEN Z_CANCEL=' ' THEN 0 ELSE 1 END
ZZZZ010212	10310	SQL=   ,Z_CANCEL
ZZZZ010212	10400	SQL=   FROM ?_MM?_I_SQL_TABLE
ZZZZ010212	10500	SQL=   WHERE SYSTEM_PERSON='?_PERSON?'
ZZZZ010212	10600	SQL=   AND ?_VRE&.SYSTEM_REAL?
ZZZZ010212	10700	SQL=   AND ?_VRE&.SYSTEM_SQL_KIND?
ZZZZ010212	10800	SQL=   AND ?_VRGE&.SYSTEM_SEQ?
ZZZZ010212	10900	SQL=   ORDER BY 4,1,5
ZZZZ010212	11100	PROGRAM=OUTPUT
ZZZZ010212	11110	CONTROL=ERROR
ZZZZ010212	11200	JOB_PERMISSION=?$.SYSTEM_PERMISSION?
ZZZZ010212	11300	BEGIN
ZZZZ010212	11400	=SET{_REAL_TEST=$.SYSTEM_REAL};
ZZZZ010212	11500	=SET{_EDIT_ERROR=$WN.W,WN.W=_EDIT_ERROR};
ZZZZ010212	11600	REPEAT=5
ZZZZ010212	11700	=SET{_EDIT_ERROR=$WN.##,WN.##=_EDIT_ERROR};
ZZZZ010212	11800	REPEAT=
ZZZZ010212	11900	CONTROL=?$WN.OWNER?,ERROR_SQL,ERROR,SCROLL?$WN.SQL_TEST?
ZZZZ010212	12000	SET={O,,80}$.?$&SET&SYSTEM_PERMISSION?
ZZZZ010212	12100	%SEL-SET={N}A{1}
ZZZZ010212	12200	%DBO+%SEL-=IF_ERROR_DBO_SQL{
ZZZZ010212	12300	%LOGIN+%SEL-=IF_ERROR_LOGIN_SQL{
ZZZZ010212	12400	%SEL-%DBO-%LOGIN-=IF_ERROR_SQL{
ZZZZ010212	12500	REPEAT=5
ZZZZ010212	12600	%SEL+SQL=?WN.##?
ZZZZ010212	12700	%SEL-=?WN.##?
ZZZZ010212	12800	REPEAT=
ZZZZ010212	12900	%SEL+SQL=?WN.W?
ZZZZ010212	13000	%SEL-=?WN.W?}ERROR{};
ZZZZ010212	13100	%SEL-SQL=SELECT'_SQL_COUNT_123=?_SQL_COUNT_123?'
ZZZZ010212	13200	%SEL-SQL=?_FROM_DUAL?
ZZZZ010212	13300	REPEAT=$DATA_COUNT
ZZZZ010212	13400	DATA=D##{?$DATA_LENGTH?}
ZZZZ010212	13500	REPEAT=
ZZZZ010212	13600	END
ZZZZ010214	100	MINUS=%FND
ZZZZ010214	200	MINUS=%TEST
ZZZZ010216	100	MINUS=%TEST
ZZZZ010217	100	PROGRAM=,&X1,?_MM?_PRINT_ID_TABLE
ZZZZ010217	200	CONTROL=0
ZZZZ010217	300	BEGIN
ZZZZ010217	400	SET=.?&.SET&SYSTEM_PRINT?
ZZZZ010217	500	DATA=   ?&.DATA&SYSTEM_TEST?
ZZZZ010217	600	DATA={K}?&.DATA&SYSTEM_PRINT?
ZZZZ010217	700	DATA=   ?&.DATA&SYSTEM_COMMENT?
ZZZZ010217	800	COPY=@ZZZZZZ_SQL
ZZZZ010217	900	PROGRAM=NOT
ZZZZ010217	1000	BEGIN
ZZZZ010217	1100	=IPRINT{?$SYSTEM_PRINT?,DATA,A};
ZZZZ010217	1200	=EXIT{_END};
ZZZZ010219	100	PROGRAM=OUTPUT
ZZZZ010219	200	DICTIONARY=SYSTEM_NAME,SYSTEM_WORK,SYSTEM_GRANT,SYSTEM_REAL
ZZZZ010219	300	DICTIONARY=SYSTEM_PERMISSION,SYSTEM_SELECT,SYSTEM_INSERT
ZZZZ010219	400	DICTIONARY=SYSTEM_UPDATE,SYSTEM_DELETE,SYSTEM_EXECUTE
ZZZZ010219	500	CONTROL=PROGRAM_ERROR,MAX,3,SQL_DBO
ZZZZ010219	600	BEGIN
ZZZZ010219	700	=SET{.SYSTEM_WORK='MAST'};
ZZZZ010219	800	%TEST+=SET{WN.DB=_MM_TEST};
ZZZZ010219	900	%TEST-=SET{WN.DB=_MM_REAL};
ZZZZ010219	1000	SET={,*}.?&DATA&SYSTEM_PERMISSION?
ZZZZ010219	1100	CHECK2=SELECT SYSTEM_KEY2,SYSTEM_ETC FROM
ZZZZ010219	1200	CHECK2=?_MM?_ETC_TABLE WHERE SYSTEM_KEY1='ZZZZZZ_PERMISSION'
ZZZZ010219	1300	CHECK2=AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010219	1400	SET={  }.?&SET&SYSTEM_NAME?
ZZZZ010219	1500	SET={,*}.?&DATA&SYSTEM_WORK?
ZZZZ010219	1510	=SET{WC.WORK1=_DATA[1;1]};
ZZZZ010219	1600	SET={  }S.?&SET&SYSTEM_GRANT?
ZZZZ010219	1700	DATA={}?&DATA&SYSTEM_PERMISSION?
ZZZZ010219	1800	SELECT='?.SYSTEM_PERMISSION?'
ZZZZ010219	1900	DATA={K}?&DATA&SYSTEM_NAME?
ZZZZ010219	2000	DATA={K}?&DATA&SYSTEM_REAL?
ZZZZ010219	2100	DATA={K}?&DATA&SYSTEM_WORK?
ZZZZ010219	2200	DATA={A}?&DATA&SYSTEM_GRANT?
ZZZZ010219	2300	DATA={ }?&DATA&SYSTEM_SELECT?
ZZZZ010219	2400	DATA={ }?&DATA&SYSTEM_INSERT?
ZZZZ010219	2500	DATA={ }?&DATA&SYSTEM_UPDATE?
ZZZZ010219	2600	DATA={ }?&DATA&SYSTEM_DELETE?
ZZZZ010219	2700	DATA={ }?&DATA&SYSTEM_EXECUTE?
ZZZZ010219	2800	REPEAT=_SELECT_COUNT
ZZZZ010219	2900	SQL=?_SELECT##?
ZZZZ010219	3000	REPEAT=
ZZZZ010219	3100	SQL= FROM
ZZZZ010219	3110	SQL= ?WN.DB?_?WC.WORK1?_?.SYSTEM_PERMISSION?_GRANT_VIEW ?_T?
ZZZZ010219	3200	MINUS=%ZZZZZZ_SQL_SELECT
ZZZZ010219	3300	MINUS=%Z_CANCEL_SELECT
ZZZZ010219	3400	MINUS=%ZZZZZZ_SQL_FROM
ZZZZ010219	3500	MINUS=%Z_CANCEL_WHERE
ZZZZ010219	3600	COPY=@ZZZZZZ_SQL
ZZZZ010220	100	PROGRAM=NOT
ZZZZ010220	200	DATA=YES_NO{3}{YES,NO}
ZZZZ010220	300	=IF{_DATA='YES'}SET{_REAL_TEST='ALTER'};
ZZZZ010220	400	=EXIT{_END};
ZZZZ010221	100	%GRAMMAR_CHECK-COMMENT_BEGIN
ZZZZ010221	200	PROGRAM=,&X1,?_MM?_I_MENU_TABLE
ZZZZ010221	300	TABLE=&X2,?_MM?_ETC_TABLE
ZZZZ010221	400	CONTROL=0,SCROLL
ZZZZ010221	410	%MENU-CONTROL=BEGIN_ENTER
ZZZZ010221	500	BEGIN
ZZZZ010221	600	*SET{_TRACE=0};
ZZZZ010221	700	%GRAMMAR_CHECK-COMMENT_END
ZZZZ010221	800	*============================================================
ZZZZ010221	900	*(W0.ETC1,WC.ETC1PR,1MT,1CC,11X,12X,13X,14X,15X,16X,17X=SET等
ZZZZ010221	1000	*(W0.ETC2,WC.ETC2PR,2MT,2CC,21X,22X,23X,24X,25X,26X,27XSET=等
ZZZZ010221	1100	*(W0.ETC3,WC.ETC3PR,3MT,3CC) BEGIN等
ZZZZ010221	1200	*(W0.ETC4,WC.ETC3PR) 1+等
ZZZZ010221	1300	REPEAT=4
ZZZZ010221	1400	=SQL_REPEAT{WC.ETC##PR
ZZZZ010221	1410	*  COMMENT   MT=1,CC=3
ZZZZ010221	1500	4-= ,WC.ETC##MT,WC.ETC##CC
ZZZZ010221	1600	1+|2+= ,WC.ETC##0X,WC.ETC##1X,WC.ETC##2X,WC.ETC##3X
ZZZZ010221	1700	1+|2+= ,WC.ETC##4X,WC.ETC##5X,WC.ETC##6X,WC.ETC##7X
ZZZZ010221	1800	*1+|2+= ,WC.ETC##4X,WC.ETC##5X,WC.ETC##6X
ZZZZ010221	1900	= }{SELECT DISTINCT REPLACE(REPLACE(REPLACE(
ZZZZ010221	2000	=?_SUBSTR(SYSTEM_KEY2;1;29)?,'//',''),'=',''),'+','')
ZZZZ010221	2100	4-=    ,?_SUBSTR(SYSTEM_COMMENT;1;1)?
ZZZZ010221	2200	4-=    ,?_SUBSTR(SYSTEM_COMMENT;3;1)?
ZZZZ010221	2300	1+|2+= ,?_SUBSTR(SYSTEM_COMMENT;4;5)?
ZZZZ010221	2400	1+|2+= ,?_SUBSTR(SYSTEM_COMMENT;9;6)?
ZZZZ010221	2500	1+|2+= ,?_SUBSTR(SYSTEM_COMMENT;15;6)?
ZZZZ010221	2600	1+|2+= ,?_SUBSTR(SYSTEM_COMMENT;21;6)?
ZZZZ010221	2700	1+|2+= ,?_SUBSTR(SYSTEM_COMMENT;27;6)?
ZZZZ010221	2800	1+|2+= ,?_SUBSTR(SYSTEM_COMMENT;33;6)?
ZZZZ010221	2900	1+|2+= ,?_SUBSTR(SYSTEM_COMMENT;39;6)?
ZZZZ010221	3000	1+|2+= ,?_SUBSTR(SYSTEM_COMMENT;45;6)?
ZZZZ010221	3100	= FROM ?_MM?_ETC_TABLE
ZZZZ010221	3200	= WHERE SYSTEM_KEY1='ZZZZZZ_PROGRAM' AND
ZZZZ010221	3300	1+= SYSTEM_KEY2 LIKE '//=%'
ZZZZ010221	3400	2+= SYSTEM_KEY2 LIKE '%=//%'
ZZZZ010221	3500	3+=NOT( SYSTEM_KEY2 LIKE '%=%' OR SYSTEM_KEY2 LIKE '%+%')
ZZZZ010221	3600	4+= SYSTEM_KEY2 LIKE '%+//%'
ZZZZ010221	3700	= AND ?_SUBSTR(SYSTEM_COMMENT;2;1)?='/'
ZZZZ010221	3800	= AND ?_SUBSTR(SYSTEM_KEY2;3;9)?!='  COMMENT'
ZZZZ010221	3900	= AND Z_CANCEL=' ' ORDER BY 1};
ZZZZ010221	4000	=SET{W0.ETC##=_SQL_REPEAT_COUNT}; VER20.1_CUT*
ZZZZ010221	4100	=SET{WC.ETC##PR_COUNT=_SQL_REPEAT_COUNT}; VER20.1*
ZZZZ010221	4200	REPEAT=
ZZZZ010221	4300	*(W0.ETC5??,WC.ETC5??,5??X) 各種設定 ====
ZZZZ010221	4400	=SQL_REPEAT{WC.ETC5ORG}{SELECT DISTINCT
ZZZZ010221	4500	= ?_SUBSTR(SYSTEM_KEY2;1;2)? FROM ?_MM?_ETC_TABLE
ZZZZ010221	4600	= WHERE SYSTEM_KEY1='ZZZZZZ_PROGRAM'
ZZZZ010221	4700	=   AND SYSTEM_KEY2 NOT LIKE '//%'
ZZZZ010221	4800	=   AND ?_SUBSTR(SYSTEM_KEY2;3;9)?!='  COMMENT'
ZZZZ010221	4900	=   AND Z_CANCEL=' ' ORDER BY 1};
ZZZZ010221	5000	=SET{W0.ETC5ORG_MAX=_SQL_REPEAT_COUNT}; VER20.1_CUT*
ZZZZ010221	5100	=SET{WC.ETC5ORG_COUNT=_SQL_REPEAT_COUNT}; VER20.1*
ZZZZ010221	5200	=SET{W0=1};
ZZZZ010221	5300	=LOOP:IF{W0>W0.ETC5ORG_MAX}JUMP{END};
ZZZZ010221	5400	=SET{WC=WC.ETC5ORG?W0?};
ZZZZ010221	5500	=SET{W0.ETC5ORG_?WC?=W0};
ZZZZ010221	5600	=SQL_REPEAT{WC.ETC5?WC?,WC.ETC5?WC?X}
ZZZZ010221	5700	= {SELECT DISTINCT ?_SUBSTR(SYSTEM_KEY2;4;27)?,SYSTEM_ETC
ZZZZ010221	5800	= FROM ?_MM?_ETC_TABLE WHERE SYSTEM_KEY1='ZZZZZZ_PROGRAM'
ZZZZ010221	5900	= AND SYSTEM_KEY2 LIKE '?WC?%'
ZZZZ010221	6000	= AND ?_SUBSTR(SYSTEM_KEY2;3;9)?!='  COMMENT'
ZZZZ010221	6100	= AND Z_CANCEL=' ' ORDER BY 1};
ZZZZ010221	6200	=SET{W0.ETC5?WC?=_SQL_REPEAT_COUNT}; VER20.1_CUT*
ZZZZ010221	6300	=SET{W0.ETC5?W0?=_SQL_REPEAT_COUNT}; VER20.1_CUT*
ZZZZ010221	6400	=SET{WC.ETC5?W0?__COUNT=_SQL_REPEAT_COUNT}; VER20.1*
ZZZZ010221	6500	=COMPUTE{W0+=1};BACK{LOOP};
ZZZZ010221	6600	=END:
ZZZZ010221	6700	%GRAMMAR_CHECK-COMMENT_BEGIN
ZZZZ010221	6800	*============================================================
ZZZZ010221	6900	%MENU+=SET{SYSTEM_JOB=!?_PP?_JOB};
ZZZZ010221	6910	%MENU-=SET{SYSTEM_JOB=$SYSTEM_MENU0+$SYSTEM_MENU1
ZZZZ010221	6920	%MENU-=   +$SYSTEM_MENU2};
ZZZZ010221	7000	=SET{WN.SEC1=,WN.SEC2='_G'};
ZZZZ010221	7100	=SET{WC.MENU_TIME='M'};
ZZZZ010221	7200	=SET{.SYSTEM_LANG=_LANG,O.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010221	7300	=SET{O.SYSTEM_LANG=_LANG_SYSTEM};
ZZZZ010221	7400	%TEST+=SET{.SYSTEM_TEST='TEST'};
ZZZZ010221	7500	=IF{'ZZZZ'!=_PERMISSION}SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010221	7600	*=SET{_TRACE=1};
ZZZZ010221	7700	COLOR
ZZZZ010221	7710	%MENU-=EXIT{};
ZZZZ010221	7800	=SET{WN.COLOR='W'};
ZZZZ010221	7900	=IF{SYSTEM_MENU3!='00'}JUMP{MENU3_NOT_00};
ZZZZ010221	8000	=IF{SYSTEM_MENU1='00'}SET{WN.COLOR='R'}JUMP{OK};
ZZZZ010221	8100	=IF{SYSTEM_MENU2='00'}SET{WN.COLOR='G'}JUMP{OK};
ZZZZ010221	8200	=SET{                     WN.COLOR='B'};
ZZZZ010221	8300	=JUMP{OK};
ZZZZ010221	8400	=MENU3_NOT_00:
ZZZZ010221	8500	=IF{SYSTEM_MENU1='00'}SET{WN.COLOR='Y'}JUMP{OK};
ZZZZ010221	8600	=IF{SYSTEM_MENU1='80'}SET{WN.COLOR='P'};
ZZZZ010221	8700	=OK:
ZZZZ010221	8710	=SET{SYSTEM_MENU0@COLOR=WN.COLOR
ZZZZ010221	8800	=  ,SYSTEM_MENU1@COLOR=WN.COLOR,SYSTEM_MENU2@COLOR=WN.COLOR
ZZZZ010221	8900	=  ,SYSTEM_MENU3@COLOR=WN.COLOR};
ZZZZ010221	9000	=IF{.SYSTEM_LANG!=_LANG_SYSTEM}SET{WN.COLOR='B'}JUMP{};
ZZZZ010221	9100	=SET{                             WN.COLOR='W'};
ZZZZ010221	9200	=SET{.SYSTEM_LANG@COLOR=WN.COLOR};
ZZZZ010221	9320	SET={?$WC.TIME_O?}SYSTEM_JOB{10}
ZZZZ010221	9400	%MENU+=SET{!?_PP?_JOB=SYSTEM_JOB};
ZZZZ010221	9500	JA+TITLE=ジョブ
ZZZZ010221	9600	SET=.?&.SET&SYSTEM_MENU?
ZZZZ010221	9700	SET=.?&.SET&SYSTEM_COPY1?
ZZZZ010221	9800	JA+TITLE=コピー
ZZZZ010221	9900	JA-TITLE=COPY
ZZZZ010221	10000	SET={}.?&.SET&SYSTEM_PERMISSION?
ZZZZ010221	10100	SET={}.?&.SET&SYSTEM_PART?
ZZZZ010221	10200	SET={}.?&.SET&SYSTEM_TEST?
ZZZZ010221	10300	SET=.?&.SET&SYSTEM_LANG?
ZZZZ010221	10400	SET={  }COLOR{2}{,NO}
ZZZZ010221	10500	JA+TITLE=色表示
ZZZZ010221	10600	SET={  }GRAMMAR{2}{,NO}
ZZZZ010221	10700	JA+TITLE=文法確認
ZZZZ010221	10800	SET={O}O.?&.SET&SYSTEM_PERMISSION?(MY)
ZZZZ010221	10900	SET={O}O.?&.SET&SYSTEM_LANG?(SYSTEM)
ZZZZ010221	11000	START
ZZZZ010221	11010	%MENU-=IF{_START=2}
ZZZZ010221	11020	%MENU-=   SET{SYSTEM_MENU0=SYSTEM_JOB[1;4]}
ZZZZ010221	11030	%MENU-=   SET{SYSTEM_MENU1=SYSTEM_JOB[5;2]}
ZZZZ010221	11040	%MENU-=   SET{SYSTEM_MENU2=SYSTEM_JOB[7;2]};
ZZZZ010221	11100	=IF{SYSTEM_MENU1>'40'}IF{SYSTEM_MENU1<'50'}JUMP{COPY};
ZZZZ010221	11200	=IF{SYSTEM_MENU1>'49'}JUMP{NOT_COPY};
ZZZZ010221	11300	=IF{SYSTEM_MENU2>'40'}IF{SYSTEM_MENU2<'50'}JUMP{COPY};
ZZZZ010221	11400	=IF{SYSTEM_MENU3>'40'}IF{SYSTEM_MENU3<'50'}JUMP{COPY};
ZZZZ010221	11500	=NOT_COPY:SET{WC.COPY_SW=0}JUMP{};
ZZZZ010221	11600	=    COPY:SET{WC.COPY_SW=1};
ZZZZ010221	11700	=IF{_START=2}SET{SYSTEM_TEST='TEST'};
ZZZZ010221	11800	%TEST+=IF{SYSTEM_TEST='REAL',=''}ERROR{TEST='REAL' OR ''};
ZZZZ010221	11900	%TEST+=IF{_START=0,=1}IF{SYSTEM_TEST!='TEST'}
ZZZZ010221	12000	%TEST+=   ERROR{TEST!='TEST'};
ZZZZ010221	12100	=IF{_START!=2}IF{SYSTEM_PERMISSION!=_PERMISSION}
ZZZZ010221	12200	= IF{_PERMISSION!='ZZZZ'}
ZZZZ010221	12300	=   ERROR{PERMISSION IS NOT '?_PERMISSION?'};
ZZZZ010221	12400	=IF{_START!=1}JUMP{START_NOT_1};
ZZZZ010221	12500	*=====( 削除チェック )=======================================
ZZZZ010221	12600	NAME=COPY_CHECK
ZZZZ010221	12700	=IF{_START=2}JUMP{COPY_CHECK_FIN};
ZZZZ010221	12800	=IF{_START=1}SET{WN.WHERE2=}JUMP{COPY_CHECK2};
ZZZZ010221	12900	=IF{SYSTEM_TEST=}SET{WN.WHERE1='AND SYSTEM_TEST!='' '''
ZZZZ010221	13000	=       ,WN.WHERE2=}JUMP{COPY_CHECK1};
ZZZZ010221	13100	=IF{SYSTEM_TEST='REAL'}
ZZZZ010221	13200	=   SET{WN.WHERE1='AND SYSTEM_TEST IN(''TEST'',''HALT'')'
ZZZZ010221	13300	=  ,WN.WHERE2='AND SYSTEM_TEST='' '''}JUMP{COPY_CHECK1};
ZZZZ010221	13400	=IF{SYSTEM_TEST='TEST'}
ZZZZ010221	13500	=   SET{WN.WHERE1='AND SYSTEM_TEST=''HALT'''
ZZZZ010221	13600	=   ,WN.WHERE2='AND SYSTEM_TEST NOT IN(''TEST'',''HALT'')'}
ZZZZ010221	13700	=   JUMP{COPY_CHECK1};
ZZZZ010221	13800	=IF{SYSTEM_TEST='HALT'}SET{WN.WHERE1=
ZZZZ010221	13900	=  ,WN.WHERE2='AND SYSTEM_TEST <>''HALT'''}JUMP{COPY_CHECK2};
ZZZZ010221	14000	=ERROR{PROGRAM MISS TEST='?SYSTEM_TEST?'};
ZZZZ010221	14100	REPEAT=2
ZZZZ010221	14200	1+=COPY_CHECK1:
ZZZZ010221	14300	2+=COPY_CHECK2:
ZZZZ010221	14400	2+=IF{_START!=1}IF{SYSTEM_TEST=}JUMP{COPY_CHECK_NEXT2};
ZZZZ010221	14500	=SET{WN.MENUS=SYSTEM_MENU0+SYSTEM_MENU1+SYSTEM_MENU2
ZZZZ010221	14600	=+SYSTEM_MENU3};
ZZZZ010221	14700	*=SQL_SET{WN.TEST,WN.MM}{SELECT  SYSTEM_TEST
ZZZZ010221	14800	*=   ,?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010221	14900	*=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010221	15000	*=   FROM ?_TABLE? WHERE .SYSTEM_LANG='?_LANG_SYSTEM?' AND
ZZZZ010221	15100	*1+=   ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010221	15200	*1+=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010221	15300	*1+=   IN('?SYSTEM_COPY1?','?SYSTEM_COPY2?'
ZZZZ010221	15400	*1+=  ,'?SYSTEM_COPY3?','?SYSTEM_COPY4?','?SYSTEM_COPY5?')
ZZZZ010221	15500	*2+=   ('?WN.MENUS?'=.SYSTEM_COPY1 OR
ZZZZ010221	15600	*2+=   '?WN.MENUS?'=SYSTEM_COPY2 OR
ZZZZ010221	15700	*2+=   '?WN.MENUS?'=SYSTEM_COPY3 OR
ZZZZ010221	15800	*2+=   '?WN.MENUS?'=SYSTEM_COPY4 OR
ZZZZ010221	15900	*2+=   '?WN.MENUS?'=SYSTEM_COPY5)
ZZZZ010221	16000	*=   AND ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010221	16100	*=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?<>
ZZZZ010221	16200	*=   '?WN.MENUS?' ?WN.WHERE##? AND Z_CANCEL=' '};
ZZZZ010221	16300	*=IF{_SQL_SET_COUNT=0}JUMP{COPY_CHECK_NEXT##};
ZZZZ010221	16400	=PROGRAM{0,?_TABLE?,
ZZZZ010221	16410	=   WC.SYSTEM_TEST=,WC.SYSTEM_MENU0=,WC.SYSTEM_MENU1=
ZZZZ010221	16600	=  ,WC.SYSTEM_MENU2=,WC.SYSTEM_MENU3=}
ZZZZ010221	16700	=  {WC.SYSTEM_LANG=_LANG_SYSTEM}
ZZZZ010221	16800	1+=  {?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010221	16900	1+=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010221	17000	1+=   IN('?SYSTEM_COPY1?','?SYSTEM_COPY2?'
ZZZZ010221	17100	1+=   ,'?SYSTEM_COPY3?','?SYSTEM_COPY4?','?SYSTEM_COPY5?')
ZZZZ010221	17200	2+=  {'?WN.MENUS?' IN(SYSTEM_COPY1,SYSTEM_COPY2,SYSTEM_COPY3
ZZZZ010221	17300	2+=   ,SYSTEM_COPY4,SYSTEM_COPY5)
ZZZZ010221	17400	=    AND NOT(?_VRE&SYSTEM_MENU0?
ZZZZ010221	17500	=    AND     ?_VRE&SYSTEM_MENU1?
ZZZZ010221	17600	=    AND     ?_VRE&SYSTEM_MENU2?
ZZZZ010221	17700	=    AND     ?_VRE&SYSTEM_MENU3?) ?WN.WHERE##?};
ZZZZ010221	17800	=SET{WN.MM=WC.SYSTEM_MENU0+WC.SYSTEM_MENU1+WC.SYSTEM_MENU2
ZZZZ010221	17900	=   +WC.SYSTEM_MENU3};
ZZZZ010221	18000	=IF{_PROGRAM_COUNT>0}
ZZZZ010221	18100	1+=   ERROR{MY COPY(?WN.MM?) TEST='?WC.SYSTEM_TEST?' FOUND};
ZZZZ010221	18200	2+=ERROR{OTHER COPY(?WN.MM?) TEST='?WC.SYSTEM_TEST?' FOUND};
ZZZZ010221	18300	1+=COPY_CHECK_NEXT1:
ZZZZ010221	18400	2+=COPY_CHECK_NEXT2:
ZZZZ010221	18500	*=COPY_CHECK_NEXT##:
ZZZZ010221	18600	REPEAT=
ZZZZ010221	18700	=COPY_CHECK_FIN:
ZZZZ010221	18800	NAME=
ZZZZ010221	18900	=IF{.SYSTEM_LANG!=_LANG_SYSTEM}JUMP{SKIP};
ZZZZ010221	19000	*SQL_SET{}{SELECT SYSTEM_JOB FROM ?_MM?_I_PROGRAM_TABLE P
ZZZZ010221	19100	*   WHERE P.SYSTEM_JOB=?_CL?'?SYSTEM_MENU0?'?_C?
ZZZZ010221	19200	*   '?.SYSTEM_MENU1??SYSTEM_MENU2??.SYSTEM_MENU3?'?_CR?
ZZZZ010221	19300	*   AND P.Z_CANCEL=' '};
ZZZZ010221	19400	*IF{_SQL_SET_COUNT!=0}ERROR{PROGRAM FOUND};
ZZZZ010221	19500	=PROGRAM{0,?_MM?_I_PROGRAM_TABLE}{WC.SYSTEM_JOB=
ZZZZ010221	19600	= SYSTEM_MENU0+SYSTEM_MENU1+SYSTEM_MENU2+SYSTEM_MENU3}{};
ZZZZ010221	19700	=IF{_PROGRAM_COUNT>0}ERROR{PROGRAM FOUND};
ZZZZ010221	19800	*=SQL_SET{}{SELECT ?_T?.SYSTEM_LANG FROM ?_TABLE? ?_T?. WHERE
ZZZZ010221	19900	*=   ?_T?.SYSTEM_LANG<>'?_LANG_SYSTEM?'
ZZZZ010221	20000	*=   AND ?_VE&SYSTEM_MENU0?
ZZZZ010221	20100	*=   AND ?_VE&SYSTEM_MENU1?
ZZZZ010221	20200	*=   AND ?_VE&SYSTEM_MENU2?
ZZZZ010221	20300	*=   AND ?_VE&SYSTEM_MENU3?
ZZZZ010221	20400	*=   AND ?_T?.Z_CANCEL=' '};
ZZZZ010221	20500	*=IF{_SQL_SET_COUNT!=0}ERROR{MENU E.T.C LANG FOUND};
ZZZZ010221	20600	=PROGRAM{0,?_TABLE?}
ZZZZ010221	20700	=  {SYSTEM_MENU0,SYSTEM_MENU1,SYSTEM_MENU2
ZZZZ010221	20800	=   ,SYSTEM_MENU3}{SYSTEM_LANG<>'?_LANG_SYSTEM?'};
ZZZZ010221	20900	=IF{_PROGRAM_COUNT>0}ERROR{MENU OTHER LANG FOUND};
ZZZZ010221	21000	=SKIP:
ZZZZ010221	21100	NAME=SECURITY_CHECK
ZZZZ010221	21200	*SET{WC.MENU03=SYSTEM_MENU0+SYSTEM_MENU1+SYSTEM_MENU2
ZZZZ010221	21300	*             +SYSTEM_MENU3};
ZZZZ010221	21400	REPEAT=2
ZZZZ010221	21500	*SQL_SET{W0.CNT}{SELECT COUNT(*) FROM
ZZZZ010221	21600	*   WHERE SYSTEM_JOB='?WC.MENU03?'
ZZZZ010221	21700	*   AND Z_CANCEL=' '};IF{W0.CNT>0}ERROR{SECURITY FOUND};
ZZZZ010221	21800	=PROGRAM{0,?_MM?_I_SECURITY?WN.SEC##?_J_TABLE}
ZZZZ010221	21900	=  {WC.SYSTEM_JOB=SYSTEM_MENU0
ZZZZ010221	22000	=   +SYSTEM_MENU1+SYSTEM_MENU2+SYSTEM_MENU3}{};
ZZZZ010221	22100	=IF{_PROGRAM_COUNT>0}ERROR{SECURITY FOUND};
ZZZZ010221	22200	REPEAT=
ZZZZ010221	22300	NAME=
ZZZZ010221	22400	=START_NOT_1:IF{_START=2}JUMP{OK};
ZZZZ010221	22500	*=====( 削除、修正チェック )=================================
ZZZZ010221	22600	NAME=SYSTEM_PROGRAM_CHECK
ZZZZ010221	22700	=IF{SYSTEM_MENU0!='ZZZZ',_PERSON='ZZZZZZZZ'}JUMP{OK};
ZZZZ010221	22800	=IF{SYSTEM_MENU1!=01}IF{SYSTEM_MENU1!=99}JUMP{OK};
ZZZZ010221	22900	=IF{SYSTEM_MENU1=01}IF{SYSTEM_MENU2/'0'}
ZZZZ010221	23000	=     ERROR{SYSTEM PROGRAM (ZZZZZZZZ) ONLY};
ZZZZ010221	23100	=IF{SYSTEM_MENU1=99}IF{SYSTEM_MENU2=98,=99}
ZZZZ010221	23200	= IF{SYSTEM_MENU3/'5'}ERROR{SYSTEM PROGRAM (ZZZZZZZZ) ONLY};
ZZZZ010221	23300	=IF{_PERMISSION!='ZZZZ'}ERROR{PERMISSION(ZZZZ) ONLY PROGRAM};
ZZZZ010221	23400	=OK:
ZZZZ010221	23500	NAME=
ZZZZ010221	23600	=IF{_START=0}
ZZZZ010221	23700	=IF{SYSTEM_MENU1='00',SYSTEM_MENU2='00',SYSTEM_MENU3='00'}
ZZZZ010221	23800	=                        ERROR{THIS IS NOT A JOB (00 FOUND)};
ZZZZ010221	23900	=IF{_START=3}IF{SYSTEM_LANG!='?_LANG_SYSTEM?'}
ZZZZ010221	24000	=                              EXIT{SYSTEM_MENU};
ZZZZ010221	24130	DATA={K?$WC.TIME_O?,&X2}?&.DATA&SYSTEM_MENU0?
ZZZZ010221	24220	DATA={K?$WC.TIME_O?}?&.DATA&SYSTEM_MENU1?
ZZZZ010221	24300	=IF{SYSTEM_MENU0='ZZZZ'}IF{SYSTEM_MENU1='01',='99'}
ZZZZ010221	24400	=   IF{_PERMISSION!='ZZZZ'}ERROR{PERMISSION NOT ZZZZ};
ZZZZ010221	24500	=IF{_START!=2,SYSTEM_MENU1!='00'}EXIT{};
ZZZZ010221	24600	=SET{SYSTEM_MENU2='00'}EXIT{SYSTEM_MENU3};
ZZZZ010221	24710	DATA={K?$WC.TIME_O?}?&.DATA&SYSTEM_MENU2?
ZZZZ010221	24800	COPY=SYSTEM_PROGRAM_CHECK
ZZZZ010221	24900	DATA={K}?&.DATA&SYSTEM_MENU3?
ZZZZ010221	24910	%MENU-=IF{_DATA='00'}ERROR{NOT 00};
ZZZZ010221	25000	=SET{WN.JOB=SYSTEM_MENU0+SYSTEM_MENU1+SYSTEM_MENU2
ZZZZ010221	25100	=+SYSTEM_MENU3};
ZZZZ010221	25200	=IF{SYSTEM_MENU1!='80'}
ZZZZ010221	25300	=  IF{SYSTEM_MENU1>40,SYSTEM_MENU2>40,SYSTEM_MENU3>40}
ZZZZ010221	25400	*  SET{.SYSTEM_LANG=_LANG_SYSTEM}EXIT{SYSTEM_TEST};
ZZZZ010221	25410	=  SET{SYSTEM_LANG=_LANG_SYSTEM}EXIT2{SYSTEM_LANG};
ZZZZ010221	25500	*=SQL_SET{W0.CNT}{SELECT COUNT(*)
ZZZZ010221	25600	*NAME=LANG_SYSTEM_MENU
ZZZZ010221	25700	*=   FROM ?_MM?_I_MENU_TABLE
ZZZZ010221	25800	*=   WHERE .SYSTEM_LANG='?_LANG_SYSTEM?'
ZZZZ010221	25900	*=   AND   ?_VRE&SYSTEM_MENU0?
ZZZZ010221	26000	*=   AND   ?_VRE&SYSTEM_MENU1?
ZZZZ010221	26100	*=   AND   ?_VRE&SYSTEM_MENU2?
ZZZZ010221	26200	*=   AND   ?_VRE&SYSTEM_MENU3?
ZZZZ010221	26300	*=   AND Z_CANCEL=' '};
ZZZZ010221	26400	*NAME=
ZZZZ010221	26500	*=IF{W0.CNT=0}
ZZZZ010221	26600	=PROGRAM{0,?_MM?_I_MENU_TABLE}
ZZZZ010221	26700	=  {WC.SYSTEM_LANG=_LANG_SYSTEM,SYSTEM_MENU0,SYSTEM_MENU1
ZZZZ010221	26800	=   ,SYSTEM_MENU2,SYSTEM_MENU3}{};
ZZZZ010221	26900	=IF{_PROGRAM_COUNT=0}
ZZZZ010221	27000	*   SET{.SYSTEM_LANG=_LANG_SYSTEM}EXIT{SYSTEM_TEST};
ZZZZ010221	27010	=   SET{SYSTEM_LANG=_LANG_SYSTEM}EXIT2{SYSTEM_LANG};
ZZZZ010221	27100	=IF{SYSTEM_LANG=}SET{SYSTEM_LANG=SYSTEM_LANG};
ZZZZ010221	27200	=EXIT{};
ZZZZ010221	27300	=NO_MENU:IF{SYSTEM_MENU3=00}ERROR{MENU3=00 ERROR};
ZZZZ010221	27400	=SET{.SYSTEM_LANG=_LANG_SYSTEM,SYSTEM_SECURITY=};
ZZZZ010221	27500	=EXIT{SYSTEM_TEST};
ZZZZ010221	27600	DATA={*O}SYSTEM_SECURITY_JOB{1,,+}SJ
ZZZZ010221	27700	DATA={*O}SYSTEM_SECURITY_GROUP{1,,+}SG
ZZZZ010221	27800	DATA={K}?&.DATA&SYSTEM_LANG?
ZZZZ010221	27900	=IF{_DATA=_LANG_SYSTEM}EXIT{};
ZZZZ010221	28000	*SQL_SET{SYSTEM_TEST,.SYSTEM_PROGRAM_KIND,.SYSTEM_PERMISSION
ZZZZ010221	28100	*=,.SYSTEM_PART,.SYSTEM_SECURITY,SYSTEM_COPY1,.SYSTEM_COPY2
ZZZZ010221	28200	*=,SYSTEM_COPY3,SYSTEM_COPY4,SYSTEM_COPY5}
ZZZZ010221	28300	*={SELECT SYSTEM_TEST,SYSTEM_PROGRAM_KIND,SYSTEM_PERMISSION
ZZZZ010221	28400	*=,SYSTEM_PART,SYSTEM_SECURITY
ZZZZ010221	28500	*=,SYSTEM_COPY1,SYSTEM_COPY2,SYSTEM_COPY3,SYSTEM_COPY4
ZZZZ010221	28600	*=,SYSTEM_COPY5
ZZZZ010221	28700	*COPY=LANG_SYSTEM_MENU
ZZZZ010221	28800	=PROGRAM{0,?_MM?_I_MENU_TABLE,
ZZZZ010221	28810	=    SYSTEM_TEST,SYSTEM_PROGRAM_KIND
ZZZZ010221	28900	=   ,SYSTEM_PERMISSION,SYSTEM_PART,SYSTEM_SECURITY
ZZZZ010221	29000	=   ,SYSTEM_COPY1,SYSTEM_COPY2,SYSTEM_COPY3,SYSTEM_COPY4
ZZZZ010221	29100	=   ,SYSTEM_COPY5}
ZZZZ010221	29200	=  {WC.SYSTEM_LANG=_LANG_SYSTEM,SYSTEM_MENU0
ZZZZ010221	29300	=   ,SYSTEM_MENU1,SYSTEM_MENU2,SYSTEM_MENU3}{};
ZZZZ010221	29400	=IF{_PROGRAM_COUNT=0}ERROR{SYSTEM LANG NOT FOUND};
ZZZZ010221	29500	=IF{SYSTEM_PERMISSION!=_PERMISSION}IF{_PERMISSION!='ZZZZ'}
ZZZZ010221	29600	=   ERROR{PERMISSION NOT ?_PERMISSION?};
ZZZZ010221	29700	=EXIT{SYSTEM_MENU};
ZZZZ010221	29800	DATA={ }?&.DATA&SYSTEM_TEST?
ZZZZ010221	29900	%TEST-CHECK=,?&.CHECK1&SYSTEM_TEST?,HALT,REAL
ZZZZ010221	30000	%TEST+CHECK=,?&.CHECK1&SYSTEM_TEST?,HALT
ZZZZ010221	30100	*IF{SYSTEM_MENU1='00'}IF{SYSTEM_MENU2='00'}
ZZZZ010221	30200	*   SET{WN.MENU='N'}JUMP{};
ZZZZ010221	30300	*SET{   WN.MENU='/'};
ZZZZ010221	30400	*SET{SYSTEM_MENU@TYPE1=WN.MENU};
ZZZZ010221	30500	%TEST+=IF{SYSTEM_TEST='REAL',=''}ERROR{'',REAL};
ZZZZ010221	30600	COPY=COPY_CHECK
ZZZZ010221	30700	DATA={,*&X2}?&.DATA&SYSTEM_PERMISSION?
ZZZZ010221	30800	=IF{_START!=3,_DATA=_DATA@OLD}JUMP{SKIP};
ZZZZ010221	30900	COPY=SECURITY_CHECK
ZZZZ010221	31000	=SKIP:
ZZZZ010221	31100	=IF_NOT{SYSTEM_MENU0[1;1]='Z'}
ZZZZ010221	31200	=   IF_NOT{_DATA=SYSTEM_MENU0,='ZZZZ'}
ZZZZ010221	31300	=      ERROR{?SYSTEM_MENU0? OR 'ZZZZ'};
ZZZZ010221	31400	=IF{_PERMISSION!='ZZZZ'}IF{_PERMISSION!=_DATA}
ZZZZ010221	31500	=   ERROR{PERMISSION(?_PERMISSION?)};
ZZZZ010221	31600	=IF{'00'=SYSTEM_MENU3,'00'=SYSTEM_MENU2}
ZZZZ010221	31700	=   SET{SYSTEM_PROGRAM_KIND=,SYSTEM_SECURITY=
ZZZZ010221	31800	=   ,SYSTEM_COPY1=,SYSTEM_COPY2=,SYSTEM_COPY3=
ZZZZ010221	31900	=   ,SYSTEM_COPY4=,SYSTEM_COPY5=}EXIT{SYSTEM_MENU};
ZZZZ010221	32000	*IF{SYSTEM_MENU1=80}EXIT{};  CGI*
ZZZZ010221	32100	*IF{SYSTEM_MENU1>40,.SYSTEM_MENU2>40,.SYSTEM_MENU3>40}
ZZZZ010221	32200	* SET{.SYSTEM_SECURITY=,SYSTEM_PART=}EXIT{.SYSTEM_COPY1};
ZZZZ010221	32300	*EXIT{};
ZZZZ010221	32400	*SET{.SYSTEM_SECURITY_X=};
ZZZZ010221	32500	*SET{SYSTEM_PROGRAM_KIND='*'};
ZZZZ010221	32600	*IF{.SYSTEM_MENU1>49}SET{SYSTEM_PROGRAM_KIND='INPUT'};
ZZZZ010221	32700	*EXIT{SYSTEM_COPY1};
ZZZZ010221	32800	DATA={,*&X2}?&.DATA&SYSTEM_PART?
ZZZZ010221	32900	=IF{SYSTEM_MENU1=80}EXIT{};  CGI*
ZZZZ010221	33000	=IF_NOT{SYSTEM_MENU1>40,SYSTEM_MENU2>40,SYSTEM_MENU3>40}
ZZZZ010221	33100	=   EXIT{};
ZZZZ010221	33400	=IF{SYSTEM_MENU1>49}            VER23.1*
ZZZZ010221	33500	=   SET{SYSTEM_PROGRAM_KIND='INPUT'}JUMP{};
ZZZZ010221	33600	=   SET{SYSTEM_PROGRAM_KIND=};
ZZZZ010221	33700	=SET{SYSTEM_SECURITY=};
ZZZZ010221	33800	=EXIT{SYSTEM_COPY1};
ZZZZ010221	33900	=TIME:
ZZZZ010221	34000	=SET{SYSTEM_PROGRAM_KIND='INPUT'};
ZZZZ010221	34100	=SET{SYSTEM_SECURITY=}
ZZZZ010221	34500	=EXIT{SYSTEM_MENU};
ZZZZ010221	34600	DATA={}?&.DATA&SYSTEM_PROGRAM_KIND?
ZZZZ010221	34700	**=IF{SYSTEM_MENU1!=80} CGI*   VER23.1
ZZZZ010221	34800	**=  IF{SYSTEM_MENU1>49}SET{.SYSTEM_SECURITY=}
ZZZZ010221	34900	**=                                EXIT{SYSTEM_COPY1}; TIME*
ZZZZ010221	35500	DATA={}?&.DATA&SYSTEM_SECURITY?
ZZZZ010221	35600	=IF{_START!=3,_DATA=_DATA@OLD,_DATA!='X'}JUMP{SKIP};
ZZZZ010221	35700	COPY=SECURITY_CHECK
ZZZZ010221	35800	=SKIP:
ZZZZ010221	35900	REPEAT=5
ZZZZ010221	36000	1+DATA={ }?&.DATA&SYSTEM_COPY1?
ZZZZ010221	36100	1-DATA={ }?&.DATA&SYSTEM_COPY##?
ZZZZ010221	36200	1-2-=IF{SYSTEM_COPY2!='ZZZZZZZZZZ'}JUMP{SKIP};
ZZZZ010221	36300	1-2-=IF{_DATA!=}ERROR{COPY2='ZZZZZZZZZZ'};
ZZZZ010221	36400	1-2-=EXIT{};
ZZZZ010221	36500	1-2-=SKIP:
ZZZZ010221	36600	2+=IF{_DATA!='ZZZZZZZZZZ'}JUMP{SKIP};
ZZZZ010221	36700	2+=IF{SYSTEM_COPY1=}ERROR{COPY1 IS SPACE};
ZZZZ010221	36800	2+=EXIT{};
ZZZZ010221	36900	=SKIP:IF{_DATA@COUNT=0}EXIT{};
ZZZZ010221	37000	=IF{_DATA@COUNT!=10}ERROR{LENGTH!=10};
ZZZZ010221	37100	=IF{SYSTEM_MENU0[1;1]!='Z'}
ZZZZ010221	37200	= IF{SYSTEM_MENU0!=_DATA[1;4]}ERROR{NOT ?SYSTEM_MENU0?...};
ZZZZ010221	37300	=IF{'00'=_DATA[5;2],=_DATA[7;2],=_DATA[9;2]}ERROR{00 FOUND};
ZZZZ010221	37400	=IF{SYSTEM_MENU1>'49'}JUMP{TIME};
ZZZZ010221	37530	=IF{_DATA[5;2]>'49'}ERROR{NOT MENU JOB};
ZZZZ010221	37533	=JUMP{OK};
ZZZZ010221	37600	=TIME:
ZZZZ010221	37700	=IF_NOT{_DATA[5;2]>'49'}ERROR{NOT TIME JOB};
ZZZZ010221	38350	=OK:
ZZZZ010221	38400	=PROGRAM{0,?_TABLE?,WC.SYSTEM_TEST=}
ZZZZ010221	38500	=  {WC.SYSTEM_LANG=_LANG_SYSTEM
ZZZZ010221	38600	=   ,WC.SYSTEM_MENU0=_DATA[1;4]
ZZZZ010221	38700	=   ,WC.SYSTEM_MENU1=_DATA[5;2]
ZZZZ010221	38800	=   ,WC.SYSTEM_MENU2=_DATA[7;2]
ZZZZ010221	38900	=   ,WC.SYSTEM_MENU3=_DATA[9;2]}{};
ZZZZ010221	39000	=IF{_PROGRAM_COUNT=0}ERROR{COPY MENU NOT FOUND};
ZZZZ010221	39100	=IF{SYSTEM_TEST=} IF{WC.SYSTEM_TEST!=}JUMP{ERR};
ZZZZ010221	39200	=IF{SYSTEM_TEST='REAL'}
ZZZZ010221	39300	=   IF{WC.SYSTEM_TEST='TEST',='HALT'}JUMP{ERR};
ZZZZ010221	39400	=IF{SYSTEM_TEST='TEST'}IF{WC.SYSTEM_TEST='HALT'}JUMP{ERR};
ZZZZ010221	39500	=EXIT{};
ZZZZ010221	39600	=ERR:ERROR{COPY MENU TEST='?WC.SYSTEM_TEST?' ERROR};
ZZZZ010221	39700	REPEAT=
ZZZZ010221	39800	DATA={ }?&.DATA&SYSTEM_MENU?
ZZZZ010221	39900	COPY=COPY_CHECK
ZZZZ010221	40000	DATA={*N}ORDER{1}
ZZZZ010221	40100	SELECT=CASE WHEN ?_7?='?_LANG_SYSTEM?' THEN 0 ELSE 1 END
ZZZZ010221	40200	STOP_AFTER
ZZZZ010221	40300	=IF{SYSTEM_LANG!='?_LANG_SYSTEM?'}EXIT{};
ZZZZ010221	40400	=SQL{UPDATE ?_TABLE? SET ?_Z_UPDATE_CHANGE?
ZZZZ010221	40500	=   ,?_VRE&SYSTEM_TEST?
ZZZZ010221	40600	=   ,?_VRE&SYSTEM_PROGRAM_KIND?
ZZZZ010221	40700	=   ,?_VRE&SYSTEM_PERMISSION?
ZZZZ010221	40800	=   ,?_VRE&SYSTEM_PART?
ZZZZ010221	40900	=   ,?_VRE&SYSTEM_SECURITY?
ZZZZ010221	41000	REPEAT=5
ZZZZ010221	41100	=   ,?_VRE&SYSTEM_COPY##?
ZZZZ010221	41200	REPEAT=
ZZZZ010221	41300	=   WHERE ?_VRE&SYSTEM_MENU0?
ZZZZ010221	41400	=   AND   ?_VRE&SYSTEM_MENU1?
ZZZZ010221	41500	=   AND   ?_VRE&SYSTEM_MENU2?
ZZZZ010221	41600	=   AND   ?_VRE&SYSTEM_MENU3?
ZZZZ010221	41700	=   AND SYSTEM_LANG<>'?_LANG_SYSTEM?'
ZZZZ010221	41800	=   AND (?_VRLG&.SYSTEM_TEST?
ZZZZ010221	41900	=   OR ?_VRLG&SYSTEM_PROGRAM_KIND?
ZZZZ010221	42000	=   OR ?_VRLG&SYSTEM_PERMISSION?
ZZZZ010221	42100	=   OR ?_VRLG&SYSTEM_PART?
ZZZZ010221	42200	=   OR ?_VRLG&SYSTEM_SECURITY?
ZZZZ010221	42300	REPEAT=5
ZZZZ010221	42400	=   OR ?_VRLG&SYSTEM_COPY##?
ZZZZ010221	42500	REPEAT=
ZZZZ010221	42600	=   )AND Z_CANCEL=' '};
ZZZZ010221	42700	REPEAT=_DATA_COUNT
ZZZZ010221	42800	5-6-SQL=?_SELECT##?
ZZZZ010221	42900	5+REPEAT2=2
ZZZZ010221	43000	5+SQL= ,(SELECT CASE WHEN COUNT(*)>9 THEN 9 ELSE COUNT(*) END
ZZZZ010221	43100	5+SQL=   FROM ?_MM?_I_SECURITY?WN.SEC$$?_J_TABLE X2
ZZZZ010221	43200	5+SQL=   WHERE ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010221	43300	5+SQL=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010221	43400	5+SQL=   =X2.SYSTEM_JOB
ZZZZ010221	43500	5+SQL=   AND X2.Z_CANCEL=' ')
ZZZZ010221	43600	REPEAT=
ZZZZ010221	43700	SQL=   ,?_T?.Z_CANCEL FROM ?_TABLE? ?_T? WHERE
ZZZZ010221	43800	*SQL=SYSTEM_PERMISSION LIKE '?PERMISSION?%'
ZZZZ010221	43900	SQL=   ?_L&.SYSTEM_PERMISSION?
ZZZZ010221	44000	SQL=   AND ?_L&.SYSTEM_PART?
ZZZZ010221	44100	*SQL=   AND .TEST LIKE '?TEST?%'
ZZZZ010221	44200	SQL=   AND ?_L&.SYSTEM_TEST?
ZZZZ010221	44300	SQL=   AND ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1?_C?SYSTEM_MENU2
ZZZZ010221	44400	SQL=   ?_C?SYSTEM_MENU3?_CR? LIKE '?SYSTEM_JOB?%' AND
ZZZZ010221	44500	*QL=(.LANG LIKE '?LANG?%' OR .LANG=' ')
ZZZZ010221	44600	SQL=   (?_L&.SYSTEM_LANG? OR ?_T?.SYSTEM_LANG=' ')
ZZZZ010221	44700	*QL=AND .MENU LIKE '%?MENU?%'
ZZZZ010221	44800	SQL=   AND ?_I&.SYSTEM_MENU?
ZZZZ010221	44900	REPEAT=5
ZZZZ010221	45000	1+SQL=   AND(
ZZZZ010221	45100	1-SQL=   OR
ZZZZ010221	45200	SQL=   ?_T?.SYSTEM_COPY## LIKE '%?.SYSTEM_COPY1?%'
ZZZZ010221	45300	REPEAT=
ZZZZ010221	45400	SQL=   )ORDER BY 1,2,3,4,15,7
ZZZZ010221	45500	%GRAMMAR_CHECK-COMMENT_END
ZZZZ010222	10	MINUS=%MENU
ZZZZ010222	100	PROGRAM=,&X1,?_MM?_I_TIME_TABLE
ZZZZ010222	200	TABLE=&X2,?_MM?_ETC_TABLE
ZZZZ010222	300	CONTROL=0,SCROLL
ZZZZ010222	400	BEGIN
ZZZZ010222	410	=SET{WC.TIME_O='O'};
ZZZZ010222	420	COMMENT_BEGIN
ZZZZ010222	500	*============================================================
ZZZZ010222	600	*(W0.ETC1,WC.ETC1PR,1MT,1CC,11X,12X,13X,14X,15X,16X)=SET等
ZZZZ010222	700	*(W0.ETC2,WC.ETC2PR,2MT,2CC,21X,22X,23X,24X,25X,26X) SET=等
ZZZZ010222	800	*(W0.ETC3,WC.ETC3PR,3MT,3CC) BEGIN等
ZZZZ010222	900	*(W0.ETC4,WC.ETC3PR) 1+等
ZZZZ010222	1000	REPEAT=4
ZZZZ010222	1100	=SQL_REPEAT{WC.ETC##PR
ZZZZ010222	1200	4-= ,WC.ETC##MT,WC.ETC##CC
ZZZZ010222	1300	1+|2+= ,WC.ETC##0X,WC.ETC##1X,WC.ETC##2X,WC.ETC##3X
ZZZZ010222	1400	1+|2+= ,WC.ETC##4X,WC.ETC##5X,WC.ETC##6X,WC.ETC##7X
ZZZZ010222	1500	= }{SELECT DISTINCT REPLACE(REPLACE(REPLACE(
ZZZZ010222	1600	= ?_SUBSTR(SYSTEM_KEY2;1;29)?,'//',''),'=',''),'+','')
ZZZZ010222	1700	4-=    ,?_SUBSTR(SYSTEM_COMMENT;1;1)?
ZZZZ010222	1800	4-=    ,?_SUBSTR(SYSTEM_COMMENT;3;1)?
ZZZZ010222	1900	1+|2+= ,?_SUBSTR(SYSTEM_COMMENT;4;3)?
ZZZZ010222	2000	1+|2+= ,?_SUBSTR(SYSTEM_COMMENT;7;3)?
ZZZZ010222	2100	1+|2+= ,?_SUBSTR(SYSTEM_COMMENT;10;3)?
ZZZZ010222	2200	1+|2+= ,?_SUBSTR(SYSTEM_COMMENT;13;3)?
ZZZZ010222	2300	1+|2+= ,?_SUBSTR(SYSTEM_COMMENT;16;3)?
ZZZZ010222	2400	1+|2+= ,?_SUBSTR(SYSTEM_COMMENT;19;3)?
ZZZZ010222	2410	1+|2+= ,?_SUBSTR(SYSTEM_COMMENT;22;3)?
ZZZZ010222	2430	1+|2+= ,?_SUBSTR(SYSTEM_COMMENT;25;3)?
ZZZZ010222	2500	= FROM ?_MM?_ETC_TABLE
ZZZZ010222	2600	= WHERE SYSTEM_KEY1='ZZZZZZ_PROGRAM' AND
ZZZZ010222	2700	1+= SYSTEM_KEY2 LIKE '//=%'
ZZZZ010222	2800	2+= SYSTEM_KEY2 LIKE '%=//%'
ZZZZ010222	2900	3+=NOT( SYSTEM_KEY2 LIKE '%=%' OR  SYSTEM_KEY2 LIKE '%+%')
ZZZZ010222	3000	4+= SYSTEM_KEY2 LIKE '%+//%'
ZZZZ010222	3100	= AND ?_SUBSTR(SYSTEM_COMMENT;2;1)?='/'
ZZZZ010222	3110	= AND ?_SUBSTR(SYSTEM_KEY2;3;9)?!='  COMMENT'
ZZZZ010222	3200	= AND Z_CANCEL=' ' ORDER BY 1};
ZZZZ010222	3300	=SET{W0.ETC##=_SQL_REPEAT_COUNT}; VER20.1_CUT*
ZZZZ010222	3400	=SET{WC.ETC##PR_COUNT=_SQL_REPEAT_COUNT}; VER20.1*
ZZZZ010222	3500	REPEAT=
ZZZZ010222	3600	*(W0.ETC5??,WC.ETC5??,5??X) 各種設定 ========================
ZZZZ010222	3700	=SQL_REPEAT{WC.ETC5ORG}{SELECT DISTINCT
ZZZZ010222	3800	= ?_SUBSTR(SYSTEM_KEY2;1;2)? FROM ?_MM?_ETC_TABLE
ZZZZ010222	3900	= WHERE SYSTEM_KEY1='ZZZZZZ_PROGRAM' AND
ZZZZ010222	4000	= SYSTEM_KEY2 NOT LIKE '//%'
ZZZZ010222	4010	=   AND ?_SUBSTR(SYSTEM_KEY2;3;9)?!='  COMMENT'
ZZZZ010222	4020	=   AND Z_CANCEL=' ' ORDER BY 1};
ZZZZ010222	4100	=SET{W0.ETC5ORG_MAX=_SQL_REPEAT_COUNT}; VER20.1_CUT*
ZZZZ010222	4200	=SET{WC.ETC5ORG_COUNT=_SQL_REPEAT_COUNT}; VER20.1*
ZZZZ010222	4300	=SET{W0=1};
ZZZZ010222	4400	=LOOP:IF{W0>W0.ETC5ORG_MAX}JUMP{END};
ZZZZ010222	4500	=SET{WC=WC.ETC5ORG?W0?};
ZZZZ010222	4600	=SQL_REPEAT{WC.ETC5?WC?,WC.ETC5?WC?X}
ZZZZ010222	4700	= {SELECT DISTINCT ?_SUBSTR(SYSTEM_KEY2;4;27)?,SYSTEM_ETC
ZZZZ010222	4800	= FROM ?_MM?_ETC_TABLE WHERE SYSTEM_KEY1='ZZZZZZ_PROGRAM'
ZZZZ010222	4900	= AND SYSTEM_KEY2 LIKE '?WC?%'
ZZZZ010222	4901	= AND ?_SUBSTR(SYSTEM_KEY2;3;9)?!='  COMMENT'
ZZZZ010222	4910	= AND Z_CANCEL=' ' ORDER BY 1};
ZZZZ010222	5000	=SET{W0.ETC5?WC?=_SQL_REPEAT_COUNT}; VER20.1_CUT*
ZZZZ010222	5100	=SET{WC.ETC5?WC?_COUNT=_SQL_REPEAT_COUNT}; VER20.1*
ZZZZ010222	5200	=COMPUTE{W0+=1};BACK{LOOP};
ZZZZ010222	5300	=END:
ZZZZ010222	5400	*============================================================
ZZZZ010222	5590	COMMENT_END
ZZZZ010222	5592	=SET{WC.MENU_TIME='T',WC.COPY_SW=0};
ZZZZ010222	5600	*SQL_SET{WN.TIME_START}
ZZZZ010222	5700	*   {SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ010222	5800	*   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010222	5900	*   AND SYSTEM_KEY2='ZZZZZZ_TIME_START'
ZZZZ010222	6000	*   AND Z_CANCEL=' '};
ZZZZ010222	6100	*SQL_SET{WN.TIME_LIMIT}
ZZZZ010222	6200	*   {SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ010222	6300	*   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010222	6400	*   AND SYSTEM_KEY2='ZZZZZZ_TIME_LIMIT'
ZZZZ010222	6500	*   AND Z_CANCEL=' '};
ZZZZ010222	6600	=SPLIT_CHAR{WC.}{'START,LIMIT'}{','};
ZZZZ010222	6700	REPEAT=2
ZZZZ010222	6800	=PROGRAM{0,?_MM?_ETC_TABLE,WN.SYSTEM_ETC=}
ZZZZ010222	6810	=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010222	6900	=   ,WC.SYSTEM_KEY2='ZZZZZZ_TIME_?WC.##?'}{};
ZZZZ010222	7000	=IF{WN.SYSTEM_ETC=}
ZZZZ010222	7100	=   ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? NOT FOUND};
ZZZZ010222	7200	=SET{WN.TIME_?WC.##?=WN.SYSTEM_ETC};
ZZZZ010222	7300	REPEAT=
ZZZZ010222	7400	SET={,*}S0.HHMM{4}
ZZZZ010222	7500	JA+TITLE=時分
ZZZZ010222	7600	=SET{_DATA@WHERE='?_CL?SYSTEM_HH?_C?SYSTEM_MIN?_CR? LIKE'
ZZZZ010222	7700	=+' ''?S0.HHMM?%'''};
ZZZZ010222	7800	SET={,*}COLOR{2}{,NO}
ZZZZ010222	7900	JA+TITLE=色表示
ZZZZ010222	8000	SET={,*}GRAMMAR{2}{,NO}
ZZZZ010222	8100	JA+TITLE=文法確認
ZZZZ010222	8200	START
ZZZZ010222	8300	=SET{WN.SHIFT=
ZZZZ010222	8400	=   '01,02,03,04,05,06,07,08,09,10,11,12,13,14,15'};
ZZZZ010222	8500	=IF{_START=2}SET{SYSTEM_TEST='TEST'};
ZZZZ010222	8600	%TEST+=IF{SYSTEM_TEST!='TEST'}
ZZZZ010222	8700	%TEST+=   ERROR{TEST!=TEST};
ZZZZ010222	8800	=SET{WN.HH_S=WN.TIME_START[1;2],WN.HH_L=WN.TIME_LIMIT[1;2]};
ZZZZ010222	8900	=IF{WN.TIME_START[4;2]<='55'}JUMP{SKIP};
ZZZZ010222	9000	=IF_ERROR_COMPUTE{WN.HH_S+=1}ERROR{};
ZZZZ010222	9100	=SET{W0.L=WN.HH_S@COUNT}
ZZZZ010222	9200	=  IF{W0.L<2}SET{WN.HH_S='0'+WN.HH_S}BACK{};
ZZZZ010222	9300	=SET{WN.TIME_START=WN.HH_S+':'};
ZZZZ010222	9400	=SKIP:
ZZZZ010222	9500	%TEST-=SET{WN.CHECK1_TEST=',TEST,HALT'};
ZZZZ010222	9600	%TEST+=SET{WN.CHECK1_TEST='TEST'};
ZZZZ010222	9700	*=IF{_START!=1}EXIT{};
ZZZZ010222	9800	*=SQL_SET{}{SELECT SYSTEM_MENU0
ZZZZ010222	9810	*= FROM ?_MM?_I_MENU_TABLE WHERE
ZZZZ010222	9900	*=.SYSTEM_MENU0='T' AND SYSTEM_MENU1='?SYSTEM_HH?'
ZZZZ010222	10000	*= AND .SYSTEM_MENU2='?SYSTEM_MIN?'
ZZZZ010222	10100	*=AND Z_CANCEL=' '};IF{_SQL_SET_COUNT=0}EXIT{};
ZZZZ010222	10200	*=ERROR{MENU_TABLE FOUND};
ZZZZ010222	10300	DATA={C}?&.DATA&SYSTEM_TEST?
ZZZZ010222	10400	CHECK=?WN.CHECK1_TEST?
ZZZZ010222	10500	%TEST+=IF{SYSTEM_TEST!='TEST'}ERROR{TEST!='TEST'};
ZZZZ010222	10600	DATA={K}?&.DATA&SYSTEM_HH?
ZZZZ010222	10700	CHECK=(?WN.HH_S?,?WN.HH_L?),(50,79),(81,99)
ZZZZ010222	10800	=IF{_DATA>49}SET{.SYSTEM_TIMING=,SYSTEM_BEGIN_END=
ZZZZ010222	10900	=  ,SYSTEM_SHIFT=,WN.MM='(00,99)'}EXIT{};
ZZZZ010222	11000	=SET{WN.MM='00,05,10,15,20,25,30,35,40,45,50,55'};
ZZZZ010222	11100	=IF{_DATA=WN.HH_S}JUMP{TIME_START};
ZZZZ010222	11200	=IF{_DATA=WN.HH_L}JUMP{TIME_LIMIT};
ZZZZ010222	11300	=EXIT{};
ZZZZ010222	11400	=TIME_START:SET{WN=WN.TIME_START[4;2]};
ZZZZ010222	11500	=IF{WN<'00'}EXIT{};
ZZZZ010222	11600	=IF{WN<'01'}SET{WN.MM='05,10,15,20,25,30,35,40,45,50,55'}
ZZZZ010222	11700	=   EXIT{};
ZZZZ010222	11800	=IF{WN<'06'}SET{WN.MM='10,15,20,25,30,35,40,45,50,55'}EXIT{};
ZZZZ010222	11900	=IF{WN<'11'}SET{WN.MM='15,20,25,30,35,40,45,50,55'}EXIT{};
ZZZZ010222	12000	=IF{WN<'16'}SET{WN.MM='20,25,30,35,40,45,50,55'}EXIT{};
ZZZZ010222	12100	=IF{WN<'21'}SET{WN.MM='25,30,35,40,45,50,55'}EXIT{};
ZZZZ010222	12200	=IF{WN<'26'}SET{WN.MM='30,35,40,45,50,55'}EXIT{};
ZZZZ010222	12300	=IF{WN<'31'}SET{WN.MM='35,40,45,50,55'}EXIT{};
ZZZZ010222	12400	=IF{WN<'36'}SET{WN.MM='40,45,50,55'}EXIT{};
ZZZZ010222	12500	=IF{WN<'41'}SET{WN.MM='45,50,55'}EXIT{};
ZZZZ010222	12600	=IF{WN<'46'}SET{WN.MM='50,55'}EXIT{};
ZZZZ010222	12700	=SET{WN.MM='55'};
ZZZZ010222	12800	=EXIT{};
ZZZZ010222	12900	=TIME_LIMIT:SET{WN=WN.TIME_LIMIT[4;2]};
ZZZZ010222	13000	=IF{WN>'54'}EXIT{};
ZZZZ010222	13100	=IF{WN>'49'} SET{WN.MM='00,05,10,15,20,25,30,35,40,45,50'}
ZZZZ010222	13200	=   EXIT{};
ZZZZ010222	13300	=IF{WN>'44'}SET{WN.MM='00,05,10,15,20,25,30,35,40,45'}EXIT{};
ZZZZ010222	13400	=IF{WN>'39'}SET{WN.MM='00,05,10,15,20,25,30,35,40'}EXIT{};
ZZZZ010222	13500	=IF{WN>'34'}SET{WN.MM='00,05,10,15,20,25,30,35'}EXIT{};
ZZZZ010222	13600	=IF{WN>'29'}SET{WN.MM='00,05,10,15,20,25,30'}EXIT{};
ZZZZ010222	13700	=IF{WN>'24'}SET{WN.MM='00,05,10,15,20,25'}EXIT{};
ZZZZ010222	13800	=IF{WN>'19'}SET{WN.MM='00,05,10,15,20'}EXIT{};
ZZZZ010222	13900	=IF{WN>'14'}SET{WN.MM='00,05,10,15'}EXIT{};
ZZZZ010222	14000	=IF{WN>'09'}SET{WN.MM='00,05,10'}EXIT{};
ZZZZ010222	14100	=IF{WN>'04'}SET{WN.MM='00,05'}EXIT{};
ZZZZ010222	14200	=SET{WN.MM='00'};
ZZZZ010222	14300	DATA={K}?&.DATA&SYSTEM_MIN?
ZZZZ010222	14400	CHECK=?WN.MM?
ZZZZ010222	14500	DATA={,&X2}?&.DATA&SYSTEM_MENU0?
ZZZZ010222	14600	DATA={}?&.DATA&SYSTEM_MENU1?
ZZZZ010222	14700	CHECK=(50,79),(81,99)
ZZZZ010222	14800	=IF{SYSTEM_MENU0='ZZZZ'}IF{SYSTEM_MENU1='99'}
ZZZZ010222	14900	=  IF{_PERMISSION!='ZZZZ'}ERROR{PERMISSION NOT ZZZZ};
ZZZZ010222	15000	DATA={}?&.DATA&SYSTEM_MENU2?
ZZZZ010222	15100	CHECK=(01,99)
ZZZZ010222	15200	=IF{SYSTEM_HH>'23'}EXIT{SYSTEM_DOC};
ZZZZ010222	15300	DATA=?&.DATA&SYSTEM_TIMING?
ZZZZ010222	15400	JA+MESSAGE=D=毎日,W=曜日,M=毎月,01-12=指定月
ZZZZ010222	15500	JA-MESSAGE=D=DAILY,W=WEEKLY,M=MONTHLY,01-12=MONTH
ZZZZ010222	15600	=IF{SYSTEM_TIMING='D'}
ZZZZ010222	15700	=   SET{SYSTEM_BEGIN_END=,.SYSTEM_SHIFT=}EXIT{SYSTEM_DOC};
ZZZZ010222	15800	=SET{WN.MAX=10};
ZZZZ010222	15900	=IF{SYSTEM_TIMING='W'}SET{WN.SHIFT='01,02,03,04'};
ZZZZ010222	16000	DATA=?&.DATA&SYSTEM_BEGIN_END?
ZZZZ010222	16100	JA+MESSAGE=+=初めから,-終わりから
ZZZZ010222	16200	JA-MESSAGE=+=FROM_BEGIN,-FROM_END
ZZZZ010222	16300	DATA=?&.DATA&SYSTEM_SHIFT?
ZZZZ010222	16400	CHECK=?WN.SHIFT?
ZZZZ010222	16500	JA+MESSAGE=稼動日で何日目 後(+)、前(-)
ZZZZ010222	16600	JA-MESSAGE=DAY AFTER(+)、BEFORE(-)
ZZZZ010222	16700	DATA=?&.DATA&SYSTEM_DOC?
ZZZZ010222	16800	COPY=@ZZZZZZ_SQL
ZZZZ010222	16900	*###########################################################
ZZZZ010222	16910	COMMENT_BEGIN
ZZZZ010222	17000	PROGRAM=,&X1,?_MM?_I_MENU_TABLE
ZZZZ010222	17100	TABLE=&X2,?_MM?_ETC_TABLE
ZZZZ010222	17200	CONTROL=0,SCROLL
ZZZZ010222	17300	BEGIN
ZZZZ010222	17400	=SET{.SYSTEM_LANG=_LANG_SYSTEM
ZZZZ010222	17500	=   ,O.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010222	17600	=SET{S0.SYSTEM_TIME=$.SYSTEM_HH+':'+$SYSTEM_MIN};
ZZZZ010222	17700	*=SET{SYSTEM_DOC=$SYSTEM_DOC};
ZZZZ010222	17800	=SET{SYSTEM_MENU0=$SYSTEM_MENU0};
ZZZZ010222	17900	=SET{SYSTEM_MENU1=$SYSTEM_MENU1};
ZZZZ010222	18000	=SET{SYSTEM_MENU2=$SYSTEM_MENU2};
ZZZZ010222	18100	=IF{'ZZZZ'!=_PERMISSION}
ZZZZ010222	18200	=   SET{WN.PERMISSION=_PERMISSION+',MY PERMISSION'}EXIT{};
ZZZZ010222	18300	=SET{WN.PERMISSION='SELECT SYSTEM_KEY2,SYSTEM_ETC FROM'
ZZZZ010222	18400	= +' ?_MM?_ETC_TABLE WHERE SYSTEM_KEY1=''ZZZZZZ_PERMISSION'''
ZZZZ010222	18500	=    +'AND Z_CANCEL='' '' ORDER BY SYSTEM_KEY2'};
ZZZZ010222	18600	SET={O,*}S0.SYSTEM_TIME{5}
ZZZZ010222	18700	JA+TITLE=時:分
ZZZZ010222	18800	SET={O}.?&.SET&SYSTEM_MENU0?
ZZZZ010222	18900	SET={O}.?&.SET&SYSTEM_MENU1?
ZZZZ010222	19000	SET={O}.?&.SET&SYSTEM_MENU2?
ZZZZ010222	19100	*ET={N}.?&.DATA&SYSTEM_PROGRAM_KIND?
ZZZZ010222	19200	SET={KO=}.?&.SET&SYSTEM_LANG?
ZZZZ010222	19300	SET={O,*}S0.COLOR{1}
ZZZZ010222	19400	SET={O,*}O.?&.SET&SYSTEM_PERMISSION?(MY)
ZZZZ010222	19500	SET={O,*}.=?$&.SET&SYSTEM_DOC?
ZZZZ010222	19600	START
ZZZZ010222	19700	=IF{_START=2}SET{SYSTEM_TEST='TEST'};
ZZZZ010222	19800	%TEST+=IF{SYSTEM_TEST!='TEST'}ERROR{NOT TEST};
ZZZZ010222	19900	=IF{_START!=2}IF{SYSTEM_PERMISSION!=_PERMISSION}
ZZZZ010222	20000	=   IF{_PERMISSION!='ZZZZ'}
ZZZZ010222	20100	=      ERROR{PERMISSION NOT ?_PERMISSION?};
ZZZZ010222	20200	=IF{_START!=1}JUMP{1_SKIP};
ZZZZ010222	20300	*SQL_SET{}{SELECT JOB FROM ?_MM?_I_PROGRAM_TABLE P
ZZZZ010222	20400	*   WHERE P.SYSTEM_JOB='?SYSTEM_MENU0?'+
ZZZZ010222	20500	*   '?.SYSTEM_MENU1??SYSTEM_MENU2??.SYSTEM_MENU3?'
ZZZZ010222	20600	*   AND P.Z_CANCEL=' '};
ZZZZ010222	20700	*IF{_SQL_SET_COUNT!=0}ERROR{PROGRAM FOUND};
ZZZZ010222	20800	=PROGRAM{0,?_MM?_I_PROGRAM_TABLE}
ZZZZ010222	20810	=  {WC.SYSTEM_JOB=SYSTEM_MENU0
ZZZZ010222	20900	=  +SYSTEM_MENU1+.SYSTEM_MENU2+.SYSTEM_MENU3}{};
ZZZZ010222	21000	=IF{_PROGRAM_COUNT>0}ERROR{PROGRAM FOUND};
ZZZZ010222	21100	=IF{.SYSTEM_LANG!=_LANG_SYSTEM}JUMP{SKIP};
ZZZZ010222	21200	*SQL_SET{}{SELECT LANG FROM ?_TABLE? ?_T? WHERE
ZZZZ010222	21300	*   LANG<>'?_LANG_SYSTEM?'
ZZZZ010222	21400	*   AND ?_VRE&SYSTEM_MENU0?
ZZZZ010222	21500	*   AND ?_VRE&SYSTEM_MENU1?
ZZZZ010222	21600	*   AND ?_VRE&SYSTEM_MENU2?
ZZZZ010222	21700	*   AND ?_VRE&SYSTEM_MENU3?
ZZZZ010222	21800	*   AND Z_CANCEL=' '};
ZZZZ010222	21900	*IF{_SQL_SET_COUNT!=0}ERROR{MENU E.T.C LANG FOUND};
ZZZZ010222	21910	=PROGRAM{0,?_TABLE?}{SYSTEM_MENU0,SYSTEM_MENU1
ZZZZ010222	21920	=   ,SYSTEM_MENU2,SYSTEM_MENU3}
ZZZZ010222	21930	=  {.SYSTEM_LANG<>'?_LANG_SYSTEM?'};
ZZZZ010222	21940	=IF{_PROGRAM_COUNT!=0}ERROR{MENU OTHOR LANG FOUND};
ZZZZ010222	22000	=SKIP:
ZZZZ010222	22100	*SKIP:SQL_SET{}{SELECT SYSTEM_COPY1 FROM ?_TABLE? ?_T? WHERE
ZZZZ010222	22200	*   SYSTEM_COPY1=?_CL?'?SYSTEM_MENU0??SYSTEM_MENU1?'?_C?
ZZZZ010222	22300	*   '?SYSTEM_MENU2??.SYSTEM_MENU3?'?_CR?
ZZZZ010222	22400	*   AND Z_CANCEL=' '};
ZZZZ010222	22500	*IF{_SQL_SET_COUNT!=0}ERROR{MENU CALL1 FOUND};
ZZZZ010222	22600	*SQL_SET{}{SELECT SYSTEM_COPY2 FROM ?_TABLE? ?_T? WHERE
ZZZZ010222	22700	*   SYSTEM_COPY2=?_CL?'?SYSTEM_MENU0??SYSTEM_MENU1?'?_C?
ZZZZ010222	22800	*   '?SYSTEM_MENU1??.SYSTEM_MENU2??.SYSTEM_MENU3?'?_CR?
ZZZZ010222	22900	*   AND Z_CANCEL=' '};
ZZZZ010222	23000	*IF{_SQL_SET_COUNT!=0}ERROR{MENU CALL2 FOUND};
ZZZZ010222	23100	=1_SKIP:
ZZZZ010222	23200	=IF{_START=0}IF{SYSTEM_MENU3=00}ERROR{MENU3=00 MENU ONLY};
ZZZZ010222	23300	=IF{_START=2}SET{SYSTEM_MENU0=$SYSTEM_MENU0
ZZZZ010222	23400	=,.SYSTEM_MENU1=$.SYSTEM_MENU1,SYSTEM_MENU2=$SYSTEM_MENU2};
ZZZZ010222	23500	DATA={C}?&.DATA&SYSTEM_TEST?
ZZZZ010222	23600	CHECK=?$WN.CHECK1_TEST?
ZZZZ010222	23700	DATA={KO}?&.DATA&SYSTEM_MENU0?
ZZZZ010222	23800	DATA={KO}?&.DATA&SYSTEM_MENU1?
ZZZZ010222	23900	DATA={KO}?&.DATA&SYSTEM_MENU2?
ZZZZ010222	24000	DATA={K}?&.DATA&SYSTEM_MENU3?
ZZZZ010222	24100	CHECK=(01,99)
ZZZZ010222	24200	NAME=SYSTEM_PROGRAM_CHECK
ZZZZ010222	24300	=IF{SYSTEM_MENU0!='ZZZZ',_PERSON='ZZZZZZZZ'}JUMP{SKIP_SYS};
ZZZZ010222	24400	=IF{SYSTEM_MENU1!=99}JUMP{SKIP_SYS};
ZZZZ010222	24500	=IF{SYSTEM_MENU2=98,=99}
ZZZZ010222	24600	=  IF{SYSTEM_MENU3[1;1]='5'}ERROR{SYSTEM PROGRAM};
ZZZZ010222	24700	=SKIP_SYS:
ZZZZ010222	24800	NAME=
ZZZZ010222	24900	DATA={ }?&.DATA&SYSTEM_PERMISSION?
ZZZZ010222	25000	CHECK2=?WN.PERMISSION?
ZZZZ010222	25100	=IF{_PERMISSION!='ZZZZ'}IF{_DATA!=_PERMISSION}
ZZZZ010222	25200	=   ERROR{NOT ?_PERMISSION?};
ZZZZ010222	25300	DATA={,*&X2}?&.DATA&SYSTEM_PART?
ZZZZ010222	25400	DATA={ }?&.DATA&SYSTEM_PROGRAM_KIND?
ZZZZ010222	25500	CHECK=INPUT
ZZZZ010222	25600	*REPEAT=5
ZZZZ010222	25700	*DATA={ }.?&.DATA&SYSTEM_COPY##?
ZZZZ010222	25800	*=SET{WN.JOB=SYSTEM_MENU0+SYSTEM_MENU1
ZZZZ010222	25900	*=   +SYSTEM_MENU2+.SYSTEM_MENU3};
ZZZZ010222	26000	*=IF{_DATA@COUNT=0}EXIT{};
ZZZZ010222	26100	*=IF{_DATA@COUNT!=6}ERROR{LENGTH!=6};
ZZZZ010222	26200	*=IF{_DATA[5;2]='00'}ERROR{XXXX00(MENU) ERROR};
ZZZZ010222	26300	*=IF{WN.JOB[2]=_DATA}ERROR{MY JOB};
ZZZZ010222	26400	*=SQL_SET{WN.TEST}{SELECT TEST FROM ?_TABLE? ?_T?
ZZZZ010222	26500	*=   WHERE ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010222	26600	*=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?=
ZZZZ010222	26700	*=   '?SYSTEM_MENU0??_DATA?' AND Z_CANCEL=' '};
ZZZZ010222	26800	*=IF{_SQL_COUNT=0}ERROR{COPY NOT FOUND};
ZZZZ010222	26900	*%TEST-=IF{SYSTEM_TEST=}IF{WN.TEST!=}ERROR{COPY NOT REAL};
ZZZZ010222	27000	*=IF{WN.TEST='HALT'}IF{SYSTEM_TEST!='HALT'}ERROR{COPY HALT};
ZZZZ010222	27100	*REPEAT=
ZZZZ010222	27200	DATA={ }?&.DATA&SYSTEM_MENU?
ZZZZ010222	27300	COPY=@ZZZZZZ_SQL
ZZZZ010222	27400	COMMENT_END
ZZZZ010223	100	PROGRAM=OUTPUT,&X1,?_MM?_I_MENU_TABLE
ZZZZ010223	200	TABLE=&X2,?_MM?_I_PROGRAM_TABLE
ZZZZ010223	300	CONTROL=0
ZZZZ010223	400	BEGIN
ZZZZ010223	500	=IF{_PERMISSION!='ZZZZ'}SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010223	600	SET=.?&X2.SET&SYSTEM_JOB?
ZZZZ010223	700	SET=.?&.SET&SYSTEM_MENU?
ZZZZ010223	800	SET={O}.?&.SET&SYSTEM_PERMISSION?
ZZZZ010223	900	START
ZZZZ010223	1000	NAME=SYSTEM_CHECK
ZZZZ010223	1100	=IF{_PERSON='ZZZZZZZZ'}JUMP{SYSTEM_CHECK_SKIP};
ZZZZ010223	1200	=IF{SYSTEM_MENU0='ZZZZ'}IF{SYSTEM_MENU1=01}
ZZZZ010223	1300	=   IF{SYSTEM_MENU2/'0'}ERROR{SYSTEM PROGRAM};
ZZZZ010223	1400	=IF{SYSTEM_MENU0='ZZZZ'}IF{SYSTEM_MENU3[1;1]=5}
ZZZZ010223	1500	=  IF{SYSTEM_MENU1=99}IF{SYSTEM_MENU2=99}
ZZZZ010223	1600	=                            ERROR{SYSTEM PROGRAM};
ZZZZ010223	1700	=IF{SYSTEM_MENU0='ZZZZ'}IF{SYSTEM_MENU3[1;1]=5}
ZZZZ010223	1800	=  IF{SYSTEM_MENU1=12}IF{SYSTEM_MENU2=00}
ZZZZ010223	1900	=                            ERROR{SYSTEM PROGRAM};
ZZZZ010223	2000	=SYSTEM_CHECK_SKIP:
ZZZZ010223	2100	NAME=
ZZZZ010223	2200	=IF{'?SYSTEM_MENU0??SYSTEM_MENU1?'='ZZZZ01'
ZZZZ010223	2300	=  IF{'?SYSTEM_MENU2??SYSTEM_MENU3?'=
ZZZZ010223	2400	=   '0101',='0111',='0121',='0124',='0137'
ZZZZ010223	2500	=   ,='0201',='0220',='0511',='0531',='0540'}
ZZZZ010223	2600	=   ERROR{NOT CANGE SYSTEM_MENU
ZZZZ010223	2700	=(ZZZZ01-0101,0111,0121,0124,0137,0201,0220,0510,0530,0540)};
ZZZZ010223	2800	*SQL_SET{}{SELECT .SYSTEM_MENU0 FROM ?_TABLE?
ZZZZ010223	2900	*   WHERE ?_VRE&SYSTEM_MENU0?
ZZZZ010223	3000	*   AND   ?_VRE&SYSTEM_MENU1?
ZZZZ010223	3100	*   AND   ?_VRE&SYSTEM_MENU2?
ZZZZ010223	3200	*   AND   ?_VRE&SYSTEM_MENU3?
ZZZZ010223	3300	*   AND   Z_CANCEL=' '};
ZZZZ010223	3400	*IF{_SQL_SET_COUNT=0}ERROR{.SYSTEM_MENU NOT FOUND};
ZZZZ010223	3500	=PROGRAM{0,?_TABLE?}{SYSTEM_MENU0,SYSTEM_MENU1
ZZZZ010223	3600	=   ,SYSTEM_MENU2,SYSTEM_MENU3}{};
ZZZZ010223	3700	=IF{_PROGRAM_COUNT=0}ERROR{MENU NOT FOUND};
ZZZZ010223	3800	DATA={K}?&.DATA&SYSTEM_MENU0?
ZZZZ010223	3900	DATA={K}?&.DATA&SYSTEM_MENU1?
ZZZZ010223	4000	DATA={K}?&.DATA&SYSTEM_MENU2?
ZZZZ010223	4100	DATA={K}?&.DATA&SYSTEM_MENU3?
ZZZZ010223	4200	DATA={K}?&.DATA&SYSTEM_LANG?
ZZZZ010223	4300	DATA=   ?&.DATA&SYSTEM_PERMISSION?
ZZZZ010223	4400	DATA=?&.DATA&SYSTEM_SECURITY?
ZZZZ010223	4500	DATA=?&.DATA&SYSTEM_TEST?
ZZZZ010223	4600	DATA=?&.DATA&SYSTEM_COPY1?
ZZZZ010223	4700	DATA={N}?&.DATA&SYSTEM_COPY2?
ZZZZ010223	4800	DATA={N}?&.DATA&SYSTEM_COPY3?
ZZZZ010223	4900	DATA={N}?&.DATA&SYSTEM_COPY4?
ZZZZ010223	5000	DATA={N}?&.DATA&SYSTEM_COPY5?
ZZZZ010223	5100	DATA=?&.DATA&SYSTEM_MENU?
ZZZZ010223	5200	SQL=SELECT ?_DATA_ALL_SQL? FROM ?_TABLE? ?_T? WHERE
ZZZZ010223	5300	SQL=   ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010223	5400	SQL=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010223	5500	SQL=   LIKE '?.SYSTEM_JOB?%'
ZZZZ010223	5600	SQL=   AND ?_L&.SYSTEM_MENU?
ZZZZ010223	5700	SQL=   AND ?_L&SYSTEM_PERMISSION?
ZZZZ010223	5800	SQL=   AND ?_T?.Z_CANCEL=' '
ZZZZ010223	5810	SQL=   AND SYSTEM_MENU1>'00'
ZZZZ010223	5812	SQL=   AND SYSTEM_MENU1<'41'
ZZZZ010223	5820	SQL=   AND SYSTEM_MENU2<'41'
ZZZZ010223	5830	SQL=   AND SYSTEM_MENU3<'41'
ZZZZ010223	5900	%TEST+SQL=   AND ?_T?.SYSTEM_TEST='TEST'
ZZZZ010223	6000	REPEAT=_DATA_COUNT
ZZZZ010223	6100	SQL=   ?_GROUP##?
ZZZZ010223	6200	REPEAT=_ORDER_COUNT
ZZZZ010223	6300	SQL=   ?_ORDER##?
ZZZZ010223	6400	REPEAT=
ZZZZ010223	6500	*#####(2/2)################################################
ZZZZ010223	6600	PROGRAM=NOT,&X1,?_MM?_I_MENU_TABLE
ZZZZ010223	6700	CONTROL=PROGRAM
ZZZZ010223	6800	*TABLE=&X1,?_MM?_I_MENU_TABLE
ZZZZ010223	6900	FORM=    @    @  @  @  @
ZZZZ010223	7000	FORM=    @    @  @  @
ZZZZ010223	7100	FORM=    @    (YES,NO)
ZZZZ010223	7200	BEGIN
ZZZZ010223	7300	=SET{O.SYSTEM_MENU0=$SYSTEM_MENU0};
ZZZZ010223	7400	=SET{O.SYSTEM_MENU1=$SYSTEM_MENU1};
ZZZZ010223	7500	=SET{O.SYSTEM_MENU2=$SYSTEM_MENU2};
ZZZZ010223	7600	=SET{O.SYSTEM_MENU3=$SYSTEM_MENU3};
ZZZZ010223	7700	DATA={O}O.?&.DATA&SYSTEM_MENU0?
ZZZZ010223	7800	DATA={O}O.?&.DATA&SYSTEM_MENU1?
ZZZZ010223	7900	DATA={O}O.?&.DATA&SYSTEM_MENU2?
ZZZZ010223	8000	DATA={O}O.?&.DATA&SYSTEM_MENU3?
ZZZZ010223	8100	DATA={O}$?&.DATA&SYSTEM_MENU?
ZZZZ010223	8200	DATA={K}$?&.DATA&SYSTEM_MENU0?
ZZZZ010223	8300	DATA={K}$?&.DATA&SYSTEM_MENU1?
ZZZZ010223	8310	CHECK=(01,40)
ZZZZ010223	8400	DATA={K}$?&.DATA&SYSTEM_MENU2?
ZZZZ010223	8420	CHECK=(00,40)
ZZZZ010223	8500	DATA={K}$?&.DATA&SYSTEM_MENU3?
ZZZZ010223	8510	CHECK=(00,40)
ZZZZ010223	8600	COPY=SYSTEM_CHECK
ZZZZ010223	8700	=IF{SYSTEM_MENU3='00'}IF{O.SYSTEM_MENU3!='00'}
ZZZZ010223	8800	=   ERROR{SYSTEM_MENU3='00'};
ZZZZ010223	8900	=IF{SYSTEM_MENU3!='00'}IF{O.SYSTEM_MENU3='00'}
ZZZZ010223	9000	=   ERROR{SYSTEM_MENU3!='00'};
ZZZZ010223	9100	=IF{ O.SYSTEM_MENU0=SYSTEM_MENU0}
ZZZZ010223	9200	=   IF{O.SYSTEM_MENU1=SYSTEM_MENU1}
ZZZZ010223	9300	=   IF{O.SYSTEM_MENU2=SYSTEM_MENU2}
ZZZZ010223	9400	=   IF{O.SYSTEM_MENU3=SYSTEM_MENU3}ERROR{SAME MENU};
ZZZZ010223	9500	NAME=SYSTEM_MENU_FOUND
ZZZZ010223	9600	*=SQL_SET{}{SELECT SYSTEM_TEST FROM ?&.TABLE?
ZZZZ010223	9700	*=   WHERE ?_VRE&SYSTEM_MENU0?
ZZZZ010223	9800	*=   AND   ?_VRE&SYSTEM_MENU1?
ZZZZ010223	9900	*=   AND   ?_VRE&SYSTEM_MENU2?
ZZZZ010223	10000	*=   AND   ?_VRE&SYSTEM_MENU3?
ZZZZ010223	10100	*=   AND   Z_CANCEL=' '};
ZZZZ010223	10200	*=IF{_SQL_SET_COUNT!=0}ERROR{NEW MENU FOUND};
ZZZZ010223	10300	*=SQL_SET{WN.SYSTEM_TEST}{SELECT SYSTEM_TEST FROM ?&.TABLE?
ZZZZ010223	10400	*=   WHERE ?_VRE&O.SYSTEM_MENU0?
ZZZZ010223	10500	*=   AND   ?_VRE&O.SYSTEM_MENU1?
ZZZZ010223	10600	*=   AND   ?_VRE&O.SYSTEM_MENU2?
ZZZZ010223	10700	*=   AND   ?_VRE&O.SYSTEM_MENU3?
ZZZZ010223	10800	*=   AND   Z_CANCEL=' '};
ZZZZ010223	10900	*=IF{_SQL_SET_COUNT=0}ERROR{OLD SYSTEM_MENU NOT FOUND};
ZZZZ010223	11000	=SPLIT_CHAR{W.}{',O.'}{','};
ZZZZ010223	11100	REPEAT=2
ZZZZ010223	11200	=PROGRAM{0,?&.TABLE?,WC.SYSTEM_TEST=}
ZZZZ010223	11210	=  {?W.##?SYSTEM_MENU0,?W.##?SYSTEM_MENU1
ZZZZ010223	11300	=   ,?W.##?SYSTEM_MENU2,?W.##?SYSTEM_MENU3}{};
ZZZZ010223	11400	1+=IF{_PROGRAM_COUNT!=0}ERROR{NEW MENU FOUND};
ZZZZ010223	11500	2+=IF{_PROGRAM_COUNT=0}ERROR{OLD MENU NOT FOUND};
ZZZZ010223	11600	REPEAT=
ZZZZ010223	11700	%TEST+=IF{WC.SYSTEM_TEST!='TEST'}ERROR{MENU NOT TEST};
ZZZZ010223	11800	NAME=
ZZZZ010223	11900	DATA=YES{4,2}{YES,NO}
ZZZZ010223	12000	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010223	12100	COPY=SYSTEM_MENU_FOUND
ZZZZ010223	12200	=SET{WN.SYSTEM_JOBN=SYSTEM_MENU0+SYSTEM_MENU1
ZZZZ010223	12300	=   +SYSTEM_MENU2+SYSTEM_MENU3};
ZZZZ010223	12400	=SET{WN.SYSTEM_JOBO=O.SYSTEM_MENU0+O.SYSTEM_MENU1
ZZZZ010223	12500	=   +O.SYSTEM_MENU2+O.SYSTEM_MENU3};
ZZZZ010223	12600	=SQL{BEGIN TRANSACTION};
ZZZZ010223	12700	=SET{WN.XTBL=_MM+'_I_HELP_TABLE'};
ZZZZ010223	12800	NAME=DELETE_UPDATE
ZZZZ010223	12900	=DBO_SQL{DELETE FROM ?WN.XTBL? WHERE
ZZZZ010223	13000	=   SYSTEM_JOB='?WN.SYSTEM_JOBN?'};
ZZZZ010223	13100	=SQL{UPDATE ?WN.XTBL?
ZZZZ010223	13200	=   SET SYSTEM_JOB='?WN.SYSTEM_JOBN?' WHERE
ZZZZ010223	13300	=   SYSTEM_JOB='?WN.SYSTEM_JOBO?'};
ZZZZ010223	13400	NAME=
ZZZZ010223	13500	=SQL{UPDATE ?_MM?_I_HELP_TABLE
ZZZZ010223	13600	=   SET SYSTEM_CALL='?WN.SYSTEM_JOBN?' WHERE
ZZZZ010223	13700	=   SYSTEM_CALL='?WN.SYSTEM_JOBO?'};
ZZZZ010223	13800	=SET{WN.XTBL=_MM+'_I_SECURITY_G_J_TABLE'};
ZZZZ010223	13900	COPY=DELETE_UPDATE
ZZZZ010223	14000	=SET{WN.XTBL=_MM+'_I_SECURITY_J_TABLE'};
ZZZZ010223	14100	COPY=DELETE_UPDATE
ZZZZ010223	14200	=SET{WN.XTBL=_MM+'_I_PROGRAM_TABLE'};
ZZZZ010223	14300	COPY=DELETE_UPDATE
ZZZZ010223	14400	=DBO_SQL{DELETE FROM ?_MM?_I_MENU_TABLE
ZZZZ010223	14500	=   WHERE ?_VRE&SYSTEM_MENU0?
ZZZZ010223	14600	=   AND   ?_VRE&SYSTEM_MENU1?
ZZZZ010223	14700	=   AND   ?_VRE&SYSTEM_MENU2?
ZZZZ010223	14800	=   AND   ?_VRE&SYSTEM_MENU3?};
ZZZZ010223	14900	=SQL{UPDATE ?_MM?_I_MENU_TABLE SET
ZZZZ010223	15000	=    ?_VRE&SYSTEM_MENU0?
ZZZZ010223	15100	=   ,?_VRE&SYSTEM_MENU1?
ZZZZ010223	15200	=   ,?_VRE&SYSTEM_MENU2?
ZZZZ010223	15300	=   ,?_VRE&SYSTEM_MENU3?
ZZZZ010223	15400	=   WHERE ?_VRE&O.SYSTEM_MENU0?
ZZZZ010223	15500	=   AND   ?_VRE&O.SYSTEM_MENU1?
ZZZZ010223	15600	=   AND   ?_VRE&O.SYSTEM_MENU2?
ZZZZ010223	15700	=   AND   ?_VRE&O.SYSTEM_MENU3?};
ZZZZ010223	15800	REPEAT=5
ZZZZ010223	15900	=SQL{UPDATE ?_MM?_I_MENU_TABLE
ZZZZ010223	16000	=   SET SYSTEM_COPY##='?WN.SYSTEM_JOBN?' WHERE
ZZZZ010223	16100	=   SYSTEM_COPY##='?WN.SYSTEM_JOBO?'};
ZZZZ010223	16200	REPEAT=
ZZZZ010223	16300	=SQL{COMMIT TRANSACTION};
ZZZZ010223	16400	=SET{_RETURN_SQL=1};
ZZZZ010223	16500	=EXIT{_END};
ZZZZ010225	100	PROGRAM=,&X1,?_MM?_I_DICTIONARY_TABLE
ZZZZ010225	200	TABLE=&X2,?_MM?_ETC_TABLE
ZZZZ010225	300	CONTROL=0
ZZZZ010225	400	DICTIONARY=SYSTEM_PERMISSION
ZZZZ010225	500	BEGIN
ZZZZ010225	600	=SET{WC.SYSTEM_PART=,WC.SYSTEM_BASE_PERMISSION=
ZZZZ010225	700	=   ,WN.SYSTEM_BASE_DATA_NAME=,WC.SYSTEM_TEST=};
ZZZZ010225	800	=SET{SYSTEM_PART@LENGTH2=0};
ZZZZ010225	900	%TEST-=SET{WN.DB=_MM_REAL,W.SYSTEM_TEST=',TEST,HALT'};
ZZZZ010225	1000	%TEST+=SET{WN.DB=_MM_TEST,W.SYSTEM_TEST='TEST'};
ZZZZ010225	1100	=SET{.SYSTEM_LANG=_LANG,O.SYSTEM_LANG=_LANG_SYSTEM};
ZZZZ010225	1200	=SET{O.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010225	1300	=IF{'ZZZZ'!=_PERMISSION}SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010225	1400	*=IF{PERMISSION=,PERMISSION=!?_PP?DATA_NAME[1;4]}
ZZZZ010225	1500	*=  SET{DATA_NAME=!?_PP?DATA_NAME};
ZZZZ010225	1600	*=IF{DATA_NAME=}SET{DATA_NAME=_PERMISSION+'AA'};
ZZZZ010225	1700	SET={}.?&.SET&SYSTEM_DATA_NAME?
ZZZZ010225	1800	*=IF{PERMISSION!=}IF{PERMISSION!=_DATA[1;4]}
ZZZZ010225	1900	*=   ERROR{?.SYSTEM_PERMISSION?...};
ZZZZ010225	2000	*=SET{!?_PP?.SYSTEM_DATA_NAME=.SYSTEM_DATA_NAME};
ZZZZ010225	2100	SET={}.?&.SET&SYSTEM_BASE_DATA_NAME?
ZZZZ010225	2200	SET={}.?&.SET&SYSTEM_TITLE?
ZZZZ010225	2300	SET={}.?&.SET&SYSTEM_COMMENT1?
ZZZZ010225	2400	SET={}.?&.SET&SYSTEM_PART?
ZZZZ010225	2500	SET={}.?&.SET&SYSTEM_LANG?
ZZZZ010225	2600	SET={}.?&SET&SYSTEM_PERMISSION?
ZZZZ010225	2700	*=SET{_DATA@WHERE='.COMMENT2 LIKE ''?COMMENT1?%'''
ZZZZ010225	2800	**=SET{_DATA@WHERE='?_L&COMMENT1?'
ZZZZ010225	2900	*=+' AND .DATA_NAME LIKE ''?PERMISSION?%'''};
ZZZZ010225	3000	**=+' AND ?_T?.DATA_NAME LIKE ''?PERMISSION?%'''};
ZZZZ010225	3100	SET={O,*}O.?&.SET&SYSTEM_LANG?
ZZZZ010225	3200	SET={O,*}O.?&SET&SYSTEM_PERMISSION?
ZZZZ010225	3300	START
ZZZZ010225	3400	=IF{_START=0}EXIT{};
ZZZZ010225	3500	=IF{_START!=2}IF{SYSTEM_PERMISSION='ZZZZ'}
ZZZZ010225	3600	=  IF{SYSTEM_DATA_NAME/'SYSTEM_'}
ZZZZ010225	3700	=  IF{_PERSON!='ZZZZZZZZ'}ERROR{_PERSON!='ZZZZZZZZ'};
ZZZZ010225	3800	%TEST+=IF{_START!=2}IF{SYSTEM_TEST!='TEST'}ERROR{NOT TEST};
ZZZZ010225	3900	%TEST+=IF{_START=2}SET{SYSTEM_TEST='TEST'};
ZZZZ010225	4000	*IF{_START='3'}IF{SYSTEM_LANG=_LANG_SYSTEM};
ZZZZ010225	4100	=IF{_START!=1,SYSTEM_LANG!=_LANG_SYSTEM}EXIT{};
ZZZZ010225	4200	*SQL_SET{}{SELECT SYSTEM_LANG FROM ?_TABLE?
ZZZZ010225	4300	*   WHERE SYSTEM_BASE_PERMISSION='?SYSTEM_PERMISSION?'
ZZZZ010225	4400	*   AND .SYSTEM_BASE_DATA_NAME='?SYSTEM_DATA_NAME?'
ZZZZ010225	4500	*   AND Z_CANCEL=' '};
ZZZZ010225	4600	*IF{_SQL_SET_COUNT>0}ERROR{.SYSTEM_BASE_DATA_NAME USE};
ZZZZ010225	4700	=PROGRAM{0,?_TABLE?,WN.SYSTEM_DATA_NAME=}
ZZZZ010225	4800	=  {WC.SYSTEM_BASE_PERMISSION=SYSTEM_PERMISSION
ZZZZ010225	4900	=   ,WN.SYSTEM_BASE_DATA_NAME=SYSTEM_DATA_NAME}{};
ZZZZ010225	5000	=IF{_PROGRAM_COUNT>0}
ZZZZ010225	5100	=  ERROR{BASE_DATA_NAME USE(?WN.SYSTEM_DATA_NAME?)};
ZZZZ010225	5200	*SQL_SET{}{SELECT SYSTEM_LANG FROM ?_TABLE?
ZZZZ010225	5300	*   WHERE ?_VRE&SYSTEM_PERMISSION?
ZZZZ010225	5400	*   AND   ?_VRE&SYSTEM_DATA_NAME?
ZZZZ010225	5500	*   AND .SYSTEM_LANG<>'?_LANG_SYSTEM?'
ZZZZ010225	5600	*   AND Z_CANCEL=' '};
ZZZZ010225	5700	*IF{_SQL_SET_COUNT>0}ERROR{OTHER LANG FOUND};
ZZZZ010225	5800	=PROGRAM{0,?_TABLE?}{.SYSTEM_PERMISSION,SYSTEM_DATA_NAME}
ZZZZ010225	5900	=  {SYSTEM_LANG<>'?_LANG_SYSTEM?'};
ZZZZ010225	6000	=IF{_PROGRAM_COUNT>0}ERROR{OTHER LANG FOUND};
ZZZZ010225	6100	REPEAT=@ZZZZZZ_PERMISSION_COUNT
ZZZZ010225	6200	=SQL_SET{WN.SYSTEM_NAME}{SELECT SYSTEM_NAME FROM
ZZZZ010225	6300	=   ?_MM_TEST?_M_?@ZZZZZZ_PERMISSION_NO##?_COLUMN_VIEW
ZZZZ010225	6400	=   WHERE ?_VRE&SYSTEM_DATA_NAME?};
ZZZZ010225	6500	=IF{_SQL_SET_COUNT>0}
ZZZZ010225	6600	=  ERROR{USE (TEST TABLE ?WN.SYSTEM_NAME?)};
ZZZZ010225	6700	*%TEST+=PROGRAM2{0}{WN.SYSTEM_NAME=}
ZZZZ010225	6800	*%TEST+=  {?_MM_TEST?_M_?SYSTEM_PERMISSION?_COLUMN_VIEW}
ZZZZ010225	6900	*%TEST+=  {SYSTEM_DATA_NAME}{};
ZZZZ010225	7000	*%TEST+=IF{_PROGRAM_COUNT>0}
ZZZZ010225	7100	*%TEST+=  ERROR{USE (TEST TABLE ?WN.SYSTEM_NAME?)};
ZZZZ010225	7200	REPEAT=
ZZZZ010225	7300	NAME=USE_REAL_CHECK
ZZZZ010225	7400	REPEAT=@ZZZZZZ_PERMISSION_COUNT
ZZZZ010225	7500	=SQL_SET{WN.SYSTEM_NAME}{SELECT SYSTEM_NAME FROM
ZZZZ010225	7600	=   ?_MM?_M_?@ZZZZZZ_PERMISSION_NO##?_COLUMN_VIEW
ZZZZ010225	7700	=   WHERE ?_VRE&SYSTEM_DATA_NAME?};
ZZZZ010225	7800	=IF{_SQL_SET_COUNT>0}ERROR{USE(REAL TABLE ?WN.SYSTEM_NAME?)};
ZZZZ010225	7900	*PROGRAM2{0}{WN.SYSTEM_NAME=}
ZZZZ010225	8000	*  {?_MM?_M_?SYSTEM_PERMISSION?_COLUMN_VIEW}
ZZZZ010225	8100	*  {SYSTEM_DATA_NAME}{};
ZZZZ010225	8200	*IF{_PROGRAM_COUNT>0}ERROR{USE(REAL TABLE ?WN.SYSTEM_NAME?)};
ZZZZ010225	8300	REPEAT=                                                     ]
ZZZZ010225	8400	NAME=
ZZZZ010225	8500	DATA={K}?&.DATA&SYSTEM_PERMISSION?
ZZZZ010225	8600	CHECK2=SELECT SYSTEM_KEY2 FROM ?_MM?_ETC_TABLE
ZZZZ010225	8700	CHECK2=   WHERE SYSTEM_KEY1='ZZZZZZ_PERMISSION'
ZZZZ010225	8800	CHECK2=   AND '?_PERMISSION?' IN('ZZZZ',SYSTEM_KEY2)
ZZZZ010225	8900	CHECK2=   AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010225	9000	DATA={K}?&.DATA&SYSTEM_DATA_NAME?
ZZZZ010225	9100	*(VER27.1) パッケージソフトは列名を許可名+'_'に固定。
ZZZZ010225	9200	=IF{_DATA[5;1]!='_'}JUMP{NOT_PERM};
ZZZZ010225	9300	=IF{_DATA[1;1]<'A',>'V'}JUMP{NOT_PERM};
ZZZZ010225	9400	REPEAT=4,2
ZZZZ010225	9500	=IF{_DATA[##;1]<'A',>'Z'}JUMP{NOT_PERM};
ZZZZ010225	9600	REPEAT=
ZZZZ010225	9700	=IF{SYSTEM_PERMISSION[1;1]='Z'}
ZZZZ010225	9800	=   ERROR{NOT PACKAGE (?_DATA[1;5]?) BAD NAME};
ZZZZ010225	9900	=NOT_PERM:
ZZZZ010225	10000	=IF{SYSTEM_PERMISSION[1;1]!='Z'}
ZZZZ010225	10100	=  IF{_DATA!='?SYSTEM_PERMISSION?_'}
ZZZZ010225	10200	=     ERROR{PACKAGE (?_DATA[1;5]?) BAD NAME};
ZZZZ010225	10300	*(VER27.1) パッケージソフトは列名を許可名+'_'に固定。
ZZZZ010225	10400	=IF{SYSTEM_PERMISSION='ZZZZ'}IF{_DATA/'SYSTEM_'}
ZZZZ010225	10500	=  IF{_PERSON!='ZZZZZZZZ'}ERROR{_PERSON!='ZZZZZZZZ'};
ZZZZ010225	10600	*COPY=TOOL_NAME_CHECK
ZZZZ010225	10700	***=IF{_DATA/'Z_'}ERROR{TOOL ONLY NAME Z_...};
ZZZZ010225	10800	=SPLIT_CHAR{WNF}
ZZZZ010225	10900	= {'実表,仮表,手続,引金,関数,_TABLE,_VIEW,_PROC,_TRIG,_FUNC'}
ZZZZ010225	11000	= {','};
ZZZZ010225	11100	REPEAT=10
ZZZZ010225	11200	=SET{_FIND_STRING=_DATA+WNF##};
ZZZZ010225	11300	=IF{_FIND_STRING!=0}ERROR{ERROR NAME [?WNF##?]};
ZZZZ010225	11400	REPEAT=
ZZZZ010225	11500	*SQL_SET{}{SELECT 0 FROM ?_MM?_ETC_TABLE
ZZZZ010225	11600	*   WHERE SYSTEM_KEY1='ZZZZZZ_RESERVED'
ZZZZ010225	11700	*   AND SYSTEM_ETC=?_N?'?_DATA?'
ZZZZ010225	11800	*   AND Z_CANCEL=' '};
ZZZZ010225	11900	*IF{_SQL_SET_COUNT>0}ERROR{BAD RESERVED WORD};
ZZZZ010225	12000	=PROGRAM{0,?_MM?_ETC_TABLE}
ZZZZ010225	12100	=  {WC.SYSTEM_KEY1='ZZZZZZ_RESERVED'
ZZZZ010225	12200	=   ,WN.SYSTEM_ETC=_DATA}{};
ZZZZ010225	12300	=IF{_PROGRAM_COUNT>0}ERROR{BAD RESERVED WORD};
ZZZZ010225	12400	*SQL_SET{WN.SYSTEM_TEST}{SELECT SYSTEM_TEST FROM ?_TABLE?
ZZZZ010225	12500	*   WHERE ?_VRE&SYSTEM_PERMISSION?
ZZZZ010225	12600	*   AND .SYSTEM_DATA_NAME='?_DATA?'
ZZZZ010225	12700	*   AND .SYSTEM_LANG='?_LANG_SYSTEM?'
ZZZZ010225	12800	*   AND Z_CANCEL=' '};
ZZZZ010225	12900	*IF{_SQL_SET_COUNT!=0}
ZZZZ010225	13000	=PROGRAM{0,?_TABLE?,WN.SYSTEM_TEST=}{SYSTEM_PERMISSION
ZZZZ010225	13100	=  ,WN.SYSTEM_DATA_NAME=_DATA,WC.SYSTEM_LANG=_LANG_SYSTEM}{};
ZZZZ010225	13200	=IF{_PROGRAM_COUNT!=0}
ZZZZ010225	13300	%TEST+=   SET{SYSTEM_TEST='TEST'}
ZZZZ010225	13400	=   SET{W.SYSTEM_LANG=@ZZZZZZ_CHECK_LANG}JUMP{};
ZZZZ010225	13500	=SET{   W.SYSTEM_LANG=_LANG_SYSTEM};
ZZZZ010225	13510	MINUS=%PART
ZZZZ010225	13600	NAME=DATA_NAME_CHECK_PERMISSION
ZZZZ010225	13700	***( データ名他許可,許可区分チェック )***
ZZZZ010225	13800	=SPLIT_CHAR{WN.SPLIT}{SYSTEM_DATA_NAME}{'_'};
ZZZZ010225	13900	=IF{_SPLIT_CHAR_COUNT<2}JUMP{DATA_NAME_CHECK_PERMISSION_END};
ZZZZ010225	14000	=SET{WN.SPLIT1+='_',W0.LEN=WN.SPLIT1@LENGTH};
ZZZZ010225	14100	=PROGRAM{0,?_MM?_I_DICTIONARY_TABLE
ZZZZ010225	14200	=   ,WC.SYSTEM_PERMISSION=,WC.SYSTEM_PART=}{}
ZZZZ010225	14300	= {NOT(?_VRE&SYSTEM_PERMISSION?
ZZZZ010225	14310	%PART+=  AND ?_VRE&SYSTEM_PART?
ZZZZ010225	14400	=   )AND ?_LEFT(SYSTEM_DATA_NAME;(W0.LEN))?
ZZZZ010225	14410	=                              ='?WN.SPLIT1?'};
ZZZZ010225	14500	=IF{_PROGRAM_COUNT=0}JUMP{DATA_NAME_CHECK_PERMISSION_END};
ZZZZ010225	14510	=SET{WN.ERR='USE ''?WN.SPLIT1?'''
ZZZZ010225	14600	=   +'(?WC.SYSTEM_PERMISSION?,?WC.SYSTEM_PART?)'};
ZZZZ010225	14602	=ERROR{?WN.ERR?};
ZZZZ010225	14610	=DATA_NAME_CHECK_PERMISSION_END:
ZZZZ010225	14700	NAME=
ZZZZ010225	14800	=IF{SYSTEM_TITLE!=,_START!=2}EXIT{};
ZZZZ010225	14900	=SPLIT_CHAR{WN.SPLIT_}{_DATA}{'_'};
ZZZZ010225	15000	=SET{W0.C=1}; VER29*
ZZZZ010225	15100	=IF{_SPLIT_CHAR_COUNT>1}COMPUTE{W0.C=WN.SPLIT_1@COUNT+2};V29*
ZZZZ010225	15200	=SET{SYSTEM_TITLE=_DATA[W0.C]};
ZZZZ010225	15300	DATA={K}?&.DATA&SYSTEM_LANG?
ZZZZ010225	15400	CHECK=?W.SYSTEM_LANG?
ZZZZ010225	15500	=IF{SYSTEM_LANG=_LANG_SYSTEM}EXIT{};
ZZZZ010225	15600	*%TEST+=IF{SYSTEM_TEST<>'TEST'}ERROR{NOT TEST};
ZZZZ010225	15700	=SET{WC.SYSTEM_PERMISSION=SYSTEM_PERMISSION
ZZZZ010225	15800	=   ,WN.SYSTEM_DATA_NAME=SYSTEM_DATA_NAME};
ZZZZ010225	15900	=SET{WC.SYSTEM_LANG=_LANG_SYSTEM};
ZZZZ010225	16000	NAME=SET_ALL
ZZZZ010225	16100	=PROGRAM{0,?_TABLE?,WC.SYSTEM_PART,WC.SYSTEM_BASE_PERMISSION
ZZZZ010225	16200	=   ,WN.SYSTEM_BASE_DATA_NAME,
ZZZZ010225	16300	%TEST-=SYSTEM_TEST,
ZZZZ010225	16400	NAME2=SET_NAME
ZZZZ010225	16500	=   SYSTEM_DEFAULT_TYPE
ZZZZ010225	16600	=   ,SYSTEM_DEFAULT_LENGTH1,SYSTEM_DEFAULT_LENGTH2
ZZZZ010225	16700	=   ,SYSTEM_TYPE1,SYSTEM_TYPE2
ZZZZ010225	16800	=   ,SYSTEM_LENGTH1,SYSTEM_LENGTH2,SYSTEM_CHECK
ZZZZ010225	16900	=   ,SYSTEM_CHECK61,SYSTEM_CHECK62,SYSTEM_CHECK63
ZZZZ010225	17000	=   ,SYSTEM_CHECK64,SYSTEM_CHECK65,SYSTEM_CHECK66
ZZZZ010225	17100	NAME2=
ZZZZ010225	17200	=  }
ZZZZ010225	17300	=  {WC.SYSTEM_PERMISSION,WN.SYSTEM_DATA_NAME,WC.SYSTEM_LANG}
ZZZZ010225	17400	=  {};
ZZZZ010225	17500	=IF{_PROGRAM_COUNT=0}ERROR
ZZZZ010225	17600	=  {(?WC.SYSTEM_PERMISSION?,?WN.SYSTEM_DATA_NAME?)NOT FOUND};
ZZZZ010225	17700	*%TEST-=IF{WC.SYSTEM_TEST<>'TEST'}ERROR{BAD(TEST=TEST)};
ZZZZ010225	17800	NAME=
ZZZZ010225	17900	*%TEST+=IF{SYSTEM_TEST<>'TEST'}ERROR{NOT TEST};
ZZZZ010225	18000	=SET{SYSTEM_BASE_PERMISSION=WC.SYSTEM_BASE_PERMISSION};
ZZZZ010225	18100	=SET{.SYSTEM_PART=WC.SYSTEM_PART};
ZZZZ010225	18200	=SET{SYSTEM_BASE_DATA_NAME=WN.SYSTEM_BASE_DATA_NAME};
ZZZZ010225	18300	*%TEST-=IF{.LANG=_LANG_SYSTEM}EXIT{SYSTEM_TEST};
ZZZZ010225	18400	*=EXIT{.TITLE};
ZZZZ010225	18500	DATA={}?&.DATA&SYSTEM_PART?
ZZZZ010225	18600	CHECK2=SELECT SYSTEM_KEY2 FROM ?_MM?_ETC_TABLE
ZZZZ010225	18700	CHECK2=WHERE SYSTEM_KEY1='ZZZZZZ_PART:?SYSTEM_PERMISSION?'
ZZZZ010225	18800	CHECK2=AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010225	18810	PLUS=%PART
ZZZZ010225	18820	COPY=DATA_NAME_CHECK_PERMISSION
ZZZZ010225	18900	=IF{SYSTEM_LANG<>_LANG_SYSTEM}EXIT{SYSTEM_TEST};
ZZZZ010225	20800	DATA={}?&.DATA&SYSTEM_BASE_DATA_NAME?
ZZZZ010225	20900	=IF{_DATA=}SET{SYSTEM_BASE_PERMISSION=}EXIT{SYSTEM_TEST};
ZZZZ010225	21000	=SET{WC.SYSTEM_PERMISSION_CHECK=,WC.SEP=};
ZZZZ010225	21100	=SQL1{SELECT SYSTEM_PERMISSION FROM ?_TABLE?
ZZZZ010225	21200	=   WHERE SYSTEM_DATA_NAME=?_N?'?_DATA?'
ZZZZ010225	21300	=   AND SYSTEM_BASE_DATA_NAME=' '
ZZZZ010225	21400	*%TEST+=  AND TEST='TEST'
ZZZZ010225	21500	=   AND SYSTEM_LANG='?_LANG_SYSTEM?' AND Z_CANCEL=' '};
ZZZZ010225	21600	=IF{_SQL1_COUNT=0}ERROR
ZZZZ010225	21700	=  {DATA_NAME NOT FOUND OR SYSTEM_BASE_DATA_NAME<>' '};
ZZZZ010225	21800	=SQL1_NEXT:SQL1_NEXT{WC.SYSTEM_PERMISSION}JUMP{SQL1_END};
ZZZZ010225	21900	=SET{WC.SYSTEM_PERMISSION_CHECK+=WC.SEP+WC.SYSTEM_PERMISSION
ZZZZ010225	22000	=   ,WC.SEP=','};
ZZZZ010225	22100	=BACK{SQL1_NEXT};
ZZZZ010225	22200	=SQL1_END:
ZZZZ010225	22300	COPY=USE_REAL_CHECK
ZZZZ010225	22400	*=SQL_SET{}{SELECT LANG FROM ?_TABLE? WHERE
ZZZZ010225	22500	*=.SYSTEM_BASE_DATA_NAME='?.DATA_NAME?' AND TEST=' '
ZZZZ010225	22600	*=AND Z_CANCEL=' '};
ZZZZ010225	22700	*=IF{_SQL_SET_COUNT>0}
ZZZZ010225	22800	*=   ERROR{.SYSTEM_BASE_DATA_NAME TEST=' ' FOUND};
ZZZZ010225	22900	*=IF{_START=3}IF{_DATA@OLD!=_DATA}
ZZZZ010225	23000	*=   SET{WN.SYSTEM_BASE_DATA_NAME='.SYSTEM_BASE_DATA_NAME,'};
ZZZZ010225	23100	=IF{_DATA=SYSTEM_DATA_NAME}ERROR{SAME DATA_NAME};
ZZZZ010225	23200	*=SET{WN.NAME=_DATA};
ZZZZ010225	23300	DATA={}?&.DATA&SYSTEM_BASE_PERMISSION?
ZZZZ010225	23400	CHECK=?WC.SYSTEM_PERMISSION_CHECK?
ZZZZ010225	23500	=SET{WC.SYSTEM_PERMISSION=SYSTEM_BASE_PERMISSION};
ZZZZ010225	23600	=SET{WN.SYSTEM_DATA_NAME=SYSTEM_BASE_DATA_NAME};
ZZZZ010225	23700	=SET{WC.SYSTEM_LANG=.SYSTEM_LANG};
ZZZZ010225	23800	COPY=SET_ALL
ZZZZ010225	23900	*=IF{WN.SYSTEM_BASE_DATA_NAME!=}
ZZZZ010225	24000	*=   ERROR{.SYSTEM_BASE_DATA_NAME FOUND};
ZZZZ010225	24100	*=IF{_START=3}IF{_DATA@OLD!=_DATA}
ZZZZ010225	24200	*=SET{WN.SYSTEM_BASE_PERMISSION='.SYSTEM_BASE_PERMISSION,'};
ZZZZ010225	24300	%TEST-=IF{SYSTEM_LANG=_LANG_SYSTEM}EXIT{SYSTEM_TEST};
ZZZZ010225	24400	=EXIT{SYSTEM_TITLE};
ZZZZ010225	24500	DATA={}?&.DATA&SYSTEM_TEST?
ZZZZ010225	24600	CHECK=?W.SYSTEM_TEST?
ZZZZ010225	24700	*=IF{_START!=3}EXIT{};
ZZZZ010225	24800	=IF{_DATA!=}JUMP{TEST_HALT};
ZZZZ010225	24900	=IF{SYSTEM_BASE_DATA_NAME=}JUMP{J};
ZZZZ010225	25000	=SET{WC.PER=SYSTEM_BASE_PERMISSION
ZZZZ010225	25100	=   ,WN.D_N=SYSTEM_BASE_DATA_NAME};
ZZZZ010225	25200	=SET{WC.LNG=_LANG_SYSTEM};
ZZZZ010225	25300	NAME=TEST_CHECK
ZZZZ010225	25400	*SQL_SET{WC.SYSTEM_TEST}{SELECT TEST FROM ?_TABLE?
ZZZZ010225	25500	*   WHERE PERMISSION='?WC.PER?'
ZZZZ010225	25600	*   AND DATA_NAME=?_N?'?WN.D_N?'
ZZZZ010225	25700	*   AND LANG='?WC.LNG?' AND Z_CANCEL=' '};
ZZZZ010225	25800	*IF{_SQL_SET_COUNT=0}ERROR
ZZZZ010225	25900	=PROGRAM{0,?_TABLE?,WC.SYSTEM_TEST=}
ZZZZ010225	26000	=  {WC.SYSTEM_PERMISSION=WC.PER
ZZZZ010225	26100	=   ,WN.SYSTEM_DATA_NAME=WN.D_N,WC.SYSTEM_LANG=WC.LNG}{};
ZZZZ010225	26200	=IF{_PROGRAM_COUNT=0}
ZZZZ010225	26300	=   ERROR{(?WC.PER?,?WN.D_N?,?WC.LNG?) NOT FOUND};
ZZZZ010225	26400	=IF{WC.SYSTEM_TEST!=}
ZZZZ010225	26500	=   ERROR{(?WC.PER?,?WN.D_N?,?WC.LNG?) TEST!=' '};
ZZZZ010225	26600	NAME=
ZZZZ010225	26700	=J:IF{SYSTEM_LANG=_LANG_SYSTEM}EXIT{};
ZZZZ010225	26800	=SET{WC.PER=SYSTEM_PERMISSION
ZZZZ010225	26900	=   ,WN.D_N=SYSTEM_DATA_NAME};
ZZZZ010225	27000	=SET{WC.LNG=_LANG_SYSTEM};
ZZZZ010225	27100	COPY=TEST_CHECK
ZZZZ010225	27200	=EXIT{};
ZZZZ010225	27300	=TEST_HALT:
ZZZZ010225	27400	COPY=USE_REAL_CHECK
ZZZZ010225	27500	*SQL_SET{}{SELECT SYSTEM_LANG FROM ?_TABLE?
ZZZZ010225	27600	*    WHERE SYSTEM_BASE_PERMISSION='?SYSTEM_PERMISSION?'
ZZZZ010225	27700	*    AND   .SYSTEM_BASE_DATA_NAME='?SYSTEM_DATA_NAME?'
ZZZZ010225	27800	*    AND   SYSTEM_TEST=' '
ZZZZ010225	27900	*    AND   Z_CANCEL=' '};
ZZZZ010225	28000	*IF{_SQL_SET_COUNT>0}ERROR
ZZZZ010225	28100	=PROGRAM{0,?_TABLE?,WC.SYSTEM_TEST=}
ZZZZ010225	28200	=  {WC.SYSTEM_BASE_PERMISSION=SYSTEM_PERMISSION
ZZZZ010225	28300	=   ,WN.SYSTEM_BASE_DATA_NAME=SYSTEM_DATA_NAME}{};
ZZZZ010225	28400	=IF{_PROGRAM_COUNT>0}IF{WC.SYSTEM_TEST=}ERROR
ZZZZ010225	28500	=  {BASE(?.SYSTEM_PERMISSION?,?SYSTEM_DATA_NAME?)TEST=' '};
ZZZZ010225	28600	=IF{SYSTEM_LANG!=_LANG_SYSTEM}EXIT{};
ZZZZ010225	28700	*SQL_SET{}{SELECT SYSTEM_LANG FROM ?_TABLE?
ZZZZ010225	28800	*    WHERE ?_VRE&SYSTEM_PERMISSION?
ZZZZ010225	28900	*    AND   ?_VRE&SYSTEM_DATA_NAME?
ZZZZ010225	29000	*    AND   .SYSTEM_LANG<>'?_LANG_SYSTEM?'
ZZZZ010225	29100	*    AND   SYSTEM_TEST=' '
ZZZZ010225	29200	*    AND   Z_CANCEL=' '};
ZZZZ010225	29300	*IF{_SQL_SET_COUNT>0}ERROR
ZZZZ010225	29400	=PROGRAM{0,?_TABLE?}{.SYSTEM_PERMISSION,SYSTEM_DATA_NAME}
ZZZZ010225	29500	=  {SYSTEM_LANG<>'?_LANG_SYSTEM?' AND SYSTEM_TEST=' '};
ZZZZ010225	29600	=IF{_PROGRAM_COUNT>0}ERROR
ZZZZ010225	29700	=  {(?SYSTEM_PERMISSION?,?.SYSTEM_DATA_NAME?)TEST=' '};
ZZZZ010225	29800	DATA={}?&.DATA&SYSTEM_TITLE?
ZZZZ010225	29900	=IF{SYSTEM_LANG!=_LANG_SYSTEM}EXIT{.SYSTEM_MESSAGE};
ZZZZ010225	30000	=IF{SYSTEM_BASE_DATA_NAME<>}  EXIT{SYSTEM_MESSAGE};
ZZZZ010225	30100	DATA={}?&.DATA&SYSTEM_DEFAULT_TYPE?
ZZZZ010225	30200	=SET{W.SYSTEM_TYPE1=,W.SYSTEM_TYPE2=
ZZZZ010225	30300	=   ,W.SYSTEM_DEFAULT_LENGTH1='(1,4000)'};
ZZZZ010225	30400	=SET{W.SYSTEM_LENGTH2='0,1'};
ZZZZ010225	30500	=IF{_DATA='INT'}JUMP{INT};
ZZZZ010225	30600	=IF{_DATA='DECIMAL'}JUMP{DECIMAL};
ZZZZ010225	30700	=IF{_DATA='FLOAT'}JUMP{FLOAT};
ZZZZ010225	30800	=IF{_DATA='DATETIME',='TIMESTAMP',='DATE'}JUMP{DATETIME};
ZZZZ010225	30900	=                SET{W.SYSTEM_TYPE1=_CHECK2_TYPE1_CHAR};
ZZZZ010225	31000	=IF{_DATA[1;1]='N'}SET{W.SYSTEM_TYPE1=_CHECK2_TYPE1_NCHAR};
ZZZZ010225	31100	=                  SET{W.SYSTEM_TYPE2=_CHECK2_TYPE2_CHAR};
ZZZZ010225	31200	=IF{_DATA[1;1]='N'}SET{W.SYSTEM_TYPE2=_CHECK2_TYPE2_NCHAR};
ZZZZ010225	31300	=EXIT{};
ZZZZ010225	31400	=INT:SET{W.SYSTEM_TYPE1=_CHECK2_TYPE1_INT};EXIT{};
ZZZZ010225	31500	=DECIMAL:SET{W.SYSTEM_TYPE1=_CHECK2_TYPE1_DECIMAL};EXIT{};
ZZZZ010225	31600	=FLOAT:
ZZZZ010225	31700	=SET{SYSTEM_TYPE1='F',SYSTEM_TYPE2=
ZZZZ010225	31800	=   ,SYSTEM_DEFAULT_LENGTH1=9,SYSTEM_DEFAULT_LENGTH2=0
ZZZZ010225	31900	=   ,W.SYSTEM_LENGTH1='(0,80)',SYSTEM_LENGTH2=0};
ZZZZ010225	32000	=EXIT{SYSTEM_LENGTH1};
ZZZZ010225	32100	=DATETIME:SET{SYSTEM_TYPE1='E'};
ZZZZ010225	32200	NAME=DATETIME
ZZZZ010225	32300	=SET{SYSTEM_TYPE2=,SYSTEM_DEFAULT_LENGTH1=17
ZZZZ010225	32400	=   ,SYSTEM_DEFAULT_LENGTH2=0,SYSTEM_LENGTH1=0};
ZZZZ010225	32500	=IF{SYSTEM_DEFAULT_TYPE='DATE'}
ZZZZ010225	32600	=   SET{SYSTEM_DEFAULT_LENGTH1=8};
ZZZZ010225	32700	=EXIT{SYSTEM_LENGTH2};
ZZZZ010225	32800	NAME=
ZZZZ010225	32900	DATA={}?&.DATA&SYSTEM_TYPE1?
ZZZZ010225	33000	CHECK2=?W.SYSTEM_TYPE1?
ZZZZ010225	33100	=IF{_DATA='D'}JUMP{D};
ZZZZ010225	33200	=IF{_DATA='T'}JUMP{T};
ZZZZ010225	33300	=IF{_DATA='+',='-'}JUMP{NUM};
ZZZZ010225	33400	=EXIT{};
ZZZZ010225	33500	=NUM:SET{W.SYSTEM_TYPE2=_CHECK2_TYPE2_DECIMAL};
ZZZZ010225	33600	=IF{SYSTEM_DEFAULT_TYPE='INT'}JUMP{INT};
ZZZZ010225	33700	=SET{W.SYSTEM_DEFAULT_LENGTH1='(1,50)'};
ZZZZ010225	33800	=EXIT{};
ZZZZ010225	33900	=INT:
ZZZZ010225	34000	=IF_NOT{SYSTEM_TYPE2='Z',='C',='E'}SET{SYSTEM_TYPE2=};
ZZZZ010225	34100	=SET{SYSTEM_DEFAULT_LENGTH1=9
ZZZZ010225	34200	=   ,SYSTEM_DEFAULT_LENGTH2=0,W.SYSTEM_LENGTH1='(0,9)'
ZZZZ010225	34300	=   ,SYSTEM_LENGTH2=0};
ZZZZ010225	34400	=EXIT{};
ZZZZ010225	34500	=D:
ZZZZ010225	34600	=SET{SYSTEM_TYPE2=,SYSTEM_DEFAULT_LENGTH1=8
ZZZZ010225	34700	=   ,SYSTEM_DEFAULT_LENGTH2=0,SYSTEM_LENGTH1=0};
ZZZZ010225	34800	=EXIT{SYSTEM_LENGTH2};
ZZZZ010225	34900	=T:
ZZZZ010225	35000	COPY=DATETIME
ZZZZ010225	35100	DATA=   ?&.DATA&SYSTEM_TYPE2?
ZZZZ010225	35200	CHECK2=?W.SYSTEM_TYPE2?
ZZZZ010225	35300	=IF{SYSTEM_DEFAULT_TYPE='INT'}EXIT{SYSTEM_LENGTH1};
ZZZZ010225	35400	=IF{SYSTEM_DEFAULT_TYPE='DECIMAL'}
ZZZZ010225	35500	=   EXIT{SYSTEM_DEFAULT_LENGTH1};
ZZZZ010225	35600	DATA={}?&.DATA&SYSTEM_DEFAULT_LENGTH1?
ZZZZ010225	35700	CHECK=?W.SYSTEM_DEFAULT_LENGTH1?
ZZZZ010225	35800	=SET{W0.C=_DATA};IF{W0.C>80}SET{W0.C=80};
ZZZZ010225	35900	=SET{W.SYSTEM_DEFAULT_LENGTH2='(0,?W0.C?)',W0.C=_DATA};
ZZZZ010225	36000	=SET{W.SYSTEM_LENGTH1='(0,?W0.C?)'};
ZZZZ010225	36100	=IF{SYSTEM_DEFAULT_TYPE='DECIMAL'}EXIT{};
ZZZZ010225	36200	=SET{SYSTEM_DEFAULT_LENGTH2=0};EXIT{SYSTEM_LENGTH1};
ZZZZ010225	36300	DATA={}?&.DATA&SYSTEM_DEFAULT_LENGTH2?
ZZZZ010225	36400	CHECK=?W.SYSTEM_DEFAULT_LENGTH2?
ZZZZ010225	36500	DATA=   ?&.DATA&SYSTEM_LENGTH1?
ZZZZ010225	36600	CHECK=?W.SYSTEM_LENGTH1?
ZZZZ010225	36700	=IF{SYSTEM_DEFAULT_TYPE='INT',='FLOAT'}EXIT{SYSTEM_CHECK};
ZZZZ010225	36800	=SET{W0.C=_DATA};
ZZZZ010225	36900	=IF{_DATA=0}SET{W0.C=SYSTEM_DEFAULT_LENGTH1};
ZZZZ010225	37000	=IF{W0.C>80}SET{W0.C=80};
ZZZZ010225	37100	=IF{SYSTEM_DEFAULT_TYPE='DECIMAL'}
ZZZZ010225	37200	=   IF{W0.C>SYSTEM_DEFAULT_LENGTH2}
ZZZZ010225	37300	=   SET{W0.C=SYSTEM_DEFAULT_LENGTH2};
ZZZZ010225	37400	=SET{W.SYSTEM_LENGTH2='(0,?W0.C?)'};
ZZZZ010225	37500	DATA=   ?&.DATA&SYSTEM_LENGTH2?
ZZZZ010225	37600	CHECK=?W.SYSTEM_LENGTH2?
ZZZZ010225	37700	DATA=   ?&.DATA&SYSTEM_CHECK?
ZZZZ010225	37800	=SET{WN.SYSTEM_TYPE2='X'};
ZZZZ010225	37900	=IF{_DATA='SECTION'}SET{WN.SYSTEM_TYPE2=};
ZZZZ010225	38000	REPEAT=6
ZZZZ010225	38100	=SET{SYSTEM_CHECK6##@TYPE2=WN.SYSTEM_TYPE2};
ZZZZ010225	38200	REPEAT=
ZZZZ010225	38300	=IF{_DATA[1;5]='CHECK',_DATA='SECTION',=''}
ZZZZ010225	38400	=   SET{WN.SYSTEM_CHECK61=};
ZZZZ010225	38500	=IF{_DATA[1;5]='CHECK',_DATA='SECTION',=''}
ZZZZ010225	38600	=   EXIT{SYSTEM_CHECK61};
ZZZZ010225	38700	*=SET{W.PERMISSION=.DATA_NAME[1;4]};
ZZZZ010225	38800	=SET{W.SYSTEM_PERMISSION=.SYSTEM_PERMISSION};
ZZZZ010225	38900	DATA={*}W.?&DATA&SYSTEM_PERMISSION?
ZZZZ010225	39000	SELECT=' '
ZZZZ010225	39100	CHECK2=SELECT SYSTEM_KEY2,SYSTEM_ETC FROM
ZZZZ010225	39200	CHECK2= ?_MM?_ETC_TABLE WHERE SYSTEM_KEY1='ZZZZZZ_PERMISSION'
ZZZZ010225	39300	CHECK2=   AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010225	39400	=SET{WN.TABLE_NAME=
ZZZZ010225	39500	=   'CASE WHEN ''?.SYSTEM_PERMISSION??SYSTEM_PART?'''
ZZZZ010225	39600	=   +'=?_SUBSTR(SYSTEM_NAME;1;6)? THEN '
ZZZZ010225	39700	=   +'?_(C?''?_Q?_''?_C??_SUBSTR(SYSTEM_WORK;1;1)??_C?'
ZZZZ010225	39800	=   +'''M?_Q?''?_C??_SUBSTR(SYSTEM_NAME;7;23)??_)C?'
ZZZZ010225	39900	=   +' WHEN  SYSTEM_KEY2 IS NULL THEN'
ZZZZ010225	40000	=   +' ?_(C?''?_Q?_''?_C??_SUBSTR(SYSTEM_WORK;1;1)??_C?'
ZZZZ010225	40100	=   +'''P_''?_C??_SUBSTR(SYSTEM_NAME;1;4)?'
ZZZZ010225	40200	=   +'?_C?''?_Q?''?_C??_SUBSTR(SYSTEM_NAME;5;25)??_)C?'
ZZZZ010225	40300	=   +' ELSE'
ZZZZ010225	40400	=   +' ?_(C?''?_Q?_''?_C??_SUBSTR(SYSTEM_WORK;1;1)??_C?'
ZZZZ010225	40500	=   +'''A_''?_C?RTRIM(SYSTEM_KEY2)'
ZZZZ010225	40600	=   +'?_C??_SUBSTR(SYSTEM_NAME;7;23)??_)C?  END'};
ZZZZ010225	40700	=SET{WN.SQL='SELECT'
ZZZZ010225	40800	=   +' ?WN.TABLE_NAME?,SYSTEM_NAME'
ZZZZ010225	40900	*=   +'?_CL?''?_Q?_''?_C?'
ZZZZ010225	41000	*=   +'RTRIM(?_SUBSTR(SYSTEM_WORK;1;1)?)?_C?''P_'''
ZZZZ010225	41100	*=   +'?_C?RTRIM(?_SUBSTR(SYSTEM_NAME;1;4)?)?_C?''?_Q?'''
ZZZZ010225	41200	*=   +'?_C?RTRIM(?_SUBSTR(SYSTEM_NAME;5;26)?)?_CR?'
ZZZZ010225	41300	=   +' FROM ?WN.DB?_M_?W.SYSTEM_PERMISSION?_OBJECT_VIEW T'
ZZZZ010225	41400	=   +' LEFT OUTER JOIN  ?WN.DB?_ETC_TABLE ON SYSTEM_KEY1'
ZZZZ010225	41500	=   +'=''ZZZZZZ_PART2:?SYSTEM_PERMISSION??.SYSTEM_PART?'''
ZZZZ010225	41600	=   +' AND SYSTEM_ETC=?_SUBSTR(SYSTEM_NAME;1;6)?'
ZZZZ010225	41700	=   +' AND Z_CANCEL='' '''
ZZZZ010225	41800	=   +' WHERE SYSTEM_KIND IN(''TABLE'',''VIEW'')'
ZZZZ010225	41900	=   +' AND ?_SQL_LENGTH?(SYSTEM_NAME)>4'
ZZZZ010225	42000	=   +' AND  SYSTEM_NAME LIKE ''?SYSTEM_PERMISSION?%'''
ZZZZ010225	42100	=   +' OR EXISTS(SELECT SYSTEM_NAME  FROM'
ZZZZ010225	42200	=   +' ?WN.DB?_M_?W.SYSTEM_PERMISSION?_GRANT_VIEW G WHERE'
ZZZZ010225	42300	=   +' G.?_NE&T.SYSTEM_NAME? AND G.?_NE&T.SYSTEM_KIND?'
ZZZZ010225	42400	=   +' AND  SYSTEM_WORK=''MAST'' AND SYSTEM_GRANT'
ZZZZ010225	42500	=   +' IN(''O_?SYSTEM_PERMISSION?'',''PUBLIC''))'
ZZZZ010225	42600	=   +' ORDER BY 1'};
ZZZZ010225	42700	=DBO_SQL1{?WN.SQL?};
ZZZZ010225	42800	=SET{WN.SYSTEM_CHECK61=,WC.SEP=};
ZZZZ010225	42900	=SQL1_NEXT:SQL1_NEXT{WN.N,WN.P}JUMP{SQL1_END};
ZZZZ010225	43000	=SET{WN.SYSTEM_CHECK61+=WC.SEP+WN.N+','+WN.P,WC.SEP=','};
ZZZZ010225	43100	=BACK{SQL1_NEXT};
ZZZZ010225	43200	=SQL1_END:
ZZZZ010225	43300	=IF{WN.SYSTEM_CHECK61=}ERROR{NOT FOUND TABLE};
ZZZZ010225	43400	DATA=   ?&.DATA&SYSTEM_CHECK61?
ZZZZ010225	43500	CHECK2=?WN.SYSTEM_CHECK61?
ZZZZ010225	43600	NAME=CHECK_CHAR
ZZZZ010225	43700	=IF{SYSTEM_CHECK=}JUMP{C_FIN};
ZZZZ010225	43800	=SET{W0.CC=1,WN.Q_SW=0,WN.K_SW=0};
ZZZZ010225	43900	=C_LOOP:IF{_DATA[W0.CC;1]!=''''}JUMP{C_NEXT};
ZZZZ010225	44000	=IF{WN.Q_SW=0}SET{WN.Q_SW=1}JUMP{};
ZZZZ010225	44100	=SET{WN.Q_SW=0};
ZZZZ010225	44200	=C_NEXT:IF{_DATA[W0.CC;1]!='}'}JUMP{C_OK};
ZZZZ010225	44300	=IF{WN.K_SW=1}ERROR{?_R??_R? FOUND};
ZZZZ010225	44400	=SET{WN.K_SW=1};JUMP{C_NEXT};
ZZZZ010225	44500	=C_OK:SET{WN.K_SW=0};
ZZZZ010225	44600	=C_NEXT:COMPUTE{W0.CC+=1};
ZZZZ010225	44700	=IF{W0.CC<=_DATA@LENGTH}BACK{C_LOOP};
ZZZZ010225	44800	=IF{WN.Q_SW=1}ERROR{QUOTATION MARK NOT EVEN};
ZZZZ010225	44900	=C_FIN:
ZZZZ010225	45000	NAME=
ZZZZ010225	45100	=IF{SYSTEM_CHECK='CHECK2'}IF{_DATA='SELECT '}
ZZZZ010225	45200	=   ERROR{'CHECK2' SELECT ... ERROR};
ZZZZ010225	45300	=IF{SYSTEM_CHECK/'CHECK',='',='SECTION'}
ZZZZ010225	45400	=   SET{WN.SYSTEM_CHECK62=}EXIT{};
ZZZZ010225	45500	=SET{WN.TABLE=_LIST_BOX_COMMENT};
ZZZZ010225	45600	=SET{WN.SYSTEM_CHECK62='SELECT SYSTEM_DATA_NAME FROM'
ZZZZ010225	45700	=   +' ?WN.DB?_M_?WN.TABLE[1;4]?_COLUMN_VIEW C'
ZZZZ010225	45800	=   +' WHERE SYSTEM_NAME=''?WN.TABLE?'''
ZZZZ010225	45900	=   +' AND SYSTEM_DATA_NAME NOT IN(?_Z_ALL_NAME_VALUE?)'
ZZZZ010225	46000	=   +' AND EXISTS'
ZZZZ010225	46100	=   +'(SELECT 0 FROM ?WN.DB?_M_?WN.TABLE[1;4]?_INDEX_VIEW I'
ZZZZ010225	46200	=   +' WHERE C.SYSTEM_NAME=I.SYSTEM_NAME'
ZZZZ010225	46300	=   +' AND  C.SYSTEM_DATA_NAME=I.SYSTEM_DATA_NAME'
ZZZZ010225	46400	=   +' AND SYSTEM_IX=''0'')'
ZZZZ010225	46500	=   +' ORDER BY SYSTEM_SEQ'};
ZZZZ010225	46600	DATA=   ?&.DATA&SYSTEM_CHECK62?
ZZZZ010225	46700	CHECK2=?WN.SYSTEM_CHECK62?
ZZZZ010225	46800	COPY=CHECK_CHAR
ZZZZ010225	46900	*IF{SYSTEM_CHECK/'CHECK',='SECTION',='',!/'SELECT2'}
ZZZZ010225	47000	*                            SET{WN.SYSTEM_CHECK63=}EXIT{};
ZZZZ010225	47100	=IF{SYSTEM_CHECK/'SELECT2',='SECTION2'}JUMP{};
ZZZZ010225	47200	=SET{WN.SYSTEM_CHECK63=}EXIT{};
ZZZZ010225	47300	=SET{WN.SYSTEM_CHECK63='SELECT SYSTEM_DATA_NAME FROM'
ZZZZ010225	47400	=   +' ?WN.DB?_M_?WN.TABLE[1;4]?_COLUMN_VIEW'
ZZZZ010225	47500	=   +' WHERE SYSTEM_NAME=''?WN.TABLE?'''
ZZZZ010225	47600	=   +' AND SYSTEM_DATA_NAME NOT IN(?_Z_ALL_NAME_VALUE?)'
ZZZZ010225	47700	=   +' AND SYSTEM_DATA_NAME<>''?SYSTEM_CHECK62?'''
ZZZZ010225	47800	=   +' ORDER BY SYSTEM_SEQ'};
ZZZZ010225	47900	DATA=   ?&.DATA&SYSTEM_CHECK63?
ZZZZ010225	48000	CHECK2=?WN.SYSTEM_CHECK63?
ZZZZ010225	48100	COPY=CHECK_CHAR
ZZZZ010225	48200	DATA=   ?&.DATA&SYSTEM_CHECK64?
ZZZZ010225	48300	COPY=CHECK_CHAR
ZZZZ010225	48400	DATA=   ?&.DATA&SYSTEM_CHECK65?
ZZZZ010225	48500	COPY=CHECK_CHAR
ZZZZ010225	48600	DATA=   ?&.DATA&SYSTEM_CHECK66?
ZZZZ010225	48700	=IF{SYSTEM_CHECK!='CHECK2'}JUMP{SKIP};
ZZZZ010225	48800	=SET{_TRIM=SYSTEM_CHECK61+SYSTEM_CHECK62+SYSTEM_CHECK63+
ZZZZ010225	48900	=   SYSTEM_CHECK64+SYSTEM_CHECK65+SYSTEM_CHECK66};
ZZZZ010225	49000	=IF{_TRIM[1;7]='SELECT '}ERROR{SELECT ... ERROR(CHECK2)};
ZZZZ010225	49100	=SKIP:
ZZZZ010225	49200	COPY=CHECK_CHAR
ZZZZ010225	49300	DATA=   ?&.DATA&SYSTEM_MESSAGE?
ZZZZ010225	49400	DATA={}?&.DATA&SYSTEM_COMMENT1?
ZZZZ010225	49500	DATA={}?&.DATA&SYSTEM_COMMENT2?
ZZZZ010225	49600	STOP_AFTER
ZZZZ010225	49700	=IF{SYSTEM_LANG!=_LANG_SYSTEM}EXIT{};
ZZZZ010225	49800	*****( 全　LANG分 更新 )************************
ZZZZ010225	49900	=PROGRAM{3PE,?_TABLE?,SYSTEM_TEST,SYSTEM_BASE_PERMISSION
ZZZZ010225	50000	=   ,SYSTEM_BASE_DATA_NAME,
ZZZZ010225	50100	COPY=SET_NAME
ZZZZ010225	50200	=   }{SYSTEM_PERMISSION,SYSTEM_DATA_NAME}{};
ZZZZ010225	50300	*=IF{SYSTEM_BASE_DATA_NAME<>}EXIT{};
ZZZZ010225	50400	*****( 全　BASE分 更新 )************************
ZZZZ010225	50500	=SET{WC.SYSTEM_BASE_PERMISSION=SYSTEM_PERMISSION};
ZZZZ010225	50600	=SET{WN.SYSTEM_BASE_DATA_NAME=SYSTEM_DATA_NAME};
ZZZZ010225	50700	=PROGRAM{3PE,?_TABLE?,SYSTEM_TEST,
ZZZZ010225	50800	COPY=SET_NAME
ZZZZ010225	50900	=   }
ZZZZ010225	51000	=  {WC.SYSTEM_BASE_PERMISSION,WN.SYSTEM_BASE_DATA_NAME}{};
ZZZZ010225	51100	COPY=@ZZZZZZ_SQL
ZZZZ010226	100	PROGRAM=,&X1,?_MM?_I_TABLE_TABLE
ZZZZ010226	200	TABLE=&X2,?_MM?_ETC_TABLE
ZZZZ010226	300	DICTIONARY=SYSTEM_PERMISSION,SYSTEM_PART,SYSTEM_DATA_NAME
ZZZZ010226	400	CONTROL=PROGRAM_ERROR,0,SCROLL,SQL_DBO,2_KEY
ZZZZ010226	500	%TEST-CONTROL=2,1_PROGRAM
ZZZZ010226	600	COLOR
ZZZZ010226	700	=IF{COLUMN=0}SET{COLUMN@COLOR='R'};
ZZZZ010226	800	BEGIN
ZZZZ010226	900	=SPLIT_CHAR{WC.Z_ALL_NAME}{_Z_ALL_NAME}{','};
ZZZZ010226	1000	=SET{W0.Z_ALL_NAME=_SPLIT_CHAR_COUNT};
ZZZZ010226	1100	=SET{.SYSTEM_NAME=!?_PP?_NAME};
ZZZZ010226	1200	=SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010226	1300	=SQL_SET{.SYSTEM_PART}
ZZZZ010226	1310	=       {SELECT SYSTEM_KEY2 FROM ?_MM?_ETC_TABLE
ZZZZ010226	1400	=  WHERE SYSTEM_KEY1='ZZZZZZ_PART:?.SYSTEM_PERMISSION?'
ZZZZ010226	1500	=  ORDER BY 1};
ZZZZ010226	1600	=SET{W0.INDEX=9};COMPUTE{W0.INDEXP1=W0.INDEX+1};
ZZZZ010226	1700	%TEST+=SET{WN.DB=_MM_TEST};
ZZZZ010226	1800	%TEST-=SET{WN.DB=_MM_REAL};
ZZZZ010226	1900	SET={,*&X2}.?&DATA&SYSTEM_PERMISSION?
ZZZZ010226	2000	*IF{_DATA!=.SYSTEM_NAME[1;4]}SET{.SYSTEM_NAME=};
ZZZZ010226	2100	*IF{_DATA!=DATA_NAME[1;4]}SET{DATA_NAME=};
ZZZZ010226	2200	WORK=?&DATA&SYSTEM_PERMISSION?
ZZZZ010226	2300	=SET{SYSTEM_PERMISSION=_DATA}; PART対応*
ZZZZ010226	2400	SET={,*&X2}.?&DATA&SYSTEM_PART?
ZZZZ010226	2500	*IF{_DATA!=.SYSTEM_NAME[5;2]}SET{.SYSTEM_NAME=};
ZZZZ010226	2600	SET=.?&.SET&SYSTEM_NAME?
ZZZZ010226	2700	*=IF{DATA_NAME=}SET{DATA_NAME=_DATA};
ZZZZ010226	2800	=SET{!?_PP?_NAME=.SYSTEM_NAME};
ZZZZ010226	2900	SET=.?&.SET&SYSTEM_COMMENT1?
ZZZZ010226	3000	SET={,*}.?&SET&SYSTEM_DATA_NAME?(LIKE)
ZZZZ010226	3100	START
ZZZZ010226	3600	*PROGRAM{0,?_MM?_ETC_TABLE}
ZZZZ010226	3700	*  {WC.SYSTEM_KEY1='ZZZZZZ_PART:?.SYSTEM_PERMISSION?'
ZZZZ010226	3800	*  ,WC.SYSTEM_KEY2=?_VC&.SYSTEM_PART?}{};
ZZZZ010226	3900	*IF{_PROGRAM_COUNT=0}ERROR{PERMISSION OR PART};
ZZZZ010226	4000	=COMPUTE{W0.SYSTEM_SEQ=SYSTEM_INDEX+8};
ZZZZ010226	4100	%TEST+=SET{WN.DB_PERMISSION=_MX_TEST_?.SYSTEM_PERMISSION?};
ZZZZ010226	4200	%TEST-=SET{WN.DB_PERMISSION=_MX_REAL_?.SYSTEM_PERMISSION?};
ZZZZ010226	4300	%TEST-=SET{WN.DB_TEST_PERMISSION
ZZZZ010226	4400	%TEST-=    =_MX_TEST_?.SYSTEM_PERMISSION?};
ZZZZ010226	4500	=IF{_START=2}JUMP{START_2};
ZZZZ010226	4600	%TEST-=JUMP{SKIP};
ZZZZ010226	4700	=DBO_SQL_SET{}{SELECT SYSTEM_NAME
ZZZZ010226	4710	=   FROM ?_MM?_M_?.SYSTEM_PERMISSION?_OBJECT_VIEW
ZZZZ010226	4800	=   WHERE SYSTEM_KIND='TABLE'
ZZZZ010226	4900	=   AND ?_VRE&SYSTEM_NAME?};
ZZZZ010226	5000	=IF{_SQL_SET_COUNT>0}ERROR{REAL TABLE(?SYSTEM_NAME?) FOUND};
ZZZZ010226	5100	*DBO_PROGRAM2{0}{}{?_MM?_M_?.SYSTEM_PERMISSION?_OBJECT_VIEW}
ZZZZ010226	5200	*   {WC.SYSTEM_KIND='TABLE',SYSTEM_NAME}{};
ZZZZ010226	5300	*IF{_PROGRAM_COUNT>0}ERROR{REAL TABLE(?SYSTEM_NAME?) FOUND};
ZZZZ010226	5400	=JUMP{START_2};
ZZZZ010226	5500	=SKIP:
ZZZZ010226	5600	=DBO_SQL_SET{}{SELECT SYSTEM_NAME FROM
ZZZZ010226	5700	=  ?WN.DB?_M_?.SYSTEM_PERMISSION?_OBJECT_VIEW
ZZZZ010226	5800	=  WHERE SYSTEM_KIND='TABLE' AND ?_VRE&SYSTEM_NAME?};
ZZZZ010226	5900	=IF{_SQL_SET_COUNT=0}ERROR{TABLE(?SYSTEM_NAME?) NO FOUND};
ZZZZ010226	6300	=START_2:IF{_START!=2}JUMP{START_NOT_2};
ZZZZ010226	6400	=SET{SYSTEM_PERMISSION=.SYSTEM_PERMISSION};
ZZZZ010226	6500	=IF{SYSTEM_NAME=}SET{SYSTEM_NAME=SYSTEM_NAME};
ZZZZ010226	6600	=SET{SYSTEM_TEST='TEST'};EXIT{};
ZZZZ010226	6700	=START_NOT_2:IF{_START=0}IF{SYSTEM_INDEX=0}ERROR{INDEX=0};
ZZZZ010226	6800	NAME=PERMISSION_NAME_CHECK
ZZZZ010226	6900	=IF{'ZZZZ'!=_PERMISSION}IF{SYSTEM_NAME[1;4]!=_PERMISSION}
ZZZZ010226	7000	=   ERROR{?_PERMISSION?_...};
ZZZZ010226	7100	NAME=
ZZZZ010226	7200	=IF{_START!=1}JUMP{EXIT};
ZZZZ010226	7300	=SET{#OBJECT_KIND='CANCEL'};
ZZZZ010226	7400	=SET{#OBJECT_NAME='?SYSTEM_NAME?'};
ZZZZ010226	7500	%TEST+=SET{#OBJECT_REAL_TEST='TEST'};
ZZZZ010226	7600	%TEST-=SET{#OBJECT_REAL_TEST='REAL'};
ZZZZ010226	7700	=SET{%NO_XT_OBJECT='-'};
ZZZZ010226	7800	=EXIT{+1}; OBJECT確認*
ZZZZ010226	7900	=SET{%NO_XT_OBJECT='+'};
ZZZZ010226	8000	=IF{#RETURN!=0}ERROR{?#ERROR?};
ZZZZ010226	8100	=EXIT:EXIT{SYSTEM_INDEX};
ZZZZ010226	8200	*ATA={*C,*&X2}.?&DATA&.SYSTEM_PERMISSION?
ZZZZ010226	8300	DATA={*OC}W.?&DATA&SYSTEM_PERMISSION?
ZZZZ010226	8400	*=IF{_PERMISSION!='ZZZZ'}IF{_PERMISSION!=_DATA}
ZZZZ010226	8500	*=  ERROR{PERMISSION(?_PERMISSION?)};
ZZZZ010226	8600	DATA={K} ?&.DATA&SYSTEM_NAME?
ZZZZ010226	8700	=IF{_DATA@FORM_LENGTH>28}ERROR{LENGTH>28};
ZZZZ010226	8800	=IF{_DATA!/SYSTEM_PERMISSION}
ZZZZ010226	8810	=   ERROR{?SYSTEM_PERMISSION?...};
ZZZZ010226	8900	=IF{_DATA!/'?SYSTEM_PERMISSION??.SYSTEM_PART?'}
ZZZZ010226	9000	=   ERROR{?SYSTEM_PERMISSION??.SYSTEM_PART?...};
ZZZZ010226	9100	=COMPUTE{W0.CNT5=_DATA@COUNT-5,W0.CNT1=_DATA@COUNT-1};
ZZZZ010226	9200	=IF{W0.CNT5>0}IF{_DATA[W0.CNT5]='_TABLE'}JUMP{OK};
ZZZZ010226	9300	JA+=IF{W0.CNT1>0}IF{_DATA[W0.CNT1]='実表'}JUMP{OK};
ZZZZ010226	9400	JA-=ERROR{ ..._TABLE};
ZZZZ010226	9500	JA+=ERROR{ ..._TABLE OR ...実表};
ZZZZ010226	9600	=OK:
ZZZZ010226	9700	COPY=PERMISSION_NAME_CHECK
ZZZZ010226	9800	=DBO_SQL_SET{}{SELECT SYSTEM_NAME FROM
ZZZZ010226	9900	=   ?WN.DB?_M_?SYSTEM_PERMISSION?_OBJECT_VIEW
ZZZZ010226	10000	=   WHERE SYSTEM_KIND='TABLE' AND ?_VRE&SYSTEM_NAME?};
ZZZZ010226	10100	=IF{_SQL_SET_COUNT>0}ERROR{TABLE(?SYSTEM_NAME?) FOUND};
ZZZZ010226	10200	*DBO_PROGRAM2{0}{}{?WN.DB?_M_?SYSTEM_PERMISSION?_OBJECT_VIEW
ZZZZ010226	10300	*  }{WC.SYSTEM_KIND='TABLE',SYSTEM_NAME}{};
ZZZZ010226	10400	*IF{_PROGRAM_COUNT>0}ERROR{TABLE(?SYSTEM_NAME?) FOUND};
ZZZZ010226	10500	%TEST+=DBO_SQL_SET{}{SELECT SYSTEM_NAME FROM
ZZZZ010226	10600	%TEST+=   ?_MM?_M_?SYSTEM_PERMISSION?_OBJECT_VIEW
ZZZZ010226	10700	%TEST+=   WHERE SYSTEM_KIND='TABLE'
ZZZZ010226	10800	%TEST+=   AND ?_VRE&SYSTEM_NAME?};
ZZZZ010226	10900	%TEST+=IF{_SQL_SET_COUNT>0}
ZZZZ010226	11000	*TEST+=DBO_PROGRAM2{0}{}
ZZZZ010226	11100	*TEST+=   {?_MM?_M_?SYSTEM_PERMISSION?_OBJECT_VIEW}
ZZZZ010226	11200	*TEST+=  {WC.SYSTEM_KIND='TABLE',SYSTEM_NAME}{};
ZZZZ010226	11300	*TEST+=IF{_PROGRAM_COUNT>0}
ZZZZ010226	11400	%TEST+=  ERROR{REAL TABLE(?SYSTEM_NAME?) FOUND};
ZZZZ010226	11500	DATA={*O}COLUMN{4,,+}
ZZZZ010226	11600	DATA={O} ?&.DATA&SYSTEM_TEST?
ZZZZ010226	11700	DATA=    ?&.DATA&SYSTEM_INDEX?
ZZZZ010226	11800	DATA=    ?&.DATA&SYSTEM_PUBLIC?
ZZZZ010226	11900	DATA=    ?&.DATA&SYSTEM_COMMENT1?
ZZZZ010226	12000	DATA=    ?&.DATA&SYSTEM_COMMENT2?
ZZZZ010226	12100	STOP_AFTER
ZZZZ010226	12200	%TEST+=SET{_REAL_TEST='TEST'};
ZZZZ010226	12300	=SET{_JOB_PERMISSION=SYSTEM_PERMISSION};
ZZZZ010226	12400	=SET{WN.TABLE=WN.DB_PERMISSION+SYSTEM_NAME};
ZZZZ010226	12500	%TEST-=SET{WN.TEST=WN.DB_TEST_PERMISSION+SYSTEM_NAME};
ZZZZ010226	12600	*D+={_REAL_TEST='REAL',_JOB_PERMISSION='ZZZZ'};
ZZZZ010226	12700	=IF{_START=1}JUMP{DEL};
ZZZZ010226	12800	=IF{_START!=2}JUMP{NOT_2};
ZZZZ010226	12900	=IF_ERROR_DBO_CREATE_TABLE{?WN.TABLE?}{}ERROR{};
ZZZZ010226	13000	=DBO_GRANT{?WN.TABLE?,TABLE,?SYSTEM_PUBLIC?};
ZZZZ010226	13100	=NOT_2:IF{_START=3}IF{SYSTEM_PUBLIC!=SYSTEM_PUBLIC@OLD}
ZZZZ010226	13200	=   JUMP{GRANT};JUMP{SKIP};
ZZZZ010226	13300	=GRANT:DBO_GRANT{?WN.TABLE?,TABLE,?SYSTEM_PUBLIC?};
ZZZZ010226	13400	%TEST-=SET{_REAL_TEST='TEST'};
ZZZZ010226	13500	%TEST-=IF_ERROR_DBO_GRANT{?WN.TEST?,TABLE,
ZZZZ010226	13600	%TEST-=   ?SYSTEM_PUBLIC?}NOP{};
ZZZZ010226	13700	=SKIP:SET{_REAL_TEST='REAL',_JOB_PERMISSION='ZZZZ'};
ZZZZ010226	13800	=COMPUTE{W0.SYSTEM_SEQ=SYSTEM_INDEX+8};
ZZZZ010226	13900	=IF{_START=2}EXIT{+1};
ZZZZ010226	14000	=EXIT{};
ZZZZ010226	14100	=DEL:
ZZZZ010226	14200	=DBO_DROP_TABLE{?WN.TABLE?};
ZZZZ010226	14300	=SET{_REAL_TEST='REAL',_JOB_PERMISSION='ZZZZ'};
ZZZZ010226	14400	%TEST+=DBO_SQL{UPDATE ?_MM?_I_COLUMN_TABLE
ZZZZ010226	14500	%TEST+=   SET ?_Z_UPDATE_CANCEL? WHERE
ZZZZ010226	14600	%TEST+=   ?_VRE&SYSTEM_NAME? AND Z_CANCEL=' '};
ZZZZ010226	14700	%TEST+=DBO_SQL{UPDATE ?_MM?_I_TABLE_TABLE
ZZZZ010226	14800	%TEST+=   SET ?_Z_UPDATE_CANCEL? WHERE
ZZZZ010226	14900	%TEST+=   ?_VRE&SYSTEM_NAME? AND Z_CANCEL=' '};
ZZZZ010226	15000	%TEST+=DBO_SQL{UPDATE ?_MM?_I_PERMISSION_TABLE
ZZZZ010226	15100	%TEST+=   SET ?_Z_UPDATE_CANCEL? WHERE
ZZZZ010226	15200	%TEST+=   ?_VRE&SYSTEM_NAME? AND Z_CANCEL=' '};
ZZZZ010226	15300	**** TEST TABLE NOT DROP ***
ZZZZ010226	15400	%TEST-=DBO_SQL{UPDATE ?_MM?_I_TABLE_TABLE
ZZZZ010226	15500	%TEST-=   SET ?_Z_UPDATE_CHANGE?,SYSTEM_TEST='TEST' WHERE
ZZZZ010226	15600	%TEST-=   ?_VRE&SYSTEM_NAME? AND Z_CANCEL=' '};
ZZZZ010226	15700	=EXIT:EXIT{};
ZZZZ010226	15800	SQL=SELECT '?.SYSTEM_PERMISSION?',V.SYSTEM_NAME
ZZZZ010226	15900	SQL=   ,(SELECT COUNT(*) FROM
ZZZZ010226	16000	SQL=   ?WN.DB?_M_?.SYSTEM_PERMISSION?_COLUMN_VIEW C
ZZZZ010226	16100	SQL=   WHERE C.?_NE&V.SYSTEM_NAME?
ZZZZ010226	16200	*SQL=  AND ?_SUBSTR(C.SYSTEM_DATA_NAME;1;2)?<>'Z_')
ZZZZ010226	16300	SQL=   AND C.SYSTEM_DATA_NAME NOT IN(?_Z_ALL_NAME_VALUE?))
ZZZZ010226	16400	SQL=   ,?_T?.SYSTEM_TEST,SYSTEM_INDEX,SYSTEM_PUBLIC
ZZZZ010226	16500	SQL=   ,SYSTEM_COMMENT1,SYSTEM_COMMENT2
ZZZZ010226	16600	SQL=   FROM ?WN.DB?_M_?.SYSTEM_PERMISSION?_OBJECT_VIEW V
ZZZZ010226	16700	SQL=   LEFT OUTER JOIN ?_TABLE? ?_T?
ZZZZ010226	16800	SQL=   ON RTRIM(V.SYSTEM_NAME)=RTRIM(?_T?.SYSTEM_NAME)
ZZZZ010226	16900	SQL=   AND Z_CANCEL=' '
ZZZZ010226	17000	SQL=   WHERE V.SYSTEM_KIND='TABLE'
ZZZZ010226	17100	SQL=   AND V.?_LR&.SYSTEM_NAME?
ZZZZ010226	17200	SQL=   AND V.SYSTEM_NAME
ZZZZ010226	17300	SQL=  LIKE ?_N?'?.SYSTEM_PERMISSION??.SYSTEM_PART?%' AND CASE
ZZZZ010226	17400	SQL=   WHEN ?_T?.SYSTEM_COMMENT1 IS NULL THEN ?_N?' ' ELSE
ZZZZ010226	17500	SQL=   ?_T?.SYSTEM_COMMENT1 END LIKE '?.SYSTEM_COMMENT1?%'
ZZZZ010226	17600	SQL=   AND CASE
ZZZZ010226	17700	SQL=   WHEN ?_T?.SYSTEM_COMMENT2 IS NULL THEN ?_N?' ' ELSE
ZZZZ010226	17800	SQL=   ?_T?.SYSTEM_COMMENT2 END LIKE '?.SYSTEM_COMMENT1?%'
ZZZZ010226	17900	REPEAT=_ORDER_COUNT
ZZZZ010226	18000	SQL=   ?_ORDER##?
ZZZZ010226	18100	REPEAT=
ZZZZ010226	18200	*###( 2 )####################################################
ZZZZ010226	18300	%NO_XT_OBJECT-COMMENT_BEGIN
ZZZZ010226	18400	PROGRAM=,&X1,?_MM?_I_COLUMN_TABLE
ZZZZ010226	18500	CONTROL=PROGRAM_ERROR,SCROLL,SQL_DBO,BEGIN_ENTER
ZZZZ010226	18600	DICTIONARY=SYSTEM_PERMISSION
ZZZZ010226	18700	COLOR
ZZZZ010226	18800	=IF{SYSTEM_DEFAULT_TYPE=O1.SYSTEM_DEFAULT_TYPE}
ZZZZ010226	18900	=                                 JUMP{COLOR_L};
ZZZZ010226	19000	M-=IF{O1.SYSTEM_DEFAULT_TYPE='DATETIME'}
ZZZZ010226	19100	M-=  IF{SYSTEM_DEFAULT_TYPE='TIMESTAMP'}JUMP{COLOR_L};
ZZZZ010226	19200	M-O-=IF{O1.SYSTEM_DEFAULT_TYPE='NCHAR'}
ZZZZ010226	19300	M-O-=  IF{SYSTEM_DEFAULT_TYPE='CHAR'}JUMP{COLOR_L};
ZZZZ010226	19400	M-O-=IF{O1.SYSTEM_DEFAULT_TYPE='NVARCHAR'}
ZZZZ010226	19500	M-O-=  IF{SYSTEM_DEFAULT_TYPE='VARCHAR'}JUMP{COLOR_L};
ZZZZ010226	19600	O+=IF{O1.SYSTEM_DEFAULT_TYPE='VARCHAR'}
ZZZZ010226	19700	O+=  IF{SYSTEM_DEFAULT_TYPE='VARCHAR2'}JUMP{COLOR_L};
ZZZZ010226	19800	O+=IF{O1.SYSTEM_DEFAULT_TYPE='NVARCHAR'}
ZZZZ010226	19900	O+=  IF{SYSTEM_DEFAULT_TYPE='NVARCHAR2'}JUMP{COLOR_L};
ZZZZ010226	20000	=   SET{O1.SYSTEM_DEFAULT_TYPE@COLOR='Y'};JUMP{};
ZZZZ010226	20100	=COLOR_L:SET{O1.SYSTEM_DEFAULT_TYPE@COLOR='L'};
ZZZZ010226	20110	=IF{SYSTEM_DEFAULT_TYPE!=O1.SYSTEM_DEFAULT_TYPE}
ZZZZ010226	20120	=   SET{O1.SYSTEM_DEFAULT_TYPE@COLOR='R'};
ZZZZ010226	20200	=IF{SYSTEM_DEFAULT_LENGTH1=O1.SYSTEM_DEFAULT_LENGTH1}
ZZZZ010226	20300	=   SET{O1.SYSTEM_DEFAULT_LENGTH1@COLOR='L'}JUMP{};
ZZZZ010226	20400	=SET{   O1.SYSTEM_DEFAULT_LENGTH1@COLOR='Y'};
ZZZZ010226	20500	=IF{SYSTEM_DEFAULT_LENGTH2=O1.SYSTEM_DEFAULT_LENGTH2}
ZZZZ010226	20600	=   SET{O1.SYSTEM_DEFAULT_LENGTH2@COLOR='L'}JUMP{};
ZZZZ010226	20700	=SET{   O1.SYSTEM_DEFAULT_LENGTH2@COLOR='Y'};
ZZZZ010226	20800	=IF{.SYSTEM_IX0='*'}JUMP{AST};
ZZZZ010226	20900	=IF{$W0.SYSTEM_SEQ>=SYSTEM_SEQ}
ZZZZ010226	21000	=   SET{.SYSTEM_IX0@COLOR='Y'}JUMP{OK};
ZZZZ010226	21100	=JUMP{COLOR_L};
ZZZZ010226	21200	=AST:IF{$W0.SYSTEM_SEQ<SYSTEM_SEQ}
ZZZZ010226	21300	=   SET{.SYSTEM_IX0@COLOR='Y'}JUMP{};
ZZZZ010226	21400	=COLOR_L:SET{.SYSTEM_IX0@COLOR='L'};
ZZZZ010226	21500	=OK:
ZZZZ010226	21600	REPEAT=$W0.INDEX
ZZZZ010226	21700	=IF{.SYSTEM_IX##=O1.SYSTEM_IX##}
ZZZZ010226	21800	=   SET{.SYSTEM_IX##@COLOR='W'}JUMP{};
ZZZZ010226	21900	=SET{   .SYSTEM_IX##@COLOR='Y'};
ZZZZ010226	22000	REPEAT=
ZZZZ010226	22100	BEGIN_END
ZZZZ010226	22200	=DROP_TABLE{?_WORK_TABLE?A};
ZZZZ010226	22300	BEGIN
ZZZZ010226	22400	=SET{.SYSTEM_COMMENT1=$SYSTEM_COMMENT1};
ZZZZ010226	22500	=SET{WN.DB=$WN.DB};
ZZZZ010226	22600	=SET{WN.TABLE=$WN.DB_PERMISSION+$SYSTEM_NAME};
ZZZZ010226	22700	%TEST-=SET{WN.TEST=$WN.DB_TEST_PERMISSION+$SYSTEM_NAME};
ZZZZ010226	22800	SET={,*}$.?&.SET&SYSTEM_DATA_NAME?(LIKE)
ZZZZ010226	22900	SET={ }$.?&SET&SYSTEM_PART?
ZZZZ010226	23000	SET={O}.=?$&.SET&SYSTEM_INDEX?
ZZZZ010226	23100	SET={O}.=?$&.SET&SYSTEM_PUBLIC?
ZZZZ010226	23200	SET={KO}.=?$&.SET&SYSTEM_NAME?
ZZZZ010226	23300	SET={O}.?$&.SET&SYSTEM_COMMENT1?
ZZZZ010226	23400	=SET{WSW=0};
ZZZZ010226	23500	=DBO_SQL{UPDATE ?_TABLE? SET ?_Z_UPDATE_CANCEL? WHERE
ZZZZ010226	23600	=   SYSTEM_NAME='?.SYSTEM_NAME?' AND SYSTEM_DATA_NAME NOT
ZZZZ010226	23700	=   IN(SELECT SYSTEM_DATA_NAME FROM
ZZZZ010226	23800	=   ?WN.DB?_M_?$.SYSTEM_PERMISSION?_COLUMN_VIEW WHERE
ZZZZ010226	23900	=   SYSTEM_NAME='?.SYSTEM_NAME?' AND SYSTEM_WORK='MAST')};
ZZZZ010226	24000	SET={O}$.?&SET&SYSTEM_PERMISSION?
ZZZZ010226	24100	START
ZZZZ010226	24200	=IF{_START=3}
ZZZZ010226	24300	=  IF{SYSTEM_DEFAULT_TYPE!=O1.SYSTEM_DEFAULT_TYPE}
ZZZZ010226	24400	=  ERROR{TYPE CAN NOT BE CHANGED};
ZZZZ010226	24500	=IF{_START=0}EXIT{};
ZZZZ010226	24600	=IF{WSW=0}SET{WSW=1};
ZZZZ010226	24700	=IF{WSW=2}ERROR{(LEFT)+(ENTER)};SET{WSW=2};
ZZZZ010226	24800	=SET{WN.ID_SW=0};
ZZZZ010226	24900	=IF{_START=1}EXIT{};
ZZZZ010226	25000	=IF{SYSTEM_SEQ!=}COMPUTE{W0.CNT=SYSTEM_SEQ-9}JUMP{OK};
ZZZZ010226	25100	=DBO_SQL_SET{W0.CNT}
ZZZZ010226	25200	=  {SELECT COUNT(*) FROM
ZZZZ010226	25300	=   ?WN.DB?_M_?$.SYSTEM_PERMISSION?_COLUMN_VIEW
ZZZZ010226	25400	=   WHERE ?_VRE&.SYSTEM_NAME?
ZZZZ010226	25500	=   AND SYSTEM_DATA_NAME NOT IN(?_Z_ALL_NAME_VALUE?)};
ZZZZ010226	25600	*DBO_PROGRAM2{0}{}
ZZZZ010226	25700	*  {?WN.DB?_M_?$.SYSTEM_PERMISSION?_COLUMN_VIEW}
ZZZZ010226	25800	*  {SYSTEM_NAME}
ZZZZ010226	25900	*  {.SYSTEM_DATA_NAME NOT IN(?_Z_ALL_NAME_VALUE?)};
ZZZZ010226	26000	*SET{W0.CNT=_PROGRAM_COUNT};
ZZZZ010226	26100	=OK:SET{.SYSTEM_IX0=};
ZZZZ010226	26200	=IF{W0.CNT<.SYSTEM_INDEX}SET{.SYSTEM_IX0='*'};
ZZZZ010226	26300	=COMPUTE{W0.CNT+=9};
ZZZZ010226	26400	*DROP_TABLE{?_WORK_TABLE?A};
ZZZZ010226	26500	*CREATE_TABLE{?_WORK_TABLE?A,
ZZZZ010226	26600	*  SYSTEM_DATA_NAME,*,SYSTEM_PART,*}{SYSTEM_TITLE,*};
ZZZZ010226	26700	*SQL{INSERT INTO ?_WORK_TABLE?A
ZZZZ010226	26800	*   (SYSTEM_DATA_NAME,SYSTEM_PART,SYSTEM_TITLE)
ZZZZ010226	26900	*   SELECT SYSTEM_DATA_NAME,SYSTEM_PART,SYSTEM_TITLE
ZZZZ010226	27000	*   FROM ?_MM?_I_DICTIONARY_TABLE WHERE
ZZZZ010226	27100	*   .SYSTEM_PERMISSION=?_N?'?SYSTEM_NAME[1;4]?'
ZZZZ010226	27200	*   AND SYSTEM_LANG='?_LANG_SYSTEM?'
ZZZZ010226	27300	*   AND ?_LR&.SYSTEM_DATA_NAME?
ZZZZ010226	27400	*   AND SYSTEM_TEST IN(' '
ZZZZ010226	27500	*%TEST+=   ,'TEST'
ZZZZ010226	27600	*   ) AND Z_CANCEL=' '};
ZZZZ010226	27700	*SQL{UPDATE ?_WORK_TABLE?A SET Z_CANCEL=?_NOW17?
ZZZZ010226	27800	*   WHERE SYSTEM_DATA_NAME IN(SELECT SYSTEM_DATA_NAME
ZZZZ010226	27900	*   FROM ?WN.DB?_M_?$.SYSTEM_PERMISSION?_COLUMN_VIEW
ZZZZ010226	28000	*   WHERE ?_VRE&.SYSTEM_NAME?
ZZZZ010226	28100	*   AND(?_VRLG&SYSTEM_DATA_NAME?
ZZZZ010226	28200	*   OR '?_START?'='2'))};
ZZZZ010226	28300	DATA={N}?&.DATA&SYSTEM_SEQ?
ZZZZ010226	28400	*DATA={N}OLD.?&.DATA&.SYSTEM_DATA_NAME?
ZZZZ010226	28500	DATA={K}?&.DATA&SYSTEM_DATA_NAME?
ZZZZ010226	28600	*CHECK2=SELECT SYSTEM_DATA_NAME,SYSTEM_TITLE
ZZZZ010226	28700	*CHECK2=   FROM ?_WORK_TABLE?A X1 WHERE Z_CANCEL=' ' ORDER BY
ZZZZ010226	28800	*CHECK2=  CASE WHEN ?_L&.SYSTEM_PART? THEN 0 ELSE 1 END,1
ZZZZ010226	28900	CHECK2=SELECT SYSTEM_DATA_NAME,SYSTEM_TITLE
ZZZZ010226	29000	CHECK2=  FROM ?_MM?_I_DICTIONARY_TABLE
ZZZZ010226	29100	CHECK2=  WHERE SYSTEM_LANG='?_LANG_SYSTEM?'
ZZZZ010226	29200	CHECK2=  AND ?_LR&.SYSTEM_DATA_NAME?
ZZZZ010226	29300	CHECK2=  AND SYSTEM_TEST IN(' '
ZZZZ010226	29400	%TEST+CHECK2=  ,'TEST'
ZZZZ010226	29500	CHECK2= )AND Z_CANCEL=' '
ZZZZ010226	29600	CHECK2= AND SYSTEM_DATA_NAME NOT
ZZZZ010226	29700	CHECK2= IN(SELECT SYSTEM_DATA_NAME
ZZZZ010226	29800	CHECK2= FROM ?WN.DB?_M_?$.SYSTEM_PERMISSION?_COLUMN_VIEW
ZZZZ010226	29900	CHECK2=  WHERE ?_VRE&.SYSTEM_NAME?
ZZZZ010226	30000	CHECK2=  AND(?_VRLG&SYSTEM_DATA_NAME?
ZZZZ010226	30100	CHECK2=  OR '?_START?'='2'))
ZZZZ010226	30200	CHECK2=  ORDER BY CASE WHEN ?_VRE&.SYSTEM_PERMISSION? THEN
ZZZZ010226	30300	CHECK2=  CASE WHEN ?_VRE&.SYSTEM_PART? THEN 0 ELSE 1 END
ZZZZ010226	30400	CHECK2=  ELSE 2 END,SYSTEM_DATA_NAME
ZZZZ010226	30500	=SS:
ZZZZ010226	30600	=IF{.SYSTEM_DATA_NAME@OLD=}SET{SYSTEM_SEQ=W0.CNT};
ZZZZ010226	30700	=IF{_START=3}
ZZZZ010226	30800	=   IF{SYSTEM_DATA_NAME@OLD=SYSTEM_DATA_NAME}JUMP{SAME};
ZZZZ010226	30900	*****( データ名変更　)*****
ZZZZ010226	31000	=DBO_SQL_SET{}{SELECT SYSTEM_DATA_NAME
ZZZZ010226	31100	=   FROM ?WN.DB?_M_?$.SYSTEM_PERMISSION?_COLUMN_VIEW
ZZZZ010226	31200	=   WHERE ?_VRE&.SYSTEM_NAME?
ZZZZ010226	31300	=   AND ?_VRE&SYSTEM_DATA_NAME?};
ZZZZ010226	31400	=IF{_SQL_SET_COUNT>0}ERROR{DATA_NAME ALLREADY};
ZZZZ010226	31500	*DBO_PROGRAM2{0}{}
ZZZZ010226	31600	*  {?WN.DB?_M_?$.SYSTEM_PERMISSION?_COLUMN_VIEW}
ZZZZ010226	31700	*  {SYSTEM_NAME,.SYSTEM_DATA_NAME}{};
ZZZZ010226	31800	*IF{_PROGRAM_COUNT>0}ERROR{DATA_NAME ALLREADY};
ZZZZ010226	31900	*=SET{.SYSTEM_DATA_NAME=NEWN.SYSTEM_DATA_NAME};
ZZZZ010226	32000	*SAME:SQL_SET{SYSTEM_DEFAULT_TYPE
ZZZZ010226	32100	*   ,.SYSTEM_DEFAULT_LENGTH1,SYSTEM_DEFAULT_LENGTH2}
ZZZZ010226	32200	*  {SELECT SYSTEM_DEFAULT_TYPE,SYSTEM_DEFAULT_LENGTH1
ZZZZ010226	32300	*   ,SYSTEM_DEFAULT_LENGTH2
ZZZZ010226	32400	*   FROM ?_MM?_I_DICTIONARY_TABLE
ZZZZ010226	32500	*   WHERE .SYSTEM_DATA_NAME='?_DATA?'
ZZZZ010226	32600	*   AND SYSTEM_PERMISSION='?$.SYSTEM_PERMISSION?'
ZZZZ010226	32700	*   AND SYSTEM_LANG='?_LANG_SYSTEM?'
ZZZZ010226	32800	*   AND Z_CANCEL=' '};
ZZZZ010226	32900	*IF{_SQL_SET_COUNT=0}ERROR{COUNT=0};
ZZZZ010226	33000	=SAME:PROGRAM{0,?_MM?_I_DICTIONARY_TABLE,
ZZZZ010226	33100	=    SYSTEM_DEFAULT_TYPE,SYSTEM_DEFAULT_LENGTH1
ZZZZ010226	33200	=   ,SYSTEM_DEFAULT_LENGTH2}
ZZZZ010226	33300	*  {.SYSTEM_PERMISSION=$.SYSTEM_PERMISSION
ZZZZ010226	33400	=  {WN.SYSTEM_DATA_NAME=_DATA,WC.SYSTEM_LANG=_LANG_SYSTEM}{};
ZZZZ010226	33500	=IF{_PROGRAM_COUNT=0}ERROR{(?_DATA?) DICTIONARY NOT FOUND};
ZZZZ010226	33600	=EXIT{};
ZZZZ010226	33700	DATA={O}?&.DATA&SYSTEM_DEFAULT_TYPE?(TABLE)
ZZZZ010226	33800	DATA={*O}O1.?&.DATA&SYSTEM_DEFAULT_TYPE?(DICT)
ZZZZ010226	33900	DATA={O}?&.DATA&SYSTEM_DEFAULT_LENGTH1?(TABLE)
ZZZZ010226	34000	DATA={*O}O1.?&.DATA&SYSTEM_DEFAULT_LENGTH1?(DICT)
ZZZZ010226	34100	DATA={O}?&.DATA&SYSTEM_DEFAULT_LENGTH2?(TABLE)
ZZZZ010226	34200	DATA={*O}O1.?&.DATA&SYSTEM_DEFAULT_LENGTH2?(DICT)
ZZZZ010226	34300	REPEAT=?$W0.INDEXP1?
ZZZZ010226	34400	1+DATA={O}.SYSTEM_IX#-{1,,9}{,(0,9)}#-
ZZZZ010226	34500	1-DATA=   .SYSTEM_IX#-{1,,9}{,(0,9)}#-
ZZZZ010226	34600	=IF{_START=3}IF{.SYSTEM_IX#-@OLD=.SYSTEM_IX#-}EXIT{};
ZZZZ010226	34700	=SET{WN.ID_SW=1};IF{.SYSTEM_IX#-=}EXIT{};
ZZZZ010226	34800	1-=DBO_SQL_SET{}{SELECT SYSTEM_IX#- FROM ?_TABLE? WHERE
ZZZZ010226	34900	1-=   ?_VRE&.SYSTEM_NAME?  AND ?_VRE&.SYSTEM_IX#-? AND
ZZZZ010226	35000	1-=   ?_VRLG&SYSTEM_DATA_NAME? AND Z_CANCEL=' '
ZZZZ010226	35100	1-=  };IF{_SQL_SET_COUNT>0}ERROR{SAME NUMBER IX#-};
ZZZZ010226	35200	*1-=DBO_PROGRAM2{0}{}{?_TABLE?}{SYSTEM_NAME,.SYSTEM_IX#-}
ZZZZ010226	35300	*1-=  {?_VRLG&SYSTEM_DATA_NAME?};
ZZZZ010226	35400	*1-=IF{_PROGRAM_COUNT>0}ERROR{SAME NUMBER IX#-};
ZZZZ010226	35500	=IF{_START!=3}EXIT{};
ZZZZ010226	35600	=DBO_SQL_SET{W0.C}{SELECT COUNT(*) FROM ?WN.TABLE? WHERE
ZZZZ010226	35700	=  ?SYSTEM_DATA_NAME? IS NULL};
ZZZZ010226	35800	=IF{_SQL_SET_COUNT=0}ERROR{PROGRAM MISS};
ZZZZ010226	35900	=IF{W0.C!=0}ERROR{IX#-(?SYSTEM_DATA_NAME?)NULL DATA FOUND};
ZZZZ010226	36000	DATA={*N}O1.SYSTEM_IX#-{1,,9}{,(0,9)}#-
ZZZZ010226	36100	REPEAT=
ZZZZ010226	36200	DATA=?&.DATA&SYSTEM_COMMENT1?
ZZZZ010226	36300	DATA=?&.DATA&SYSTEM_COMMENT2?
ZZZZ010226	36400	STOP_AFTER
ZZZZ010226	36500	***( ALTER TABLE MODIFY VER29.1 )***
ZZZZ010226	36600	=IF{_START!=3}JUMP{ALTER_MODIFY_SKIP};
ZZZZ010226	36900	=IF{  SYSTEM_DEFAULT_LENGTH1=O1.SYSTEM_DEFAULT_LENGTH1}
ZZZZ010226	37000	=  IF{SYSTEM_DEFAULT_LENGTH2=O1.SYSTEM_DEFAULT_LENGTH2}
ZZZZ010226	37100	=  JUMP{ALTER_MODIFY_SKIP};
ZZZZ010226	38100	=IF{O1.SYSTEM_DEFAULT_TYPE/'N'}
ZZZZ010226	38200	=  COMPUTE{W0.LEN=O1.SYSTEM_DEFAULT_LENGTH1*_UTF8_SET}JUMP{};
ZZZZ010226	38300	=      SET{W0.LEN=O1.SYSTEM_DEFAULT_LENGTH1};
ZZZZ010226	38500	=SET{WC.MODIFY=_SQL_?O1.SYSTEM_DEFAULT_TYPE?+'('+W0.LEN};
ZZZZ010226	38700	=IF{O1.SYSTEM_DEFAULT_TYPE='DECIMAL'}
ZZZZ010226	38800	=   SET{WC.MODIFY+=','+O1.SYSTEM_DEFAULT_LENGTH2+')'}JUMP{};
ZZZZ010226	39000	=   SET{WC.MODIFY+=')'};
ZZZZ010226	39500	=ALTER_MODIFY:
ZZZZ010226	39600	%TEST+=SET{_REAL_TEST='TEST'};
ZZZZ010226	39610	=SET{_JOB_PERMISSION=.SYSTEM_PERMISSION};
ZZZZ010226	39700	=IF_ERROR_DBO_SQL{ALTER TABLE ?WN.TABLE?
ZZZZ010226	39800	NAME=ALTER_MODIFY
ZZZZ010226	39900	O+|L+=  MODIFY
ZZZZ010226	39910	O-L-=  ALTER COLUMN
ZZZZ010226	40000	O+=(
ZZZZ010226	40200	=  ?SYSTEM_DATA_NAME?
ZZZZ010226	40204	I+= SET DATA TYPE
ZZZZ010226	40205	P+= TYPE
ZZZZ010226	40210	=  ?WC.MODIFY?
ZZZZ010226	40400	O+=)
ZZZZ010226	40500	=  }
ZZZZ010226	40600	NAME= (ALTER_MODIFY)
ZZZZ010226	40700	=   ERROR{};
ZZZZ010226	40800	%TEST-=SET{_REAL_TEST='TEST'};
ZZZZ010226	40900	%TEST-=IF_ERROR_DBO_SQL{ALTER TABLE ?WN.TEST?
ZZZZ010226	41000	%TEST-COPY=ALTER_MODIFY
ZZZZ010226	41100	%TEST-=  NOP{};
ZZZZ010226	41200	=SET{_REAL_TEST='REAL',_JOB_PERMISSION='ZZZZ'};
ZZZZ010226	41300	=SET{SYSTEM_DEFAULT_TYPE=O1.SYSTEM_DEFAULT_TYPE};
ZZZZ010226	41400	=SET{SYSTEM_DEFAULT_LENGTH1=O1.SYSTEM_DEFAULT_LENGTH1};
ZZZZ010226	41500	=SET{SYSTEM_DEFAULT_LENGTH2=O1.SYSTEM_DEFAULT_LENGTH2};
ZZZZ010226	41600	=ALTER_MODIFY_SKIP:
ZZZZ010226	41700	=DBO_SQL1{
ZZZZ010226	41800	NAME=MAINTE_SELECT
ZZZZ010226	41900	=   SELECT V.SYSTEM_NAME,V.SYSTEM_DATA_NAME,V.SYSTEM_SEQ
ZZZZ010226	42000	=   ,V.SYSTEM_DEFAULT_TYPE,V.SYSTEM_DEFAULT_LENGTH1
ZZZZ010226	42100	=   ,V.SYSTEM_DEFAULT_LENGTH2
ZZZZ010226	42200	REPEAT=?$W0.INDEXP1?
ZZZZ010226	42300	=   ,COALESCE((SELECT CAST(CASE WHEN SYSTEM_NO>9 THEN 9
ZZZZ010226	42400	=   ELSE SYSTEM_NO END AS CHAR(1)) FROM
ZZZZ010226	42500	=   ?WN.DB?_M_?$.SYSTEM_PERMISSION?_INDEX_VIEW I
ZZZZ010226	42600	=   WHERE I.?_VRE&.SYSTEM_NAME? AND I.SYSTEM_IX='#-'
ZZZZ010226	42700	=   AND I.?_NE&V.SYSTEM_DATA_NAME?),' ')
ZZZZ010226	42800	=   AS IX#-
ZZZZ010226	42900	REPEAT=
ZZZZ010226	43000	=   ,COALESCE(SYSTEM_COMMENT1,?_N?' ')
ZZZZ010226	43100	=   FROM ?WN.DB?_M_?$.SYSTEM_PERMISSION?_COLUMN_VIEW V
ZZZZ010226	43200	=   LEFT OUTER JOIN ?_MM?_I_COLUMN_TABLE T
ZZZZ010226	43300	=   ON T.?_VRE&.SYSTEM_NAME?
ZZZZ010226	43400	=   AND T.?_NE&V.SYSTEM_DATA_NAME?
ZZZZ010226	43500	=   WHERE V.?_VRE&.SYSTEM_NAME? ORDER BY 3};
ZZZZ010226	43600	NAME=
ZZZZ010226	43700	=IF{_START=3}
ZZZZ010226	43900	=   IF{SYSTEM_DATA_NAME@OLD=SYSTEM_DATA_NAME}
ZZZZ010226	44000	=   IF{SYSTEM_DEFAULT_TYPE@OLD=SYSTEM_DEFAULT_TYPE}
ZZZZ010226	44100	=   IF{SYSTEM_DEFAULT_LENGTH1@OLD=SYSTEM_DEFAULT_LENGTH1}
ZZZZ010226	44200	=   IF{SYSTEM_DEFAULT_LENGTH2@OLD=SYSTEM_DEFAULT_LENGTH2}
ZZZZ010226	44300	=   SET{WSW=1}JUMP{INDEX};
ZZZZ010226	44900	=SET{W0.C=0,WK=,WK_SEP=,WD=,WD_SEP=,W=,WN.SEP=};
ZZZZ010226	45000	=SET{WI=,WI_SEP=,WO=,WO_SEP=};
ZZZZ010226	45100	H-=IF{SYSTEM_DATA_NAME@OLD=}
ZZZZ010226	45200	H-=                       JUMP{ALT_ADD};*最後に追加ALTER*
ZZZZ010226	45300	=DBO_SQL_SET{}{SELECT SYSTEM_NAME FROM
ZZZZ010226	45400	=   ?WN.DB?_M_?$.SYSTEM_PERMISSION?_OBJECT_VIEW
ZZZZ010226	45500	=   WHERE SYSTEM_KIND='TABLE'
ZZZZ010226	45600	=   AND SYSTEM_NAME=?_N?'?SYSTEM_NAME?X'};
ZZZZ010226	45700	=IF{_SQL_SET_COUNT>0}ERROR{TABLE(?.SYSTEM_NAME?X) FOUND};
ZZZZ010226	45800	*DBO_PROGRAM2{0}{}
ZZZZ010226	45900	*  {?WN.DB?_M_?$.SYSTEM_PERMISSION?_OBJECT_VIEW}
ZZZZ010226	46000	* {WC.SYSTEM_KIND='TABLE',WN.SYSTEM_NAME=.SYSTEM_NAME+'X'}{};
ZZZZ010226	46100	*IF{_PROGRAM_COUNT>0}ERROR{TABLE(?.SYSTEM_NAME?X) FOUND};
ZZZZ010226	46200	=SQL1_NEXT:SQL1_NEXT{,WN.DATA,,WN.TYPE,WN.LENGTH1,WN.LENGTH2}
ZZZZ010226	46300	=   JUMP{CRE};
ZZZZ010226	46400	=SET{WN.RTRIM=,WN.RTRIM2=};
ZZZZ010226	46500	*=IF{WN.DATA[1;2]='Z_'}JUMP{SKIP}; *システム列は定義しない*
ZZZZ010226	46600	REPEAT=$W0.Z_ALL_NAME
ZZZZ010226	46700	=IF{WN.DATA=$WC.Z_ALL_NAME##}JUMP{SKIP}; *システム列*
ZZZZ010226	46800	REPEAT=
ZZZZ010226	46900	=IF{WN.DATA!=SYSTEM_DATA_NAME@OLD}
ZZZZ010226	47000	=                               JUMP{OLD};*無処理列OLDへ*
ZZZZ010226	47100	=IF{_START=1}BACK{SQL1_NEXT};
ZZZZ010226	47200	******( 新列名処理 )*****************************
ZZZZ010226	47300	NAME=NEWN.COLUMN
ZZZZ010226	47400	=IF{W0.C<.SYSTEM_INDEX}COMPUTE{W0.C+=1}
ZZZZ010226	47500	=   SET{WK+=WK_SEP+SYSTEM_DATA_NAME,WK_SEP=','};
ZZZZ010226	47600	=SET{WN.W=','+SYSTEM_DEFAULT_LENGTH1};
ZZZZ010226	47700	=IF{SYSTEM_DEFAULT_TYPE='DECIMAL'}
ZZZZ010226	47800	=   SET{WN.W=','+SYSTEM_DEFAULT_LENGTH1+','
ZZZZ010226	47900	=   +SYSTEM_DEFAULT_LENGTH2};
ZZZZ010226	48000	=IF{SYSTEM_DEFAULT_TYPE='INT',='FLOAT',='DOUBLE'
ZZZZ010226	48100	= ,='DATETIME',='DATE',='TIMESTAMP'}SET{WN.W=};
ZZZZ010226	48200	O+=SET{WN.N=};IF{SYSTEM_DEFAULT_TYPE[1;1]='N'}SET{WN.N=_N};
ZZZZ010226	48300	O+=SET{WN.WN.TL=
ZZZZ010226	48400	O+=   '?SYSTEM_DEFAULT_TYPE?(?SYSTEM_DEFAULT_LENGTH1?)'}
ZZZZ010226	48500	O+=;
ZZZZ010226	48600	O+=IF{SYSTEM_DEFAULT_TYPE[1;1]='C'
ZZZZ010226	48700	O+=  ,SYSTEM_DEFAULT_TYPE[1;2]='NC'}
ZZZZ010226	48800	O+NAME2=RTRIM
ZZZZ010226	48900	O+= SET{WN.RTRIM='CAST('
ZZZZ010226	49000	O+=+'CASE WHEN ?WN.DATA?='' '' THEN ?WN.N?'' ''  ELSE RTRIM('
ZZZZ010226	49100	O+=  ,WN.RTRIM2=') END AS ?WN.WN.TL?)'};
ZZZZ010226	49200	O+NAME2= (RTRIM)
ZZZZ010226	49300	=SET{WD+=WD_SEP+SYSTEM_DATA_NAME+','
ZZZZ010226	49400	=   +SYSTEM_DEFAULT_TYPE+WN.W,WD_SEP=','};
ZZZZ010226	49500	NAME= (NEWN.COLUMN)
ZZZZ010226	49600	=IF{_START!=3}JUMP{OLD};  *追加列は転送不要で旧列も処理*
ZZZZ010226	49700	=SET{WO+=WO_SEP+SYSTEM_DATA_NAME,WO_SEP=','};
ZZZZ010226	49800	=SET{WI+=WI_SEP+WN.RTRIM+WN.DATA+WN.RTRIM2,WI_SEP=','};
ZZZZ010226	49900	=BACK{SQL1_NEXT};  *修正は旧列不要*
ZZZZ010226	50000	********( 旧列処理 )*********************************
ZZZZ010226	50100	=OLD:IF{W0.C<.SYSTEM_INDEX}
ZZZZ010226	50200	=   COMPUTE{W0.C+=1}SET{WK+=WK_SEP+WN.DATA,WK_SEP=','};
ZZZZ010226	50300	=SET{WN.W=','+WN.LENGTH1};
ZZZZ010226	50400	=IF{WN.TYPE='DECIMAL'}
ZZZZ010226	50500	=   SET{WN.W=','+WN.LENGTH1+','+WN.LENGTH2};
ZZZZ010226	50600	=IF{WN.TYPE='INT',='FLOAT',='DOUBLE',='DATETIME',='DATE'
ZZZZ010226	50700	=   ,='TIMESTAMP'}SET{WN.W=};
ZZZZ010226	50800	=SET{WN.RTRIM=,WN.RTRIM2=};
ZZZZ010226	50900	O+=SET{WN.N=};IF{WN.TYPE[1;1]='N'}SET{WN.N=_N};
ZZZZ010226	51000	O+=SET{WN.WN.TL='?WN.TYPE?(?WN.LENGTH1?)'};
ZZZZ010226	51100	O+=IF{WN.TYPE[1;1]='C',WN.TYPE[1;2]='NC'}
ZZZZ010226	51200	O+COPY=RTRIM
ZZZZ010226	51300	=SET{WD+=WD_SEP+WN.DATA+','+WN.TYPE+WN.W,WD_SEP=','};
ZZZZ010226	51400	=SKIP:SET{WO+=WO_SEP+WN.DATA,WO_SEP=','};
ZZZZ010226	51500	=SET{WI+=WI_SEP+WN.RTRIM+WN.DATA+WN.RTRIM2,WI_SEP=','};
ZZZZ010226	51600	=BACK{SQL1_NEXT};
ZZZZ010226	51700	***********( CREATE )**************************************
ZZZZ010226	51800	=CRE:
ZZZZ010226	51900	H+=IF{SYSTEM_DATA_NAME@OLD!=,_START!=2}JUMP{SKIP};
ZZZZ010226	52000	H+COPY=NEWN.COLUMN  (最後に追加の場合はここで処理)
ZZZZ010226	52100	H+=SKIP:
ZZZZ010226	52200	%TEST+=SET{_REAL_TEST='TEST'};
ZZZZ010226	52300	=SET{_JOB_PERMISSION=.SYSTEM_PERMISSION};
ZZZZ010226	52400	=IF_ERROR_DBO_CREATE_TABLE{?WN.TABLE?X}{?WD?}ERROR{};
ZZZZ010226	52500	=DBO_GRANT{?WN.TABLE?X,TABLE,?.SYSTEM_PUBLIC?};
ZZZZ010226	52600	=IF_ERROR_DBO_SQL{INSERT INTO ?WN.TABLE?X(?WO?)
ZZZZ010226	52700	=   SELECT ?WI? FROM ?WN.TABLE?}JUMP{ERR};
ZZZZ010226	52800	=DBO_DROP_TABLE{?WN.TABLE?};
ZZZZ010226	52900	=IF_ERROR_DBO_COPY_TABLE{?WN.TABLE?,?WN.TABLE?X}ERROR{};
ZZZZ010226	53000	=DBO_GRANT{?WN.TABLE?,TABLE,?.SYSTEM_PUBLIC?};
ZZZZ010226	53100	=DBO_DROP_TABLE{?WN.TABLE?X};
ZZZZ010226	53200	%TEST-=SET{_REAL_TEST='TEST'};
ZZZZ010226	53300	%TEST-=IF_ERROR_DBO_CREATE_TABLE{?WN.TEST?X}{?WD?}NOP{};
ZZZZ010226	53400	%TEST-=IF_ERROR_DBO_GRANT{?WN.TEST?X,TABLE,
ZZZZ010226	53500	%TEST-=   ?.SYSTEM_PUBLIC?}NOP{};
ZZZZ010226	53600	%TEST-=IF_ERROR_DBO_SQL{INSERT INTO ?WN.TEST?X(?WO?)
ZZZZ010226	53700	%TEST-=   SELECT ?WI? FROM ?WN.TEST?}NOP{};
ZZZZ010226	53800	%TEST-=IF_ERROR_DBO_DROP_TABLE{?WN.TEST?}NOP{};
ZZZZ010226	53900	%TEST-=IF_ERROR_DBO_COPY_TABLE{?WN.TEST?,?WN.TEST?X}NOP{};
ZZZZ010226	54000	%TEST-=IF_ERROR_DBO_GRANT{?WN.TEST?,TABLE,
ZZZZ010226	54100	%TEST-=   ?.SYSTEM_PUBLIC?}NOP{};
ZZZZ010226	54200	%TEST-=IF_ERROR_DBO_DROP_TABLE{?WN.TEST?X}NOP{};
ZZZZ010226	54300	=SET{_REAL_TEST='REAL',_JOB_PERMISSION='ZZZZ'};
ZZZZ010226	54400	=JUMP{INDEX};
ZZZZ010226	54500	=ERR:SET{WN.ERR=_ERROR};
ZZZZ010226	54600	=IF_ERROR_DBO_DROP_TABLE{?WN.TABLE?X}NOP{};
ZZZZ010226	54700	=SET{_REAL_TEST='REAL',_JOB_PERMISSION='ZZZZ'};
ZZZZ010226	54800	=ERROR{?WN.ERR?};
ZZZZ010226	54900	=EXIT{};
ZZZZ010226	55000	*********( ALTER TABLE ADD )************
ZZZZ010226	55100	=ALT_ADD:
ZZZZ010226	55200	=SET{WN.X=,WY=,WZ=,WP=,WS=};
ZZZZ010226	55300	=SET{WN.SYSTEM_DEFAULT=''' ''',WN.CHAR=,W0.XLEN=1};
ZZZZ010226	55400	=IF   {SYSTEM_DEFAULT_TYPE[1;4]='DATE',='TIME'}
ZZZZ010226	55500	=   IF{SYSTEM_DEFAULT_TYPE<>'DATE'}
ZZZZ010226	55600	=  SET{SYSTEM_DEFAULT_TYPE=_SQL_DATETIME};
ZZZZ010226	55700	=IF   {SYSTEM_DEFAULT_TYPE='NCHAR'}JUMP{NCHAR};
ZZZZ010226	55800	=IF   {SYSTEM_DEFAULT_TYPE[1;8]='NVARCHAR'}JUMP{NVARCHAR};
ZZZZ010226	55900	=JUMP{SKIP};
ZZZZ010226	56000	=NCHAR:   SET{SYSTEM_DEFAULT_TYPE=_SQL_NCHAR};JUMP{N};
ZZZZ010226	56100	=NVARCHAR:SET{SYSTEM_DEFAULT_TYPE=_SQL_NVARCHAR};
ZZZZ010226	56200	=N:SET{WN.CHAR=_SQL_CHAR_SET};
ZZZZ010226	56300	=SET{W0.XLEN=_UTF8_SET};
ZZZZ010226	56400	=SKIP:
ZZZZ010226	56500	=IF   {SYSTEM_DEFAULT_TYPE[1;7]='VARCHAR'}
ZZZZ010226	56600	=  SET{SYSTEM_DEFAULT_TYPE=_SQL_VARCHAR};
ZZZZ010226	56700	=IF{SYSTEM_DEFAULT_TYPE='DECIMAL',='INT',='FLOAT'
ZZZZ010226	56800	=  ,='NUMBER',='DOUBLE'}SET{WN.SYSTEM_DEFAULT='0'};
ZZZZ010226	56900	=IF{SYSTEM_DEFAULT_TYPE[1;4]='TIME',='DATE'}
ZZZZ010226	57000	=   SET{WN.SYSTEM_DEFAULT=_NOW0};
ZZZZ010226	57100	=IF{SYSTEM_DEFAULT_TYPE='DATE'}
ZZZZ010226	57200	=   SET{WN.SYSTEM_DEFAULT=_NOW_DATE};
ZZZZ010226	57300	L+=IF{SYSTEM_DEFAULT_TYPE='DATE'}
ZZZZ010226	57400	L+=   SET{WN.SYSTEM_DEFAULT='''0001-01-01'''};
ZZZZ010226	57500	L+=IF{SYSTEM_DEFAULT_TYPE='DATETIME'}
ZZZZ010226	57600	L+=   SET{WN.SYSTEM_DEFAULT='''0001-01-01 00:00:00'''};
ZZZZ010226	57700	=IF{SYSTEM_DEFAULT_TYPE='CHAR',='VARCHAR',='VARCHAR2'
ZZZZ010226	57800	=   ,='NCHAR',='NVARCHAR',='NVARCHAR2'
ZZZZ010226	57900	=   ,='GRAPHIC',='NVARGRAPHIC',='MCHAR',='MVARCHAR'}
ZZZZ010226	58000	=   SET{WN.X='(',WZ=')',WP=SYSTEM_DEFAULT_LENGTH1};
ZZZZ010226	58100	=IF{SYSTEM_DEFAULT_TYPE='DECIMAL',='NUMBER'}
ZZZZ010226	58200	=   SET{WN.X='(',WY=',',WZ=')',WP=SYSTEM_DEFAULT_LENGTH1
ZZZZ010226	58300	=   ,WS=SYSTEM_DEFAULT_LENGTH2};
ZZZZ010226	58400	%TEST+=SET{_REAL_TEST='TEST'};
ZZZZ010226	58500	=SET{_JOB_PERMISSION=.SYSTEM_PERMISSION};
ZZZZ010226	58600	=IF{WP!=}COMPUTE{WP*=W0.XLEN};
ZZZZ010226	58700	=IF_ERROR_DBO_SQL{
ZZZZ010226	58800	=   ALTER TABLE ?WN.TABLE? ADD ?SYSTEM_DATA_NAME?
ZZZZ010226	58900	=   ?SYSTEM_DEFAULT_TYPE??WN.X??WP??WY??WS??WZ? ?WN.CHAR?
ZZZZ010226	59000	=   DEFAULT ?WN.SYSTEM_DEFAULT? NOT NULL}ERROR{};
ZZZZ010226	59100	%TEST-=SET{_REAL_TEST='TEST'};
ZZZZ010226	59200	%TEST-=IF_ERROR_DBO_SQL{ALTER TABLE ?WN.TEST?
ZZZZ010226	59300	%TEST-=   ADD ?SYSTEM_DATA_NAME?
ZZZZ010226	59400	%TEST-=   ?SYSTEM_DEFAULT_TYPE??WN.X??WP??WY??WS??WZ?
ZZZZ010226	59500	%TEST-= ?WN.CHAR? DEFAULT ?WN.SYSTEM_DEFAULT? NOT NULL}NOP{};
ZZZZ010226	59600	=END:SET{WSW=1};
ZZZZ010226	59700	=SET{_REAL_TEST='REAL',_JOB_PERMISSION='ZZZZ'};
ZZZZ010226	59800	*********( INDEX )************
ZZZZ010226	59900	=INDEX:
ZZZZ010226	60000	REPEAT=?$W0.INDEXP1?
ZZZZ010226	60100	=SET{_REAL_TEST='REAL',_JOB_PERMISSION='ZZZZ'};
ZZZZ010226	60200	=SET{WOLD=,WN.SEP=,WOLD_UNIQUE=};
ZZZZ010226	60300	=DBO_SQL2{SELECT SYSTEM_DATA_NAME,SYSTEM_NO
ZZZZ010226	60400	=FROM ?WN.DB?_M_?$.SYSTEM_PERMISSION?_INDEX_VIEW
ZZZZ010226	60500	= WHERE ?_VRE&.SYSTEM_NAME? AND SYSTEM_IX='#-'
ZZZZ010226	60600	= ORDER BY SYSTEM_NO};
ZZZZ010226	60700	=SQL2_NEXT:SQL2_NEXT{WN.DATA,WN.NO}JUMP{SQL2_END};
ZZZZ010226	60800	=IF{WN.NO='0'}SET{WOLD_UNIQUE='UNIQUE'};
ZZZZ010226	60900	=SET{WOLD+=WN.SEP+WN.DATA,WN.SEP=','};BACK{SQL2_NEXT};
ZZZZ010226	61000	=SQL2_END:SET{WN.NEW=,WN.SEP=,WN.NEWN.UNIQUE=,W0.C=0};
ZZZZ010226	61100	=DBO_SQL1{SELECT SYSTEM_DATA_NAME
ZZZZ010226	61200	1+=   ,'0'
ZZZZ010226	61300	1+=   FROM ?WN.DB?_M_?$.SYSTEM_PERMISSION?_COLUMN_VIEW
ZZZZ010226	61400	1-=   ,SYSTEM_IX#- FROM ?_TABLE?
ZZZZ010226	61500	=    WHERE ?_VRE&.SYSTEM_NAME? AND
ZZZZ010226	61600	*1+=   ?_SUBSTR(DATA_NAME;1;2)?<>
ZZZZ010226	61700	*1+=   ?_N?'Z_' ORDER BY SEQ};
ZZZZ010226	61800	1+=   SYSTEM_DATA_NAME NOT IN (?_Z_ALL_NAME_VALUE?)
ZZZZ010226	61900	1+=   ORDER BY SYSTEM_SEQ};
ZZZZ010226	62000	1-=   SYSTEM_IX#-!=' ' AND Z_CANCEL=' '
ZZZZ010226	62100	1-=   ORDER BY SYSTEM_IX#-};
ZZZZ010226	62200	=SQL1_NEXT:SQL1_NEXT{WN.DATA,WN.SYSTEM_IX}JUMP{SQL1_END};
ZZZZ010226	62300	1+=IF{W0.C>=.SYSTEM_INDEX}JUMP{SQL1_END};
ZZZZ010226	62400	1+=COMPUTE{W0.C+=1};
ZZZZ010226	62500	=IF{WN.SYSTEM_IX='0'}SET{WN.NEWN.UNIQUE='UNIQUE'};
ZZZZ010226	62600	=SET{WN.NEW+=WN.SEP+WN.DATA,WN.SEP=','};
ZZZZ010226	62700	=BACK{SQL1_NEXT};
ZZZZ010226	62800	=SQL1_END:
ZZZZ010226	62900	=IF{WOLD=WN.NEW}IF{WOLD_UNIQUE=WN.NEWN.UNIQUE}JUMP{SKIP};
ZZZZ010226	63000	%TEST+=SET{_REAL_TEST='TEST'};
ZZZZ010226	63100	=SET{_JOB_PERMISSION=.SYSTEM_PERMISSION};
ZZZZ010226	63200	=IF_ERROR_DBO_DROP_INDEX{?WN.TABLE?,#-}
ZZZZ010226	63300	P+=   SQL{COMMIT TRANSACTION}
ZZZZ010226	63400	=   NOP{};
ZZZZ010226	63500	%TEST-=SET{_REAL_TEST='TEST'};
ZZZZ010226	63600	%TEST-=IF_ERROR_DBO_DROP_INDEX{?WN.TEST?,#-}
ZZZZ010226	63700	%TEST-P+=   SQL{COMMIT TRANSACTION}
ZZZZ010226	63800	%TEST-=   NOP{};
ZZZZ010226	63900	=SET{_REAL_TEST='REAL',_JOB_PERMISSION='ZZZZ'};
ZZZZ010226	64000	=J:IF{WN.NEW=}JUMP{SKIP};
ZZZZ010226	64100	%TEST+=SET{_REAL_TEST='TEST'};
ZZZZ010226	64200	=SET{_JOB_PERMISSION=.SYSTEM_PERMISSION};
ZZZZ010226	64300	=IF_ERROR_DBO_CREATE_INDEX{?WN.TABLE?,
ZZZZ010226	64400	=    #-,?WN.NEWN.UNIQUE?,?WN.NEW?}ERROR{};
ZZZZ010226	64500	*   {#-}{?WN.NEW?}{?WN.NEWN.UNIQUE?}ERROR{};
ZZZZ010226	64600	%TEST-=SET{_REAL_TEST='TEST'};
ZZZZ010226	64700	%TEST-=IF_ERROR_DBO_CREATE_INDEX{?WN.TEST?,
ZZZZ010226	64800	%TEST-=    #-,?WN.NEWN.UNIQUE?,?WN.NEW?}NOP{};
ZZZZ010226	64900	*TEST-=   {#-}{?WN.NEW?}{?WN.NEWN.UNIQUE?}NOP{};
ZZZZ010226	65000	=SET{_REAL_TEST='REAL',_JOB_PERMISSION='ZZZZ'};
ZZZZ010226	65100	=SKIP:
ZZZZ010226	65200	REPEAT=2
ZZZZ010226	65300	=DBO_SQL{UPDATE ?_MM?_I_COLUMN_TABLE SET SYSTEM_IX0=
ZZZZ010226	65400	1+=   '*'
ZZZZ010226	65500	1-=   ' '
ZZZZ010226	65600	=   WHERE ?_VRE&.SYSTEM_NAME? AND SYSTEM_DATA_NAME
ZZZZ010226	65700	1-=   NOT
ZZZZ010226	65800	=   IN(SELECT SYSTEM_DATA_NAME FROM
ZZZZ010226	65900	=   ?WN.DB?_M_?$.SYSTEM_PERMISSION?_INDEX_VIEW
ZZZZ010226	66000	=   WHERE ?_VRE&.SYSTEM_NAME? AND SYSTEM_IX='0')};
ZZZZ010226	66100	REPEAT=
ZZZZ010226	66200	*****( SEQ UPDATE )*************************
ZZZZ010226	66300	=REPLACE_ALL2{?_MM?_I_COLUMN_TABLE
ZZZZ010226	66400	=  ,?WN.DB?_M_?$.SYSTEM_PERMISSION?_COLUMN_VIEW
ZZZZ010226	66500	=  ,SYSTEM_SEQ}{.SYSTEM_NAME,.SYSTEM_DATA_NAME}
ZZZZ010226	66600	=  {*O*.?_VRE&.SYSTEM_NAME?}{I.?_VRE&.SYSTEM_NAME?};
ZZZZ010226	66700	*QL=SELECT V.SYSTEM_SEQ,V.SYSTEM_DATA_NAME,V.SYSTEM_DATA_NAME
ZZZZ010226	66800	SQL=SELECT V.SYSTEM_SEQ,V.SYSTEM_DATA_NAME
ZZZZ010226	66900	SQL=   ,V.SYSTEM_DEFAULT_TYPE   ,X2.SYSTEM_DEFAULT_TYPE
ZZZZ010226	67000	SQL=   ,V.SYSTEM_DEFAULT_LENGTH1,X2.SYSTEM_DEFAULT_LENGTH1
ZZZZ010226	67100	SQL=   ,V.SYSTEM_DEFAULT_LENGTH2,X2.SYSTEM_DEFAULT_LENGTH2
ZZZZ010226	67200	REPEAT=?$W0.INDEXP1?
ZZZZ010226	67300	SQL=   ,SYSTEM_IX#-
ZZZZ010226	67400	SQL=   ,(SELECT SYSTEM_NO FROM
ZZZZ010226	67500	SQL=   ?WN.DB?_M_?$.SYSTEM_PERMISSION?_INDEX_VIEW I#-
ZZZZ010226	67600	SQL=   WHERE V.SYSTEM_DATA_NAME=I#-.SYSTEM_DATA_NAME
ZZZZ010226	67700	SQL=   AND SYSTEM_IX='#-'
ZZZZ010226	67800	SQL=   AND   V.SYSTEM_NAME=I#-.SYSTEM_NAME
ZZZZ010226	67900	SQL=   AND   I#-.SYSTEM_WORK='MAST')
ZZZZ010226	68000	REPEAT=
ZZZZ010226	68100	SQL=   ,?_T?.SYSTEM_COMMENT1,?_T?.SYSTEM_COMMENT2  FROM
ZZZZ010226	68200	SQL=   ?WN.DB?_M_?$.SYSTEM_PERMISSION?_COLUMN_VIEW V
ZZZZ010226	68300	SQL=   LEFT OUTER JOIN ?_TABLE? ?_T? ON
ZZZZ010226	68400	SQL=   RTRIM(V.SYSTEM_DATA_NAME)=RTRIM(?_T?.SYSTEM_DATA_NAME)
ZZZZ010226	68500	SQL=   AND RTRIM(V.SYSTEM_NAME)=RTRIM(?_T?.SYSTEM_NAME)
ZZZZ010226	68600	SQL=   AND ?_T?.Z_CANCEL=' '
ZZZZ010226	68700	SQL=   LEFT OUTER JOIN ?_MM?_I_DICTIONARY_TABLE X2 ON
ZZZZ010226	68800	SQL=   RTRIM(V.SYSTEM_DATA_NAME)=RTRIM(X2.SYSTEM_DATA_NAME)
ZZZZ010226	68900	SQL=   AND X2.SYSTEM_PERMISSION='?$.SYSTEM_PERMISSION?'
ZZZZ010226	69000	SQL=   AND X2.SYSTEM_LANG='?_LANG_SYSTEM?'
ZZZZ010226	69100	SQL=   AND X2.Z_CANCEL=' '
ZZZZ010226	69200	SQL=   WHERE V.?_VRE&.SYSTEM_NAME?
ZZZZ010226	69300	*QL=   AND ?_SUBSTR(V.SYSTEM_DATA_NAME;1;2)?<>?_N?'Z_'
ZZZZ010226	69400	SQL=   AND V.SYSTEM_DATA_NAME NOT IN(?_Z_ALL_NAME_VALUE?)
ZZZZ010226	69500	REPEAT=_ORDER_COUNT
ZZZZ010226	69600	SQL=   ?_ORDER##?
ZZZZ010226	69700	REPEAT=
ZZZZ010226	69800	%NO_XT_OBJECT-COMMENT_END
ZZZZ010227	100	PROGRAM=OUTPUT,&X1,?_MM?_I_TABLE_TABLE
ZZZZ010227	200	TABLE=&X2,?_MM?_ETC_TABLE
ZZZZ010227	300	DICTIONARY=SYSTEM_PERMISSION
ZZZZ010227	400	CONTROL=0,SQL_DBO
ZZZZ010227	500	BEGIN_END
ZZZZ010227	600	=DROP_TABLE{?_WORK_TABLE?A};
ZZZZ010227	700	BEGIN
ZZZZ010227	800	=SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010227	900	=COPY_TABLE{?_WORK_TABLE?A,?_MM?_I_COLUMN_TABLE,NOT};
ZZZZ010227	1000	%TEST+=SET{WN.DB=_MM_TEST};
ZZZZ010227	1100	%TEST-=SET{WN.DB=_MM_REAL};
ZZZZ010227	1200	SET=.?&.SET&SYSTEM_NAME?
ZZZZ010227	1300	JA+TITLE=テーブル
ZZZZ010227	1400	SET={,*&X2}.?&DATA&SYSTEM_PERMISSION?
ZZZZ010227	1500	=IF{'ZZZZ'!=_PERMISSION}IF{_DATA!=_PERMISSION}
ZZZZ010227	1600	=   ERROR{PERMISSION(?_DATA?) ERROR};
ZZZZ010227	1700	%TEST+=SET{WN.DB_PERMISSION=_MX_TEST_?.SYSTEM_PERMISSION?};
ZZZZ010227	1800	%TEST-=SET{WN.DB_PERMISSION=_MX_REAL_?.SYSTEM_PERMISSION?};
ZZZZ010227	1900	%TEST-=SET{WN.DB_TEST_PERMISSION
ZZZZ010227	2000	%TEST-=    =_MX_TEST_?.SYSTEM_PERMISSION?};
ZZZZ010227	2100	START
ZZZZ010227	2200	%TEST-=JUMP{SKIP};
ZZZZ010227	2300	NAME=TABLE_FOUND_CHECK
ZZZZ010227	2400	=SQL_SET{}{SELECT SYSTEM_NAME FROM
ZZZZ010227	2500	=   ?_MM?_M_?.SYSTEM_PERMISSION?_OBJECT_VIEW
ZZZZ010227	2600	=   WHERE SYSTEM_KIND='TABLE' AND ?_VRE&.SYSTEM_NAME?};
ZZZZ010227	2800	=IF{_SQL_SET_COUNT>0}ERROR{REAL TABLE(?.SYSTEM_NAME?) FOUND};
ZZZZ010227	2810	*PROGRAM2{0}{}{?_MM?_M_?.SYSTEM_PERMISSION?_OBJECT_VIEW}
ZZZZ010227	2820	*  {WC.SYSTEM_KIND='TABLE',SYSTEM_NAME}{};
ZZZZ010227	2830	*IF{_PROGRAM_COUNT>0}ERROR{REAL TABLE(?SYSTEM_NAME?) FOUND};
ZZZZ010227	2900	NAME=
ZZZZ010227	3000	=SKIP:
ZZZZ010227	3100	DATA={C}?&.DATA&SYSTEM_TEST?
ZZZZ010227	3200	JA+TITLE=テスト
ZZZZ010227	3300	DATA={K}?&.DATA&SYSTEM_NAME?
ZZZZ010227	3400	JA+TITLE=テーブル
ZZZZ010227	3500	SQL=SELECT I.SYSTEM_TEST,T.SYSTEM_NAME FROM
ZZZZ010227	3600	SQL=?WN.DB?_M_?.SYSTEM_PERMISSION?_OBJECT_VIEW T LEFT
ZZZZ010227	3700	SQL=JOIN ?_TABLE? I
ZZZZ010227	3800	SQL= ON RTRIM(T.SYSTEM_NAME)=RTRIM(I.SYSTEM_NAME)
ZZZZ010227	3900	SQL=WHERE T.SYSTEM_KIND='TABLE'
ZZZZ010227	4000	SQL=AND I.?_LR&.SYSTEM_NAME?
ZZZZ010227	4100	SQL=AND I.SYSTEM_NAME LIKE '?.SYSTEM_PERMISSION?%'
ZZZZ010227	4200	%TEST+SQL=AND NOT EXISTS(SELECT SYSTEM_NAME FROM
ZZZZ010227	4300	%TEST+SQL=?_MM?_M_?.SYSTEM_PERMISSION?_OBJECT_VIEW I2
ZZZZ010227	4400	%TEST+SQL=WHERE I2.SYSTEM_KIND='TABLE'
ZZZZ010227	4500	%TEST+SQL=AND I.?_NE&I2.SYSTEM_NAME?)
ZZZZ010227	4600	REPEAT=_ORDER_COUNT
ZZZZ010227	4700	SQL=?_ORDER##?
ZZZZ010227	4800	REPEAT=
ZZZZ010227	4900	*###( 2 )####################################################
ZZZZ010227	5000	PROGRAM=INPUT,&X1,?_MM?_I_COLUMN_TABLE
ZZZZ010227	5100	CONTROL=1,2,BEGIN_ENTER,SCROLL
ZZZZ010227	5200	BEGIN
ZZZZ010227	5300	=SET{WN.TABLE=$WN.DB_PERMISSION+$SYSTEM_NAME};
ZZZZ010227	5400	%TEST-=SET{WN.TEST=$WN.DB_TEST_PERMISSION+$SYSTEM_NAME};
ZZZZ010227	5500	=SQL{DELETE FROM ?_WORK_TABLE?A};
ZZZZ010227	5600	*=SET{SYSTEM_NAME=$SYSTEM_NAME};
ZZZZ010227	5700	=SQL{INSERT INTO ?_WORK_TABLE?A(SYSTEM_NAME
ZZZZ010227	5800	=,SYSTEM_DATA_NAME
ZZZZ010227	5900	=)SELECT C.SYSTEM_NAME,C.SYSTEM_DATA_NAME
ZZZZ010227	6000	=FROM ?$WN.DB?_M_?$.SYSTEM_PERMISSION?_COLUMN_VIEW C
ZZZZ010227	6100	=WHERE C.?_VRE&.SYSTEM_NAME?
ZZZZ010227	6200	*=AND ?_SUBSTR(C.SYSTEM_DATA_NAME;1;2)?<>'Z_'};
ZZZZ010227	6220	=AND C.SYSTEM_DATA_NAME NOT IN(?_Z_ALL_NAME_VALUE?)};
ZZZZ010227	6300	REPEAT=10
ZZZZ010227	6400	=UPDATE{?_WORK_TABLE?A,SYSTEM_IX#-}{SYSTEM_NO}
ZZZZ010227	6500	={?$WN.DB?_M_?$.SYSTEM_PERMISSION?_INDEX_VIEW I
ZZZZ010227	6600	=WHERE I.?_VRE&.SYSTEM_NAME? AND I.SYSTEM_IX='#-'
ZZZZ010227	6700	=  AND I.?_NE&O.SYSTEM_DATA_NAME?};
ZZZZ010227	6800	REPEAT=
ZZZZ010227	6900	=REPLACE_ALL{?_MM?_I_COLUMN_TABLE,?_WORK_TABLE?A,SYSTEM_IX0
ZZZZ010227	7100	REPEAT=9
ZZZZ010227	7200	1-=,SYSTEM_IX##
ZZZZ010227	7300	REPEAT=
ZZZZ010227	7400	=}{SYSTEM_NAME,SYSTEM_DATA_NAME}{*O*.?_VRE&.SYSTEM_NAME?}{};
ZZZZ010227	7500	SET={KO}.=?&.SET&SYSTEM_NAME?
ZZZZ010227	7600	JA+TITLE=テーブル
ZZZZ010227	7700	*SET=S_COMMAND{}{,CREATE,CREATE_ALL,QUIT}
ZZZZ010227	7710	SET=S_COMMAND{}{,CREATE,QUIT}
ZZZZ010227	7800	JA+TITLE=操作
ZZZZ010227	7900	=IF{_DATA=}EXIT{};
ZZZZ010227	8000	=IF{_DATA='QUIT'}EXIT{_END};
ZZZZ010227	8100	%TEST-=JUMP{INDEX};
ZZZZ010227	8200	COPY=TABLE_FOUND_CHECK
ZZZZ010227	8300	=INDEX:
ZZZZ010227	8400	=SET_TABLE{&W,?WN.TABLE?};
ZZZZ010227	8500	*********( INDEX )************
ZZZZ010227	8600	REPEAT=9
ZZZZ010227	8700	*=IF{_DATA='CREATE_ALL'}JUMP{END};
ZZZZ010227	8800	NAME=INDEX##
ZZZZ010227	8900	=SQL1{SELECT SYSTEM_DATA_NAME,SYSTEM_IX## FROM ?_TABLE?
ZZZZ010227	9000	= WHERE SYSTEM_IX##>='0' AND SYSTEM_IX##<='9'
ZZZZ010227	9100	= AND ?_VRE&.SYSTEM_NAME?
ZZZZ010227	9200	= AND Z_CANCEL=' ' ORDER BY SYSTEM_IX##};
ZZZZ010227	9300	=SET{WN.X=,WN.K=,WN.U=};
ZZZZ010227	9400	=SQL1_NEXT{WN.DATA,WN.IX}JUMP{SQL1_END};
ZZZZ010227	9500	=IF{WN.IX=0}SET{WN.U='UNIQUE'};
ZZZZ010227	9600	=SQL1_NEXT:SET{WN.X=WN.X+WN.K+WN.DATA,WN.K=','};
ZZZZ010227	9700	=SQL1_NEXT{WN.DATA,WN.IX}JUMP{SQL1_END};
ZZZZ010227	9710	=BACK{SQL1_NEXT};
ZZZZ010227	9800	=SQL1_END:IF{_DATA!='CREATE_ALL'}
ZZZZ010227	9900	=  IF{&W.INDEX_##=WN.X}IF{&W.INDEX_UNIQUE_##=WN.U}JUMP{SKIP};
ZZZZ010227	10000	NAME=
ZZZZ010227	10100	%TEST+=SET{_REAL_TEST='TEST'};
ZZZZ010227	10200	=SET{_JOB_PERMISSION=$.SYSTEM_PERMISSION};
ZZZZ010227	10300	=IF_ERROR_DBO_DROP_INDEX{?WN.TABLE?,##}NOP{};
ZZZZ010227	10400	%TEST-=SET{_REAL_TEST='TEST'};
ZZZZ010227	10500	%TEST-=IF_ERROR_DBO_DROP_INDEX{?WN.TEST?,##}NOP{};
ZZZZ010227	10600	=SET{_REAL_TEST='REAL',_JOB_PERMISSION='ZZZZ'};
ZZZZ010227	10700	=SKIP:
ZZZZ010227	10800	REPEAT=9
ZZZZ010227	10900	COPY=INDEX##
ZZZZ010227	11000	=IF{WN.X=}JUMP{SKIP};
ZZZZ010227	11100	%TEST+=SET{_REAL_TEST='TEST'};
ZZZZ010227	11200	=SET{_JOB_PERMISSION=$.SYSTEM_PERMISSION};
ZZZZ010227	11300	=IF_ERROR_DBO_CREATE_INDEX{?WN.TABLE?,##,?WN.U?,?WN.X?}
ZZZZ010227	11400	=  ERROR{};
ZZZZ010227	11500	%TEST-=SET{_REAL_TEST='TEST'};
ZZZZ010227	11600	%TEST-=IF_ERROR_DBO_CREATE_INDEX{?WN.TEST?,##,?WN.U?,?WN.X?}
ZZZZ010227	11700	%TEST-=  NOP{};
ZZZZ010227	11800	=SET{_REAL_TEST='REAL',_JOB_PERMISSION='ZZZZ'};
ZZZZ010227	11900	=SKIP:
ZZZZ010227	12000	REPEAT=
ZZZZ010227	12100	=SET{S_COMMAND=,_ESC=1};MESSAGE{CREATE INDEX OK!};
ZZZZ010227	12200	=EXIT{S_COMMAND};
ZZZZ010227	12300	SET={O}$.?$&SET&SYSTEM_PERMISSION?
ZZZZ010227	12400	DATA={KO}?&.DATA&SYSTEM_DATA_NAME?
ZZZZ010227	12500	JA+TITLE=列名
ZZZZ010227	12600	START
ZZZZ010227	12700	DATA={*O}?&.DATA&SYSTEM_DEFAULT_TYPE?
ZZZZ010227	12800	JA+TITLE=型
ZZZZ010227	12900	DATA={*O}?&.DATA&SYSTEM_DEFAULT_LENGTH1?
ZZZZ010227	13000	JA+TITLE=長さ
ZZZZ010227	13100	DATA={*O}?&.DATA&SYSTEM_IX0?
ZZZZ010227	13200	REPEAT=9
ZZZZ010227	13300	DATA=?&.DATA&SYSTEM_IX##?
ZZZZ010227	13400	=IF{SYSTEM_DEFAULT_TYPE='TEXT'}IF{?_DATA?!=}
ZZZZ010227	13410	=                                     ERROR{TEXT ERROR};
ZZZZ010227	13500	=IF{80<SYSTEM_DEFAULT_LENGTH1}ERROR{LENGTH>80(INDEX ERROR)};
ZZZZ010227	13600	=IF{_DATA=}EXIT{};
ZZZZ010227	13700	*=SQL_SET{}{SELECT SYSTEM_IX## FROM ?_TABLE? WHERE
ZZZZ010227	13800	*= ?_VRE&.SYSTEM_NAME? AND ?_VRE&SYSTEM_IX##?
ZZZZ010227	13900	*= AND ?_VRLG&SYSTEM_DATA_NAME?
ZZZZ010227	14000	*= AND Z_CANCEL=' '};
ZZZZ010227	14100	*=IF{_SQL_SET_COUNT>0}ERROR{SAME NUMBER SYSTEM_IX##};
ZZZZ010227	14110	=PROGRAM{0,?_TABLE?}{.SYSTEM_NAME,SYSTEM_IX##}
ZZZZ010227	14120	=  {?_VRLG&SYSTEM_DATA_NAME?};
ZZZZ010227	14130	=IF{_PROGRAM_COUNT>0}ERROR{SAME NUMBER SYSTEM_IX##};
ZZZZ010227	14200	=SQL_SET{W0.C}{SELECT COUNT(*) FROM ?WN.TABLE? WHERE
ZZZZ010227	14400	=   ?SYSTEM_DATA_NAME? IS NULL};
ZZZZ010227	14410	*IF{W0.C>0}ERROR{PROGRAM_MISS};
ZZZZ010227	14500	=IF{W0.C!=0}ERROR{IX##(?SYSTEM_DATA_NAME?) NULL DATA FOUND};
ZZZZ010227	14600	REPEAT=
ZZZZ010227	14700	STOP_AFTER
ZZZZ010227	14800	=SET{_ESC=0};
ZZZZ010227	14900	SQL=SELECT C.SYSTEM_DATA_NAME,C.SYSTEM_DEFAULT_TYPE
ZZZZ010227	15000	SQL=,C.SYSTEM_DEFAULT_LENGTH1
ZZZZ010227	15100	REPEAT=10
ZZZZ010227	15200	SQL=,I.SYSTEM_IX#-
ZZZZ010227	15300	REPEAT=
ZZZZ010227	15400	SQL=FROM
ZZZZ010227	15500	SQL=?$WN.DB?_M_?$.SYSTEM_PERMISSION?_COLUMN_VIEW C
ZZZZ010227	15600	SQL=LEFT OUTER JOIN ?_TABLE? I
ZZZZ010227	15700	SQL=ON RTRIM(C.SYSTEM_DATA_NAME)=RTRIM(I.SYSTEM_DATA_NAME)
ZZZZ010227	15800	SQL=AND RTRIM(C.SYSTEM_NAME)=RTRIM(I.SYSTEM_NAME)
ZZZZ010227	15900	SQL=AND I.Z_CANCEL=' '
ZZZZ010227	16000	SQL=WHERE C.?_VRE&.SYSTEM_NAME?
ZZZZ010227	16100	*SQL=AND ?_SUBSTR(C.SYSTEM_DATA_NAME;1;2)?<>'Z_'
ZZZZ010227	16120	SQL=AND C.SYSTEM_DATA_NAME NOT IN(?_Z_ALL_NAME_VALUE?)
ZZZZ010227	16200	SQL= ORDER BY C.SYSTEM_SEQ
ZZZZ010228	100	PROGRAM=OUTPUT,&X1,?_MM?_I_TABLE_TABLE
ZZZZ010228	200	*TBLE=&X1,?_MM?_I_TABLE_TABLE
ZZZZ010228	300	TABLE=&X2,?_MM?_ETC_TABLE
ZZZZ010228	400	DICTIONARY=SYSTEM_PERMISSION
ZZZZ010228	500	DICTIONARY=SYSTEM_WORK,SYSTEM_USER_X
ZZZZ010228	600	CONTROL=0,SCROLL,SQL_DBO,ERROR_SQL
ZZZZ010228	700	O-%TEST_I+CONTROL=SQL_TEST
ZZZZ010228	800	BEGIN
ZZZZ010228	900	=SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010228	1000	SET=.?&.DATA&SYSTEM_NAME?
ZZZZ010228	1100	SET={,#&X2}.?&DATA&SYSTEM_PERMISSION?
ZZZZ010228	1200	=IF{'ZZZZ'!=_PERMISSION}IF{_DATA!=_PERMISSION}
ZZZZ010228	1300	=  ERROR{PERMISSION(?_DATA?) ERROR};
ZZZZ010228	1400	%TEST_O+=SET{WN.O_RT='TEST'};
ZZZZ010228	1500	%TEST_O-=SET{WN.O_RT='REAL'};
ZZZZ010228	1600	%TEST_I+=SET{WN.I_RT='TEST'};
ZZZZ010228	1700	%TEST_I-=SET{WN.I_RT='REAL'};
ZZZZ010228	1800	=SET{WN.I_R_T=WN.I_RT[1;1]};
ZZZZ010228	1900	=SET{WN.PUBLIC=''};
ZZZZ010228	2000	%TEST_I-%TEST_O+=SET{WN.PUBLIC='O'};
ZZZZ010228	2100	=SET{WN.O_MAST_PERMISSION=
ZZZZ010228	2200	=   _MX_?WN.O_RT?_?.SYSTEM_PERMISSION?};
ZZZZ010228	2300	=SET{WN.I_REAL_MAST=_M_REAL};
ZZZZ010228	2400	=SET{WN.I_MAST=_MX_?WN.I_RT?_ZZZZ
ZZZZ010228	2500	=   ,WN.I_WORK=_WX_?WN.I_RT?_ZZZZ};
ZZZZ010228	2600	=SET{WN.I_MAST_PERMISSION
ZZZZ010228	2700	=    =_MX_?WN.I_RT?_?.SYSTEM_PERMISSION?};
ZZZZ010228	2800	O-=SET{_SQL_PERMISSION=.SYSTEM_PERMISSION};
ZZZZ010228	2900	SET={}LINK_SERVER{8}
ZZZZ010228	3000	CHECK2=SELECT CAST(' ' AS CHAR(8))
ZZZZ010228	3100	CHECK2=,CAST('MY SYSTEM' AS
ZZZZ010228	3200	CHECK2=?_SQL_NCHAR?(15)?_SQL_CHAR_SET?
ZZZZ010228	3300	CHECK2=)?_FROM_DUAL?
ZZZZ010228	3400	CHECK2=UNION SELECT ?_SUBSTR(SYSTEM_KEY2;17;8)?
ZZZZ010228	3500	CHECK2=,SYSTEM_ETC FROM ?_MP_ZZZZ?ZZ_ETC_TABLE
ZZZZ010228	3600	CHECK2=WHERE SYSTEM_KEY1='ZZZZZZ_@'
ZZZZ010228	3700	CHECK2=AND SYSTEM_KEY2 LIKE 'ZZZZZZ_LINKNAME_%'
ZZZZ010228	3800	CHECK2=AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010228	3900	=SET{WN.RDBMS=};
ZZZZ010228	4000	=IF{LINK_SERVER!=}JUMP{LINK};
ZZZZ010228	4100	=SET{WSQ2='UNION SELECT ''?LINK_SERVER?'''
ZZZZ010228	4200	=+',SYSTEM_WORK,SYSTEM_USER_X,SYSTEM_NAME FROM'
ZZZZ010228	4300	=+' ?WN.I_MAST?ZZZZZZ_W_?.SYSTEM_PERMISSION?_OBJECT_VIEW'
ZZZZ010228	4400	=+' WHERE SYSTEM_KIND=''TABLE'''
ZZZZ010228	4500	=+' AND SYSTEM_NAME LIKE ''?.SYSTEM_NAME?%'''};
ZZZZ010228	4600	=JUMP{EDIT};
ZZZZ010228	4700	=LINK:
ZZZZ010228	4800	=SET{WN.RDBMS=_LIST_BOX_COMMENT[1;1]};
ZZZZ010228	4900	=IF_NAME_NOT{@ZZZZZZ_LINK_?LINK_SERVER?_R_ZZZZ}
ZZZZ010228	5000	=  ERROR{@LINK_?LINK_SERVER?_R_ZZZZ NOT FOUND};
ZZZZ010228	5100	=SET{WN.I_REAL_MAST=@LINK_?LINK_SERVER?_R_ZZZZ};
ZZZZ010228	5200	=IF_NAME_NOT{@ZZZZZZ_LINK_?LINK_SERVER?_?WN.I_R_T?_ZZZZ}
ZZZZ010228	5300	=  ERROR{LINK PERMISSION(?.SYSTEM_PERMISSION?) NOT FOUND};
ZZZZ010228	5400	=SET{WN.I_MAST='I_?_SYSTEM?_'
ZZZZ010228	5500	= +@ZZZZZZ_LINK_?LINK_SERVER?_?WN.I_R_T?_ZZZZ};
ZZZZ010228	5600	=IF_NAME_NOT{
ZZZZ010228	5700	= @ZZZZZZ_LINK_?LINK_SERVER?_?WN.I_R_T?_?.SYSTEM_PERMISSION?}
ZZZZ010228	5800	=  ERROR{LINK PERMISSION(?.SYSTEM_PERMISSION?) NOT FOUND};
ZZZZ010228	5900	=SET{WN.I_MAST_PERMISSION='I_?_SYSTEM?_'
ZZZZ010228	6000	=+@ZZZZZZ_LINK_?LINK_SERVER?_?WN.I_R_T?_?.SYSTEM_PERMISSION?
ZZZZ010228	6010	=  };
ZZZZ010228	6100	=LINK_SET{WN.LINK}{SELECT SYSTEM_NAME FROM}
ZZZZ010228	6200	={?WN.I_MAST?ZZZZZZ_M_?.SYSTEM_PERMISSION?_GRANT_VIEW}{X2}
ZZZZ010228	6300	={WHERE X2.SYSTEM_GRANT
ZZZZ010228	6310	=   IN('LNK_?.SYSTEM_PERMISSION?','PUBLIC')
ZZZZ010228	6400	= AND X2.SELECT_X='S'};
ZZZZ010228	6500	=SET{WSQ2='WHERE SYSTEM_NAME IN(?WN.LINK?)'};
ZZZZ010228	6600	=EDIT:
ZZZZ010228	6700	=LINK_SET{WSQ1}
ZZZZ010228	6800	={SELECT '?LINK_SERVER?',SYSTEM_WORK
ZZZZ010228	6810	=   ,SYSTEM_USER_X,SYSTEM_NAME FROM}
ZZZZ010228	6900	={?WN.I_MAST?ZZZZZZ_M_?.SYSTEM_PERMISSION?_OBJECT_VIEW}{X1}
ZZZZ010228	7000	={WHERE SYSTEM_KIND='TABLE'
ZZZZ010228	7100	= AND SYSTEM_NAME LIKE '?.SYSTEM_NAME?%'};
ZZZZ010228	7200	START
ZZZZ010228	7300	=IF{I.SYSTEM_WORK!='MAST'}SET{WN.PUBLIC='O'};
ZZZZ010228	7400	DATA={O}.LINK_SERVER{8}
ZZZZ010228	7500	DATA={K}I.?&DATA&SYSTEM_WORK?( IN)
ZZZZ010228	7600	DATA={K}I.?&DATA&SYSTEM_USER_X?
ZZZZ010228	7700	DATA={K}I.?&.DATA&SYSTEM_NAME?
ZZZZ010228	7800	SQL=?WSQ1? ?WSQ2?
ZZZZ010228	7900	REPEAT=_ORDER_COUNT
ZZZZ010228	8000	SQL=?_ORDER##?
ZZZZ010228	8100	REPEAT=
ZZZZ010228	8200	PROGRAM=NOT
ZZZZ010228	8300	BEGIN
ZZZZ010228	8400	=SET{O.SYSTEM_WORK=$I.SYSTEM_WORK
ZZZZ010228	8410	=   ,O.SYSTEM_USER_X=$I.SYSTEM_USER_X};
ZZZZ010228	8500	=IF{O.SYSTEM_NAME=}SET{O.SYSTEM_NAME=$I.SYSTEM_NAME};
ZZZZ010228	8600	=IF{$I.SYSTEM_WORK='MAST'}JUMP{MAST};
ZZZZ010228	8700	=IF{I.SYSTEM_USER_X=}
ZZZZ010228	8800	=   SET{WN.X=_WX_?$WN.I_RT?_?$.SYSTEM_PERMISSION?}
ZZZZ010228	8810	=                                                JUMP{};
ZZZZ010228	8900	=SET{   WN.X
ZZZZ010228	9000	==_WX_?$WN.I_RT?_?I.SYSTEM_USER_X?_?$.SYSTEM_PERMISSION?};
ZZZZ010228	9100	=SET{WN.I=WN.X+I.SYSTEM_NAME};
ZZZZ010228	9200	=EXIT{};
ZZZZ010228	9300	=MAST:SET{WN.I=$WN.I_MAST_PERMISSION+$I.SYSTEM_NAME};
ZZZZ010228	9400	=J:
ZZZZ010228	9500	=IF{$WN.PUBLIC=}EXIT{};
ZZZZ010228	9600	=SQL_SET{SYSTEM_PUBLIC}{SELECT SYSTEM_PUBLIC FROM
ZZZZ010228	9700	= ?_MM?_I_TABLE_TABLE WHERE SYSTEM_NAME='?$I.SYSTEM_NAME?'};
ZZZZ010228	9800	DATA={O,,80}$.LINK_SERVER{8}
ZZZZ010228	9900	DATA={O}$I.?$&DATA&SYSTEM_WORK?( IN)
ZZZZ010228	10000	DATA={O}$I.?$&DATA&SYSTEM_USER_X?
ZZZZ010228	10100	DATA={O,,80}$I.?$&.DATA&SYSTEM_NAME?
ZZZZ010228	10200	DATA={O}O.?$&DATA&SYSTEM_WORK?(OUT)
ZZZZ010228	10300	DATA={O}O.?$&DATA&SYSTEM_USER_X?
ZZZZ010228	10400	DATA={,,80}O.?$&.DATA&SYSTEM_NAME?
ZZZZ010228	10500	=SET{W0.C=4};IF{O.SYSTEM_WORK='WORK'}SET{W0.C=5};
ZZZZ010228	10600	=IF{I.SYSTEM_NAME[1;W0.C]!=O.SYSTEM_NAME[1;W0.C]}
ZZZZ010228	10700	=  ERROR{NOT ?I.SYSTEM_NAME[1;W0.C]?...};
ZZZZ010228	10800	=IF{_DATA@FORM_LENGTH>28}ERROR{LENGTH>28};
ZZZZ010228	10900	=IF{_PERSON='ZZZZZZZZ'}JUMP{OK};
ZZZZ010228	11000	=IF{_DATA[1;4]='ZZZZ'}
ZZZZ010228	11010	=   ERROR{ZZZZ... SYSYTEM RESERVE .SYSTEM_NAME};
ZZZZ010228	11100	=IF{O.SYSTEM_WORK='WORK'}JUMP{OK};
ZZZZ010228	11200	=COMPUTE{W0.CNT5=_DATA@COUNT-5,W0.CNT1=_DATA@COUNT-1};
ZZZZ010228	11300	=IF{W0.CNT5>0}IF{_DATA[W0.CNT5]='_TABLE'}JUMP{OK};
ZZZZ010228	11400	JA+=IF{W0.CNT1>0}IF{_DATA[W0.CNT1]='実表'}JUMP{OK};
ZZZZ010228	11500	JA-=ERROR{ ..._TABLE};
ZZZZ010228	11600	JA+=ERROR{ ..._TABLE OR ...実表};
ZZZZ010228	11700	=OK:
ZZZZ010228	11800	=IF{I.SYSTEM_WORK=O.SYSTEM_WORK}
ZZZZ010228	11810	=  IF{I.SYSTEM_NAME=O.SYSTEM_NAME}
ZZZZ010228	11900	=  IF{$WN.O_RT=$WN.I_RT}IF{$LINK_SERVER=}
ZZZZ010228	12000	=  ERROR{SAME SYSTEM_NAME};
ZZZZ010228	12100	=IF{O.SYSTEM_WORK='MAST'}JUMP{MAST};
ZZZZ010228	12200	=IF{O.SYSTEM_USER_X=}
ZZZZ010228	12300	=   SET{WN.X=_WX_?$WN.O_RT?_?$.SYSTEM_PERMISSION?}
ZZZZ010228	12400	=   SET{WN.RX=_WX_REAL_?$.SYSTEM_PERMISSION?}JUMP{};
ZZZZ010228	12500	=SET{   WN.X
ZZZZ010228	12600	=    =_WX_?$WN.O_RT?_?O.SYSTEM_USER_X?_?$.SYSTEM_PERMISSION?}
ZZZZ010228	12700	= SET{WN.RX=_WX_REAL_?O.SYSTEM_USER_X?_?$.SYSTEM_PERMISSION?
ZZZZ010228	12710	=    };
ZZZZ010228	12800	=SET{WN.O=WN.X+O.SYSTEM_NAME,WN.R=WN.RX+O.SYSTEM_NAME};
ZZZZ010228	12900	=JUMP{OK};
ZZZZ010228	13000	=MAST:SET{WN.O=$WN.O_MAST_PERMISSION+O.SYSTEM_NAME
ZZZZ010228	13100	=        ,WN.R=_MX_REAL_?$.SYSTEM_PERMISSION?+O.SYSTEM_NAME};
ZZZZ010228	13200	=OK:
ZZZZ010228	13300	%TEST_I-%TEST_O+=JUMP{OK};
ZZZZ010228	13400	=IF{O.SYSTEM_WORK='MAST'}IF_TABLE{?WN.R?}
ZZZZ010228	13500	=   ERROR{REAL TABLE FOUND};
ZZZZ010228	13600	=OK:
ZZZZ010228	13700	=IF_TABLE{?WN.O?}EXIT{};
ZZZZ010228	13800	=SET{DROP='NO'};EXIT{COPY};
ZZZZ010228	13900	DATA=DROP{4}{YES,NO}
ZZZZ010228	14000	=IF{_DATA='NO'}ERROR{_DATA='NO' ERROR};
ZZZZ010228	14100	DATA=COPY{4}{,NOT}
ZZZZ010228	14200	DATA={?$WN.PUBLIC?}?$&.DATA&SYSTEM_PUBLIC?
ZZZZ010228	14300	DATA=YES{4}{YES,NO}
ZZZZ010228	14400	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010228	14500	%TEST_O+=SET{_REAL_TEST='TEST'};
ZZZZ010228	14600	=SET{_JOB_PERMISSION=$.SYSTEM_PERMISSION};
ZZZZ010228	14700	=IF{DROP!='YES'}JUMP{COPY};
ZZZZ010228	14800	=IF{O.SYSTEM_WORK='WORK'}JUMP{WORK};
ZZZZ010228	14900	=DBO_DROP_TABLE{?WN.O?};
ZZZZ010228	15000	=JUMP{COPY};
ZZZZ010228	15100	=WORK:IF{O.SYSTEM_USER_X='O'}JUMP{OUT};
ZZZZ010228	15200	=DROP_TABLE{?WN.O?};
ZZZZ010228	15300	=JUMP{COPY};
ZZZZ010228	15400	=OUT:OUT_DROP_TABLE{?WN.O?};
ZZZZ010228	15500	=COPY:IF{O.SYSTEM_WORK='WORK'}JUMP{WORK};
ZZZZ010228	15600	=IF_ERROR_DBO_COPY_TABLE{?WN.O?,?WN.I?,NOT}ERROR{};
ZZZZ010228	15700	=IF{$I.SYSTEM_WORK='MAST'}
ZZZZ010228	15710	=   DBO_GRANT{?WN.O?,TABLE,?SYSTEM_PUBLIC?};
ZZZZ010228	15800	=IF{COPY='NOT'}JUMP{SKIP};
ZZZZ010228	15900	=LINK_SET{WN.LINK}{SELECT * FROM}{?WN.I?}{}{};
ZZZZ010228	16000	%TEST_I-=SET{_REAL_TEST='REAL'};
ZZZZ010228	16100	=IF_ERROR_DBO_SQL{INSERT INTO ?WN.O? ?WN.LINK?}ERROR{};
ZZZZ010228	16200	=SKIP:
ZZZZ010228	16300	%TEST_O+=SET{_REAL_TEST='REAL'};
ZZZZ010228	16400	=SET{_JOB_PERMISSION='ZZZZ'};
ZZZZ010228	16500	*****( I_TABLE_TABLE )******************************
ZZZZ010228	16600	=DROP_TABLE{?_WORK_TABLE?A};
ZZZZ010228	16700	=SET{WN.T=''};
ZZZZ010228	16800	%TEST_O+%TEST_I+=SET{WN.T='TEST'};
ZZZZ010228	16900	=IF_ERROR_COPY_TABLE{?_WORK_TABLE?A,?_MM?_I_TABLE_TABLE,
ZZZZ010228	17000	=  WHERE ?_VE&I.SYSTEM_NAME?}ERROR{};
ZZZZ010228	17100	=SQL{UPDATE ?_WORK_TABLE?A SET ?_VRE&O.SYSTEM_NAME?
ZZZZ010228	17200	=   ,SYSTEM_TEST='?WN.T?',?_VRE&SYSTEM_PUBLIC?};
ZZZZ010228	17300	=REPLACE_PART{?_MM?_I_TABLE_TABLE,?_WORK_TABLE?A,?$&.DATA?}
ZZZZ010228	17400	=  {?$&.KEY?}{}{};
ZZZZ010228	17500	*****( I_COLUMN_TABLE )******************************
ZZZZ010228	17600	=DROP_TABLE{?_WORK_TABLE?B};
ZZZZ010228	17700	=IF_ERROR_COPY_TABLE{?_WORK_TABLE?B,?_MM?_I_COLUMN_TABLE,
ZZZZ010228	17800	=  WHERE ?_VE&I.SYSTEM_NAME?}ERROR{};
ZZZZ010228	17900	=SQL{UPDATE ?_WORK_TABLE?B  SET ?_VRE&O.SYSTEM_NAME?};
ZZZZ010228	18000	=SET_TABLE{&X2,?_MM?_I_COLUMN_TABLE};
ZZZZ010228	18100	=REPLACE_ALL{?_MM?_I_COLUMN_TABLE,?_WORK_TABLE?B,?&X2.DATA?}
ZZZZ010228	18200	=   {?&X2.KEY?}{*O*.?_VRE&O.SYSTEM_NAME?}{};
ZZZZ010228	18300	=DROP_TABLE{?_WORK_TABLE?A};
ZZZZ010228	18400	=DROP_TABLE{?_WORK_TABLE?B};
ZZZZ010228	18500	****( CREATE TRIGGER )************************
ZZZZ010228	18600	=IF{DROP='NO'}EXIT{_END};
ZZZZ010228	18700	=SET{#OBJECT_KIND='CREATE'};
ZZZZ010228	18800	%TEST_O+=SET{#OBJECT_REAL_TEST='TEST'};
ZZZZ010228	18900	%TEST_O-=SET{#OBJECT_REAL_TEST='REAL'};
ZZZZ010228	19000	=SET{#OBJECT_NAME=O.SYSTEM_NAME};
ZZZZ010228	19100	=EXIT{+1}; CREATE TRIGGER *
ZZZZ010228	19200	=IF{#RETUEN!=0}ERROR{?_ERROR?};
ZZZZ010228	19300	=EXIT{_END};
ZZZZ010228	19400	***********************************************
ZZZZ010228	19500	*****( WORK )******************************
ZZZZ010228	19600	=WORK:
ZZZZ010228	19700	%TEST_O+=SET{_REAL_TEST='TEST'};
ZZZZ010228	19800	=SET{_JOB_PERMISSION=$.SYSTEM_PERMISSION};
ZZZZ010228	19900	=IF{O.SYSTEM_USER_X='O'}JUMP{OUT};
ZZZZ010228	20000	=IF_ERROR_COPY_TABLE{?WN.O?,?WN.I?,NOT}ERROR{};
ZZZZ010228	20100	=GRANT{?WN.O?,TABLE,?SYSTEM_PUBLIC?};
ZZZZ010228	20200	=JUMP{SKIP};
ZZZZ010228	20300	=OUT:IF_ERROR_OUT_COPY_TABLE{?WN.O?,?WN.I?,NOT}ERROR{};
ZZZZ010228	20400	=OUT_GRANT{?WN.O?,TABLE,?SYSTEM_PUBLIC?};
ZZZZ010228	20500	=SKIP:IF{COPY='NOT'}JUMP{SKIP};
ZZZZ010228	20600	=LINK_SET{WN.LINK}{SELECT * FROM}{?WN.I?}{}{};
ZZZZ010228	20700	%TEST_O-|%TEST_I-=SET{_REAL_TEST='REAL'};
ZZZZ010228	20800	=IF{O.SYSTEM_USER_X='O'}JUMP{OUT};
ZZZZ010228	20900	=IF_ERROR_SQL{INSERT INTO ?WN.O? ?WN.LINK?}ERROR{};
ZZZZ010228	21000	=JUMP{SKIP};
ZZZZ010228	21100	=OUT:IF_ERROR_OUT_SQL{INSERT INTO ?WN.O? ?WN.LINK?}ERROR{};
ZZZZ010228	21200	=SKIP:
ZZZZ010228	21300	%TEST_O+=SET{_REAL_TEST='REAL'};
ZZZZ010228	21400	=SET{_JOB_PERMISSION='ZZZZ'};
ZZZZ010228	21500	=EXIT{_END};
ZZZZ010229	100	PROGRAM=,&X1,?_MM?_I_OBJECT_ID_TABLE
ZZZZ010229	200	TABLE=&X2,?_MM?_ETC_TABLE
ZZZZ010229	300	DICTIONARY=SYSTEM_PERMISSION
ZZZZ010229	400	CONTROL=0,SCROLL
ZZZZ010229	500	BEGIN
ZZZZ010229	600	=SET{WC.CREATE_BAD='?_Q?',WC.CREATE_OK=' '};
ZZZZ010229	700	=SET{WC.WORK_FILE='?_TMP??_WORK?.TXT'};
ZZZZ010229	800	=SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010229	900	%TEST+=SET{WN.TEST='TEST',WC.TEST='TEST'};
ZZZZ010229	1000	%TEST-=SET{WN.TEST='REAL',WC.TEST=};
ZZZZ010229	1100	=SET{WN.DBX=_MX_?WN.TEST?_ZZZZ};
ZZZZ010229	1200	=SET{WN.DBP=_MP_?WN.TEST?_ZZZZ};
ZZZZ010229	1300	=SET{WN.DBT=_MX_TEST_ZZZZ};
ZZZZ010229	1400	D-=SET{WN.SYSTEM_KIND='VIEW,FUNC,PROC,TRIG'};
ZZZZ010229	1500	D+=SET{WN.SYSTEM_KIND='VIEW,PROC,TRIG'};
ZZZZ010229	1600	SET={,*&X2}.?&DATA&SYSTEM_PERMISSION?
ZZZZ010229	1700	=IF{'ZZZZ'!=_PERMISSION}IF{_DATA!=_PERMISSION}
ZZZZ010229	1800	=  ERROR{PERMISSION(?_DATA?) ERROR};
ZZZZ010229	1900	%TEST+=SET{WN.DB_PERMISSION=_MX_TEST_?.SYSTEM_PERMISSION?};
ZZZZ010229	2000	%TEST-=SET{WN.DB_PERMISSION=_MX_REAL_?.SYSTEM_PERMISSION?};
ZZZZ010229	2100	%TEST-=SET{WN.DB_TEST_PERMISSION
ZZZZ010229	2200	%TEST-=    =_MX_TEST_?.SYSTEM_PERMISSION?};
ZZZZ010229	2300	=SET{_DATA@WHERE='SYSTEM_NAME ?_LC&.SYSTEM_PERMISSION?'};
ZZZZ010229	2400	SET=.?&.SET&SYSTEM_NAME?
ZZZZ010229	2500	SET=.?&.DATA&SYSTEM_KIND?
ZZZZ010229	2600	START
ZZZZ010229	2700	=IF{_START=2}JUMP{OK};
ZZZZ010229	2800	=SET{WN.OBJ='VIEW'};
ZZZZ010229	2900	=IF{SYSTEM_KIND='VIEW'}JUMP{OK};
ZZZZ010229	3000	=SET{WN.OBJ='FUNCTION'};
ZZZZ010229	3100	=IF{SYSTEM_KIND='FUNC'}JUMP{OK};
ZZZZ010229	3200	=SET{WN.OBJ='PROCEDURE'};
ZZZZ010229	3300	=IF{SYSTEM_KIND='PROC'}JUMP{OK};
ZZZZ010229	3400	=SET{WN.OBJ='TRIGGER'};
ZZZZ010229	3500	=IF{SYSTEM_KIND='TRIG'}JUMP{OK};
ZZZZ010229	3600	=ERROR{?WN.OBJ?};
ZZZZ010229	3700	=OK:
ZZZZ010229	3800	=IF{_START=2}
ZZZZ010229	3900	=   SET{SYSTEM_TEST=WC.TEST,SYSTEM_CREATE=WC.CREATE_BAD}
ZZZZ010229	4000	=   JUMP{REAL_SKIP};
ZZZZ010229	4100	NAME=REAL_CHECK
ZZZZ010229	4200	%TEST-=JUMP{REAL_SKIP};
ZZZZ010229	4300	=SQL_SET{}{SELECT SYSTEM_NAME FROM
ZZZZ010229	4400	=  ?_MM_REAL?_M_?.SYSTEM_PERMISSION?_OBJECT_VIEW
ZZZZ010229	4500	=  WHERE ?_VRE&SYSTEM_NAME?};
ZZZZ010229	4600	=IF{_SQL_SET_COUNT>0}ERROR{REAL ?SYSTEM_KIND? FOUND};
ZZZZ010229	4610	*PROGRAM2{0}{}{?_MM_REAL?_M_?.SYSTEM_PERMISSION?_OBJECT_VIEW}
ZZZZ010229	4620	*  {SYSTEM_NAME}{};
ZZZZ010229	4630	*IF{_PROGRAM_COUNT>0}ERROR{REAL ?SYSTEM_KIND? FOUND};
ZZZZ010229	4700	NAME=
ZZZZ010229	4800	%TEST-=JUMP{REAL_SKIP};
ZZZZ010229	4900	*SQL_SET{}{SELECT ' ' FROM
ZZZZ010229	5000	*   ?_MM_REAL?_I_OBJECT_ID_TABLE WHERE
ZZZZ010229	5100	*   ?_VRE&SYSTEM_NAME? AND SYSTEM_TEST=' '
ZZZZ010229	5200	*   AND Z_CANCEL=' '};
ZZZZ010229	5300	*IF{_SQL_SET_COUNT>0}ERROR{USE REAL};
ZZZZ010229	5310	=PROGRAM{0,?_MM_REAL?_I_OBJECT_ID_TABLE}{SYSTEM_NAME
ZZZZ010229	5320	=    ,WC.SYSTEM_TEST=' '}{};
ZZZZ010229	5330	=IF{_PROGRAM_COUNT>0}ERROR{USE REAL};
ZZZZ010229	5400	=REAL_SKIP:
ZZZZ010229	5500	=IF{_START=0}JUMP{START_0};
ZZZZ010229	5600	=IF{_START=1}JUMP{START_1};
ZZZZ010229	5700	=EXIT{};
ZZZZ010229	5800	=START_0:
ZZZZ010229	5900	=IF{SYSTEM_NAME=}ERROR{SYSTEM_NAME SPACE};
ZZZZ010229	6000	=EXIT{};
ZZZZ010229	6100	=START_1:
ZZZZ010229	6200	*SQL_SET{}{SELECT SYSTEM_KIND
ZZZZ010229	6210	*  FROM ?_MM?_I_OBJECT_TABLE WHERE
ZZZZ010229	6300	*  ?_VRE&.SYSTEM_KIND?' AND ?_VRE&SYSTEM_NAME?'
ZZZZ010229	6400	*  AND Z_CANCEL=' '};
ZZZZ010229	6500	*IF{_SQL_SET_COUNT>0}ERROR{DITAIL FOUND};
ZZZZ010229	6510	=PROGRAM{0,?_MM?_I_OBJECT_TABLE}{SYSTEM_KIND
ZZZZ010229	6520	=   ,SYSTEM_NAME}{};
ZZZZ010229	6530	=IF{_PROGRAM_COUNT>0}ERROR{DITAIL FOUND};
ZZZZ010229	6600	DATA={*C,*&X2}?&DATA&SYSTEM_PERMISSION?
ZZZZ010229	6700	SELECT=?_SUBSTR(SYSTEM_NAME;1;4)?
ZZZZ010229	6800	DATA={KC}?&.DATA&SYSTEM_KIND?
ZZZZ010229	6900	CHECK=?WN.SYSTEM_KIND?
ZZZZ010229	7000	=IF{_DATA!='TRIG'}EXIT{};
ZZZZ010229	7100	=SET{SYSTEM_PUBLIC=};EXIT{SYSTEM_NAME};
ZZZZ010229	7200	DATA=?&.DATA&SYSTEM_PUBLIC?
ZZZZ010229	7300	=IF{SYSTEM_KIND='TRIG'}IF{_DATA!=}ERROR{NOT SPACE};
ZZZZ010229	7400	=IF{_START=3}IF{_DATA!=_DATA@OLD}
ZZZZ010229	7500	=                      SET{SYSTEM_CREATE=WC.CREATE_BAD};
ZZZZ010229	7600	DATA={K}?&.DATA&SYSTEM_NAME?
ZZZZ010229	7700	=IF{_DATA[1;4]!=SYSTEM_PERMISSION}
ZZZZ010229	7800	= ERROR{?SYSTEM_PERMISSION?.};
ZZZZ010229	7900	=IF{_DATA@FORM_LENGTH>28}ERROR{LENGTH>28}; (VER12.0)*
ZZZZ010229	8000	=IF{SYSTEM_NAME/'ZZZZZZ_'}
ZZZZ010229	8100	= IF{_PERSON!='ZZZZZZZZ'}ERROR{PERSON IS NOT 'ZZZZZZZZ'};
ZZZZ010229	8200	=COMPUTE{W0.L4=_DATA@COUNT-4,W0.L1=_DATA@COUNT-1};
ZZZZ010229	8300	=COMPUTE{W0.L5=_DATA@COUNT-5,W0.L2=_DATA@COUNT-2};
ZZZZ010229	8400	=IF{W0.L4<1}ERROR{LENGTH<4};
ZZZZ010229	8500	=IF{_PERMISSION!='ZZZZ'}IF{SYSTEM_NAME[1;4]!=_PERMISSION}
ZZZZ010229	8600	=  ERROR{NOT ?_PERMISSION?..};
ZZZZ010229	8700	=IF{_DATA[W0.L4]='_?SYSTEM_KIND?'}JUMP{OK_0};
ZZZZ010229	8800	JA-=ERROR{..._?SYSTEM_KIND?};
ZZZZ010229	8900	=IF{SYSTEM_KIND='VIEW'}JUMP{VIEW};
ZZZZ010229	9000	=IF{SYSTEM_KIND='PROC'}JUMP{PROC};
ZZZZ010229	9100	=IF{SYSTEM_KIND='FUNC'}JUMP{FUNC};
ZZZZ010229	9200	=IF{_DATA[W0.L1]='引金'}JUMP{OK_0};
ZZZZ010229	9300	=IF{_DATA[W0.L5]='_TRIGU'}JUMP{OK};
ZZZZ010229	9400	=IF{_DATA[W0.L5]='_TRIGI'}JUMP{OK};
ZZZZ010229	9500	=IF{_DATA[W0.L5]='_TRIGD'}JUMP{OK};
ZZZZ010229	9600	=IF{_DATA[W0.L2]='引金U'}JUMP{OK};
ZZZZ010229	9700	=IF{_DATA[W0.L2]='引金I'}JUMP{OK};
ZZZZ010229	9800	=IF{_DATA[W0.L2]='引金D'}JUMP{OK};
ZZZZ010229	9900	=ERROR{..._TRIG[U,I,D] OR 引金[U,I,D]};
ZZZZ010229	10000	=ERROR{..._TRIG OR 引金};
ZZZZ010229	10100	=VIEW:IF{_DATA[W0.L1]='仮表'}JUMP{OK};
ZZZZ010229	10200	=ERROR{..._VIEW OR ...仮表};
ZZZZ010229	10300	=PROC:IF{_DATA[W0.L1]='手続'}JUMP{OK};
ZZZZ010229	10400	=ERROR{..._PROC OR ...手続};
ZZZZ010229	10500	=FUNC:IF{_DATA[W0.L1]='関数'}JUMP{OK};
ZZZZ010229	10600	=ERROR{..._FUNC OR ...関数};
ZZZZ010229	10700	=OK_0:
ZZZZ010229	10800	L+|H+=IF{_DATA[W0.L4]='_TRIG'
ZZZZ010229	10900	L+|H+=   ERROR{..._TRIG] ERROR (MYSQL,HIRDB)};
ZZZZ010229	11000	L+|H+=IF{_DATA[W0.L1]='引金'}
ZZZZ010229	11100	L+|H+=   ERROR{...引金] ERROR (MYSQL,HIRDB)};
ZZZZ010229	11200	=OK:
ZZZZ010229	11300	COPY=REAL_CHECK
ZZZZ010229	11400	=REAL_SKIP:
ZZZZ010229	11500	DATA={OC}?&.DATA&SYSTEM_TEST?
ZZZZ010229	11600	DATA={OA}?&.DATA&SYSTEM_CREATE?
ZZZZ010229	11700	DATA=?&.DATA&SYSTEM_COMMENT1?
ZZZZ010229	11800	DATA=?&.DATA&SYSTEM_COMMENT2?
ZZZZ010229	11900	STOP_AFTER
ZZZZ010229	12000	=IF{_START=1}JUMP{DEL};
ZZZZ010229	12100	=EXIT{};
ZZZZ010229	12200	=DEL:
ZZZZ010229	12300	=SET{_REAL_TEST=WN.TEST};
ZZZZ010229	12400	=SET{_JOB_PERMISSION=SYSTEM_PERMISSION};
ZZZZ010229	12500	=IF_ERROR_DBO_DROP_OBJECT{?WN.DB_PERMISSION??SYSTEM_NAME?}
ZZZZ010229	12600	=   {?WN.OBJ?}ERROR{};
ZZZZ010229	12700	%TEST-=SET{_REAL_TEST='TEST'};
ZZZZ010229	12800	%TEST-=IF_ERROR_DBO_DROP_OBJECT{
ZZZZ010229	12900	%TEST-=   ?WN.DB_TEST_PERMISSION??SYSTEM_NAME?}
ZZZZ010229	13000	%TEST-=   {?WN.OBJ?}NOP{};
ZZZZ010229	13100	=SET{_REAL_TEST='REAL',_JOB_PERMISSION='ZZZZ'};
ZZZZ010229	13200	COPY=@ZZZZZZ_SQL
ZZZZ010229	13300	*###( 2 )####################################################
ZZZZ010229	13400	PROGRAM=INPUT,&X1,?_MM?_I_OBJECT_TABLE
ZZZZ010229	13500	MINUS=%Z_CANCEL_SELECT
ZZZZ010229	13600	DICTIONARY=Z_CANCEL
ZZZZ010229	13700	CONTROL=BEGIN_ENTER,SCROLL,0
ZZZZ010229	13800	COLOR
ZZZZ010229	13900	=IF{FIND>0}JUMP{COLOR_B};
ZZZZ010229	14000	=        SET{SYSTEM_SEQ@COLOR='W'};EXIT{};
ZZZZ010229	14100	=COLOR_B:SET{SYSTEM_SEQ@COLOR='B'};
ZZZZ010229	14200	BEGIN
ZZZZ010229	14300	*SQL_SET{WC.BROWSE}{SELECT SYSTEM_ETC FROM
ZZZZ010229	14400	* ?_MP_ZZZZ?ZZ_ETC_TABLE WHERE
ZZZZ010229	14500	*     SYSTEM_KEY2='ZZZZZZ_BROWSE_?_OS?'
ZZZZ010229	14600	* AND SYSTEM_KEY1='ZZZZZZ_SYSTEM' AND Z_CANCEL=' '};
ZZZZ010229	14700	*IF{_SQL_SET_COUNT=0}ERROR{
ZZZZ010229	14800	* ETC 'ZZZZZZ_SYSTEM','ZZZZZZ_BROWSE_?_OS?' IS NOT FOUND};
ZZZZ010229	14810	=PROGRAM{0,?_MP_ZZZZ?ZZ_ETC_TABLE,WN.BROWSE.SYSTEM_ETC=}
ZZZZ010229	14830	=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010229	14834	=   ,WC.SYSTEM_KEY2='ZZZZZZ_BROWSE_?_OS?'}{};
ZZZZ010229	14840	=IF{_PROGRAM_COUNT=0}
ZZZZ010229	14850	=   ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? NOT FOUND};
ZZZZ010229	14900	W+=SET{WC.BROWSE=WN.BROWSE.SYSTEM_ETC};
ZZZZ010229	14910	W-=SET{WC.BROWSE=WN.BROWSE.SYSTEM_ETC@LOWER};
ZZZZ010229	15000	=SET{S_FIND=#FIND,WN.F=0};
ZZZZ010229	15100	*****( WN.X... 設定 OUTPUT BEGIN )*****
ZZZZ010229	15200	=SET{WN.XKEY='SYSTEM_NAME'};
ZZZZ010229	15300	=SET{WN.XWHERE='?WN.XKEY?=''?.SYSTEM_NAME?'''};
ZZZZ010229	15400	=SET{WN.XOBJECT='SYSTEM_OBJECT'};
ZZZZ010229	15500	*****( WN.X... 設定 INPUT BEGIN )*****
ZZZZ010229	15600	=SET{WN.XTABLEI='I_OBJECT_TABLE'};
ZZZZ010229	15700	=SET{WN.XKEYVALUE=.?WN.XKEY?};
ZZZZ010229	15800	=SET{WN.XKEYCOPY=.?WN.XKEY?};
ZZZZ010229	15900	=SET{WN.XKEYDATA=&.DATA&?WN.XKEY?};
ZZZZ010229	16000	=SET{WN.XTABLE=_MM+'_'+WN.XTABLEI};
ZZZZ010229	16100	=SET{WN.XOBJECTDATA=&.DATA&?WN.XOBJECT?};
ZZZZ010229	16200	*****( WN.X... 設定 END )*****
ZZZZ010229	16300	*IF{SYSTEM_CREATE='*',='!',='?_Q?'}SET{_ESC=0};*
ZZZZ010229	16400	SET={KO,*}.=?&.SET&SYSTEM_KIND?
ZZZZ010229	16500	SET={O,*}.=?$&.SET&SYSTEM_PUBLIC?
ZZZZ010229	16600	SET={O,*}.=?$&.SET&SYSTEM_CREATE?
ZZZZ010229	16700	SET={KO,,80}.=?&.SET&SYSTEM_NAME?
ZZZZ010229	16800	=SET{S_CMD=};
ZZZZ010229	16900	SET={,*}S_CMD{56}
ZZZZ010229	17000	JA+TITLE=操作
ZZZZ010229	17100	=SET{_DATA@WHERE=};
ZZZZ010229	17200	=SET{%TABLE='-'};
ZZZZ010229	17300	=IF{_DATA=}EXIT{};
ZZZZ010229	17400	=SET{W0.D=_DATA@COUNT,W0.C=1,WN.FTAG=};
ZZZZ010229	17500	=SET{WN.EQ=,WN.1=,WN.2=,WN.3=,WN.4=,WN.5=,WN.6=};
ZZZZ010229	17600	=SPLIT_CHAR{WN.}{S_CMD}{};
ZZZZ010229	17700	=J2:IF{WN.1='QUIT'}EXIT{_END};
ZZZZ010229	17800	=SET{WN.DROP=};
ZZZZ010229	17900	=IF{WN.1='CREATE'}JUMP{CREATE};
ZZZZ010229	18000	=IF{WN.1='SAMPLE'}JUMP{SAMPLE};
ZZZZ010229	18100	=IF{WN.1='B'}JUMP{BROWSE};
ZZZZ010229	18200	=IF{WN.1='TABLE '}IF{.SYSTEM_KIND='VIEW'}
ZZZZ010229	18300	=   SET{S_CMD=,%TABLE='+',%OBJECT='-'
ZZZZ010229	18400	=   ,%COPY='-',%CANCEL='-',%MOVE='-'}EXIT{+1};
ZZZZ010229	18500	****( 汎用処理 INPUT BEGIN )*****
ZZZZ010229	18600	=SET{WN.XTABLECOPY=_TABLE};
ZZZZ010229	18700	=IF{WN.1='CANCEL'}JUMP{CANCEL};
ZZZZ010229	18800	=IF{WN.1='C',='CHANGE'}JUMP{CHANGE};
ZZZZ010229	18900	=IF{WN.1='COPY'}JUMP{COPY};
ZZZZ010229	19000	=IF{WN.1='MOVE'}JUMP{MOVE};
ZZZZ010229	19100	=IF{S_CMD='DISCARD'}JUMP{DISCARD};
ZZZZ010229	19200	=IF{S_CMD='RENUMBER'}JUMP{RENUMBER};
ZZZZ010229	19300	****( 汎用処理 OUTPUT BEGIN )*****
ZZZZ010229	19400	=IF{WN.1='L',='LOCATE'}JUMP{LOCATE};
ZZZZ010229	19500	=IF{WN.1='LL',='LLOCATE'}JUMP{S_END};
ZZZZ010229	19600	=IF{WN.1='FC',WN.1='FINDCLEAR'}JUMP{FC};
ZZZZ010229	19700	=IF{WN.1='MAX'}JUMP{MAX};
ZZZZ010229	19800	=IF{WN.1='MIN'}JUMP{MIN};
ZZZZ010229	19900	=IF{WN.1='U',='UP'}JUMP{UP};
ZZZZ010229	20000	=IF{WN.1='D',='DOWN'}JUMP{DOWN};
ZZZZ010229	20100	=IF{WN.1='P',='PRIOR'}JUMP{PRIOR};
ZZZZ010229	20200	=IF{WN.1='E',='END'}JUMP{END};
ZZZZ010229	20300	=IF{W0.C<W0.D}IF{S_CMD[W0.C;1]=' '}COMPUTE{W0.C+=1}BACK{};
ZZZZ010229	20400	=IF{S_CMD[W0.C]='F',='FIND',='FF'}JUMP{FIND1};
ZZZZ010229	20500	=IF{S_CMD[W0.C]='F0',='FIND0',='FF0'}JUMP{FIND10};
ZZZZ010229	20600	=IF{S_CMD[W0.C;2]='F '}JUMP{F};
ZZZZ010229	20700	=IF{S_CMD[W0.C;3]='F0 '}JUMP{F0};
ZZZZ010229	20800	=IF{S_CMD[W0.C;3]='FF '}JUMP{FF};
ZZZZ010229	20900	=IF{S_CMD[W0.C;4]='FF0 '}JUMP{FF0};
ZZZZ010229	21000	=IF{S_CMD[W0.C;5]='FIND '}JUMP{FIND};
ZZZZ010229	21100	=IF{S_CMD[W0.C;6]='FIND0 '}JUMP{FIND0};
ZZZZ010229	21200	=IF{_DATA@COUNT!=0}ERROR{COMMAND};
ZZZZ010229	21300	=SET{.SYSTEM_SEQ=.SYSTEM_SEQ_NOW};JUMP{S_END};
ZZZZ010229	21400	*****
ZZZZ010229	21500	=FC:SET{WN.F=0,S_FIND=,#FIND=};JUMP{S_END};
ZZZZ010229	21600	=MAX:SQL_SET{WN.LOCATE}{SELECT MAX(SYSTEM_SEQ) FROM
ZZZZ010229	21700	=?_TABLE? WHERE ?WN.XWHERE? AND Z_CANCEL=' '};
ZZZZ010229	21800	=IF{_SQL_SET_COUNT=0}JUMP{S_END};
ZZZZ010229	21900	=SET{.SYSTEM_SEQ=WN.LOCATE};JUMP{S_END};
ZZZZ010229	22000	=MIN:SET{.SYSTEM_SEQ=0};JUMP{S_END};
ZZZZ010229	22100	=PRIOR:SET{WN.MAX_MIN='MAX'};JUMP{NEXT };
ZZZZ010229	22200	=END:SET{WN.MAX_MIN='MAX',.SYSTEM_SEQ_NOW=99999};JUMP{NEXT };
ZZZZ010229	22300	=F:    COMPUTE{W0.C+=2};JUMP{FINDX};
ZZZZ010229	22400	=F0:   COMPUTE{W0.C+=3};JUMP{FINDX0};
ZZZZ010229	22500	=FF:   COMPUTE{W0.C+=3};JUMP{FINDX};
ZZZZ010229	22600	=FF0:  COMPUTE{W0.C+=4};JUMP{FINDX0};
ZZZZ010229	22700	=FIND: COMPUTE{W0.C+=5};JUMP{FINDX};
ZZZZ010229	22800	=FIND0:COMPUTE{W0.C+=6};JUMP{FINDX0};
ZZZZ010229	22900	****( 汎用処理 1/2 END )*****
ZZZZ010229	23000	****( 汎用処理 END )*****
ZZZZ010229	23100	***( SET )*****************************************
ZZZZ010229	23200	=SET:COMPUTE{W0.C+=5};
ZZZZ010229	23300	=IF{W0.C<_DATA@COUNT}IF{S_CMD[W0.C;1]=' '}
ZZZZ010229	23400	=   COMPUTE{W0.C+=1}BACK{};
ZZZZ010229	23500	=SET{WN.SET=S_CMD[W0.C]};
ZZZZ010229	23600	=SET{WC.SW=0};
ZZZZ010229	23700	=COPY11:SET{W0.L=W0.LENGTH};
ZZZZ010229	23800	=IF{W0.L<255}SET{WN=WN+' '};
ZZZZ010229	23900	=IF{W0.L<255}BACK{COPY11};
ZZZZ010229	24000	=COPY2:SET{W0.C=1,W0.S=1};SET{W0.L=W0.LENGTH};
ZZZZ010229	24100	=JUMP{COPY3};
ZZZZ010229	24200	=COPY31:COMPUTE{W0.C+=1};
ZZZZ010229	24300	=COPY3:IF{WN[W0.C;1]=',',='=',='<',='>'}JUMP{COPY_SEP};
ZZZZ010229	24400	=IF{WN[W0.C;1]='+',='-',='/',='*'}JUMP{COPY_SEP};
ZZZZ010229	24500	=IF{WN[W0.C;2]=' ('}JUMP{COPY_SEP};
ZZZZ010229	24600	=IF{WN[W0.C;4]=' OR ',=' ON ',=' IS '}JUMP{COPY_SEP};
ZZZZ010229	24700	=IF{WN[W0.C;5]=' AND ' }JUMP{COPY_SEP};
ZZZZ010229	24800	=IF{WN[W0.C;6]=' FROM ',=' JOIN '}JUMP{COPY_SEP};
ZZZZ010229	24900	=IF{WN[W0.C;7]=' WHERE ',=' ORDER ',=' GROUP '}
ZZZZ010229	25000	=  JUMP{COPY_SEP};
ZZZZ010229	25100	=IF{WN[W0.C;8]=' HAVING '}JUMP{COPY_SEP};
ZZZZ010229	25200	=IF{WN[W0.C;11]=')AS SELECT '}JUMP{COPY_SEP};
ZZZZ010229	25300	=IF{WN[W0.C;11]=' AS SELECT '}JUMP{COPY_SEP};
ZZZZ010229	25400	=IF{W0.C<=W0.L}BACK{COPY31};
ZZZZ010229	25500	=COPY_SEP:
ZZZZ010229	25600	=COMPUTE{W0.E=W0.C-W0.S};SET{WN.X=WN[W0.S;W0.E]};
ZZZZ010229	25700	=IF{WC.SW!=9}IF{W0.C>W0.L}JUMP{SQL1_NEXT};
ZZZZ010229	25800	=IF{WC.SW=0}SET{WC.SW=1}JUMP{PROC_END};
ZZZZ010229	25900	=IF{WN.X=}JUMP{PROC_END};
ZZZZ010229	26000	=PROC_INS:
ZZZZ010229	26100	=COMPUTE{W0.SYSTEM_SEQ+=10};
ZZZZ010229	26200	=SQL{INSERT INTO ?_MM?_I_OBJECT_TABLE(?_Z_INSERT_NAME?
ZZZZ010229	26300	=   ,SYSTEM_KIND,SYSTEM_NAME,SYSTEM_SEQ
ZZZZ010229	26310	=   ,SYSTEM_COM,SYSTEM_SIGN,SYSTEM_OBJECT)
ZZZZ010229	26400	=   VALUES(?_Z_INSERT_VALUE?
ZZZZ010229	26500	=   ,'?.SYSTEM_KIND?','?.SYSTEM_NAME?'
ZZZZ010229	26510	=   ,?W0.SYSTEM_SEQ?,' ','?WN.X?')};
ZZZZ010229	26600	=PROC_END:
ZZZZ010229	26700	*PROC_END:IF{WC.SW=9}SET{_ESC=0};
ZZZZ010229	26800	=         IF{WC.SW=9}EXIT{};
ZZZZ010229	26900	=COMPUTE{W0.SYSTEM_SEQ+=10};SET{W0.S=W0.C};COMPUTE{W0.C+=1};
ZZZZ010229	27000	***=JUMP{PROC3};
ZZZZ010229	27100	=SQL1_NEXT:SQL1_NEXT{WN}SET{WC.SW=9};JUMP{PROC_AT};
ZZZZ010229	27200	=PROC4:SET{W0.L=W0.LENGTH};
ZZZZ010229	27300	=IF{W0.L<255}SET{WN=WN+' '};
ZZZZ010229	27400	=IF{W0.L<255}BACK{PROC4};
ZZZZ010229	27500	=SET{WN=WN.X+WN};
ZZZZ010229	27600	***=JUMP{PROC2};
ZZZZ010229	27700	=PROC_AT:
ZZZZ010229	27800	=SET{W0.AT=WN.X@LENGTH};
ZZZZ010229	27900	=IF{W0.AT>1}IF{WN.X[W0.AT;1]=' '}
ZZZZ010229	28000	=   COMPUTE{W0.AT-=1}SET{WN.X=WN.X[1;W0.AT]}BACK{PROC_AT};
ZZZZ010229	28100	***=JUMP{PROC_INS};
ZZZZ010229	28110	=BACK{PROC_INS};
ZZZZ010229	28200	*****( TABLE )*************************************
ZZZZ010229	28300	*=TABLE:COMPUTE{W0.C+=6};
ZZZZ010229	28400	*=CA:IF{W0.C<_DATA@COUNT}IF{S_CMD[W0.C;1]=' '}JUMP{X};
ZZZZ010229	28500	*= JUMP{X2};
ZZZZ010229	28600	*=X:COMPUTE{W0.C+=1};BACK{CA};
ZZZZ010229	28700	*=X2:SET{WN.TABLE=S_CMD[W0.C]};SET{W0.L=WN.TABLE@COUNT};
ZZZZ010229	28800	*=TABLE2:SQL_SET{W0.SYSTEM_SEQ}{SELECT MAX(SYSTEM_SEQ)  FROM
ZZZZ010229	28900	*=?_MM?_I_OBJECT_TABLE WHERE ?_VRE&SYSTEM_NAME?
ZZZZ010229	29000	*=AND SYSTEM_KIND='?$SYSTEM_KIND?'}SET{W0.SYSTEM_SEQ=0};
ZZZZ010229	29100	*=SQL1{SELECT DATA_SYSTEM_NAME FROM
ZZZZ010229	29200	*=?$WN.DBX?M_?$PERMISSION?_COLUMN_VIEW WHERE
ZZZZ010229	29300	*= .SYSTEM_NAME='?WN.TABLE?'};
ZZZZ010229	29400	*=SQL1_NEXT{WN.SYSTEM_NAME}ERROR{TABLE NOT FOUND};
ZZZZ010229	29500	*=SET{WSEP='('};
ZZZZ010229	29600	*=TD:COMPUTE{W0.SYSTEM_SEQ+=10};
ZZZZ010229	29700	*=SQL{INSERT INTO ?_MM?_I_OBJECT_TABLE(
ZZZZ010229	29710	*=?_Z_INSERT_NAME?
ZZZZ010229	29800	*=,SYSTEM_KIND,SYSTEM_NAME,SYSTEM_SEQ,COM
ZZZZ010229	29810	*= ,SIGN,SYSTEM_OBJECT)
ZZZZ010229	29900	*=VALUES(?_Z_INSERT_VALUE?,'?$SYSTEM_KIND?'
ZZZZ010229	30000	*=,'?SYSTEM_NAME?',?W0.SYSTEM_SEQ?,' ',' '
ZZZZ010229	30010	*=,'?WSEP??WN.SYSTEM_NAME?')};
ZZZZ010229	30100	*=SET{WSEP=','};
ZZZZ010229	30200	*=SQL1_NEXT{WN.SYSTEM_NAME}JUMP{X};BACK{TD};
ZZZZ010229	30300	*=X:COMPUTE{W0.SYSTEM_SEQ+=100};
ZZZZ010229	30400	*=SQL{INSERT INTO ?_MM?_I_OBJECT_TABLE(
ZZZZ010229	30410	*=?_Z_INSERT_NAME?
ZZZZ010229	30500	*=,SYSTEM_KIND,SYSTEM_NAME,SYSTEM_SEQ,COM,
ZZZZ010229	30510	*=   ,SIGNSYSTEM_OBJECT)
ZZZZ010229	30600	*=VALUES(?_Z_INSERT_VALUE?,'?$SYSTEM_KIND?'
ZZZZ010229	30700	*=,'?SYSTEM_NAME?',?W0.SYSTEM_SEQ?,' ',' ',')AS SELECT')};
ZZZZ010229	30800	*=SQL1_FIRST{};
ZZZZ010229	30900	*=SQL1_NEXT{WN.SYSTEM_NAME}JUMP{TH};
ZZZZ010229	31000	*=SET{WSEP=' '};
ZZZZ010229	31100	*=TG:COMPUTE{W0.SYSTEM_SEQ+=10};
ZZZZ010229	31200	*=SQL{INSERT INTO ?_MM?_I_OBJECT_TABLE(
ZZZZ010229	31210	*=   ?_Z_INSERT_NAME?
ZZZZ010229	31300	*=,SYSTEM_KIND,SYSTEM_NAME,SYSTEM_SEQ,COM
ZZZZ010229	31310	*=  ,COM,SIGN,SYSTEM_OBJECT)
ZZZZ010229	31400	*=VALUES(?_Z_INSERT_VALUE?,'?$SYSTEM_KIND?'
ZZZZ010229	31500	*=,'?SYSTEM_NAME?',?W0.SYSTEM_SEQ?,' ',' '
ZZZZ010229	31510	*=   ,'?WSEP?.?WN.SYSTEM_NAME?')};
ZZZZ010229	31600	*=SQL1_NEXT{WN.SYSTEM_NAME}JUMP{TH};SET{WSEP=','};BACK{TG};
ZZZZ010229	31700	*=TH:COMPUTE{W0.SYSTEM_SEQ+=10};
ZZZZ010229	31800	*=SQL{INSERT INTO ?_MM?_I_OBJECT_TABLE(
ZZZZ010229	31810	*=   ?_Z_INSERT_NAME?
ZZZZ010229	31900	*=,SYSTEM_KIND,SYSTEM_NAME,SYSTEM_SEQ
ZZZZ010229	31910	*= ,COM,SIGN,SYSTEM_OBJECT)
ZZZZ010229	32000	*=VALUES(?_Z_INSERT_VALUE?,'?$SYSTEM_KIND?'
ZZZZ010229	32010	*=   ,'?SYSTEM_NAME?'
ZZZZ010229	32100	*=,?W0.SYSTEM_SEQ?,' ',' ',' FROM ?WN.TABLE? ?_T?')};
ZZZZ010229	32200	*=EXIT{};
ZZZZ010229	32300	*****( CREATE )******************************
ZZZZ010229	32400	=CREATE:
ZZZZ010229	32500	=SET{#OBJECT_KIND=.SYSTEM_KIND};
ZZZZ010229	32600	=SET{#OBJECT_REAL_TEST=$WN.TEST};
ZZZZ010229	32700	=SET{#OBJECT_NAME=.SYSTEM_NAME};
ZZZZ010229	32800	=SET{#OBJECT_PUBLIC=.SYSTEM_PUBLIC};
ZZZZ010229	32900	=SET{S_CMD='B'};
ZZZZ010229	33000	=SET{%NO_XT_OBJECT='-'};各種処理迂回*
ZZZZ010229	33100	=EXIT{+1}; OBJECT_SUBへ*
ZZZZ010229	33200	=SET{%NO_XT_OBJECT='+'};
ZZZZ010229	33300	=IF{#RETURN=1}ERROR{?#ERROR?};
ZZZZ010229	33400	=EXIT{-1}; 正常終了は戻る*
ZZZZ010229	33500	****( 汎用処理 INPUT BEGIN )****
ZZZZ010229	33600	*****( MOVE )************************************************
ZZZZ010229	33700	=MOVE:SET{WN.BEGIN=,WN.END=};
ZZZZ010229	33800	=IF{WN.2=}ERROR{MOVE LOCATE=SPACE ERROR};
ZZZZ010229	33900	=IF_ERROR_SET{W0.LOCATE=WN.2}ERROR{MOVE LOCATE(?WN.2?)ERROR};
ZZZZ010229	34000	=IF{WN.3=}ERROR{MOVE BEGIN=SPACE ERROR};
ZZZZ010229	34100	=IF_ERROR_SET{W0.BEGIN=WN.3}ERROR{MOVE BEGIN(?WN.3?) ERROR};
ZZZZ010229	34200	=IF{WN.4=}ERROR{MOVE END=SPACE ERROR};
ZZZZ010229	34300	=IF_ERROR_SET{W0.END=WN.4}ERROR{MOVE END(?WN.4?) ERROR};
ZZZZ010229	34400	=IF{W0.LOCATE>=W0.BEGIN}
ZZZZ010229	34500	=  IF{W0.LOCATE<=W0.END}ERROR{BEGIN=<LOCATE=<END};
ZZZZ010229	34600	=JUMP{COPY3};
ZZZZ010229	34700	*****( COPY )******************************************
ZZZZ010229	34800	=COPY:IF{WN.2!=}JUMP{COPY2};
ZZZZ010229	34900	=SET{%COPY='+',%MOVE='-',%CANCEL='-'};
ZZZZ010229	35000	=SQL_SET{SYSTEM_SEQ,.?WN.XOBJECT?}
ZZZZ010229	35100	= {SELECT SYSTEM_SEQ,?WN.XOBJECT?
ZZZZ010229	35200	=FROM ?_TABLE? WHERE ?WN.XWHERE? AND SYSTEM_SEQ=(SELECT
ZZZZ010229	35300	=MAX(SYSTEM_SEQ) FROM ?_TABLE? WHERE ?WN.XWHERE?
ZZZZ010229	35400	=AND Z_CANCEL=' ')};
ZZZZ010229	35500	=SET{WN.OPTION_O='O',S_CMD=};
ZZZZ010229	35600	=SET{%OBJECT='-'};
ZZZZ010229	35700	=EXIT{+1};EXIT{};
ZZZZ010229	35800	=COPY2:SET{WN.XKEYCOPY=WN.2,WN.BEGIN=,WN.END=};
ZZZZ010229	35900	=IF_ERROR_SET{W0.LOCATE=WN.3}ERROR{COPY LOCATE(?WN.3?)ERROR};
ZZZZ010229	36000	=IF_ERROR_SET{W0.BEGIN=WN.4}ERROR{COPY BEGIN(?WN.4?) ERROR};
ZZZZ010229	36100	=IF_ERROR_SET{W0.END=WN.5}ERROR{COPY END(?WN.5?) ERROR};
ZZZZ010229	36200	=COPY3:IF{WN.XKEYCOPY='*'}SET{WN.XKEYCOPY=?WN.XKEY?};
ZZZZ010229	36300	=COPY2:SET{W0.CEND=99999};IF{W0.LOCATE=0}JUMP{LOCATE_0};
ZZZZ010229	36400	=SQL_SET{W0.CEND}{SELECT MIN(SYSTEM_SEQ) FROM ?_TABLE?
ZZZZ010229	36500	=WHERE ?WN.XWHERE? AND SYSTEM_SEQ>?W0.LOCATE?
ZZZZ010229	36510	=   AND Z_CANCEL=' '
ZZZZ010229	36600	=GROUP BY ?WN.XKEY? ORDER BY ?WN.XKEY?};
ZZZZ010229	36700	=IF{_SQL_SET_COUNT=0}SET{W0.LOCATE=0,W0.CEND=99999};
ZZZZ010229	36800	NAME=BEGIN_END_CHECK
ZZZZ010229	36900	=SET{WN.BEGIN=,WN.END=};
ZZZZ010229	37000	=IF{W0.BEGIN=0}JUMP{BEGIN_0};
ZZZZ010229	37100	=SQL_SET{}{SELECT SYSTEM_SEQ FROM ?WN.XTABLECOPY?
ZZZZ010229	37200	= WHERE ?WN.XKEY?='?WN.XKEYCOPY?' AND SYSTEM_SEQ=?W0.BEGIN?
ZZZZ010229	37300	=  AND SYSTEM_KIND='?.SYSTEM_KIND?' AND Z_CANCEL=' '};
ZZZZ010229	37400	=IF{_SQL_SET_COUNT=0}
ZZZZ010229	37500	=  ERROR{?WN.XKEYCOPY? BEGIN(?W0.BEGIN?) NOT FOUND};
ZZZZ010229	37600	= SET{WN.BEGIN='AND SYSTEM_SEQ>='+W0.BEGIN};
ZZZZ010229	37700	=BEGIN_0:IF{W0.END=0}JUMP{END_0};
ZZZZ010229	37800	=SQL_SET{}{SELECT SYSTEM_SEQ FROM ?WN.XTABLECOPY? ?_T?
ZZZZ010229	37900	= WHERE ?WN.XKEY?='?WN.XKEYCOPY?' AND SYSTEM_SEQ=?W0.END?
ZZZZ010229	38000	= AND SYSTEM_KIND='?.SYSTEM_KIND?' AND Z_CANCEL=' '};
ZZZZ010229	38100	=IF{_SQL_SET_COUNT=0}
ZZZZ010229	38200	=   ERROR{?WN.XKEYCOPY? END(?W0.END?) NOT FOUND};
ZZZZ010229	38300	=SET{WN.END='AND SYSTEM_SEQ<='+W0.END};
ZZZZ010229	38400	=END_0:IF{W0.END<W0.BEGIN}ERROR{BEGIN > END};
ZZZZ010229	38500	=IF{W0.BEGIN<0}ERROR{BEGIN < 0};
ZZZZ010229	38600	NAME=COPY
ZZZZ010229	38700	=LOCATE_0:
ZZZZ010229	38800	=IF{W0.LOCATE!=0}
ZZZZ010229	38900	=   COMPUTE_CUT{W0.CCC=W0.CEND-W0.LOCATE,-=1}JUMP{SKIP};
ZZZZ010229	39000	=SET{W0.CCC=99999};
ZZZZ010229	39100	=SQL_SET{W0.LOCATE}{SELECT (MAX(SYSTEM_SEQ)+100)/100*100 FROM
ZZZZ010229	39200	=   ?_TABLE? WHERE ?WN.XWHERE? AND Z_CANCEL=' '};
ZZZZ010229	39300	=IF{_SQL_SET_COUNT=0}SET{W0.LOCATE=0};
ZZZZ010229	39400	=SKIP:
ZZZZ010229	39500	=LINK_SET{WN.SQL0}
ZZZZ010229	39510	=   {SELECT SYSTEM_COM,SYSTEM_SIGN,?WN.XOBJECT? FROM}
ZZZZ010229	39600	=  {?WN.XTABLECOPY?}
ZZZZ010229	39700	=  {X1}{WHERE ?WN.XKEY?='?WN.XKEYCOPY?'
ZZZZ010229	39800	=   AND SYSTEM_KIND='?.SYSTEM_KIND?'
ZZZZ010229	39900	=   AND Z_CANCEL=' ' ?WN.BEGIN? ?WN.END?
ZZZZ010229	39910	=   ORDER BY SYSTEM_SEQ};
ZZZZ010229	40000	=SQL1{?WN.SQL0?};
ZZZZ010229	40400	=IF{_SQL1_COUNT=0}ERROR{DATA COUNT ZERO};
ZZZZ010229	40500	=IF{W0.CCC<_SQL1_COUNT}ERROR{DATA COUNT OVER};
ZZZZ010229	40600	=COMPUTE_CUT{W0.CCC/=_SQL1_COUNT};
ZZZZ010229	40700	=IF{W0.CCC>10}SET{W0.CCC=10};
ZZZZ010229	40800	=IF{W0.CCC>100}SET{W0.CCC=100};
ZZZZ010229	40900	=SQL1_NEXT:SQL1_NEXT{WN.SYSTEM_COM,WN.SYSTEM_SIGN,WN.VALUE}
ZZZZ010229	40910	=   JUMP{SQL1_END};
ZZZZ010229	41000	=LOOP:COMPUTE{W0.LOCATE+=W0.CCC};
ZZZZ010229	41100	=SQL_SET{WN.CANCEL}{SELECT Z_CANCEL FROM ?_TABLE? ?_T? WHERE
ZZZZ010229	41200	= ?WN.XWHERE? AND SYSTEM_SEQ=?W0.LOCATE?
ZZZZ010229	41300	=  AND SYSTEM_KIND='?.SYSTEM_KIND?'};
ZZZZ010229	41400	=IF{_SQL_SET_COUNT=0}JUMP{C_INSERT};
ZZZZ010229	41500	=IF{WN.CANCEL=}BACK{LOOP};
ZZZZ010229	41600	=C_UPDATE:IF_ERROR_SQL{UPDATE ?_TABLE? SET
ZZZZ010229	41700	= ?WN.XOBJECT?='?WN.VALUE?',?_VRE&WN.SYSTEM_COM?
ZZZZ010229	41800	= ,?_VRE&WN.SYSTEM_SIGN?
ZZZZ010229	41810	= ,?_Z_UPDATE_ADD? WHERE ?WN.XWHERE?
ZZZZ010229	41900	= AND SYSTEM_SEQ=?W0.LOCATE?
ZZZZ010229	41910	= AND SYSTEM_KIND='?.SYSTEM_KIND?'
ZZZZ010229	42000	= AND Z_CANCEL<>' '}ERROR{};
ZZZZ010229	42100	=BACK{SQL1_NEXT};
ZZZZ010229	42200	=C_INSERT:IF_ERROR_SQL{
ZZZZ010229	42210	=   INSERT INTO ?_TABLE?(SYSTEM_KIND,?WN.XKEY?
ZZZZ010229	42300	=,SYSTEM_SEQ,SYSTEM_COM
ZZZZ010229	42310	=   ,?WN.XOBJECT?,?_Z_INSERT_NAME?)
ZZZZ010229	42400	=VALUES('?.SYSTEM_KIND?','?WN.XKEYVALUE?',?W0.LOCATE?,
ZZZZ010229	42500	=   '?WN.SYSTEM_COM?','?WN.SYSTEM_SIGN?'
ZZZZ010229	42510	=   ,'?WN.VALUE?',?_Z_INSERT_VALUE?)}
ZZZZ010229	42600	=  ERROR{};
ZZZZ010229	42700	=BACK{SQL1_NEXT};
ZZZZ010229	42800	=SQL1_END:
ZZZZ010229	42900	NAME=
ZZZZ010229	43000	=IF{WN.1='MOVE'}JUMP{CANCEL2};
ZZZZ010229	43100	=JUMP{S_END};
ZZZZ010229	43200	*****( CHANGE )****************************************
ZZZZ010229	43300	=CHANGE:
ZZZZ010229	43400	=IF{WN.2!=}JUMP{OK};
ZZZZ010229	43500	=IF{WN.2@COUNT<2,WN.3@COUNT<2}JUMP{ERR};
ZZZZ010229	43600	=IF{WN.2[1;1]='''',WN.2[WN.2@COUNT;1]=''''
ZZZZ010229	43700	=,WN.3[1;1]='''',WN.3[WN.3@COUNT;1]=''''}JUMP{OK};
ZZZZ010229	43800	=ERR:ERROR{C 'O' 'N'};
ZZZZ010229	43900	=OK:
ZZZZ010229	44000	=COMPUTE{W0.L=WN.2@COUNT-2};SET{WN.CHO=WN.2[2;W0.L]};
ZZZZ010229	44100	=COMPUTE{W0.L=WN.3@COUNT-2};SET{WN.CHN=WN.3[2;W0.L]};
ZZZZ010229	44200	=IF{WN.CHO='',='  ',='   ',='    ',='     '}
ZZZZ010229	44300	=  ERROR{'O'=SPACE};
ZZZZ010229	44400	=IF{WN.CHO=WN.CHN}ERROR{'O'='N'};
ZZZZ010229	44500	=IF_ERROR_SET{W0.BEGIN=WN.4}ERROR{BEGIN(?WN.4?) ERROR};
ZZZZ010229	44600	=IF_ERROR_SET{W0.END=WN.5}ERROR{END(?WN.5?) ERROR};
ZZZZ010229	44700	COPY=BEGIN_END_CHECK
ZZZZ010229	44800	=IF_ERROR_SQL1{SELECT
ZZZZ010229	44900	=   REPLACE(RTRIM(?WN.XOBJECT?),'?WN.CHO?','?WN.CHN?')
ZZZZ010229	44910	=   ,SYSTEM_SEQ
ZZZZ010229	45000	=FROM ?_TABLE? WHERE ?WN.XWHERE?
ZZZZ010229	45100	=AND Z_CANCEL=' ' AND RTRIM(?WN.XOBJECT?)<>
ZZZZ010229	45200	=REPLACE(RTRIM(?WN.XOBJECT?),'?WN.CHO?','?WN.CHN?')
ZZZZ010229	45300	=  ?WN.BEGIN? ?WN.END? ORDER BY 1 DESC}ERROR{};
ZZZZ010229	45400	=IF{_SQL1_COUNT=0}ERROR{CHANGE RECORD NOT FOUND};
ZZZZ010229	45500	=SQL1_NEXT:SQL1_NEXT{WN.PROG,WN.SYSTEM_SEQ}JUMP{SQL1_END};
ZZZZ010229	45600	=IF{WN.PROG@FORM_LENGTH>61}
ZZZZ010229	45610	=   ERROR{LENGTH OVER (?WN.SYSTEM_SEQ?)};
ZZZZ010229	45700	=BACK{SQL1_NEXT};
ZZZZ010229	45800	=SQL1_END:IF_ERROR_SQL{UPDATE ?_TABLE? SET ?_Z_UPDATE_CHANGE?
ZZZZ010229	45900	=   ,?WN.XOBJECT?=REPLACE(RTRIM(?WN.XOBJECT?)
ZZZZ010229	46000	=  ,'?WN.CHO?','?WN.CHN?') WHERE ?WN.XWHERE? AND Z_CANCEL=' '
ZZZZ010229	46100	=   ?WN.BEGIN? ?WN.END? AND RTRIM(?WN.XOBJECT?)<>
ZZZZ010229	46200	= REPLACE(RTRIM(?WN.XOBJECT?),'?WN.CHO?','?WN.CHN?')}ERROR{};
ZZZZ010229	46300	=JUMP{S_END};
ZZZZ010229	46400	******( CANCEL )****************************
ZZZZ010229	46500	=CANCEL:
ZZZZ010229	46600	=IF{WN.2=}ERROR{CANCEL BEGIN ERROR};
ZZZZ010229	46700	=IF{WN.3=}SET{WN.3=WN.2};
ZZZZ010229	46800	=IF_ERROR_SET{W0.BEGIN=WN.2}ERROR{CANCEL BEGIN NOT NUMERIC};
ZZZZ010229	46900	=IF_ERROR_SET{W0.END=WN.3}ERROR{CANCEL ... END NOT NUMERIC};
ZZZZ010229	47000	COPY=BEGIN_END_CHECK
ZZZZ010229	47100	=CANCEL2:
ZZZZ010229	47200	=SQL{UPDATE ?_TABLE? SET ?_Z_UPDATE_CANCEL? WHERE ?WN.XWHERE?
ZZZZ010229	47300	=AND SYSTEM_SEQ BETWEEN ?W0.BEGIN? AND ?W0.END?};
ZZZZ010229	47400	=JUMP{S_END};
ZZZZ010229	47500	******( SAMPLE )***************************
ZZZZ010229	47600	=SAMPLE:
ZZZZ010229	47700	=SET{W0.SYSTEM_SEQ=100};
ZZZZ010229	47800	=SQL_SET{W0.SYSTEM_SEQ}{SELECT MAX(SYSTEM_SEQ) FROM
ZZZZ010229	47900	=?_TABLE? WHERE ?WN.XWHERE? AND Z_CANCEL=' '};
ZZZZ010229	48000	=SQL1{SELECT SYSTEM_ETC,SYSTEM_COMMENT
ZZZZ010229	48010	=   FROM ?_MM?_ETC_TABLE WHERE
ZZZZ010229	48100	= SYSTEM_KEY1='ZZZZZZ_OBJECT_SAMPLE'
ZZZZ010229	48110	= AND SYSTEM_KEY2 LIKE '?.SYSTEM_KIND?%'
ZZZZ010229	48200	=   AND Z_CANCEL=' ' ORDER BY SYSTEM_KEY2};
ZZZZ010229	48300	=SQL1_NEXT:SQL1_NEXT{WN.SYSTEM_OBJECT,WN.COMM}JUMP{S_END};
ZZZZ010229	48400	=SAMPLE_L:SQL_SET{}{SELECT ' ' FROM ?_TABLE? WHERE
ZZZZ010229	48500	= ?WN.XWHERE? AND SYSTEM_SEQ=?W0.SYSTEM_SEQ?};
ZZZZ010229	48600	=IF{_SQL_SET_COUNT=0}JUMP{SAMPLE_OK};
ZZZZ010229	48700	=COMPUTE{W0.SYSTEM_SEQ+=100};BACK{SAMPLE_L};
ZZZZ010229	48800	=SAMPLE_OK:
ZZZZ010229	48900	=SET{WC.SYSTEM_COM=WN.SYSTEM_COMM[1;1]
ZZZZ010229	48910	=   ,WC.SYSTEM_SIGN=WN.SYSTEM_COMM[3;1]};
ZZZZ010229	49000	=INSERT{?_TABLE?,.SYSTEM_KIND,.SYSTEM_NAME,W0.SYSTEM_SEQ
ZZZZ010229	49100	=  ,WC.SYSTEM_COM,WC.SYSTEM_SIGN,WN.SYSTEM_OBJECT};
ZZZZ010229	49200	=BACK{SQL1_NEXT};
ZZZZ010229	49300	******( DISCARD )**************************
ZZZZ010229	49400	=DISCARD:DBO_SQL{DELETE FROM ?_TABLE? WHERE ?WN.XWHERE?
ZZZZ010229	49500	=AND Z_CANCEL<>' '};
ZZZZ010229	49600	=JUMP{S_END};
ZZZZ010229	49700	******( RENUMBER )**************************
ZZZZ010229	49800	=RENUMBER:SQL_SET{W0.CNT}{SELECT COUNT(*) FROM ?_TABLE?
ZZZZ010229	49900	= WHERE ?WN.XWHERE?};
ZZZZ010229	50000	=SET{W0.CNT=100};IF{W0.CNT>900}SET{W0.CNT=10};
ZZZZ010229	50100	=SET{W0.SYSTEM_SEQ=W0.CNT};
ZZZZ010229	50200	=SQL{UPDATE ?_TABLE? SET SYSTEM_SEQ=SYSTEM_SEQ+100000000
ZZZZ010229	50300	=   WHERE ?WN.XWHERE?};
ZZZZ010229	50400	=SQL1{SELECT SYSTEM_SEQ FROM ?_TABLE? ?_LOCK1?
ZZZZ010229	50410	=   WHERE ?WN.XWHERE?
ZZZZ010229	50500	=   ORDER BY SYSTEM_SEQ ?_LOCK2?};
ZZZZ010229	50600	=SQL1_NEXT:SQL1_NEXT{WN.SYSTEM_SEQ}JUMP{S_END};
ZZZZ010229	50700	=SQL{UPDATE ?_TABLE? SET SYSTEM_SEQ=?W0.SYSTEM_SEQ?
ZZZZ010229	50710	=   WHERE ?WN.XWHERE?
ZZZZ010229	50800	=   AND SYSTEM_SEQ=?WN.SYSTEM_SEQ?};
ZZZZ010229	50900	=COMPUTE{W0.SYSTEM_SEQ+=W0.CNT};BACK{SQL1_NEXT};
ZZZZ010229	51000	=JUMP{S_END};
ZZZZ010229	51100	****( 汎用処理 OUTPUT 2/2 BEGIN )*****
ZZZZ010229	51200	******( LOCATE )***************************
ZZZZ010229	51300	=UP:IF{WN.2=}SET{WN.2=1000};
ZZZZ010229	51400	=IF_ERROR_COMPUTE{SYSTEM_SEQ=SYSTEM_SEQ_NOW-WN.2}
ZZZZ010229	51410	=   SET{SYSTEM_SEQ=0};
ZZZZ010229	51500	=JUMP{S_END};
ZZZZ010229	51600	=DOWN:IF{WN.2=}SET{WN.2=1000};
ZZZZ010229	51700	=IF_ERROR_COMPUTE{.SYSTEM_SEQ=.SYSTEM_SEQ_NOW+WN.2}NOP{};
ZZZZ010229	51800	=JUMP{S_END};
ZZZZ010229	51900	=LOCATE:IF_ERROR_SET{.SYSTEM_SEQ=WN.2}
ZZZZ010229	51910	=   ERROR{LOCATE LOC NO GOOD};
ZZZZ010229	52000	=JUMP{S_END};
ZZZZ010229	52100	******( FIND )*****************************
ZZZZ010229	52200	=FIND10:SET{.SYSTEM_SEQ=0,.SYSTEM_SEQ_NOW=0};
ZZZZ010229	52300	=FIND1:SET{S_FIND=#FIND};
ZZZZ010229	52400	=JUMP{T1};
ZZZZ010229	52500	=FINDX0:SET{.SYSTEM_SEQ=0,.SYSTEM_SEQ_NOW=0};
ZZZZ010229	52600	=FINDX:SET{S_FIND=S_CMD[W0.C],WN.EQ='='};
ZZZZ010229	52700	=IF{S_FIND=}SET{S_FIND=#FIND};
ZZZZ010229	52800	=T1:SET{#FIND=S_FIND};
ZZZZ010229	52900	=SET{WN.F=_FIND((WN.XOBJECT);"S_FIND")};
ZZZZ010229	53000	=SQL_SET{S_FIND_COUNT}{SELECT COUNT(*) FROM
ZZZZ010229	53100	=?_TABLE? WHERE ?WN.XWHERE?
ZZZZ010229	53200	=AND ?WN.F?>0 AND Z_CANCEL=' '};
ZZZZ010229	53300	=IF{WN.1[1;2]!='FF'}JUMP{T4};
ZZZZ010229	53400	=SET{_DATA@WHERE=WN.F+'>0'};
ZZZZ010229	53500	=JUMP{S_END};
ZZZZ010229	53600	=T4:SET{WN.MAX_MIN='MIN'};
ZZZZ010229	53700	******( NEXT )************
ZZZZ010229	53800	=NEXT:
ZZZZ010229	53900	=SET{WGL='>'};IF{WN.MAX_MIN='MAX'}SET{WGL='<'};
ZZZZ010229	54000	=SQL_SET{WN.LOCATE}{SELECT ?WN.MAX_MIN?(SYSTEM_SEQ) FROM
ZZZZ010229	54100	= ?_TABLE? WHERE ?WN.XWHERE? AND ?WN.F?>0 AND Z_CANCEL=' '
ZZZZ010229	54200	=AND SYSTEM_SEQ?WGL??WN.EQ?0?.SYSTEM_SEQ_NOW?};
ZZZZ010229	54300	=IF{_SQL_SET_COUNT=0}JUMP{S_END};
ZZZZ010229	54400	=SET{.SYSTEM_SEQ=WN.LOCATE};
ZZZZ010229	54500	=JUMP{S_END};
ZZZZ010229	54600	****(BROWSE)******************
ZZZZ010229	54700	=BROWSE:
ZZZZ010229	54800	=EXE{?WC.BROWSE?,?$WC.WORK_FILE?};
ZZZZ010229	54900	*****( END )**********************
ZZZZ010229	55000	=S_CMD:SET{S_CMD=};EXIT{S_CMD};
ZZZZ010229	55100	=S_END:SET{S_CMD=};EXIT{};
ZZZZ010229	55200	****( 汎用処理 END )*****
ZZZZ010229	55300	SET={O,*}S_FIND_COUNT{9,,+}
ZZZZ010229	55400	JA+TITLE=F数
ZZZZ010229	55500	SET={O,*}S_FIND{54}
ZZZZ010229	55600	JA+TITLE=F文字
ZZZZ010229	55700	SET={O>=}.SYSTEM_SEQ{5,,+,C}
ZZZZ010229	55800	JA+TITLE=頭出番号
ZZZZ010229	55900	SET={O,*}.SYSTEM_SEQ_NOW{5,,+,C}
ZZZZ010229	56000	JA+TITLE=現在番号
ZZZZ010229	56100	SET=S_DEL{3,}{,YES}
ZZZZ010229	56200	JA+TITLE=削除
ZZZZ010229	56300	=SET{WN.DEL=};IF{S_DEL=}SET{WN.DEL='CASE WHEN Z_CANCEL'
ZZZZ010229	56400	=+'='' '' THEN 0 ELSE 1 END,Z_CANCEL,'};
ZZZZ010229	56500	START
ZZZZ010229	56600	=SET{WN.OPTION_O=};
ZZZZ010229	56700	=SET{WN.XKEYCOPY=.SYSTEM_NAME};
ZZZZ010229	56800	=SET{%TABLE='-',%COPY='-',%MOVE='-'
ZZZZ010229	56900	=,%CANCEL='-'};
ZZZZ010229	57000	=SET{WN.XTABLECOPY=_TABLE};
ZZZZ010229	57100	=IF{.SYSTEM_NAME/'ZZZZZZ_'}
ZZZZ010229	57200	= IF{_PERSON!='ZZZZZZZZ'}ERROR{PERSON IS NOT 'ZZZZZZZZ'};
ZZZZ010229	57300	DATA={*N}?&DATA&Z_CANCEL?
ZZZZ010229	57400	DATA={K}?&.DATA&SYSTEM_SEQ?
ZZZZ010229	57500	DATA=?&.DATA&SYSTEM_COM?
ZZZZ010229	57600	CHECK=,*,D,H,I,L,M,O,P
ZZZZ010229	57700	=IF_NOT{_DATA=,='*'}EXIT{};
ZZZZ010229	57800	=SET{.SYSTEM_SIGN=.SYSTEM_COM};EXIT{SYSTEM_OBJECT};
ZZZZ010229	57900	DATA=?&.DATA&SYSTEM_SIGN?
ZZZZ010229	58000	CHECK=+,-
ZZZZ010229	58100	DATA=?&.DATA&SYSTEM_OBJECT?
ZZZZ010229	58200	=SET{WC.QSW=0,W0.=1};
ZZZZ010229	58300	=LOOP:IF{W0.>_DATA@COUNT}JUMP{FIN};
ZZZZ010229	58400	=IF{_DATA[W0.;1]!='?_Q?'}JUMP{NOT_Q};
ZZZZ010229	58500	=COMPUTE{WC.QSW+=1};IF{WC.QSW=2}SET{WC.QSW=0};
ZZZZ010229	58600	=NOT_Q:COMPUTE{W0.+=1};BACK{LOOP};
ZZZZ010229	58700	=FIN:IF{WC.QSW=1}ERROR{?_Q? IS NOT EVEN};
ZZZZ010229	58800	DATA={*N}FIND{9}
ZZZZ010229	58900	SELECT=?WN.F?
ZZZZ010229	59000	STOP_AFTER
ZZZZ010229	59100	=SET{.SYSTEM_CREATE=$WC.CREATE_BAD};
ZZZZ010229	59200	*SQL_SET{}{SELECT SYSTEM_KIND
ZZZZ010229	59210	* FROM ?_MM?_I_OBJECT_TABLE WHERE
ZZZZ010229	59300	*SYSTEM_KIND='?.SYSTEM_KIND?'
ZZZZ010229	59400	*AND SYSTEM_NAME='?.SYSTEM_NAME?'
ZZZZ010229	59500	*AND Z_CANCEL=' '}SET{_ESC=1};
ZZZZ010229	59600	=SQL{UPDATE ?_MM?_I_OBJECT_ID_TABLE SET ?_Z_UPDATE_CHANGE?
ZZZZ010229	59700	*%TEST-=,TEST=' '
ZZZZ010229	59800	=,SYSTEM_TEST='?$WC.TEST?'
ZZZZ010229	59900	=,.SYSTEM_CREATE='?$WC.CREATE_BAD?' WHERE ?_VRE&.SYSTEM_NAME?
ZZZZ010229	60000	=AND SYSTEM_KIND='?.SYSTEM_KIND?'};
ZZZZ010229	60100	COPY=@ZZZZZZ_SQL
ZZZZ010229	60200	=IF{_PAGE_SW=}SET{_PAGE_SW=1,.SYSTEM_SEQ_NOW=SYSTEM_SEQ};
ZZZZ010229	60300	*SQL=SELECT ?_1?,?_2?,?_3?,?_4?,?_WN.F?,Z_CANCEL
ZZZZ010229	60400	*SQL=FROM ?_MM?_I_OBJECT_TABLE ?_T? WHERE
ZZZZ010229	60500	*SQL=    SYSTEM_KIND='?.SYSTEM_KIND?'
ZZZZ010229	60600	*SQL=AND ?_VRE&SYSTEM_NAME?
ZZZZ010229	60700	*SQL= ORDER BY ?WN.DEL?SYSTEM_SEQ
ZZZZ010229	60800	*##( 2 )###################################################
ZZZZ010229	60900	%NO_XT_OBJECT-COMMENT_BEGIN
ZZZZ010229	61000	%TABLE-COMMENT2_BEGIN
ZZZZ010229	61100	PROGRAM=OUTPUT
ZZZZ010229	61200	CONTROL=0
ZZZZ010229	61300	BEGIN
ZZZZ010229	61400	=SET{WN.M_W1='M',WN.M_W2='M',WN.M_W3='W',WN.M_W4='W'};
ZZZZ010229	61500	=SET{WM=_MM_?$WN.TEST?};
ZZZZ010229	61600	SET=.SYSTEM_NAME{}
ZZZZ010229	61700	JA+TITLE=テーブル
ZZZZ010229	61800	START
ZZZZ010229	61900	=IF{.SYSTEM_WORK='MAST'}
ZZZZ010229	62000	=   SET{WN.DB=_MX_?$WN.TEST?_?$.SYSTEM_PERMISSION?}JUMP{};
ZZZZ010229	62100	=SET{   WN.DB=_WN.X_?$WN.TEST?_?$.SYSTEM_PERMISSION?};
ZZZZ010229	62200	=SET_TABLE{&X1,?WN.DB??SYSTEM_NAME?};
ZZZZ010229	62300	=SET{W0.C=0};SQL_SET{W0.C}{SELECT MAX(SYSTEM_SEQ) FROM
ZZZZ010229	62400	=   ?$&.TABLE? WHERE ?$WN.XWHERE?};
ZZZZ010229	62500	=IF_ERROR_COMPUTE{W0.C/=100}NOP{};COMPUTE{W0.C*=100,+=100};
ZZZZ010229	62600	=TABLE2:SQL_SET{W0.SYSTEM_SEQ}{SELECT MAX(SYSTEM_SEQ)  FROM
ZZZZ010229	62700	=  ?_MM?_I_OBJECT_TABLE WHERE SYSTEM_NAME='?$SYSTEM_NAME?'
ZZZZ010229	62800	=  AND SYSTEM_KIND='?$.SYSTEM_KIND?'};
ZZZZ010229	62900	=IF{_SQL_SET_COUNT=0}SET{W0.SYSTEM_SEQ=0};
ZZZZ010229	63000	=SQL1{SELECT SYSTEM_DATA_NAME FROM
ZZZZ010229	63100	=  ?$WN.DBX?ZZZZZZ_M_?$.SYSTEM_PERMISSION?_COLUMN_VIEW WHERE
ZZZZ010229	63200	=   ?_VRE&SYSTEM_NAME? ORDER BY SYSTEM_SEQ};
ZZZZ010229	63300	=SQL1_NEXT{WN.SYSTEM_NAME}ERROR{TABLE NOT FOUND};
ZZZZ010229	63400	=SET{WSEP='('};
ZZZZ010229	63500	=LOOP:COMPUTE{W0.SYSTEM_SEQ+=10};
ZZZZ010229	63600	=SQL{INSERT INTO ?_MM?_I_OBJECT_TABLE(?_Z_INSERT_NAME?
ZZZZ010229	63700	=   ,SYSTEM_KIND,SYSTEM_NAME,SYSTEM_SEQ
ZZZZ010229	63710	=   ,SYSTEM_COM,SYSTEM_OBJECT)
ZZZZ010229	63800	=   VALUES(?_Z_INSERT_VALUE?,'?$.SYSTEM_KIND?'
ZZZZ010229	63900	=   ,'?$SYSTEM_NAME?',?W0.SYSTEM_SEQ?,' '
ZZZZ010229	63910	=   ,'?WSEP??WN.SYSTEM_NAME?')};
ZZZZ010229	64000	=SET{WSEP=','};
ZZZZ010229	64100	=SQL1_NEXT{WN.SYSTEM_NAME}JUMP{SQL1_END};
ZZZZ010229	64200	=BACK{LOOP};
ZZZZ010229	64300	=SQL1_END:COMPUTE{W0.SYSTEM_SEQ+=100};
ZZZZ010229	64400	=SQL{INSERT INTO ?_MM?_I_OBJECT_TABLE(?_Z_INSERT_NAME?
ZZZZ010229	64500	=   ,SYSTEM_KIND,SYSTEM_NAME,SYSTEM_SEQ
ZZZZ010229	64510	=   ,SYSTEM_COM,SYSTEM_OBJECT)
ZZZZ010229	64600	=   VALUES(?_Z_INSERT_VALUE?,'?$.SYSTEM_KIND?'
ZZZZ010229	64700	=   ,'?$SYSTEM_NAME?',?W0.SYSTEM_SEQ?,' ',')AS SELECT')};
ZZZZ010229	64800	=SQL1_FIRST{};
ZZZZ010229	64900	=SQL1_NEXT{WN.SYSTEM_NAME}JUMP{SQL1_END};
ZZZZ010229	65000	=SET{WSEP=' '};
ZZZZ010229	65100	=LOOP:COMPUTE{W0.SYSTEM_SEQ+=10};
ZZZZ010229	65200	=SQL{INSERT INTO ?_MM?_I_OBJECT_TABLE(?_Z_INSERT_NAME?
ZZZZ010229	65300	=   ,SYSTEM_KIND,SYSTEM_NAME,SYSTEM_SEQ
ZZZZ010229	65310	=   ,SYSTEM_COM,SYSTEM_OBJECT)
ZZZZ010229	65400	=   VALUES(?_Z_INSERT_VALUE?,'?$.SYSTEM_KIND?'
ZZZZ010229	65500	=   ,'?$SYSTEM_NAME?',?W0.SYSTEM_SEQ?,' '
ZZZZ010229	65510	=   ,'?WSEP?X1.?WN.SYSTEM_NAME?')};
ZZZZ010229	65600	=SQL1_NEXT{WN.SYSTEM_NAME}JUMP{SQL1_END};
ZZZZ010229	65610	=SET{WSEP=','};BACK{LOOP};
ZZZZ010229	65700	=SQL1_END:COMPUTE{W0.SYSTEM_SEQ+=10};
ZZZZ010229	65710	=SET{WC.TBL
ZZZZ010229	65720	=='?_Q?_MP_?SYSTEM_NAME[1;4]??_Q??SYSTEM_NAME[5]?'};
ZZZZ010229	65800	=SQL{INSERT INTO ?_MM?_I_OBJECT_TABLE(?_Z_INSERT_NAME?
ZZZZ010229	65900	=   ,SYSTEM_KIND,SYSTEM_NAME,SYSTEM_SEQ
ZZZZ010229	65910	=   ,SYSTEM_COM,SYSTEM_OBJECT)
ZZZZ010229	66000	=   VALUES(?_Z_INSERT_VALUE?,'?$.SYSTEM_KIND?'
ZZZZ010229	66100	=   ,'?$SYSTEM_NAME?',?W0.SYSTEM_SEQ?,' '
ZZZZ010229	66110	=   ,' FROM ?WC.TBL? ?_T?')};
ZZZZ010229	66300	=SET{_RETURN_SQL=1};EXIT{-1};
ZZZZ010229	66400	DATA={KO}?$&.DATA&SYSTEM_NAME?
ZZZZ010229	66500	DATA={KO}.SYSTEM_WORK{4}
ZZZZ010229	66600	JA+TITLE=ワーク
ZZZZ010229	66700	DATA={KO}?$&.DATA&SYSTEM_KIND?
ZZZZ010229	66800	REPEAT=2
ZZZZ010229	66900	SQL=?_UNION##? SELECT SYSTEM_NAME,SYSTEM_WORK,SYSTEM_KIND
ZZZZ010229	67000	SQL=FROM ?WM?_?WN.M_W##?_?$SYSTEM_PERMISSION?_OBJECT_VIEW
ZZZZ010229	67100	SQL=WHERE SYSTEM_KIND IN('TABLE')
ZZZZ010229	67200	SQL=AND   SYSTEM_NAME LIKE '?SYSTEM_NAME?%'
ZZZZ010229	67300	REPEAT=_ORDER_COUNT
ZZZZ010229	67400	SQL=?_ORDER##?
ZZZZ010229	67500	REPEAT=
ZZZZ010229	67600	%TABLE-COMMENT2_END
ZZZZ010229	67700	PROGRAM=OUTPUT,&X1,?$WN.XTABLE?
ZZZZ010229	67800	CONTROL=0,ERROR_SQL
ZZZZ010229	67900	BEGIN
ZZZZ010229	68000	=SET{S1.?$WN.XKEY?=$WN.XKEYCOPY
ZZZZ010229	68100	=,.?$WN.XKEY?=$WN.XKEYCOPY,WN.XKEYCOPY=$WN.XKEYCOPY};
ZZZZ010229	68200	*=SET{S1.SYSTEM_SEQ=$.SYSTEM_SEQ
ZZZZ010229	68300	=   ,S1.?$WN.XOBJECT?=$.?$WN.XOBJECT?};
ZZZZ010229	68400	=SQL_SET{COUNT,W0.CEND}{SELECT
ZZZZ010229	68500	= CASE WHEN MIN(SYSTEM_SEQ) IS NULL THEN -1 ELSE
ZZZZ010229	68600	= MIN(SYSTEM_SEQ)-?S1.SYSTEM_SEQ?-1 END,MIN(SYSTEM_SEQ)
ZZZZ010229	68700	= FROM ?_TABLE? WHERE ?$WN.XWHERE?
ZZZZ010229	68710	= AND SYSTEM_SEQ>?S1.SYSTEM_SEQ?
ZZZZ010229	68800	=AND Z_CANCEL=' '};
ZZZZ010229	68900	=SET{WN.OPTION='CANCEL'};
ZZZZ010229	69000	=IF{COUNT=0}EXIT{};
ZZZZ010229	69100	=IF{COUNT<0}SET{COUNT=0,W0.CEND=99999};
ZZZZ010229	69200	%COPY-=SET{WN.OPTION='COPY,CANCEL,MOVE'};
ZZZZ010229	69300	%COPY+=SET{WN.OPTION='COPY',OPTION='COPY'};
ZZZZ010229	69400	SET={O}COUNT{5,,-}
ZZZZ010229	69500	SET={O,,80}S1.?$WN.XKEYDATA?
ZZZZ010229	69600	SET={O}S1.=?&.SET&S1.SYSTEM_SEQ?
ZZZZ010229	69700	SET={O}S1.?$WN.XOBJECTDATA?
ZZZZ010229	69800	TITLE=
ZZZZ010229	69900	SET={?$WN.OPTION_O?}OPTION{7,,}{?WN.OPTION?}
ZZZZ010229	70000	=SET{%COPY='-',%CANCEL='-',%MOVE='-'};
ZZZZ010229	70100	=IF{_DATA='COPY'}  SET{%COPY='+'};
ZZZZ010229	70200	=IF{_DATA='CANCEL'}SET{%CANCEL='+'};
ZZZZ010229	70300	=IF{_DATA='MOVE'}  SET{%MOVE='+'};
ZZZZ010229	70400	=J:SET{WN.H='AND ?_T?.?_VRGE&S1.SYSTEM_SEQ?'};
ZZZZ010229	70500	=IF{_DATA!='CANCEL'}SET{WN.H=};
ZZZZ010229	70600	=IF{_DATA='COPY'}EXIT{};
ZZZZ010229	70700	=SET{SAVE=,LINK_SERVER=
ZZZZ010229	70800	= ,.?$WN.XKEY?=$.?$WN.XKEY?};EXIT2{LINK_SERVER};
ZZZZ010229	70900	SET={}.?$WN.XKEYDATA?
ZZZZ010229	71000	=SET{WN.XKEYCOPY=_DATA};
ZZZZ010229	71100	SET={}SAVE{3}{,YES}SAVE(MORNING)
ZZZZ010229	71200	=IF{_DATA!='YES'}EXIT{};
ZZZZ010229	71300	=SET{LINK_SERVER=}EXIT2{LINK_SERVER};
ZZZZ010229	71400	SET={}LINK_SERVER{8}
ZZZZ010229	71500	CHECK2=SELECT CAST(' ' AS CHAR(8))
ZZZZ010229	71600	CHECK2=,CAST('MY SYSTEM' AS ?_SQL_NCHAR?(15)) ?_FROM_DUAL?
ZZZZ010229	71700	CHECK2=UNION SELECT ?_SUBSTR(SYSTEM_KEY2;17;8)?
ZZZZ010229	71800	CHECK2=,SYSTEM_ETC FROM ?_MP_ZZZZ?ZZ_ETC_TABLE
ZZZZ010229	71900	CHECK2=WHERE SYSTEM_KEY1='ZZZZZZ_@'
ZZZZ010229	72000	CHECK2=AND SYSTEM_KEY2 LIKE 'ZZZZZZ_LINKSYSTEM_NAME_%'
ZZZZ010229	72100	CHECK2=AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010229	72200	=IF{SAVE!=}SET{WN.DB=_WW}JUMP{OK}; ワークテーブルより*
ZZZZ010229	72300	=IF{_DATA=}SET{WN.DB=_MM+'_'}JUMP{OK}; 本番テーブルより*
ZZZZ010229	72400	=SET{WN.DB='I_?_SYSTEM?_'
ZZZZ010229	72500	=   +@ZZZZZZ_LINK_?LINK_SERVER?_R_ZZZZ+'ZZZZZZ_'};リンク*
ZZZZ010229	72600	=OK:SET{WN.XTABLECOPY=WN.DB+$WN.XTABLEI};
ZZZZ010229	72700	=LINK_SET{WN.SQL}{SELECT ?_1?,?_2?,?_3?,?_4? FROM}
ZZZZ010229	72800	=   {?WN.XTABLECOPY?}
ZZZZ010229	72900	=   {X1}{WHERE ?$WN.XKEY?='?WN.XKEYCOPY?' ?WN.H?
ZZZZ010229	73000	= AND SYSTEM_KIND='?$.SYSTEM_KIND?' AND ?_T?.Z_CANCEL=' '};
ZZZZ010229	73100	DATA=?&.DATA&SYSTEM_SEQ?
ZZZZ010229	73200	DATA=?&.DATA&SYSTEM_COM?
ZZZZ010229	73300	DATA=?&.DATA&SYSTEM_SIGN?
ZZZZ010229	73400	DATA=.?$WN.XOBJECTDATA?
ZZZZ010229	73500	SQL=?WN.SQL? ORDER BY 1
ZZZZ010229	73600	%CANCEL+COMMENT2_BEGIN
ZZZZ010229	73700	*****( END 決定 )****************
ZZZZ010229	73800	PROGRAM=OUTPUT,&X1,?$WN.XTABLE?
ZZZZ010229	73900	CONTROL=0
ZZZZ010229	74000	*COLOR
ZZZZ010229	74100	*COPY=COLOR
ZZZZ010229	74200	BEGIN
ZZZZ010229	74300	=SET{WN.XKEYCOPY=$.?$WN.XKEY?};
ZZZZ010229	74400	*=SET{S2.SYSTEM_SEQ=$.SYSTEM_SEQ
ZZZZ010229	74500	=,S2.?$WN.XOBJECT?=$.?$WN.XOBJECT?,WN.H=};
ZZZZ010229	74600	%MOVE+=IF{S1.SYSTEM_SEQ>=S2.SYSTEM_SEQ}
ZZZZ010229	74700	%MOVE+=  SET{WN.H='AND ?_VRLE&S1.SYSTEM_SEQ?'};
ZZZZ010229	74800	NAME=LINK
ZZZZ010229	74900	=LINK_SET{WN.SQL}{SELECT ?_1?,?_2?,?_3?,?_4? FROM}
ZZZZ010229	75000	=  {?$WN.XTABLECOPY?}
ZZZZ010229	75100	=  {X1}{WHERE ?$WN.XKEY?='?WN.XKEYCOPY?'
ZZZZ010229	75200	=   AND ?_T?.SYSTEM_SEQ>=?S2.SYSTEM_SEQ? ?WN.H?
ZZZZ010229	75300	=   AND SYSTEM_KIND='?$.SYSTEM_KIND?'
ZZZZ010229	75400	=   AND ?_T?.Z_CANCEL=' ' ORDER BY 1};
ZZZZ010229	75500	NAME=
ZZZZ010229	75600	SET={O}$OPTION{7}
ZZZZ010229	75700	SET={O}$COUNT{5,,-}
ZZZZ010229	75800	SET={O,,80}$S1.?$WN.XKEYDATA?
ZZZZ010229	75900	SET={O}$S1.?&.SET&SYSTEM_SEQ?
ZZZZ010229	76000	TITLE=AFTER
ZZZZ010229	76100	SET={O}$S1.?$WN.XOBJECTDATA?
ZZZZ010229	76200	TITLE=
ZZZZ010229	76300	SET={O,,80}$.?$WN.XKEYDATA?
ZZZZ010229	76400	SET={O}S2.=?&.SET&SYSTEM_SEQ?
ZZZZ010229	76500	TITLE= BEGIN
ZZZZ010229	76600	SET={O}S2.?$WN.XOBJECTDATA?
ZZZZ010229	76700	TITLE=
ZZZZ010229	76800	START
ZZZZ010229	76900	=IF{COUNT=0}EXIT{};
ZZZZ010229	77000	=LINK_SET{WN.SQL2}{SELECT COUNT(*) FROM}{?$WN.XTABLECOPY?}
ZZZZ010229	77100	={X1}{WHERE ?$WN.XKEY?='?WN.XKEYCOPY?' AND Z_CANCEL=' '
ZZZZ010229	77200	=AND SYSTEM_SEQ BETWEEN ?S2.SYSTEM_SEQ? AND ?SYSTEM_SEQ?};
ZZZZ010229	77300	=SQL_SET{W0.COUNT}{?WN.SQL2?};
ZZZZ010229	77400	=IF{COUNT<W0.COUNT}
ZZZZ010229	77500	=   ERROR{COUNT ORVER (?COUNT?<?W0.COUNT?)};
ZZZZ010229	77600	DATA=?&.DATA&SYSTEM_SEQ?
ZZZZ010229	77700	DATA=?&.DATA&SYSTEM_COM?
ZZZZ010229	77800	DATA=?&.DATA&SYSTEM_SIGN?
ZZZZ010229	77900	DATA=.?$WN.XOBJECTDATA?
ZZZZ010229	78000	*SQL=SELECT ?_1?,?_2?,?_3?,?_4? FROM ?$WN.XTABLECOPY? ?_T?
ZZZZ010229	78100	*SQL= WHERE
ZZZZ010229	78200	*SQL=?$WN.XKEY?='?WN.XKEYCOPY?'
ZZZZ010229	78300	*SQL=AND .SYSTEM_SEQ>=?S2.SYSTEM_SEQ? ?WN.H?
ZZZZ010229	78400	*SQL=AND SYSTEM_KIND='?$.SYSTEM_KIND?'
ZZZZ010229	78500	*SQL=AND ?_T?.Z_CANCEL=' ' ORDER BY 1
ZZZZ010229	78600	SQL=?WN.SQL?
ZZZZ010229	78700	%CANCEL+COMMENT2_END
ZZZZ010229	78800	PROGRAM=NOT,&X1,?$WN.XTABLE?
ZZZZ010229	78900	CONTROL=JUDGE
ZZZZ010229	79000	BEGIN
ZZZZ010229	79100	=SET{WN.XKEY=$WN.XKEY,WN.XKEYCOPY=$WN.XKEYCOPY};
ZZZZ010229	79200	=SET{WN.XWHERE=$WN.XWHERE};
ZZZZ010229	79300	=SET{WN.XOBJECT=$WN.XOBJECT,WN.XKEYVALUE=$WN.XKEYVALUE};
ZZZZ010229	79400	=SET{WN.XTABLE=$WN.XTABLE,WN.XTABLECOPY=$WN.XTABLECOPY};
ZZZZ010229	79500	%CANCEL+=SET{B.SYSTEM_SEQ=$S1.SYSTEM_SEQ};
ZZZZ010229	79600	%CANCEL+=SET{B.?WN.XOBJECT?=$S1.?WN.XOBJECT?};
ZZZZ010229	79700	%CANCEL-=SET{L.SYSTEM_SEQ=$S1.SYSTEM_SEQ};
ZZZZ010229	79800	%CANCEL-=SET{L.?WN.XOBJECT?=$S1.?WN.XOBJECT?};
ZZZZ010229	79900	%CANCEL-=SET{B.SYSTEM_SEQ=$S2.SYSTEM_SEQ};
ZZZZ010229	80000	%CANCEL-=SET{B.?WN.XOBJECT?=$S2.?WN.XOBJECT?};
ZZZZ010229	80100	=SET{E.SYSTEM_SEQ=$SYSTEM_SEQ};
ZZZZ010229	80200	=SET{E.?WN.XOBJECT?=$.?WN.XOBJECT?};
ZZZZ010229	80300	=LINK_SET{WN.SQL}{SELECT COUNT(*) FROM}{?WN.XTABLECOPY?}
ZZZZ010229	80400	={X1}{WHERE ?$WN.XKEY?='?WN.XKEYCOPY?' AND Z_CANCEL=' '
ZZZZ010229	80500	=AND SYSTEM_SEQ BETWEEN ?B.SYSTEM_SEQ? AND ?E.SYSTEM_SEQ?};
ZZZZ010229	80600	=SQL_SET{COUNT}{?WN.SQL?};
ZZZZ010229	80700	*=SQL_SET{COUNT}{SELECT COUNT(*) FROM ?$WN.XTABLECOPY? ?_T?
ZZZZ010229	80800	*=WHERE ?$WN.XKEY?='?$WN.XKEYCOPY?' AND Z_CANCEL=' '
ZZZZ010229	80900	*=AND SYSTEM_SEQ BETWEEN ?B.SYSTEM_SEQ? AND ?E.SYSTEM_SEQ?};
ZZZZ010229	81000	DATA={O}$OPTION{7}
ZZZZ010229	81100	DATA={KO}$.?&.SET&SYSTEM_KIND?
ZZZZ010229	81200	%COPY+DATA={O,,80}$S1.?$WN.XKEYDATA?
ZZZZ010229	81300	%COPY-DATA={O,,80}$.?$WN.XKEYDATA?
ZZZZ010229	81400	%CANCEL-DATA={O}L.?&.DATA&SYSTEM_SEQ?
ZZZZ010229	81500	%CANCEL-TITLE=AFTER
ZZZZ010229	81600	%CANCEL-DATA={O}L.?$WN.XOBJECTDATA?
ZZZZ010229	81700	%CANCEL-TITLE=
ZZZZ010229	81800	%COPY+DATA={O,,80}$.?$WN.XKEYDATA?
ZZZZ010229	81900	%COPY+TITLE=COPY_?$WN.XKEY?
ZZZZ010229	82000	DATA={O}B.?&.DATA&SYSTEM_SEQ?
ZZZZ010229	82100	TITLE=BEGIN
ZZZZ010229	82200	DATA={O}B.?$WN.XOBJECTDATA?
ZZZZ010229	82300	TITLE=
ZZZZ010229	82400	DATA={O}E.?&.DATA&SYSTEM_SEQ?
ZZZZ010229	82500	TITLE=  END
ZZZZ010229	82600	DATA={O}E.?$WN.XOBJECTDATA?
ZZZZ010229	82700	TITLE=
ZZZZ010229	82800	DATA={O}COUNT{5,,+}
ZZZZ010229	82900	DATA={}YES{5}{YES,NO}
ZZZZ010229	83000	=SET{_RETURN_SQL=1};
ZZZZ010229	83100	=IF{_DATA='NO'}EXIT{2};
ZZZZ010229	83200	%CANCEL-=SET{W0.LOCATE=L.SYSTEM_SEQ,W0.CEND=$W0.CEND};
ZZZZ010229	83300	%CANCEL-=SET{WN.BEGIN='AND SYSTEM_SEQ>='+B.SYSTEM_SEQ};
ZZZZ010229	83400	%CANCEL-=SET{WN.END='AND SYSTEM_SEQ<='+E.SYSTEM_SEQ};
ZZZZ010229	83500	%CANCEL-COPY=COPY
ZZZZ010229	83600	%COPY-=SQL{UPDATE ?_TABLE? SET ?_Z_UPDATE_CANCEL?
ZZZZ010229	83700	%COPY-=WHERE ?$WN.XWHERE? AND Z_CANCEL=' '
ZZZZ010229	83800	%COPY-=AND SYSTEM_SEQ BETWEEN ?B.SYSTEM_SEQ?
ZZZZ010229	83900	%COPY-=AND ?E.SYSTEM_SEQ?};
ZZZZ010229	84000	**%NOT_REPLACE_TEST-COPY=REPLACE_TEST
ZZZZ010229	84100	%CANCEL+=EXIT{-2};
ZZZZ010229	84200	=EXIT{-3};
ZZZZ010229	84300	%NO_XT_OBJECT-COMMENT_END
ZZZZ010231	100	PROGRAM=,&X1,?_MM?_I_MENU_TABLE
ZZZZ010231	200	DICTIONARY=SYSTEM_JOB
ZZZZ010231	300	CONTROL=0,SCROLL
ZZZZ010231	400	BEGIN
ZZZZ010231	500	=PROGRAM{00,?_MP_ZZZZ?ZZ_ETC_TABLE,WN.BROWSE.SYSTEM_ETC=}
ZZZZ010231	600	=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010231	700	=   ,WC.SYSTEM_KEY2='ZZZZZZ_BROWSE_?_OS?'}{};
ZZZZ010231	800	=IF{_PROGRAM_COUNT=0}
ZZZZ010231	900	=   ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? NOT FOUND};
ZZZZ010231	1000	W+=SET{WC.BROWSE=WN.BROWSE.SYSTEM_ETC};
ZZZZ010231	1100	W-=SET{WC.BROWSE=WN.BROWSE.SYSTEM_ETC@LOWER};
ZZZZ010231	1400	=SET{.SYSTEM_LANG=_LANG};
ZZZZ010231	1500	%TEST+=SET{.SYSTEM_TEST='TEST'};
ZZZZ010231	1600	SET=OPT{2}
ZZZZ010231	1700	CHECK2=,SELECT,BM,MENU TRACE,BT,TIME TRACE
ZZZZ010231	1800	CHECK2=,BL,TIME LOG,BR,TIME REAL LOG
ZZZZ010231	1900	NAME=TRACE_IF
ZZZZ010231	2000	=IF{_DATA='BM'}JUMP{BM};
ZZZZ010231	2100	=IF{_DATA='BT'}JUMP{BT};
ZZZZ010231	2200	=IF{_DATA='BL'}JUMP{BL};
ZZZZ010231	2300	=IF{_DATA='BR'}JUMP{BR};
ZZZZ010231	2400	NAME=
ZZZZ010231	2500	=EXIT{};
ZZZZ010231	2600	NAME=TRACE
ZZZZ010231	2700	=BL:SET{_REAL_TEST='TEST'};
ZZZZ010231	2800	=BR:SET{WN.F='?_REAL_TEST?_?_SYSTEM?_?_TODAY?.LOG'
ZZZZ010231	2900	=  ,WN.P='LOG'};
ZZZZ010231	3000	=JUMP{SERVER_GET};
ZZZZ010231	3100	=BT:SET{WN.F='_TRACE_?_COMPUTER_NAME?.TXT',WN.P=};
ZZZZ010231	3200	=SET{_REAL_TEST='TEST'};
ZZZZ010231	3300	=SERVER_GET:IF_ERROR_SERVER_GET{?WN.F?,?WN.P?}ERROR{};
ZZZZ010231	3400	=JUMP{BROWSE};
ZZZZ010231	3500	=BM:SET{WN.F='_TRACE.TXT'};
ZZZZ010231	3600	*BROWSE:EXE{?WN.EDITOR?,?WN.F?};SET{OPT=};EXIT{OPT};
ZZZZ010231	3700	=BROWSE:EXE{?WC.BROWSE?,?WN.F?};SET{OPT=};EXIT{OPT};
ZZZZ010231	3800	NAME=
ZZZZ010231	3900	SET={,*}.?&SET&SYSTEM_JOB?
ZZZZ010231	4000	=SET{_DATA@WHERE='?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1?_C?'
ZZZZ010231	4100	=   +'SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?'
ZZZZ010231	4200	=   +' LIKE ''?.SYSTEM_JOB?%'''
ZZZZ010231	4300	=   +' AND SYSTEM_MENU1<>''00'''
ZZZZ010231	4400	=   +' AND SYSTEM_MENU2<>''00'''
ZZZZ010231	4500	=   +' AND SYSTEM_MENU3<>''00'''};
ZZZZ010231	4600	SET=.?&.SET&SYSTEM_MENU?
ZZZZ010231	4700	SET=.?&.DATA&SYSTEM_LANG?
ZZZZ010231	4800	SET=.?&.DATA&SYSTEM_TEST?
ZZZZ010231	4900	DATA={K}?&.DATA&SYSTEM_MENU0?
ZZZZ010231	5000	DATA={K}?&.DATA&SYSTEM_MENU1?
ZZZZ010231	5100	DATA={K}?&.DATA&SYSTEM_MENU2?
ZZZZ010231	5200	DATA={K}?&.DATA&SYSTEM_MENU3?
ZZZZ010231	5300	DATA=?&.DATA&SYSTEM_TEST?
ZZZZ010231	5400	DATA=?&.DATA&SYSTEM_PROGRAM_KIND?
ZZZZ010231	5500	DATA=?&.DATA&SYSTEM_SECURITY?
ZZZZ010231	5600	DATA=?&.DATA&SYSTEM_LANG?
ZZZZ010231	5700	DATA=?&.DATA&SYSTEM_MENU?
ZZZZ010231	5800	DATA={O}Z_CHANGE_PERSON{8}修正者
ZZZZ010231	5900	DATA={O}Z_ADD_PERSON{8}作成者
ZZZZ010231	6000	COPY=@ZZZZZZ_SQL
ZZZZ010231	6100	PROGRAM=NOT
ZZZZ010231	6200	CONTROL=PROGRAM
ZZZZ010231	6300	BEGIN
ZZZZ010231	6400	=IF{SYSTEM_MENU1>'50'}SET{.RUN='TIME'}JUMP{};
ZZZZ010231	6500	=                      SET{.RUN='MENU'};
ZZZZ010231	6600	DATA={KO}$?$&.DATA&SYSTEM_MENU0?
ZZZZ010231	6700	DATA={KO}$?$&.DATA&SYSTEM_MENU1?
ZZZZ010231	6800	DATA={KO}$?$&.DATA&SYSTEM_MENU2?
ZZZZ010231	6900	DATA={KO}$?$&.DATA&SYSTEM_MENU3?
ZZZZ010231	7000	DATA={O}$?$&.DATA&SYSTEM_MENU?
ZZZZ010231	7100	DATA={O}$?$&.DATA&SYSTEM_LANG?
ZZZZ010231	7200	DATA={O}.RUN{4}
ZZZZ010231	7300	DATA=OPT{8}
ZZZZ010231	7400	CHECK2=,RUN,B,BROWSE TRACE,BM,MENU TRACE,BT,TIME TRACE
ZZZZ010231	7500	CHECK2=,BL,TIME LOG,BR,TIME REAL LOG
ZZZZ010231	7600	=IF{_DATA='B'}JUMP{TRACE};
ZZZZ010231	7700	COPY=TRACE_IF
ZZZZ010231	7800	=SET{_REAL_TEST='TEST'};
ZZZZ010231	7900	=IF{.RUN='TIME'}JUMP{TIME};
ZZZZ010231	8000	=SET{WN.MENUS=SYSTEM_MENU0+SYSTEM_MENU1+SYSTEM_MENU2
ZZZZ010231	8100	=   +SYSTEM_MENU3};
ZZZZ010231	8110	=SET{WC.EXE_ARG='?SYSTEM_LANG? ?_EXE_OPTION? ?WN.MENUS?'
ZZZZ010231	8123	=   ' TEST_TRACE ?_PERSON?'};
ZZZZ010231	8200	=EXE{?_EXE_NAME?,?WC.EXE_ARG?};
ZZZZ010231	8400	=SET{_REAL_TEST='REAL'};
ZZZZ010231	8500	=EXIT{};
ZZZZ010231	8600	=TIME:
ZZZZ010231	8700	=SERVER_BAT{ZZZZZZTIME
ZZZZ010231	8800	=  ,XX XX ?WN.MENUS? TRACE ?_COMPUTER_NAME?};
ZZZZ010231	8900	=SET{_REAL_TEST='REAL'};
ZZZZ010231	9000	=EXIT{};
ZZZZ010231	9100	*=TRACE:IF{.RUN='MENU'}JUMP{BM};
ZZZZ010231	9200	*=JUMP{BT};
ZZZZ010231	9300	=TRACE:
ZZZZ010231	9400	COPY=TRACE
ZZZZ010232	100	PROGRAM=,&X1,?_MM?_I_TIME_TABLE
ZZZZ010232	200	CONTROL=0,SCROLL
ZZZZ010232	300	BEGIN
ZZZZ010232	400	=PROGRAM{0,?_MP_ZZZZ?ZZ_ETC_TABLE,WN.BROWSE.SYSTEM_ETC=}
ZZZZ010232	500	=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010232	600	=   ,WC.SYSTEM_KEY2='ZZZZZZ_BROWSE_?_OS?'}{};
ZZZZ010232	700	=IF{_PROGRAM_COUNT=0}
ZZZZ010232	800	=   ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? NOT FOUND};
ZZZZ010232	900	W+=SET{WC.BROWSE=WN.BROWSE.SYSTEM_ETC};
ZZZZ010232	1000	W-=SET{WC.BROWSE=WN.BROWSE.SYSTEM_ETC@LOWER};
ZZZZ010232	1100	NAME=TRACE_DATA
ZZZZ010232	1200	SET={,*}OPT{2}
ZZZZ010232	1300	CHECK2=,SELECT,BM,MENU TRACE,BT,TIME TRACE
ZZZZ010232	1400	NAME=TRACE_IF
ZZZZ010232	1500	=IF{_DATA='BM'}JUMP{BM};
ZZZZ010232	1600	=IF{_DATA='BT'}JUMP{BT};
ZZZZ010232	1700	NAME=
ZZZZ010232	1800	=EXIT{};
ZZZZ010232	1900	NAME=TRACE
ZZZZ010232	2000	=BT:SET{WN.F='_TRACE_?_COMPUTER_NAME?.TXT',WN.P=};
ZZZZ010232	2100	=SET{_REAL_TEST='TEST'};
ZZZZ010232	2200	=SERVER_GET:IF_ERROR_SERVER_GET{?WN.F?,?WN.P?}ERROR{};
ZZZZ010232	2300	=JUMP{BROWSE};
ZZZZ010232	2400	=BM:SET{WN.F='_TRACE.TXT'};
ZZZZ010232	2500	*BROWSE:EXE{?WN.EDITOR?,?WN.F?};SET{OPT=};EXIT{OPT};
ZZZZ010232	2600	=BROWSE:EXE{?WC.BROWSE?,?WN.F?};SET{OPT=};EXIT{OPT};
ZZZZ010232	2700	NAME=
ZZZZ010232	2800	SET={,*}HHMM{}
ZZZZ010232	2900	JA+TITLE=時分
ZZZZ010232	3000	=SET{_DATA@WHERE='?_CL?SYSTEM_HH?_C?SYSTEM_MIN?_CR?'
ZZZZ010232	3100	=   +' LIKE ''?HHMM?%'''};
ZZZZ010232	3200	DATA={C}?&.DATA&SYSTEM_TEST?
ZZZZ010232	3300	DATA={C}?&.DATA&SYSTEM_TEST_STATUS?
ZZZZ010232	3400	DATA={K}?&.DATA&SYSTEM_HH?
ZZZZ010232	3500	DATA={K}?&.DATA&SYSTEM_MIN?
ZZZZ010232	3600	DATA=   ?&.DATA&SYSTEM_MENU0?
ZZZZ010232	3700	DATA=   ?&.DATA&SYSTEM_MENU1?
ZZZZ010232	3800	DATA=   ?&.DATA&SYSTEM_MENU2?
ZZZZ010232	3900	DATA=   ?&.DATA&SYSTEM_TIMING?
ZZZZ010232	4000	DATA=   ?&.DATA&SYSTEM_BEGIN_END?
ZZZZ010232	4100	DATA=   ?&.DATA&SYSTEM_SHIFT?
ZZZZ010232	4200	DATA=   ?&.DATA&SYSTEM_DOC?
ZZZZ010232	4300	COPY=@ZZZZZZ_SQL
ZZZZ010232	4400	*###( 2 )###################################################
ZZZZ010232	4500	PROGRAM=,&X1,?_MM?_I_MENU_TABLE
ZZZZ010232	4600	CONTROL=0,SCROLL
ZZZZ010232	4700	BEGIN
ZZZZ010232	4800	*=SET{SYSTEM_MENU0=$SYSTEM_MENU0};
ZZZZ010232	4900	*=SET{SYSTEM_MENU1=$SYSTEM_MENU1};
ZZZZ010232	5000	*=SET{SYSTEM_MENU2=$SYSTEM_MENU2};
ZZZZ010232	5100	SET={O,*}.=?$&.SET&SYSTEM_HH?
ZZZZ010232	5200	SET={O,*}.=?$&.SET&SYSTEM_MIN?
ZZZZ010232	5300	SET={O}.=?$&.SET&SYSTEM_MENU0?
ZZZZ010232	5400	SET={O}.=?$&.SET&SYSTEM_MENU1?
ZZZZ010232	5500	SET={O}.=?$&.SET&SYSTEM_MENU2?
ZZZZ010232	5600	SET={O,*}.=?$&.SET&SYSTEM_DOC?
ZZZZ010232	5700	=SET{_DATA@WHERE='SYSTEM_TEST IN('' '',''TEST'')'};
ZZZZ010232	5800	DATA={C}?&.DATA&SYSTEM_TEST?
ZZZZ010232	5900	DATA={K}?&.DATA&SYSTEM_MENU0?
ZZZZ010232	6000	DATA={K}?&.DATA&SYSTEM_MENU1?
ZZZZ010232	6100	DATA={K}?&.DATA&SYSTEM_MENU2?
ZZZZ010232	6200	DATA={K}?&.DATA&SYSTEM_MENU3?
ZZZZ010232	6300	DATA=   ?&.DATA&SYSTEM_COPY1?
ZZZZ010232	6400	DATA=   ?&.DATA&SYSTEM_COPY2?
ZZZZ010232	6500	DATA=   ?&.DATA&SYSTEM_MENU?
ZZZZ010232	6600	COPY=@ZZZZZZ_SQL
ZZZZ010232	6700	*###( 3 )############################################
ZZZZ010232	6800	PROGRAM=NOT
ZZZZ010232	6900	CONTROL=PROGRAM
ZZZZ010232	7000	BEGIN
ZZZZ010232	7100	DATA={O}$?$&.DATA&SYSTEM_HH?
ZZZZ010232	7200	DATA={O}$?$&.DATA&SYSTEM_MIN?
ZZZZ010232	7300	DATA={O}$?$&.DATA&SYSTEM_MENU0?
ZZZZ010232	7400	DATA={O}$?$&.DATA&SYSTEM_MENU1?
ZZZZ010232	7500	DATA={O}$?$&.DATA&SYSTEM_MENU2?
ZZZZ010232	7600	DATA={O}$?$&.DATA&SYSTEM_MENU3?
ZZZZ010232	7700	DATA={O}$?$&.DATA&SYSTEM_TIMING?
ZZZZ010232	7800	DATA={O}$?$&.DATA&SYSTEM_BEGIN_END?
ZZZZ010232	7900	DATA={O}$?$&.DATA&SYSTEM_SHIFT?
ZZZZ010232	8000	DATA={O}$?$&.DATA&SYSTEM_DOC?
ZZZZ010232	8100	DATA={O}$?$&.DATA&SYSTEM_TEST_STATUS?
ZZZZ010232	8200	DATA=OPT{3,1}{ALL,ONE,BT,BL,BR}
ZZZZ010232	8300	COPY=TRACE_IF
ZZZZ010232	8400	=SET{_REAL_TEST='TEST'};
ZZZZ010232	8410	=SQL_SET{WN.JDBC}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ010232	8420	=   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM' AND Z_CANCEL=' '
ZZZZ010232	8430	=   AND SYSTEM_KEY2='ZZZZZZ_JDBC'};
ZZZZ010232	8440	=IF{_SQL_SET_COUNT=0}ERROR
ZZZZ010232	8450	=  {ETC,ZZZZZZ_SYSTEM,ZZZZZZ_JDBC NOT FOUND};
ZZZZ010232	8500	=SERVER_BAT{ZZZZZZTIME,?SYSTEM_HH? ?.SYSTEM_MIN?
ZZZZ010232	8600	=?SYSTEM_MENU0??SYSTEM_MENU1??SYSTEM_MENU2??SYSTEM_MENU3?
ZZZZ010232	8700	=?OPT? ?_COMPUTER_NAME?};
ZZZZ010232	8800	=SET{_REAL_TEST='REAL'};
ZZZZ010232	8900	=SQL{UPDATE ?_MM?_I_TIME_TABLE SET
ZZZZ010232	9000	=   SYSTEM_TEST_STATUS=' ' WHERE ?_VRE&SYSTEM_HH?
ZZZZ010232	9100	=   AND ?_VRE&SYSTEM_MIN?};
ZZZZ010232	9200	=SET{OPT=};EXIT{};
ZZZZ010232	9300	COPY=TRACE
ZZZZ010234	100	PROGRAM=OUTPUT,&X1,?_MM?_I_MENU_TABLE
ZZZZ010234	200	LEFT=&X2,?_MM?_I_HELP_TABLE,,*
ZZZZ010234	300	JOIN_ON=?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010234	400	JOIN_ON= ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?=SYSTEM_JOB
ZZZZ010234	500	CONTROL=0
ZZZZ010234	600	BEGIN
ZZZZ010234	700	=SET{WC.MENU_TIME='MENU'};
ZZZZ010234	800	=SET{.SYSTEM_TEST=,.SYSTEM_LANG=_LANG};
ZZZZ010234	900	%TEST+=SET{.SYSTEM_TEST='TEST'};
ZZZZ010234	1000	MENU_INPUT+=IF{'ZZZZ'!=_PERMISSION}
ZZZZ010234	1100	MENU_INPUT+=   SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010234	1200	SET={O}.?&.SET&SYSTEM_TEST?
ZZZZ010234	1300	SET={,*}.?&X2.SET&SYSTEM_JOB?
ZZZZ010234	1400	=IF{_DATA!=}
ZZZZ010234	1410	=   SET{_DATA@WHERE='?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1'
ZZZZ010234	1500	=   +'?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?'
ZZZZ010234	1510	=   +'  LIKE ''?.SYSTEM_JOB?%'''};
ZZZZ010234	1600	SET={}.?&.DATA&SYSTEM_LANG?
ZZZZ010234	1700	=SET{_DATA@WHERE=
ZZZZ010234	1710	=   '?_T?.SYSTEM_LANG IN(''?.SYSTEM_LANG?'','' '')'};
ZZZZ010234	1800	SET={}.?&.SET&SYSTEM_MENU?
ZZZZ010234	1900	MENU_INPUT+SET={OL}.?&.SET&SYSTEM_PERMISSION?(MY)
ZZZZ010234	2000	SET={N}WHERE{1}
ZZZZ010234	2100	%FND-=SET{_DATA@WHERE='EXISTS(SELECT DISTINCT SYSTEM_JOB'
ZZZZ010234	2200	%FND-=   +' FROM ?&X2.TABLE? X3 WHERE'
ZZZZ010234	2300	%FND-=   +' ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1'
ZZZZ010234	2400	%FND-=   +'  ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?'
ZZZZ010234	2500	%FND-=   +'=SYSTEM_JOB AND X3.?_NE&.SYSTEM_LANG?'
ZZZZ010234	2600	%FND-=   +' AND X3.Z_CANCEL='' '')'};
ZZZZ010234	2700	START
ZZZZ010234	2800	=IF{.SYSTEM_JOB/'ZZZZ99985',/'ZZZZ99995'
ZZZZ010234	2900	=   ,/'ZZZZ0101',/'ZZZZ0102',/'ZZZZ0103',/'ZZZZ0104'
ZZZZ010234	3000	=   ,/'ZZZZ0105',/'ZZZZ0107'
ZZZZ010234	3100	=   ,.SYSTEM_JOB='ZZZZ010000',='ZZZZ000000'}
ZZZZ010234	3200	=   IF{_PERSON!='ZZZZZZZZ'}
ZZZZ010234	3210	=   ERROR{SYSTEM PROGRAM PERSON(ZZZZZZZZ) ONLY};
ZZZZ010234	3300	DATA={CG}?&.DATA&SYSTEM_TEST?
ZZZZ010234	3400	DATA={KG}?&X2.DATA&SYSTEM_JOB?
ZZZZ010234	3500	SELECT=?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010234	3600	SELECT=?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010234	3700	DATA={KG}?&.DATA&SYSTEM_LANG?
ZZZZ010234	3800	DATA={G}?&.DATA&SYSTEM_MENU?
ZZZZ010234	3900	DATA={O}COUNT_X{5,,+,C}
ZZZZ010234	4000	SELECT=COUNT(X2.SYSTEM_JOB)
ZZZZ010234	4100	PLUS=%Z_CANCEL_WHERE
ZZZZ010234	4200	COPY=@ZZZZZZ_SQL
ZZZZ010234	4300	*###( 2 )####################################################
ZZZZ010234	4400	PROGRAM=,&X1,?_MM?_I_HELP_TABLE
ZZZZ010234	4500	TABLE=&X2,?_MM?_I_MENU_TABLE
ZZZZ010234	4600	CONTROL=BEGIN_ENTER,SCROLL
ZZZZ010234	4700	MENU_INPUT+CONTROL=0
ZZZZ010234	4800	COLOR
ZZZZ010234	4900	=IF{Z_CANCEL!=}SET{SYSTEM_HELP@COLOR='N'}
ZZZZ010234	5000	=              SET{SYSTEM_CALL@COLOR='N'}EXIT{};
ZZZZ010234	5100	=SET{SYSTEM_HELP@COLOR='W'};
ZZZZ010234	5200	=IF{FIND<=0}SET{SYSTEM_SEQ@COLOR='W'}EXIT{};
ZZZZ010234	5300	=SET{SYSTEM_SEQ@COLOR='E'};
ZZZZ010234	5400	NAME=COLOR
ZZZZ010234	5500	COLOR
ZZZZ010234	5600	=NOP{};
ZZZZ010234	5700	NAME=
ZZZZ010234	5800	BEGIN
ZZZZ010234	5900	=SET{S_FIND=#FIND,WN.F=0};
ZZZZ010234	6000	INPUT+=SET{WN.COM=
ZZZZ010234	6100	INPUT+=   ',COPY JOB (LOC STA END),DISCARD,RENUMBER'};
ZZZZ010234	6200	INPUT-=SET{WN.COM=};
ZZZZ010234	6300	*****( WN.X... 設定 OUTPUT BEGIN )*****
ZZZZ010234	6400	=SET{WN.XKEY='SYSTEM_JOB'};
ZZZZ010234	6500	=SET{WN.XWHERE='?WN.XKEY?=''?.SYSTEM_JOB?'''
ZZZZ010234	6600	=   +'AND ?_VRE&.SYSTEM_LANG?'};
ZZZZ010234	6700	=SET{WN.XOBJECT='SYSTEM_HELP'};
ZZZZ010234	6800	*****( WN.X... 設定 INPUT BEGIN )*****
ZZZZ010234	6900	=SET{WN.XTABLEI='I_HELP_TABLE'};
ZZZZ010234	7000	=SET{WN.XKEYVALUE=.?WN.XKEY?};
ZZZZ010234	7100	=SET{WN.XKEYCOPY=.?WN.XKEY?};
ZZZZ010234	7200	=SET{WN.XKEYDATA=&.DATA&?WN.XKEY?};
ZZZZ010234	7300	=SET{WN.XTABLE=_MM+'_'+WN.XTABLEI};
ZZZZ010234	7400	=SET{WN.XOBJECTDATA=&.DATA&?WN.XOBJECT?};
ZZZZ010234	7500	*****( WN.X... 設定 END )*****
ZZZZ010234	7600	SET={KO}.=?&.SET&SYSTEM_JOB?
ZZZZ010234	7700	SET={KO}.=?$&.SET&SYSTEM_LANG?
ZZZZ010234	7800	SET={O,*,40}.=?$&.SET&SYSTEM_MENU?
ZZZZ010234	7900	=SET{S_CMD=};
ZZZZ010234	8000	SET={,*}S_CMD{56}
ZZZZ010234	8100	JA+TITLE=操作
ZZZZ010234	8200	MESSAGE=(L)OCATE STA,(F)IND STR,CANCEL STA END?WN.COM?
ZZZZ010234	8300	=SET{WN.EQ=,WN.DB=_MM_?_REAL_TEST?,WN.JOB=.SYSTEM_JOB};
ZZZZ010234	8400	=SET{W0.D=_DATA@COUNT,W0.C=1,WN.FTAG=};
ZZZZ010234	8500	=SET{WN.1=,WN.2=,WN.3=,WN.4=,WN.5=,WN.6=};
ZZZZ010234	8600	=SPLIT_CHAR{WN.}{S_CMD}{};
ZZZZ010234	8700	****( 汎用処理 INPUT BEGIN )*****
ZZZZ010234	8800	=SET{WN.XTABLECOPY=_TABLE};
ZZZZ010234	8900	=IF{WN.1='CANCEL'}JUMP{CANCEL};
ZZZZ010234	9000	=IF{WN.1='C',='CHANGE'}JUMP{CHANGE};
ZZZZ010234	9100	=IF{WN.1='COPY'}JUMP{COPY};
ZZZZ010234	9200	=IF{WN.1='MOVE'}JUMP{MOVE};
ZZZZ010234	9300	=IF{S_CMD='DISCARD'}JUMP{DISCARD};
ZZZZ010234	9400	=IF{S_CMD='RENUMBER'}JUMP{RENUMBER};
ZZZZ010234	9500	****( 汎用処理 OUTPUT BEGIN )*****
ZZZZ010234	9600	=IF{WN.1='L',='LOCATE'}JUMP{LOCATE};
ZZZZ010234	9700	=IF{WN.1='LL',='LLOCATE'}JUMP{S_END};
ZZZZ010234	9800	=IF{WN.1='FC',WN.1='FINDCLEAR'}JUMP{FC};
ZZZZ010234	9900	=IF{WN.1='MAX'}JUMP{MAX};
ZZZZ010234	10000	=IF{WN.1='MIN'}JUMP{MIN};
ZZZZ010234	10100	=IF{WN.1='U',='UP'}JUMP{UP};
ZZZZ010234	10200	=IF{WN.1='D',='DOWN'}JUMP{DOWN};
ZZZZ010234	10300	=IF{WN.1='P',='PRIOR'}JUMP{PRIOR};
ZZZZ010234	10400	=IF{WN.1='E',='END'}JUMP{END};
ZZZZ010234	10500	=IF{W0.C<W0.D}IF{S_CMD[W0.C;1]=' '}COMPUTE{W0.C+=1}BACK{};
ZZZZ010234	10600	=IF{S_CMD[W0.C]='F',='FIND',='FF'}JUMP{FIND1};
ZZZZ010234	10700	=IF{S_CMD[W0.C]='F0',='FIND0',='FF0'}JUMP{FIND10};
ZZZZ010234	10800	=IF{S_CMD[W0.C;2]='F '}   COMPUTE{W0.C+=2}JUMP{FINDX};
ZZZZ010234	10900	=IF{S_CMD[W0.C;3]='F0 '}   COMPUTE{W0.C+=3}JUMP{FINDX0};
ZZZZ010234	11000	=IF{S_CMD[W0.C;3]='FF '}   COMPUTE{W0.C+=3}JUMP{FINDX};
ZZZZ010234	11100	=IF{S_CMD[W0.C;4]='FF0 '}  COMPUTE{W0.C+=4}JUMP{FINDX0};
ZZZZ010234	11200	=IF{S_CMD[W0.C;5]='FIND '} COMPUTE{W0.C+=5}JUMP{FINDX};
ZZZZ010234	11300	=IF{S_CMD[W0.C;6]='FIND0 '}COMPUTE{W0.C+=6}JUMP{FINDX0};
ZZZZ010234	11400	=IF{_DATA@COUNT!=0}ERROR{COMMAND};
ZZZZ010234	11500	=SET{.SYSTEM_SEQ=.SEQ_NOW};JUMP{S_END};
ZZZZ010234	11600	*****
ZZZZ010234	11700	=FC:SET{WN.F=0,S_FIND=,#FIND=};JUMP{S_END};
ZZZZ010234	11800	=MAX:SQL_SET{WN.LOCATE}{SELECT MAX(SYSTEM_SEQ) FROM
ZZZZ010234	11900	=?_TABLE? WHERE ?WN.XWHERE? AND Z_CANCEL=' '};
ZZZZ010234	12000	=IF{_SQL_SET_COUNT=0}JUMP{S_END};
ZZZZ010234	12100	=SET{.SYSTEM_SEQ=WN.LOCATE};JUMP{S_END};
ZZZZ010234	12200	=MIN:SET{.SYSTEM_SEQ=0};JUMP{S_END};
ZZZZ010234	12300	=PRIOR:SET{WN.MAX_MIN='MAX'};JUMP{NEXT };
ZZZZ010234	12400	=END:SET{WN.MAX_MIN='MAX',.SEQ_NOW=99999};JUMP{NEXT };
ZZZZ010234	12500	****( 汎用処理 END )*****
ZZZZ010234	12600	****( 汎用処理 INPUT BEGIN )****
ZZZZ010234	12700	*****( MOVE )************************************************
ZZZZ010234	12800	=MOVE:SET{WN.BEGIN=,WN.END=};
ZZZZ010234	12900	=IF{WN.2=}ERROR{MOVE LOCATE=SPACE ERROR};
ZZZZ010234	13000	=IF_ERROR_SET{W0.LOCATE=WN.2}ERROR{MOVE LOCATE(?WN.2?)ERROR};
ZZZZ010234	13100	=IF{WN.3=}ERROR{MOVE BEGIN=SPACE ERROR};
ZZZZ010234	13200	=IF_ERROR_SET{W0.BEGIN=WN.3}ERROR{MOVE BEGIN(?WN.3?) ERROR};
ZZZZ010234	13300	=IF{WN.4=}ERROR{MOVE END=SPACE ERROR};
ZZZZ010234	13400	=IF_ERROR_SET{W0.END=WN.4}ERROR{MOVE END(?WN.4?) ERROR};
ZZZZ010234	13500	=IF{W0.LOCATE>=W0.BEGIN}
ZZZZ010234	13600	=   IF{W0.LOCATE<=W0.END}ERROR{BEGIN=<LOCATE=<END};
ZZZZ010234	13700	=JUMP{COPY3};
ZZZZ010234	13800	*****( COPY )******************************************
ZZZZ010234	13900	=COPY:IF{WN.2!=}JUMP{COPY2};
ZZZZ010234	14000	=SET{%COPY='+',%MOVE='-',%CANCEL='-'};
ZZZZ010234	14100	=SQL_SET{SYSTEM_SEQ,.?WN.XOBJECT?}
ZZZZ010234	14200	= {SELECT SYSTEM_SEQ,?WN.XOBJECT?
ZZZZ010234	14300	=   FROM ?_TABLE? WHERE ?WN.XWHERE? AND SYSTEM_SEQ=(SELECT
ZZZZ010234	14400	=   MAX(SYSTEM_SEQ) FROM ?_TABLE? WHERE ?WN.XWHERE?
ZZZZ010234	14500	=   AND Z_CANCEL=' ')};
ZZZZ010234	14600	=SET{WN.OPTION_O='O',S_CMD=};
ZZZZ010234	14700	=EXIT{+1};
ZZZZ010234	14800	=COPY2:SET{WN.XKEYCOPY=WN.2,WN.BEGIN=,WN.END=};
ZZZZ010234	14900	=IF_ERROR_SET{W0.LOCATE=WN.3}
ZZZZ010234	15000	=   ERROR{COPY LOCATE(?WN.3?) ERROR};
ZZZZ010234	15100	=IF_ERROR_SET{W0.BEGIN=WN.4}ERROR{COPY BEGIN(?WN.4?) ERROR};
ZZZZ010234	15200	=IF_ERROR_SET{W0.END=WN.5}ERROR{COPY END(?WN.5?) ERROR};
ZZZZ010234	15300	=COPY3:IF{WN.XKEYCOPY='*'}SET{WN.XKEYCOPY=?WN.XKEY?};
ZZZZ010234	15400	*(PROGRAM ONLE BEGIN)*
ZZZZ010234	15500	=IF{WN.XKEYCOPY@COUNT!=10,WN.XKEYCOPY[6]='00'}
ZZZZ010234	15600	=   ERROR{?WN.1? JOB(?WN.XKEYCOPY?) ERROR};
ZZZZ010234	15700	=SQL_SET{}{SELECT DISTINCT SYSTEM_MENU FROM
ZZZZ010234	15800	=   ?WN.DB?_I_MENU_TABLE
ZZZZ010234	15900	=   WHERE ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1?_C?SYSTEM_MENU2
ZZZZ010234	16000	=   ?_C?SYSTEM_MENU3?_CR?='?WN.XKEYCOPY?'
ZZZZ010234	16100	=   AND Z_CANCEL=' '};
ZZZZ010234	16200	=IF{_SQL_SET_COUNT=0}
ZZZZ010234	16300	=   ERROR{?WN.1? JOB(?WN.XKEYCOPY?) NOT FOUND};
ZZZZ010234	16400	*(PROGRAM ONLE END)*
ZZZZ010234	16500	=COPY2:IF{W0.LOCATE=0}SET{W0.CEND=99999}JUMP{SKIP};
ZZZZ010234	16600	=SQL_SET{W0.CEND}
ZZZZ010234	16700	=  {SELECT MIN(SYSTEM_SEQ) FROM ?_TABLE? WHERE
ZZZZ010234	16800	=   ?WN.XWHERE? AND SYSTEM_SEQ>?W0.LOCATE? AND Z_CANCEL=' '
ZZZZ010234	16900	=   GROUP BY ?WN.XKEY? ORDER BY ?WN.XKEY?};
ZZZZ010234	17000	=IF{_SQL_SET_COUNT=0}SET{W0.LOCATE=0,W0.CEND=99999};
ZZZZ010234	17100	NAME=BEGIN_END_CHECK
ZZZZ010234	17200	=SET{WN.BEGIN=,WN.END=};
ZZZZ010234	17300	=IF{W0.BEGIN=0}JUMP{BEGIN_0};
ZZZZ010234	17400	=SQL_SET{}{SELECT SYSTEM_SEQ FROM ?WN.XTABLECOPY?
ZZZZ010234	17500	=   WHERE ?WN.XKEY?='?WN.XKEYCOPY?' AND SYSTEM_SEQ=?W0.BEGIN?
ZZZZ010234	17600	=   AND Z_CANCEL=' '};
ZZZZ010234	17700	=IF{_SQL_SET_COUNT=0}
ZZZZ010234	17800	=   ERROR{?WN.XKEYCOPY? BEGIN(?W0.BEGIN?) NOT FOUND};
ZZZZ010234	17900	=SET{WN.BEGIN='AND SYSTEM_SEQ>='+W0.BEGIN};
ZZZZ010234	18000	=BEGIN_0:IF{W0.END=0}JUMP{END_0};
ZZZZ010234	18100	=SQL_SET{}{SELECT SYSTEM_SEQ FROM ?WN.XTABLECOPY? ?_T?
ZZZZ010234	18200	=   WHERE ?WN.XKEY?='?WN.XKEYCOPY?' AND SYSTEM_SEQ=?W0.END?
ZZZZ010234	18300	=   AND Z_CANCEL=' '};
ZZZZ010234	18400	=IF{_SQL_SET_COUNT=0}
ZZZZ010234	18500	=   ERROR{?WN.XKEYCOPY? END(?W0.END?) NOT FOUND};
ZZZZ010234	18600	=SET{WN.END='AND SYSTEM_SEQ<='+W0.END};
ZZZZ010234	18700	=END_0:IF{W0.END<W0.BEGIN}ERROR{BEGIN > END};
ZZZZ010234	18800	=IF{W0.BEGIN<0}ERROR{BEGIN < 0};
ZZZZ010234	18900	=SKIP:
ZZZZ010234	19000	NAME=COPY
ZZZZ010234	19100	=IF{W0.LOCATE!=0}
ZZZZ010234	19200	=   COMPUTE_CUT{W0.CCC=W0.CEND-W0.LOCATE,-=1}JUMP{SKIP};
ZZZZ010234	19300	=SET{W0.CCC=99999};
ZZZZ010234	19400	=SQL_SET{W0.LOCATE}{SELECT (MAX(SYSTEM_SEQ)+100)/100*100 FROM
ZZZZ010234	19500	=   ?_TABLE? WHERE ?WN.XWHERE? AND Z_CANCEL=' '};
ZZZZ010234	19600	=IF{_SQL_SET_COUNT=0}SET{W0.LOCATE=0};
ZZZZ010234	19700	=SKIP:
ZZZZ010234	19800	=LINK_SET{WN.SQL0}{SELECT ?WN.XOBJECT? FROM}{?WN.XTABLECOPY?}
ZZZZ010234	19900	= {X1}{WHERE ?WN.XKEY?='?WN.XKEYCOPY?'
ZZZZ010234	20000	=  AND Z_CANCEL=' ' ?WN.BEGIN? ?WN.END? ORDER BY SYSTEM_SEQ};
ZZZZ010234	20100	=SQL1{?WN.SQL0?};
ZZZZ010234	20200	=IF{_SQL1_COUNT=0}ERROR{DATA COUNT ZERO};
ZZZZ010234	20300	=IF{W0.CCC<_SQL1_COUNT}ERROR{DATA COUNT OVER};
ZZZZ010234	20400	=COMPUTE_CUT{W0.CCC/=_SQL1_COUNT};
ZZZZ010234	20500	=IF{W0.CCC>10}SET{W0.CCC=10};
ZZZZ010234	20600	=IF{W0.CCC>100}SET{W0.CCC=100};
ZZZZ010234	20700	=SQL1_NEXT:SQL1_NEXT{WN.VALUE}JUMP{SQL1_END};
ZZZZ010234	20800	=LOOP:COMPUTE{W0.LOCATE+=W0.CCC};
ZZZZ010234	20900	=SQL_SET{WN.CANCEL}{SELECT Z_CANCEL FROM ?_TABLE? ?_T? WHERE
ZZZZ010234	21000	=   ?WN.XWHERE? AND SYSTEM_SEQ=?W0.LOCATE?};
ZZZZ010234	21100	=IF{_SQL_SET_COUNT=0}JUMP{C_INSERT};
ZZZZ010234	21200	=IF{WN.CANCEL=}BACK{LOOP};
ZZZZ010234	21300	=C_UPDATE:
ZZZZ010234	21400	=IF_ERROR_SQL{UPDATE ?_TABLE? SET ?WN.XOBJECT?='?WN.VALUE?'
ZZZZ010234	21500	=   ,?_Z_UPDATE_ADD? WHERE ?WN.XWHERE?
ZZZZ010234	21600	=   AND SYSTEM_SEQ=?W0.LOCATE? AND Z_CANCEL<>' '}ERROR{};
ZZZZ010234	21700	=BACK{SQL1_NEXT};
ZZZZ010234	21800	=C_INSERT:IF_ERROR_SQL{INSERT INTO ?_TABLE?
ZZZZ010234	21900	=   (?WN.XKEY?,SYSTEM_LANG,SYSTEM_SEQ,?WN.XOBJECT?
ZZZZ010234	21910	=   ,?_Z_INSERT_NAME?)
ZZZZ010234	22000	=   VALUES('?WN.XKEYVALUE?','?.SYSTEM_LANG?',?W0.LOCATE?
ZZZZ010234	22100	=   ,'?WN.VALUE?',?_Z_INSERT_VALUE?)}ERROR{};
ZZZZ010234	22200	=BACK{SQL1_NEXT};
ZZZZ010234	22300	=SQL1_END:
ZZZZ010234	22400	NAME=
ZZZZ010234	22500	=IF{WN.1='MOVE'}JUMP{CANCEL2};
ZZZZ010234	22600	=JUMP{S_END};
ZZZZ010234	22700	*****( CHANGE )****************************************
ZZZZ010234	22800	=CHANGE:
ZZZZ010234	22900	=IF{WN.2@COUNT<2,WN.3@COUNT<2}JUMP{ERR};
ZZZZ010234	23000	=IF{WN.2[1;1]='''',WN.2[WN.2@COUNT;1]=''''
ZZZZ010234	23100	=   ,WN.3[1;1]='''',WN.3[WN.3@COUNT;1]=''''}JUMP{OK};
ZZZZ010234	23200	=ERR:ERROR{C 'O' 'N'};
ZZZZ010234	23300	=OK:
ZZZZ010234	23400	=COMPUTE{W0.L=WN.2@COUNT-2};SET{WN.CHO=WN.2[2;W0.L]};
ZZZZ010234	23500	=COMPUTE{W0.L=WN.3@COUNT-2};SET{WN.CHN=WN.3[2;W0.L]};
ZZZZ010234	23600	=IF{WN.CHO='',='  ',='   ',='    ',='     '}
ZZZZ010234	23700	=   ERROR{'O'=SPACE};
ZZZZ010234	23800	=IF{WN.CHO=WN.CHN}ERROR{'O'='N'};
ZZZZ010234	23900	=IF_ERROR_SET{W0.BEGIN=WN.4}ERROR{BEGIN(?WN.4?) ERROR};
ZZZZ010234	24000	=IF_ERROR_SET{W0.END=WN.5}ERROR{END(?WN.5?) ERROR};
ZZZZ010234	24100	COPY=BEGIN_END_CHECK
ZZZZ010234	24200	=IF_ERROR_SQL1{SELECT
ZZZZ010234	24300	=   REPLACE(RTRIM(?WN.XOBJECT?),'?WN.CHO?','?WN.CHN?')
ZZZZ010234	24400	=   ,SYSTEM_SEQ FROM ?_TABLE? WHERE ?WN.XWHERE?
ZZZZ010234	24500	=   AND Z_CANCEL=' ' AND RTRIM(?WN.XOBJECT?)<>
ZZZZ010234	24600	=   REPLACE(RTRIM(?WN.XOBJECT?),'?WN.CHO?','?WN.CHN?')
ZZZZ010234	24700	=   ?WN.BEGIN? ?WN.END? ORDER BY 1 DESC}ERROR{};
ZZZZ010234	24800	=IF{_SQL1_COUNT=0}ERROR{CHANGE RECORD NOT FOUND};
ZZZZ010234	24900	=SQL1_NEXT:SQL1_NEXT{WN.PROG,WN.SEQ}JUMP{SQL1_END};
ZZZZ010234	25000	=IF{WN.PROG@FORM_LENGTH>61}ERROR{LENGTH OVER (?WN.SEQ?)};
ZZZZ010234	25100	=BACK{SQL1_NEXT};
ZZZZ010234	25200	=SQL1_END:IF_ERROR_SQL{UPDATE ?_TABLE? SET ?_Z_UPDATE_CHANGE?
ZZZZ010234	25300	=   ,?WN.XOBJECT?=REPLACE(RTRIM(?WN.XOBJECT?)
ZZZZ010234	25400	=   ,'?WN.CHO?','?WN.CHN?')
ZZZZ010234	25500	=   WHERE ?WN.XWHERE? AND Z_CANCEL=' ' ?WN.BEGIN?
ZZZZ010234	25600	=   ?WN.END? AND RTRIM(?WN.XOBJECT?)
ZZZZ010234	25700	=   <>REPLACE(RTRIM(?WN.XOBJECT?),'?WN.CHO?','?WN.CHN?')}
ZZZZ010234	25800	=   ERROR{};
ZZZZ010234	25900	=JUMP{S_END};
ZZZZ010234	26000	******( CANCEL )****************************
ZZZZ010234	26100	=CANCEL:
ZZZZ010234	26200	=IF{WN.2=}ERROR{CANCEL BEGIN ERROR};
ZZZZ010234	26300	=IF{WN.3=}SET{WN.3=WN.2};
ZZZZ010234	26400	=IF_ERROR_SET{W0.BEGIN=WN.2}ERROR{CANCEL BEGIN NOT NUMERIC};
ZZZZ010234	26500	=IF_ERROR_SET{W0.END=WN.3}ERROR{CANCEL ... END NOT NUMERIC};
ZZZZ010234	26600	COPY=BEGIN_END_CHECK
ZZZZ010234	26700	=CANCEL2:
ZZZZ010234	26800	=SQL{UPDATE ?_TABLE? SET ?_Z_UPDATE_CANCEL? WHERE ?WN.XWHERE?
ZZZZ010234	26900	=   AND SYSTEM_SEQ BETWEEN ?W0.BEGIN? AND ?W0.END?};
ZZZZ010234	27000	=JUMP{S_END};
ZZZZ010234	27100	******( DISCARD )**************************
ZZZZ010234	27200	=DISCARD:DBO_SQL{DELETE FROM ?_TABLE? WHERE ?WN.XWHERE?
ZZZZ010234	27300	=   AND Z_CANCEL<>' '};
ZZZZ010234	27400	=JUMP{S_END};
ZZZZ010234	27500	******( RENUMBER )**************************
ZZZZ010234	27600	=RENUMBER:SQL_SET{W0.COUNT}{SELECT COUNT(*) FROM ?_TABLE?
ZZZZ010234	27700	=   WHERE ?WN.XWHERE?};
ZZZZ010234	27800	=SET{W0.CNT=100};IF{W0.COUNT>900}SET{W0.CNT=10};
ZZZZ010234	27900	=SET{W0.SEQ=W0.CNT};
ZZZZ010234	28000	=SQL{UPDATE ?_TABLE? SET SYSTEM_SEQ=SYSTEM_SEQ+100000000
ZZZZ010234	28100	=   WHERE ?WN.XWHERE?};
ZZZZ010234	28200	=SQL1{SELECT SYSTEM_SEQ FROM ?_TABLE? ?_LOCK1? WHERE
ZZZZ010234	28300	=   ?WN.XWHERE? ORDER BY SYSTEM_SEQ ?_LOCK2?};
ZZZZ010234	28400	=SQL1_NEXT:SQL1_NEXT{WN.SEQ}JUMP{SQL1_END};
ZZZZ010234	28500	=SQL{UPDATE ?_TABLE? SET SYSTEM_SEQ=?W0.SEQ?  WHERE
ZZZZ010234	28600	=   ?WN.XWHERE? AND SYSTEM_SEQ=?WN.SEQ?};
ZZZZ010234	28700	=COMPUTE{W0.SEQ+=W0.CNT};BACK{SQL1_NEXT};
ZZZZ010234	28800	=SQL1_END:
ZZZZ010234	28900	****( 汎用処理 OUTPUT BEGIN )*****
ZZZZ010234	29000	******( LOCATE )***************************
ZZZZ010234	29100	=UP:IF{WN.2=}SET{WN.2=1000};
ZZZZ010234	29200	=IF_ERROR_COMPUTE{.SYSTEM_SEQ=.SEQ_NOW-WN.2}
ZZZZ010234	29210	=   SET{.SYSTEM_SEQ=0};
ZZZZ010234	29300	=JUMP{S_END};
ZZZZ010234	29400	=DOWN:IF{WN.2=}SET{WN.2=1000};
ZZZZ010234	29500	=IF_ERROR_COMPUTE{.SYSTEM_SEQ=.SEQ_NOW+WN.2}NOP{};
ZZZZ010234	29600	=JUMP{S_END};
ZZZZ010234	29700	=LOCATE:IF_ERROR_SET{.SYSTEM_SEQ=WN.2}ERROR{LOCATE LOC BAD};
ZZZZ010234	29800	=JUMP{S_END};
ZZZZ010234	29900	******( FIND )*****************************
ZZZZ010234	30000	=FIND10:SET{.SYSTEM_SEQ=0,.SEQ_NOW=0};
ZZZZ010234	30100	=FIND1:SET{S_FIND=#FIND};
ZZZZ010234	30200	=JUMP{SKIP};
ZZZZ010234	30300	=FINDX0:SET{.SYSTEM_SEQ=0,.SEQ_NOW=0};
ZZZZ010234	30400	=FINDX:SET{S_FIND=S_CMD[W0.C],WN.EQ='='};
ZZZZ010234	30500	=IF{S_FIND=}SET{S_FIND=#FIND};
ZZZZ010234	30600	=SKIP:SET{#FIND=S_FIND};
ZZZZ010234	30700	=SET{WN.F=_FIND((WN.XOBJECT);"S_FIND")};
ZZZZ010234	30800	=J3:SQL_SET{S_FIND_COUNT}{SELECT COUNT(*) FROM
ZZZZ010234	30900	=?_TABLE? WHERE ?WN.XWHERE?
ZZZZ010234	31000	=AND ?WN.F?>0 AND Z_CANCEL=' '};
ZZZZ010234	31100	=IF{WN.1[1;2]='FF'}
ZZZZ010234	31200	=   SET{_DATA@WHERE='('+WN.F+'>0)'}JUMP{S_END};
ZZZZ010234	31300	=SET{WN.MAX_MIN='MIN'};
ZZZZ010234	31400	******( NEXT )************
ZZZZ010234	31500	=NEXT:
ZZZZ010234	31600	=SET{WGL='>'};IF{WN.MAX_MIN='MAX'}SET{WGL='<'};
ZZZZ010234	31700	=SQL_SET{WN.LOCATE}{SELECT ?WN.MAX_MIN?(SYSTEM_SEQ) FROM
ZZZZ010234	31800	=   ?_TABLE? WHERE ?WN.XWHERE? AND ?WN.F?>0 AND Z_CANCEL=' '
ZZZZ010234	31900	=   AND SYSTEM_SEQ?WGL??WN.EQ?0?.SEQ_NOW?};
ZZZZ010234	32000	=IF{_SQL_SET_COUNT=0}JUMP{S_END};
ZZZZ010234	32100	=SET{.SYSTEM_SEQ=WN.LOCATE};
ZZZZ010234	32200	=JUMP{S_END};
ZZZZ010234	32300	=S_CMD:SET{S_CMD=};EXIT{S_CMD};
ZZZZ010234	32400	=FC:SET{WN.F=0,S_FIND=,#FIND=};
ZZZZ010234	32500	=S_END:SET{S_CMD=};EXIT{};
ZZZZ010234	32600	****( 汎用処理 END )*****
ZZZZ010234	32700	SET={O,*}S_FIND_COUNT{9,,+}
ZZZZ010234	32800	JA+TITLE=F数
ZZZZ010234	32900	SET={O,*}S_FIND{54}
ZZZZ010234	33000	JA+TITLE=F文字
ZZZZ010234	33100	SET={O>=}.SYSTEM_SEQ{5,,+,C}
ZZZZ010234	33200	JA+TITLE=頭出番号
ZZZZ010234	33300	SET={O,*}.SEQ_NOW{5,,+,C}
ZZZZ010234	33400	JA+TITLE=現在番号
ZZZZ010234	33500	*SET{_DATA@WHERE='1=1 ?WN.FTAG?'};
ZZZZ010234	33600	START
ZZZZ010234	33700	=SET{WN.OPTION_O=};
ZZZZ010234	33800	=IF{_START=1}SET{Z_CANCEL=_TODAY};
ZZZZ010234	33900	=IF{_START=2}SET{Z_CANCEL=};
ZZZZ010234	34000	=SET{WN.XKEYCOPY=.SYSTEM_JOB};
ZZZZ010234	34100	=SET{%COPY='-',%MOVE='-',%CANCEL='-'};
ZZZZ010234	34200	=SET{WN.XTABLECOPY=_TABLE};
ZZZZ010234	34300	DATA={*N}Z_CANCEL{14}
ZZZZ010234	34400	DATA={K}?&.DATA&SYSTEM_SEQ?
ZZZZ010234	34500	DATA=   ?&.DATA&SYSTEM_CALL?
ZZZZ010234	34600	=IF{_DATA@COUNT!=0}
ZZZZ010234	34700	=   IF{_DATA@COUNT!=10}ERROR{LENGTH!=10};
ZZZZ010234	34800	DATA=   ?&.DATA&SYSTEM_HELP?
ZZZZ010234	34900	DATA={*N}FIND{9}
ZZZZ010234	35000	SELECT=?WN.F?
ZZZZ010234	35100	COPY=@ZZZZZZ_SQL
ZZZZ010234	35200	=IF{_PAGE_SW=}
ZZZZ010234	35300	=   IF_ERROR_SET{_PAGE_SW=1,.SEQ_NOW=SYSTEM_SEQ}NOP{};
ZZZZ010235	100	MINUS=%NOT_REPLACE_TEST
ZZZZ010235	200	PROGRAM=,&X1,?_MM?_CHART_ID_TABLE
ZZZZ010235	300	DICTIONARY=SYSTEM_PERMISSION
ZZZZ010235	400	CONTROL=0,PROGRAM_TEST,SCROLL
ZZZZ010235	500	BEGIN
ZZZZ010235	510	MENU_INPUT+=SQL_SET{W0SETTING_CNT}{SELECT COUNT(*) FROM
ZZZZ010235	520	MENU_INPUT+=   ?_MM?_CHART_SETTING_TABLE
ZZZZ010235	521	MENU_INPUT+=   WHERE Z_CANCEL=' '};
ZZZZ010235	600	MENU_INPUT+=IF{'ZZZZ'!=_PERMISSION}
ZZZZ010235	700	MENU_INPUT+=   SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010235	800	SET=.?&.SET&SYSTEM_CHART?
ZZZZ010235	810	MENU_INPUT+=IF{W0SETTING_CNT=0}
ZZZZ010235	820	MENU_INPUT+=   ERROR{
ZZZZ010235	830	MENU_INPUT+= グラフセッティング(ZZZZ010518)を実行して下さい};
ZZZZ010235	900	MENU_INPUT+SET={O,*}.?&SET&SYSTEM_PERMISSION?
ZZZZ010235	1000	MENU_INPUT+=SET{_DATA@WHERE=
ZZZZ010235	1100	MENU_INPUT+=   '?_T?.SYSTEM_CHART LIKE'
ZZZZ010235	1110	MENU_INPUT+=   +' ''?.SYSTEM_PERMISSION?%'''};
ZZZZ010235	1200	NAME=COLOR
ZZZZ010235	1300	COLOR
ZZZZ010235	1400	=NOP{};
ZZZZ010235	1500	NAME=
ZZZZ010235	1600	START
ZZZZ010235	1700	=IF{_START=2}SET{SYSTEM_TEST='TEST'};
ZZZZ010235	1800	=IF{_START=2}EXIT{};
ZZZZ010235	1810	MENU_OUTPUT+=IF{_START=0}EXIT{};
ZZZZ010235	1900	%TEST+=IF{SYSTEM_TEST!='TEST'}ERROR{TEST != 'TEST'};
ZZZZ010235	2000	NAME=PERMISSION_NAME_CHECK
ZZZZ010235	2100	MENU_INPUT+=IF{'ZZZZ'!=_PERMISSION}
ZZZZ010235	2200	MENU_INPUT+=  IF{SYSTEM_CHART[1;4]!=_PERMISSION}
ZZZZ010235	2300	MENU_INPUT+=   ERROR{?_PERMISSION?_...};
ZZZZ010235	2400	NAME=
ZZZZ010235	2500	=IF{_START!=1}EXIT{};
ZZZZ010235	2600	=SQL_SET{}{SELECT 0 FROM ?_MM?_CHART_TABLE WHERE
ZZZZ010235	2700	=   ?_VRE&SYSTEM_CHART? AND Z_CANCEL=' '};
ZZZZ010235	2710	=IF{_SQL_SET_COUNT>0}
ZZZZ010235	2800	=   ERROR{CHART_TABLE('?SYSTEM_CHART?') FOUND};
ZZZZ010235	2900	DATA={C}?&.DATA&SYSTEM_TEST?
ZZZZ010235	3000	%TEST+=IF{SYSTEM_TEST!='TEST'}ERROR{TEST != 'TEST'};
ZZZZ010235	3100	DATA={K}?&.DATA&SYSTEM_CHART?
ZZZZ010235	3200	COPY=PERMISSION_NAME_CHECK
ZZZZ010235	3300	DATA=   ?&.DATA&SYSTEM_COMMENT?
ZZZZ010235	3400	COPY=@ZZZZZZ_SQL
ZZZZ010235	3500	PROGRAM=,&X1,?_MM?_CHART_TABLE
ZZZZ010235	3600	TABLE=&X2,?_MM?_CHART_SETTING_TABLE
ZZZZ010235	3700	MINUS=%ZZZZZZ_SQL_ORDER
ZZZZ010235	3800	CONTROL=PROGRAM_TEST,BEGIN_ENTER,SCROLL
ZZZZ010235	3900	INPUT+CONTROL=0
ZZZZ010235	4000	BEGIN
ZZZZ010235	4100	*****( WN.X... 設定 END )*****
ZZZZ010235	4200	SET={KO}.=?&.SET&SYSTEM_CHART?
ZZZZ010235	4300	SET={O,*} .?$&.SET&SYSTEM_COMMENT?
ZZZZ010235	4400	SET={N,*}.LANG{2}
ZZZZ010235	4500	SET={,*}S_CMD{70}
ZZZZ010235	4600	JA+TITLE=操作
ZZZZ010235	4700	=IF{S_CMD='TEST',='T'}JUMP{TEST};
ZZZZ010235	4710	=IF{S_CMD='TEST',='T',='RUN',='R'}JUMP{TEST};
ZZZZ010235	4800	=IF{S_CMD='HELP',='H'}JUMP{HELP};
ZZZZ010235	4900	=JUMP{S_END};
ZZZZ010235	5000	****( TEST )*****
ZZZZ010235	5100	=TEST:
ZZZZ010235	5110	=ICHART{?.SYSTEM_CHART?,DATA};
ZZZZ010235	5200	=JUMP{S_END};
ZZZZ010235	5300	=HELP:
ZZZZ010235	5400	****( HELP )*****
ZZZZ010235	5500	=ICHART{,HELP};
ZZZZ010235	5600	=S_END:SET{S_CMD=};
ZZZZ010235	5700	START
ZZZZ010235	5800	=IF{_START!=1}EXIT{};
ZZZZ010235	5900	=IF{SYSTEM_CHART_NO=0}EXIT{};
ZZZZ010235	6000	=IF{SYSTEM_CHART_KEY2!='CHART_TYPE'}EXIT{};
ZZZZ010235	6100	NAME=CHART_NO_CNT
ZZZZ010235	6200	=SQL_SET{W0.CHART_NO_CNT}{SELECT COUNT(*) FROM ?_TABLE?
ZZZZ010235	6300	=   WHERE ?_VRE&.SYSTEM_CHART?
ZZZZ010235	6310	=   AND ?_VRE&SYSTEM_CHART_NO? AND Z_CANCEL = ' '};
ZZZZ010235	6400	NAME=
ZZZZ010235	6500	=IF{W0.CHART_NO_CNT>1}ERROR{CHART_TYPE以外が存在します。};
ZZZZ010235	6510	=EXIT{};
ZZZZ010235	6520	=J2:
ZZZZ010235	6600	DATA={K}?&.DATA&SYSTEM_CHART_NO?
ZZZZ010235	6700	=IF{_DATA=0}EXIT{};
ZZZZ010235	6800	=SET{SYSTEM_CHART_KEY1=,WC1.SYSTEM_CHART_DATA=};
ZZZZ010235	6900	COPY=CHART_NO_CNT
ZZZZ010235	7000	=IF{W0.CHART_NO_CNT!=0}EXIT{SYSTEM_CHART_KEY2};
ZZZZ010235	7100	=SET{SYSTEM_CHART_KEY2='CHART_TYPE'};
ZZZZ010235	7200	=EXIT2{SYSTEM_CHART_KEY2};
ZZZZ010235	7300	DATA={K,*&X2}?&.DATA&SYSTEM_CHART_KEY1?
ZZZZ010235	7400	=SQL_SET{WC1.SYSTEM_CHART_DATA}
ZZZZ010235	7500	=  {SELECT SYSTEM_CHART_DATA
ZZZZ010235	7600	=    FROM ?&X2.TABLE?
ZZZZ010235	7700	=    WHERE SYSTEM_CHART_SET_NO='1'
ZZZZ010235	7800	=    AND   SYSTEM_CHART_SET2?_VCE&SYSTEM_CHART_KEY1?
ZZZZ010235	7900	=    AND   Z_CANCEL=' '};
ZZZZ010235	8000	DATA={K}?&.DATA&SYSTEM_CHART_KEY2?
ZZZZ010235	8100	NAME=CHECK2
ZZZZ010235	8200	CHECK2=SELECT
ZZZZ010235	8210	CHECK2=   X2.SYSTEM_CHART_SET2,?_CL?CASE X2.SYSTEM_CHART_CODE
ZZZZ010235	8300	CHECK2=WHEN '.' THEN '(.)' WHEN ' ' THEN
ZZZZ010235	8400	CHECK2= ?_CL?'('?_C?RTRIM(X2.SYSTEM_CHART_DATA)?_C?')'?_CR?
ZZZZ010235	8500	CHECK2=ELSE ' ' END?_C?X2.SYSTEM_CHART_COMMENT?_CR?
ZZZZ010235	8600	CHECK2= FROM ?&X2.TABLE? X2 WHERE
ZZZZ010235	8700	NAME=
ZZZZ010235	8800	CHECK2= X2.SYSTEM_CHART_SET1?_VCE&WC1.SYSTEM_CHART_DATA?
ZZZZ010235	8900	CHECK2= AND X2.SYSTEM_CHART_SET_NO='2'
ZZZZ010235	9000	CHECK2= AND X2.Z_CANCEL=' ' ORDER BY 1
ZZZZ010235	9100	=SQL_SET{WC2.SYSTEM_CHART_DATA,SYSTEM_CHART_CODE}
ZZZZ010235	9200	=  {SELECT SYSTEM_CHART_DATA,SYSTEM_CHART_CODE
ZZZZ010235	9300	=   FROM ?&X2.TABLE?
ZZZZ010235	9400	=   WHERE SYSTEM_CHART_SET_NO='2'
ZZZZ010235	9500	=   AND   SYSTEM_CHART_SET2?_VCE&SYSTEM_CHART_KEY2?
ZZZZ010235	9600	=   AND   Z_CANCEL=' '};
ZZZZ010235	9700	=IF{SYSTEM_CHART_CODE='.'}EXIT{}; OBJECTなので次も展開*
ZZZZ010235	9800	=SET{SYSTEM_CHART_DATA=WC2.SYSTEM_CHART_DATA};
ZZZZ010235	9900	=SET{SYSTEM_CHART_KEY3=};
ZZZZ010235	10100	=EXIT2{SYSTEM_CHART_KEY3};
ZZZZ010235	10200	DATA={K}?&.DATA&SYSTEM_CHART_KEY3?
ZZZZ010235	10300	COPY=CHECK2
ZZZZ010235	10400	CHECK2=WHERE SYSTEM_CHART_SET1?_VCE&WC2.SYSTEM_CHART_DATA?
ZZZZ010235	10500	CHECK2=AND SYSTEM_CHART_SET_NO='3'
ZZZZ010235	10600	CHECK2=AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010235	10610	=IF{_DATA=}JUMP{FIN};
ZZZZ010235	10700	=SQL_SET{WC3.SYSTEM_CHART_DATA,SYSTEM_CHART_CODE}
ZZZZ010235	10800	=  {SELECT SYSTEM_CHART_DATA,SYSTEM_CHART_CODE
ZZZZ010235	10900	=   FROM ?&X2.TABLE?
ZZZZ010235	11000	=   WHERE SYSTEM_CHART_SET_NO='3'
ZZZZ010235	11100	=   AND   SYSTEM_CHART_SET2?_VCE&SYSTEM_CHART_KEY3?
ZZZZ010235	11200	=   AND    Z_CANCEL=' '};
ZZZZ010235	11300	=SET{SYSTEM_CHART_DATA=WC3.SYSTEM_CHART_DATA};
ZZZZ010235	11302	=FIN:
ZZZZ010235	12710	=IF{'CUSTOM_PROPERTIES'=SYSTEM_CHART_KEY2
ZZZZ010235	12711	=   ,=SYSTEM_CHART_KEY3}
ZZZZ010235	12720	=   EXIT{};
ZZZZ010235	12730	=SET  {SYSTEM_CHART_CUSTOM_PROPERTIES=};
ZZZZ010235	12732	=EXIT2{SYSTEM_CHART_CUSTOM_PROPERTIES};
ZZZZ010235	12880	DATA={K,*&X2}?&.DATA&SYSTEM_CHART_CUSTOM_PROPERTIES?
ZZZZ010235	12900	DATA={O}?&.DATA&SYSTEM_CHART_DATA?
ZZZZ010235	13000	=SET{SYSTEM_CHART_DATA1@TYPE2=};
ZZZZ010235	13100	=IF{_DATA='STRING'}
ZZZZ010235	13200	=   SET{SYSTEM_CHART_DATA1@TYPE2='R'}; 英大小反転入力化*
ZZZZ010235	13300	=SET{WC.SYSTEM_CHART_KIND=};
ZZZZ010235	13400	=SET{WC.SYSTEM_CHART_DATA1=};
ZZZZ010235	13500	=SET{WC.SYSTEM_CHART_DATA2=};
ZZZZ010235	13600	=SET{WC.SYSTEM_CHART_DATA34=};
ZZZZ010235	13700	=IF{SYSTEM_CHART_CODE<>'#'}JUMP{SKIP};
ZZZZ010235	13800	=SET{WC.SYSTEM_CHART_DATA1='SELECT SYSTEM_CHART_SET2'
ZZZZ010235	13900	=   +',SYSTEM_CHART_COMMENT FROM ?&X2.TABLE?'
ZZZZ010235	14000	=   +' WHERE SYSTEM_CHART_SET1=''?_DATA?'''
ZZZZ010235	14100	=   +' AND SYSTEM_CHART_SET_NO=''4'''
ZZZZ010235	14200	=   +' AND Z_CANCEL='' '' ORDER BY 1'};
ZZZZ010235	14300	=SET{SYSTEM_CHART_KIND=};
ZZZZ010235	14400	=EXIT{SYSTEM_CHART_DATA1};
ZZZZ010235	14500	=SKIP:
ZZZZ010235	14600	=IF{_DATA='FONT'}
ZZZZ010235	14700	=   SET{WC.SYSTEM_CHART_KIND='FONT/1,FONT/2,FONT/3,FONT/4'};
ZZZZ010235	14800	=IF{_DATA='COLOR'}
ZZZZ010235	14900	=   SET{WC.SYSTEM_CHART_KIND
ZZZZ010235	14910	=   ='COLOR/1,COLOR/2,COLOR/3,COLOR/4'};
ZZZZ010235	15000	=IF{_DATA='BOOL'}
ZZZZ010235	15100	=   SET{WC.SYSTEM_CHART_DATA1='TRUE,,FALSE,'};
ZZZZ010235	15200	=IF_NOT{WC.SYSTEM_CHART_KIND=}EXIT{};
ZZZZ010235	15300	=SET{SYSTEM_CHART_KIND=};
ZZZZ010235	15400	=EXIT{SYSTEM_CHART_DATA1};
ZZZZ010235	15500	DATA={O}?&.DATA&SYSTEM_CHART_CODE?
ZZZZ010235	15600	DATA=   ?&.DATA&SYSTEM_CHART_KIND?
ZZZZ010235	15700	CHECK=?WC.SYSTEM_CHART_KIND?
ZZZZ010235	15710	=SET{WC.SET_CHECK2=1};
ZZZZ010235	15800	=IF{_DATA/'FONT'}JUMP{FONT};
ZZZZ010235	15900	=IF_NOT{_DATA='COLOR/1'}EXIT{};
ZZZZ010235	16000	=COLOR1:SET{WC.KIND='COLOR'};
ZZZZ010235	16100	=JUMP{CHECK2};
ZZZZ010235	16200	=FONT:SET{WC.KIND='FONT'};
ZZZZ010235	16400	NAME=SET_CHECK2
ZZZZ010235	16500	=CHECK2:SET{WC.SYSTEM_CHART_DATA?WC.SET_CHECK2?=
ZZZZ010235	16600	=   'SELECT SYSTEM_CHART_SET2,SYSTEM_CHART_COMMENT'
ZZZZ010235	16700	=   +' FROM ?&X2.TABLE?'
ZZZZ010235	16800	=   +' WHERE UPPER(SYSTEM_CHART_SET1)=''?WC.KIND?'''
ZZZZ010235	16900	=   +' AND SYSTEM_CHART_SET_NO=''4'''
ZZZZ010235	17000	=   +' AND Z_CANCEL='' '' ORDER BY 1'};
ZZZZ010235	17100	NAME=
ZZZZ010235	17200	DATA=   ?&.DATA&SYSTEM_CHART_DATA1?
ZZZZ010235	17300	CHECK2=?WC.SYSTEM_CHART_DATA1?
ZZZZ010235	17400	=IF{SYSTEM_CHART_CODE='#'}JUMP{FIN};
ZZZZ010235	17500	=IF{SYSTEM_CHART_KIND/'FONT'}JUMP{FIN};
ZZZZ010235	17600	=IF{SYSTEM_CHART_KIND/'COLOR'}JUMP{COLOR};
ZZZZ010235	17700	=IF_NOT{SYSTEM_CHART_DATA='INT',='POINT',='SIZE'}
ZZZZ010235	17701	=   JUMP{SKIP};
ZZZZ010235	17800	=IF_ERROR_SET{W0=_DATA}ERROR{NOT INT};IF{W0<0}ERROR{<0};
ZZZZ010235	17900	=SKIP:IF_NOT{SYSTEM_CHART_DATA='DOUBLE',='FLOAT'}
ZZZZ010235	17901	=   JUMP{FIN};
ZZZZ010235	18000	=IF_ERROR_SET{W999=_DATA}ERROR{NOT FLOAT OR DOUBLE};
ZZZZ010235	18100	*IF{W999<0}ERROR{<0};
ZZZZ010235	18200	=JUMP{FIN};
ZZZZ010235	18300	=COLOR:
ZZZZ010235	18400	=IF{SYSTEM_CHART_KIND='COLOR/1'}JUMP{FIN};
ZZZZ010235	18500	=IF_ERROR_SET{W0=_DATA}ERROR{NOT INT};
ZZZZ010235	18600	=IF{W0>255}ERROR{>255};
ZZZZ010235	18700	=IF{SYSTEM_CHART_KIND<>'COLOR/2'}JUMP{FIN};
ZZZZ010235	18800	=SET{WC.KIND='COLOR'};
ZZZZ010235	18900	=SET{WC.SET_CHECK2=2};
ZZZZ010235	19000	COPY=SET_CHECK2
ZZZZ010235	19100	=FIN:IF{SYSTEM_CHART_DATA='POINT',='SIZE'}EXIT{};
ZZZZ010235	19200	=IF_NOT{SYSTEM_CHART_KIND=,%'1'}EXIT{};
ZZZZ010235	19300	=SET{SYSTEM_CHART_DATA2=};
ZZZZ010235	19400	=SET{SYSTEM_CHART_DATA3=};
ZZZZ010235	19500	=SET{SYSTEM_CHART_DATA4=};
ZZZZ010235	19600	=EXIT{SYSTEM_COMMENT};
ZZZZ010235	19700	DATA=   ?&.DATA&SYSTEM_CHART_DATA2?
ZZZZ010235	19800	CHECK2=?WC.SYSTEM_CHART_DATA2?
ZZZZ010235	19900	=IF{SYSTEM_CHART_DATA='DOUBLE',='FLOAT'}JUMP{DOUBLE};
ZZZZ010235	20000	=IF{SYSTEM_CHART_KIND='COLOR/2'}JUMP{FIN};
ZZZZ010235	20100	=IF_ERROR_SET{W0=_DATA}ERROR{NOT INT };
ZZZZ010235	20200	=IF{SYSTEM_CHART_KIND='FONT/3',='FONT/4'}JUMP{FONT34};
ZZZZ010235	20300	=IF{SYSTEM_CHART_KIND/'COLOR'}IF{W0>255}ERROR{>255};
ZZZZ010235	20400	*IF{SYSTEM_CHART_KIND/'COLOR'}IF{W0<0}ERROR{<0};
ZZZZ010235	20500	=JUMP{FIN};
ZZZZ010235	20600	=DOUBLE:
ZZZZ010235	20700	=IF_ERROR_SET{W999=_DATA}ERROR{NOT FLOAT OR DOUBLE};
ZZZZ010235	20800	*IF{W999<0}ERROR{<0};
ZZZZ010235	20900	=JUMP{FIN};
ZZZZ010235	21000	=FONT34:SET{WC.KIND='FONT_STYLE'};
ZZZZ010235	21100	=SET{WC.SET_CHECK2=34};
ZZZZ010235	21200	COPY=SET_CHECK2
ZZZZ010235	21300	=FIN:IF_NOT{SYSTEM_CHART_KIND%'2'}EXIT{};
ZZZZ010235	21400	=SET{SYSTEM_CHART_DATA3=};
ZZZZ010235	21500	=SET{SYSTEM_CHART_DATA4=};
ZZZZ010235	21600	=EXIT{SYSTEM_COMMENT};
ZZZZ010235	21700	DATA=   ?&.DATA&SYSTEM_CHART_DATA3?
ZZZZ010235	21800	CHECK2=?WC.SYSTEM_CHART_DATA34?
ZZZZ010235	21900	=IF_NOT{SYSTEM_CHART_KIND/'COLOR'}JUMP{FIN};
ZZZZ010235	22000	=IF_ERROR_SET{W0=_DATA}ERROR{NOT INT};IF{W0>255}ERROR{>255};
ZZZZ010235	22100	*IF{W0<0}ERROR{<0};
ZZZZ010235	22200	=FIN:IF_NOT{SYSTEM_CHART_KIND%'3'}EXIT{};
ZZZZ010235	22300	=SET{SYSTEM_CHART_DATA4=};
ZZZZ010235	22400	=EXIT{SYSTEM_COMMENT};
ZZZZ010235	22500	DATA=   ?&.DATA&SYSTEM_CHART_DATA4?
ZZZZ010235	22600	CHECK2=?WC.SYSTEM_CHART_DATA34?
ZZZZ010235	22700	=IF_NOT{SYSTEM_CHART_KIND/'COLOR'}EXIT{};
ZZZZ010235	22800	=IF_ERROR_SET{W0=_DATA}ERROR{NOT INT};IF{W0>255}ERROR{>255};
ZZZZ010235	22900	*IF{W0<0}ERROR{<0};
ZZZZ010235	23000	DATA=   ?&.DATA&SYSTEM_COMMENT?
ZZZZ010235	23100	COPY=@ZZZZZZ_SQL
ZZZZ010235	23200	SQL=   ORDER BY Z_CANCEL,1,2,CASE
ZZZZ010235	23300	SQL=   ?_T?.SYSTEM_CHART_KEY2 WHEN 'CHART_TYPE' THEN 1
ZZZZ010235	23301	SQL=   ELSE 2 END
ZZZZ010235	23400	SQL=   ,3,4
ZZZZ010236	100	MINUS=%NOT_REPLACE_TEST
ZZZZ010236	200	PROGRAM=,&X1,?_MM?_PRINT_ID_TABLE
ZZZZ010236	300	DICTIONARY=SYSTEM_PERMISSION
ZZZZ010236	400	CONTROL=0,PROGRAM_TEST,SCROLL
ZZZZ010236	500	BEGIN
ZZZZ010236	510	=SET{WC.MENU_TIME='MENU'}; サブルーチンエラー回避*
ZZZZ010236	600	MENU_INPUT+=IF{'ZZZZ'!=_PERMISSION}
ZZZZ010236	700	MENU_INPUT+=   SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010236	800	SET=.?&.SET&SYSTEM_PRINT?
ZZZZ010236	900	MENU_INPUT+SET={O,*}.?&SET&SYSTEM_PERMISSION?
ZZZZ010236	1000	MENU_INPUT+=SET{_DATA@WHERE='?_T?.SYSTEM_PRINT'
ZZZZ010236	1100	MENU_INPUT+=   +' LIKE ''?.SYSTEM_PERMISSION?%'''};
ZZZZ010236	1200	NAME=COLOR
ZZZZ010236	1300	COLOR
ZZZZ010236	1400	=NOP{};
ZZZZ010236	1500	NAME=
ZZZZ010236	1600	START
ZZZZ010236	1700	=IF{_START=2}SET{SYSTEM_TEST='TEST'};
ZZZZ010236	1800	=IF{_START=2}EXIT{};
ZZZZ010236	1900	%TEST+=IF{SYSTEM_TEST!='TEST'}ERROR{TEST != 'TEST'};
ZZZZ010236	2000	NAME=PERMISSION_NAME_CHECK
ZZZZ010236	2100	MENU_INPUT+=IF{'ZZZZ'!=_PERMISSION}
ZZZZ010236	2200	MENU_INPUT+=   IF{SYSTEM_PRINT[1;4]!=_PERMISSION}
ZZZZ010236	2300	MENU_INPUT+=   ERROR{?_PERMISSION?_...};
ZZZZ010236	2400	NAME=
ZZZZ010236	2500	=IF{_START!=1}EXIT{};
ZZZZ010236	2600	=SQL_SET{}{SELECT SYSTEM_SEQ FROM ?_MM?_PRINT_TABLE WHERE
ZZZZ010236	2700	= ?_VRE&SYSTEM_PRINT? AND Z_CANCEL=' '};
ZZZZ010236	2800	=IF{_SQL_SET_COUNT>0}
ZZZZ010236	2900	=   ERROR{PRINT_TABLE('?SYSTEM_PRINT?') FOUND};
ZZZZ010236	3000	DATA={C}?&.DATA&SYSTEM_TEST?
ZZZZ010236	3100	%TEST+=IF{SYSTEM_TEST!='TEST'}ERROR{TEST != 'TEST'};
ZZZZ010236	3200	DATA={K}?&.DATA&SYSTEM_PRINT?
ZZZZ010236	3300	COPY=PERMISSION_NAME_CHECK
ZZZZ010236	3400	DATA=   ?&.DATA&SYSTEM_COMMENT?
ZZZZ010236	3500	COPY=@ZZZZZZ_SQL
ZZZZ010236	3600	STOP_AFTER
ZZZZ010236	3700	=IF{_START!=2}EXIT{};
ZZZZ010236	3800	=SET{W0.SYSTEM_SEQ=100};
ZZZZ010236	3900	=SET{W.SYSTEM_PRINT_DATA='VERSION,?@ZZZZZZ_VERSION_PRINT?'};
ZZZZ010236	4000	=PROGRAM{2N,?_MM?_PRINT_TABLE,W.SYSTEM_PRINT_DATA}
ZZZZ010236	4010	=  {SYSTEM_PRINT,W0.SYSTEM_SEQ}{};
ZZZZ010236	4200	=PROGRAM{2N,?_MM_TEST?_PRINT_TABLE,W.SYSTEM_PRINT_DATA}
ZZZZ010236	4210	=  {SYSTEM_PRINT,W0.SYSTEM_SEQ}{};
ZZZZ010236	4400	PROGRAM=,&X1,?_MM?_PRINT_TABLE
ZZZZ010236	4500	MINUS=%Z_CANCEL_SELECT
ZZZZ010236	4600	CONTROL=PROGRAM_TEST,BEGIN_ENTER
ZZZZ010236	4700	INPUT+CONTROL=0
ZZZZ010236	4800	COLOR
ZZZZ010236	4900	=IF{.Z_CANCEL!=}SET{SYSTEM_PRINT_DATA@COLOR='N'}EXIT{};
ZZZZ010236	5000	=IF{FIND>0}JUMP{E};
ZZZZ010236	5100	=SET{SYSTEM_SEQ@COLOR='W'};EXIT{};
ZZZZ010236	5200	=E:SET{SYSTEM_SEQ@COLOR='E'};
ZZZZ010236	5300	BEGIN
ZZZZ010236	5400	=SET{WN.F=0};
ZZZZ010236	5500	*****( WN.X... 設定 OUTPUT BEGIN )*****
ZZZZ010236	5600	=SET{WN.XKEY='SYSTEM_PRINT'};
ZZZZ010236	5700	=SET{WN.XWHERE='?WN.XKEY?=''?.SYSTEM_PRINT?'''};
ZZZZ010236	5800	=SET{WN.XOBJECT='SYSTEM_PRINT_DATA'};
ZZZZ010236	5900	*****( WN.X... 設定 INPUT BEGIN )*****
ZZZZ010236	6000	=SET{WN.XTABLEI='PRINT_TABLE'};
ZZZZ010236	6100	=SET{WN.XKEYVALUE=.?WN.XKEY?};
ZZZZ010236	6200	=SET{WN.XKEYCOPY=.?WN.XKEY?};
ZZZZ010236	6300	=SET{WN.XKEYDATA=&.DATA&?WN.XKEY?};
ZZZZ010236	6400	=SET{WN.XTABLE=_MM+'_'+WN.XTABLEI};
ZZZZ010236	6500	=SET{WN.XOBJECTDATA=&.DATA&?WN.XOBJECT?};
ZZZZ010236	6600	*****( WN.X... 設定 END )*****
ZZZZ010236	6700	SET={KO}.=?&.SET&SYSTEM_PRINT?
ZZZZ010236	6800	SET={O,*}.=?$&.SET&SYSTEM_COMMENT?
ZZZZ010236	6900	SET={N,*}.LANG{2}
ZZZZ010236	7000	SET={,*}S_CMD{70}
ZZZZ010236	7100	JA+TITLE=操作
ZZZZ010236	7200	INPUT+MESSAGE=COPY KEY(LOC STA END),RENUMBER,[T]EST,[H]ELP
ZZZZ010236	7300	=SET{%TABLE='-'};
ZZZZ010236	7400	=SET{W0.D=_DATA@COUNT,W0.C=1};
ZZZZ010236	7500	=SET{WN.EQ=,WN.1=,WN.2=,WN.3=,WN.4=,WN.5=,WN.6=};
ZZZZ010236	7600	=SPLIT_CHAR{WN.}{S_CMD}{};
ZZZZ010236	7700	=IF{WN.1='TEST',='T'}JUMP{TEST};
ZZZZ010236	7800	=IF{WN.1='HELP',='H'}JUMP{HELP};
ZZZZ010236	7900	****( 汎用処理 INPUT BEGIN )*****
ZZZZ010236	8000	OUTPUT+=JUMP{OUTPUT};
ZZZZ010236	8100	=SET{WN.XTABLECOPY=_TABLE};
ZZZZ010236	8200	=IF{WN.1='CANCEL'}JUMP{CANCEL};
ZZZZ010236	8300	=IF{WN.1='C',='CHANGE'}JUMP{CHANGE};
ZZZZ010236	8400	=IF{WN.1='COPY'}JUMP{COPY};
ZZZZ010236	8500	=IF{WN.1='MOVE'}JUMP{MOVE};
ZZZZ010236	8600	=IF{S_CMD='DISCARD'}JUMP{DISCARD};
ZZZZ010236	8700	=IF{S_CMD='RENUMBER'}JUMP{RENUMBER};
ZZZZ010236	8800	****( 汎用処理 OUTPUT BEGIN )*****
ZZZZ010236	8900	=OUTPUT:
ZZZZ010236	9000	=IF{WN.1='L',='LOCATE'}JUMP{LOCATE};
ZZZZ010236	9100	=IF{WN.1='LL',='LLOCATE'}JUMP{S_END};
ZZZZ010236	9200	=IF{WN.1='FC',WN.1='FINDCLEAR'}JUMP{FC};
ZZZZ010236	9300	=IF{WN.1='MAX'}JUMP{MAX};
ZZZZ010236	9400	=IF{WN.1='MIN'}JUMP{MIN};
ZZZZ010236	9500	=IF{WN.1='U',='UP'}JUMP{UP};
ZZZZ010236	9600	=IF{WN.1='D',='DOWN'}JUMP{DOWN};
ZZZZ010236	9700	=IF{WN.1='P',='PRIOR'}JUMP{PRIOR};
ZZZZ010236	9800	=IF{WN.1='E',='END'}JUMP{END};
ZZZZ010236	9900	=IF{W0.C<W0.D}IF{S_CMD[W0.C;1]=' '}COMPUTE{W0.C+=1}BACK{};
ZZZZ010236	10000	=IF{S_CMD[W0.C]='F',='FIND',='FF'}JUMP{FIND1};
ZZZZ010236	10100	=IF{S_CMD[W0.C]='F0',='FIND0',='FF0'}JUMP{FIND10};
ZZZZ010236	10200	=IF{S_CMD[W0.C;2]='F '}JUMP{F};
ZZZZ010236	10300	=IF{S_CMD[W0.C;3]='F0 '}JUMP{F0};
ZZZZ010236	10400	=IF{S_CMD[W0.C;3]='FF '}JUMP{FF};
ZZZZ010236	10500	=IF{S_CMD[W0.C;4]='FF0 '}JUMP{FF0};
ZZZZ010236	10600	=IF{S_CMD[W0.C;5]='FIND '}JUMP{FIND};
ZZZZ010236	10700	=IF{S_CMD[W0.C;6]='FIND0 '}JUMP{FIND0};
ZZZZ010236	10800	=IF{_DATA@COUNT!=0}ERROR{COMMAND};
ZZZZ010236	10900	=SET{.SYSTEM_SEQ=.SYSTEM_SEQ_NOW};JUMP{S_END};
ZZZZ010236	11000	*****
ZZZZ010236	11100	=FC:SET{WN.F=0,S_FIND=,#FIND=};JUMP{S_END};
ZZZZ010236	11200	=MAX:SQL_SET{WN.LOCATE}{SELECT MAX(SYSTEM_SEQ) FROM
ZZZZ010236	11300	=?_TABLE? WHERE ?WN.XWHERE? AND Z_CANCEL=' '};
ZZZZ010236	11400	=IF{_SQL_SET_COUNT=0}JUMP{S_END};
ZZZZ010236	11500	=SET{.SYSTEM_SEQ=WN.LOCATE};JUMP{S_END};
ZZZZ010236	11600	=MIN:SET{.SYSTEM_SEQ=0};JUMP{S_END};
ZZZZ010236	11700	=PRIOR:SET{WN.MAX_MIN='MAX'};JUMP{NEXT };
ZZZZ010236	11800	=END:SET{WN.MAX_MIN='MAX',SYSTEM_SEQ_NOW=99999};JUMP{NEXT };
ZZZZ010236	11900	=F:    COMPUTE{W0.C+=2};JUMP{FINDX};
ZZZZ010236	12000	=F0:   COMPUTE{W0.C+=3};JUMP{FINDX0};
ZZZZ010236	12100	=FF:   COMPUTE{W0.C+=3};JUMP{FINDX};
ZZZZ010236	12200	=FF0:  COMPUTE{W0.C+=4};JUMP{FINDX0};
ZZZZ010236	12300	=FIND: COMPUTE{W0.C+=5};JUMP{FINDX};
ZZZZ010236	12400	=FIND0:COMPUTE{W0.C+=6};JUMP{FINDX0};
ZZZZ010236	12500	****( 汎用処理 END )*****
ZZZZ010236	12600	****( 汎用処理 INPUT BEGIN )****
ZZZZ010236	12700	*****( MOVE )************************************************
ZZZZ010236	12800	=MOVE:SET{WN.BEGIN=,WN.END=};
ZZZZ010236	12900	=IF{WN.2=}ERROR{MOVE LOCATE=SPACE ERROR};
ZZZZ010236	13000	=IF_ERROR_SET{W0.LOCATE=WN.2}ERROR{MOVE LOCATE(?WN.2?)ERROR};
ZZZZ010236	13100	=IF{WN.3=}ERROR{MOVE BEGIN=SPACE ERROR};
ZZZZ010236	13200	=IF_ERROR_SET{W0.BEGIN=WN.3}ERROR{MOVE BEGIN(?WN.3?)ERROR};
ZZZZ010236	13300	=IF{WN.4=}ERROR{MOVE END=SPACE ERROR};
ZZZZ010236	13400	=IF_ERROR_SET{W0.END=WN.4}ERROR{MOVE END(?WN.4?)ERROR};
ZZZZ010236	13500	=IF{W0.LOCATE>=W0.BEGIN}
ZZZZ010236	13600	=  IF{W0.LOCATE<=W0.END}ERROR{BEGIN=<LOCATE=<END};
ZZZZ010236	13700	=JUMP{COPY3};
ZZZZ010236	13800	*****( COPY )******************************************
ZZZZ010236	13900	=COPY:IF{WN.2!=}JUMP{COPY2};
ZZZZ010236	14000	=SET{%COPY='+',%MOVE='-',%CANCEL='-'};
ZZZZ010236	14100	=SQL_SET{SYSTEM_SEQ,.?WN.XOBJECT?}
ZZZZ010236	14200	= {SELECT SYSTEM_SEQ,?WN.XOBJECT?
ZZZZ010236	14300	=   FROM ?_TABLE? WHERE ?WN.XWHERE? AND SYSTEM_SEQ=(SELECT
ZZZZ010236	14400	=   MAX(SYSTEM_SEQ) FROM ?_TABLE? WHERE ?WN.XWHERE?
ZZZZ010236	14500	=   AND Z_CANCEL=' ')};
ZZZZ010236	14600	=SET{WN.OPTION_O='O',S_CMD=};
ZZZZ010236	14700	=EXIT{+1};
ZZZZ010236	14800	=COPY2:SET{WN.XKEYCOPY=WN.2,WN.BEGIN=,WN.END=};
ZZZZ010236	14900	=IF_ERROR_SET{W0.LOCATE=WN.3}ERROR{COPY LOCATE(?WN.3?)ERROR};
ZZZZ010236	15000	=IF_ERROR_SET{W0.BEGIN=WN.4}ERROR{COPY BEGIN(?WN.4?) ERROR};
ZZZZ010236	15100	=IF_ERROR_SET{W0.END=WN.5}ERROR{COPY END(?WN.5?) ERROR};
ZZZZ010236	15200	=COPY3:IF{WN.XKEYCOPY='*'}SET{WN.XKEYCOPY=?WN.XKEY?};
ZZZZ010236	15300	=COPY2:IF{W0.LOCATE=0}SET{W0.CEND=99999}JUMP{COPY};
ZZZZ010236	15400	=SQL_SET{W0.CEND}{SELECT MIN(SYSTEM_SEQ) FROM ?_TABLE? WHERE
ZZZZ010236	15500	=   ?WN.XWHERE? AND SYSTEM_SEQ>?W0.LOCATE? AND Z_CANCEL=' '
ZZZZ010236	15600	=   GROUP BY ?WN.XKEY? ORDER BY ?WN.XKEY?};
ZZZZ010236	15700	=IF{_SQL_SET_COUNT=0}SET{W0.LOCATE=0,W0.CEND=99999};
ZZZZ010236	15800	NAME=BEGIN_END_CHECK
ZZZZ010236	15900	=SET{WN.BEGIN=,WN.END=};
ZZZZ010236	16000	=IF{W0.BEGIN=0}JUMP{BEGIN_0};
ZZZZ010236	16100	=SQL_SET{}{SELECT SYSTEM_SEQ FROM ?WN.XTABLECOPY?
ZZZZ010236	16200	=   WHERE ?WN.XKEY?='?WN.XKEYCOPY?' AND SYSTEM_SEQ=?W0.BEGIN?
ZZZZ010236	16300	=   AND Z_CANCEL=' '};
ZZZZ010236	16400	=IF{_SQL_SET_COUNT=0}
ZZZZ010236	16500	=   ERROR{?WN.XKEYCOPY? BEGIN(?W0.BEGIN?) NOT FOUND};
ZZZZ010236	16600	=SET{WN.BEGIN='AND SYSTEM_SEQ>='+W0.BEGIN};
ZZZZ010236	16700	=BEGIN_0:IF{W0.END=0}JUMP{END_0};
ZZZZ010236	16800	=SQL_SET{}{SELECT SYSTEM_SEQ FROM ?WN.XTABLECOPY? ?_T?
ZZZZ010236	16900	=   WHERE ?WN.XKEY?='?WN.XKEYCOPY?' AND SYSTEM_SEQ=?W0.END?
ZZZZ010236	17000	=   AND Z_CANCEL=' '};
ZZZZ010236	17100	=IF{_SQL_SET_COUNT=0}
ZZZZ010236	17200	=   ERROR{?WN.XKEYCOPY? END(?W0.END?) NOT FOUND};
ZZZZ010236	17300	=SET{WN.END='AND SYSTEM_SEQ<='+W0.END};
ZZZZ010236	17400	=END_0:IF{W0.END<W0.BEGIN}ERROR{BEGIN > END};
ZZZZ010236	17500	=IF{W0.BEGIN<0}ERROR{BEGIN < 0};
ZZZZ010236	17600	NAME=COPY
ZZZZ010236	17700	=COPY:IF{W0.LOCATE!=0}
ZZZZ010236	17800	=   COMPUTE_CUT{W0.CCC=W0.CEND-W0.LOCATE,-=1}JUMP{COPY_SKIP};
ZZZZ010236	17900	=SET{W0.CCC=99999};
ZZZZ010236	18000	=SQL_SET{W0.LOCATE}{SELECT (MAX(SYSTEM_SEQ)+100)/100*100
ZZZZ010236	18100	=   FROM ?_TABLE? WHERE ?WN.XWHERE? AND Z_CANCEL=' '};
ZZZZ010236	18200	=IF{_SQL_SET_COUNT=0}SET{W0.LOCATE=0};
ZZZZ010236	18300	=COPY_SKIP:
ZZZZ010236	18400	=LINK_SET{WN.SQL0}{SELECT ?WN.XOBJECT? FROM}{?WN.XTABLECOPY?}
ZZZZ010236	18500	=  {X}{WHERE ?WN.XKEY?='?WN.XKEYCOPY?'
ZZZZ010236	18600	=   AND Z_CANCEL=' ' ?WN.BEGIN? ?WN.END?
ZZZZ010236	18700	=   ORDER BY SYSTEM_SEQ};
ZZZZ010236	18800	=SQL1{?WN.SQL0?};
ZZZZ010236	18900	=IF{_SQL1_COUNT=0}ERROR{DATA COUNT ZERO};
ZZZZ010236	19000	=IF{W0.CCC<_SQL1_COUNT}ERROR{DATA COUNT OVER};
ZZZZ010236	19100	=COMPUTE_CUT{W0.CCC/=_SQL1_COUNT};
ZZZZ010236	19200	=IF{W0.CCC>10}SET{W0.CCC=10};
ZZZZ010236	19300	=IF{W0.CCC>100}SET{W0.CCC=100};
ZZZZ010236	19400	=SQL1_NEXT:SQL1_NEXT{WN.VALUE}JUMP{SQL1_END};
ZZZZ010236	19500	=LOOP:COMPUTE{W0.LOCATE+=W0.CCC};
ZZZZ010236	19600	=SQL_SET{WN.CANCEL}{SELECT Z_CANCEL FROM ?_TABLE? ?_T? WHERE
ZZZZ010236	19700	=   ?WN.XWHERE? AND SYSTEM_SEQ=?W0.LOCATE?};
ZZZZ010236	19800	=IF{_SQL_SET_COUNT=0}JUMP{C_INSERT};
ZZZZ010236	19900	=IF{WN.CANCEL=}BACK{LOOP};
ZZZZ010236	20000	=C_UPDATE:IF_ERROR_SQL{UPDATE ?_TABLE? SET ?WN.XOBJECT?=
ZZZZ010236	20100	=   '?WN.VALUE?',?_Z_UPDATE_ADD? WHERE ?WN.XWHERE?
ZZZZ010236	20200	=    AND SYSTEM_SEQ=?W0.LOCATE? AND Z_CANCEL<>' '}ERROR{};
ZZZZ010236	20300	=BACK{SQL1_NEXT};
ZZZZ010236	20400	=C_INSERT:IF_ERROR_SQL{INSERT INTO ?_TABLE?
ZZZZ010236	20500	=   (?WN.XKEY?,SYSTEM_SEQ,?WN.XOBJECT?,?_Z_INSERT_NAME?)
ZZZZ010236	20600	=   VALUES('?WN.XKEYVALUE?',?W0.LOCATE?,'?WN.VALUE?'
ZZZZ010236	20700	=   ,?_Z_INSERT_VALUE?)}ERROR{};
ZZZZ010236	20800	=BACK{SQL1_NEXT};
ZZZZ010236	20900	=SQL1_END:
ZZZZ010236	21000	NAME=
ZZZZ010236	21100	=IF{WN.1='MOVE'}JUMP{CANCEL2};
ZZZZ010236	21200	=JUMP{REPLACE_TEST};
ZZZZ010236	21300	*****( CHANGE )****************************************
ZZZZ010236	21400	=CHANGE:
ZZZZ010236	21500	=IF{WN.2@COUNT<2,WN.3@COUNT<2}JUMP{ERR};
ZZZZ010236	21600	=IF{WN.2[1;1]='''',WN.2[WN.2@COUNT;1]=''''
ZZZZ010236	21700	=   ,WN.3[1;1]='''',WN.3[WN.3@COUNT;1]=''''}JUMP{OK};
ZZZZ010236	21800	=ERR:ERROR{C 'O' 'N'};
ZZZZ010236	21900	=OK:
ZZZZ010236	22000	=COMPUTE{W0.L=WN.2@COUNT-2};SET{WN.CHO=WN.2[2;W0.L]};
ZZZZ010236	22100	=COMPUTE{W0.L=WN.3@COUNT-2};SET{WN.CHN=WN.3[2;W0.L]};
ZZZZ010236	22200	=IF{WN.CHO='',='  ',='   ',='    ',='     '}
ZZZZ010236	22300	=   ERROR{'O'=SPACE};
ZZZZ010236	22400	=IF{WN.CHO=WN.CHN}ERROR{'O'='N'};
ZZZZ010236	22500	=IF_ERROR_SET{W0.BEGIN=WN.4}ERROR{BEGIN(?WN.4?) ERROR};
ZZZZ010236	22600	=IF_ERROR_SET{W0.END=WN.5}ERROR{END(?WN.5?) ERROR};
ZZZZ010236	22700	COPY=BEGIN_END_CHECK
ZZZZ010236	22800	=IF_ERROR_SQL1{SELECT
ZZZZ010236	22900	=   REPLACE(RTRIM(?WN.XOBJECT?),'?WN.CHO?','?WN.CHN?')
ZZZZ010236	23000	=   ,SYSTEM_SEQ FROM ?_TABLE? WHERE ?WN.XWHERE?
ZZZZ010236	23100	=   AND Z_CANCEL=' ' AND RTRIM(?WN.XOBJECT?)<>
ZZZZ010236	23200	=   REPLACE(RTRIM(?WN.XOBJECT?),'?WN.CHO?','?WN.CHN?')
ZZZZ010236	23300	=   ?WN.BEGIN? ?WN.END? ORDER BY 1 DESC}ERROR{};
ZZZZ010236	23400	=IF{_SQL1_COUNT=0}ERROR{CHANGE RECORD NOT FOUND};
ZZZZ010236	23500	=SQL1_NEXT:SQL1_NEXT{WN.PROG,WN.SYSTEM_SEQ}JUMP{SQL1_END};
ZZZZ010236	23600	=IF{WN.PROG@FORM_LENGTH>61}
ZZZZ010236	23700	=   ERROR{LENGTH OVER (?WN.SYSTEM_SEQ?)};
ZZZZ010236	23800	=BACK{SQL1_NEXT};
ZZZZ010236	23900	=SQL1_END:IF_ERROR_SQL{UPDATE ?_TABLE? SET ?_Z_UPDATE_CHANGE?
ZZZZ010236	24000	=   ,?WN.XOBJECT?=REPLACE(RTRIM(?WN.XOBJECT?)
ZZZZ010236	24100	=  ,'?WN.CHO?','?WN.CHN?') WHERE ?WN.XWHERE? AND Z_CANCEL=' '
ZZZZ010236	24200	=   ?WN.BEGIN? ?WN.END? AND RTRIM(?WN.XOBJECT?)<>
ZZZZ010236	24300	=   REPLACE(RTRIM(?WN.XOBJECT?),'?WN.CHO?','?WN.CHN?')}
ZZZZ010236	24400	=   ERROR{};
ZZZZ010236	24500	=JUMP{REPLACE_TEST};
ZZZZ010236	24600	******( CANCEL )****************************
ZZZZ010236	24700	=CANCEL:
ZZZZ010236	24800	=IF{WN.2=}ERROR{CANCEL BEGIN ERROR};
ZZZZ010236	24900	=IF{WN.3=}SET{WN.3=WN.2};
ZZZZ010236	25000	=IF_ERROR_SET{W0.BEGIN=WN.2}ERROR{CANCEL BEGIN NOT NUMERIC};
ZZZZ010236	25100	=IF_ERROR_SET{W0.END=WN.3}ERROR{CANCEL ... END NOT NUMERIC};
ZZZZ010236	25200	COPY=BEGIN_END_CHECK
ZZZZ010236	25300	=CANCEL2:
ZZZZ010236	25400	=SQL{UPDATE ?_TABLE? SET ?_Z_UPDATE_CANCEL? WHERE ?WN.XWHERE?
ZZZZ010236	25500	=   AND SYSTEM_SEQ BETWEEN ?W0.BEGIN? AND ?W0.END?};
ZZZZ010236	25600	=JUMP{REPLACE_TEST};
ZZZZ010236	25700	******( DISCARD )**************************
ZZZZ010236	25800	=DISCARD:DBO_SQL{DELETE FROM ?_TABLE? WHERE ?WN.XWHERE?
ZZZZ010236	25900	=   AND Z_CANCEL<>' '};
ZZZZ010236	26000	=DBO_SQL{DELETE FROM ?_MM_TEST?_PRINT_TABLE WHERE
ZZZZ010236	26100	=   ?WN.XWHERE? AND Z_CANCEL<>' '};
ZZZZ010236	26200	=JUMP{S_END};
ZZZZ010236	26300	******( RENUMBER )**************************
ZZZZ010236	26400	=RENUMBER:SQL_SET{W0.CNT}{SELECT COUNT(*) FROM ?_TABLE?
ZZZZ010236	26500	=   WHERE ?WN.XWHERE?};
ZZZZ010236	26600	=SET{W0.CNT=100};IF{W0.CNT>900}SET{W0.CNT=10};
ZZZZ010236	26700	=SET{W0.SYSTEM_SEQ=W0.CNT};
ZZZZ010236	26800	=SQL{UPDATE ?_TABLE? SET SYSTEM_SEQ=SYSTEM_SEQ+100000000
ZZZZ010236	26900	=   WHERE ?WN.XWHERE?};
ZZZZ010236	27000	=SQL1{SELECT SYSTEM_SEQ FROM ?_TABLE? ?_LOCK1?
ZZZZ010236	27100	=   WHERE ?WN.XWHERE?
ZZZZ010236	27200	=ORDER BY SYSTEM_SEQ ?_LOCK2?};
ZZZZ010236	27300	=SQL1_NEXT:SQL1_NEXT{WN.SYSTEM_SEQ}JUMP{REPLACE_TEST};
ZZZZ010236	27400	=SQL{UPDATE ?_TABLE? SET SYSTEM_SEQ=?W0.SYSTEM_SEQ?
ZZZZ010236	27500	=   WHERE ?WN.XWHERE?
ZZZZ010236	27600	=   AND SYSTEM_SEQ=?WN.SYSTEM_SEQ?};
ZZZZ010236	27700	=COMPUTE{W0.SYSTEM_SEQ+=W0.CNT};BACK{SQL1_NEXT};
ZZZZ010236	27800	=JUMP{REPLACE_TEST};
ZZZZ010236	27900	****( 汎用処理 OUTPUT BEGIN )*****
ZZZZ010236	28000	******( LOCATE )***************************
ZZZZ010236	28100	=UP:IF{WN.2=}SET{WN.2=1000};
ZZZZ010236	28200	=IF_ERROR_COMPUTE{.SYSTEM_SEQ=.SYSTEM_SEQ_NOW-WN.2}
ZZZZ010236	28300	=   SET{.SYSTEM_SEQ=0};
ZZZZ010236	28400	=JUMP{S_END};
ZZZZ010236	28500	=DOWN:IF{WN.2=}SET{WN.2=1000};
ZZZZ010236	28600	=IF_ERROR_COMPUTE{.SYSTEM_SEQ=.SYSTEM_SEQ_NOW+WN.2}NOP{};
ZZZZ010236	28700	=JUMP{S_END};
ZZZZ010236	28800	=LOCATE:IF_ERROR_SET{.SYSTEM_SEQ=WN.2}ERROR{LOCATE LOC BAD};
ZZZZ010236	28900	=JUMP{S_END};
ZZZZ010236	29000	=LL_NEW:SET{.SYSTEM_SEQ=SYSTEM_SEQ_NOW};
ZZZZ010236	29100	=JUMP{S_END};
ZZZZ010236	29200	******( FIND )*****************************
ZZZZ010236	29300	=FIND10:SET{.SYSTEM_SEQ=0,SYSTEM_SEQ_NOW=0};
ZZZZ010236	29400	=FIND1:SET{S_FIND=#FIND};
ZZZZ010236	29500	=JUMP{SKIP};
ZZZZ010236	29600	=FINDX0:SET{.SYSTEM_SEQ=0,SYSTEM_SEQ_NOW=0};
ZZZZ010236	29700	=FINDX:SET{S_FIND=S_CMD[W0.C],WN.EQ='='};
ZZZZ010236	29800	=IF{S_FIND=}SET{S_FIND=#FIND};
ZZZZ010236	29900	=SKIP:SET{#FIND=S_FIND};
ZZZZ010236	30000	=SET{WN.F=_FIND((WN.XOBJECT);"S_FIND")};
ZZZZ010236	30100	=SQL_SET{S_FIND_COUNT}{SELECT COUNT(*) FROM
ZZZZ010236	30200	=   ?_TABLE? WHERE ?WN.XWHERE?
ZZZZ010236	30300	=   AND ?WN.F?>0 AND Z_CANCEL=' '};
ZZZZ010236	30400	=IF{WN.1[1;2]='FF'}
ZZZZ010236	30500	=   SET{_DATA@WHERE='('+WN.F+'>0 )'}JUMP{S_END};
ZZZZ010236	30600	=SET{WN.MAX_MIN='MIN'};
ZZZZ010236	30700	******( NEXT )************
ZZZZ010236	30800	=NEXT:
ZZZZ010236	30900	=SET{WGL='>'};IF{WN.MAX_MIN='MAX'}SET{WGL='<'};
ZZZZ010236	31000	=SQL_SET{WN.LOCATE}{SELECT ?WN.MAX_MIN?(SYSTEM_SEQ) FROM
ZZZZ010236	31100	=   ?_TABLE? WHERE ?WN.XWHERE? AND ?WN.F?>0 AND Z_CANCEL=' '
ZZZZ010236	31200	=   AND SYSTEM_SEQ?WGL??WN.EQ?0?.SYSTEM_SEQ_NOW?};
ZZZZ010236	31300	=IF{_SQL_SET_COUNT=0}JUMP{S_END};
ZZZZ010236	31400	=SET{.SYSTEM_SEQ=WN.LOCATE};
ZZZZ010236	31500	=JUMP{S_END};
ZZZZ010236	31600	******************( REPLACE TEST )*************************
ZZZZ010236	31700	NAME=REPLACE_TEST
ZZZZ010236	31800	=REPLACE_TEST:
ZZZZ010236	31900	TEST-=REPLACE_ALL{?_MM_TEST?_PRINT_TABLE
ZZZZ010236	32000	TEST-=  ,?_MM?_PRINT_TABLE,SYSTEM_PRINT_DATA}
ZZZZ010236	32100	TEST-=  {.SYSTEM_PRINT,.SYSTEM_SEQ}
ZZZZ010236	32200	TEST-=  {*O*.?_VRE&.SYSTEM_PRINT?}{I.?_VRE&.SYSTEM_PRINT?};
ZZZZ010236	32300	NAME=
ZZZZ010236	32400	=JUMP{S_END};
ZZZZ010236	32500	=S_CMD:SET{S_CMD=};EXIT{S_CMD};
ZZZZ010236	32600	=FC:SET{WN.F=0,S_FIND=,#FIND=};
ZZZZ010236	32700	=S_END:SET{S_CMD=};EXIT{};
ZZZZ010236	32800	****( 汎用処理 END )*****
ZZZZ010236	32900	****( TEST )*****
ZZZZ010236	33000	=TEST:
ZZZZ010236	33100	*SQL_FILE{?_WINDOW??SYSTEM_PRINT?.TXT,OT,UTF-8,W}
ZZZZ010236	33200	*{SELECT SYSTEM_PRINT_DATA FROM
ZZZZ010236	33300	*?_MM?_PRINT_TABLE WHERE SYSTEM_PRINT='?SYSTEM_PRINT?'
ZZZZ010236	33400	*AND Z_CANCEL=' ' ORDER BY SYSTEM_SEQ}ERROR{};
ZZZZ010236	33500	*EXE{?_IPRINT?,?_IPRINT2? TEST_DATA X
ZZZZ010236	33600	* ?_TMP??_JOB??_WINDOW??SYSTEM_PRINT?.TXT}ERROR{};
ZZZZ010236	33700	=IPRINT{?.SYSTEM_PRINT?,DATA};
ZZZZ010236	33800	=BACK{S_END};
ZZZZ010236	33900	=HELP:
ZZZZ010236	34000	*EXE{?_IPRINT?,?_IPRINT2?};
ZZZZ010236	34100	=IPRINT{,HELP};
ZZZZ010236	34200	=BACK{S_END};
ZZZZ010236	34300	SET={O>=}.SYSTEM_SEQ{5,,+,C}
ZZZZ010236	34400	JA+TITLE=頭出番号
ZZZZ010236	34500	SET={O,*}.SYSTEM_SEQ_NOW{5,,+,C}
ZZZZ010236	34600	JA+TITLE=現在番号
ZZZZ010236	34700	SET={O,*}S_FIND_COUNT{9,,+}F数
ZZZZ010236	34800	SET={O,*}S_FIND{}F文字
ZZZZ010236	34900	START
ZZZZ010236	35000	=SET{WN.OPTION_O=};
ZZZZ010236	35100	=SET{WN.XKEYCOPY=SYSTEM_PRINT};
ZZZZ010236	35200	=SET{%TABLE='-',%COPY='-',%MOVE='-',%CANCEL='-'};
ZZZZ010236	35300	=SET{WN.XTABLECOPY=_TABLE};
ZZZZ010236	35400	DATA={K}?&.DATA&SYSTEM_SEQ?
ZZZZ010236	35500	DATA=   ?&.DATA&SYSTEM_PRINT_DATA?
ZZZZ010236	35600	DATA={*N}FIND{9}
ZZZZ010236	35700	SELECT=?WN.F?
ZZZZ010236	35800	DATA={*N}.Z_CANCEL{17}
ZZZZ010236	35900	COPY=@ZZZZZZ_SQL
ZZZZ010236	36000	=IF{_PAGE_SW=}SET{_PAGE_SW=1,.SYSTEM_SEQ_NOW=.SYSTEM_SEQ};
ZZZZ010237	100	PROGRAM=NOT
ZZZZ010237	200	BEGIN
ZZZZ010237	500	=EXE{?_IPRINT?,?_IPRINT2?};
ZZZZ010237	600	=EXIT{_END};
ZZZZ010239	100	PROGRAM=,&X1,?_MM?_I_PERMISSION_TABLE
ZZZZ010239	200	TABLE=&X2,?_MM?_ETC_TABLE
ZZZZ010239	300	*CONTROL=PROGRAM_ERROR,2_KEY,MAX,SQL_DBO,3
ZZZZ010239	310	CONTROL=PROGRAM_ERROR,MAX,SQL_DBO,3
ZZZZ010239	400	%TEST+CONTROL=SQL_TEST
ZZZZ010239	500	DICTIONARY=SYSTEM_PERMISSION,SYSTEM_REAL,SYSTEM_PUBLIC
ZZZZ010239	600	DICTIONARY=SYSTEM_KIND,SYSTEM_GRANT
ZZZZ010239	700	BEGIN
ZZZZ010239	800	=SET{_SQL_PERMISSION=_PERMISSION};
ZZZZ010239	900	=SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010239	1000	%TEST+=SET{WN.DB=_MP_TEST_ZZZZ+'ZZ',.SYSTEM_REAL='TEST'};
ZZZZ010239	1100	%TEST-=SET{WN.DB=_MP_REAL_ZZZZ+'ZZ',.SYSTEM_REAL='REAL'};
ZZZZ010239	1200	=SET{WN.OID1='O',WN.OID2='I',WN.OID3='D'};
ZZZZ010239	1300	SET={O}.?&DATA&SYSTEM_PERMISSION?
ZZZZ010239	1400	%TEST+=SET{WN.DB_PERMISSION=_MX_TEST_?.SYSTEM_PERMISSION?};
ZZZZ010239	1500	%TEST-=SET{WN.DB_PERMISSION=_MX_REAL_?.SYSTEM_PERMISSION?};
ZZZZ010239	1600	%TEST-=SET{WN.DB_TEST_PERMISSION=
ZZZZ010239	1700	%TEST-=   _MX_TEST_?.SYSTEM_PERMISSION?};
ZZZZ010239	1800	SET={  }.?&.SET&SYSTEM_NAME?
ZZZZ010239	1900	SET={O }.?&DATA&SYSTEM_REAL?
ZZZZ010239	2000	%TEST+=SET{WN.DB=_MP_TEST_ZZZZ+'ZZ'};
ZZZZ010239	2100	%TEST-=SET{WN.DB=_MP_REAL_ZZZZ+'ZZ'};
ZZZZ010239	2200	O+=SET{_JOB_PERMISSION=.SYSTEM_PERMISSION};
ZZZZ010239	2300	START
ZZZZ010239	2400	O+=SET{_JOB_PERMISSION='ZZZZ'};
ZZZZ010239	2500	%TEST-=JUMP{OK};
ZZZZ010239	2600	=DBO_SQL_SET{}{SELECT SYSTEM_NAME FROM
ZZZZ010239	2700	=?_MP_ZZZZ?ZZ_M_?.SYSTEM_PERMISSION?_OBJECT_VIEW
ZZZZ010239	2800	=WHERE SYSTEM_KIND='TABLE'
ZZZZ010239	2900	=AND ?_VRE&.SYSTEM_NAME?};
ZZZZ010239	3000	=IF{_SQL_SET_COUNT>0}ERROR{REAL TABLE(?.SYSTEM_NAME?) FOUND};
ZZZZ010239	3100	=OK:IF{_START!=1}JUMP{START_NOT_1};
ZZZZ010239	3200	=IF{SYSTEM_PERMISSION='  '}
ZZZZ010239	3201	=   ERROR{PERMISSION IS SPACE ERROR};
ZZZZ010239	3300	=IF{SYSTEM_USER_X!='L'}SET{SYSTEM_USER_X=};
ZZZZ010239	3400	=EXIT{};
ZZZZ010239	3500	=START_NOT_1:
ZZZZ010239	3600	=DBO_SQL_SET{}{SELECT SYSTEM_NAME FROM
ZZZZ010239	3700	=   ?_MP_ZZZZ?ZZ_M_?.SYSTEM_PERMISSION?_GRANT_VIEW ?_T?
ZZZZ010239	3800	=   WHERE ?_VE&.SYSTEM_NAME? AND SYSTEM_GRANT='PUBLIC'};
ZZZZ010239	3900	=IF{_SQL_SET_COUNT>0}ERROR{PUBLIC IS FOUND};
ZZZZ010239	4000	DATA={*O}?&DATA&SYSTEM_KIND?
ZZZZ010239	4100	DATA={KO}?&.DATA&SYSTEM_NAME?
ZZZZ010239	4200	DATA={*O}?&DATA&SYSTEM_REAL?
ZZZZ010239	4300	DATA={K}?&.DATA&SYSTEM_PERMISSION?
ZZZZ010239	4400	CHECK2=SELECT SYSTEM_KEY2 FROM ?_MP_ZZZZ?ZZ_ETC_TABLE WHERE
ZZZZ010239	4500	CHECK2= SYSTEM_KEY1='ZZZZZZ_PERMISSION'
ZZZZ010239	4510	*HECK2=   AND SYSTEM_KEY2<>'ZZZZ'
ZZZZ010239	4600	*HECK2=AND SYSTEM_KEY2<>'?.SYSTEM_PERMISSION?'
ZZZZ010239	4610	CHECK2= AND SYSTEM_KEY2 NOT IN('ZZZZ','?.SYSTEM_PERMISSION?')
ZZZZ010239	4700	DATA={K}?&.DATA&SYSTEM_USER_X?
ZZZZ010239	4800	DATA={*O}OUT{1}O
ZZZZ010239	4900	DATA={*O}INP{1}I
ZZZZ010239	5000	DATA={*O}DBO{1}D
ZZZZ010239	5100	DATA={*O}SYSTEM_PUBLIC{6}PUBLIC
ZZZZ010239	5200	STOP_AFTER
ZZZZ010239	5210	=SQL{COMMIT TRANSACTION};
ZZZZ010239	5220	=SQL{BEGIN TRANSACTION};
ZZZZ010239	5300	%TEST+=SET{_REAL_TEST='TEST'};
ZZZZ010239	5400	=SET{_JOB_PERMISSION=.SYSTEM_PERMISSION};
ZZZZ010239	5500	=IF{_START=2}JUMP{ADD};
ZZZZ010239	5600	=DBO_REVOKE_PERMISSION{?WN.DB_PERMISSION??SYSTEM_NAME?}
ZZZZ010239	5700	=  {?SYSTEM_KIND?}{?SYSTEM_PERMISSION?}{?SYSTEM_USER_X?};
ZZZZ010239	5800	=JUMP{END};
ZZZZ010239	5900	=ADD:DBO_GRANT_PERMISSION{?WN.DB_PERMISSION??SYSTEM_NAME?
ZZZZ010239	6000	=  ,?SYSTEM_PERMISSION?,?SYSTEM_KIND?,?SYSTEM_USER_X?};
ZZZZ010239	6020	*  {?.SYSTEM_KIND?}{?.SYSTEM_PERMISSION?}{?SYSTEM_USER_X?};
ZZZZ010239	6100	=END:SET{_JOB_PERMISSION=_MENU_PERMISSION};
ZZZZ010239	6200	%TEST+=SET{_REAL_TEST='REAL'};
ZZZZ010239	6300	SQL=SELECT SYSTEM_KIND,SYSTEM_NAME,SYSTEM_REAL
ZZZZ010239	6400	SQL=   ,CAST(' ' AS CHAR(4)) AS SYSTEM_PERMISSION
ZZZZ010239	6500	SQL=   ,CAST(' ' AS CHAR(3)) AS SYSTEM_USER_X
ZZZZ010239	6600	SQL=   ,CAST(' ' AS CHAR(3)) AS OUT
ZZZZ010239	6700	SQL=   ,CAST(' ' AS CHAR(3)) AS INP
ZZZZ010239	6800	SQL=   ,CAST(' ' AS CHAR(3)) AS DBO
ZZZZ010239	6900	SQL=   ,CAST((SELECT ?_SUBSTR(SYSTEM_GRANT;1;6)? FROM
ZZZZ010239	7000	SQL=   ?WN.DB?_M_?.SYSTEM_PERMISSION?_GRANT_VIEW X3 WHERE
ZZZZ010239	7100	SQL=   ?_T?.?_NE&X3.SYSTEM_NAME?
ZZZZ010239	7110	SQL=   AND X3.SYSTEM_GRANT='PUBLIC')
ZZZZ010239	7200	SQL=   AS CHAR(6)) AS SYSTEM_PUBLIC
ZZZZ010239	7300	SQL=   FROM ?WN.DB?_M_?.SYSTEM_PERMISSION?_GRANT_VIEW ?_T?
ZZZZ010239	7400	SQL=   WHERE ?_T?.?_LR&.SYSTEM_NAME?
ZZZZ010239	7500	SQL=   AND NOT EXISTS(SELECT SYSTEM_NAME
ZZZZ010239	7600	SQL=   FROM ?WN.DB?_M_?.SYSTEM_PERMISSION?_GRANT_VIEW X2
ZZZZ010239	7700	SQL=   WHERE ?_T?.?_NE&X2.SYSTEM_NAME?
ZZZZ010239	7800	SQL=   AND NOT (X2.SYSTEM_GRANT='PUBLIC'
ZZZZ010239	7900	SQL=   OR ?_SUBSTR(X2.SYSTEM_GRANT;3;4)?
ZZZZ010239	8000	SQL=   IN('?.SYSTEM_PERMISSION?','ZZZZ')))
ZZZZ010239	8100	SQL=   UNION SELECT ?_T?.SYSTEM_KIND,?_T?.SYSTEM_NAME
ZZZZ010239	8200	SQL=   ,CAST('?SYSTEM_REAL?' AS CHAR(4)) AS SYSTEM_REAL
ZZZZ010239	8300	SQL=   ,CAST(?_SUBSTR(.SYSTEM_GRANT;3;4)? AS CHAR(4))
ZZZZ010239	8400	SQL=   AS SYSTEM_PERMISSION,CAST(CASE
ZZZZ010239	8500	SQL=   ?_SUBSTR(.SYSTEM_GRANT;1;2)? WHEN 'L_' THEN 'L'
ZZZZ010239	8600	SQL=   ELSE ' ' END AS CHAR(3)) AS SYSTEM_USER_X
ZZZZ010239	8700	REPEAT=3
ZZZZ010239	8800	SQL=   ,CAST((SELECT '?WN.OID##?' FROM
ZZZZ010239	8900	SQL=   ?WN.DB?_M_?.SYSTEM_PERMISSION?_GRANT_VIEW X3 WHERE
ZZZZ010239	9000	SQL=   ?_T?.?_NE&X3.SYSTEM_NAME?
ZZZZ010239	9100	SQL=   AND ?_SUBSTR(.SYSTEM_GRANT;1;2)?!='L_' AND
ZZZZ010239	9200	SQL=   X3.SYSTEM_GRANT
ZZZZ010239	9300	SQL=   =?_CL?'?WN.OID##?_'?_C?
ZZZZ010239	9400	SQL=   ?_SUBSTR(.SYSTEM_GRANT;3;4)??_CR?)
ZZZZ010239	9500	SQL=   AS CHAR(3)) AS ?WN.OID##?
ZZZZ010239	9600	REPEAT=
ZZZZ010239	9700	SQL=   ,CAST((SELECT SYSTEM_GRANT FROM
ZZZZ010239	9800	SQL=   ?WN.DB?_M_?.SYSTEM_PERMISSION?_GRANT_VIEW X3 WHERE
ZZZZ010239	9900	SQL=   ?_T?.?_NE&X3.SYSTEM_NAME?
ZZZZ010239	9910	SQL=   AND X3.SYSTEM_GRANT='PUBLIC')
ZZZZ010239	10000	SQL=   AS CHAR(6)) AS SYSTEM_PUBLIC
ZZZZ010239	10100	SQL=   FROM ?WN.DB?_M_?.SYSTEM_PERMISSION?_GRANT_VIEW ?_T?
ZZZZ010239	10200	SQL=   WHERE ?_T?.?_LR&.SYSTEM_NAME?
ZZZZ010239	10300	SQL=   AND NOT (?_T?.SYSTEM_GRANT='PUBLIC'
ZZZZ010239	10400	SQL=   OR ?_SUBSTR(.SYSTEM_GRANT;3;4)?
ZZZZ010239	10500	SQL=   IN('?.SYSTEM_PERMISSION?','ZZZZ'))
ZZZZ010239	10600	SQL=   AND(?_T?.SYSTEM_GRANT=?_CL?'L_'?_C?
ZZZZ010239	10700	SQL=   ?_SUBSTR(.SYSTEM_GRANT;3;4)??_CR?
ZZZZ010239	10800	SQL=   OR ?_T?.SYSTEM_GRANT=?_CL?'O_'?_C?
ZZZZ010239	10900	SQL=   ?_SUBSTR(.SYSTEM_GRANT;3;4)??_CR?
ZZZZ010239	11000	SQL=   OR ?_T?.SYSTEM_GRANT=?_CL?'I_'?_C?
ZZZZ010239	11100	SQL=   ?_SUBSTR(.SYSTEM_GRANT;3;4)??_CR?
ZZZZ010239	11200	SQL=   AND NOT EXISTS(SELECT 'X'
ZZZZ010239	11300	SQL=   FROM ?WN.DB?_M_?.SYSTEM_PERMISSION?_GRANT_VIEW X3
ZZZZ010239	11400	SQL=   WHERE ?_T?.?_NE&X3.SYSTEM_NAME?
ZZZZ010239	11500	SQL=   AND ?_T?.SYSTEM_GRANT=?_CL?'O_'?_C?
ZZZZ010239	11600	SQL=   ?_SUBSTR(.SYSTEM_GRANT;3;4)??_CR?
ZZZZ010239	11700	SQL=   )OR ?_T?.SYSTEM_GRANT=?_CL?'D_'?_C?
ZZZZ010239	11800	SQL=   ?_SUBSTR(.SYSTEM_GRANT;3;4)??_CR?
ZZZZ010239	11900	SQL=   AND NOT EXISTS(SELECT 'X'
ZZZZ010239	12000	SQL=   FROM ?WN.DB?_M_?.SYSTEM_PERMISSION?_GRANT_VIEW X3
ZZZZ010239	12100	SQL=   WHERE ?_T?.?_NE&X3.SYSTEM_NAME?
ZZZZ010239	12200	SQL=   AND(?_T?.SYSTEM_GRANT=?_CL?'O_'?_C?
ZZZZ010239	12300	SQL=   ?_SUBSTR(.SYSTEM_GRANT;3;4)??_CR?
ZZZZ010239	12400	SQL=   OR ?_T?.SYSTEM_GRANT=?_CL?'I_'?_C?
ZZZZ010239	12500	SQL=   ?_SUBSTR(.SYSTEM_GRANT;3;4)??_CR?
ZZZZ010239	12600	SQL=   ))) ORDER BY 1,2,3,4,5
ZZZZ010240	100	PROGRAM=,&X1,?_MM?_I_MENU_TABLE
ZZZZ010240	200	DICTIONARY=SYSTEM_JOB
ZZZZ010240	300	CONTROL=1,2,SCROLL
ZZZZ010240	400	BEGIN
ZZZZ010240	500	=IF{'ZZZZ'!=_PERMISSION}SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010240	600	SET={,*}.?&SET&SYSTEM_JOB?
ZZZZ010240	700	=SET{_DATA@WHERE='?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1'
ZZZZ010240	800	=   +'?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?'
ZZZZ010240	801	=   +' LIKE ''?.SYSTEM_JOB?%'''
ZZZZ010240	900	=   +' AND SYSTEM_TEST IN(''TEST'',''REAL'')'};
ZZZZ010240	1000	SET=.?&.SET&SYSTEM_MENU?
ZZZZ010240	1100	SET={O}.?&.SET&SYSTEM_PERMISSION?
ZZZZ010240	1200	DATA={KO}?&.DATA&SYSTEM_MENU0?
ZZZZ010240	1300	DATA={KO}?&.DATA&SYSTEM_MENU1?
ZZZZ010240	1400	DATA={KO}?&.DATA&SYSTEM_MENU2?
ZZZZ010240	1500	DATA={KO}?&.DATA&SYSTEM_MENU3?
ZZZZ010240	1600	DATA={KO}?&.DATA&SYSTEM_LANG?
ZZZZ010240	1700	DATA=    ?&.DATA&SYSTEM_TEST?
ZZZZ010240	1800	JA+CHECK2=TEST,TEST,REAL,本番移行予約
ZZZZ010240	1900	=IF{_DATA!='REAL'}EXIT{};
ZZZZ010240	2000	REPEAT=5
ZZZZ010240	2100	=SET{WN.SYSTEM_TEST=};IF{SYSTEM_COPY##=}JUMP{SKIP};
ZZZZ010240	2200	=SQL_SET{WN.SYSTEM_TEST}
ZZZZ010240	2300	=  {SELECT SYSTEM_TEST FROM ?_MM?_I_SYSTEM_MENU_TABLE WHERE
ZZZZ010240	2400	=   ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010240	2410	=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010240	2500	=   ='?SYSTEM_COPY##?' AND Z_CANCEL=' '};
ZZZZ010240	2510	=IF{_SQL_SET_COUNT=0}
ZZZZ010240	2600	=   ERROR{SYSTEM_COPY##(?SYSTEM_COPY##?)NOT FOUND};
ZZZZ010240	2700	=SKIP:IF{WN.SYSTEM_TEST='TEST'}
ZZZZ010240	2710	=   ERROR{SYSTEM_COPY##(?SYSTEM_COPY##?)IS TEST};
ZZZZ010240	2800	=IF{WN.SYSTEM_TEST='HALT'}IF{SYSTEM_TEST!='HALT'}
ZZZZ010240	2900	=   ERROR{SYSTEM_COPY##(?SYSTEM_COPY##?) IS HALT};
ZZZZ010240	3000	REPEAT=
ZZZZ010240	3100	DATA={O}?&.DATA&SYSTEM_PERMISSION?
ZZZZ010240	3200	DATA={O}?&.DATA&SYSTEM_SECURITY?
ZZZZ010240	3300	DATA={O}?&.DATA&SYSTEM_MENU?
ZZZZ010240	3400	REPEAT=5
ZZZZ010240	3500	DATA={O}?&.DATA&SYSTEM_COPY##?
ZZZZ010240	3600	REPEAT=
ZZZZ010240	3700	COPY=@ZZZZZZ_SQL
ZZZZ010241	100	*****( I_PROGRAM_TABLE MAINTENANCE )*****
ZZZZ010241	200	%GRAMMAR_CHECK-COMMENT_BEGIN
ZZZZ010241	300	PROGRAM=,&X1,?_MM?_I_PROGRAM_TABLE
ZZZZ010241	400	CONTROL=BEGIN_ENTER,ERROR,0,SCROLL
ZZZZ010241	500	MINUS=%Z_CANCEL_SELECT
ZZZZ010241	600	BEGIN
ZZZZ010241	610	=SET{WN.PROG=}; バグ対応*
ZZZZ010241	700	=SET{WC.MESSAGE=,WC.ERROR_SW=0};
ZZZZ010241	800	%GRAMMAR_CHECK-COMMENT_END
ZZZZ010241	900	=SET{WC.SAME1='#'+'#',WC.SAME2='#'+'+',WC.SAME3='#'+'-'};
ZZZZ010241	1000	=SET{WC.SAME4='$'+'$',WC.SAME5='$'+'+',WC.SAME6='$'+'-'};
ZZZZ010241	1100	=SET{WC.SAME7='-DATA=',WC.SAME8='-SET=',WC.SAME9='-WORK='};
ZZZZ010241	1200	*   'REPLACE(SYSTEM_PROGRAM,'' '','''')'};
ZZZZ010241	1300	=SET{WC.PLUS_PROGRAM_SPACE=_C(+'''+'''+_C
ZZZZ010241	1400	=   +'SYSTEM_PROGRAM'+_C+''' '''+_C)};
ZZZZ010241	1500	=SET{WC.PLUS_PROGRAM_SPACE_CUT='REPLACE('
ZZZZ010241	1600	=   +WC.PLUS_PROGRAM_SPACE+','' '','''')'};
ZZZZ010241	1700	*SET{WC.MINUS_PROGRAM_CUT='REPLACE('+_C(+'''-'''+_C
ZZZZ010241	1800	*   +'SYSTEM_PROGRAM'+_C)+','' '','''')'};
ZZZZ010241	1900	*SET{WC.PLUS_PROGRAM_PLUS_SPACE=_C(+'''+'''+_C
ZZZZ010241	2000	*   +'REPLACE(SYSTEM_PROGRAM,''-'',''+'')'+_C+''' '''+_C)};
ZZZZ010241	2100	*SET{WC.PLUS_PROGRAM_PLUS_CUT=
ZZZZ010241	2200	*  'REPLACE(?WC.PLUS_PROGRAM_PLUS_SPACE?,'' '','''')'};
ZZZZ010241	2300	=SET{WC.PROGRAM_FIND1='+PROGRAM'+'='};
ZZZZ010241	2400	=SET{WC.PROGRAM_FIND2='+DATA='};
ZZZZ010241	2500	=SET{WC.PROGRAM_FIND3='+SET='};
ZZZZ010241	2600	=SET{WC.PROGRAM_FIND4='+BEGIN '};
ZZZZ010241	2700	=SET{WC.PROGRAM_FIND5='+BEGIN_END '};
ZZZZ010241	2800	=SET{WC.PROGRAM_FIND6='+END '};
ZZZZ010241	2900	=SET{WC.PROGRAM_FIND7='+START '};
ZZZZ010241	3000	=SET{WC.PROGRAM_FIND8='+STOP_BEFORE '};
ZZZZ010241	3100	=SET{WC.PROGRAM_FIND9='+STOP_AFTER '};
ZZZZ010241	3200	=SET{WC.PROGRAM_FIND10='+COLOR '};
ZZZZ010241	3300	=SET{WC.PROGRAM_FIND11='+SQL='};
ZZZZ010241	3400	=SET{WC.PROGRAM_FIND12='+COPY=@ZZZZZZ_SQL '};
ZZZZ010241	3500	%GRAMMAR_CHECK-COMMENT_BEGIN
ZZZZ010241	3600	*SET{_TRACE=1};
ZZZZ010241	3700	=SET{WC.MENU_TIME=$WC.MENU_TIME};
ZZZZ010241	3800	=PROGRAM{0,?_MP_ZZZZ?ZZ_ETC_TABLE,WN.BROWSE.SYSTEM_ETC=}
ZZZZ010241	3900	=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010241	4000	=   ,WC.SYSTEM_KEY2='ZZZZZZ_BROWSE_?_OS?'}{};
ZZZZ010241	4100	=IF{_PROGRAM_COUNT=0}
ZZZZ010241	4200	=   ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? NOT FOUND};
ZZZZ010241	4300	W+=SET{WC.BROWSE=WN.BROWSE.SYSTEM_ETC};
ZZZZ010241	4400	W-=SET{WC.BROWSE=WN.BROWSE.SYSTEM_ETC@LOWER};
ZZZZ010241	4500	%TEST+=SET{WN.TEST='TEST'};
ZZZZ010241	4600	%TEST-=SET{WN.TEST='REAL'};
ZZZZ010241	4700	COLOR
ZZZZ010241	4800	=IF{Z_CANCEL!=}
ZZZZ010241	4900	= SET{SYSTEM_PROGRAM@COLOR='N',SYSTEM_SEQ@COLOR='N'}EXIT{};
ZZZZ010241	5000	=IF{MESSAGE=1}
ZZZZ010241	5100	*   SET{SYSTEM_PROGRAM@COLOR='R255G127B255'
ZZZZ010241	5200	=   SET{SYSTEM_PROGRAM@COLOR='Y'
ZZZZ010241	5300	*   ,SYSTEM_SEQ@COLOR='R256G127B255'}EXIT{};
ZZZZ010241	5400	=   ,SYSTEM_SEQ@COLOR='Y'}EXIT{};
ZZZZ010241	5500	=IF{FIND>0}SET{SYSTEM_SEQ@COLOR='E'}JUMP{};
ZZZZ010241	5600	=          SET{SYSTEM_SEQ@COLOR='W'};
ZZZZ010241	5700	=IF{COLOR!=}EXIT{};
ZZZZ010241	5800	NAME=COLOR
ZZZZ010241	5900	=SET{W0.SQL=0};SET{WC.ETC_DAT=SYSTEM_PROGRAM};
ZZZZ010241	6000	=SET{WC.ETC_SW=0,WC.COLOR_SW=1};
ZZZZ010241	6100	%GRAMMAR_CHECK-COMMENT_END
ZZZZ010241	6200	%GRAMMAR_CHECK-=JUMP{SKIP};
ZZZZ010241	6300	NAME2=ETC
ZZZZ010241	6400	*( WC.ETC_DAT[W0.ETC],_TRIM=CMD )****************************
ZZZZ010241	6500	*( W0.ETC_NO,W0.ETC_CNT,W0.ETC_STA )*************************
ZZZZ010241	6600	=SET{W0.ETC=1,W0.ETC_CNT=0,W0.ETC_NO=1,W0.ETC_STA=1};
ZZZZ010241	6700	=SET{WC.ETC_EQUAL_NEXT='*'};
ZZZZ010241	6800	=ETC_LOOP_SPACE:IF{W0.ETC>WC.ETC_DAT@COUNT}JUMP{ETC_FIN};
ZZZZ010241	6900	=IF_NOT{WC.ETC_DAT[W0.ETC]/' '}JUMP{ETC_LOOP_STA};
ZZZZ010241	7000	=COMPUTE{W0.ETC+=1};BACK{ETC_LOOP_SPACE};
ZZZZ010241	7100	=ETC_LOOP_STA:SET{W0.ETC_STA=W0.ETC};
ZZZZ010241	7200	=ETC_LOOP:IF{W0.ETC>WC.ETC_DAT@COUNT}JUMP{ETC_END};
ZZZZ010241	7300	=IF{WC.ETC_DAT[W0.ETC]/'*'}JUMP{ETC_COMMENT};コメント発見*
ZZZZ010241	7400	=IF{WC.ETC_SW=1}IF{WC.ETC_DAT[W0.ETC]/'|'}JUMP{ETC_OR};
ZZZZ010241	7500	=IF{WC.ETC_DAT[W0.ETC]/'+',/'-'}JUMP{ETC_PLUS};
ZZZZ010241	7600	=IF{WC.ETC_DAT[W0.ETC]/'='}JUMP{ETC_COMMAND};コマンド発見*
ZZZZ010241	7700	*IF{WC.ETC_DAT[W0.ETC]/'?_TILDE?'}COMPUTE{W0.ETC+=1};
ZZZZ010241	7800	=IF{WC.ETC_DAT[W0.ETC]/'~'}COMPUTE{W0.ETC+=1};
ZZZZ010241	7900	=COMPUTE{W0.ETC+=1};BACK{ETC_LOOP};
ZZZZ010241	8000	=ETC_COMMENT:
ZZZZ010241	8100	=SET{W0.ETC_NO=3,W0.ETC_CNT=1};
ZZZZ010241	8200	=JUMP{ETC_FIN};
ZZZZ010241	8300	=ETC_OR:COMPUTE{W0.ETC+=1};
ZZZZ010241	8400	=BACK{ETC_LOOP_STA};
ZZZZ010241	8500	=ETC_PLUS:IF{WC.ETC_SW=0}JUMP{ETC_PLUS1};
ZZZZ010241	8600	=SET{_TRIM=WC.ETC_DAT[W0.ETC_STA;W0.ETC-W0.ETC_STA]};
ZZZZ010241	8700	*REPEAT=$W0.ETC4 VER20.1
ZZZZ010241	8800	*=IF{$WC.ETC4PR##=_TRIM}SET{W0.ETC_CNT=##}; VER20.1
ZZZZ010241	8900	*=IF{W0.ETC_CNT>0}JUMP{ETC_PLUS1}; VER20.1
ZZZZ010241	9000	*REPEAT= VER20.1
ZZZZ010241	9100	=FIND_REPEAT{$WC.ETC4PR,_TRIM}; VER20.1*
ZZZZ010241	9200	=IF{_FIND_REPEAT>0}SET{W0.ETC_CNT=_FIND_REPEAT} VER20.1*
ZZZZ010241	9300	=   JUMP{ETC_PLUS1}; VER20.1*
ZZZZ010241	9400	=IF{_TRIM='%'}JUMP{ETC_ERR2};
ZZZZ010241	9500	=IF{_TRIM/'%'}JUMP{ETC_PLUS1};
ZZZZ010241	9600	=IF_ERROR_SET{W0.DUMMY=_TRIM}JUMP{ETC_ERR1};
ZZZZ010241	9700	=JUMP{ETC_PLUS1};
ZZZZ010241	9800	=ETC_ERR1:IF_NOT{_TRIM/'$'}JUMP{ETC_ERR2};
ZZZZ010241	9900	=IF_ERROR_SET{W0.DUMMY=_TRIM[2]}JUMP{ETC_ERR2};
ZZZZ010241	10000	=JUMP{ETC_PLUS1};
ZZZZ010241	10100	=ETC_ERR2:
ZZZZ010241	10200	=IF{WC.COLOR_SW=0}
ZZZZ010241	10300	=   SET{WC.ERR='LINE CONTROL (?_TRIM?)'}
ZZZZ010241	10400	=   JUMP{ERR_ERR};
ZZZZ010241	10500	=ETC_PLUS1:SET{W0.ETC_CNT=0};COMPUTE{W0.ETC+=1};
ZZZZ010241	10600	=BACK{ETC_LOOP_STA};
ZZZZ010241	10700	*************************************************************
ZZZZ010241	10800	=ETC_COMMAND:
ZZZZ010241	10900	=SET{_TRIM=WC.ETC_DAT[W0.ETC_STA;W0.ETC-W0.ETC_STA]};
ZZZZ010241	11000	=COMPUTE{W0.ETC_STA=W0.ETC+1};
ZZZZ010241	11100	=IF{_TRIM=}JUMP{ETC_FIN};
ZZZZ010241	11200	=SET{W0.ETC_NO=2}; VER20.1_CUT*
ZZZZ010241	11300	=FIND_REPEAT{$WC.ETC2PR,_TRIM}; VER20.1*
ZZZZ010241	11400	=IF{_FIND_REPEAT!=0}
ZZZZ010241	11500	=  IF{$WC.ETC?W0.ETC_NO?MT?_FIND_REPEAT?='/',=WC.MENU_TIME}
ZZZZ010241	11600	=     SET{W0.ETC_CNT=_FIND_REPEAT}JUMP{ETC_FIN};
ZZZZ010241	11700	=IF{WC.COLOR_SW=0}
ZZZZ010241	11800	=   SET{WC.ERR='TIME,MENU(?WC.MENU_TIME?) BAD CMD(?_TRIM?=)'}
ZZZZ010241	11900	=   JUMP{ERR_ERR};
ZZZZ010241	12000	COMMENT_BEGIN VER20.1
ZZZZ010241	12100	REPEAT=$W0.ETC2
ZZZZ010241	12200	=IF{$WC.ETC?W0.ETC_NO?PR##<>_TRIM}JUMP{ETC_CHK_NEXT};
ZZZZ010241	12300	=IF{$WC.ETC?W0.ETC_NO?MT##='/',=WC.MENU_TIME}
ZZZZ010241	12400	=   SET{W0.ETC_CNT=##}JUMP{ETC_FIN};
ZZZZ010241	12500	=IF{WC.COLOR_SW=0}SET
ZZZZ010241	12600	= {WC.ERR='TIME,MENU(?WC.MENU_TIME?) BAD CMD(?_TRIM?=)'}
ZZZZ010241	12700	=  JUMP{ERR_ERR};
ZZZZ010241	12800	=JUMP{ETC_FIN};
ZZZZ010241	12900	=ETC_CHK_NEXT:
ZZZZ010241	13000	REPEAT=
ZZZZ010241	13100	COMMENT_END VER20.1
ZZZZ010241	13200	=JUMP{ETC_FIN};
ZZZZ010241	13300	=ETC_END:SET{_FIND_STRING=WC.ETC_DAT[W0.ETC_STA]+' '};
ZZZZ010241	13400	=IF{_FIND_STRING=0}JUMP{ETC_END1};
ZZZZ010241	13500	=SET{_TRIM=WC.ETC_DAT[W0.ETC_STA;_FIND_STRING]};JUMP{ETC_3};
ZZZZ010241	13600	=ETC_END1:SET{_TRIM=WC.ETC_DAT[W0.ETC_STA]};
ZZZZ010241	13700	=ETC_3:SET{W0.ETC_NO=3};
ZZZZ010241	13800	REPEAT=$W0.ETC3
ZZZZ010241	13900	=IF{$WC.ETC?W0.ETC_NO?PR##<>_TRIM}JUMP{ETC_CHK_NEXT};
ZZZZ010241	14000	=IF{$WC.ETC?W0.ETC_NO?MT##='/',=WC.MENU_TIME}
ZZZZ010241	14100	=   SET{W0.ETC_CNT=##}JUMP{ETC_FIN};
ZZZZ010241	14200	=IF{WC.COLOR_SW=0}SET
ZZZZ010241	14300	= {WC.ERR='TIME,MENU(?WC.MENU_TIME?) BAD CMD(?_TRIM?)'}
ZZZZ010241	14400	=  JUMP{ERR_ERR};
ZZZZ010241	14500	COMMENT_BEGIN (JUMP文法エラー回避)
ZZZZ010241	14600	=SKIP: JUMP文法エラー回避*
ZZZZ010241	14700	=ERR_ERR: JUMP文法エラー回避*
ZZZZ010241	14800	COMMENT_END   (JUMP エラー回避)
ZZZZ010241	14900	=JUMP{ETC_FIN};
ZZZZ010241	15000	=ETC_CHK_NEXT:
ZZZZ010241	15100	REPEAT=
ZZZZ010241	15200	=JUMP{ETC_FIN};
ZZZZ010241	15300	=ETC_FIN:
ZZZZ010241	15400	NAME2=
ZZZZ010241	15500	*JUMP{ETC_FIN2};
ZZZZ010241	15600	*NAME2=ETC1PR.SQL
ZZZZ010241	15700	*REPEAT=$W0.ETC1
ZZZZ010241	15800	*=IF{$WC.ETC1PR##<>'SQL'}JUMP{ETC_CHK_NEXT};
ZZZZ010241	15900	*=SET{W0.ETC1PR.SQL=##};
ZZZZ010241	16000	*=JUMP{ETC_FIN2};
ZZZZ010241	16100	*=ETC_CHK_NEXT:
ZZZZ010241	16200	*REPEAT=
ZZZZ010241	16300	*=ETC_FIN2:
ZZZZ010241	16400	*NAME2=
ZZZZ010241	16500	%GRAMMAR_CHECK-COMMENT_BEGIN
ZZZZ010241	16600	=IF{W0.ETC_NO=1,W0.ETC_CNT=0}JUMP{SKIP_COLOR}; VER32*
ZZZZ010241	16700	=SET{WC.COLOR=$WC.ETC?W0.ETC_NO?CC?W0.ETC_CNT?}; VER32*
ZZZZ010241	16800	*SET{SYSTEM_PROGRAM@COLOR=$WC.ETC?W0.ETC_NO?CC?W0.ETC_CNT?};
ZZZZ010241	16900	=IF{WC.COLOR=1}SET{WC.COLOR='R224G224B096'}JUMP{}; VER32*
ZZZZ010241	17000	=IF{WC.COLOR=2}SET{WC.COLOR='R128G255B255'};       VER32*
ZZZZ010241	17100	=SET{SYSTEM_PROGRAM@COLOR=WC.COLOR};
ZZZZ010241	17200	=SKIP_COLOR:
ZZZZ010241	17300	NAME=
ZZZZ010241	17400	BEGIN
ZZZZ010241	17500	*OPY=ETC1PR.SQL
ZZZZ010241	17600	=SET{S_FIND=#FIND,W0.C=1,WN.FTAG=
ZZZZ010241	17700	=   ,WN.F=0,WN.DISC=,.SYSTEM_SEQ_NOW=0};
ZZZZ010241	17800	=SET{WN.COM=',T,B'};
ZZZZ010241	17900	%TEST+=SET{WN.DISC=',DISCARD'};
ZZZZ010241	18000	%TEST-=IF{_PERSON='ZZZZZZZZ'}SET{WN.DISC=',DISCARD'};
ZZZZ010241	18100	=SET{.SYSTEM_JOB=$SYSTEM_MENU0+$SYSTEM_MENU1
ZZZZ010241	18200	=   +$SYSTEM_MENU2+$SYSTEM_MENU3,RUN.SYSTEM_JOB=.SYSTEM_JOB
ZZZZ010241	18300	=   ,S.SYSTEM_PROGRAM_KIND=$SYSTEM_PROGRAM_KIND};
ZZZZ010241	18400	=IF_NAME{$SYSTEM_SECURITY}
ZZZZ010241	18500	=   SET{.SYSTEM_SECURITY=$SYSTEM_SECURITY};
ZZZZ010241	18600	=IF{$SYSTEM_MENU1>'49'}
ZZZZ010241	18700	=   SET{S_RUN='TIME',WC.MENU_TIME='T'}JUMP{};
ZZZZ010241	18800	=SET{   S_RUN='MENU',WC.MENU_TIME='M'};
ZZZZ010241	18900	*****( WN.X... 設定 OUTPUT BEGIN )*****
ZZZZ010241	19000	=SET{WN.XKEY='SYSTEM_JOB'};
ZZZZ010241	19100	=SET{WN.XWHERE='?WN.XKEY?=''?.SYSTEM_JOB?'''};
ZZZZ010241	19200	=SET{WN.XOBJECT='SYSTEM_PROGRAM'};
ZZZZ010241	19300	*****( WN.X... 設定 INPUT BEGIN )*****
ZZZZ010241	19400	=SET{WN.XTABLEI='I_PROGRAM_TABLE'};
ZZZZ010241	19500	=SET{WN.XKEYVALUE=.?WN.XKEY?};
ZZZZ010241	19600	=SET{WN.XKEYCOPY=.?WN.XKEY?};
ZZZZ010241	19700	=SET{WN.XKEYDATA=&.DATA&?WN.XKEY?};
ZZZZ010241	19800	=SET{WN.XTABLE=_MM+'_'+WN.XTABLEI};
ZZZZ010241	19900	=SET{WN.XOBJECTDATA=&.DATA&?WN.XOBJECT?};
ZZZZ010241	20000	*****( WN.X... 設定 END )*****
ZZZZ010241	20100	SET={O,*}MSG{74}
ZZZZ010241	20200	SET={KO}.?&.SET&SYSTEM_JOB?
ZZZZ010241	20300	SET={O,*}RUN.?&.SET&SYSTEM_JOB?(RUN)
ZZZZ010241	20400	SET={O,*}.=?$&.SET&SYSTEM_PERMISSION?
ZZZZ010241	20500	SET={O,*}.=?$&.SET&SYSTEM_PART?
ZZZZ010241	20600	SET={O,*}.=?$&.SET&SYSTEM_MENU?
ZZZZ010241	20700	SET={O,*}S.?$&.SET&SYSTEM_PROGRAM_KIND?
ZZZZ010241	20800	SET={O,*}S_RUN{4}
ZZZZ010241	20900	JA+TITLE=起動
ZZZZ010241	21000	SET={O,*}.=?$&.SET&SYSTEM_SECURITY?
ZZZZ010241	21100	SET={,*}S_CMD{56}
ZZZZ010241	21200	JA+TITLE=操作
ZZZZ010241	21300	MESSAGE=TABLE,L L,F S,COPY JOB (L B E),C 'O' 'N' (B E)
ZZZZ010241	21400	MESSAGE=?WN.COM??WN.DISC?
ZZZZ010241	21500	=IF{#CMD!=}SET{S_CMD=#CMD,#CMD=}EXIT{S_CMD};
ZZZZ010241	21600	=SET{WN.ORDER=};
ZZZZ010241	21700	=SET{%TABLE='-',%ADD='-',%FC='-'
ZZZZ010241	21800	=   ,%COPY='-',%CANCEL='-',%MOVE='-'};
ZZZZ010241	21900	=SET{WN.EQ=,WN.DB=_MX_?WN.TEST?_ZZZZ,WN.JOB=.SYSTEM_JOB};
ZZZZ010241	22000	=SET{W0.D=_DATA@COUNT,W0.C=1,WN.FTAG=};
ZZZZ010241	22100	=SET{WN.1=,WN.2=,WN.3=,WN.4=,WN.5=,WN.6=};
ZZZZ010241	22200	=SPLIT_CHAR{WN.}{S_CMD}{};
ZZZZ010241	22300	***********************************************
ZZZZ010241	22400	=IF{WN.1='A',='ADD'}JUMP{ADD};
ZZZZ010241	22500	=IF{WN.1='B'}JUMP{TRACE};
ZZZZ010241	22600	=IF{WN.1='BM'}JUMP{BM};
ZZZZ010241	22700	=IF{WN.1='BT'}JUMP{BT};
ZZZZ010241	22800	*IF{WN.1='BL'}JUMP{BL};
ZZZZ010241	22900	*IF{WN.1='BR'}JUMP{BR};
ZZZZ010241	23000	=IF{WN.1='SQL'}JUMP{SQL};
ZZZZ010241	23100	=IF{WN.1='FINDSELECT',='CHENGESELECT',='FS',='CS'}JUMP{F_C};
ZZZZ010241	23200	=IF{WN.1='DATE'}JUMP{DATE};
ZZZZ010241	23300	=IF{WN.1='FTAG'}JUMP{FTAG};
ZZZZ010241	23400	=IF{WN.1='FTABLE'}JUMP{FTABLE};
ZZZZ010241	23500	=IF{WN.1='FTAG0'}JUMP{FTAG0};
ZZZZ010241	23600	=IF{WN.1!='TABLE'}JUMP{NOT_TABLE};
ZZZZ010241	23700	=SET{WN.BEGIN_ENTER=};
ZZZZ010241	23800	=IF_ERROR_SET{W0.TABLE_COUNT=WN.2}JUMP{SKIP};
ZZZZ010241	23900	=IF{W0.TABLE_COUNT>9}ERROR{COUNT>9};
ZZZZ010241	24000	=IF{W0.TABLE_COUNT>0}SET{WN.BEGIN_ENTER='BEGIN_ENTER'};
ZZZZ010241	24100	=SKIP:SET{S_CMD=,%TABLE='+',%ADD='-',%FC='-'
ZZZZ010241	24200	=   ,%COPY='-',%CANCEL='-',%MOVE='-'};EXIT{+1};EXIT{};
ZZZZ010241	24300	=NOT_TABLE:IF{WN.1='FIF'}JUMP{FIF};
ZZZZ010241	24400	=IF{WN.1='FIF0'}SET{.SYSTEM_SEQ=0}JUMP{FIF};
ZZZZ010241	24500	%TEST-=IF{WN.1='R',='REAL'}SET{WN.REAL='REAL'}JUMP{RUN};
ZZZZ010241	24600	=IF{WN.1='T',='TEST'}SET{WN.REAL='TEST'}JUMP{RUN};
ZZZZ010241	24700	****( 汎用処理 INPUT 1/2 BEGIN )*****
ZZZZ010241	24800	=SET{WN.XTABLECOPY=_TABLE};
ZZZZ010241	24900	=IF{WN.1='CANCEL'}JUMP{CANCEL};
ZZZZ010241	25000	=IF{WN.1='C',='CHANGE'}JUMP{CHANGE};
ZZZZ010241	25100	*=IF{WN.1='CX'}JUMP{CX};
ZZZZ010241	25200	*=IF{WN.1='CH'}JUMP{CH};
ZZZZ010241	25300	=IF{WN.1='COPY'}JUMP{COPY};
ZZZZ010241	25400	=IF{WN.1='MOVE'}JUMP{MOVE};
ZZZZ010241	25500	=IF{S_CMD='DISCARD'}IF{WN.DISC=',DISCARD'}JUMP{DISCARD};
ZZZZ010241	25600	=IF{S_CMD='RENUMBER'}JUMP{RENUMBER};
ZZZZ010241	25700	****( 汎用処理 OUTPUT 1/2 BEGIN )*****
ZZZZ010241	25800	=IF{WN.1='L',='LOCATE'}JUMP{LOCATE};
ZZZZ010241	25900	=IF{WN.1='LL',='LLOCATE'}JUMP{S_END};
ZZZZ010241	26000	=IF{WN.1='FC',WN.1='FINDCLEAR'}JUMP{FC};
ZZZZ010241	26100	=IF{WN.1='FW',='FINDWORD',='FFW',='FFINDWORD'}JUMP{FW};
ZZZZ010241	26200	=IF{WN.1='FW0',='FINDWORD0',='FFW0',='FFINDWORD0'}JUMP{FW0};
ZZZZ010241	26300	=IF{WN.1='MAX'}JUMP{MAX};
ZZZZ010241	26400	=IF{WN.1='MIN'}JUMP{MIN};
ZZZZ010241	26500	=IF{WN.1='U',='UP'}JUMP{UP};
ZZZZ010241	26600	=IF{WN.1='D',='DOWN'}JUMP{DOWN};
ZZZZ010241	26700	*IF{WN.1='P',='PRIOR'}JUMP{PRIOR};
ZZZZ010241	26800	=IF{WN.1='E',='END'}JUMP{END};
ZZZZ010241	26900	=IF{W0.C<W0.D}IF{S_CMD[W0.C;1]=' '}COMPUTE{W0.C+=1}BACK{};
ZZZZ010241	27000	=J:IF{S_CMD[W0.C]='F',='FIND',='FF'}JUMP{FIND1};
ZZZZ010241	27100	=IF{S_CMD[W0.C]='F0',='FIND0',='FF0'}JUMP{FIND10};
ZZZZ010241	27200	=IF{S_CMD[W0.C]/'F '}   COMPUTE{W0.C+=2}JUMP{FINDX};
ZZZZ010241	27300	=IF{S_CMD[W0.C]/'F0 '}   COMPUTE{W0.C+=3}JUMP{FINDX0};
ZZZZ010241	27400	=IF{S_CMD[W0.C]/'FF '}   COMPUTE{W0.C+=3}JUMP{FINDX};
ZZZZ010241	27500	=IF{S_CMD[W0.C]/'FF0 '}  COMPUTE{W0.C+=4}JUMP{FINDX0};
ZZZZ010241	27600	=IF{S_CMD[W0.C]/'FIND '} COMPUTE{W0.C+=5}JUMP{FINDX};
ZZZZ010241	27700	=IF{S_CMD[W0.C]/'FIND0 '}COMPUTE{W0.C+=6}JUMP{FINDX0};
ZZZZ010241	27800	=IF{_DATA@COUNT!=0}ERROR{COMMAND};
ZZZZ010241	27900	=SET{.SYSTEM_SEQ=.SYSTEM_SEQ_NOW};JUMP{S_END};
ZZZZ010241	28000	*****
ZZZZ010241	28100	=FC:SET{WN.F=0,S_FIND=,#FIND=};JUMP{S_END};
ZZZZ010241	28200	=MAX:SQL_SET{WN.LOCATE}{SELECT MAX(SYSTEM_SEQ) FROM
ZZZZ010241	28300	=   ?_TABLE? WHERE ?WN.XWHERE? AND Z_CANCEL=' '};
ZZZZ010241	28400	=IF{_SQL_SET_COUNT=0}JUMP{S_END};
ZZZZ010241	28500	=   SET{.SYSTEM_SEQ=WN.LOCATE};JUMP{S_END};
ZZZZ010241	28600	=MIN:SET{.SYSTEM_SEQ=0};JUMP{S_END};
ZZZZ010241	28700	=PIOR:SET{WN.MAX_MIN='MAX'};JUMP{NEXT };
ZZZZ010241	28800	=END:SET{WN.MAX_MIN='MAX',.SYSTEM_SEQ_NOW=99999};JUMP{NEXT };
ZZZZ010241	28900	****( 汎用処理 1/2 END )*****
ZZZZ010241	29000	*****( RUN )**********************
ZZZZ010241	29100	=RUN:
ZZZZ010241	29200	=IF{WN.2!=}SET{RUN.SYSTEM_JOB=WN.2};
ZZZZ010241	29300	=IF{S_RUN='TIME'}JUMP{TIME};
ZZZZ010241	29400	=SQL_SET{WN.CHECK}
ZZZZ010241	29500	=  {SELECT SYSTEM_TEST FROM ?_MM_REAL?_I_MENU_TABLE
ZZZZ010241	29600	=   WHERE ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010241	29700	=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010241	29800	=   ='?RUN.SYSTEM_JOB?' AND ?_VRE&SYSTEM_LANG?
ZZZZ010241	29900	=   AND Z_CANCEL=' '
ZZZZ010241	30000	=   };
ZZZZ010241	30100	=IF{_SQL_SET_COUNT=0}ERROR{JOB ?RUN.SYSTEM_JOB? NOT FOUND};
ZZZZ010241	30200	=IF{WN.CHECK!=}IF{WN.REAL='REAL'}ERROR{TEST='?WN.CHECK?'};
ZZZZ010241	30300	=IF{'00'=RUN.SYSTEM_JOB[5;2],=RUN.SYSTEM_JOB[7;2]
ZZZZ010241	30400	=   ,=RUN.SYSTEM_JOB[9;2]}
ZZZZ010241	30500	=   ERROR{JOB 00 IS FOUND};
ZZZZ010241	30600	=IF{'40'<RUN.SYSTEM_JOB[5;2],<RUN.SYSTEM_JOB[7;2]
ZZZZ010241	30700	=   ,<RUN.SYSTEM_JOB[9;2]}
ZZZZ010241	30800	=   ERROR{JOB 40<XX IS FOUND};
ZZZZ010241	30900	=IF{WN.REAL='TEST'}SET{_REAL_TEST='TEST'};
ZZZZ010241	31000	=SET{_ARG=_PERSON};
ZZZZ010241	31110	=SET{WC.EXE_ARG='?SYSTEM_LANG? ?_EXE_OPTION?'
ZZZZ010241	31120	=   +' ?RUN.SYSTEM_JOB? ?WN.REAL?_TRACE'
ZZZZ010241	31122	=   +' ZZZZZZ_ARG_PERSON=?_ARG?'};
ZZZZ010241	31130	=EXE{?_EXE_NAME?,?WC.EXE_ARG?};
ZZZZ010241	31300	=SET{_REAL_TEST='REAL'};
ZZZZ010241	31400	=IF{WN.2!=}JUMP{S_END};JUMP{S_CMD};
ZZZZ010241	31500	=TIME:IF{S_CMD='R',='REAL'}ERROR{TIME(REAL) START ERROR};
ZZZZ010241	31600	=SET{_REAL_TEST='TEST'};
ZZZZ010241	31700	=J31:SERVER_BAT{ZZZZZZTIME,XX XX ?RUN.SYSTEM_JOB?
ZZZZ010241	31800	=   TRACE ?_COMPUTER_NAME?};
ZZZZ010241	31900	=SET{_REAL_TEST='REAL'};
ZZZZ010241	32000	=IF{WN.2!=}JUMP{S_END};JUMP{S_CMD};
ZZZZ010241	32100	=FTABLE:
ZZZZ010241	32200	=SET{.SYSTEM_SEQ=0};
ZZZZ010241	32300	=SET{WN.FTAG=' AND (SYSTEM_PROGRAM LIKE ''%TABLE%'''
ZZZZ010241	32400	=  +' OR SYSTEM_PROGRAM LIKE ''%実表%'')'};
ZZZZ010241	32500	=JUMP{S_END};
ZZZZ010241	32600	******( FTAG )*****************************
ZZZZ010241	32700	=FTAG0:SET{.SYSTEM_SEQ=0};SET{WN.TAG=S_CMD[7]};JUMP{F1};
ZZZZ010241	32800	=FTAG:SET{WN.TAG=S_CMD[6]};
ZZZZ010241	32900	=F1:SET{WN.FTAG=
ZZZZ010241	33000	=   ' AND(SYSTEM_PROGRAM LIKE ''%=%?WN.TAG?:%'''
ZZZZ010241	33100	=   +'  OR SYSTEM_PROGRAM LIKE ''%=%JUMP{?WN.TAG?}%'''
ZZZZ010241	33200	=   +'  OR SYSTEM_PROGRAM LIKE ''%=%BACK{?WN.TAG?}%'')'};
ZZZZ010241	33300	=JUMP{S_END};
ZZZZ010241	33400	******( FIF )*****************************
ZZZZ010241	33500	=FIF:SET{WN.FTAG=' AND(SYSTEM_PROGRAM LIKE ''%=%IF{%'''
ZZZZ010241	33600	=   +' OR SYSTEM_PROGRAM LIKE ''%=%IF_NOT{%'''
ZZZZ010241	33700	=   +' OR SYSTEM_PROGRAM LIKE ''%=%IF_FILE{%'''
ZZZZ010241	33800	=   +' OR SYSTEM_PROGRAM LIKE ''%=%IF_FILE_NOT{%'''
ZZZZ010241	33900	=   +' OR SYSTEM_PROGRAM LIKE ''%=%IF_NAME{%'''
ZZZZ010241	34000	=   +' OR SYSTEM_PROGRAM LIKE ''%=%IF_NAME_NOT{%'''
ZZZZ010241	34100	=   +' OR SYSTEM_PROGRAM LIKE ''%=%IF_TABLE{%'''
ZZZZ010241	34200	=   +' OR SYSTEM_PROGRAM LIKE ''%=%IF_TABLE_NOT{%'')'}
ZZZZ010241	34300	=JUMP{S_END};
ZZZZ010241	34400	******( EDIT  )**********************
ZZZZ010241	34500	=SQL:IF{WN.2=}SET{WN.2='A'};
ZZZZ010241	34600	=IF_ERROR_READ_OPEN{1,?_TMP?SQL_?WN.2?.TXT,}JUMP{BAD};
ZZZZ010241	34700	=READ_CLOSE{1};JUMP{OK};
ZZZZ010241	34800	=BAD:IF_ERROR_WRITE_OPEN{1,?_TMP?SQL_?WN.2?.TXT,OT,}
ZZZZ010241	34900	=   WRITE_CLOSE{1}ERROR{};
ZZZZ010241	35000	=WRITE_CLOSE{1};
ZZZZ010241	35100	=OK:EXE_WAIT{?WC.BROWSE?,?_TMP?SQL_?WN.2?.TXT};
ZZZZ010241	35200	=IF_ERROR_READ_OPEN{1,?_TMP?SQL_?WN.2?.TXT,}ERROR{};
ZZZZ010241	35300	=SET{WN.SQL=};
ZZZZ010241	35400	=READ_NEXT1:READ_NEXT{1,}JUMP{READ_END1};
ZZZZ010241	35500	=SET{_EDIT=_READ_DATA,WN.SQL+=_EDIT+_NEW_LINE};
ZZZZ010241	35600	=BACK{READ_NEXT1};
ZZZZ010241	35700	=READ_END1:READ_CLOSE{1};
ZZZZ010241	35800	%TEST+=SET{_REAL_TEST='TEST'};
ZZZZ010241	35900	=SET{_JOB_PERMISSION=_PERMISSION};
ZZZZ010241	36000	=SET{WN.ERROR=};
ZZZZ010241	36100	=IF_ERROR_SQL_FILE{SQL_?WN.2?.CSV,OT,}{?WN.SQL?}
ZZZZ010241	36200	=   SET{WN.ERROR=_ERROR}JUMP{SQL_ERR};
ZZZZ010241	36300	=EXE{?WC.BROWSE?,?_TMP??_SQL_FILE?SQL_?WN.2?.CSV};
ZZZZ010241	36400	=SQL_ERR:
ZZZZ010241	36500	=SET{_JOB_PERMISSION=_MENU_PERMISSION};
ZZZZ010241	36600	%TEST+=SET{_REAL_TEST='REAL'};
ZZZZ010241	36700	=IF{WN.ERROR!=}ERROR{?WN.ERROR?};
ZZZZ010241	36800	=JUMP{S_END};
ZZZZ010241	36900	******( TRACE )**********************
ZZZZ010241	37000	=TRACE:IF{S_RUN='MENU'}JUMP{BM};
ZZZZ010241	37100	=JUMP{BT};
ZZZZ010241	37200	=BL:SET{_REAL_TEST='TEST'};
ZZZZ010241	37300	=BR:SET{WL='?_TMP??_REAL_TEST?_?_SYSTEM?_?_TODAY?.LOG'};
ZZZZ010241	37400	=SET{WN.P='LOG'};
ZZZZ010241	37500	=JUMP{SERVER_GET};
ZZZZ010241	37600	=BT:SET{WL='_TRACE_?_COMPUTER_NAME?.TXT',WN.P=};
ZZZZ010241	37700	%TEST+=SET{_REAL_TEST='TEST'};
ZZZZ010241	37800	=SERVER_GET:IF_ERROR_SERVER_GET{?WL?,?WN.P?}JUMP{ERR_GET};
ZZZZ010241	37900	%TEST+=SET{_REAL_TEST='REAL'};
ZZZZ010241	38000	=JUMP{BROWSE};
ZZZZ010241	38100	=ERR_GET:SET{WN.ERR=_ERROR};
ZZZZ010241	38200	%TEST+=SET{_REAL_TEST='REAL'};
ZZZZ010241	38300	=ERROR{?WN.ERR?};
ZZZZ010241	38400	=BM:SET{WL='?_TMP?_TRACE.TXT'};
ZZZZ010241	38500	*BROWSE:EXE{?WN.EDITOR?,?WL?};
ZZZZ010241	38600	=BROWSE:EXE{?WC.BROWSE?,?WL?};
ZZZZ010241	38700	=JUMP{S_CMD};
ZZZZ010241	38800	****( 汎用処理 INPUT 2/2 BEGIN )****
ZZZZ010241	38900	*****( MOVE )************************************************
ZZZZ010241	39000	=MOVE:
ZZZZ010241	39100	=SET{WN.BEGIN=,WN.END=};
ZZZZ010241	39200	=IF{WN.2=}ERROR{MOVE LOCATE=SPACE ERROR};
ZZZZ010241	39300	=IF_ERROR_SET{W0.LOCATE=WN.2}ERROR{MOVE LOCATE(?WN.2?)ERROR};
ZZZZ010241	39400	=IF{WN.3=}ERROR{MOVE BEGIN=SPACE ERROR};
ZZZZ010241	39500	=IF_ERROR_SET{W0.BEGIN=WN.3}ERROR{MOVE BEGIN(?WN.3?) ERROR};
ZZZZ010241	39600	=IF{WN.4=}ERROR{MOVE END=SPACE ERROR};
ZZZZ010241	39700	=IF_ERROR_SET{W0.END=WN.4}ERROR{MOVE END(?WN.4?) ERROR};
ZZZZ010241	39800	=IF{W0.LOCATE>=W0.BEGIN}
ZZZZ010241	39900	=   IF{W0.LOCATE<=W0.END}ERROR{BEGIN=<LOCATE=<END};
ZZZZ010241	40000	=JUMP{COPY3};
ZZZZ010241	40100	*****( COPY )******************************************
ZZZZ010241	40200	=COPY:
ZZZZ010241	40300	=IF{WN.2!=}JUMP{COPY2};
ZZZZ010241	40400	=SET{%TABLE='-',%ADD='-',%FC='-'
ZZZZ010241	40500	=   ,%COPY='+',%MOVE='-',%CANCEL='-'};
ZZZZ010241	40600	=SQL_SET{.SYSTEM_SEQ,.?WN.XOBJECT?}{SELECT SYSTEM_SEQ
ZZZZ010241	40700	=   ,?WN.XOBJECT? FROM ?_TABLE? WHERE ?WN.XWHERE? AND
ZZZZ010241	40800	=   SYSTEM_SEQ=(SELECT MAX(SYSTEM_SEQ) FROM ?_TABLE? WHERE
ZZZZ010241	40900	=   ?WN.XWHERE? AND Z_CANCEL=' ')};
ZZZZ010241	41000	=SET{WN.OPTION_O='O',S_CMD=};
ZZZZ010241	41100	=EXIT{+1};EXIT{};
ZZZZ010241	41200	=COPY2:SET{WN.XKEYCOPY=WN.2,WN.BEGIN=,WN.END=};
ZZZZ010241	41300	=IF_ERROR_SET{W0.LOCATE=WN.3}ERROR{COPY LOCATE(?WN.3?)ERROR};
ZZZZ010241	41400	=IF_ERROR_SET{W0.BEGIN=WN.4}ERROR{COPY BEGIN(?WN.4?) ERROR};
ZZZZ010241	41500	=IF_ERROR_SET{W0.END=WN.5}ERROR{COPY END(?WN.5?) ERROR};
ZZZZ010241	41600	=COPY3:IF{WN.XKEYCOPY='*'}SET{WN.XKEYCOPY=?WN.XKEY?};
ZZZZ010241	41700	*(PROGRAM ONLE BEGIN)*
ZZZZ010241	41800	=IF{WN.XKEYCOPY@COUNT!=10,WN.XKEYCOPY[9]='00'}
ZZZZ010241	41900	=   ERROR{?WN.1? JOB(?WN.XKEYCOPY?) ERROR};
ZZZZ010241	42000	=SQL_SET{}{SELECT DISTINCT SYSTEM_MENU FROM
ZZZZ010241	42100	* ?WN.DB?_I_MENU_TABLE
ZZZZ010241	42200	=   ?_MM?_I_MENU_TABLE
ZZZZ010241	42300	=   WHERE ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010241	42400	=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?='?WN.XKEYCOPY?'
ZZZZ010241	42500	=   AND Z_CANCEL=' '};
ZZZZ010241	42600	=IF{_SQL_SET_COUNT=0}
ZZZZ010241	42700	=   ERROR{?WN.1? JOB(?WN.XKEYCOPY?) NOT FOUND};
ZZZZ010241	42800	*(PROGRAM ONLE END)*
ZZZZ010241	42900	=COPY2:IF{W0.LOCATE=0}SET{W0.CEND=99999}JUMP{COPY};
ZZZZ010241	43000	=SQL_SET{W0.CEND}{SELECT MIN(SYSTEM_SEQ) FROM ?_TABLE? WHERE
ZZZZ010241	43100	=   ?WN.XWHERE? AND SYSTEM_SEQ>?W0.LOCATE? AND Z_CANCEL=' '
ZZZZ010241	43200	=   GROUP BY ?WN.XKEY? ORDER BY ?WN.XKEY?};
ZZZZ010241	43300	=IF{_SQL_SET_COUNT=0}SET{W0.LOCATE=0,W0.CEND=99999};
ZZZZ010241	43400	NAME=BEGIN_END_CHECK
ZZZZ010241	43500	=SET{WN.BEGIN=,WN.END=};
ZZZZ010241	43600	=IF{W0.BEGIN=0}JUMP{BEGIN_0};
ZZZZ010241	43700	=SQL_SET{}{SELECT SYSTEM_SEQ FROM ?WN.XTABLECOPY?
ZZZZ010241	43800	=   WHERE ?WN.XKEY?='?WN.XKEYCOPY?' AND SYSTEM_SEQ=?W0.BEGIN?
ZZZZ010241	43900	=   AND Z_CANCEL=' '};
ZZZZ010241	44000	=IF{_SQL_SET_COUNT=0}
ZZZZ010241	44100	=   ERROR{?WN.XKEYCOPY? BEGIN(?W0.BEGIN?) NOT FOUND};
ZZZZ010241	44200	=SET{WN.BEGIN='AND SYSTEM_SEQ>='+W0.BEGIN};
ZZZZ010241	44300	=BEGIN_0:IF{W0.END=0}JUMP{END_0};
ZZZZ010241	44400	=SQL_SET{}{SELECT SYSTEM_SEQ FROM ?WN.XTABLECOPY? ?_T?
ZZZZ010241	44500	=   WHERE ?WN.XKEY?='?WN.XKEYCOPY?' AND SYSTEM_SEQ=?W0.END?
ZZZZ010241	44600	=   AND Z_CANCEL=' '};
ZZZZ010241	44700	=IF{_SQL_SET_COUNT=0}
ZZZZ010241	44800	=   ERROR{?WN.XKEYCOPY? END(?W0.END?) NOT FOUND};
ZZZZ010241	44900	=SET{WN.END='AND SYSTEM_SEQ<='+W0.END};
ZZZZ010241	45000	=END_0:IF{W0.END<W0.BEGIN}ERROR{BEGIN > END};
ZZZZ010241	45100	=IF{W0.BEGIN<0}ERROR{BEGIN < 0};
ZZZZ010241	45200	NAME=COPY
ZZZZ010241	45300	=COPY:IF{W0.LOCATE!=0}
ZZZZ010241	45400	=   COMPUTE{W0.CCC=W0.CEND-W0.LOCATE,-=1}JUMP{LOCATE_NOT_0};
ZZZZ010241	45500	=SET{W0.CCC=99999};
ZZZZ010241	45600	=SQL_SET{W0.LOCATE}{SELECT (MAX(SYSTEM_SEQ)+100)/100*100 FROM
ZZZZ010241	45700	=?_TABLE? WHERE ?WN.XWHERE? AND Z_CANCEL=' '};
ZZZZ010241	45800	=IF{_SQL_SET_COUNT=0}SET{W0.LOCATE=0};
ZZZZ010241	45900	=LOCATE_NOT_0:
ZZZZ010241	46000	=LINK_SET{WN.SQL0}{SELECT ?WN.XOBJECT? FROM}{?WN.XTABLECOPY?}
ZZZZ010241	46100	=  {X1}{WHERE ?WN.XKEY?='?WN.XKEYCOPY?' AND
ZZZZ010241	46200	=   Z_CANCEL=' ' ?WN.BEGIN? ?WN.END? ORDER BY SYSTEM_SEQ};
ZZZZ010241	46300	=SQL1{?WN.SQL0?};
ZZZZ010241	46400	*=SQL1{SELECT ?WN.XOBJECT? FROM ?WN.XTABLECOPY? ?_T?
ZZZZ010241	46500	*=WHERE ?WN.XKEY?='?WN.XKEYCOPY?'
ZZZZ010241	46600	*=AND Z_CANCEL=' ' ?WN.BEGIN? ?WN.END? ORDER BY SYSTEM_SEQ};
ZZZZ010241	46700	=IF{_SQL1_COUNT=0}ERROR{DATA COUNT ZERO};
ZZZZ010241	46800	=IF{W0.CCC<_SQL1_COUNT}ERROR{DATA COUNT OVER};
ZZZZ010241	46900	=COMPUTE_CUT{W0.CCC/=_SQL1_COUNT};
ZZZZ010241	47000	=IF{W0.CCC>100}SET{W0.CCC=100}JUMP{SQL1_NEXT};
ZZZZ010241	47100	=IF{W0.CCC>10} SET{W0.CCC=10};
ZZZZ010241	47200	=SQL1_NEXT:SQL1_NEXT{WN.VALUE}JUMP{SQL1_END};
ZZZZ010241	47300	=LOOP:COMPUTE{W0.LOCATE+=W0.CCC};
ZZZZ010241	47400	=SQL_SET{WN.CANCEL}{SELECT Z_CANCEL FROM ?_TABLE? ?_T? WHERE
ZZZZ010241	47500	=   ?WN.XWHERE? AND SYSTEM_SEQ=?W0.LOCATE?};
ZZZZ010241	47600	=IF{_SQL_SET_COUNT=0}JUMP{C_INSERT};
ZZZZ010241	47700	=IF{WN.CANCEL=}BACK{LOOP};
ZZZZ010241	47800	=C_UPDATE:IF_ERROR_SQL{UPDATE ?_TABLE?
ZZZZ010241	47900	=   SET ?WN.XOBJECT?='?WN.VALUE?'
ZZZZ010241	48000	=   ,?_Z_UPDATE_ADD? WHERE ?WN.XWHERE?
ZZZZ010241	48100	=   AND SYSTEM_SEQ=?W0.LOCATE? AND Z_CANCEL<>' '}ERROR{};
ZZZZ010241	48200	=BACK{SQL1_NEXT};
ZZZZ010241	48300	=C_INSERT:IF_ERROR_SQL{INSERT INTO ?_TABLE?
ZZZZ010241	48400	=   (?WN.XKEY?,SYSTEM_SEQ,?WN.XOBJECT?,?_Z_INSERT_NAME?)
ZZZZ010241	48500	=   VALUES('?WN.XKEYVALUE?',?W0.LOCATE?,'?WN.VALUE?'
ZZZZ010241	48600	=   ,?_Z_INSERT_VALUE?)}ERROR{};
ZZZZ010241	48700	=BACK{SQL1_NEXT};
ZZZZ010241	48800	=SQL1_END:
ZZZZ010241	48900	NAME=
ZZZZ010241	49000	=IF{WN.1='MOVE'}JUMP{CANCEL2};
ZZZZ010241	49100	=JUMP{S_END};
ZZZZ010241	49200	*=CH:
ZZZZ010241	49300	*=IF{WN.2!=}SET{S_FIND=WN.2};
ZZZZ010241	49400	*=IF{S_FIND=}ERROR{S_FIND IS NULL};
ZZZZ010241	49500	*=SET{WN.2='''?S_FIND?'''};
ZZZZ010241	49600	*=SET{WN.3='''HATTYUU_?S_FIND?'''};
ZZZZ010241	49700	*=IF{S_FIND!%'_X'}JUMP{CHANGE};
ZZZZ010241	49800	*=SET{WN.3='''HATTYUU_?S_FIND[1;S_FIND@LENGTH-2]?'''};
ZZZZ010241	49900	*=JUMP{CHANGE};
ZZZZ010241	50000	*=CX:
ZZZZ010241	50100	*=IF{WN.2!=}SET{S_FIND=WN.2};
ZZZZ010241	50200	*=IF{S_FIND=}ERROR{S_FIND IS NULL};
ZZZZ010241	50300	*=SET{WN.2='''?S_FIND?'''};
ZZZZ010241	50400	*=SET{WN.3='''SYSTEM_?S_FIND?'''};
ZZZZ010241	50500	*=IF{S_FIND!%'_X'}JUMP{CHANGE};
ZZZZ010241	50600	*=IF{S_FIND='USER_X'}JUMP{CHANGE};
ZZZZ010241	50700	*=SET{WN.3='''SYSTEM_?S_FIND[1;S_FIND@LENGTH-2]?'''};
ZZZZ010241	50800	*****( CHANGE )****************************************
ZZZZ010241	50900	=CHANGE:
ZZZZ010241	51000	*SET{_TRACE=1};
ZZZZ010241	51100	=IF{WN.2!=}JUMP{OK};
ZZZZ010241	51200	=SET{S_CMD=#CHANGE};EXIT{S_CMD};
ZZZZ010241	51300	=IF{WN.2@COUNT<2,WN.3@COUNT<2}JUMP{ERR};
ZZZZ010241	51400	=IF{WN.2[1;1]='''',WN.2[WN.2@COUNT;1]=''''
ZZZZ010241	51500	=   ,WN.3[1;1]='''',WN.3[WN.3@COUNT;1]=''''}JUMP{OK};
ZZZZ010241	51600	=ERR:ERROR{C 'O' 'N'};
ZZZZ010241	51700	=OK:
ZZZZ010241	51800	=COMPUTE{W0.L=WN.2@COUNT-2};
ZZZZ010241	51900	=IF{W0.L<1}ERROR{OLD LENGTH};
ZZZZ010241	52000	=SET{WN.CHO=WN.2[2;W0.L]};
ZZZZ010241	52100	=COMPUTE{W0.L=WN.3@COUNT-2};
ZZZZ010241	52200	=IF{W0.L<1}ERROR{NEW LENGTH};
ZZZZ010241	52300	=SET{WN.CHN=WN.3[2;W0.L]};
ZZZZ010241	52400	=IF{WN.CHO='',='  ',='   ',='    ',='     '}
ZZZZ010241	52500	=   ERROR{'O'=SPACE};
ZZZZ010241	52600	=IF{WN.CHO=WN.CHN}ERROR{'O'='N'};
ZZZZ010241	52700	=IF_ERROR_SET{W0.BEGIN=WN.4}ERROR{BEGIN(?WN.4?) ERROR};
ZZZZ010241	52800	=IF_ERROR_SET{W0.END=WN.5}ERROR{END(?WN.5?) ERROR};
ZZZZ010241	52900	COPY=BEGIN_END_CHECK
ZZZZ010241	53000	=SQL1{SELECT
ZZZZ010241	53100	=   REPLACE(RTRIM(?WN.XOBJECT?),'?WN.CHO?','?WN.CHN?')
ZZZZ010241	53200	=  ,SYSTEM_SEQ
ZZZZ010241	53300	=   FROM ?_TABLE? WHERE ?WN.XWHERE?
ZZZZ010241	53400	=   AND Z_CANCEL=' ' AND RTRIM(?WN.XOBJECT?)<>
ZZZZ010241	53500	=   REPLACE(RTRIM(?WN.XOBJECT?),'?WN.CHO?','?WN.CHN?')
ZZZZ010241	53600	=   ?WN.BEGIN? ?WN.END? ORDER BY 1 DESC};
ZZZZ010241	53700	=SET{WN.FC='CHANGE'};
ZZZZ010241	53800	NAME=FC_KEEP
ZZZZ010241	53900	=SET{W0.C=1};
ZZZZ010241	54000	=FC_LOOP:IF{W0.C>#?WN.FC?_CNT}JUMP{FC_SET};
ZZZZ010241	54100	=IF{#?WN.FC?_?W0.C?=_DATA}JUMP{FC_END};
ZZZZ010241	54200	=COMPUTE{W0.C+=1};BACK{FC_LOOP};
ZZZZ010241	54300	=FC_SET:SET{#?WN.FC?_?W0.C?=_DATA,#?WN.FC?_CNT=W0.C};
ZZZZ010241	54400	=FC_END:
ZZZZ010241	54500	NAME=
ZZZZ010241	54600	=SET{#CHANGE=_DATA};
ZZZZ010241	54700	=IF{_SQL1_COUNT=0}ERROR{CHANGE RECORD NOT FOUND};
ZZZZ010241	54800	=SQL1_NEXT:SQL1_NEXT{WN.PROG,WN.SEQ}JUMP{SQL1_END};
ZZZZ010241	54900	=IF{WN.PROG@FORM_LENGTH>61}
ZZZZ010241	55000	=   ERROR{LENGTH ORVER (?WN.SEQ?)};
ZZZZ010241	55100	=BACK{SQL1_NEXT};
ZZZZ010241	55200	=SQL1_END:
ZZZZ010241	55300	=IF_ERROR_SQL{UPDATE ?_TABLE? SET ?_Z_UPDATE_CHANGE?
ZZZZ010241	55400	=   ,?WN.XOBJECT?=REPLACE(RTRIM(?WN.XOBJECT?),'?WN.CHO?'
ZZZZ010241	55500	=  ,'?WN.CHN?') WHERE ?WN.XWHERE? AND Z_CANCEL=' ' ?WN.BEGIN?
ZZZZ010241	55600	=   ?WN.END? AND RTRIM(?WN.XOBJECT?)<>
ZZZZ010241	55700	=   REPLACE(RTRIM(?WN.XOBJECT?),'?WN.CHO?','?WN.CHN?')}
ZZZZ010241	55800	=   ERROR{};
ZZZZ010241	55900	=IF{_SQL_COUNT_123=0}ERROR{NOT CHANGE};
ZZZZ010241	56000	=JUMP{S_END};
ZZZZ010241	56100	******( CANCEL )****************************
ZZZZ010241	56200	=CANCEL:
ZZZZ010241	56300	=IF{WN.2=}ERROR{CANCEL BEGIN ERROR};
ZZZZ010241	56400	=IF{WN.3=}SET{WN.3=WN.2};
ZZZZ010241	56500	=IF_ERROR_SET{W0.BEGIN=WN.2}ERROR{CANCEL BEGIN NOT NUMERIC};
ZZZZ010241	56600	=IF_ERROR_SET{W0.END=WN.3}ERROR{CANCEL ... END NOT NUMERIC};
ZZZZ010241	56700	COPY=BEGIN_END_CHECK
ZZZZ010241	56800	=CANCEL2:
ZZZZ010241	56900	=SQL{UPDATE ?_TABLE? SET ?_Z_UPDATE_CANCEL? WHERE ?WN.XWHERE?
ZZZZ010241	57000	=   AND SYSTEM_SEQ BETWEEN ?W0.BEGIN? AND ?W0.END?};
ZZZZ010241	57100	=JUMP{S_END};
ZZZZ010241	57200	******( DISCARD )**************************
ZZZZ010241	57300	=DISCARD:DBO_SQL{DELETE FROM ?_TABLE? WHERE ?WN.XWHERE?
ZZZZ010241	57400	=   AND Z_CANCEL<>' '};
ZZZZ010241	57500	=JUMP{S_END};
ZZZZ010241	57600	******( RENUMBER )**************************
ZZZZ010241	57700	=RENUMBER:SQL_SET{W0.CNT}{SELECT COUNT(*) FROM ?_TABLE?
ZZZZ010241	57800	=   WHERE ?WN.XWHERE?};
ZZZZ010241	57900	=IF{W0.CNT>990}SET{W0.CNT=10}JUMP{};
ZZZZ010241	58000	=SET{              W0.CNT=100};
ZZZZ010241	58100	=SET{W0.SYSTEM_SEQ=W0.CNT};
ZZZZ010241	58200	=SQL{UPDATE ?_TABLE? SET SYSTEM_SEQ=SYSTEM_SEQ+100000000
ZZZZ010241	58300	=   WHERE ?WN.XWHERE?};
ZZZZ010241	58400	=SQL1{SELECT SYSTEM_SEQ FROM ?_TABLE? ?_LOCK1?
ZZZZ010241	58500	=   WHERE ?WN.XWHERE?
ZZZZ010241	58600	=   ORDER BY SYSTEM_SEQ ?_LOCK2?};
ZZZZ010241	58700	=SQL1_NEXT:SQL1_NEXT{WN.SEQ}JUMP{S_END};
ZZZZ010241	58800	=SQL{UPDATE ?_TABLE? SET SYSTEM_SEQ=?W0.SYSTEM_SEQ?
ZZZZ010241	58900	=   WHERE ?WN.XWHERE?
ZZZZ010241	59000	=   AND SYSTEM_SEQ=?WN.SEQ?};
ZZZZ010241	59100	=COMPUTE{W0.SYSTEM_SEQ+=W0.CNT};BACK{SQL1_NEXT};
ZZZZ010241	59200	=JUMP{S_END};
ZZZZ010241	59300	****( 汎用処理 OUTPUT 2/2 BEGIN )*****
ZZZZ010241	59400	******( LOCATE )***************************
ZZZZ010241	59500	=UP:IF{WN.2=}SET{WN.2=1000};
ZZZZ010241	59600	=IF_ERROR_COMPUTE{.SYSTEM_SEQ=.SYSTEM_SEQ_NOW-WN.2}
ZZZZ010241	59700	=   SET{.SYSTEM_SEQ=0};
ZZZZ010241	59800	=JUMP{S_END};
ZZZZ010241	59900	=DOWN:IF{WN.2=}SET{WN.2=1000};
ZZZZ010241	60000	=IF_ERROR_COMPUTE{.SYSTEM_SEQ=.SYSTEM_SEQ_NOW+WN.2}NOP{};
ZZZZ010241	60100	=JUMP{S_END};
ZZZZ010241	60200	=LOCATE:IF_ERROR_SET{.SYSTEM_SEQ=WN.2}ERROR{LOCATE LOC BAD};
ZZZZ010241	60300	=JUMP{S_END};
ZZZZ010241	60400	******( FIND )*****************************
ZZZZ010241	60500	=FIND10:SET{.SYSTEM_SEQ=0,.SYSTEM_SEQ_NOW=0};
ZZZZ010241	60600	=FIND1:SET{S_FIND=#FIND};
ZZZZ010241	60700	=JUMP{SKIP};
ZZZZ010241	60800	=FINDX0:SET{.SYSTEM_SEQ=0,.SYSTEM_SEQ_NOW=0};
ZZZZ010241	60900	=FINDX:SET{S_FIND=S_CMD[W0.C],WN.EQ='='};
ZZZZ010241	61000	=IF{S_FIND=}SET{S_FIND=#FIND};
ZZZZ010241	61100	=SKIP:SET{#FIND=S_FIND};
ZZZZ010241	61200	=SET{WN.F=_FIND((WN.XOBJECT);"S_FIND")};
ZZZZ010241	61300	NAME=SET_S_FIND_COUNT
ZZZZ010241	61400	=SQL_SET{S_FIND_COUNT}{SELECT COUNT(*) FROM
ZZZZ010241	61500	=   ?_TABLE? WHERE ?WN.XWHERE?
ZZZZ010241	61600	=   AND ?WN.F?>0 AND Z_CANCEL=' '};
ZZZZ010241	61700	NAME=
ZZZZ010241	61800	=IF{WN.2=}JUMP{SKIP};
ZZZZ010241	61900	=SET{WN.FC='FIND'};
ZZZZ010241	62000	COPY=FC_KEEP
ZZZZ010241	62100	=SKIP:IF{WN.1[1;2]!='FF'}JUMP{W1};
ZZZZ010241	62200	=SET{_DATA@WHERE='(('+WN.F
ZZZZ010241	62300	=   +'>0 OR((SYSTEM_PROGRAM LIKE ''PROGRAM'+'=%'''
ZZZZ010241	62400	=   +' OR SYSTEM_PROGRAM LIKE  ''%-PROGRAM'+'=%'''
ZZZZ010241	62500	=   +' OR SYSTEM_PROGRAM LIKE  ''%+PROGRAM'+'=%'''
ZZZZ010241	62600	=   +' OR SYSTEM_PROGRAM LIKE   ''TABLE'+'=%'''
ZZZZ010241	62700	=   +' OR SYSTEM_PROGRAM LIKE ''%-TABLE'+'=%'''
ZZZZ010241	62800	=   +' OR SYSTEM_PROGRAM LIKE ''%+TABLE'+'=%'''
ZZZZ010241	62900	=   +' OR SYSTEM_PROGRAM LIKE   ''COPY'+'=%'''
ZZZZ010241	63000	=   +' OR SYSTEM_PROGRAM LIKE ''%+COPY'+'=%'''
ZZZZ010241	63100	=   +' OR SYSTEM_PROGRAM LIKE ''%-COPY'+'=%'''
ZZZZ010241	63200	=   +' OR SYSTEM_PROGRAM LIKE   ''NAME'+'=%'''
ZZZZ010241	63300	=   +' OR SYSTEM_PROGRAM LIKE ''%+NAME'+'=%'''
ZZZZ010241	63400	=   +' OR SYSTEM_PROGRAM LIKE ''%-NAME'+'=%'''
ZZZZ010241	63500	=   +' OR SYSTEM_PROGRAM LIKE   ''NAME'+'2=%'''
ZZZZ010241	63600	=   +' OR SYSTEM_PROGRAM LIKE ''%+NAME'+'2=%'''
ZZZZ010241	63700	=   +' OR SYSTEM_PROGRAM LIKE ''%-NAME'+'2=%'''
ZZZZ010241	63800	=   +' OR SYSTEM_PROGRAM LIKE   ''COMMENT_BEGIN %'''
ZZZZ010241	63900	=   +' OR SYSTEM_PROGRAM LIKE ''%+COMMENT_'+'BEGIN %'''
ZZZZ010241	64000	=   +' OR SYSTEM_PROGRAM LIKE ''%-COMMENT_'+'BEGIN %'''
ZZZZ010241	64100	=   +' OR SYSTEM_PROGRAM LIKE   ''COMMENT2_BEGIN %'''
ZZZZ010241	64200	=   +' OR SYSTEM_PROGRAM LIKE ''%+COMMENT2_'+'BEGIN %'''
ZZZZ010241	64300	=   +' OR SYSTEM_PROGRAM LIKE ''%-COMMENT2_'+'BEGIN %'''
ZZZZ010241	64400	=   +' OR SYSTEM_PROGRAM LIKE   ''COMMENT_END %'''
ZZZZ010241	64500	=   +' OR SYSTEM_PROGRAM LIKE ''%+COMMENT_'+'END %'''
ZZZZ010241	64600	=   +' OR SYSTEM_PROGRAM LIKE ''%-COMMENT_'+'END %'''
ZZZZ010241	64700	=   +' OR SYSTEM_PROGRAM LIKE   ''COMMENT2_END %'''
ZZZZ010241	64800	=   +' OR SYSTEM_PROGRAM LIKE ''%+COMMENT2_'+'END %'''
ZZZZ010241	64900	=   +' OR SYSTEM_PROGRAM LIKE ''%-COMMENT2_'+'END %''))))'};
ZZZZ010241	65000	=   JUMP{S_END};
ZZZZ010241	65100	=W1:SET{WN.MAX_MIN='MIN'};
ZZZZ010241	65200	******( NEXT )************
ZZZZ010241	65300	=NEXT:
ZZZZ010241	65400	=SET{WGL='>'};IF{WN.MAX_MIN='MAX'}SET{WGL='<'};
ZZZZ010241	65500	=SQL_SET{WN.LOCATE}{SELECT ?WN.MAX_MIN?(SYSTEM_SEQ) FROM
ZZZZ010241	65600	=   ?_TABLE? WHERE ?WN.XWHERE? AND ?WN.F?>0 AND Z_CANCEL=' '
ZZZZ010241	65700	=   AND SYSTEM_SEQ?WGL??WN.EQ?0?.SYSTEM_SEQ_NOW?};
ZZZZ010241	65800	=IF{_SQL_SET_COUNT=0}JUMP{S_END};
ZZZZ010241	65900	=SET{.SYSTEM_SEQ=WN.LOCATE};
ZZZZ010241	66000	=JUMP{S_END};
ZZZZ010241	66100	******( FINDWORD )*************************
ZZZZ010241	66200	=FW0:SET{.SYSTEM_SEQ=0,.SYSTEM_SEQ_NOW=0};
ZZZZ010241	66300	=FW:
ZZZZ010241	66400	=IF{WN.2!=}SET{S_FIND=WN.2,#FIND=S_FIND};
ZZZZ010241	66500	=SET{WN.F='0',WC.F_C='F'};
ZZZZ010241	66600	NAME=FIND_CHANGE
ZZZZ010241	66700	=SET{W.1='!',W.2='"',W.3='#',W.4='$',W.5='%',W.6='&',W.7=''''
ZZZZ010241	66800	=   ,W.8='(',W.9=')',W.10='=',W.11='~',W.12='|',W.13='`'
ZZZZ010241	66900	=   ,W.14='{',W.15='+',W.16='*',W.17='}',W.18='<',W.19='>'
ZZZZ010241	67000	=   ,W.20='?_Q?',W.21='-',W.22='^',W.23='\',W.24='@',W.25='['
ZZZZ010241	67100	=   ,W.26=';',W.27=':',W.28=']',W.29=',',W.30='.',W.31='\'
ZZZZ010241	67200	=   ,W.32=' '};
ZZZZ010241	67300	=SET{WN.PROGRAM_SPACE=_CONCAT(' ';SYSTEM_PROGRAM;' ')};
ZZZZ010241	67400	REPEAT=32
ZZZZ010241	67500	REPEAT2=32
ZZZZ010241	67600	*=IF{W.##='-',='+'}IF{W.$$='='}JUMP{J}; 定義語は迂回*
ZZZZ010241	67700	*=IF{W.$$='&'}JUMP{J}; テーブル定義語は迂回*
ZZZZ010241	67800	=IF{WC.F_C='F'}SET{W='?W.##??S_FIND??W.$$?'
ZZZZ010241	67900	=   ,WN.F+='+'+_FIND((WN.PROGRAM_SPACE);"W")}JUMP{};
ZZZZ010241	68000	=   SET{W='?W.##??S_FIND??W.$$?'};
ZZZZ010241	68100	=J:
ZZZZ010241	68200	REPEAT=
ZZZZ010241	68300	NAME=
ZZZZ010241	68400	=IF{WN.1/'FF'}SET{_DATA@WHERE=WN.F+'>0'};
ZZZZ010241	68500	COPY=SET_S_FIND_COUNT
ZZZZ010241	68600	=JUMP{S_END};
ZZZZ010241	68700	*****( DATE )**********************
ZZZZ010241	68800	=DATE:
ZZZZ010241	68900	*SET{WN.ORDER='CASE WHEN Z_CANCEL>Z_CHANGE THEN'
ZZZZ010241	69000	* +' CASE WHEN Z_CANCEL>Z_ADD THEN Z_CANCEL ELSE Z_ADD END'
ZZZZ010241	69100	* +' ELSE CASE WHEN Z_CHANGE>Z_ADD THEN  Z_CHANGE ELSE Z_ADD'
ZZZZ010241	69200	* +' END END DESC,'};
ZZZZ010241	69300	=SET{WN.ORDER='4 DESC,'};
ZZZZ010241	69400	=JUMP{S_END};
ZZZZ010241	69500	*****( END )**********************
ZZZZ010241	69600	=S_CMD:SET{S_CMD=};EXIT{S_CMD};
ZZZZ010241	69700	=S_END:SET{S_CMD=};EXIT{};
ZZZZ010241	69800	*****( プログラム　挿入処理 )********************************
ZZZZ010241	69900	=ADD: SET{_TRACE=1};
ZZZZ010241	70000	=IF_ERROR_SET{W0.SYSTEM_SEQ=WN.2}
ZZZZ010241	70100	=   SET{W0.SYSTEM_SEQ=.SYSTEM_SEQ};
ZZZZ010241	70200	=IF{WN.2=}SET{W0.SYSTEM_SEQ=.SYSTEM_SEQ};
ZZZZ010241	70300	=IF{W0.SYSTEM_SEQ>99990}SET{W0.SYSTEM_SEQ=99990};
ZZZZ010241	70400	=IF{WN.3=}JUMP{NG};
ZZZZ010241	70500	=SET{WN1=WN.3};
ZZZZ010241	70600	NAME=ADD
ZZZZ010241	70700	=SET{WN2=,WN3=};
ZZZZ010241	70800	=IF{WN1='=DIR',='=DIR_NEXT'}SET{WN1='=DIR',WN2='=DIR_NEXT'};
ZZZZ010241	70900	=IF{WN1='=DIR_DIR',='=DIR_DIR_NEXT'}
ZZZZ010241	71000	=   SET{WN1='=DIR_DIR',WN2='=DIR_DIR_NEXT'};
ZZZZ010241	71100	=IF{WN1/'=READ1'}
ZZZZ010241	71200	=SET{WN1='=READ1_OPEN',WN2='=READ1_NEXT',WN3='=READ1_CLOSE'};
ZZZZ010241	71300	=IF{WN1/'=READ2'}
ZZZZ010241	71400	=SET{WN1='=READ2_OPEN',WN2='=READ2_NEXT',WN3='=READ2_CLOSE'};
ZZZZ010241	71500	=IF{WN1='=READ',WN1/'=READ_'}
ZZZZ010241	71600	=   SET{WN1='=READ_OPEN',WN2='=READ_NEXT',WN3='=READ_CLOSE'};
ZZZZ010241	71700	=IF{WN1='=SQL1',='=SQL1_NEXT'}
ZZZZ010241	71800	=   SET{WN1='=SQL1',WN2='=SQL1_NEXT'};
ZZZZ010241	71900	=IF{WN1/'=WRITE1'}
ZZZZ010241	72000	=  SET{WN1='=WRITE1_OPEN',WN2='=WRITE1_CLOSE',WN3='=WRITE1'};
ZZZZ010241	72100	=IF{WN1/'=WRITE2'}
ZZZZ010241	72200	=  SET{WN1='=WRITE2_OPEN',WN2='=WRITE2_CLOSE',WN3='=WRITE2'};
ZZZZ010241	72300	=IF{WN1='=WRITE',WN1/'=WRITE_'}
ZZZZ010241	72400	=  SET{WN1='=WRITE_OPEN',WN2='=WRITE_CLOSE',WN3='=WRITE'};
ZZZZ010241	72500	=SQL1{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ010241	72600	=   WHERE SYSTEM_KEY1='ZZZZZZ_PROGRAM'
ZZZZ010241	72700	=   AND ( SYSTEM_KEY2 LIKE '//?WN1?//%'
ZZZZ010241	72800	=   OR    SYSTEM_KEY2 LIKE '//?WN2?//%'
ZZZZ010241	72900	=   OR    SYSTEM_KEY2 LIKE '//?WN3?//%' )
ZZZZ010241	73000	=   AND   ?_SUBSTR(SYSTEM_COMMENT;1;1)?
ZZZZ010241	73100	=   IN('/','?S_RUN[1;1]?')
ZZZZ010241	73200	=   AND Z_CANCEL=' ' ORDER BY ?_SUBSTR(SYSTEM_KEY2;30;1)?};
ZZZZ010241	73300	=IF{_SQL1_COUNT=0}JUMP{NG};
ZZZZ010241	73400	NAME2=SEQ_FIND
ZZZZ010241	73500	=SEQ_LOOP:
ZZZZ010241	73600	=SQL_SET{}{SELECT SYSTEM_SEQ FROM ?_MM?_I_PROGRAM_TABLE
ZZZZ010241	73700	=   WHERE ?_VRE&.SYSTEM_JOB? AND ?_VRE&W0.SYSTEM_SEQ?};
ZZZZ010241	73800	=IF{_SQL_SET_COUNT=0}JUMP{SEQ_END};
ZZZZ010241	73900	=COMPUTE{W0.SYSTEM_SEQ+=1};
ZZZZ010241	74000	=BACK{SEQ_LOOP};
ZZZZ010241	74100	=SEQ_END:
ZZZZ010241	74200	NAME2=
ZZZZ010241	74300	=SET{W0.P=100};
ZZZZ010241	74400	=SQL_SET{W0.NEXT}
ZZZZ010241	74500	=  {SELECT SYSTEM_SEQ FROM ?_MM?_I_PROGRAM_TABLE
ZZZZ010241	74600	=   WHERE ?_VRE&.SYSTEM_JOB? AND ?_VRG&W0.SYSTEM_SEQ?
ZZZZ010241	74700	=   ORDER BY 1};
ZZZZ010241	74800	=IF{_SQL_SET_COUNT=0}JUMP{SQL1_NEXT};
ZZZZ010241	74900	=COMPUTE{W0.NEXT-=1,W0.X=W0.NEXT-W0.SYSTEM_SEQ
ZZZZ010241	75000	=   ,W0.P=W0.X/_SQL1_COUNT};
ZZZZ010241	75100	=IF{W0.P>100}SET{W0.P=100};IF{W0.P<1}SET{W0.P=1};
ZZZZ010241	75200	=SQL1_NEXT:SQL1_NEXT{W.SYSTEM_PROGRAM}JUMP{SQL1_END};
ZZZZ010241	75300	COPY=SEQ_FIND
ZZZZ010241	75400	=INSERT{?_MM?_I_PROGRAM_TABLE,
ZZZZ010241	75500	=  .SYSTEM_JOB,W0.SYSTEM_SEQ,W.SYSTEM_PROGRAM};
ZZZZ010241	75600	=COMPUTE{W0.SYSTEM_SEQ+=W0.P};
ZZZZ010241	75700	=BACK{SQL1_NEXT};
ZZZZ010241	75800	=SQL1_END:
ZZZZ010241	75900	NAME=
ZZZZ010241	76000	=SET{S_CMD=};
ZZZZ010241	76100	=EXIT{};
ZZZZ010241	76200	=NG:
ZZZZ010241	76300	=SET{S_CMD=,%TABLE='-',%ADD='+',%FC='-'
ZZZZ010241	76400	=   ,%COPY='-',%CANCEL='-',%MOVE='-'};EXIT{+1};EXIT{};
ZZZZ010241	76500	=F_C:
ZZZZ010241	76600	=SET{WN.FC='CHANGE'};IF{WN.1[1;1]='F'}SET{WN.FC='FIND'};
ZZZZ010241	76700	=SET{W0.REPEAT=#?WN.FC?_CNT,S_CMD=};
ZZZZ010241	76800	=SET{%FC='+'};EXIT{+1};
ZZZZ010241	76900	****( 汎用処理 2/2 END )*****
ZZZZ010241	77000	SET={O,*}S_FIND_COUNT{9,,+}F数
ZZZZ010241	77100	SET={O,*}S_FIND{54}F文字
ZZZZ010241	77200	SET={,*}S_DEL{3,}{,YES}
ZZZZ010241	77300	JA+TITLE=削除
ZZZZ010241	77400	*SET{WN.DEL=};IF{S_DEL=}SET{WN.DEL='CASE WHEN Z_CANCEL'
ZZZZ010241	77500	*+'='' '' THEN 0 ELSE 1 END,Z_CANCEL,'};
ZZZZ010241	77600	=SET{WN.DEL=};IF{S_DEL=}SET{WN.DEL='Z_CANCEL,'};
ZZZZ010241	77700	SET={,*}$COLOR{2}{,NO}
ZZZZ010241	77800	JA+TITLE=色指定
ZZZZ010241	77900	SET={,*}$GRAMMAR{2}{,NO}
ZZZZ010241	78000	JA+TITLE=文法確認
ZZZZ010241	78100	REPEAT=5
ZZZZ010241	78200	SET={O,*}.=?$&.SET&SYSTEM_COPY##?
ZZZZ010241	78300	TITLE=(##)
ZZZZ010241	78400	REPEAT=
ZZZZ010241	78500	SET={O,*}.SYSTEM_SEQ{5,,+,C}
ZZZZ010241	78600	JA+TITLE=頭出番号
ZZZZ010241	78700	SET={O,*}.SYSTEM_SEQ_NOW{5,,+,C}
ZZZZ010241	78800	JA+TITLE=現在番号
ZZZZ010241	78900	=SET{_DATA@WHERE='(?_T?.SYSTEM_SEQ>=?.SYSTEM_SEQ? OR'
ZZZZ010241	79000	=   +' Z_CANCEL<>'' '' OR ''?WN.ORDER?''<>'' '') ?WN.FTAG?'};
ZZZZ010241	79100	START
ZZZZ010241	79200	MESSAGE=?WC.MESSAGE?
ZZZZ010241	79300	=SET{WN.OPTION_O=};
ZZZZ010241	79400	*SET{WC.ERROR_SW=0,MESSAGE=};
ZZZZ010241	79500	=IF{_START=1}SET{Z_CANCEL=_TODAY};
ZZZZ010241	79600	=IF{_START=2}SET{Z_CANCEL=};
ZZZZ010241	79700	=SET{WN.XKEYCOPY=.SYSTEM_JOB};
ZZZZ010241	79800	=SET{%TABLE='-',%COPY='-',%MOVE='-',%CANCEL='-',%FC='-'};
ZZZZ010241	79900	=SET{WN.XTABLECOPY=_TABLE};
ZZZZ010241	80000	DATA={KC}?&.DATA&SYSTEM_SEQ?
ZZZZ010241	80100	DATA={C}?&.DATA&SYSTEM_PROGRAM?
ZZZZ010241	80200	%GRAMMAR_CHECK-COMMENT_END
ZZZZ010242	10	=SET{_TRACE=1};
ZZZZ010242	20	=SET{WC.ERROR_SW=0,MESSAGE=,WC.MESSAGE=,WC.ERR=};
ZZZZ010242	30	=IF{GRAMMAR!=}JUMP{PROGRAM_FIN}; 文法確認しない.*
ZZZZ010242	40	=SET{WC.COLOR_SW=0,W0.OPERAND_CNT=0};
ZZZZ010242	50	=JUMP{SKIP}; この先はサブルーチン用なのでSKIPで迂回する。*
ZZZZ010242	60	***( NAME_CHK ) 名前をチェックするサブルーチン)**************
ZZZZ010242	70	***( W0=現在値,WN確認する名前　)**************
ZZZZ010242	80	***( WC.CHK_KEY='NC' は列名 )******
ZZZZ010242	90	***( WC.CHK_KEY='ND' はディレクトリ名 )*****
ZZZZ010242	100	***( WC.CHK_KEY='NF' はファイル名 )******
ZZZZ010242	110	***( WC.CHK_KEY='NN' は名前でカンマ以外OK )******
ZZZZ010242	120	***( WC.CHK_KEY='NO' はオブジェクト名 )******
ZZZZ010242	130	***( WC.CHK_KEY='NR' は読み込まれるデータ名 )******
ZZZZ010242	140	***( WC.CHK_KEY='NT' はテーブル名 )******
ZZZZ010242	150	***( WC.CHK_KEY='NW' は書き込まれるデータ名 )******
ZZZZ010242	160	NAME=NAME_CHK
ZZZZ010242	170	*SET{_TRACE=1};
ZZZZ010242	180	=SET{WC.OP2='OUT DATA NAME',WC.IN_OUT='OUT'};
ZZZZ010242	190	=IF{WC.CHK_KEY='NC',='CT'}SET{WC.OP2='COLUMN NAME'};
ZZZZ010242	200	=IF{WC.CHK_KEY='ND'}SET{WC.OP2='DIRECTORY NAME'};
ZZZZ010242	210	=IF{WC.CHK_KEY='NF'}SET{WC.OP2='FILE NAME'};
ZZZZ010242	220	=IF{WC.CHK_KEY='NN'}SET{WC.OP2='NAME'};
ZZZZ010242	230	=IF{WC.CHK_KEY='NO'}SET{WC.OP2='OBJECT NAME'};
ZZZZ010242	240	=IF{WC.CHK_KEY='NT'}SET{WC.OP2='TABLE NAME'};
ZZZZ010242	250	=IF{WC.CHK_KEY='NR',='RP',='SQ',='99',='NE',='NX',='IF',='9S'
ZZZZ010242	260	=   }SET{WC.IN_OUT='IN',WC.OP2='IN DATA NAME'};
ZZZZ010242	270	=IF_NOT{WC.CHK_KEY='NN',='ND',WC.OP2='OUT DATA NAME'
ZZZZ010242	280	=   ,WC.LOGIC_END_SW=1}
ZZZZ010242	290	=   IF{WN=}SET{WC.ERR='NAME IS NULL'}JUMP{ERR_ERR};
ZZZZ010242	300	=SET{WC.BRACKETS_SW=0,WC.QUESTION_SW=0,W0.AND=0};
ZZZZ010242	310	=SET{WC.NAME_CHK_SW=0,W0.UNDER_BAR=-1,WC.NAME_CHK_END_SW=0};
ZZZZ010242	320	****( ETC5UF SQL関数 チェック )*********************
ZZZZ010242	330	=IF{WN/'_'}    IF{WN%')'}    SET{WC.GETA=}  JUMP{UF_CHK};
ZZZZ010242	340	=IF{WN/'?_Q?_'}IF{WN%')?_Q?'}SET{WC.GETA=_Q}JUMP{UF_CHK};
ZZZZ010242	350	=JUMP{UF_END};
ZZZZ010242	360	=UF_CHK:
ZZZZ010242	370	REPEAT=$W0.ETC5UF
ZZZZ010242	380	=SET{WC.UF=$WC.ETC5UF##+'('};
ZZZZ010242	390	=SET{WC.UFX='UFX'};
ZZZZ010242	400	=IF{WN/'?WC.GETA??WC.UF?'}SET{W0.UF=##}JUMP{UF_OK};
ZZZZ010242	410	REPEAT= ($W0.ETC5UF)
ZZZZ010242	420	=JUMP{UF_END};
ZZZZ010242	430	=UF_OK:
ZZZZ010242	440	=SET{WN.PARAM=$WC.ETC5?WC.UFX??W0.UF?};
ZZZZ010242	450	=SPLIT_CHAR{WN.PARAM}{WN.PARAM}{','};
ZZZZ010242	460	=IF_ERROR_SET{W0.MIN=WN.PARAM1}SET{W0.MIN=0};
ZZZZ010242	470	=SET{W0.MAX=W0.MIN};
ZZZZ010242	480	=IF{_SPLIT_CHAR_COUNT>1}
ZZZZ010242	490	=  IF_ERROR_SET{W0.MAX=WN.PARAM2}SET{W0.MAX=0};
ZZZZ010242	500	=SET{_FIND_COUNT=WN+';'}
ZZZZ010242	510	=IF{W0.MIN=0}JUMP{MIN_SKIP};
ZZZZ010242	520	=COMPUTE{W0.MIN-=1}
ZZZZ010242	530	=IF{W0.MIN>_FIND_COUNT}SET{WC.OP2='SQL FUNCTION'
ZZZZ010242	540	=   ,WC.ERR='UNDER COUNT (;)(?W0.MIN?>?_FIND_COUNT?)"?WN?"'}
ZZZZ010242	550	=   JUMP{ERR_ERR};
ZZZZ010242	560	=MIN_SKIP:IF{W0.MAX=0}JUMP{MAX_SKIP};
ZZZZ010242	570	=COMPUTE{W0.MAX-=1}
ZZZZ010242	580	=IF{W0.MAX<_FIND_COUNT}SET{WC.OP2='SQL FUNCTION'
ZZZZ010242	590	=   ,WC.ERR='OVER COUNT (;)(?W0.MAX?<?_FIND_COUNT?)"?WN?"'}
ZZZZ010242	600	=   JUMP{ERR_ERR};
ZZZZ010242	610	=MAX_SKIP:
ZZZZ010242	620	=JUMP{NAME_CHK_FIN};
ZZZZ010242	630	=UF_END:
ZZZZ010242	640	*=IF{WN/'_DATE(',/'_DAY_CHAR(',/'_DAY_DATE('
ZZZZ010242	650	*=   ,/'_CONCAT(',/'_FIND(',/'_SUBSTR('
ZZZZ010242	660	*=   ,/'_TRUNC',/'_WEEK_CHAR(',/'_WEEK_DATE('}
ZZZZ010242	670	*=   IF{WN%')'}JUMP{NAME_CHK_FIN};
ZZZZ010242	680	*=IF{WN/'?_Q?_DATE(',/'?_Q?_DAY_CHAR(',/'?_Q?_DAY_DATE('
ZZZZ010242	690	*=   ,/'?_Q?_CONCAT(',/'?_Q?_FIND(',/'?_Q?_SUBSTR('
ZZZZ010242	700	*=   ,/'?_Q?_TRUNC',/'?_Q?_WEEK_CHAR(',/'?_Q?_WEEK_DATE('}
ZZZZ010242	710	*=   IF{WN%')?_Q?'}JUMP{NAME_CHK_FIN};
ZZZZ010242	720	=NAME_CHK_LOOP:IF{W0>WN@LENGTH}JUMP{NAME_CHK_FIN};
ZZZZ010242	730	=IF{WN[W0;1]<>'?_Q?'}JUMP{NAME_CHK_FIRST_CHK};
ZZZZ010242	740	=IF{WC.QUESTION_SW=1}SET{WC.QUESTION_SW=0}
ZZZZ010242	750	=   JUMP{NAME_CHK_UNDER_BAR};
ZZZZ010242	760	=SET{WC.IN_OUT='IN'};
ZZZZ010242	770	=SET{W0.UNDER_BAR=0,WC.QUESTION_SW=1};COMPUTE{W0+=1};
ZZZZ010242	780	=IF{W0>WN@LENGTH}COMPUTE{W0-=1}JUMP{ERROR};
ZZZZ010242	790	=IF{WN[W0;1]='_'}SET{W0.UNDER_BAR=W0};
ZZZZ010242	800	=JUMP{NAME_CHK_FIRST};
ZZZZ010242	810	=NAME_CHK_FIRST_CHK:
ZZZZ010242	820	=IF{W0.UNDER_BAR<>-1}JUMP{NAME_CHK_FIRST_CHK2};
ZZZZ010242	830	=SET{W0.UNDER_BAR=0};
ZZZZ010242	840	=IF{WN[W0;1]='_'}SET{W0.UNDER_BAR=W0};
ZZZZ010242	850	=IF{WN[W0;1]='%'}IF{WC.CHK_KEY='ST'}JUMP{NAME_CHK_NEXT};
ZZZZ010242	860	=NAME_CHK_FIRST_CHK2:
ZZZZ010242	870	=IF_NOT{WC.CHK_KEY='ND',='NF'}JUMP{NAME_CHK_FIRST_CHK_FIN};
ZZZZ010242	880	=IF{WN[W0;1]='*',='?_Q?',='"',='<',='>',='|'}JUMP{ERROR};
ZZZZ010242	881	=IF{WC.MENU_TIME='T'}
ZZZZ010242	890	=  IF{WC.CHK_KEY='NF'}IF{WN[W0;1]='/',='\'}JUMP{ERROR};
ZZZZ010242	900	=JUMP{NAME_CHK_NEXT};
ZZZZ010242	910	=NAME_CHK_FIRST_CHK_FIN:
ZZZZ010242	920	=IF{WC.NAME_CHK_SW=1}JUMP{NAME_CHK_NOT_FIRST};
ZZZZ010242	930	=NAME_CHK_FIRST:
ZZZZ010242	940	=SET{WC.NAME_CHK_SW=1,WC.NAME_FIRST_SW=0};
ZZZZ010242	950	=IF_NOT{WN[W0;1]='$',='#',='!',='&',='^',='@'}
ZZZZ010242	960	=   JUMP{NAME_CHK_NOT_FIRST};
ZZZZ010242	970	=IF{WN[W0;2]='$&'}COMPUTE{W0+=1};
ZZZZ010242	980	=IF{WN[W0;1]='&'}COMPUTE{W0.AND=W0+1};
ZZZZ010242	990	=JUMP{NAME_CHK_NEXT};
ZZZZ010242	1000	=NAME_CHK_NOT_FIRST:
ZZZZ010242	1010	=IF{WC.NAME_FIRST_SW!=0}
ZZZZ010242	1020	=   IF{WN[W0;1]>='0'}IF{WN[W0;1]<='9'}JUMP{NAME_CHK_NEXT};数*
ZZZZ010242	1030	=SET{WC.NAME_FIRST_SW=1}
ZZZZ010242	1040	=IF{WN[W0;1]>='A'}IF{WN[W0;1]<='Z'}JUMP{NAME_CHK_NEXT}; 英字*
ZZZZ010242	1050	=IF{WN[W0;1]<>'_'}JUMP{NAME_CHK_FULL};
ZZZZ010242	1060	=JUMP{NAME_CHK_NEXT};
ZZZZ010242	1070	=NAME_CHK_FULL:IF{WN[W0;1]>0XFF}JUMP{NAME_CHK_NEXT};  全角*
ZZZZ010242	1080	*SET{WC.NAME_CHK1=_TILDE,WC.NAME_CHK2='#',WC.NAME_CHK3='$'};
ZZZZ010242	1082	=SET{WC.NAME_CHK1='~',WC.NAME_CHK2='#',WC.NAME_CHK3='$'};
ZZZZ010242	1083	=IF{WN='_#',='_$'}JUMP{NAME_CHK_NEXT}; VER32.1*
ZZZZ010242	1084	=IF{WN='?_Q?_#?_Q?',='?_Q?_$?_Q?'}JUMP{NAME_CHK_NEXT}; VER32*
ZZZZ010242	1090	REPEAT=3
ZZZZ010242	1100	=IF{WN[W0;1]<>WC.NAME_CHK##}JUMP{NAME_CHK_UNMATCH};
ZZZZ010242	1110	=COMPUTE{W0+=1};
ZZZZ010242	1120	=IF{W0>WN@LENGTH}COMPUTE{W0-=1}JUMP{ERROR};
ZZZZ010242	1130	=IF_NOT{WN[W0;1]='+',='-',=WC.NAME_CHK##}JUMP{ERROR};
ZZZZ010242	1140	=JUMP{NAME_CHK_NEXT};
ZZZZ010242	1150	=NAME_CHK_UNMATCH:
ZZZZ010242	1160	REPEAT= (3)
ZZZZ010242	1170	=IF{WN[W0;1]<>'&'}JUMP{NAME_CHK_NOT_AND};
ZZZZ010242	1180	=IF{W0.AND<>0}JUMP{NAME_CHK_AND};
ZZZZ010242	1190	***( _...& を判定する )
ZZZZ010242	1200	=IF{W0.UNDER_BAR<1}JUMP{ERROR};
ZZZZ010242	1210	=COMPUTE{W0=W0.UNDER_BAR+1};
ZZZZ010242	1220	=SET{W0.UNDER_BAR=0};
ZZZZ010242	1230	=IF_NOT{WN[W0;1]='L',='I',='E',='V',='N'}JUMP{ERROR};
ZZZZ010242	1240	=SET{WN.BEFORE=WN[W0;1]};
ZZZZ010242	1250	=COMPUTE{W0+=1};
ZZZZ010242	1260	=IF{WN[W0;1]='&'}JUMP{NAME_CHK_NEXT};
ZZZZ010242	1270	=IF{WN[W0;1]='C'}COMPUTE{W0+=1};
ZZZZ010242	1280	=IF{WN[W0;1]='R'}IF{WN.BEFORE!='N'}COMPUTE{W0+=1};
ZZZZ010242	1290	=IF{WN[W0;1]='&'}JUMP{NAME_CHK_NEXT};
ZZZZ010242	1300	=IF{WN[W0;1]='E',='G',='L'}COMPUTE{W0+=1};
ZZZZ010242	1310	=IF{WN[W0;1]='&'}JUMP{NAME_CHK_NEXT};
ZZZZ010242	1320	=IF{WN[W0;1]<>WN[W0-1;1]}
ZZZZ010242	1330	= IF{WN[W0;1]='E',='G'}IF{WN[W0-1;1]='G',='L'}COMPUTE{W0+=1};
ZZZZ010242	1340	=IF{WN[W0;1]='&'}JUMP{NAME_CHK_NEXT};
ZZZZ010242	1350	=JUMP{ERROR};
ZZZZ010242	1360	=NAME_CHK_NOT_AND:
ZZZZ010242	1370	=IF_NOT{WN[W0;1]='.'}JUMP{NAME_CHK_DOT_FIN};
ZZZZ010242	1380	=IF{W0.AND>0}COMPUTE{W0.AND=W0+1}; &の判定は.から*
ZZZZ010242	1390	=IF{WC.QUESTION_SW=0}
ZZZZ010242	1400	=   IF{WC.CHK_KEY='NC',='NT',='NO',='CT'}JUMP{ERROR};
ZZZZ010242	1410	=JUMP{NAME_CHK_NEXT};
ZZZZ010242	1420	=NAME_CHK_DOT_FIN:
ZZZZ010242	1430	=IF{WC.BRACKETS_SW=0}JUMP{NAME_CHK_BRACKETS_FIRST};
ZZZZ010242	1440	=IF{WN[W0;1]=';',='-',=' '}JUMP{NAME_CHK_NEXT};
ZZZZ010242	1450	=IF{WN[W0;1]<>']'}JUMP{NAME_CHK_BRACKETS_FIN};
ZZZZ010242	1460	=SET{WC.BRACKETS_SW=0};JUMP{NAME_CHK_NEXT};
ZZZZ010242	1470	=NAME_CHK_BRACKETS_FIRST:
ZZZZ010242	1480	=IF{WN[W0;1]<>'['}JUMP{NAME_CHK_BRACKETS_FIN};  [ 確認*
ZZZZ010242	1490	=IF{WC.QUESTION_SW=0}
ZZZZ010242	1500	=   IF_NOT{WC.IN_OUT='IN'}JUMP{ERROR};
ZZZZ010242	1510	=SET{WC.BRACKETS_SW=1};JUMP{NAME_CHK_NEXT};
ZZZZ010242	1520	=NAME_CHK_BRACKETS_FIN:
ZZZZ010242	1530	=IF{W0=2}IF{WN/'_(',/'_)'}JUMP{NAME_CHK_NEXT};
ZZZZ010242	1540	=IF{W0=3}IF{WN/'_C(',/'_C)',/'?_Q?_(',/'?_Q?_)'}
ZZZZ010242	1550	=   JUMP{NAME_CHK_NEXT};
ZZZZ010242	1560	=IF{W0=4}IF{WN/'?_Q?_C(',/'?_Q?_C)'}JUMP{NAME_CHK_NEXT};
ZZZZ010242	1570	=IF{WN[W0;1]='='}JUMP{NAME_CHK_FIN};   =有りOK-VER231.*
ZZZZ010242	1580	=IF{WN[W0;1]<>'@'}JUMP{ERROR};   @...確認*
ZZZZ010242	1590	=SET{WC.ETC5_CHK_DAT=WN[W0]};
ZZZZ010242	1600	=SET{_FIND_CHAR=WN[W0]+'-?_Q?[] ;'};
ZZZZ010242	1610	=IF{_FIND_CHAR>0}SET{WC.ETC5_CHK_DAT=WN[W0;_FIND_CHAR-1]};
ZZZZ010242	1620	=SET{WC.ETC5_CHK_KEY='AT'};
ZZZZ010242	1630	NAME2=ETC5_CHK
ZZZZ010242	1640	****( ETC5_CHK(WC.ETC5_CHK_KEY,WC.ETC5_CHK_DAT) )***********
ZZZZ010242	1650	=SET{W0.ETC5=1};
ZZZZ010242	1660	=SET{_FIND_COUNT=WC.ETC5_CHK_DAT+'?_Q?'};
ZZZZ010242	1670	=IF{_FIND_COUNT=0}JUMP{ETC5_CHK_LOOP};
ZZZZ010242	1680	=COMPUTE_CUT{W0.EVEN=_FIND_COUNT*2,W0.EVEN/=2};
ZZZZ010242	1690	=IF{_FIND_COUNT=W0.EVEN}JUMP{ETC5_CHK_FIN};
ZZZZ010242	1700	=SET{WC.ERR='?_Q? NOT EVEN'};JUMP{ERR_ERR};
ZZZZ010242	1710	=ETC5_CHK_LOOP:
ZZZZ010242	1720	=IF_NAME_NOT{$W0.ETC5?WC.ETC5_CHK_KEY?}JUMP{ETC5_CHK_FIN};BG*
ZZZZ010242	1730	*%GRAMMAR_CHECK-COMMENT_BEGIN
ZZZZ010242	1740	=IF{W0.ETC5>$W0.ETC5?WC.ETC5_CHK_KEY?}JUMP{ETC5_CHK_END};
ZZZZ010242	1750	=IF_NOT{WC.ETC5_CHK_DAT=$WC.ETC5?WC.ETC5_CHK_KEY??W0.ETC5?}
ZZZZ010242	1760	=    COMPUTE{W0.ETC5+=1}BACK{ETC5_CHK_LOOP};
ZZZZ010242	1770	=SET{WC.XX=$WC.ETC5?WC.ETC5_CHK_KEY?X?W0.ETC5?};
ZZZZ010242	1780	*%GRAMMAR_CHECK-COMMENT_END
ZZZZ010242	1790	*%GRAMMAR_CHECK+COMMENT_BEGIN
ZZZZ010242	1800	*=JUMP{ETC_CHK_?WC.ETC5_CHK_KEY?};
ZZZZ010242	1810	*REPEAT0=$W0.ETC5ORG_MAX
ZZZZ010242	1820	*=ETC_CHK_?$WC.ETC5ORG$$?:
ZZZZ010242	1830	*REPEAT=$W0.ETC5$$
ZZZZ010242	1840	*=IF{WC.ETC5_CHK_DAT=$WC.ETC5$$_##}
ZZZZ010242	1850	*=   SET{WC.XX=$WC.ETC5$$X_##}JUMP{ETC5_CHK_OK};
ZZZZ010242	1860	*REPEAT= ($W0.ETC5$$)
ZZZZ010242	1870	*=JUMP{ETC5_CHK_END};
ZZZZ010242	1880	*REPEAT0= ($W0.ETC5ORG_MAX)
ZZZZ010242	1890	*=ETC5_CHK_OK:
ZZZZ010242	1900	*%GRAMMAR_CHECK+COMMENT_END
ZZZZ010242	1910	**( ETC5 追加判定 )**
ZZZZ010242	1920	*IF{$WC.ETC5?WC.ETC5_CHK_KEY?X?W0.ETC5?=}JUMP{ETC5_CHK_FIN};
ZZZZ010242	1930	=IF{WC.XX=}JUMP{ETC5_CHK_FIN};
ZZZZ010242	1940	*IF{$WC.ETC5?WC.ETC5_CHK_KEY?X?W0.ETC5?<>'A'}  (A判定)*
ZZZZ010242	1950	=IF{WC.XX<>'A'}  (A判定)*
ZZZZ010242	1960	=                                           JUMP{ETC5_CHK_Z};
ZZZZ010242	1970	=IF{SYSTEM_SECURITY='A',SYSTEM_PERMISSION='ZZZZ'}
ZZZZ010242	1980	=                                         JUMP{ETC5_CHK_FIN};
ZZZZ010242	1990	= SET{WC.ERR=
ZZZZ010242	2000	=  'CHECK "?WN?" SECURITY<>''A'' AND PERMISSION<>''ZZZZ'''}
ZZZZ010242	2010	=  JUMP{ERR_ERR};
ZZZZ010242	2020	=ETC5_CHK_Z:
ZZZZ010242	2030	*IF{$WC.ETC5?WC.ETC5_CHK_KEY?X?W0.ETC5?<>'Z'}   (Z判定)*
ZZZZ010242	2040	=IF{WC.XX<>'Z'}   (Z判定)*
ZZZZ010242	2050	=   JUMP{ETC5_CHK_ETC};
ZZZZ010242	2060	=IF{SYSTEM_SECURITY<>'X',.SYSTEM_PERMISSION='ZZZZ'}
ZZZZ010242	2070	=   JUMP{ETC5_CHK_FIN};
ZZZZ010242	2080	=SET{WC.ERR=
ZZZZ010242	2090	=   'CHECK "?WN?" SECURITY=''X'' OR PERMISSION<>''ZZZZ'''}
ZZZZ010242	2100	=   JUMP{ERR_ERR};
ZZZZ010242	2110	=ETC5_CHK_ETC:
ZZZZ010242	2120	*IF{WC.CHK_KEY='NW',='NE',='NX'}JUMP{ETC5_CHK_NW};
ZZZZ010242	2130	=IF{WC.IN_OUT='OUT'}JUMP{ETC5_CHK_OUT};
ZZZZ010242	2140	*IF{$WC.ETC5?WC.ETC5_CHK_KEY?X?W0.ETC5?='W'}     (W判定)*
ZZZZ010242	2150	=IF{WC.XX='W'}     (W判定)*
ZZZZ010242	2160	=   SET{WC.ERR='CHECK W(?WC.ETC5_CHK_DAT?)"?WN?"'}
ZZZZ010242	2170	=   JUMP{ERR_ERR};
ZZZZ010242	2180	=JUMP{ETC5_CHK_FIN};
ZZZZ010242	2190	=ETC5_CHK_OUT:
ZZZZ010242	2200	*IF{$WC.ETC5?WC.ETC5_CHK_KEY?X?W0.ETC5?='R'}     (R判定)*
ZZZZ010242	2210	=IF{WC.XX='R'}     (R判定)*
ZZZZ010242	2220	=   SET{WC.ERR='CHECK R(?WC.ETC5_CHK_DAT?)"?WN?"'}
ZZZZ010242	2230	=   JUMP{ERR_ERR};
ZZZZ010242	2240	=JUMP{ETC5_CHK_FIN};
ZZZZ010242	2250	=ETC5_CHK_END:
ZZZZ010242	2260	=IF{WC.ETC5_CHK_KEY<>'UN'}JUMP{ETC5_CHK_ERR};
ZZZZ010242	2270	=IF{WC.ETC5_CHK_DAT/'_A_'}IF{WC.ETC5_CHK_DAT@LENGTH=4}
ZZZZ010242	2280	=   IF{WC.ETC5_CHK_DAT[WC.ETC5_CHK_DAT@LENGTH]>='A'}
ZZZZ010242	2290	=   IF{WC.ETC5_CHK_DAT[WC.ETC5_CHK_DAT@LENGTH]<='Z'}
ZZZZ010242	2300	=   JUMP{ETC5_CHK_FIN};
ZZZZ010242	2310	=IF{WC.ETC5_CHK_DAT/'_EXE_PARAMETER'}
ZZZZ010242	2320	=   SET{W0.ETCN=15}JUMP{ETC5_CHK_NUM};
ZZZZ010242	2330	=IF{WC.ETC5_CHK_DAT/'_SQL_VALUE_'}
ZZZZ010242	2340	=   SET{W0.ETCN=12}JUMP{ETC5_CHK_NUM};
ZZZZ010242	2350	=IF{WC.ETC5_CHK_DAT/'_UNION_ALL'}
ZZZZ010242	2360	=   SET{W0.ETCN=11}JUMP{ETC5_CHK_NUM};
ZZZZ010242	2370	=IF{WC.ETC5_CHK_DAT/'_SELECT'}
ZZZZ010242	2380	=   SET{W0.ETCN=8}JUMP{ETC5_CHK_NUM};
ZZZZ010242	2390	=IF{WC.ETC5_CHK_DAT/'_GROUP',/'_ORDER',/'_UNION',/'_WHERE'}
ZZZZ010242	2400	=   SET{W0.ETCN=7}JUMP{ETC5_CHK_NUM};
ZZZZ010242	2410	=IF{WC.ETC5_CHK_DAT/'_FROM',/'_LEFT',/'_TEXT',/'_NAME'}
ZZZZ010242	2420	=   SET{W0.ETCN=6}JUMP{ETC5_CHK_NUM};
ZZZZ010242	2430	=IF{WC.ETC5_CHK_DAT/'_A'}
ZZZZ010242	2440	=   SET{W0.ETCN=3}JUMP{ETC5_CHK_NUM};
ZZZZ010242	2450	=IF{WC.ETC5_CHK_DAT/'_MP_',/'_WP_',/'_MX_',/'_WX_',/'_MA_'}
ZZZZ010242	2460	=   JUMP{ETC5_CHK_FIN};
ZZZZ010242	2470	=IF{WC.ETC5_CHK_DAT/'_'}
ZZZZ010242	2480	=   SET{W0.ETCN=2}JUMP{ETC5_CHK_NUM};
ZZZZ010242	2490	=JUMP{ETC5_CHK_ERR};
ZZZZ010242	2500	=ETC5_CHK_NUM:
ZZZZ010242	2510	=SET{WC.S1='#'+'#',WC.S2='#'+'+',WC.S3='#'+'-'};
ZZZZ010242	2520	=SET{WC.D1='$'+'$',WC.D2='$'+'+',WC.D3='$'+'-'};
ZZZZ010242	2530	=IF{WC.ETC5_CHK_DAT[W0.ETCN]=WC.S1,=WC.S2,=WC.S3
ZZZZ010242	2540	=   ,=WC.D1,=WC.D2,=WC.D3}JUMP{ETC5_CHK_FIN};
ZZZZ010242	2550	=IF_ERROR_SET{W0.DUMMY=WC.ETC5_CHK_DAT[W0.ETCN]}
ZZZZ010242	2560	=   JUMP{ETC5_CHK_ERR};
ZZZZ010242	2570	=JUMP{ETC5_CHK_FIN};
ZZZZ010242	2580	=ETC5_CHK_ERR:
ZZZZ010242	2590	=IF{WC.ETC5_CHK_KEY='UN'}IF{WC.ETC5_CHK_DAT/'_L('} VER20.1*
ZZZZ010242	2600	=   JUMP{ETC5_CHK_FIN};
ZZZZ010242	2610	=SET{WC.ERR='CHECK(?WC.ETC5_CHK_KEY?) "?WC.ETC5_CHK_DAT?"'};
ZZZZ010242	2620	=JUMP{ERR_ERR};
ZZZZ010242	2630	=ETC5_CHK_FIN:
ZZZZ010242	2640	NAME2= (ETC5_CHK)
ZZZZ010242	2650	*************************************************************
ZZZZ010242	2660	*COMPUTE{W0=WN@LENGTH+1};
ZZZZ010242	2670	=JUMP{NAME_CHK_NEXT};
ZZZZ010242	2680	***( &...& (AN判定 )*****************************************
ZZZZ010242	2690	=NAME_CHK_AND:
ZZZZ010242	2700	=SET{WC.ETC5_CHK_KEY='AN'};
ZZZZ010242	2710	=COMPUTE{W0.AND_LENGTH=W0-W0.AND,W0.AND_LENGTH+=1};
ZZZZ010242	2720	=SET{WC.ETC5_CHK_DAT=WN[W0.AND;W0.AND_LENGTH]};
ZZZZ010242	2730	COPY=ETC5_CHK
ZZZZ010242	2740	=SET{W0.AND=0};
ZZZZ010242	2750	=JUMP{NAME_CHK_NEXT};
ZZZZ010242	2760	*****( _... (UN判定 )****************************************
ZZZZ010242	2770	=NAME_CHK_UNDER_BAR:
ZZZZ010242	2780	=IF{W0.UNDER_BAR<1}JUMP{NAME_CHK_UNDER_BAR_FIN};
ZZZZ010242	2790	=SET{WC.ETC5_CHK_KEY='UN'};
ZZZZ010242	2800	*COMPUTE{W0.LENGTH=W0-W0.UNDER_BAR,W0.LENGTH+=1};
ZZZZ010242	2810	=COMPUTE{W0.LENGTH=W0-W0.UNDER_BAR};
ZZZZ010242	2820	=SET{WC.ETC5_CHK_DAT=WN[W0.UNDER_BAR;W0.LENGTH]};
ZZZZ010242	2830	=IF{WC.ETC5_CHK_DAT@TRIM='_DATA@WHERE',='_DATA@COLOR'
ZZZZ010242	2840	=   }JUMP{NAME_CHK_UNDER_BAR_FIN};
ZZZZ010242	2850	=SPLIT_CHAR{WC.UN_}{WC.ETC5_CHK_DAT}{'@['};
ZZZZ010242	2860	=SET{WC.ETC5_CHK_DAT=WC.UN_1@TRIM};
ZZZZ010242	2870	COPY=ETC5_CHK
ZZZZ010242	2880	=NAME_CHK_UNDER_BAR_FIN:
ZZZZ010242	2890	=SET{W0.UNDER_BAR=0};
ZZZZ010242	2900	=IF{WC.NAME_CHK_END_SW=1}JUMP{NAME_CHK_END};
ZZZZ010242	2910	***( NAME_CHK_NEXT )*****************************************
ZZZZ010242	2920	=NAME_CHK_NEXT:COMPUTE{W0+=1};BACK{NAME_CHK_LOOP};
ZZZZ010242	2930	***( NAME_CHK_END )******************************************
ZZZZ010242	2940	=NAME_CHK_FIN:
ZZZZ010242	2950	=IF{WC.QUESTION_SW=1}
ZZZZ010242	2960	=   SET{WC.ERR='?_Q? NOT EVEN "?WN?"'}JUMP{ERR_ERR};
ZZZZ010242	2970	=IF{WC.BRACKETS_SW=1}
ZZZZ010242	2980	=   SET{WC.ERR='"]" NOT FOUND "?WN?"'}JUMP{ERR_ERR};
ZZZZ010242	2990	=SET{WC.NAME_CHK_END_SW=1};
ZZZZ010242	3000	=BACK{NAME_CHK_UNDER_BAR};
ZZZZ010242	3010	=NAME_CHK_END:
ZZZZ010242	3020	NAME= (NAME_CHECK)
ZZZZ010242	3030	************************************************************
ZZZZ010242	3040	***( コマンドのチェック 開始 )******************************
ZZZZ010242	3050	************************************************************
ZZZZ010242	3060	=SKIP:
ZZZZ010242	3070	=SET{WC.OP=,WC.OP2=,WN=,W0=0};
ZZZZ010242	3080	=SET{WC.ETC_SW=1};SET{WC.ETC_DAT=SYSTEM_PROGRAM};
ZZZZ010242	3090	=SET{W0.CMD_STA=1};SET{WC.PARAMETER_COMMA_SW=0};
ZZZZ010242	3091	=SET{W0.PARAMETER_COMMA_CNT=0};
ZZZZ010242	3100	=SET{WC.LOGIC_END_SW=0};
ZZZZ010242	3110	*ETC でどの種類のプログラムか解析。(W0.ETC_NO,W0.ETC_CNT)
ZZZZ010242	3120	COPY=ETC
ZZZZ010242	3130	=SET{WC.COMMAND=_TRIM};
ZZZZ010242	3140	=IF_NOT{W0.ETC_NO=1,W0.ETC_CNT>0}
ZZZZ010242	3150	=   SET{WC.ERR='COMMAND (?WC.COMMAND?)'}JUMP{ERR_ERR};
ZZZZ010242	3160	=IF{W0.ETC_NO=3}JUMP{LOGIC_FIN}; BEGIN等*
ZZZZ010242	3170	=IF{W0.ETC_NO!=2}JUMP{NOT_DEFINE}; SET=等以外*
ZZZZ010242	3180	* SET=等* (定義命令）------------------
ZZZZ010242	3190	=SET{WC.PROGRAM_FIND_CHK=$WC.ETC20X?W0.ETC_CNT?};
ZZZZ010242	3200	=IF{WC.PROGRAM_FIND_CHK='='} =以降に空白は解析終了。*
ZZZZ010242	3210	=   SET{_FIND_CHAR=SYSTEM_PROGRAM+'='}
ZZZZ010242	3220	=   IF{_FIND_CHAR>0}COMPUTE{W0.FIN_CNT=_FIND_CHAR+1}
ZZZZ010242	3230	=   IF{SYSTEM_PROGRAM[W0.FIN_CNT;1]=' '}JUMP{CONTENTS_FIN};
ZZZZ010242	3240	=IF_NOT{WC.PROGRAM_FIND_CHK='D',='S'}JUMP{NOT_DEFINE};
ZZZZ010242	3250	********( PROGRAM FIND )**********************************
ZZZZ010242	3260	NAME=PROGRAM_FIND_LOWER_SEQ
ZZZZ010242	3270	=SET{WC.PROGRAM_FIND_WHERE1='AND '+_VRLE&SYSTEM_SEQ};
ZZZZ010242	3280	=SET{WC.PROGRAM_FIND_WHERE2=};
ZZZZ010242	3290	=SET{WC.PROGRAM_FIND_DESC='DESC'};
ZZZZ010242	3300	NAME=PROGRAM_FIND_SECTION
ZZZZ010242	3310	NAME2=PROGRAM_FIND_A
ZZZZ010242	3320	=SQL_SET{WN.PROG,W0_PROG.SYSTEM_SEQ}{
ZZZZ010242	3330	=   SELECT ?WC.PLUS_PROGRAM_SPACE_CUT?,SYSTEM_SEQ
ZZZZ010242	3340	=   FROM ?_TABLE? WHERE ?_VRE&.SYSTEM_JOB?
ZZZZ010242	3350	=   ?WC.PROGRAM_FIND_WHERE1?
ZZZZ010242	3360	=   ?WC.PROGRAM_FIND_WHERE2? AND (
ZZZZ010242	3370	NAME2= (PROGRAM_FIND_A)
ZZZZ010242	3380	REPEAT=12
ZZZZ010242	3390	=   ?_FIND((WC.PLUS_PROGRAM_SPACE);"WC.PROGRAM_FIND##")?>0
ZZZZ010242	3400	12-=   OR
ZZZZ010242	3410	REPEAT=
ZZZZ010242	3420	NAME2=PROGRAM_FIND_B
ZZZZ010242	3430	=   ) AND SYSTEM_PROGRAM NOT LIKE '*%' AND Z_CANCEL=' '
ZZZZ010242	3440	=   ORDER BY SYSTEM_SEQ ?WC.PROGRAM_FIND_DESC?};
ZZZZ010242	3450	NAME=PROGRAM_FIND_IF
ZZZZ010242	3460	=SET{_FIND_STRING=WN.PROG+WC.PROGRAM_FIND2}; DATA=*
ZZZZ010242	3470	=IF{_FIND_STRING!=0}SET{WC.PROGRAM_FIND_DATA_SET='DATA'}
ZZZZ010242	3480	=   JUMP{PROGRAM_FIND_OK};
ZZZZ010242	3490	=SET{_FIND_STRING=WN.PROG+WC.PROGRAM_FIND3}; SET=*
ZZZZ010242	3500	=IF{_FIND_STRING!=0}SET{WC.PROGRAM_FIND_DATA_SET='SET'}
ZZZZ010242	3510	=   JUMP{PROGRAM_FIND_OK};
ZZZZ010242	3520	=IF{WC.PROGRAM_FIND_CHK='S'}
ZZZZ010242	3530	=   SET{_FIND_STRING=WN.PROG+'+START'} START*
ZZZZ010242	3540	=   IF{_FIND_STRING!=0}SET{WC.PROGRAM_FIND_DATA_SET='DATA'}
ZZZZ010242	3550	=   JUMP{PROGRAM_FIND_OK};
ZZZZ010242	3560	=SET{WC.ERR='BAD {?WN?} AT(?WN.PROG[2]?)'}JUMP{ERR_ERR};
ZZZZ010242	3570	=PROGRAM_FIND_OK:
ZZZZ010242	3580	NAME= (PROGRAM_FIND_IF)
ZZZZ010242	3590	***( 命令解析 )*******************************************
ZZZZ010242	3600	=NOT_DEFINE:IF_NOT{W0.ETC_NO=1,$WC.ETC21X?W0.ETC_CNT?='!LG'}
ZZZZ010242	3610	=   JUMP{CONTENTS_DATA};
ZZZZ010242	3620	****( "?"と"'"が偶数個である事のチェック )******************
ZZZZ010242	3630	=SET{WC.EVEN1='?_Q?',WC.EVEN2=''''};
ZZZZ010242	3640	REPEAT=2
ZZZZ010242	3650	=SET{_FIND_COUNT=SYSTEM_PROGRAM+'?WC.EVEN##?'};
ZZZZ010242	3660	=COMPUTE_CUT{W0.EVEN=_FIND_COUNT/2,W0.EVEN*=2};
ZZZZ010242	3670	=IF{_FIND_COUNT<>W0.EVEN}
ZZZZ010242	3680	=   SET{WC.ERR='(?WC.EVEN##?) NOT EVEN'}JUMP{ERR_ERR};
ZZZZ010242	3690	REPEAT= (2)
ZZZZ010242	3700	****( "?名前?"が空かのチェック )******************
ZZZZ010242	3710	=SET{W0=1,WC.QUESTION_SW=0};
ZZZZ010242	3720	=LOOP:SET{_FIND_CHAR=SYSTEM_PROGRAM[W0]+'?_Q?'};
ZZZZ010242	3730	=IF{_FIND_CHAR=0}JUMP{FIN};
ZZZZ010242	3740	=COMPUTE{W0+=_FIND_CHAR};
ZZZZ010242	3750	=IF{WC.QUESTION_SW=1}SET{WC.QUESTION_SW=0}BACK{LOOP};
ZZZZ010242	3760	=IF{SYSTEM_PROGRAM[W0]/'?_Q?'}
ZZZZ010242	3770	=    SET{WC.ERR='(?_Q??_Q?)NAME SPACE'}JUMP{ERR_ERR};
ZZZZ010242	3780	=SET{WC.QUESTION_SW=1};BACK{LOOP};
ZZZZ010242	3790	=FIN:
ZZZZ010242	3800	=SET{W0.ETC_NO=1};  ロジック解析*
ZZZZ010242	3810	**********************************************************
ZZZZ010242	3820	*****( PROGRAM ロジックのチェック )***********************
ZZZZ010242	3830	**********************************************************
ZZZZ010242	3840	=LOGIC_START:SET{WC.OPERAND_SW=0,WC.CMD=,WC.LOGIC_END_SW=0};
ZZZZ010242	3850	=SET{WC.CMD_NOT_SPACE_SW=0,WC.BRACE_SW=0};
ZZZZ010242	3860	=SET{W0.ETC=W0.ETC_STA};
ZZZZ010242	3870	=SET{WC.PARAMETER_COMMA_SW=0,WC.CHK_COMMA=};
ZZZZ010242	3880	=SET{WC.COMMA_CNT_SW=0,W0.PARAMETER_COMMA_CNT=0};
ZZZZ010242	3890	=SET{WC.SEMICOLON_SW=0};
ZZZZ010242	3900	=LOGIC:
ZZZZ010242	3910	*( WC.PARAMETER_COMMA_SW=1は{は探さないで次を処理 )*
ZZZZ010242	3920	=IF{WC.PARAMETER_COMMA_SW=1}SET{WC.PARAMETER_COMMA_SW=0
ZZZZ010242	3930	= ,WC.OPERAND_SW=1,W0.CMD_STA=W0.ETC}COMPUTE{W0.ARGUMENT+=1};
ZZZZ010242	3940	*SET{WN.ZZZ=WC.CHK_COMMA+'/'+SYSTEM_PROGRAM[W0.ETC]};
ZZZZ010242	3950	=IF{WC.LOGIC_END_SW=1}JUMP{LOGIC_FIN};
ZZZZ010242	3960	=IF{WC.OPERAND_SW=0}
ZZZZ010242	3970	=   SET{_FIND_CHAR=SYSTEM_PROGRAM[W0.ETC]+'{}'':*;'}
ZZZZ010242	3980	=   JUMP{SKIP};
ZZZZ010242	3990	=SET{WC.FIND_CHAR='{}'''};
ZZZZ010242	3999	=IF{W0.OPERAND_CNT=0}
ZZZZ010242	4000	= IF{WC.CHK_COMMA=','}SET{WC.FIND_CHAR+=','}; コンマ区切追加*
ZZZZ010242	4010	=SET{_FIND_CHAR=SYSTEM_PROGRAM[W0.ETC]+WC.FIND_CHAR};
ZZZZ010242	4020	=SKIP:SET{W0.FIND_CHAR=_FIND_CHAR};
ZZZZ010242	4030	=IF{W0.FIND_CHAR=0}JUMP{LOGIC_END}; 何も見つからず*
ZZZZ010242	4040	=COMPUTE{W0.CNT=W0.ETC+W0.FIND_CHAR,W0.CNT-=1};位置計算*
ZZZZ010242	4050	=IF{SYSTEM_PROGRAM[W0.CNT]/'{'}JUMP{OPERAND_STA};
ZZZZ010242	4060	=IF{SYSTEM_PROGRAM[W0.CNT]/'}'}JUMP{OPERAND_END};
ZZZZ010242	4070	=IF{SYSTEM_PROGRAM[W0.CNT]/','}JUMP{CMD_COMMA_END};
ZZZZ010242	4080	=IF{SYSTEM_PROGRAM[W0.CNT]/''''}JUMP{LIT};
ZZZZ010242	4090	=IF{SYSTEM_PROGRAM[W0.CNT]/':'}JUMP{COLON};
ZZZZ010242	4100	=IF{SYSTEM_PROGRAM[W0.CNT]/'*'}JUMP{COMMENT};
ZZZZ010242	4110	=IF{SYSTEM_PROGRAM[W0.CNT]/';'}
ZZZZ010242	4120	=  SET{WC.SEMICOLON_SW=1}JUMP{SEMICOLON};
ZZZZ010242	4130	=CMD_COMMA_END:
ZZZZ010242	4140	***( カンマ区切り設定 )***
ZZZZ010242	4150	=SET{WC.PARAMETER_COMMA_SW=1,WC.COMMA_CNT_SW=1}
ZZZZ010242	4160	=COMPUTE{W0.PARAMETER_COMMA_CNT+=1};
ZZZZ010242	4170	=IF{WC.PARAMETER_COMMA_MAX=}JUMP{CMD_END};
ZZZZ010242	4180	=IF_ERROR_SET{W00=WC.PARAMETER_COMMA_MAX}JUMP{CMD_END};
ZZZZ010242	4190	=IF{W0.PARAMETER_COMMA_CNT>W00}SET{WC.ERR=
ZZZZ010242	4200	=   'OVER COMMA COUNT(?W0.PARAMETER_COMMA_CNT?)>?W00?)'}
ZZZZ010242	4210	=   JUMP{ERR_ERR};
ZZZZ010242	4220	=JUMP{CMD_END};
ZZZZ010242	4230	*JUMP{LOGIC_END};
ZZZZ010242	4240	=OPERAND_STA:COMPUTE{W0.CMD_STA=W0.CNT+1};
ZZZZ010242	4250	=IF{WC.OPERAND_SW=1}
ZZZZ010242	4260	=   SET{WC.ERR='OPERAND (?_L?)'}JUMP{ERR_ERR};
ZZZZ010242	4270	=SET{WC.OPERAND_SW=1};  '{'を発見*
ZZZZ010242	4280	***( _TRIMに命令をセット )***
ZZZZ010242	4290	=SET{_TRIM=SYSTEM_PROGRAM[W0.ETC_STA;W0.FIND_CHAR-1]};
ZZZZ010242	4300	=SEM: 先頭に';'有りは全て無視。*
ZZZZ010242	4310	=IF{_TRIM[1;1]=';'}SET{_TRIM=_TRIM[2]}BACK{SEM};
ZZZZ010242	4320	=IF_NOT{_TRIM=}JUMP{CMD_NOT_SPACE}; コマンド空白で無い*
ZZZZ010242	4330	=IF{WC.CMD_NOT_SPACE_SW=1}
ZZZZ010242	4340	=   IF{WC.BRACE_SW=1}
ZZZZ010242	4350	=   SET{WC.ERR='COMMAND SPACE'}JUMP{ERR_ERR};
ZZZZ010242	4360	=SET{WC.BRACE_SW=1};
ZZZZ010242	4370	=IF{WC.CMD!=}IF{W0.OPERAND_CNT>W0.OPERAND_MAX}
ZZZZ010242	4380	=   SET{WC.ERR=
ZZZZ010242	4390	=   'OVER OPERAND COUNT(?W0.OPERAND_CNT?)>?W0.OPERAND_MAX?'}
ZZZZ010242	4400	=   JUMP{ERR_ERR};
ZZZZ010242	4410	=COMPUTE{W0.ARGUMENT+=1};
ZZZZ010242	4420	*SET{WC.REPEAT_SW=0};
ZZZZ010242	4430	=JUMP{LOGIC_NEXT};
ZZZZ010242	4440	=CMD_NOT_SPACE: 次のコマンド発見*
ZZZZ010242	4450	*SET{_TRACE=1};
ZZZZ010242	4460	=SET{WC.BRACE_SW=1};
ZZZZ010242	4470	=SEMICOLON:
ZZZZ010242	4480	=IF{WC.SEMICOLON_SW=2}SET{WC.SEMICOLON_SW=0}JUMP{OK};
ZZZZ010242	4490	=IF{WC.CMD=}JUMP{OK};
ZZZZ010242	4500	=IF{W0.PARAMETER_COMMA_CNT=0} カンマ区切り無しは旧*
ZZZZ010242	4510	=   IF{W0.OPERAND_MAX!=W0.OPERAND_MAX2}
ZZZZ010242	4520	=   IF{W0.OPERAND_CNT=W0.OPERAND_MAX}JUMP{OK};
ZZZZ010242	4530	=IF{W0.OPERAND_CNT!=W0.OPERAND_MAX2}
ZZZZ010242	4540	=  SET{WC.ERR='NOT EQUAL '
ZZZZ010242	4550	=  +'OPERAND COUNT(?W0.OPERAND_CNT?)!=?W0.OPERAND_MAX2?'}
ZZZZ010242	4560	=  JUMP{ERR_ERR};
ZZZZ010242	4570	=IF{WC.PARAMETER_COMMA_MIN=}JUMP{OK};
ZZZZ010242	4580	=IF_ERROR_SET{W00=WC.PARAMETER_COMMA_MIN}JUMP{OK};
ZZZZ010242	4590	=IF{W00>W0.PARAMETER_COMMA_CNT}
ZZZZ010242	4600	=  SET{WC.ERR=
ZZZZ010242	4610	=  'UNDER COMMA COUNT(?W0.PARAMETER_COMMA_CNT?)<?W00?'}
ZZZZ010242	4620	=  JUMP{ERR_ERR};
ZZZZ010242	4630	=OK:IF{WC.SEMICOLON_SW=1}
ZZZZ010242	4640	=   SET{WC.SEMICOLON_SW=2}JUMP{LOGIC_NEXT};
ZZZZ010242	4650	=SET{W0.ARGUMENT=1};
ZZZZ010242	4660	=SET{W0.PARAMETER_COMMA_CNT=0,WC.COMMA_CNT_SW=0};
ZZZZ010242	4670	=SET{W0.OPERAND_CNT=0};
ZZZZ010242	4680	=SET{W0.OFFSET=0};
ZZZZ010242	4690	=***( 接頭命令語削除 )***
ZZZZ010242	4700	=IF{_TRIM/'RESTORE_DB_'}SET{_TRIM=_TRIM[12]};
ZZZZ010242	4710	=IF{_TRIM/'CONTINUE_',/'IF_ERROR_'}SET{_TRIM=_TRIM[10]};
ZZZZ010242	4720	=IF_NOT{SYSTEM_SECURITY='A',SYSTEM_PERMISSION='ZZZZ'}
ZZZZ010242	4730	=   JUMP{SKP};
ZZZZ010242	4740	=IF{_TRIM/'DBO_',/'OUT_'}SET{W0.OFFSET=5};
ZZZZ010242	4750	=IF{_TRIM/'LOGIN_'}      SET{W0.OFFSET=7};
ZZZZ010242	4760	=SKP:IF{W0.OFFSET>0}SET{_TRIM=_TRIM[W0.OFFSET]};
ZZZZ010242	4770	=SET{W0.ETC_CNT=0};
ZZZZ010242	4780	COMMENT_BEGIN VER20.1
ZZZZ010242	4790	REPEAT=$W0.ETC1
ZZZZ010242	4800	=IF{$WC.ETC1PR##<>_TRIM}JUMP{ETC1_NEXT};
ZZZZ010242	4810	=IF{$WC.ETC1MT##='/',=WC.MENU_TIME}
ZZZZ010242	4820	=   SET{W0.ETC_CNT=##}JUMP{ETC1_OK};
ZZZZ010242	4830	=SET{WC.ERR='TIME,MENU(?WC.MENU_TIME?) BAD CMD(?_TRIM?{'};
ZZZZ010242	4840	=JUMP{ERR_ERR};
ZZZZ010242	4850	=ETC1_NEXT:
ZZZZ010242	4860	REPEAT= ($W0.ETC1)
ZZZZ010242	4870	COMMENT_END VER20.1
ZZZZ010242	4880	***( 該当命令ETC情報検索 )***
ZZZZ010242	4890	=FIND_REPEAT{$WC.ETC1PR,_TRIM}; VER20.1*
ZZZZ010242	4900	=IF{_FIND_REPEAT=0}JUMP{ETC1_ERR}; VER20.1*
ZZZZ010242	4910	=IF{$WC.ETC1MT?_FIND_REPEAT?='/',=WC.MENU_TIME} VER20.1*
ZZZZ010242	4920	=   SET{W0.ETC_CNT=_FIND_REPEAT}JUMP{ETC1_OK}; VER20.1*
ZZZZ010242	4930	=SET{WC.ERR='TIME,MENU(?WC.MENU_TIME?) BAD CMD(?_TRIM?{'};
ZZZZ010242	4940	=JUMP{ERR_ERR};
ZZZZ010242	4950	=ETC1_ERR:
ZZZZ010242	4960	=IF{$SYSTEM_MENU1='80'}
ZZZZ010242	4970	=   IF{_TRIM='BODY',='HEAD',='BODY_FORM'}JUMP{LOGIC_NEXT};
ZZZZ010242	4980	=SET{WC.ERR='COMMAND (?_TRIM?)'};JUMP{ERR_ERR};
ZZZZ010242	4990	=ETC1_OK:
ZZZZ010242	5000	=SET{WC.CHK_COMMA=$WC.ETC11X?W0.ETC_CNT?[4;1]};
ZZZZ010242	5010	=IF_ERROR_SET{WC.CMD=_TRIM
ZZZZ010242	5020	=   ,W0.OPERAND_MAX=$WC.ETC1CC?W0.ETC_CNT?}
ZZZZ010242	5030	=   NOP{};
ZZZZ010242	5040	=IF_ERROR_SET{W0.OPERAND_MAX2=$WC.ETC10X?W0.ETC_CNT?[1;1]}
ZZZZ010242	5050	=   SET{W0.OPERAND_MAX2=W0.OPERAND_MAX}; 新命令数設定*
ZZZZ010242	5060	=SET{WC.PARAMETER_COMMA_MIN= $WC.ETC10X?W0.ETC_CNT?[2;1]}
ZZZZ010242	5070	=SET{WC.PARAMETER_COMMA_MAX= $WC.ETC10X?W0.ETC_CNT?[3;1]}
ZZZZ010242	5080	=SET{WC.PARAMETER_COMMA_NEXT=$WC.ETC10X?W0.ETC_CNT?[4;1]}
ZZZZ010242	5090	=SET{WC.CMD_NOT_SPACE_SW=0};
ZZZZ010242	5100	=JUMP{LOGIC_NEXT};
ZZZZ010242	5110	=LOGIC_END:
ZZZZ010242	5120	=SET{WC.LOGIC_END_SW=1};
ZZZZ010242	5130	=IF{WC.CMD=,WC.OPERAND_SW=0}JUMP{LOGIC_FIN};
ZZZZ010242	5140	=SET{WN.CONTENTS=SYSTEM_PROGRAM[W0.CMD_STA]};
ZZZZ010242	5150	=JUMP{CMD_END2};
ZZZZ010242	5160	=OPERAND_END:
ZZZZ010242	5170	=COMPUTE{W0.OPERAND_CNT+=1};
ZZZZ010242	5180	**( コンマの最小値 )
ZZZZ010242	5190	=IF{WC.COMMA_CNT_SW=0}JUMP{CMD_END};
ZZZZ010242	5200	=SET{WC.COMMA_CNT_SW=0};コンマカウントを実施した時のみ。*
ZZZZ010242	5210	=IF{WC.PARAMETER_COMMA_MIN=}JUMP{CMD_END};
ZZZZ010242	5220	=IF_ERROR_SET{W00=WC.PARAMETER_COMMA_MIN}JUMP{CMD_END};
ZZZZ010242	5230	=IF{W0.PARAMETER_COMMA_CNT<W00}SET{WC.ERR=
ZZZZ010242	5240	=  'UNDER COMMA COUNT(?W0.PARAMETER_COMMA_CNT?)<?W00?)'}
ZZZZ010242	5250	=   JUMP{ERR_ERR};
ZZZZ010242	5260	=CMD_END:
ZZZZ010242	5270	=IF{WC.OPERAND_SW=0}IF{WC.BRACE_SW=1}
ZZZZ010242	5280	=   SET{WC.ERR='OPERAND ?WC.CMD?(?_R?)'}
ZZZZ010242	5290	=   JUMP{ERR_ERR};
ZZZZ010242	5300	=SET{WC.OPERAND_SW=0};
ZZZZ010242	5310	=SET{
ZZZZ010242	5320	= WN.CONTENTS=SYSTEM_PROGRAM[W0.CMD_STA;W0.CNT-W0.CMD_STA]};
ZZZZ010242	5330	=CMD_END2:
ZZZZ010242	5340	=SET{WN.CONTENTS=WN.CONTENTS@TRIM};
ZZZZ010242	5350	=IF{WC.CMD=}SET{WC.OP=,WN=WN.CONTENTS@TRIM,W0=1
ZZZZ010242	5360	=   ,WC.CHK_KEY='SQ'}JUMP{SQL};コマンド無はSQと同じ*
ZZZZ010242	5370	=SET{WC.OP=WC.CMD+'{ '};
ZZZZ010242	5380	*SET{WC.REPEAT_SW=0};
ZZZZ010242	5390	=JUMP{CONTENTS};
ZZZZ010242	5400	**********************************************************
ZZZZ010242	5410	=COLON:SET{_TRIM=SYSTEM_PROGRAM[W0.ETC_STA;W0.FIND_CHAR-1]};
ZZZZ010242	5420	=IF{_TRIM=}SET{WC.ERR='TAG SPACE (:)'}JUMP{ERR_ERR};
ZZZZ010242	5430	=JUMP{COMMENT};
ZZZZ010242	5440	=SET{_TRIM=SYSTEM_PROGRAM[W0.ETC_STA;W0.FIND_CHAR-1]};
ZZZZ010242	5450	=IF{_TRIM<>}SET{WC.ERR='NOT SPACE (?_TRIM?;)'}
ZZZZ010242	5460	=   JUMP{ERR_ERR};
ZZZZ010242	5470	*IF_NOT{WC.CMD=,W0.OPERAND>=W0.OPERAND_MAX}
ZZZZ010242	5480	*   SET{WC.ERR=
ZZZZ010242	5490	*   'OPERAND COUNT UNDER (?WC.CMD?(?W0.OPERAND_MAX?))'}
ZZZZ010242	5500	*   JUMP{ERR_ERR};
ZZZZ010242	5510	*JUMP{LOGIC_NEXT};
ZZZZ010242	5520	=COMMENT:SET{WC.CMD_NOT_SPACE_SW=1}; 次はコマンド要*
ZZZZ010242	5530	=JUMP{LOGIC_NEXT};
ZZZZ010242	5540	=LIT: 次の引用符まで移動。*
ZZZZ010242	5550	=COMPUTE{W0.CNT+=1};
ZZZZ010242	5560	=SET{_FIND_CHAR=SYSTEM_PROGRAM[W0.CNT]+''''};
ZZZZ010242	5570	=IF{_FIND_CHAR=0}SET{WC.ERR=
ZZZZ010242	5580	=   ''' NOT FOND(?SYSTEM_PROGRAM[W0.CNT-1]?)'}JUMP{ERR_ERR};
ZZZZ010242	5590	=COMPUTE{W0.ETC=W0.CNT+_FIND_CHAR};
ZZZZ010242	5600	=BACK{LOGIC};
ZZZZ010242	5610	=BRAKETS:
ZZZZ010242	5620	=LOGIC_NEXT:COMPUTE{W0.ETC+=W0.FIND_CHAR};
ZZZZ010242	5630	=SET{W0.ETC_STA=W0.ETC};
ZZZZ010242	5640	=BACK{LOGIC};
ZZZZ010242	5650	=LOGIC_FIN:
ZZZZ010242	5660	=JUMP{PROGRAM_FIN};
ZZZZ010242	5670	*************************************************************
ZZZZ010242	5680	*******( 細部チェック WN.CONTENTS,W0COMMA )*************
ZZZZ010242	5690	*************************************************************
ZZZZ010242	5700	=CONTENTS_DATA:
ZZZZ010242	5710	=SET{WN.CONTENTS=SYSTEM_PROGRAM[W0.ETC_STA]};
ZZZZ010242	5720	=SET{W0.ARGUMENT=1,WC.OP=};
ZZZZ010242	5730	=CONTENTS:
ZZZZ010242	5740	=SET{WC.OP2=,WC.ERR=};
ZZZZ010242	5750	=IF{W0.ETC_NO=3,W0.ETC_CNT=0}JUMP{CONTENTS_FIN};
ZZZZ010242	5760	=SET{WC.REPEAT_SW=0,W0.COMMA_MAX=0,W0.COMMA_MIN=0};
ZZZZ010242	5770	=COMMA_LOOP:
ZZZZ010242	5780	=SET{W0=1,WC.QUESTION_SW=0};
ZZZZ010242	5790	*****( WC.CHK_... 設定 )**********************
ZZZZ010242	5800	=IF{WC.REPEAT_SW=1}JUMP{SKIP};
ZZZZ010242	5810	=SET{WC.CHK_OP=
ZZZZ010242	5820	=   $WC.ETC?W0.ETC_NO??W0.ARGUMENT?X?W0.ETC_CNT?[1;1]};
ZZZZ010242	5830	=SET{WC.CHK_KEY=
ZZZZ010242	5840	=   $WC.ETC?W0.ETC_NO??W0.ARGUMENT?X?W0.ETC_CNT?[2;2]};
ZZZZ010242	5850	=SET{WC.CHK_COMMA=
ZZZZ010242	5860	=   $WC.ETC?W0.ETC_NO??W0.ARGUMENT?X?W0.ETC_CNT?[4;1]};
ZZZZ010242	5870	=SET{WC.CHK_COMMA_NEXT=
ZZZZ010242	5880	=   $WC.ETC?W0.ETC_NO??W0.ARGUMENT?X?W0.ETC_CNT?[5;1]};
ZZZZ010242	5890	***( カンマ区切りは補正 )***
ZZZZ010242	5900	*IF{WC.PARAMETER_COMMA_SW=0,WC.CHK_COMMA=,=','}JUMP{SKIP};
ZZZZ010242	5910	*IF_ERROR_SET{W0.CHG=WC.CHK_COMMA}JUMP{SKIP};
ZZZZ010242	5911	=IF{W0.PARAMETER_COMMA_CNT=0,WC.CHK_COMMA_NEXT=}JUMP{SKIP};
ZZZZ010242	5912	=IF_ERROR_SET{W0.CHG=WC.CHK_COMMA_NEXT}JUMP{SKIP};
ZZZZ010242	5920	=SET{WC.CHK_OP=
ZZZZ010242	5930	=   $WC.ETC?W0.ETC_NO??W0.CHG?X?W0.ETC_CNT?[1;1]};
ZZZZ010242	5940	=SET{WC.CHK_KEY=
ZZZZ010242	5950	=   $WC.ETC?W0.ETC_NO??W0.CHG?X?W0.ETC_CNT?[2;2]};
ZZZZ010242	5960	=SKIP:
ZZZZ010242	5970	=IF{WC.CHK_KEY='CN'}SET{WC.REPEAT_SW=1}; CNは繰り返す。*
ZZZZ010242	5980	**???**=IF{W0.ETC_NO=1}SET{WC.REPEAT_SW=1}; LOGIC処理中*
ZZZZ010242	6000	=IF{WC.CHK_OP='-'}JUMP{SINGULAR_CHK};
ZZZZ010242	6002	=IF{WC.CHK_OP='+'}JUMP{SINGULAR_ETC5_CHK};
ZZZZ010242	6020	=IF{WC.CHK_OP='='}JUMP{PLURAL_CHK}; ETC5によらないで開始*
ZZZZ010242	6030	=IF{WC.CHK_OP='#'}JUMP{PLURAL_ETC5_CHK}; ETC5のCHECK*
ZZZZ010242	6070	=IF_ERROR_SET{W0.COMMA_MIN=WC.CHK_OP}
ZZZZ010242	6080	=   SET{W0.COMMA_MIN=0}; 最小項目数*
ZZZZ010242	6090	=IF{W0.COMMA_MIN>0}JUMP{PLURAL_CHK}; 最小項目数有り*
ZZZZ010242	6100	*IF{WC.CHK_OP='#'}SET{WC.REPEAT_SW=1}JUMP{ETC5_CHK};
ZZZZ010242	6110	*IF{WC.CHK_OP='='}SET{WC.REPEAT_SW=1}JUMP{PLURAL_CHK};
ZZZZ010242	6120	*IF{WC.CHK_OP='X',=' '}JUMP{CONTENTS_FIN};
ZZZZ010242	6130	=JUMP{CONTENTS_FIN};
ZZZZ010242	6140	**=====( 個別判定 )******************************************
ZZZZ010242	6150	=SINGULAR_CHK:
ZZZZ010242	6160	=SET{WN=WN.CONTENTS@TRIM};
ZZZZ010242	6170	***=IF{WC.COMMAND='SELECT',='INPUT'}JUMP{DATA_SET};
ZZZZ010242	6180	=IF{WC.CHK_KEY='CP'}JUMP{COPY};
ZZZZ010242	6190	=IF{WC.CHK_KEY='C1'}JUMP{CHECK1};
ZZZZ010242	6200	*IF{WC.CHK_KEY='C2'}JUMP{CHECK2};
ZZZZ010242	6210	=IF{WC.CHK_KEY='CO'}JUMP{COMMAND};
ZZZZ010242	6220	=IF{WC.CHK_KEY='DD'}JUMP{DEFINE_DATA};
ZZZZ010242	6230	***=IF{WC.CHK_KEY='DA'}JUMP{DATA_SET};
ZZZZ010242	6240	=IF{WC.CHK_KEY='DS'}JUMP{DEFINE_SET};
ZZZZ010242	6250	=IF{WC.CHK_KEY='DW'}JUMP{DEFINE_WORK};
ZZZZ010242	6260	=IF{WC.CHK_KEY='JB'}SET{W0.LENGTH=10}JUMP{PERMISSION_JOB};
ZZZZ010242	6270	=IF{WC.CHK_KEY='NM'}JUMP{NAME};
ZZZZ010242	6280	***=IF{WC.CHK_KEY='ME'}JUMP{MESSAGE};
ZZZZ010242	6290	=IF{WC.CHK_KEY='PM'}SET{W0.LENGTH=4}JUMP{PERMISSION_JOB};
ZZZZ010242	6300	=IF{WC.CHK_KEY='PG'}JUMP{PROGRAM};
ZZZZ010242	6310	*IF{WC.CHK_KEY='RP'}JUMP{DEFINE_REPEAT};
ZZZZ010242	6320	=IF{WC.CHK_KEY='RN',='WN'}JUMP{READ_WRITE_NAME};
ZZZZ010242	6330	=IF{WC.CHK_KEY='SQ'}JUMP{SQL};
ZZZZ010242	6340	*IF{WC.CHK_KEY='OB',='OJ',='OT'}JUMP{SINGULAR_ETC5_CHK};
ZZZZ010242	6350	**=IF{WC.CHK_KEY='TB'}JUMP{TABLE};
ZZZZ010242	6360	=IF{WC.CHK_KEY='TG'}JUMP{TAG};
ZZZZ010242	6370	=IF{WC.CHK_KEY='99'}JUMP{NUMERIC};
ZZZZ010242	6380	=IF{WC.CHK_KEY='9S'}JUMP{NUMERIC_S};
ZZZZ010242	6390	=IF{WC.CHK_KEY/'N'}JUMP{NORMAL_NAME};
ZZZZ010242	6400	=JUMP{CONTENTS_FIN};
ZZZZ010242	6410	=SINGULAR_ETC5_CHK:
ZZZZ010242	6420	=SET{WC.ETC5_CHK_KEY=WC.CHK_KEY,WC.ETC5_CHK_DAT=WN.CONTENTS};
ZZZZ010242	6430	COPY=ETC5_CHK
ZZZZ010242	6440	=JUMP{CONTENTS_FIN};
ZZZZ010242	6450	***( COPY= )*************************************************
ZZZZ010242	6460	=COPY:
ZZZZ010242	6470	=SPLIT_CHAR{WN}{WN}{' '};
ZZZZ010242	6480	=IF{WN1[1;1]='@'}JUMP{COPY_ETC};
ZZZZ010242	6490	COPY=PROGRAM_FIND_LOWER_SEQ
ZZZZ010242	6500	NAME=FIND_NAME
ZZZZ010242	6510	=SET{WC.FIND1='+'+'NAME=?WN1?'};
ZZZZ010242	6520	=SET{WC.FIND2='+'+'NAME2=?WN1?'};
ZZZZ010242	6530	COPY=PROGRAM_FIND_A
ZZZZ010242	6540	=?_FIND((WC.PLUS_PROGRAM_SPACE_CUT);"WC.FIND1")?>0 AND
ZZZZ010242	6550	=   ?WC.PLUS_PROGRAM_SPACE? LIKE '+%NAME%=?WN1? %' OR
ZZZZ010242	6560	=   ?_FIND((WC.PLUS_PROGRAM_SPACE_CUT);"WC.FIND2")?>0 AND
ZZZZ010242	6570	=   ?WC.PLUS_PROGRAM_SPACE? LIKE '+%NAME2%=?WN1? %'
ZZZZ010242	6580	COPY=PROGRAM_FIND_B
ZZZZ010242	6590	NAME= (FIND_NAME)
ZZZZ010242	6600	=IF{_SQL_SET_COUNT>0}JUMP{CONTENTS_FIN};
ZZZZ010242	6610	=IF{WN1[WN1@LENGTH;1]<'0',>'9'}JUMP{COPY_ERR}; 最後が数値OK*
ZZZZ010242	6620	COMMENT_BEGIN
ZZZZ010242	6630	=SET{W0.WORK=WN1@LENGTH};
ZZZZ010242	6640	=COPY_LOOP:COMPUTE{W0.WORK-=1};
ZZZZ010242	6650	=IF{W0.WORK=0}JUMP{COPY_ERR};
ZZZZ010242	6660	=IF{WN1[W0.WORK;1]>='0'}
ZZZZ010242	6670	=   IF{WN1[W0.WORK;1]<='9'}BACK{COPY_LOOP};
ZZZZ010242	6680	=SET{WN1=WN1[1;W0.WORK]};
ZZZZ010242	6690	=SET{WC.FIND1='+'+'NAME=?WN1?'};
ZZZZ010242	6700	=SET{WC.FIND2='+'+'NAME2=?WN1?'};
ZZZZ010242	6710	COPY=PROGRAM_FIND_A
ZZZZ010242	6720	REPEAT=6
ZZZZ010242	6730	1-=   OR
ZZZZ010242	6740	=   ?_FIND((WC.PLUS_PROGRAM_SPACE_CUT);"WC.FIND1")?>0 AND
ZZZZ010242	6750	=   ?WC.PLUS_PROGRAM_SPACE? LIKE '+%NAME%=?WN1??WC.SAME##? %'
ZZZZ010242	6760	=   OR ?_FIND((WC.PLUS_PROGRAM_SPACE_CUT);"WC.FIND2")?>0 AND
ZZZZ010242	6770	=  ?WC.PLUS_PROGRAM_SPACE? LIKE '+%NAME2%=?WN1??WC.SAME##? %'
ZZZZ010242	6780	REPEAT=
ZZZZ010242	6790	COPY=PROGRAM_FIND_B
ZZZZ010242	6800	=IF{_SQL_SET_COUNT>0}JUMP{CONTENTS_FIN};
ZZZZ010242	6810	COMMENT_END
ZZZZ010242	6820	=JUMP{CONTENTS_FIN};
ZZZZ010242	6830	=COPY_ERR:SET{WC.ERR='NOT FOUND NAME "?WN1?"'};
ZZZZ010242	6840	=IF{WN1[WN1@LENGTH;1]<'0',>'9'}JUMP{MSG_MSG}; 最後が数値OK*
ZZZZ010242	6850	=JUMP{MSG_ERR};
ZZZZ010242	6860	***( COPY_ETC )***
ZZZZ010242	6870	=COPY_ETC:
ZZZZ010242	6880	=SQL_SET{W0.ETC_CNT}{SELECT COUNT(*) FROM ?_MM?_ETC_TABLE
ZZZZ010242	6890	=   WHERE SYSTEM_KEY1='ZZZZZZ_COPY'
ZZZZ010242	6900	=   AND SYSTEM_KEY2 LIKE '?WN1[2]? %' AND Z_CANCEL=' '};
ZZZZ010242	6910	=IF{W0.ETC_CNT=0}SET{WC.ERR='BAD COPY (?WN1?)'}JUMP{ERR_ERR};
ZZZZ010242	6920	=JUMP{CONTENTS_FIN};
ZZZZ010242	6930	***( CHECK1 )************************************************
ZZZZ010242	6940	=CHECK1:
ZZZZ010242	6950	=JUMP{CONTENTS_FIN};
ZZZZ010242	6960	***( CHECK2 )************************************************
ZZZZ010242	6970	=CHECK2:
ZZZZ010242	6980	=JUMP{CONTENTS_FIN};
ZZZZ010242	6990	=NAME:
ZZZZ010242	7000	*=SET{WC.KEEP=WN};
ZZZZ010242	7010	*=SPLIT_CHAR{WN}{WN}{' '};SET{WN=WN1};
ZZZZ010242	7020	*COPY=NAME_CHK
ZZZZ010242	7030	*=SET{WN=WC.KEEP};
ZZZZ010242	7040	=SPLIT_CHAR{WN}{WN}{' '};
ZZZZ010242	7050	=SET{WC.PROGRAM_FIND_WHERE1='AND '+_VRLG&SYSTEM_SEQ};
ZZZZ010242	7060	=SET{WC.PROGRAM_FIND_WHERE2=};
ZZZZ010242	7070	=SET{WC.PROGRAM_FIND_DESC=};
ZZZZ010242	7080	COPY=FIND_NAME
ZZZZ010242	7090	=IF{_SQL_SET_COUNT>0}SET{WC.ERR='SAME NAME (?WN1?)'}
ZZZZ010242	7100	=   JUMP{ERR_ERR};
ZZZZ010242	7110	=JUMP{CONTENTS_FIN};
ZZZZ010242	7120	***( NOMAL_NAME )********************************************
ZZZZ010242	7130	=NORMAL_NAME:   N-*
ZZZZ010242	7140	=IF{WC.CHK_KEY<>'NT'}JUMP{NOT_NT};
ZZZZ010242	7150	=IF{WC.CMD='CREATE_TABLE'}JUMP{CONTENTS_FIN};
ZZZZ010242	7160	***************( NT テーブル名 )*************************
ZZZZ010242	7170	NAME=TABLE
ZZZZ010242	7180	=SET{_JOB_PERMISSION=SYSTEM_PERMISSION};
ZZZZ010242	7190	=SET{_JOB_PART=SYSTEM_PART};
ZZZZ010242	7200	=SET{WC.RT='REAL'};
ZZZZ010242	7210	%TEST+=SET{_REAL_TEST='TEST',WC.RT='TEST'};
ZZZZ010242	7220	=IF_NOT{WN/'?_Q?_M'}JUMP{TABLE_OK};
ZZZZ010242	7230	**=IF{SYSTEM_PART=}JUMP{TABLE_OK};
ZZZZ010242	7240	=SPLIT_CHAR{WN}{WN}{'?_Q?'};
ZZZZ010242	7250	=IF{_SPLIT_CHAR_COUNT!=3}JUMP{TABLE_OK}; 他に変数有り*
ZZZZ010242	7260	=IF_ERROR_SET{_EDIT=WN}NOP{};
ZZZZ010242	7270	=IF_TABLE_NOT{?_EDIT?}
ZZZZ010242	7280	=   SET{WC.ERR='NOT FOUND TABLE "?WN?"'};
ZZZZ010242	7290	=TABLE_OK:SET{_JOB_PERMISSION=_MENU_PERMISSION};
ZZZZ010242	7300	=SET{_JOB_PART=_PART};
ZZZZ010242	7310	%TEST+=SET{_REAL_TEST='REAL'};
ZZZZ010242	7320	=IF{WC.ERR!=}JUMP{MSG_MSG};
ZZZZ010242	7330	NAME= (TABLE)
ZZZZ010242	7340	=JUMP{CONTENTS_FIN};
ZZZZ010242	7350	=NOT_NT:IF{WC.CHK_KEY<>'NE'}JUMP{NOT_NE};
ZZZZ010242	7360	***************( NE EXIT )*******************************
ZZZZ010242	7370	=IF{WN=}JUMP{CONTENTS_FIN};
ZZZZ010242	7380	=IF{WC.MENU_TIME='T'}
ZZZZ010242	7390	=   SET{WC.ERR='TIME BAD "?WN?"'}JUMP{ERR_ERR};
ZZZZ010242	7400	=IF{WN='_END'}JUMP{CONTENTS_FIN};
ZZZZ010242	7410	=IF{WN[1;1]='?_Q?'}JUMP{CONTENTS_NAME_CHK};
ZZZZ010242	7420	=IF{WN[1;1]='-',='+'}IF{WN[2;1]='?_Q?'}
ZZZZ010242	7430	=   SET{WN=WN[2]}JUMP{CONTENTS_NAME_CHK};
ZZZZ010242	7440	=IF_ERROR_SET{W0.DUMMY=WN}JUMP{NE_NX}; 数値判定*
ZZZZ010242	7450	=JUMP{CONTENTS_FIN};
ZZZZ010242	7460	=NOT_NE:IF{WC.CHK_KEY<>'NX'}JUMP{CONTENTS_NAME_CHK};
ZZZZ010242	7470	***************( NX EXIT2,EXIT3 )************************
ZZZZ010242	7480	=IF{WN=}JUMP{CONTENTS_FIN};
ZZZZ010242	7490	=NE_NX:
ZZZZ010242	7500	=IF{WN[1;1]='#',='!',='@',='&',='_',='^',='$'}JUMP{ERROR};
ZZZZ010242	7510	=SET{_FIND_CHAR=WN+'@['};
ZZZZ010242	7520	=IF{_FIND_CHAR>0}SET{W0=_FIND_CHAR}JUMP{ERROR};
ZZZZ010242	7530	COPY=PROGRAM_FIND_LOWER_SEQ
ZZZZ010242	7540	COPY=PROGRAM_FIND_SECTION
ZZZZ010242	7550	=SET{WC.PROGRAM_FIND_CHK='S'}; DATA,SET,START*
ZZZZ010242	7560	COPY=PROGRAM_FIND_IF
ZZZZ010242	7570	=IF{_SQL_SET_COUNT=0}SET{C.PROGRAM_FIND_WHERE1=}JUMP{};
ZZZZ010242	7580	=SET{WC.PROGRAM_FIND_WHERE1='AND '+_VRGE&W0_PROG.SYSTEM_SEQ};
ZZZZ010242	7590	=SET{WC.PROGRAM_FIND_WHERE2=};
ZZZZ010242	7600	=SET{WC.PROGRAM_FIND_DESC=};
ZZZZ010242	7610	NAME=PROGRAM_FIND_PROGRAM
ZZZZ010242	7620	COPY=PROGRAM_FIND_A
ZZZZ010242	7630	=   ?_FIND((WC.PLUS_PROGRAM_SPACE);"WC.PROGRAM_FIND1")?>0
ZZZZ010242	7640	COPY=PROGRAM_FIND_B
ZZZZ010242	7650	NAME=
ZZZZ010242	7660	=SET{WC.DATA_SET=WC.PROGRAM_FIND_DATA_SET};
ZZZZ010242	7670	=IF{_SQL_SET_COUNT=0}SET{WC.PROGRAM_FIND_WHERE2=}JUMP{};
ZZZZ010242	7680	=SET{WC.PROGRAM_FIND_WHERE2='AND '+_VRLE&W0_PROG.SYSTEM_SEQ};
ZZZZ010242	7690	REPEAT2=1
ZZZZ010242	7700	NAME2=DATA_SET
ZZZZ010242	7710	=SET{WC.LIKE=WC.PLUS_PROGRAM_SPACE_CUT+' LIKE'};
ZZZZ010242	7720	=SET{WC.DATA_SET1_$$=WC.LIKE
ZZZZ010242	7730	=   +' ''%+?WC.DATA_SET?=?WN?{%'''
ZZZZ010242	7740	=   ,WC.DATA_SET2_$$='OR '+WC.LIKE
ZZZZ010242	7750	=   +' ''%+?WC.DATA_SET?=$?WN?{%'''
ZZZZ010242	7760	=   ,WC.DATA_SET3_$$='OR '+WC.LIKE
ZZZZ010242	7770	=   +' ''%+?WC.DATA_SET?={%}?WN?{%'''
ZZZZ010242	7780	=   ,WC.DATA_SET4_$$='OR '+WC.LIKE
ZZZZ010242	7790	=   +' ''%+?WC.DATA_SET?={%}$?WN?{%'''
ZZZZ010242	7800	=   ,WC.DATA_SET5_$$='OR '+WC.LIKE
ZZZZ010242	7810	=   +' ''%+?WC.DATA_SET?=?WN?&%&%'''
ZZZZ010242	7820	=   ,WC.DATA_SET6_$$='OR '+WC.LIKE
ZZZZ010242	7830	=   +' ''%+?WC.DATA_SET?=$?WN?&%&%'''
ZZZZ010242	7840	=   ,WC.DATA_SET7_$$='OR '+WC.LIKE
ZZZZ010242	7850	=   +' ''%+?WC.DATA_SET?={%}?WN?&%&%'''
ZZZZ010242	7860	=   ,WC.DATA_SET8_$$='OR '+WC.LIKE
ZZZZ010242	7870	=   +' ''%+?WC.DATA_SET?={%}$?WN?&%&%'''};
ZZZZ010242	7880	=SET{_FIND_CHAR_LAST=WN+'.'};
ZZZZ010242	7890	=IF{_FIND_CHAR_LAST=0}SET{WN1=,WN2=WN}JUMP{};
ZZZZ010242	7900	=   COMPUTE{W0P=_FIND_CHAR_LAST+1}
ZZZZ010242	7910	=   SET{WN1=WN[1;_FIND_CHAR_LAST],WN2=WN[W0P]};
ZZZZ010242	7920	=SET{WC.DATA_SET9_$$='OR '+WC.LIKE+' '''+
ZZZZ010242	7930	=   '%+?WC.DATA_SET?=?WN1??_Q?&%&?WN2??_Q?%'''
ZZZZ010242	7940	=   ,WC.DATA_SET10_$$='OR '+WC.LIKE+' '''+
ZZZZ010242	7950	=   '%+?WC.DATA_SET?=$?WN1??_Q?&%&?WN2??_Q?%'''
ZZZZ010242	7960	=   ,WC.DATA_SET11_$$='OR '+WC.LIKE+' '''+
ZZZZ010242	7970	=   '%+?WC.DATA_SET?={%}?WN1??_Q?&%&?WN2??_Q?%'''
ZZZZ010242	7980	=   ,WC.DATA_SET12_$$='OR '+WC.LIKE+' '''+
ZZZZ010242	7990	=   '%+?WC.DATA_SET?={%}$?WN1??_Q?&%&?WN2??_Q?%'''};
ZZZZ010242	8000	NAME2=
ZZZZ010242	8010	REPEAT2=
ZZZZ010242	8020	NAME=
ZZZZ010242	8030	COPY=PROGRAM_FIND_A
ZZZZ010242	8040	REPEAT=12
ZZZZ010242	8050	REPEAT2=1
ZZZZ010242	8060	=  ?WC.DATA_SET##_$$?
ZZZZ010242	8070	REPEAT=
ZZZZ010242	8080	COPY=PROGRAM_FIND_B
ZZZZ010242	8090	=IF{_SQL_SET_COUNT>0}JUMP{CONTENTS_FIN};
ZZZZ010242	8100	=   JUMP{CONTENTS_FIN}; 最後が数字の場合はOKとする*
ZZZZ010242	8110	=SET{WC.ERR='?WC.PROGRAM_FIND_DATA_SET?= BAD NAME "?WN?"'};
ZZZZ010242	8120	=IF{WN[WN@LENGTH]>='0'}IF{WN[WN@LENGTH]<='9'}JUMP{MSG_MSG};
ZZZZ010242	8130	=JUMP{ERR_ERR};
ZZZZ010242	8140	************************************************************
ZZZZ010242	8150	**=DATA_SET:
ZZZZ010242	8160	**=MESSAGE:
ZZZZ010242	8170	**NAME=SECTION_FIND
ZZZZ010242	8180	**=SET{WC.WHERE1=_VRL&SYSTEM_SEQ,WC.WHERE2=,WC.DESC='DESC'};
ZZZZ010242	8190	**COPY=PROGRAM_FIND
ZZZZ010242	8200	**NAME= (SECTION_FIND)
ZZZZ010242	8210	**COPY=PROGRAM_DATA_SET
ZZZZ010242	8220	**=IF{WC.CHK_KEY!='ME'}JUMP{PROGRAM_START_SKIP};
ZZZZ010242	8230	**COPY=PROGRAM_START
ZZZZ010242	8240	**=PROGRAM_START_SKIP:
ZZZZ010242	8250	**=SET{WC.ERR='BAD AT(?WN.PROG[2]?)'}JUMP{ERR_ERR};
ZZZZ010242	8260	***=DATA_SET_OK:
ZZZZ010242	8270	***=JUMP{CONTENTS_FIN};
ZZZZ010242	8280	*****( DEFINE_SET )*****************************************
ZZZZ010242	8290	=DEFINE_SET:
ZZZZ010242	8300	=DEFINE_DATA:
ZZZZ010242	8310	=IF{W0>WN@LENGTH}JUMP{DATA_NAME};
ZZZZ010242	8320	=IF{WN[W0;1]=' '} COMPUTE{W0+=1}JUMP{DATA_NAME};
ZZZZ010242	8330	=IF{WN[W0;1]<>'{'}JUMP{DATA_NAME};
ZZZZ010242	8340	=COMPUTE{W0+=1};
ZZZZ010242	8350	=SET{_FIND_STRING=WN[W0]+'}'};
ZZZZ010242	8360	=IF{_FIND_STRING=0}SET{WC.ERR='"}" NOT FOUND'}JUMP{ERR_ERR};
ZZZZ010242	8370	=COMPUTE{W0.KEEP=W0+_FIND_STRING};
ZZZZ010242	8380	=SET{WN.KEEP=WN[W0.KEEP]};
ZZZZ010242	8390	=SET{WN=WN[W0;_FIND_STRING-1],W0=1};
ZZZZ010242	8400	=SET{W0.N_SW=0};
ZZZZ010242	8410	=DATA_LOOP:IF{W0>WN@LENGTH}JUMP{DATA_FIN};
ZZZZ010242	8420	=IF{WN[W0;1]='?_Q?'}JUMP{DATA_FIN};
ZZZZ010242	8430	=IF{WN[W0;1]=','}JUMP{DATA_COMMA};
ZZZZ010242	8440	=IF{WN[W0;1]=' '}JUMP{DATA_NEXT};
ZZZZ010242	8450	=IF{W0.N_SW<1}IF{WN[W0;1]='K',='*',='$'}
ZZZZ010242	8460	=   SET{W0.N_SW=1}JUMP{DATA_NEXT};
ZZZZ010242	8470	=IF{W0.N_SW<2}IF{WN[W0;1]='O',='N',='/',='#',='!'}
ZZZZ010242	8480	=   SET{W0.N_SW=2}JUMP{DATA_NEXT};
ZZZZ010242	8490	=IF{WC.CHK_KEY='DD'}JUMP{DATA_DATA};
ZZZZ010242	8500	=IF{W0.N_SW<3}IF{WN[W0;1]='=',='<',='>',='L',='I',='E'}
ZZZZ010242	8510	=   SET{W0.N_SW=3}JUMP{DATA_NEXT};
ZZZZ010242	8520	=IF{W0.N_SW<4}IF{WN[W0;1]='=',='>'}
ZZZZ010242	8530	=   SET{W0.N_SW=4}JUMP{DATA_NEXT};
ZZZZ010242	8540	=JUMP{DATA_4};
ZZZZ010242	8550	=DATA_DATA:
ZZZZ010242	8560	=IF{W0.N_SW<3}IF{WN[W0;1]='A',='D',='C'}
ZZZZ010242	8570	=   SET{W0.N_SW=3}JUMP{DATA_NEXT};
ZZZZ010242	8580	=IF{W0.N_SW<4}IF{WN[W0;1]='G'}SET{W0.N_SW=4}JUMP{DATA_NEXT};
ZZZZ010242	8590	=DATA_4:
ZZZZ010242	8600	=IF{W0.N_SW<5}IF{WN[W0;1]>='1'}IF{WN[W0;1]<='9'}
ZZZZ010242	8610	=   SET{W0.N_SW=5}JUMP{DATA_NEXT};
ZZZZ010242	8620	=JUMP{ERROR};
ZZZZ010242	8630	=DATA_NEXT:COMPUTE{W0+=1};BACK{DATA_LOOP};
ZZZZ010242	8640	=DATA_COMMA:SET{W0.N_SW=0};COMPUTE{W0+=1};
ZZZZ010242	8650	=DATA_COMMA_LOOP:IF{W0>WN@LENGTH}JUMP{DATA_FIN};
ZZZZ010242	8660	=IF{WN[W0;1]='?_Q?'}JUMP{DATA_FIN};
ZZZZ010242	8670	=IF{WN[W0;1]=' '}JUMP{DATA_COMMA_NEXT};
ZZZZ010242	8680	=IF{WN[W0;1]=','}JUMP{DATA_COMMA};
ZZZZ010242	8690	=IF{W0.N_SW<1}IF{WN[W0;1]='*',='@',='#'}
ZZZZ010242	8700	=   JUMP{DATA_COMMA_NEXT};
ZZZZ010242	8710	=IF{W0.N_SW<1}IF{WN[W0;1]='&'}SET{W0.N_SW=1}
ZZZZ010242	8720	=   JUMP{DATA_COMMA_NEXT};
ZZZZ010242	8730	*IF{W0.N_SW<1}JUMP{ERROR};
ZZZZ010242	8740	=IF{WN[W0;1]>='A'}IF{WN[W0;1]<='Z'}JUMP{DATA_COMMA_NEXT};
ZZZZ010242	8750	=IF{WN[W0;1]>='0'}IF{WN[W0;1]<='9'}JUMP{DATA_COMMA_NEXT};
ZZZZ010242	8760	=IF{WN[W0;1]='_'}JUMP{DATA_COMMA_NEXT};
ZZZZ010242	8770	=JUMP{ERROR};
ZZZZ010242	8780	=DATA_COMMA_NEXT:COMPUTE{W0+=1};BACK{DATA_COMMA_LOOP};
ZZZZ010242	8790	=DATA_COMMA:COMPUTE{W0+=1};SET{W0.N_SW=0};
ZZZZ010242	8800	=DATA_COMMA_LOOP:IF{W0>WN@LENGTH}JUMP{DATA_FIN};
ZZZZ010242	8810	=IF{WN[W0;1]='?_Q?',=','}JUMP{DATA_FIN};
ZZZZ010242	8820	=IF{W0.N_SW<1}IF{WN[W0;1]=' '}JUMP{DATA_COMMA_NEXT};
ZZZZ010242	8830	=IF{WN[W0;1]=' '}IF{W0.N_SW=1}
ZZZZ010242	8840	=   SET{W0.N_SW=2}JUMP{DATA_COMMA_NEXT};
ZZZZ010242	8850	=IF{W0.N_SW<2} IF{WN[W0;1]>='0'}IF{WN[W0;1]<='9'}
ZZZZ010242	8860	=   SET{W0.N_SW=1}JUMP{DATA_COMMA_NEXT};
ZZZZ010242	8870	=JUMP{ERROR};
ZZZZ010242	8880	=DATA_COMMA_NEXT:COMPUTE{W0+=1};BACK{DATA_COMMA_LOOP};
ZZZZ010242	8890	=DATA_FIN:SET{W0=1,WN=WN.KEEP};
ZZZZ010242	8900	=DATA_NAME:
ZZZZ010242	8910	=DEFINE_WORK:
ZZZZ010242	8920	=LOOP:IF{W0<WN@LENGTH}IF{WN[W0;1]=' '}
ZZZZ010242	8930	=   COMPUTE{W0+=1}BACK{LOOP};
ZZZZ010242	8940	=SET{_FIND_STRING=WN[W0]+'{'};
ZZZZ010242	8950	=IF{_FIND_STRING>0}
ZZZZ010242	8960	=   COMPUTE{W0.KEEP=W0+_FIND_STRING}
ZZZZ010242	8970	=   SET{WN.KEEP=WN[W0.KEEP]}
ZZZZ010242	8980	=   SET{WN=WN[W0;_FIND_STRING-1]}
ZZZZ010242	8990	=   JUMP{NOT_QUESTION};
ZZZZ010242	9000	=SET{_FIND_STRING_LAST=WN[W0]+'?_Q?'};
ZZZZ010242	9010	=SET{WN=WN[W0;_FIND_STRING_LAST],WN.KEEP=};
ZZZZ010242	9020	=NOT_QUESTION:
ZZZZ010242	9030	=SET{W0=1};SET{WN=WN@TRIM};
ZZZZ010242	9040	=IF{WN=}SET{WC.ERR='NAME SPACE'}JUMP{ERR_ERR};
ZZZZ010242	9050	=SET{WN.KEEP_NAME=WN};
ZZZZ010242	9060	COPY=NAME_CHK
ZZZZ010242	9070	=SET{W0=1,WN=WN.KEEP};
ZZZZ010242	9080	=SET{WN=WN.KEEP_NAME};
ZZZZ010242	9090	=IF{WN[1;1]='$'}SET{WN=WN[2]};
ZZZZ010242	9100	=SET{_FIND_CHAR=WN+'?_Q?'};
ZZZZ010242	9110	=IF{_FIND_CHAR=0}JUMP{J};
ZZZZ010242	9120	=COMPUTE{W0.LEN1=_FIND_CHAR-1};
ZZZZ010242	9130	=SET{_FIND_CHAR_LAST=WN+'&'};
ZZZZ010242	9140	=IF{_FIND_CHAR_LAST=0}JUMP{J};
ZZZZ010242	9150	=COMPUTE{W0.STA2=_FIND_CHAR_LAST+1};
ZZZZ010242	9160	=SET{_FIND_CHAR_LAST=WN+'?_Q?'};
ZZZZ010242	9170	=IF{_FIND_CHAR_LAST=0}JUMP{J};
ZZZZ010242	9180	=COMPUTE{W0.LEN2=_FIND_CHAR_LAST-W0.STA2};
ZZZZ010242	9190	=SET{WN=WN[1;W0.LEN1]+WN[W0.STA2;W0.LEN2]};
ZZZZ010242	9200	=J:
ZZZZ010242	9210	NAME=PROGRAM_FIND_LOWER_UPPER_PROGRAM
ZZZZ010242	9220	=SQL_SET{WN.PROG}{SELECT REPLACE(REPLACE(
ZZZZ010242	9230	=   '+?SYSTEM_PROGRAM?',' ',''),'-','+') ?_FROM_DUAL?};
ZZZZ010242	9240	=SET{_FIND_STRING=WN.PROG+WC.PROGRAM_FIND1}; PROGRAM=*
ZZZZ010242	9250	=IF{_FIND_STRING>0}SET{W0_PROG.SYSTEM_SEQ=.SYSTEM_SEQ}
ZZZZ010242	9260	=   JUMP{SKIP_LOWER};
ZZZZ010242	9270	COPY=PROGRAM_FIND_LOWER_SEQ
ZZZZ010242	9280	COPY=PROGRAM_FIND_PROGRAM
ZZZZ010242	9290	=IF{_SQL_SET_COUNT=0}SET{WC.PROGRAM_FIND_WHERE1=
ZZZZ010242	9300	=   ,WC.KEEP_WHERE1=}JUMP{};
ZZZZ010242	9310	=  SKIP_LOWER:
ZZZZ010242	9320	=  SET{WC.PROGRAM_FIND_WHERE1='AND '+_VRG&W0_PROG.SYSTEM_SEQ
ZZZZ010242	9330	=     ,WC.KEEP_WHERE1='AND '+_VRGE&W0_PROG.SYSTEM_SEQ};
ZZZZ010242	9340	=SET{WC.PROGRAM_FIND_WHERE2=};
ZZZZ010242	9350	=SET{WC.PROGRAM_FIND_DESC=};
ZZZZ010242	9360	COPY=PROGRAM_FIND_PROGRAM
ZZZZ010242	9370	=IF{_SQL_SET_COUNT=0}SET{WC.PROGRAM_FIND_WHERE2=}JUMP{};
ZZZZ010242	9380	= SET{WC.PROGRAM_FIND_WHERE2='AND '+_VRL&W0_PROG.SYSTEM_SEQ};
ZZZZ010242	9390	=SET{WC.PROGRAM_FIND_WHERE2+=' AND '+_VRLG&SYSTEM_SEQ};
ZZZZ010242	9400	NAME=
ZZZZ010242	9410	=SET{WC.DATA_SET='DATA'};
ZZZZ010242	9420	REPEAT2=1
ZZZZ010242	9430	COPY=DATA_SET
ZZZZ010242	9440	REPEAT2=
ZZZZ010242	9450	=SET{WC.DATA_SET='SET'};
ZZZZ010242	9460	REPEAT2=2,2
ZZZZ010242	9470	COPY=DATA_SET
ZZZZ010242	9480	REPEAT2=
ZZZZ010242	9490	=SET{WC.DATA_SET='WORK'};
ZZZZ010242	9500	REPEAT2=3,3
ZZZZ010242	9510	COPY=DATA_SET
ZZZZ010242	9520	REPEAT2=
ZZZZ010242	9530	COPY=PROGRAM_FIND_A
ZZZZ010242	9540	REPEAT=12
ZZZZ010242	9550	REPEAT2=3
ZZZZ010242	9560	1+$1-= OR
ZZZZ010242	9570	=  ?WC.DATA_SET##_$$?
ZZZZ010242	9580	REPEAT=
ZZZZ010242	9590	COPY=PROGRAM_FIND_B
ZZZZ010242	9600	=IF{_SQL_SET_COUNT=0}JUMP{CONTENTS_FIN};
ZZZZ010242	9610	=SQL_SET{WN.PROG}{SELECT REPLACE('?SYSTEM_PROGRAM?',' ','')
ZZZZ010242	9620	=   ?_FROM_DUAL?};
ZZZZ010242	9630	REPEAT=9
ZZZZ010242	9640	=SET{_FIND_STRING=WN.PROG+WC.SAME##};
ZZZZ010242	9650	=IF{_FIND_STRING>0}JUMP{CONTENTS_FIN};
ZZZZ010242	9660	REPEAT=
ZZZZ010242	9670	=SET{WC.ERR='SAME NAME "?WN?"'}
ZZZZ010242	9680	=JUMP{ERR_ERR};
ZZZZ010242	9690	=JUMP{CONTENTS_FIN};
ZZZZ010242	9700	=PERMISSION_JOB:
ZZZZ010242	9710	=SET{_FIND_CHAR=WN+'?_Q?'};
ZZZZ010242	9720	=IF{_FIND_CHAR>0}JUMP{CONTENTS_NAME_CHK};
ZZZZ010242	9730	=IF{WN@LENGTH<>W0.LENGTH}
ZZZZ010242	9740	=   SET{WC.ERR='NOT ?W0.LENGTH? LENGTH "?WN?"'}JUMP{ERR_ERR};
ZZZZ010242	9750	=IF{WN[1;1]<'A',>'V'}IF{WN[1;1]!='Z'}JUMP{ERROR};
ZZZZ010242	9760	REPEAT=4,2
ZZZZ010242	9770	=SET{W0=##};
ZZZZ010242	9780	=IF{WN[##;1]<'A',>'Z'}JUMP{ERROR};
ZZZZ010242	9790	REPEAT= (4,2)
ZZZZ010242	9800	=IF{W0.LENGTH=4}JUMP{CONTENTS_FIN};
ZZZZ010242	9810	=SET{W0=5};
ZZZZ010242	9820	REPEAT=3
ZZZZ010242	9830	=IF{WN[W0;2]<01,>40}JUMP{ERROR};
ZZZZ010242	9840	=COMPUTE{W0+=2};
ZZZZ010242	9850	REPEAT= (3)
ZZZZ010242	9860	=JUMP{CONTENTS_FIN};
ZZZZ010242	9870	*****( SQL )*************************************************
ZZZZ010242	9880	=SQL:
ZZZZ010242	9890	*                JUMP{CONTENTS_FIN};
ZZZZ010242	9900	=SET{WN.KEEP=WN};
ZZZZ010242	9910	=SQL_LOOP:
ZZZZ010242	9920	=SET{_FIND_CHAR=WN[W0]+'?_Q?'};
ZZZZ010242	9930	=IF{_FIND_CHAR=0}JUMP{CONTENTS_FIN};
ZZZZ010242	9940	=COMPUTE{W0+=_FIND_CHAR};
ZZZZ010242	9950	=COMPUTE{W0.STA=W0-1};
ZZZZ010242	9960	=SET{_FIND_CHAR=WN[W0]+'?_Q?'};
ZZZZ010242	9970	=COMPUTE{W0+=_FIND_CHAR};
ZZZZ010242	9980	=IF{_FIND_CHAR=0}
ZZZZ010242	9990	=    SET{WC.ERR='"?_Q?" NOT FOUND (?WN.KEEP?)'}
ZZZZ010242	10000	=   JUMP{ERR_ERR};
ZZZZ010242	10010	=SET{WN=WN[W0.STA;W0-W0.STA],W0.KEEP=W0,W0=1};
ZZZZ010242	10020	COPY=NAME_CHK
ZZZZ010242	10030	=SET{WN=WN.KEEP,W0=W0.KEEP};
ZZZZ010242	10040	=BACK{SQL_LOOP};
ZZZZ010242	10050	***( TAG )***************************************************
ZZZZ010242	10060	=TAG:SET{WC.OP2='TAG',WC.TAG_SW=0};
ZZZZ010242	10070	=IF{WN=}JUMP{CONTENTS_FIN};
ZZZZ010242	10080	=TAG1:IF{WN[W0;1]='*',=':',=';'}
ZZZZ010242	10090	=   SET{WC.ERR='ERROR (?WN[W0;1]?)'}JUMP{ERR_ERR};
ZZZZ010242	10100	=IF{WN[W0;1]!=_Q}JUMP{TAG2};
ZZZZ010242	10110	=IF{WC.TAG_SW=0}SET{WC.TAG_SW=1}JUMP{TAG2};
ZZZZ010242	10120	=IF{WC.TAG_SW=1}SET{WC.TAG_SW=2}JUMP{TAG2};
ZZZZ010242	10130	=IF{WC.TAG_SW=2}SET{WC.TAG_SW=1}JUMP{TAG2};
ZZZZ010242	10140	=TAG2:COMPUTE{W0+=1};
ZZZZ010242	10150	=IF{W0<=WN@LENGTH}BACK{TAG1};
ZZZZ010242	10160	=IF{WC.TAG_SW=1}SET{WC.ERR='NOT EVEN (?_Q?)'}JUMP{ERR_ERR};
ZZZZ010242	10170	=IF{WC.TAG_SW=2}JUMP{CONTENTS_FIN}; _Q有りはチェックせず*
ZZZZ010242	10180	=IF{WC.CMD='JUMP'}
ZZZZ010242	10190	=   SET{WC.PROGRAM_FIND_WHERE1='AND '+_VRG&SYSTEM_SEQ
ZZZZ010242	10200	=   ,WC.GL='<'
ZZZZ010242	10210	=   ,WC.PROGRAM_FIND_DESC=}JUMP{};
ZZZZ010242	10220	=   SET{WC.PROGRAM_FIND_WHERE1='AND '+_VRL&SYSTEM_SEQ
ZZZZ010242	10230	=   ,WC.GL='>'
ZZZZ010242	10240	=   ,WC.PROGRAM_FIND_DESC='DESC'};
ZZZZ010242	10250	=SET{WC.PROGRAM_FIND_WHERE2=};
ZZZZ010242	10260	COPY=PROGRAM_FIND_SECTION
ZZZZ010242	10270	=IF{_SQL_SET_COUNT=0}SET{WC.PROGRAM_FIND_WHERE2=}JUMP{};
ZZZZ010242	10280	=   SET{WC.PROGRAM_FIND_WHERE2=
ZZZZ010242	10290	=   'AND SYSTEM_SEQ'+WC.GL+W0_PROG.SYSTEM_SEQ};
ZZZZ010242	10300	=SET{WN.TAG1='='+WN+':'};
ZZZZ010242	10310	=SET{WN.TAG2=';'+WN+':'};
ZZZZ010242	10320	COPY=PROGRAM_FIND_A
ZZZZ010242	10330	=   ?_FIND((WC.PLUS_PROGRAM_SPACE_CUT);"WN.TAG1")?>0 OR
ZZZZ010242	10340	=   ?_FIND((WC.PLUS_PROGRAM_SPACE_CUT);"WN.TAG2")?>0
ZZZZ010242	10350	COPY=PROGRAM_FIND_B
ZZZZ010242	10360	=IF{_SQL_SET_COUNT>0}JUMP{CONTENTS_FIN};
ZZZZ010242	10370	=SET{WC.ERR='NOT FOUND "?WN.TAG1[2]?"'};
ZZZZ010242	10380	*IF{WN[WN@LENGTH]>='0'}IF{WN[WN@LENGTH]<='9'}JUMP{MSG_MSG};
ZZZZ010242	10390	*JUMP{ERR_ERR};
ZZZZ010242	10400	=JUMP{MSG_MSG};
ZZZZ010242	10410	=NUMERIC_S:
ZZZZ010242	10420	=SPLIT_CHAR{WC.SPLIT}{WN}{};
ZZZZ010242	10430	=SET{WN=WC.SPLIT1};
ZZZZ010242	10440	=NUMERIC:
ZZZZ010242	10450	=IF{WN=}JUMP{NUMERIC1};
ZZZZ010242	10460	=IF_ERROR_SET{W0.DUMMY=WN}JUMP{NUMERIC1};JUMP{CONTENTS_FIN};
ZZZZ010242	10470	=NUMERIC1:
ZZZZ010242	10480	*IF{WN[W0;1]=' '}COMPUTE{W0+=1}BACK{NUMERIC1};
ZZZZ010242	10490	=IF{WN[W0;1]='?_Q?'}JUMP{CONTENTS_NAME_CHK};
ZZZZ010242	10500	=IF{WC.CHK_KEY='9S'}IF{WN[W0;1]='$'}JUMP{CONTENTS_NAME_CHK};
ZZZZ010242	10510	=SET{WC.ERR='NOT NUMERIC "?WN?"'}JUMP{ERR_ERR};
ZZZZ010242	10520	=JUMP{CONTENTS_NAME_CHK};
ZZZZ010242	10530	=COMMAND:
ZZZZ010242	10540	=SET{_FIND_STRING=WN+'..\'};
ZZZZ010242	10550	=IF{_FIND_STRING>0}
ZZZZ010242	10560	=   SET{WC.ERR='..\ FOUND "?WN?"'}JUMP{ERR_ERR};
ZZZZ010242	10570	=J:SET{_FIND_STRING=WN+'../'};
ZZZZ010242	10580	=IF{_FIND_STRING>0}
ZZZZ010242	10590	=   SET{WC.ERR='../ FOUND "?WN?"'}JUMP{ERR_ERR};
ZZZZ010242	10600	=J:JUMP{CONTENTS_FIN};
ZZZZ010242	10610	=PROGRAM:
ZZZZ010242	10620	=IF{WN='0'}JUMP{CONTENTS_FIN};
ZZZZ010242	10621	=IF{WN='00'}JUMP{CONTENTS_FIN};
ZZZZ010242	10630	=IF{WN[1;1]='?_Q?'}JUMP{CONTENTS_NAME_CHK};
ZZZZ010242	10640	=IF_NOT{WN[1;1]='1',='2',='3',='4'}JUMP{ERROR};
ZZZZ010242	10650	=IF{WN@LENGTH=1}JUMP{CONTENTS_FIN};
ZZZZ010242	10660	=SET{W0=2};
ZZZZ010242	10670	=IF{WN[W0;1]='?_Q?'}JUMP{CONTENTS_NAME_CHK};
ZZZZ010242	10680	=IF_NOT{WN[W0;1]='N',='E',='P'}JUMP{ERROR};
ZZZZ010242	10690	=IF{WN@LENGTH=2}JUMP{CONTENTS_FIN};
ZZZZ010242	10700	=SET{W0=3};
ZZZZ010242	10710	=IF{WN[W0;1]='?_Q?'}JUMP{CONTENTS_NAME_CHK};
ZZZZ010242	10720	=IF{WN[W0-1;1]<>'P'}IF{WN[W0;1]<>'E'}JUMP{ERROR};
ZZZZ010242	10730	=SET{W0=4};
ZZZZ010242	10740	=IF{WN[W0;1]='?_Q?'}JUMP{CONTENTS_NAME_CHK};
ZZZZ010242	10750	=IF{WN@LENGTH>3}JUMP{ERROR};
ZZZZ010242	10760	=JUMP{CONTENTS_FIN};
ZZZZ010242	10770	=CONTENTS_NAME_CHK:
ZZZZ010242	10780	COPY=NAME_CHK
ZZZZ010242	10790	=JUMP{CONTENTS_FIN};
ZZZZ010242	10800	***( READ_WRITE_NAME )***************************************
ZZZZ010242	10810	=READ_WRITE_NAME:
ZZZZ010242	10820	COPY=PROGRAM_FIND_LOWER_SEQ
ZZZZ010242	10830	=IF{WC.CHK_KEY='RN'}SET{WC.FIND1='READ'}JUMP{};
ZZZZ010242	10840	***                 SET{WC.FIND1='WRITE'}JUMP{};
ZZZZ010242	10842	=                   SET{WC.FIND1='WRITE'};
ZZZZ010242	10860	COPY=PROGRAM_FIND_A
ZZZZ010242	10880	***=?WC.PLUS_PROGRAM_SPACE? LIKE '%=%?WC.FIND1?_OPEN{?WN?,%'
ZZZZ010242	10882	=   REPLACE(SYSTEM_PROGRAM,' ','')
ZZZZ010242	10883	=   LIKE '%=%?WC.FIND1?_OPEN{?WN?,%'
ZZZZ010242	10910	COPY=PROGRAM_FIND_B
ZZZZ010242	10920	=IF{_SQL_SET_COUNT>0}JUMP{CONTENTS_FIN};
ZZZZ010242	10930	=SET{WC.ERR='NOT FOUND ?WC.FIND1? NAME "?WN?"'};
ZZZZ010242	10940	=JUMP{MSG_MSG};
ZZZZ010242	10950	*************************************************************
ZZZZ010242	10960	***( COMMA_CHECK )******************************************
ZZZZ010242	10970	*************************************************************
ZZZZ010242	10980	=PLURAL_CHK:
ZZZZ010242	10990	*==( SPLIT_COMMA(_DATA,W0.ETC_STA,W0.ETC_NO)=============
ZZZZ010242	11000	*==(             (WC.SPLIT..,W0.SPLIT_MAX )=============
ZZZZ010242	11010	NAME=SPLIT_COMMA
ZZZZ010242	11020	=IF{W0.COMMA_MAX>0}JUMP{COMMA_END};
ZZZZ010242	11030	=SET{_UPPER=WN.CONTENTS,W0.COMMA_CNT=1};
ZZZZ010242	11040	=SPLIT_CHAR{WC.SPLIT}{_UPPER}{','};
ZZZZ010242	11050	=SET{W0.SPLIT_MAX=_SPLIT_CHAR_COUNT};
ZZZZ010242	11060	=IF{W0.ETC_NO<>2}JUMP{SPLIT_COMMA_FIN};
ZZZZ010242	11070	=IF{WC.SPLIT?W0.SPLIT_MAX?=}JUMP{SPLIT_COMMA_FIN};
ZZZZ010242	11080	=SET{WC.SPLIT_END=WC.SPLIT?W0.SPLIT_MAX?};
ZZZZ010242	11090	=SPLIT_CHAR{WC.SPLIT_END}{WC.SPLIT_END}{' '};
ZZZZ010242	11100	=SET{WC.SPLIT?W0.SPLIT_MAX?=WC.SPLIT_END1};
ZZZZ010242	11110	=SPLIT_COMMA_FIN:
ZZZZ010242	11120	=SET{W0.COMMA_MAX=W0.SPLIT_MAX};
ZZZZ010242	11130	=IF{W0.COMMA_MAX<W0.COMMA_MIN}IF{WC.LOGIC_END_SW=0}
ZZZZ010242	11140	=   SET{WC.ERR='COLUMN COUNT UNDER'
ZZZZ010242	11150	=   +'(?W0.COMMA_MAX?<?W0.COMMA_MIN?)'}JUMP{ERR_ERR};
ZZZZ010242	11160	=COMMA_END:SET{WN=WC.SPLIT?W0.COMMA_CNT?,W0=1};
ZZZZ010242	11170	NAME= (SPLIT_COMMA)
ZZZZ010242	11180	*SET{WN=WC.SPLIT?W0.CMD?};
ZZZZ010242	11190	=IF{WC.CHK_KEY='ST',='IF',='CM'}JUMP{IF_SET_COMPUTE};
ZZZZ010242	11200	=IF{WC.CHK_KEY/'N'}JUMP{NAME_CHK};
ZZZZ010242	11210	=IF{WC.CHK_KEY='AL'}JUMP{ALIAS_CHK};
ZZZZ010242	11220	=IF{WC.CHK_KEY='CT'}JUMP{CREATE_TABLE};
ZZZZ010242	11230	=IF{WC.CHK_KEY='TB'}JUMP{TABLE_CHK};
ZZZZ010242	11240	=IF{WC.CHK_KEY='09'}JUMP{09_CHK};
ZZZZ010242	11250	=IF{WC.CHK_KEY='0A'}JUMP{0A_CHK};
ZZZZ010242	11260	=IF{WC.CHK_KEY='PR'}JUMP{REPEAT};
ZZZZ010242	11270	=JUMP{COMMA_NEXT};
ZZZZ010242	11280	***( NAME_CHK )**********************************************
ZZZZ010242	11290	=NAME_CHK:
ZZZZ010242	11300	=IF{WC.OP/'WRITE',/'OUTPUT'}SET{WC.IN_OUT='IN'};  VER22.1*
ZZZZ010242	11310	=IF_NAME_NOT{WC.IN_OUT}JUMP{NOT_READ}; VER17*
ZZZZ010242	11320	***=IF_NAME_NOT{WC.IN_OUT}JUMP{READ_NAME_CHECK}; VER17*
ZZZZ010242	11330	=IF_NOT{WC.IN_OUT='IN'}JUMP{NOT_READ};
ZZZZ010242	11340	NAME=READ_NAME
ZZZZ010242	11350	=READ_NAME_CHECK:
ZZZZ010242	11360	=SET{WN=WN@TRIM};
ZZZZ010242	11370	=SET{WC.S1='#'+'#',WC.S2='#'+'-',WC.S3='#'+'+'};
ZZZZ010242	11380	=SET{WC.D1='$'+'$',WC.D2='$'+'-',WC.D3='$'+'+'};
ZZZZ010242	11390	=IF{WN=,='?WC.S1?',='?WC.S2?',='?WC.S3?'
ZZZZ010242	11400	=   ,='''?WC.S1?''',='''?WC.S2?''',='''?WC.S3?'''
ZZZZ010242	11410	=   ,='?WC.D1?',='?WC.D2?',='?WC.D3?'
ZZZZ010242	11420	=   ,='''?WC.D1?''',='''?WC.D2?''',='''?WC.D3?'''
ZZZZ010242	11430	=   }JUMP{READ_NAME_FIN};
ZZZZ010242	11440	=IF{WN[1;1]<>''''}JUMP{READ_NAME_NUM};
ZZZZ010242	11450	=IF{WN[WN@LENGTH;1]<>''''}
ZZZZ010242	11460	=   SET{WC.ERR=''' NOT END "?WN?"'}JUMP{ERR_ERR};
ZZZZ010242	11470	=SET{_FIND_COUNT=WN+''''};
ZZZZ010242	11480	=COMPUTE_CUT{W0.EVEN=_FIND_COUNT*2,W0.EVEN/=2};
ZZZZ010242	11490	=IF{_FIND_COUNT<>W0.EVEN}
ZZZZ010242	11500	=   SET{WC.ERR=''' NOT ENEN "?WN?"'}JUMP{ERR_ERR};
ZZZZ010242	11510	=SET{W0.KEEP2=2,WN.KEEP2=WN};
ZZZZ010242	11520	=READ_NAME_LIT_LOOP:
ZZZZ010242	11530	=IF{W0.KEEP2>WN.KEEP2@LENGTH}JUMP{READ_NAME_FIN};
ZZZZ010242	11540	=SET{WN=WN.KEEP2[W0.KEEP2],W0=1};
ZZZZ010242	11550	=SET{_FIND_CHAR=WN+'?_Q?'};
ZZZZ010242	11560	=IF{_FIND_CHAR=0}JUMP{READ_NAME_FIN};
ZZZZ010242	11570	=COMPUTE{W0.STA=_FIND_CHAR+1};
ZZZZ010242	11580	=SET{_FIND_CHAR=WN[W0.STA]+'?_Q?'};
ZZZZ010242	11590	=IF{_FIND_CHAR=0}
ZZZZ010242	11600	=   SET{WC.ERR='"?_Q?" NOT FOUND "?WN?"'}JUMP{ERR_ERR};
ZZZZ010242	11610	=COMPUTE{W0.KEEP2+=W0.STA,W0.KEEP2+=_FIND_CHAR,W0.KEEP2-=1};
ZZZZ010242	11620	=COMPUTE{W0.LENGTH=_FIND_CHAR+1};
ZZZZ010242	11630	=SET{WN=WN[W0.STA-1;W0.LENGTH],W0=1};
ZZZZ010242	11640	=IF{WN=}SET{WC.ERR='?_Q??_Q? NAME SPACE'}JUMP{ERR_ERR};
ZZZZ010242	11650	COPY=NAME_CHK
ZZZZ010242	11660	=BACK{READ_NAME_LIT_LOOP};
ZZZZ010242	11670	=READ_NAME_NUM:
ZZZZ010242	11680	=SET{_FIND_CHAR=WN+'?_Q?'};
ZZZZ010242	11690	=IF{_FIND_CHAR>0}JUMP{READ_NAME_CHK};
ZZZZ010242	11700	=IF{WN[W0;1]='-',='+'} COMPUTE{W0+=1};
ZZZZ010242	11710	=READ_NAME_NUM_1:
ZZZZ010242	11720	=IF{W0>WN@LENGTH}JUMP{READ_NAME_FIN};
ZZZZ010242	11730	=IF{WN[W0;1]='.'}JUMP{READ_NAME_NUM_2};
ZZZZ010242	11740	=IF{WN[W0;1]<'0',>'9'}JUMP{READ_NAME_CHK};
ZZZZ010242	11750	=COMPUTE{W0+=1};
ZZZZ010242	11760	=BACK{READ_NAME_NUM_1};
ZZZZ010242	11770	=READ_NAME_NUM_2:
ZZZZ010242	11780	=IF{W0>WN@LENGTH}JUMP{READ_NAME_FIN};
ZZZZ010242	11790	=IF{WN[W0;1]<'0',>'9'}JUMP{READ_NAME_CHK};
ZZZZ010242	11800	=COMPUTE{W0+=1};BACK{READ_NAME_NUM_2};
ZZZZ010242	11810	=READ_NAME_CHK:
ZZZZ010242	11820	COPY=NAME_CHK
ZZZZ010242	11830	=READ_NAME_FIN:
ZZZZ010242	11840	NAME= (READ_NAME)
ZZZZ010242	11850	=JUMP{COMMA_NEXT};
ZZZZ010242	11860	=NOT_READ:
ZZZZ010242	11870	COPY=NAME_CHK
ZZZZ010242	11880	=JUMP{COMMA_NEXT};
ZZZZ010242	11890	*****( IF,SET,COMPUTE )**************************************
ZZZZ010242	11900	=IF_SET_COMPUTE:
ZZZZ010242	11910	=IF{WN<>}JUMP{IF_0};
ZZZZ010242	11920	=IF{W0.COMMA_CNT=W0.COMMA_MAX}IF{WC.LOGIC_END_SW=1}
ZZZZ010242	11930	=   JUMP{COMMA_NEXT};
ZZZZ010242	11940	=SET{WC.ERR='OPERAND SPACE'};JUMP{ERR_ERR};
ZZZZ010242	11950	=IF_0:
ZZZZ010242	11960	=SET{WC.CHK_KEY_KEEP=WC.CHK_KEY,W0.MAX=0,WN.KEEP=WN,W0=1};
ZZZZ010242	11970	*SET{WC.FIND='=?_TILDE?#$',WC.RIGHT_SW=0};
ZZZZ010242	11971	=SET{WC.FIND='=~#$',WC.RIGHT_SW=0};
ZZZZ010242	11980	=IF{WC.CHK_KEY='CM'}SET{WC.FIND+='+-*/%'};
ZZZZ010242	11990	=IF{WC.CHK_KEY='IF'}SET{WC.FIND+='!<>/%'''};
ZZZZ010242	12000	=IF{WC.CHK_KEY='ST'}SET{WC.FIND+='+'};
ZZZZ010242	12010	=IF_LOOP:
ZZZZ010242	12020	=SET{_FIND_CHAR=WN[W0]+WC.FIND};
ZZZZ010242	12030	=IF{_FIND_CHAR>0}JUMP{IF_1};
ZZZZ010242	12040	=IF{WC.LOGIC_END_SW=0}
ZZZZ010242	12050	=   SET{WC.ERR='"=" NOT FOUND "?WN?"'}JUMP{ERR_ERR};
ZZZZ010242	12060	=SET{WN.IF_0=WN};
ZZZZ010242	12070	=JUMP{IF_RUN};
ZZZZ010242	12080	=IF_1:
ZZZZ010242	12090	=COMPUTE{W0+=_FIND_CHAR};
ZZZZ010242	12100	=IF_NOT{WN[W0-1;1]=''''}JUMP{IF_11}; 引用符は次の引用符まで*
ZZZZ010242	12110	=SET{_FIND_CHAR=WN[W0]+''''};
ZZZZ010242	12120	=IF{_FIND_CHAR=0}SET{WC.ERR='"''" NOT FOUND "?WN?"'}
ZZZZ010242	12130	=   JUMP{ERR_ERR};
ZZZZ010242	12140	=COMPUTE{W0+=_FIND_CHAR};BACK{IF_LOOP};
ZZZZ010242	12150	=IF_11:
ZZZZ010242	12160	*IF_NOT{WN[W0-1;1]=_TILDE,='#',='$'}JUMP{IF_12};
ZZZZ010242	12161	=IF_NOT{WN[W0-1;1]='~',='#',='$'}JUMP{IF_12};
ZZZZ010242	12170	=IF{WN[W0;1]='+',='-',=WN[W0-1;1]}COMPUTE{W0+=1};
ZZZZ010242	12180	=BACK{IF_LOOP};
ZZZZ010242	12190	=IF_12:
ZZZZ010242	12200	=SET{WN.IF_0=WN[1;W0-2]};
ZZZZ010242	12210	=IF{WN[W0-1;1]='='}JUMP{IF_LEFT_END};
ZZZZ010242	12220	=SET{WC.X=WN[W0-1;1]};
ZZZZ010242	12230	=IF{WC.X='+',='-',='*',='/',='%'}
ZZZZ010242	12240	=   IF{WC.CHK_KEY='CM'}SET{WC.RIGHT_SW=1};
ZZZZ010242	12250	=IF_13:IF{WN[W0;1]='='}JUMP{IF_LEFT_END0};
ZZZZ010242	12260	=IF{WN[W0;1]='>'}IF{WC.X='<'}JUMP{IF_LEFT_END0};
ZZZZ010242	12270	=IF{WN[W0;1]='/',='%'}IF{WC.X='!'}JUMP{IF_LEFT_END0};
ZZZZ010242	12280	=IF{WC.X='<',='>'}JUMP{IF_LEFT_END};
ZZZZ010242	12290	=IF{WC.CHK_KEY='IF'}IF{WC.X='/',='%'}JUMP{IF_LEFT_END};
ZZZZ010242	12300	=IF{WN[W0;1]<>' '}JUMP{ERROR};
ZZZZ010242	12310	=COMPUTE{W0+=1};
ZZZZ010242	12320	=IF{W0>W0@LENGTH}
ZZZZ010242	12330	=   IF{WC.LOGIC_END_SW=0}
ZZZZ010242	12340	=   SET{WC.ERR='"=" NOT FOUND "?WN?"'}JUMP{ERR_ERR};
ZZZZ010242	12350	=BACK{IF_13};
ZZZZ010242	12360	=IF_LEFT_END0:
ZZZZ010242	12370	=COMPUTE{W0+=1};
ZZZZ010242	12380	=IF_LEFT_END:
ZZZZ010242	12390	=SET{W0.STA=W0};
ZZZZ010242	12400	=IF{WC.RIGHT_SW=1,WC.CHK_KEY='IF'}
ZZZZ010242	12410	=   SET{WN.IF_1=WN[W0.STA],W0.MAX=1}JUMP{IF_RUN};
ZZZZ010242	12420	*SET{WC.FIND='+?_TILDE?#$'};
ZZZZ010242	12421	=SET{WC.FIND='+~#$'};
ZZZZ010242	12430	=IF{WC.CHK_KEY='CM'}SET{WC.FIND+='-*/%'};
ZZZZ010242	12440	=IF{WC.CHK_KEY='ST'}SET{WC.FIND+=''''};
ZZZZ010242	12450	=IF_RIGHT_LOOP:
ZZZZ010242	12460	=SET{_FIND_CHAR=WN[W0]+WC.FIND};
ZZZZ010242	12470	=IF{_FIND_CHAR=0}JUMP{IF_RIGHT_END};
ZZZZ010242	12480	=COMPUTE{W0+=_FIND_CHAR};
ZZZZ010242	12490	=IF_NOT{WN[W0-1;1]=''''}JUMP{IF_RIGHT_1};
ZZZZ010242	12500	=SET{_FIND_CHAR=WN[W0]+''''};
ZZZZ010242	12510	=IF{_FIND_CHAR=0}SET{WC.ERR='"''" NOT FOUND "?WN?"'}
ZZZZ010242	12520	=   JUMP{ERR_ERR};
ZZZZ010242	12530	=COMPUTE{W0+=_FIND_CHAR};BACK{IF_RIGHT_LOOP};
ZZZZ010242	12540	=IF_RIGHT_1:
ZZZZ010242	12550	*IF_NOT{WN[W0-1;1]=_TILDE,='#',='$'}JUMP{IF_RIGHT_SEP};
ZZZZ010242	12551	=IF_NOT{WN[W0-1;1]='~',='#',='$'}JUMP{IF_RIGHT_SEP};
ZZZZ010242	12560	=IF{WN[W0;1]='+',='-',=WN[W0-1;1]}COMPUTE{W0+=1};
ZZZZ010242	12570	=BACK{IF_RIGHT_LOOP};
ZZZZ010242	12580	=IF_RIGHT_SEP:
ZZZZ010242	12590	=COMPUTE{W0.MAX+=1,W0.LEN=W0-W0.STA,-=1};
ZZZZ010242	12600	=SET{WN.IF_?W0.MAX?=WN[W0.STA;W0.LEN]};
ZZZZ010242	12610	=SET{W0.STA=W0};
ZZZZ010242	12620	=IF{WC.CHK_KEY='CM'}SET{WC.RIGHT_SW=1};
ZZZZ010242	12630	=IF{WC.CHK_KEY='ST'}BACK{IF_RIGHT_LOOP};
ZZZZ010242	12640	=IF_RIGHT_END:
ZZZZ010242	12650	=IF{WC.CHK_KEY='CM'}IF{WC.RIGHT_SW=0}
ZZZZ010242	12660	=   SET{WC.ERR='"+-*/%" NOT FOUND'}JUMP{ERR_ERR};
ZZZZ010242	12670	=COMPUTE{W0.MAX+=1};
ZZZZ010242	12680	=SET{WN.IF_?W0.MAX?=WN[W0.STA]};
ZZZZ010242	12690	=IF_RUN:
ZZZZ010242	12700	=SET{W0=1,WN=WN.IF_0@TRIM};
ZZZZ010242	12710	*SET{WC.CHK_KEY='NW'};
ZZZZ010242	12720	=IF{WN<>}JUMP{NOT_SPACE};
ZZZZ010242	12730	=IF{W0.COMMA_CNT=1}
ZZZZ010242	12740	=   SET{WC.ERR='LEFT NAME SPACE (?WN.KEEP?)'}JUMP{ERR_ERR};
ZZZZ010242	12750	=JUMP{SPACE};
ZZZZ010242	12760	=NOT_SPACE:
ZZZZ010242	12770	*IF{WC.CHK_KEY_KEEP<>'ST'}JUMP{NOT_SET};
ZZZZ010242	12780	=IF{WC.CHK_KEY<>'ST'}JUMP{NOT_SET};
ZZZZ010242	12790	*IF{WN[1;1]='%'}SET{WN=WN[2],WC.CHK_KEY='NR'};
ZZZZ010242	12800	*NOT_SET:IF{WC.CHK_KEY_KEEP='IF'}JUMP{IF};
ZZZZ010242	12810	=NOT_SET:IF{WC.CHK_KEY='IF'}JUMP{IF};
ZZZZ010242	12820	COPY=NAME_CHK
ZZZZ010242	12830	=JUMP{SPACE};
ZZZZ010242	12840	=IF:
ZZZZ010242	12850	*SET{WC.CHK_KEY='NR'};
ZZZZ010242	12860	COPY=READ_NAME
ZZZZ010242	12870	=SPACE:
ZZZZ010242	12880	=SET{WC.CHK_KEY='NR',W0.COUNT=1};
ZZZZ010242	12890	=IF_RUN_LOOP:
ZZZZ010242	12900	=IF{W0.COUNT>W0.MAX}JUMP{IF_FIN};
ZZZZ010242	12902	=IF_NAME_NOT{WN.IF_?W0.COUNT?}SET{WN.IF_?W0.COUNT?=}; ERROR*
ZZZZ010242	12910	=SET{WN=WN.IF_?W0.COUNT?,WN=WN@TRIM,W0=1};
ZZZZ010242	12920	=IF{WN<>}JUMP{NOT_SPACE};
ZZZZ010242	12930	=IF{W0.COUNT<W0.MAX}
ZZZZ010242	12940	=   SET{WC.ERR='RIGHT NAME SPACE (?WN.KEEP?)'}JUMP{ERR_ERR};
ZZZZ010242	12950	=JUMP{SPACE};
ZZZZ010242	12960	=NOT_SPACE:
ZZZZ010242	12970	COPY=READ_NAME
ZZZZ010242	12980	=SPACE:
ZZZZ010242	12990	=COMPUTE{W0.COUNT+=1};BACK{IF_RUN_LOOP};
ZZZZ010242	13000	=IF_FIN:
ZZZZ010242	13010	=SET{WC.CHK_KEY=WC.CHK_KEY_KEEP};
ZZZZ010242	13020	=JUMP{COMMA_NEXT};
ZZZZ010242	13030	***( ALIAS )*************************************************
ZZZZ010242	13040	=ALIAS_CHK:SET{WC.OP2='ALIAS'};
ZZZZ010242	13050	*=JUMP{COMMA_NEXT};
ZZZZ010242	13060	=SET{W0=1};
ZZZZ010242	13070	=LOOP:IF{W0>WN@LENGTH}JUMP{FIN};     判定終了*
ZZZZ010242	13080	=IF{W0=1}IF{WN[1;1]='&'}JUMP{NEXT_STEP};  先頭が&OK*
ZZZZ010242	13090	=IF{WN[W0;1]>='A'}IF{WN[W0;1]<='Z'}JUMP{NEXT_STEP}; 英字OK*
ZZZZ010242	13100	=IF{WN[W0;1]>='0'}IF{WN[W0;1]<='9'}JUMP{NEXT_STEP}; 数字OK*
ZZZZ010242	13110	=ERR:
ZZZZ010242	13120	=JUMP{ERROR};
ZZZZ010242	13130	=NEXT_STEP:COMPUTE{W0+=1};BACK{LOOP};
ZZZZ010242	13140	=FIN:
ZZZZ010242	13150	COPY=PROGRAM_FIND_LOWER_UPPER_PROGRAM
ZZZZ010242	13160	=SET{_FIND_STRING=WN.PROG+'-TABLE='};
ZZZZ010242	13170	=IF{_FIND_STRING>0}JUMP{COMMA_NEXT};
ZZZZ010242	13180	=SET{_FIND_STRING=WN.PROG+'-PROGRAM='};
ZZZZ010242	13190	=IF{_FIND_STRING>0}JUMP{COMMA_NEXT};
ZZZZ010242	13200	=SET{WC.PROGRAM_FIND_WHERE1=WC.KEEP_WHERE1};
ZZZZ010242	13210	=SET{WC.LIKE1='%+'+'PROGRAM=%,?WN?,%'};
ZZZZ010242	13220	=SET{WC.LIKE2='%+'+'TABLE=?WN?,%'};
ZZZZ010242	13230	COPY=PROGRAM_FIND_A
ZZZZ010242	13240	=   ?WC.PLUS_PROGRAM_SPACE_CUT? LIKE '?WC.LIKE1?'
ZZZZ010242	13250	=   OR ?WC.PLUS_PROGRAM_SPACE_CUT? LIKE '?WC.LIKE2?'
ZZZZ010242	13260	COPY=PROGRAM_FIND_B
ZZZZ010242	13270	=IF{_SQL_SET_COUNT=0}JUMP{COMMA_NEXT};
ZZZZ010242	13280	=SQL_SET{WN.PROG}{SELECT REPLACE('?SYSTEM_PROGRAM?',' ','')
ZZZZ010242	13290	=   ?_FROM_DUAL?};
ZZZZ010242	13300	=SET{_FIND_STRING=WN.PROG+'-PROGRAM='};
ZZZZ010242	13310	=IF{_FIND_STRING>0}JUMP{COMMA_NEXT};
ZZZZ010242	13320	=SET{_FIND_STRING=WN.PROG+'-TABLE='};
ZZZZ010242	13330	=IF{_FIND_STRING>0}JUMP{COMMA_NEXT};
ZZZZ010242	13331	=SET{_FIND_STRING=WN.PROG+'PROGRAM='};
ZZZZ010242	13332	=IF{_FIND_STRING>0}JUMP{COMMA_NEXT};
ZZZZ010242	13340	=SET{WC.ERR='SAME ALIAS (?WN?)'}
ZZZZ010242	13350	=JUMP{ERR_ERR};
ZZZZ010242	13360	=TABLE_CHK:SET{WC.OP2='TABLE'};
ZZZZ010242	13370	COPY=TABLE
ZZZZ010242	13380	=JUMP{COMMA_NAME_CHK};
ZZZZ010242	13390	=0A_CHK:
ZZZZ010242	13400	=IF{WN='*'}JUMP{NEXT_STEP};
ZZZZ010242	13410	=09_CHK:
ZZZZ010242	13420	=IF_ERROR_SET{W0.DUMMY=WN}JUMP{COMMA_NAME_CHK};
ZZZZ010242	13430	=IF{W0.DUMMY<0,>9}JUMP{ERROR};
ZZZZ010242	13440	=JUMP{NEXT_STEP};
ZZZZ010242	13450	=REPEAT:
ZZZZ010242	13460	=IF{WN=}JUMP{COMMA_NEXT};
ZZZZ010242	13470	=IF_ERROR_SET{W0.DUMMY=WN}JUMP{REPEAT_NOT_NUM};
ZZZZ010242	13480	=JUMP{COMMA_NEXT};
ZZZZ010242	13490	=W0=1;
ZZZZ010242	13500	=REPEAT_NOT_NUM:
ZZZZ010242	13510	*SET{_FIND_CHAR=WN[W0]+'-*/%?_TILDE?#$'};
ZZZZ010242	13511	=SET{_FIND_CHAR=WN[W0]+'-*/%~#$'};
ZZZZ010242	13520	=IF{_FIND_CHAR=0}JUMP{COMMA_NAME_CHK};
ZZZZ010242	13530	=COMPUTE{W0+=_FIND_CHAR};
ZZZZ010242	13540	*IF_NOT{WN[W0-1;1]='#',='$',=_TILDE}JUMP{REPEAT_2};
ZZZZ010242	13541	=IF_NOT{WN[W0-1;1]='#',='$',='~'}JUMP{REPEAT_2};
ZZZZ010242	13550	=IF{WN[W0;1]='+',='-',=WN[W0-1;1]}COMPUTE{W0+=1};
ZZZZ010242	13560	=BACK{REPEAT_NOT_NUM};
ZZZZ010242	13570	=REPEAT_2:
ZZZZ010242	13580	=SET{WN.KEEP=WN};
ZZZZ010242	13590	=SET{WN=WN.KEEP[1;W0-1],WN=WN@TRIM};
ZZZZ010242	13600	COPY=NAME_CHK
ZZZZ010242	13610	=COMPUTE{W0+=1};
ZZZZ010242	13620	=SET{WN=WN.KEEP[W0],WN=WN@TRIM};
ZZZZ010242	13630	=JUMP{COMMA_NAME_CHK};
ZZZZ010242	13640	=NEXT_STEP:JUMP{COMMA_NEXT};
ZZZZ010242	13650	=CREATE_TABLE:
ZZZZ010242	13660	=IF{WN=}IF{W0.COMMA_MAX=1}JUMP{COMMA_NEXT};
ZZZZ010242	13670	=IF{WN[1;1]='?_Q?'}JUMP{FIN};
ZZZZ010242	13680	COPY=NAME_CHK
ZZZZ010242	13690	=COMPUTE{W0.COMMA_CNT+=1};
ZZZZ010242	13700	=IF{W0.COMMA_CNT>W0.COMMA_MAX}JUMP{CREATE_TABLE_CNT_ERR};
ZZZZ010242	13710	=SET{WN=WC.SPLIT?W0.COMMA_CNT?};
ZZZZ010242	13720	=IF_ERROR_SET{W0.DUMMY=WN}JUMP{CREATE_TABLE_2};
ZZZZ010242	13730	=JUMP{COMMA_NEXT};
ZZZZ010242	13740	=CREATE_TABLE_2:
ZZZZ010242	13750	=IF{WN='*',='I',='F',='E',='DATE',='INT',='FLOAT'
ZZZZ010242	13760	=  ,='DATETIMAE'}JUMP{COMMA_NEXT};
ZZZZ010242	13770	=IF{WN='C',='V',='N',='NV',='CHAR',='VARCHAR',='NCHAR'
ZZZZ010242	13780	=   ,='NVARCHAR'}JUMP{CREATE_TABLE_3};
ZZZZ010242	13790	=IF{WN='D',='DECIMAL'}JUMP{CREATE_TABLE_4};
ZZZZ010242	13800	=SET{W0=1};JUMP{ERROR};
ZZZZ010242	13810	=CREATE_TABLE_CNT_ERR:
ZZZZ010242	13820	=IF{WC.LOGIC_END_SW=1}JUMP{COMMA_NEXT};
ZZZZ010242	13830	=SET{WC.ERR='TYPE COUNT UNDER "?WN?"'};JUMP{ERR_ERR};
ZZZZ010242	13840	=CREATE_TABLE_3:
ZZZZ010242	13850	=COMPUTE{W0.COMMA_CNT+=1};
ZZZZ010242	13860	=IF{W0.COMMA_CNT>W0.COMMA_MAX}
ZZZZ010242	13870	=   SET{WC.ERR='TYPE COUNT UNDER "?WN?"'}JUMP{ERR_ERR};
ZZZZ010242	13880	=SET{WN=WC.SPLIT?W0.COMMA_CNT?};
ZZZZ010242	13890	=IF_ERROR_SET{W0.DUMMY=WN}JUMP{CREATE_TABLE_NUM_ERROR};
ZZZZ010242	13900	=JUMP{COMMA_NEXT};
ZZZZ010242	13910	=CREATE_TABLE_4:
ZZZZ010242	13920	REPEAT=2
ZZZZ010242	13930	=COMPUTE{W0.COMMA_CNT+=1};
ZZZZ010242	13940	=IF{W0.COMMA_CNT>W0.COMMA_MAX}
ZZZZ010242	13950	=   SET{WC.ERR='TYPE COUNT UNDER "?WN?"'}JUMP{ERR_ERR};
ZZZZ010242	13960	=SET{WN=WC.SPLIT?W0.COMMA_CNT?};
ZZZZ010242	13970	=IF_ERROR_SET{W0.DUMMY=WN}JUMP{CREATE_TABLE_NUM_ERROR};
ZZZZ010242	13980	REPEAT= (2)
ZZZZ010242	13990	=JUMP{COMMA_NEXT};
ZZZZ010242	14000	=CREATE_TABLE_NUM_ERROR:
ZZZZ010242	14010	=SET{WC.ERR='NOT NUMERIC "?WN?"'};JUMP{ERR_ERR};
ZZZZ010242	14020	***( ETC5 各種設定値の判定 )*********************************
ZZZZ010242	14030	=PLURAL_ETC5_CHK:
ZZZZ010242	14040	COPY=SPLIT_COMMA
ZZZZ010242	14050	=SET{WC.ETC5_CHK_KEY=WC.CHK_KEY,WC.ETC5_CHK_DAT=WN};
ZZZZ010242	14060	COPY=ETC5_CHK
ZZZZ010242	14070	*NAME2=
ZZZZ010242	14080	=JUMP{COMMA_NEXT};
ZZZZ010242	14090	******( 名前の判定 )*******************************
ZZZZ010242	14100	=COMMA_NAME_CHK:
ZZZZ010242	14110	COPY=NAME_CHK
ZZZZ010242	14120	*****( コンマの次の処理 )*****************************
ZZZZ010242	14130	=COMMA_NEXT:COMPUTE{W0.COMMA_CNT+=1};
ZZZZ010242	14140	=IF{W0.ETC_NO!=1}SET{W0.ARGUMENT=W0.COMMA_CNT};
ZZZZ010242	14150	=IF{WC.CHK_KEY='E1'}SET{WC.CHK_KEY='E2'};
ZZZZ010242	14160	=IF{W0.COMMA_CNT<=W0.COMMA_MAX}BACK{COMMA_LOOP};
ZZZZ010242	14170	*****( 終了判定 )********************************************
ZZZZ010242	14180	=FIN:JUMP{CONTENTS_FIN};
ZZZZ010242	14190	=CONTENTS_FIN:
ZZZZ010242	14200	=IF{W0.ETC_NO=1}BACK{LOGIC_NEXT}; LOGIC 処理中*
ZZZZ010242	14210	=JUMP{PROGRAM_FIN};
ZZZZ010242	14220	*****( エラー処理 )******************************************
ZZZZ010242	14230	=MSG_ERR:
ZZZZ010242	14240	=IF{WC.COPY_SW=0}JUMP{ERR_ERR};
ZZZZ010242	14250	=MSG_MSG:
ZZZZ010242	14260	=SET{WC.MESSAGE='*(MESSAGE)* ?WC.OP??WC.OP2? ?WC.ERR? '};
ZZZZ010242	14270	*SET{SYSTEM_SEQ@COLOR='R255G191B255'};
ZZZZ010242	14280	*SET{SYSTEM_PROGRAM@COLOR='R255G191B255'};
ZZZZ010242	14290	=SET{MESSAGE=1,WC.ERROR_SW=2};
ZZZZ010242	14300	=IF_ERROR_SET{MSG=WC.MESSAGE}NOP{};
ZZZZ010242	14310	=SET{MSG@COLOR='Y'};
ZZZZ010242	14320	=JUMP{PROGRAM_FIN};
ZZZZ010242	14330	=ERROR:
ZZZZ010242	14340	=SET{WC.ERR='('+WN[W0;1]+')('+WN+')['+W0+';1]'};
ZZZZ010242	14350	=ERR_ERR:
ZZZZ010242	14360	*=IF{WN[W0;1]!=','}JUMP{ERR_ERR1}; 新はエラー回避*
ZZZZ010242	14370	*=IF{WC.CHK_COMMA<>','}JUMP{ERR_ERR1};
ZZZZ010242	14380	*=COMPUTE{W0+=1};
ZZZZ010242	14390	*=IF{W0>WN@LENGTH}JUMP{PROGRAM_FIN};
ZZZZ010242	14400	*=SET{WN.CONTENTS=WN[W0]};SET{WN.YYY=WN};
ZZZZ010242	14410	*=COMPUTE{W0.COMMA+=1};SET{WX.REPEAT_SW=0};
ZZZZ010242	14420	*=BACK{COMMA_LOOP};
ZZZZ010242	14430	*=JUMP{PROGRAM_FIN};
ZZZZ010242	14440	=ERR_ERR1:
ZZZZ010242	14450	=SET{WC.ERR='?WC.OP??WC.OP2? ?WC.ERR? ERROR'};
ZZZZ010242	14460	*SET{SYSTEM_PROGRAM@COLOR='R255G0B255',WC.ERROR_SW=1};
ZZZZ010242	14461	=SET{SYSTEM_PROGRAM@COLOR='Y',WC.ERROR_SW=1};
ZZZZ010242	14470	=IF_ERROR_SET{MSG=WC.MESSAGE}NOP{};
ZZZZ010242	14480	=SET{MSG@COLOR='R'};
ZZZZ010242	14490	%GRAMMAR_CHECK+=ERROR{?WC.ERR?};
ZZZZ010242	14500	=PROGRAM_FIN:
ZZZZ010243	100	DATA={*NC}FIND{9}
ZZZZ010243	200	SELECT=?WN.F?
ZZZZ010243	300	DATA={*NC}ORDER{1}
ZZZZ010243	400	SELECT=CASE WHEN Z_CANCEL>Z_CHANGE THEN
ZZZZ010243	500	SELECT=CASE WHEN Z_CANCEL>Z_ADD THEN Z_CANCEL ELSE Z_ADD END
ZZZZ010243	600	SELECT=ELSE CASE WHEN Z_CHANGE>Z_ADD THEN  Z_CHANGE
ZZZZ010243	700	SELECT=ELSE Z_ADD END END
ZZZZ010243	800	DATA={*NC}Z_CANCEL{17}
ZZZZ010243	810	DATA={*NC}MESSAGE{1}
ZZZZ010243	812	SELECT=' '
ZZZZ010243	900	STOP_AFTER
ZZZZ010243	1000	*IF{WC.ERROR_SW=1,_START=2,=3}SET{SYSTEM_PROGRAM@COLOR='W'};
ZZZZ010243	1010	=IF{WC.ERROR_SW=0}SET{SYSTEM_PROGRAM@COLOR='W'
ZZZZ010243	1020	=   ,SYSTEM_SEQ@COLOR='W'};
ZZZZ010243	1100	COPY=@ZZZZZZ_SQL
ZZZZ010243	1200	SQL=   ORDER BY ?WN.ORDER??WN.DEL??_T?.SYSTEM_SEQ
ZZZZ010243	1300	=IF{_PAGE_SW=}SET{_PAGE_SW=1,.SYSTEM_SEQ_NOW=SYSTEM_SEQ};
ZZZZ010244	100	*##( 2 )##( TABLE )#######################################
ZZZZ010244	200	*##( $WN.XOBJECT=INSERT DATA NAME)***********
ZZZZ010244	300	*##( $SYSTEM_JOB=JOB NAME )*************
ZZZZ010244	400	*##( $&.TABLE=TABLE NAME )*************
ZZZZ010244	500	*##( $WN.XWHERE=TABLE WHERE )************
ZZZZ010244	600	*##( $SYSTEM_PERMISSION=PERMISIION )*****
ZZZZ010244	700	%TABLE-COMMENT_BEGIN
ZZZZ010244	800	PROGRAM=NOT
ZZZZ010244	900	CONTROL=?$WN.BEGIN_ENTER?
ZZZZ010244	1000	DATA=$W0.TABLE_COUNT{1,,+}{(1,)}
ZZZZ010244	1100	JA+TITLE=テーブル数
ZZZZ010244	1200	REPEAT0=9
ZZZZ010244	1300	PROGRAM=OUTPUT
ZZZZ010244	1400	DICTIONARY=SYSTEM_WORK,SYSTEM_NAME
ZZZZ010244	1500	DICTIONARY=SYSTEM_PERMISSION,SYSTEM_GRANT
ZZZZ010244	1600	CONTROL=0
ZZZZ010244	1700	CONTROL=SQL_DBO
ZZZZ010244	1800	%TEST+CONTROL=SQL_TEST
ZZZZ010244	1900	JOB_PERMISSION=?$SYSTEM_PERMISSION?
ZZZZ010244	2000	BEGIN
ZZZZ010244	2100	=SET{_TRACE=1};
ZZZZ010244	2200	*SET{WC.MENU_TIME=$WC.MENU_TIME};
ZZZZ010244	2300	=SET{WN.M_W1='M',WN.M_W2='W'};
ZZZZ010244	2400	=SET{WM=_MP_?$WN.TEST?_ZZZZ+'ZZ'};
ZZZZ010244	2500	*SET{WN.JOB=$WN.JOB};
ZZZZ010244	2600	*=SET{SYSTEM_PERMISSION=$SYSTEM_PERMISSION};
ZZZZ010244	2700	*IF{PERMISSION=,PERMISSION=!DATA_NAME[1;4]}
ZZZZ010244	2800	*=  SET{.SYSTEM_NAME=!?_PP?_NAME};
ZZZZ010244	2900	=IF{.SYSTEM_NAME=}
ZZZZ010244	3000	=   SET{.SYSTEM_NAME=$SYSTEM_PERMISSION+$SYSTEM_PART};
ZZZZ010244	3100	SET={O}$W0.TABLE_COUNT{1}
ZZZZ010244	3200	TITLE=COUNT
ZZZZ010244	3300	SET={KO}$.?$&.SET&SYSTEM_JOB?
ZZZZ010244	3400	TITLE=JOB
ZZZZ010244	3500	$1-SET={O    }$WORK1?&DATA2&SYSTEM_WORK?
ZZZZ010244	3600	$1-TITLE=W
ZZZZ010244	3700	$1-SET={O,,80}$NAME1?&DATA2&SYSTEM_NAME?
ZZZZ010244	3800	$1-TITLE=N
ZZZZ010244	3900	REPEAT=$$-1,2
ZZZZ010244	4000	0-SET={O}$JOIN##{6}
ZZZZ010244	4100	0-TITLE= JOIN##
ZZZZ010244	4200	0-SET={O}$OTHER##{1}
ZZZZ010244	4300	0-TITLE=O
ZZZZ010244	4400	0-SET={O}$INDEX##{1}
ZZZZ010244	4500	0-TITLE=I
ZZZZ010244	4600	0-SET={O    }$WORK##?&DATA2&SYSTEM_WORK?
ZZZZ010244	4700	0-TITLE=W
ZZZZ010244	4800	0-SET={O,,80}$NAME##?&DATA2&SYSTEM_NAME?
ZZZZ010244	4900	0-TITLE=N
ZZZZ010244	5000	REPEAT=
ZZZZ010244	5100	$1+SET={N}JOIN$${6}
ZZZZ010244	5200	$1-SET=JOIN$${6}{INNER,LEFT,RIGHT,FULL}
ZZZZ010244	5300	CHECK=INNER,LEFT,RIGHT,FULL,INNER2,LEFT2,RIGHT2,FULL2
ZZZZ010244	5400	$1-TITLE=JOIN$$
ZZZZ010244	5500	$2+SET=OTHER$${1,1,9}{1}
ZZZZ010244	5600	$3+SET=OTHER$${1,1,9}{1,2}
ZZZZ010244	5700	$4+SET=OTHER$${1,1,9}{1,2,3}
ZZZZ010244	5800	$5+SET=OTHER$${1,1,9}{1,2,3,4}
ZZZZ010244	5900	$6+SET=OTHER$${1,1,9}{1,2,3,4,5}
ZZZZ010244	6000	$7+SET=OTHER$${1,1,9}{1,2,3,4,5,6}
ZZZZ010244	6100	$8+SET=OTHER$${1,1,9}{1,2,3,4,5,6,7}
ZZZZ010244	6200	$9+SET=OTHER$${1,1,9}{1,2,3,4,5,6,7,8}
ZZZZ010244	6300	$1-TITLE=OTHER$$
ZZZZ010244	6400	$1-SET=INDEX$${1,1,9}{0,1,2,3,4,5,6,7,8,9}
ZZZZ010244	6500	$1-TITLE=IX$$
ZZZZ010244	6600	SET=.?&SET&SYSTEM_NAME?
ZZZZ010244	6700	SET={O}O.=?$&.SET&SYSTEM_PERMISSION?
ZZZZ010244	6800	SET={O}.=?$&.SET&SYSTEM_PART?
ZZZZ010244	6900	SET={}.=?$&.SET&SYSTEM_PERMISSION?
ZZZZ010244	7000	CHECK2=SELECT SYSTEM_KEY2,SYSTEM_ETC FROM
ZZZZ010244	7100	CHECK2=?_MP_ZZZZ?ZZ_ETC_TABLE
ZZZZ010244	7200	CHECK2=WHERE SYSTEM_KEY1='ZZZZZZ_PERMISSION'
ZZZZ010244	7300	CHECK2=AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010244	7400	*O+=SET{_SQL_PERMISSION=_DATA};
ZZZZ010244	7500	START
ZZZZ010244	7600	%TEST+=SET{_REAL_TEST='TEST'};
ZZZZ010244	7700	=SET{WN.W=};
ZZZZ010244	7800	=IF{WORK$$='WORK'}JUMP{WORK};
ZZZZ010244	7900	=SET{WN.SYSTEM_NAME=_Q+'_MP_'+NAME$$[1;4]+_Q+NAME$$[5]};
ZZZZ010244	8000	=JUMP{SKIP};
ZZZZ010244	8100	=WORK:
ZZZZ010244	8200	=SET{WN.INPOUT='INP'};
ZZZZ010244	8300	=IF{NAME$$[5;1]='O'}SET{WN.INPOUT='OUT'};
ZZZZ010244	8400	=SET{WN.SYSTEM_NAME=
ZZZZ010244	8500	=   _Q+'_WP_'+WN.INPOUT+'_'+NAME$$[1;4]+_Q+NAME$$[6]};
ZZZZ010244	8600	=SKIP:
ZZZZ010244	8700	=IF_ERROR_SET_TABLE{&Y$$,?WN.SYSTEM_NAME?}ERROR{};
ZZZZ010244	8800	=IF{&Y$$.ALL_COUNT=0}ERROR{COLUMN NOT FOUND};
ZZZZ010244	8900	%TEST+=SET{_REAL_TEST='REAL'};
ZZZZ010244	9000	=IF{W0.TABLE_COUNT>$$}EXIT{}; 該当件数まで繰り返す。*
ZZZZ010244	9100	*****( JOIN TABLE 情報　設定 &Y$$)***********************。
ZZZZ010244	9200	%TEST+=SET{_REAL_TEST='TEST'};
ZZZZ010244	9300	REPEAT=$$
ZZZZ010244	9400	=SET{WN.W=};
ZZZZ010244	9500	=IF{$SYSTEM_PERMISSION!=NAME##[1;4]}
ZZZZ010244	9600	=   SET{WN.W='P_'+NAME##[1;4]};
ZZZZ010244	9700	=IF{WORK##='WORK'}JUMP{WORK};
ZZZZ010244	9800	=SET{WW=NAME##};
ZZZZ010244	9900	NAME=TABLE_MA_NAME##_$$
ZZZZ010244	10000	=SET{WN.TABLE_MA_NAME=};
ZZZZ010244	10100	=IF{'?$SYSTEM_PERMISSION??$SYSTEM_PART?'=WW[1;6]}
ZZZZ010244	10200	=   JUMP{TABLE_MA_NAME_END};
ZZZZ010244	10300	=SQL_SET{WC.PP}{SELECT SYSTEM_KEY2 FROM
ZZZZ010244	10400	=   ?_MP_ZZZZ?ZZ_ETC_TABLE
ZZZZ010244	10500	=   WHERE SYSTEM_KEY1
ZZZZ010244	10600	=  ='ZZZZZZ_PART2:?$SYSTEM_PERMISSION??$SYSTEM_PART?'
ZZZZ010244	10700	=   AND SYSTEM_ETC='?WW[1;6]?' AND Z_CANCEL=' 'ORDER BY 1};
ZZZZ010244	10800	=IF{_SQL_SET_COUNT>0}
ZZZZ010244	10900	=  SET{WN.TABLE_MA_NAME='?_Q?_MA_?WC.PP??_Q??WW[7]?'};
ZZZZ010244	11000	=TABLE_MA_NAME_END:
ZZZZ010244	11100	NAME=
ZZZZ010244	11200	=IF{WN.TABLE_MA_NAME!=}
ZZZZ010244	11300	=   SET{WN.NAME##=WN.TABLE_MA_NAME}JUMP{SKIP};
ZZZZ010244	11400	=IF{NAME##[1;6]!='?$SYSTEM_PERMISSION??$SYSTEM_PART?'}
ZZZZ010244	11500	=   SET{WN.NAME##=_Q+'_M'+WN.W+_Q+NAME##[5]}JUMP{};
ZZZZ010244	11600	=SET{   WN.NAME##=_Q+'_MM'+_Q+NAME##[7]};
ZZZZ010244	11700	=SET{WN.SYSTEM_NAME=_Q+'_MP_'+NAME##[1;4]+_Q+NAME##[5]};
ZZZZ010244	11800	=JUMP{SKIP};
ZZZZ010244	11900	=WORK:
ZZZZ010244	12000	=SET{WN.NAME##=_Q+'_W'+WN.W+_Q+NAME##[6]};
ZZZZ010244	12100	=SET{WN.INPOUT='INP'};
ZZZZ010244	12200	=IF{NAME##[5;1]='O'}SET{WN.INPOUT='OUT'};
ZZZZ010244	12300	=SET{WN.SYSTEM_NAME=
ZZZZ010244	12400	=   _Q+'_WP_'+WN.INPOUT+'_'+NAME##[1;4]+_Q+NAME##[6]};
ZZZZ010244	12500	=SKIP:
ZZZZ010244	12600	=IF_ERROR_SET_TABLE{&Y##,?WN.SYSTEM_NAME?}ERROR{};
ZZZZ010244	12700	=IF{&Y##.ALL_COUNT=0}ERROR{COLUMN NOT FOUND};
ZZZZ010244	12800	1+=SET{WN.OUTPUT=};
ZZZZ010244	12900	1+=IF{$SYSTEM_PROGRAM_KIND!='OUTPUT'}
ZZZZ010244	13000	1+=   IF{WN.W!=,&Y##.Z_CANCEL=0}SET{WN.OUTPUT='OUTPUT'};
ZZZZ010244	13100	1+=SET{WN.AS##=,WN.AO##=};
ZZZZ010244	13200	1-=SET{WN.AS##='*',WN.AO##='*OC'};
ZZZZ010244	13300	REPEAT=
ZZZZ010244	13400	%TEST+=SET{_REAL_TEST='REAL'};
ZZZZ010244	13500	*****( 初期文字列構成 ?WN.INSERT??W0.SEQ?,'?WN.PROG?')};
ZZZZ010244	13600	=SET{WN.INSERT='INSERT INTO ?$&.TABLE?'
ZZZZ010244	13700	=   +'(?_Z_INSERT_NAME?,SYSTEM_JOB,SYSTEM_SEQ,?$WN.XOBJECT?)'
ZZZZ010244	13800	=   +'VALUES(?_Z_INSERT_VALUE?,''?.SYSTEM_JOB?'','};
ZZZZ010244	13900	***( 開始番号　決定 W0.SEQ=番号、W0.ADD=増分 )***
ZZZZ010244	14000	=SET{_JOB_PERMISSION='ZZZZ'};
ZZZZ010244	14100	=SET{W0.CNT=0,W0.SEQ=0};
ZZZZ010244	14200	=SQL_SET{W0.SEQ,W0.CNT}{SELECT MAX(SYSTEM_SEQ),COUNT(*) FROM
ZZZZ010244	14300	=   ?$&.TABLE? WHERE ?$WN.XWHERE?};
ZZZZ010244	14400	=SET{W0.ADD=100};IF{W0.CNT>900}SET{W0.ADD=10};
ZZZZ010244	14500	=IF_ERROR_COMPUTE{W0.SEQ/=W0.ADD}NOP{};
ZZZZ010244	14600	=COMPUTE{W0.SEQ*=W0.ADD,+=W0.ADD};
ZZZZ010244	14700	*****( PROGRAM=,JOIN )********************************
ZZZZ010244	14800	REPEAT=$$
ZZZZ010244	14900	1+=IF{$S_RUN='MENU'}SET{
ZZZZ010244	15000	1+=   WN.PROG='PROGRAM='+WN.OUTPUT+',&X##,'+WN.NAME##}JUMP{};
ZZZZ010244	15100	1+=SET{WN.PROG='FROM=&X##,'+WN.NAME##};
ZZZZ010244	15200	1-=SET{WN.JOIN=};IF{&Y##.Z_CANCEL=0}SET{WN.JOIN=2};
ZZZZ010244	15300	1-=SET{WN.OTHER=};IF{OTHER##!=1}SET{WN.OTHER='&X'+OTHER##};
ZZZZ010244	15400	1-=SET{WN.PROG=JOIN##+WN.JOIN+'=&X##,'+WN.NAME##+
ZZZZ010244	15500	1-=   ','+WN.OTHER+','+INDEX##};
ZZZZ010244	15600	=COMPUTE{W0.SEQ+=W0.ADD};
ZZZZ010244	15700	=SQL{?WN.INSERT??W0.SEQ?,'?WN.PROG?')};
ZZZZ010244	15800	*=SET{W0.X=W0.TABLE_COUNT};
ZZZZ010244	15900	REPEAT=
ZZZZ010244	16000	=IF{$S_RUN='MENU'}JUMP{MENU};
ZZZZ010244	16100	*****( TIME )*******************************
ZZZZ010244	16200	=SET{W0.X=W0.TABLE_COUNT,W0.WORK=0,WN.ALIAS2=};
ZZZZ010244	16300	REPEAT=$$
ZZZZ010244	16400	1-=SET{WN.ALIAS2='X##'};
ZZZZ010244	16500	=SET{W0.CNT=1};
ZZZZ010244	16600	=LOOP:SET{WDN=&Y##.ALL_?W0.CNT?,WN.DATA_NAME=WDN};
ZZZZ010244	16700	*IF{WDN[1;4]=$SYSTEM_PERMISSION}
ZZZZ010244	16800	*   SET{WN.DATA_NAME=_TT+WDN[5]};
ZZZZ010244	16900	*IF{WDN[1;6]='?$SYSTEM_PERMISSION??$SYSTEM_PART?'}
ZZZZ010244	17000	*   SET{WN.DATA_NAME='~'+'+'+WDN[7]};
ZZZZ010244	17100	=SET{W0.W=1};
ZZZZ010244	17200	=LOOP2:IF{W0.W>W0.WORK}JUMP{NOT_FIND};
ZZZZ010244	17300	=IF{WN.WORK?W0.W?=WDN}JUMP{FIND};
ZZZZ010244	17400	=COMPUTE{W0.W+=1};BACK{LOOP2};
ZZZZ010244	17500	=NOT_FIND:SET{WN.WORK?W0.W?=WDN};COMPUTE{W0.WORK+=1};
ZZZZ010244	17600	=SET{WN.WK='WORK='};
ZZZZ010244	17700	=JUMP{OUT};
ZZZZ010244	17800	=FIND:SET{WN.WK='*WORK='+WN.ALIAS2+'.'};
ZZZZ010244	17900	=OUT:
ZZZZ010244	18000	=SET{WN.PROG=
ZZZZ010244	18100	=   WN.WK+'?_Q?&'+WN.ALIAS2+'.DATA&'+WN.DATA_NAME+_Q};
ZZZZ010244	18200	=COMPUTE{W0.SEQ+=W0.ADD};
ZZZZ010244	18300	=SQL{?WN.INSERT??W0.SEQ?,'?WN.PROG?')};
ZZZZ010244	18400	=NEXT:COMPUTE{W0.CNT+=1};
ZZZZ010244	18500	=IF{W0.CNT<=&Y##.ALL_COUNT}BACK{LOOP};
ZZZZ010244	18600	REPEAT=
ZZZZ010244	18700	**=JUMP{END_EXIT};
ZZZZ010244	18800	=JUMP{END};
ZZZZ010244	18900	*****( MENU )*******************************
ZZZZ010244	19000	=MENU:
ZZZZ010244	19100	*****( TABLE=(LEFT))*****
ZZZZ010244	19200	=SET{W0.X=W0.TABLE_COUNT};
ZZZZ010244	19300	REPEAT=$$
ZZZZ010244	19400	O+=SET{_JOB_PERMISSION='ZZZZ'};
ZZZZ010244	19500	NAME=ZZZZ42BEGIN$$##
ZZZZ010244	19600	=SET{W0.CNT=1};
ZZZZ010244	19700	*1+=SET{WN.MY1S=,WN.MY2=};
ZZZZ010244	19710	1+=SET{WN.MY1S='.',WN.MY2=}; VER36.00060003*
ZZZZ010244	19800	*1+=SET{WN.MY1D='.',WN.MY2=}; VER18.1
ZZZZ010244	19900	*1+=SET{WN.MY1D='.',WN.MY2=}; VER18.1*
ZZZZ010244	19920	1+=SET{WN.MY1D='',WN.MY2=}; VER36.00060003*
ZZZZ010244	20000	1-=SET{WN.MY1S='SX##.',WN.MY2= 'X##'};
ZZZZ010244	20100	1-=SET{WN.MY1D='X##.',WN.MY2= 'X##'};
ZZZZ010244	20200	=LOOP:SET{WDN=&Y##.ALL_?W0.CNT?,WN.DATA_NAME=WDN};
ZZZZ010244	20300	*IF{WDN[1;4]=$SYSTEM_PERMISSION}
ZZZZ010244	20400	*   SET{WN.DATA_NAME=_TT+WDN[5]};
ZZZZ010244	20500	*IF{WDN[1;6]='?$SYSTEM_PERMISSION??$SYSTEM_PART?'}
ZZZZ010244	20600	*   SET{WN.DATA_NAME='~'+'+'+WDN[7]};
ZZZZ010244	20700	=SET{WN.2_SW=1};
ZZZZ010244	20800	*IF{&Y##.CHECK&?WDN?[1;8]='LISTBOX2',='SECTION2'}JUMP{OK};
ZZZZ010244	20900	=IF{&Y##.CHECK&?WDN?/'SELECT2'
ZZZZ010244	21000	=   ,/'LISTBOX2',/'SECTION2'}JUMP{OK};
ZZZZ010244	21100	=SET{WN.2_SW=0};
ZZZZ010244	21200	*IF{&Y##.CHECK&?WDN?[1;8]='LISTBOX1',='SECTION1'}JUMP{OK};
ZZZZ010244	21300	=IF{&Y##.CHECK&?WDN?/'SELECT1'
ZZZZ010244	21400	=   ,/'LISTBOX1',/'SECTION1'}JUMP{OK};
ZZZZ010244	21500	=JUMP{SKIP};
ZZZZ010244	21600	=OK:SET{WW=&Y##.CHECK61&?WDN?,WN.TABLE_NAME=WW};
ZZZZ010244	21700	=SET{WN.AP=',&'};
ZZZZ010244	21800	=IF{WW[1;12]
ZZZZ010244	21900	=   !='?_Q?_MP_?$SYSTEM_PERMISSION??_Q??$SYSTEM_PART?'}
ZZZZ010244	22000	=   JUMP{M};
ZZZZ010244	22100	=SET{WN.TABLE_NAME='?_Q?_MM?_Q??WW[13]?'};
ZZZZ010244	22200	=JUMP{M9};
ZZZZ010244	22300	=M:
ZZZZ010244	22400	COPY=TABLE_MA_NAME1_1
ZZZZ010244	22500	=IF{WN.TABLE_MA_NAME!=}
ZZZZ010244	22600	=   SET{WN.TABLE_NAME=WN.TABLE_MA_NAME}JUMP{SKIP};
ZZZZ010244	22700	=M1:IF{WW[1;10]='?_Q?_MP_?$SYSTEM_PERMISSION??_Q?'}
ZZZZ010244	22800	=   SET{WN.TABLE_NAME='?_Q?_M?_Q??WW[11]?'};
ZZZZ010244	22900	=M9:IF{WN.TABLE_NAME=WN.NAME##}JUMP{SKIP};
ZZZZ010244	23000	=M10:COMPUTE{W0.X+=1};
ZZZZ010244	23100	=SET{WN.ALIAS1=',X?W0.X?',WN.ALIAS2='X?W0.X?'};
ZZZZ010244	23200	=JUMP{END};
ZZZZ010244	23300	=SKIP:
ZZZZ010244	23400	=SET{WN.TABLE_NAME=,WN.ALIAS1=,WN.ALIAS2=,WN.AP=,WN.2_SW=0};
ZZZZ010244	23500	=END:
ZZZZ010244	23600	NAME=
ZZZZ010244	23610	=IF_NAME_NOT{WN.TABLE_NAME}SET{WN.TABLE_NAME=}; BAG*
ZZZZ010244	23700	=IF{WN.TABLE_NAME=}JUMP{NEXT_STEP};
ZZZZ010244	23800	=SET{WN.PROG='TABLE=&X?W0.X?,?WN.TABLE_NAME?'};
ZZZZ010244	23900	NAME=ZZZZ42END$$##A
ZZZZ010244	24000	=COMPUTE{W0.SEQ+=W0.ADD};
ZZZZ010244	24100	=SQL{?WN.INSERT??W0.SEQ?,'?WN.PROG?')};
ZZZZ010244	24200	NAME=
ZZZZ010244	24300	=NEXT_STEP:
ZZZZ010244	24400	NAME=ZZZZ42END$$##B
ZZZZ010244	24500	=COMPUTE{W0.CNT+=1};
ZZZZ010244	24600	=IF{W0.CNT<=&Y##.ALL_COUNT}BACK{LOOP};
ZZZZ010244	24700	NAME=
ZZZZ010244	24800	REPEAT=
ZZZZ010244	24900	*****( SET= )*****
ZZZZ010244	24910	=IF{S_RUN='TIME'}JUMP{SKIP_TIME}; VER32*
ZZZZ010244	25000	=SET{W0.X=W0.TABLE_COUNT};
ZZZZ010244	25100	REPEAT=$$
ZZZZ010244	25200	COPY=ZZZZ42BEGIN$$##
ZZZZ010244	25300	=SET{WN.COM=WN.AS##};IF{&Y##.KEY&?WDN?!='K'}SET{WN.COM='*'};
ZZZZ010244	25400	=SET{WN.PROG=
ZZZZ010244	25500	***=   '?WN.COM?SET={?WN.ALIAS1?}?WN.MY1S?'+ VER23.1
ZZZZ010244	25600	=   '?WN.COM?SET={}?WN.MY1S?'+
ZZZZ010244	25700	=   '?_Q?&?WN.MY2?.SET&?WN.DATA_NAME??_Q?'};
ZZZZ010244	25800	NAME2=ZZZZ42CHECK63$$##
ZZZZ010244	25900	=COMPUTE{W0.SEQ+=W0.ADD};
ZZZZ010244	26000	=SQL{?WN.INSERT??W0.SEQ?,'?WN.PROG?')};
ZZZZ010244	26100	=IF{WN.2_SW=0}JUMP{NEXT_STEP};
ZZZZ010244	26200	=SET{WN.DATA_NAME=&Y##.CHECK63&?WDN?,W=WN.DATA_NAME};
ZZZZ010244	26300	*IF{W[1;4]=$SYSTEM_PERMISSION}
ZZZZ010244	26400	*   SET{WN.DATA_NAME=_TT+W[5]};
ZZZZ010244	26500	*IF{W[1;6]='?$SYSTEM_PERMISSION??$SYSTEM_PART?'}
ZZZZ010244	26600	*  SET{WN.DATA_NAME='~'+'+'+W[7]};
ZZZZ010244	26700	NAME2=
ZZZZ010244	26800	=SET{WN.PROG='*SET={}'+
ZZZZ010244	26900	= +'S?WN.ALIAS2?.?_Q?&?WN.ALIAS2?.SET&?WN.DATA_NAME??_Q?'};
ZZZZ010244	27000	COPY=ZZZZ42END$$##A
ZZZZ010244	27100	=NEXT_STEP:
ZZZZ010244	27200	COPY=ZZZZ42END$$##B
ZZZZ010244	27300	REPEAT=
ZZZZ010244	27400	*****( FOREIGN )***( VER32.1 )***************
ZZZZ010244	27500	$1+=IF{&Y1.KEY_COUNT!=1}JUMP{FOREIGN_SKIP};
ZZZZ010244	27600	$1+=SQL_SET{W0CNT}{SELECT COUNT(*) FROM
ZZZZ010244	27700	$1+=   ?_MP_ZZZZ?ZZ_I_DICTIONARY_TABLE WHERE
ZZZZ010244	27800	$1+=   SYSTEM_CHECK LIKE 'SELECT%'
ZZZZ010244	27900	$1+=   AND SYSTEM_CHECK61='?_Q?_MM?_Q??NAME1[7]?'
ZZZZ010244	27910	$1+=   AND SYSTEM_CHECK62=SYSTEM_DATA_NAME
ZZZZ010244	28000	$1+=   AND SYSTEM_PERMISSION='?O.SYSTEM_PERMISSION?'};
ZZZZ010244	28020	$1+=SET{WN.PROG='COPY=@ZZZZZZ_START_1_FOREIGN'};
ZZZZ010244	28090	$1+COPY=ZZZZ42END11A
ZZZZ010244	28100	$1+=FOREIGN_SKIP:
ZZZZ010244	28200	*****( DATA= )*****
ZZZZ010244	28300	=SET{W0.X=W0.TABLE_COUNT};
ZZZZ010244	28400	REPEAT=$$
ZZZZ010244	28500	COPY=ZZZZ42BEGIN$$##
ZZZZ010244	28600	1+=SET{WK=};IF{'K'=&Y##.KEY&?WDN?}SET{WK='K'};
ZZZZ010244	28700	=SET{WN.TITLE=&Y##.TITLE&?WDN?};
ZZZZ010244	28800	=SET{WN.PROG='*****( ?WN.TITLE? )*****'};
ZZZZ010244	28900	=COMPUTE{W0.SEQ+=W0.ADD};
ZZZZ010244	29000	=SQL{?WN.INSERT??W0.SEQ?,'?WN.PROG?')};
ZZZZ010244	29100	=SET{WN.PROG='DATA={?WK??WN.AO##??WN.AP??WN.ALIAS2?}'+
ZZZZ010244	29200	=   '?WN.MY1D??_Q?&?WN.MY2?.DATA&?WN.DATA_NAME??_Q?'};
ZZZZ010244	29300	COPY=ZZZZ42CHECK63$$##
ZZZZ010244	29400	=SET{WN.PROG='DATA={*OC}'+
ZZZZ010244	29500	=   '?WN.ALIAS2?.?_Q?&?WN.ALIAS2?.DATA&?WN.DATA_NAME??_Q?'};
ZZZZ010244	29600	COPY=ZZZZ42END$$##A
ZZZZ010244	29700	=NEXT_STEP:
ZZZZ010244	29800	COPY=ZZZZ42END$$##B
ZZZZ010244	29900	REPEAT=
ZZZZ010244	30000	*****( SQL= )*****
ZZZZ010244	30100	=SET{WN.PROG='COPY=@ZZZZZZ_SQL'};
ZZZZ010244	30200	=COMPUTE{W0.SEQ+=W0.ADD};
ZZZZ010244	30300	=SQL{?WN.INSERT??W0.SEQ?,'?WN.PROG?')};
ZZZZ010244	30310	=SKIP_TIME:    VER32*
ZZZZ010244	30400	=COMPUTE{W0.RETURN=W0.TABLE_COUNT+1};
ZZZZ010244	30500	=SET{_RETURN_SQL=1};EXIT{-?W0.RETURN?};
ZZZZ010244	30600	DATA={KO}WORK$$?&DATA2&SYSTEM_WORK?
ZZZZ010244	30700	DATA={KO}NAME$$?&DATA2&SYSTEM_NAME?
ZZZZ010244	30800	REPEAT=2
ZZZZ010244	30900	SQL=?_UNION##? SELECT T.SYSTEM_WORK,T.SYSTEM_NAME
ZZZZ010244	31000	SQL= FROM ?WM?_?WN.M_W##?_?SYSTEM_PERMISSION?_OBJECT_VIEW T
ZZZZ010244	31100	1+SQL=   ,?WM?_?WN.M_W##?_?SYSTEM_PERMISSION?_GRANT_VIEW G
ZZZZ010244	31200	SQL=   WHERE T.SYSTEM_KIND IN('TABLE','VIEW')
ZZZZ010244	31300	SQL=   AND T.SYSTEM_NAME LIKE '?.SYSTEM_NAME?%'
ZZZZ010244	31400	SQL=   AND T.SYSTEM_NAME LIKE '?.SYSTEM_PERMISSION?%'
ZZZZ010244	31500	1+SQL=   AND G.SYSTEM_NAME=T.SYSTEM_NAME AND SYSTEM_GRANT IN(
ZZZZ010244	31600	*O-1+SQL='?$.SYSTEM_PROGRAM_KIND[1;1]?_?$SYSTEM_PERMISSION?'
ZZZZ010244	31700	*O+1+SQL='I_?$SYSTEM_PERMISSION?'
ZZZZ010244	31800	1+SQL=   'I_?$SYSTEM_PERMISSION?'
ZZZZ010244	31900	1+SQL=   ,'PUBLIC')
ZZZZ010244	32000	2+SQL=   AND T.SYSTEM_NAME LIKE
ZZZZ010244	32100	2+SQL= '?.SYSTEM_PERMISSION?__?$SYSTEM_PROGRAM_KIND[1;1]?%'
ZZZZ010244	32200	2+SQL=   AND T.SYSTEM_NAME LIKE
ZZZZ010244	32300	2+SQL= '?$SYSTEM_PERMISSION?__?$SYSTEM_PROGRAM_KIND[1;1]?%'
ZZZZ010244	32400	REPEAT=_ORDER_COUNT
ZZZZ010244	32500	SQL=   ?_ORDER##?
ZZZZ010244	32600	REPEAT0=
ZZZZ010244	32700	%TABLE-COMMENT_END
ZZZZ010244	32800	%ADD-COMMENT_BEGIN
ZZZZ010244	32900	PROGRAM=OUTPUT,&X1,?_MM?_ETC_TABLE
ZZZZ010244	33000	CONTROL=0,SCROLL,BEGIN_ENTER
ZZZZ010244	33100	BEGIN
ZZZZ010244	33200	*SET{WC.MENU_TIME=$WC.MENU_TIME};
ZZZZ010244	33300	=SET{.SYSTEM_KEY2=$WN.3};
ZZZZ010244	33400	SET={O,*}$.?$&.DATA&SYSTEM_JOB?
ZZZZ010244	33500	SET={O,*}$S_RUN{4}(MENU,TIME)
ZZZZ010244	33600	SET={O,*}$W0.SYSTEM_SEQ{5,,+}SEQ
ZZZZ010244	33700	SET={}.?&.SET&SYSTEM_KEY2?
ZZZZ010244	33800	START
ZZZZ010244	33900	*SET{WN1=,WN2=,WN3=SYSTEM_KEY2};
ZZZZ010244	33901	=SPLIT_CHAR{WN}{SYSTEM_KEY2}{'//'};
ZZZZ010244	34000	COPY=ADD
ZZZZ010244	34100	=SET{_RETURN_SQL=1};
ZZZZ010244	34200	=EXIT{-1};
ZZZZ010244	34300	=NG:ERROR{PROGRAM MISS};
ZZZZ010244	34400	DATA=?&.DATA&SYSTEM_ETC?
ZZZZ010244	34500	DATA=?&.DATA&SYSTEM_KEY2?
ZZZZ010244	34600	SQL=SELECT ?_1?
ZZZZ010244	34700	*QL=  ,REPLACE(?_SUBSTR((_2);1;29)?,'//','')
ZZZZ010244	34710	SQL=  ,?_SUBSTR((_2);3;27)?
ZZZZ010244	34800	SQL=   FROM ?_TABLE? ?_T? WHERE SYSTEM_KEY1='ZZZZZZ_PROGRAM'
ZZZZ010244	34900	SQL=   AND SYSTEM_KEY2 LIKE '//?SYSTEM_KEY2?%'
ZZZZ010244	35000	SQL=   AND Z_CANCEL=' '
ZZZZ010244	35100	SQL=   AND ?_SUBSTR(SYSTEM_COMMENT;1;2)?
ZZZZ010244	35200	SQL=   IN('//','?S_RUN[1;1]?/')
ZZZZ010244	35300	REPEAT=_ORDER_COUNT
ZZZZ010244	35400	SQL=?_ORDER##?
ZZZZ010244	35500	REPEAT=
ZZZZ010244	35600	%ADD-COMMENT_END
ZZZZ010244	35700	%FC-COMMENT_BEGIN
ZZZZ010244	35800	PROGRAM=OUTPUT
ZZZZ010244	35900	CONTROL=0,BEGIN_ENTER
ZZZZ010244	36000	BEGIN
ZZZZ010244	36100	*SET{WC.MENU_TIME=$WC.MENU_TIME};
ZZZZ010244	36200	REPEAT=$W0.REPEAT
ZZZZ010244	36300	=SET{WN.##=#?$WN.FC?_##};
ZZZZ010244	36400	REPEAT=
ZZZZ010244	36500	START
ZZZZ010244	36600	=IF{S_CMD!=}SET{#CMD=S_CMD,_RETURN_SQL=1};
ZZZZ010244	36700	=EXIT{-1};
ZZZZ010244	36800	DATA=S_CMD{60}
ZZZZ010244	36900	SQL=SELECT ' ' ?_FROM_DUAL?
ZZZZ010244	37000	REPEAT=$W0.REPEAT
ZZZZ010244	37100	SQL=UNION SELECT '?WN.##?' ?_FROM_DUAL?
ZZZZ010244	37200	REPEAT=_ORDER_COUNT
ZZZZ010244	37300	SQL=   ?_ORDER##?
ZZZZ010244	37400	REPEAT=
ZZZZ010244	37500	%FC-COMMENT_END
ZZZZ010245	100	*$WN.XTABLE=TABLE_NAME
ZZZZ010245	200	*$WN.XTABLEI=TABLE_IN
ZZZZ010245	300	*$WN.XKEY=KEY_NAME
ZZZZ010245	400	*$WN.XKEYCOPY=KEY_COPY_NAME
ZZZZ010245	500	*$WN.XKEYDATA=KEY_DATA
ZZZZ010245	600	*$WN.XKEYVALUE=KEY_VALUE
ZZZZ010245	700	*$WN.XOBJECT=OBJECT_NAME
ZZZZ010245	800	*$WN.XOBJECTDATA=OBJECT_DATA
ZZZZ010245	900	*$WN.XWHERE=WHERE_STRINGS
ZZZZ010245	1000	***( COPY,CANCEL,MOVE )**************************************
ZZZZ010245	1100	PROGRAM=OUTPUT,&X1,?$WN.XTABLE?
ZZZZ010245	1200	CONTROL=0,ERROR_SQL
ZZZZ010245	1300	COLOR
ZZZZ010245	1400	COPY=COLOR
ZZZZ010245	1500	BEGIN
ZZZZ010245	1600	=SET{_TRACE=1};
ZZZZ010245	1700	=SET{WC.MENU_TIME=$WC.MENU_TIME};
ZZZZ010245	1800	=SET{S1.?$WN.XKEY?=$WN.XKEYCOPY
ZZZZ010245	1900	=   ,.?$WN.XKEY?=$WN.XKEYCOPY,WN.XKEYCOPY=$WN.XKEYCOPY};
ZZZZ010245	2000	=SET{S1.SYSTEM_SEQ=$SYSTEM_SEQ
ZZZZ010245	2100	=   ,S1.?$WN.XOBJECT?=$?$WN.XOBJECT?};
ZZZZ010245	2200	=SQL_SET{COUNT,W0.CEND}
ZZZZ010245	2300	=  {SELECT CASE WHEN MIN(SYSTEM_SEQ) IS NULL THEN -1 ELSE
ZZZZ010245	2400	=   MIN(SYSTEM_SEQ)-?S1.SYSTEM_SEQ?-1 END,MIN(SYSTEM_SEQ)
ZZZZ010245	2500	=   FROM ?_TABLE?
ZZZZ010245	2600	=   WHERE ?$WN.XWHERE? AND SYSTEM_SEQ>?S1.SYSTEM_SEQ?
ZZZZ010245	2700	=   AND Z_CANCEL=' '};
ZZZZ010245	2800	=IF{COUNT=0}SET{WN.OPTION='CANCEL'}EXIT{};
ZZZZ010245	2900	=IF{COUNT<0}SET{COUNT=0,W0.CEND=99999};
ZZZZ010245	3000	%COPY-=SET{WN.OPTION=',COPY,CANCEL,MOVE'};
ZZZZ010245	3100	%COPY+=SET{WN.OPTION=',COPY',OPTION='COPY'};
ZZZZ010245	3200	START
ZZZZ010245	3300	MESSAGE=BEGEN SEQUENCE(COPY,MOVE),END SQUENCE(CANCEL)
ZZZZ010245	3400	SET={O}COUNT{5,,-}
ZZZZ010245	3500	SET={O,,80}S1.?$WN.XKEYDATA?
ZZZZ010245	3600	SET={O}S1.?&.SET&SYSTEM_SEQ?
ZZZZ010245	3700	SET={O}S1.?$WN.XOBJECTDATA?
ZZZZ010245	3800	TITLE=
ZZZZ010245	3900	SET={?$WN.OPTION_O?}OPTION{7,,}{?WN.OPTION?}
ZZZZ010245	4000	=SET{%COPY='-',%CANCEL='-',%MOVE='-'};
ZZZZ010245	4100	=IF{_DATA='COPY'}  SET{%COPY='+'};
ZZZZ010245	4200	=IF{_DATA='CANCEL'}SET{%CANCEL='+'};
ZZZZ010245	4300	=IF{_DATA='MOVE'}  SET{%MOVE='+'};
ZZZZ010245	4400	=IF{_DATA=}EXIT{_END};
ZZZZ010245	4500	=SET{WN.H='AND ?_T?.SYSTEM_SEQ>=?S1.SYSTEM_SEQ?'};
ZZZZ010245	4600	=IF{_DATA!='CANCEL'}SET{WN.H=};
ZZZZ010245	4700	=IF{_DATA='COPY'}EXIT{};
ZZZZ010245	4800	=SET{SAVE=,LINK_SERVER=
ZZZZ010245	4900	=   ,.?$WN.XKEY?=$.?$WN.XKEY?};EXIT2{LINK_SERVER};
ZZZZ010245	5000	SET={}.?$WN.XKEYDATA?
ZZZZ010245	5100	=SET{WN.XKEYCOPY=_DATA};
ZZZZ010245	5200	SET={}SAVE{3}{,YES}SAVE(MORNING)
ZZZZ010245	5300	=IF{_DATA!='YES'}EXIT{};
ZZZZ010245	5400	=SET{LINK_SERVER=}EXIT2{LINK_SERVER};
ZZZZ010245	5500	SET={}LINK_SERVER{8}
ZZZZ010245	5600	CHECK2=SELECT CAST(' ' AS CHAR(8))
ZZZZ010245	5700	CHECK2=,CAST('MY SYSTEM' AS ?_SQL_NCHAR?(15) ?_SQL_CHAR_SET?)
ZZZZ010245	5800	CHECK2= ?_FROM_DUAL?
ZZZZ010245	5900	CHECK2=UNION SELECT ?_SUBSTR(SYSTEM_KEY2;17;8)?,SYSTEM_ETC
ZZZZ010245	6000	CHECK2=FROM ?_MM?_ETC_TABLE WHERE SYSTEM_KEY1='ZZZZZZ_@'
ZZZZ010245	6100	CHECK2=AND SYSTEM_KEY2 LIKE 'ZZZZZZ_LINKNAME_%'
ZZZZ010245	6200	CHECK2=AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010245	6300	=IF{SAVE!=}SET{WN.DB=_WW}JUMP{OK}; ワークテーブルより*
ZZZZ010245	6400	=IF{_DATA=}SET{WN.DB=_MM+'_'}JUMP{OK}; 本番テーブルより*
ZZZZ010245	6500	=SET{WN.DB=^?LINK_SERVER?+'ZZZZZZ_'};
ZZZZ010245	6600	*SET{WN.DB='I_?_SYSTEM?_'
ZZZZ010245	6700	*  +@LINK_?LINK_SERVER?_R_ZZZZ+'ZZZZZZ_'};リンク*
ZZZZ010245	6800	=OK:SET{WN.XTABLECOPY=WN.DB+$WN.XTABLEI};
ZZZZ010245	6900	=LINK_SET{WN.SQL}{SELECT ?_1?,?_2? FROM}{?WN.XTABLECOPY?}
ZZZZ010245	7000	=  {X1}{WHERE ?$WN.XKEY?='?WN.XKEYCOPY?'
ZZZZ010245	7100	=   AND ?_T?.Z_CANCEL=' ' ?WN.H?};
ZZZZ010245	7110	=IF_ERROR_SQL{?WN.SQL?}JUMP{LINK_ERROR};
ZZZZ010245	7120	=JUMP{LINK_OK};
ZZZZ010245	7130	=LINK_ERROR:LINK_SET{WN.SQL}
ZZZZ010245	7140	={SELECT ?_1?,CAST(?_2? AS VARCHAR(999)) FROM}
ZZZZ010245	7150	={?WN.XTABLECOPY?}
ZZZZ010245	7160	={X1}{WHERE ?$WN.XKEY?='?WN.XKEYCOPY?'
ZZZZ010245	7162	=   AND ?_T?.Z_CANCEL=' ' ?WN.H?};
ZZZZ010245	7170	=LINK_OK:
ZZZZ010245	7200	DATA=?&.DATA&SYSTEM_SEQ?
ZZZZ010245	7300	DATA=?$WN.XOBJECTDATA?
ZZZZ010245	7400	SQL=?WN.SQL? ORDER BY 1
ZZZZ010245	7500	%CANCEL+COMMENT_BEGIN
ZZZZ010245	7600	*****( END 決定 )****************
ZZZZ010245	7700	PROGRAM=OUTPUT,&X1,?$WN.XTABLE?
ZZZZ010245	7800	CONTROL=0
ZZZZ010245	7900	COLOR
ZZZZ010245	8000	COPY=COLOR
ZZZZ010245	8100	BEGIN
ZZZZ010245	8200	=SET{WC.MENU_TIME=$WC.MENU_TIME};
ZZZZ010245	8300	=SET{WN.XKEYCOPY=$.?$WN.XKEY?};
ZZZZ010245	8400	=SET{S2.SYSTEM_SEQ=$SYSTEM_SEQ
ZZZZ010245	8500	=   ,S2.?$WN.XOBJECT?=$?$WN.XOBJECT?,WN.H=$WN.H};
ZZZZ010245	8600	%MOVE+=IF{S1.SYSTEM_SEQ>=S2.SYSTEM_SEQ}
ZZZZ010245	8700	%MOVE+=   SET{WN.H='AND ?_VRLE&S1.SYSTEM_SEQ?'};
ZZZZ010245	8800	NAME=LINK
ZZZZ010245	8900	=LINK_SET{WN.SQL}{SELECT ?_1?,?_2? FROM}{?$WN.XTABLECOPY?}
ZZZZ010245	9000	={X1}{WHERE ?$WN.XKEY?='?WN.XKEYCOPY?'
ZZZZ010245	9100	=AND ?_T?.SYSTEM_SEQ>=?S2.SYSTEM_SEQ? ?WN.H?
ZZZZ010245	9200	=AND ?_T?.Z_CANCEL=' '};
ZZZZ010245	9300	=IF_ERROR_SQL{?WN.SQL?}JUMP{LINK_ERROR};
ZZZZ010245	9400	=JUMP{LINK_OK};
ZZZZ010245	9500	=LINK_ERROR:LINK_SET{WN.SQL}
ZZZZ010245	9510	={SELECT ?_1?,CAST(?_2? AS VARCHAR(999)) FROM}
ZZZZ010245	9520	={?$WN.XTABLECOPY?}
ZZZZ010245	9600	={X1}{WHERE ?$WN.XKEY?='?WN.XKEYCOPY?'
ZZZZ010245	9700	=AND ?_T?.SYSTEM_SEQ>=?S2.SYSTEM_SEQ? ?WN.H?
ZZZZ010245	9800	=AND ?_T?.Z_CANCEL=' '};
ZZZZ010245	9900	=LINK_OK:
ZZZZ010245	10000	NAME=
ZZZZ010245	10100	START
ZZZZ010245	10200	MESSAGE=END SEQUENCE
ZZZZ010245	10300	SET={O}$OPTION{7}
ZZZZ010245	10400	SET={O}$COUNT{5,,-}
ZZZZ010245	10500	SET={O,,80}$S1.?$WN.XKEYDATA?
ZZZZ010245	10600	SET={O}$S1.?&.SET&SYSTEM_SEQ?
ZZZZ010245	10700	TITLE=AFTER
ZZZZ010245	10800	SET={O}$S1.?$WN.XOBJECTDATA?
ZZZZ010245	10900	TITLE=
ZZZZ010245	11000	SET={O,,80}$.?$WN.XKEYDATA?
ZZZZ010245	11100	SET={O}S2.?&.SET&SYSTEM_SEQ?
ZZZZ010245	11200	TITLE= BEGIN
ZZZZ010245	11300	SET={O}S2.?$WN.XOBJECTDATA?
ZZZZ010245	11400	TITLE=
ZZZZ010245	11500	START
ZZZZ010245	11600	=IF{COUNT=0}JUMP{SKIP};
ZZZZ010245	11700	=LINK_SET{WN.SQL2}{SELECT COUNT(*) FROM}{?$WN.XTABLECOPY?}
ZZZZ010245	11800	=  {X1}{WHERE ?$WN.XKEY?='?WN.XKEYCOPY?' AND Z_CANCEL=' '
ZZZZ010245	11900	=  AND SYSTEM_SEQ BETWEEN ?S2.SYSTEM_SEQ? AND ?.SYSTEM_SEQ?};
ZZZZ010245	12000	=SQL_SET{W0.COUNT}{?WN.SQL2?};
ZZZZ010245	12100	*SQL_SET{W0.COUNT}{SELECT COUNT(*) FROM ?$WN.XTABLECOPY? X1
ZZZZ010245	12200	*WHERE ?$WN.XKEY?='?WN.XKEYCOPY?' AND Z_CANCEL=' '
ZZZZ010245	12300	*AND SYSTEM_SEQ BETWEEN ?S2.SYSTEM_SEQ? AND ?.SYSTEM_SEQ?};
ZZZZ010245	12400	=IF{COUNT<W0.COUNT}
ZZZZ010245	12500	=   ERROR{COUNT ORVER (?COUNT?<?W0.COUNT?)};
ZZZZ010245	12600	=SKIP:
ZZZZ010245	12700	COPY=LINK
ZZZZ010245	12800	DATA=?&.DATA&SYSTEM_SEQ?
ZZZZ010245	12900	DATA=?$WN.XOBJECTDATA?
ZZZZ010245	13000	*SQL=SELECT ?_1?,?_2? FROM ?$WN.XTABLECOPY? X1 WHERE
ZZZZ010245	13100	*SQL=?$WN.XKEY?='?WN.XKEYCOPY?'
ZZZZ010245	13200	*SQL=AND .SYSTEM_SEQ>=?S2.SYSTEM_SEQ? ?WN.H?
ZZZZ010245	13300	*SQL=AND ?_T?.Z_CANCEL=' ' ORDER BY 1
ZZZZ010245	13400	SQL=?WN.SQL? ORDER BY 1
ZZZZ010245	13500	%CANCEL+COMMENT_END
ZZZZ010245	13600	PROGRAM=NOT,&X1,?$WN.XTABLE?
ZZZZ010245	13700	CONTROL=JUDGE
ZZZZ010245	13800	BEGIN
ZZZZ010245	13900	=SET{WC.MENU_TIME=$WC.MENU_TIME};
ZZZZ010245	14000	=SET{WN.XKEY=$WN.XKEY,WN.XKEYCOPY=$WN.XKEYCOPY
ZZZZ010245	14100	=   ,WN.XWHERE=$WN.XWHERE};
ZZZZ010245	14200	=SET{WN.XOBJECT=$WN.XOBJECT,WN.XKEYVALUE=$WN.XKEYVALUE};
ZZZZ010245	14300	=SET{WN.XTABLE=$WN.XTABLE,WN.XTABLECOPY=$WN.XTABLECOPY};
ZZZZ010245	14400	%CANCEL+=SET{B.SYSTEM_SEQ=$S1.SYSTEM_SEQ};
ZZZZ010245	14500	%CANCEL+=SET{B.?WN.XOBJECT?=$S1.?WN.XOBJECT?};
ZZZZ010245	14600	%CANCEL-=SET{L.SYSTEM_SEQ=$S1.SYSTEM_SEQ};
ZZZZ010245	14700	%CANCEL-=SET{L.?WN.XOBJECT?=$S1.?WN.XOBJECT?};
ZZZZ010245	14800	%CANCEL-=SET{B.SYSTEM_SEQ=$S2.SYSTEM_SEQ};
ZZZZ010245	14900	%CANCEL-=SET{B.?WN.XOBJECT?=$S2.?WN.XOBJECT?};
ZZZZ010245	15000	=SET{E.SYSTEM_SEQ=$SYSTEM_SEQ};
ZZZZ010245	15100	=SET{E.?WN.XOBJECT?=$?WN.XOBJECT?};
ZZZZ010245	15200	=LINK_SET{WN.SQL}{SELECT COUNT(*) FROM}{?WN.XTABLECOPY?}
ZZZZ010245	15300	=  {X1}{WHERE ?$WN.XKEY?='?WN.XKEYCOPY?' AND Z_CANCEL=' '
ZZZZ010245	15400	=  AND SYSTEM_SEQ BETWEEN ?B.SYSTEM_SEQ? AND ?E.SYSTEM_SEQ?};
ZZZZ010245	15500	=SQL_SET{COUNT}{?WN.SQL?};
ZZZZ010245	15600	*SQL_SET{COUNT}{SELECT COUNT(*) FROM ?$WN.XTABLECOPY? X1
ZZZZ010245	15700	*WHERE ?$WN.XKEY?='?$WN.XKEYCOPY?' AND Z_CANCEL=' '
ZZZZ010245	15800	*AND SYSTEM_SEQ BETWEEN ?B.SYSTEM_SEQ? AND ?E.SYSTEM_SEQ?};
ZZZZ010245	15900	DATA={O}$OPTION{7}
ZZZZ010245	16000	%COPY+DATA={O,,80}$S1.?$WN.XKEYDATA?
ZZZZ010245	16100	%COPY-DATA={O,,80}$.?$WN.XKEYDATA?
ZZZZ010245	16200	%CANCEL-DATA={O}L.?&.DATA&SYSTEM_SEQ?
ZZZZ010245	16300	%CANCEL-TITLE=AFTER
ZZZZ010245	16400	%CANCEL-DATA={O}L.?$WN.XOBJECTDATA?
ZZZZ010245	16500	%CANCEL-TITLE=
ZZZZ010245	16600	%COPY+DATA={O,,80}$.?$WN.XKEYDATA?
ZZZZ010245	16700	%COPY+TITLE=COPY_?$WN.XKEY?
ZZZZ010245	16800	DATA={O}B.?&.DATA&SYSTEM_SEQ?
ZZZZ010245	16900	TITLE=BEGIN
ZZZZ010245	17000	DATA={O}B.?$WN.XOBJECTDATA?
ZZZZ010245	17100	TITLE=
ZZZZ010245	17200	DATA={O}E.?&.DATA&SYSTEM_SEQ?
ZZZZ010245	17300	TITLE=  END
ZZZZ010245	17400	DATA={O}E.?$WN.XOBJECTDATA?
ZZZZ010245	17500	TITLE=
ZZZZ010245	17600	DATA={O}COUNT{5,,+}
ZZZZ010245	17700	DATA={}YES{5}{YES,NO}
ZZZZ010245	17800	=IF{_DATA='NO'}EXIT{2};
ZZZZ010245	17900	=SET{_RETURN_SQL=1};
ZZZZ010245	18000	%CANCEL-=SET{W0.LOCATE=L.SYSTEM_SEQ,W0.CEND=$W0.CEND};
ZZZZ010245	18100	%CANCEL-=SET{WN.BEGIN='AND SYSTEM_SEQ>='+B.SYSTEM_SEQ};
ZZZZ010245	18200	%CANCEL-=SET{WN.END='AND SYSTEM_SEQ<='+E.SYSTEM_SEQ};
ZZZZ010245	18300	%CANCEL-COPY=COPY
ZZZZ010245	18400	%COPY-=SQL{UPDATE ?_TABLE? SET ?_Z_UPDATE_CANCEL?
ZZZZ010245	18500	%COPY-=WHERE ?$WN.XWHERE? AND Z_CANCEL=' '
ZZZZ010245	18600	%COPY-=AND SYSTEM_SEQ BETWEEN ?B.SYSTEM_SEQ?
ZZZZ010245	18700	%COPY-=AND ?E.SYSTEM_SEQ?};
ZZZZ010245	18800	%NOT_REPLACE_TEST-COPY=REPLACE_TEST
ZZZZ010245	18900	%CANCEL+=EXIT{-2};
ZZZZ010245	19000	=EXIT{-3};
ZZZZ010246	100	* W0.JOB_CNT ジョブの数
ZZZZ010246	200	* WN.JOB_##{10}ジョブ名
ZZZZ010246	300	* WN.JOB_KIND_##{2}ジョブの種類
ZZZZ010246	400	PROGRAM=OUTPUT,&X1,?_MM?_I_PROGRAM_TABLE
ZZZZ010246	500	CONTROL=0,BEGIN_ENTER,SCROLL
ZZZZ010246	600	COLOR
ZZZZ010246	700	=IF{.Z_CANCEL!=}
ZZZZ010246	800	= SET{SYSTEM_PROGRAM@COLOR='N',SYSTEM_SEQ@COLOR='N'}EXIT{};
ZZZZ010246	900	=IF{FIND>0}SET{SYSTEM_SEQ@COLOR='E'}JUMP{};
ZZZZ010246	1000	=SET{          SYSTEM_SEQ@COLOR='W'};
ZZZZ010246	1100	=IF{COLOR!=}EXIT{};
ZZZZ010246	1200	NAME=COLOR
ZZZZ010246	1300	*COMMENT_BEGIN
ZZZZ010246	1400	=IF{.XSYSTEM_SEQ>0}SET{CNT@COLOR='Y'};
ZZZZ010246	1500	=SET{W0.CX=0,W0.CXC=1,W0.CFIRST_SW=0};
ZZZZ010246	1600	=LOOP:IF{W0.CXC>SYSTEM_PROGRAM@COUNT}JUMP{C_W};
ZZZZ010246	1700	=IF{SYSTEM_PROGRAM[W0.CXC;1]='='}JUMP{EQUAL};
ZZZZ010246	1800	=IF{SYSTEM_PROGRAM[W0.CXC;1]='+',='-'}JUMP{SIGN};
ZZZZ010246	1900	=IF{W0.CFIRST_SW=1}JUMP{NEXT_STEP};
ZZZZ010246	2000	=IF{SYSTEM_PROGRAM[W0.CXC;1]='*'}IF{W0.CFIRST_SW=0}
ZZZZ010246	2100	=   JUMP{C_N};
ZZZZ010246	2200	=IF{SYSTEM_PROGRAM[W0.CXC;1]=' '}JUMP{SPACE};
ZZZZ010246	2300	=IF{SYSTEM_PROGRAM[W0.CXC;6]='BEGIN ',='START ',='COLOR ',
ZZZZ010246	2400	=SYSTEM_PROGRAM[W0.CXC;5]='STOP '
ZZZZ010246	2500	=,SYSTEM_PROGRAM[W0.CXC;11]='STOP_AFTER '
ZZZZ010246	2600	=,SYSTEM_PROGRAM[W0.CXC;12]='STOP_BEFORE '
ZZZZ010246	2700	=,SYSTEM_PROGRAM[W0.CXC;4]='END '
ZZZZ010246	2800	=,SYSTEM_PROGRAM[W0.CXC;10]='BEGIN_END '}JUMP{C_G};
ZZZZ010246	2900	=IF{SYSTEM_PROGRAM[W0.CXC;14]='COMMENT_BEGIN '
ZZZZ010246	3000	=   ,SYSTEM_PROGRAM[W0.CXC;13]='COMMENT_END '}JUMP{C_P};
ZZZZ010246	3100	=SET{W0.CFIRST_SW=1};JUMP{NEXT_STEP};
ZZZZ010246	3200	=SIGN:SET{W0.CFIRST_SW=0};
ZZZZ010246	3300	=SPACE:SET{W0.CX=W0.CXC};
ZZZZ010246	3400	=NEXT_STEP:COMPUTE{W0.CXC+=1};BACK{LOOP};
ZZZZ010246	3500	=EQUAL:IF{W0.CFIRST_SW=0}JUMP{C_W};
ZZZZ010246	3600	=COMPUTE{W0.CX+=1};COMPUTE{W0.CXC-=W0.CX};
ZZZZ010246	3700	=SET{WN.CX=SYSTEM_PROGRAM[W0.CX;W0.CXC]};
ZZZZ010246	3800	=IF{WN.CX='DATA',='SET'}JUMP{C_G};
ZZZZ010246	3900	=IF{WN.CX='SQL',='SELECT',='JOIN_ON',='SQL_SELECT'}JUMP{C_B};
ZZZZ010246	4000	=IF{WN.CX='PROGRAM'}JUMP{C_R};
ZZZZ010246	4100	=IF{WN.CX='REPEAT'}JUMP{REPEAT};
ZZZZ010246	4200	=IF{WN.CX='NAME'}JUMP{NAME};
ZZZZ010246	4300	=IF{WN.CX='TABLE',='CONTROL',='DICTIONARY',='PERMISSION'
ZZZZ010246	4400	=   ,='JOB_PERMISSION',='INNER',='LEFT',='RIGHT',='FULL'
ZZZZ010246	4500	=   ,='FROM',='INNER2',='LEFT2',='RIGHT2',='FULL2'}JUMP{C_E};
ZZZZ010246	4600	=IF{WN.CX='COPY'}IF{.XSYSTEM_SEQ>0}JUMP{C_YX};
ZZZZ010246	4700	=IF{WN.CX='MESSAGE',='COPY',='PLUS'='LINE',='NAME2',='MINUS'
ZZZZ010246	4800	=   ,='TITLE',='CLICK',='CHECK1',='CHECK2',='REPEAT2'
ZZZZ010246	4900	=   ,='REPEAT0',='FORM0',='FORM1',='FORM2'}JUMP{C_Y};
ZZZZ010246	5000	=C_W:SET{SYSTEM_PROGRAM@COLOR='W'};EXIT{};
ZZZZ010246	5100	=C_P:SET{SYSTEM_PROGRAM@COLOR='P'};EXIT{};
ZZZZ010246	5200	=C_G:SET{SYSTEM_PROGRAM@COLOR='G'};EXIT{};
ZZZZ010246	5300	*NAME:IF{SYSTEM_PROGRAM@COUNT>5}JUMP{C_YX};
ZZZZ010246	5400	=NAME:IF{SYSTEM_PROGRAM@COUNT>5}JUMP{C_Y};
ZZZZ010246	5500	=JUMP{C_Y};
ZZZZ010246	5600	=REPEAT:IF{SYSTEM_PROGRAM
ZZZZ010246	5700	=   ='REPEAT=',='REPEAT=_DATA_COUNT',='REPEAT=_FROM_COUNT',
ZZZZ010246	5800	=   ='REPEAT=_SET_COUNT',='REPEAT=_ORDER_COUNT'
ZZZZ010246	5900	=   }JUMP{C_YY};
ZZZZ010246	6000	=C_Y: SET{SYSTEM_PROGRAM@COLOR='Y'};EXIT{};
ZZZZ010246	6100	=C_YY:SET{SYSTEM_PROGRAM@COLOR='R255G255B160'};EXIT{};
ZZZZ010246	6200	*IF{_VERSION2>16}
ZZZZ010246	6300	*  IF{WN.CX='NAME'}IF{SYSTEM_PROGRAM@COUNT>5}JUMP{C_YX};
ZZZZ010246	6400	=C_R:SET{SYSTEM_PROGRAM@COLOR='R'};EXIT{};
ZZZZ010246	6500	*C_B:SET{SYSTEM_PROGRAM@COLOR='B'};
ZZZZ010246	6600	*IF{_VERSION2>16}JUMP{COLOR_B};EXIT{};
ZZZZ010246	6700	=C_B:SET{WC.P='+',WC.M='-'};
ZZZZ010246	6800	=IF{SYSTEM_PROGRAM
ZZZZ010246	6900	=   ='SQL=?_Q?_SELECT?_S??_S??_Q?',
ZZZZ010246	7000	=   ='INPUT?WC.P?SQL=,?_T?.Z_CANCEL',
ZZZZ010246	7100	=   ='SQL=?_Q?_FROM?_S??_S??_Q?',
ZZZZ010246	7200	=   ='SQL=?_Q?_LEFT?_S??_S??_Q?',
ZZZZ010246	7300	=   ='SQL=?_Q?_WHERE?_S??_S??_Q?',
ZZZZ010246	7400	=   ='INPUT?WC.M?SQL=?_Q?_WHERE_AND?_Q? ?_T?.Z_CANCEL='' ''',
ZZZZ010246	7500	=   ='SQL=?_Q?_ORDER?_S??_S??_Q?',
ZZZZ010246	7600	=   ='SQL=?_Q?_GROUP?_S??_S??_Q?'
ZZZZ010246	7700	=   }JUMP{C_BB};
ZZZZ010246	7800	=SET{SYSTEM_PROGRAM@COLOR='B'};
ZZZZ010246	7900	=EXIT{};
ZZZZ010246	8000	=C_BB:SET{SYSTEM_PROGRAM@COLOR='R192G224B255'};EXIT{};
ZZZZ010246	8100	=C_N:SET{SYSTEM_PROGRAM@COLOR='N'};EXIT{};
ZZZZ010246	8200	=C_E:SET{SYSTEM_PROGRAM@COLOR='E'};EXIT{};
ZZZZ010246	8300	=C_YX:SET{SYSTEM_PROGRAM@COLOR='R192G192B64'};EXIT{};
ZZZZ010246	8400	*COMMENT_END
ZZZZ010246	8500	NAME= (COLOR)
ZZZZ010246	8600	BEGIN
ZZZZ010246	8700	*W+=SET{WN.EDITOR='NOTEPAD'};
ZZZZ010246	8800	*W-=SET{_LOWER='KWRITE',WN.EDITOR=_LOWER};
ZZZZ010246	8900	=IF_NAME{$WC.DEL}SET{S_DEL=$WC.DEL};
ZZZZ010246	9000	=PROGRAM{00,?_MP_ZZZZ?ZZ_ETC_TABLE,WN.BROWSE.SYSTEM_ETC=}
ZZZZ010246	9100	=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010246	9200	=   ,WC.SYSTEM_KEY2='ZZZZZZ_BROWSE_?_OS?'}{};
ZZZZ010246	9300	=IF{_PROGRAM_COUNT=0}
ZZZZ010246	9400	=   ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? NOT FOUND};
ZZZZ010246	9500	W+=SET{WC.BROWSE=WN.BROWSE.SYSTEM_ETC};
ZZZZ010246	9600	W-=SET{WC.BROWSE=WN.BROWSE.SYSTEM_ETC@LOWER};
ZZZZ010246	9700	=SET{WN.F=0};
ZZZZ010246	9800	=SET{S_FIND=#FIND,S_LOCATE=0,W0.P=1};
ZZZZ010246	9900	=SET{S_LOCATE_CNT=1};
ZZZZ010246	10000	%CANCEL-=SET{S_DEL='YES'};
ZZZZ010246	10100	=SET{S_RUN='CALL'};
ZZZZ010246	10200	=IF{WN.JOB_1[5;2]<'41'}IF{WN.JOB_1[7;2]<'41'}
ZZZZ010246	10300	=   IF{WN.JOB_1[9;2]<'41'}SET{S_RUN='MENU'};
ZZZZ010246	10400	=IF{WN.JOB_1[5;2]>'49'}SET{S_RUN='TIME'};
ZZZZ010246	10500	SET={O}.=?$&.SET&SYSTEM_MENU?
ZZZZ010246	10600	SET={O}S_RUN{4}
ZZZZ010246	10700	JA+TITLE=起動
ZZZZ010246	10800	REPEAT=$W0.JOB_CNT
ZZZZ010246	10900	SET={O}$WN.JOB_##{10}JOB(?$WN.JOB_KIND_##?)
ZZZZ010246	11000	REPEAT=
ZZZZ010246	11100	SET=S_CMD{60}
ZZZZ010246	11200	=SET{WN.ORDER=,WN.DESC=};
ZZZZ010246	11300	JA+TITLE=操作
ZZZZ010246	11400	MESSAGE=F FIND,L LOCATE CALL,DATE
ZZZZ010246	11500	=SET{WN.EQ=,WN.DB=_MX_?_REAL_TEST?,WN.JOB=WN.JOB_1};
ZZZZ010246	11600	=SET{W0.D=_DATA@COUNT,W0.C=1,WN.FTAG=};
ZZZZ010246	11700	=SET{WN.WHERE=,WN.1=,WN.2=,WN.3=,WN.4=,WN.5=,WN.6=};
ZZZZ010246	11800	=SPLIT_CHAR{WN.}{S_CMD}{};
ZZZZ010246	11900	=IF{WN.1='DATE'}JUMP{DATE};
ZZZZ010246	12000	=IF{WN.1='B'}JUMP{TRACE};
ZZZZ010246	12100	=IF{WN.1='L',='LOCATE'}JUMP{LOCATE};
ZZZZ010246	12200	=IF{WN.1='LL',='LLOCATE'}SET{S_LOCATE=S_LOCATE2}JUMP{S_END};
ZZZZ010246	12300	=IF{WN.1='L0',='LOCATE0'}JUMP{SL0};
ZZZZ010246	12400	=IF{WN.1='FC',WN.1='FINDCLEAR'}JUMP{FC};
ZZZZ010246	12500	=IF{WN.1='FTAG'}JUMP{FTAG};
ZZZZ010246	12600	=IF{WN.1='FTAG0'}JUMP{FTAG0};
ZZZZ010246	12700	=IF{WN.1='MENU'}JUMP{M_TRACE};
ZZZZ010246	12800	=IF{WN.1='TIME'}JUMP{T_TRACE};
ZZZZ010246	12900	=IF{WN.1='TIMELOG'}JUMP{TL_TRACE};
ZZZZ010246	13000	=IF{WN.1='BREAL'}JUMP{TR_TRACE};
ZZZZ010246	13100	=IF{WN.1='FIF'}JUMP{FIF};
ZZZZ010246	13200	=IF{WN.1='FIF0'}JUMP{FIF0};
ZZZZ010246	13300	=IF{WN.1='U',='UP'}JUMP{UP};
ZZZZ010246	13400	=IF{WN.1='D',='DOWN'}JUMP{DOWN};
ZZZZ010246	13500	=IF{WN.1='P',='PRIOR'}SET{WN.DESC='DESC'}JUMP{NEXT_STEP};
ZZZZ010246	13600	=IF{WN.1='E',='END'}
ZZZZ010246	13700	=   SET{WN.DESC='DESC',S_LOCATE2=99999}JUMP{NEXT_STEP};
ZZZZ010246	13800	%TEST-=IF{WN.1='R',='REAL'}
ZZZZ010246	13900	%TEST-=   SET{WN.REAL='REAL',_REAL_TEST='REAL'}
ZZZZ010246	14000	%TEST-=   JUMP{RUN};
ZZZZ010246	14100	=IF{WN.1='T',='TEST'}
ZZZZ010246	14200	=   SET{WN.REAL='TEST',_REAL_TEST='TEST'}JUMP{RUN};
ZZZZ010246	14300	=LOOP:IF{W0.C<W0.D}IF{S_CMD[W0.C;1]=' '}
ZZZZ010246	14400	=   COMPUTE{W0.C+=1}BACK{LOOP};
ZZZZ010246	14500	=IF{S_CMD[W0.C]='F',='FIND',='FF'}JUMP{FIND1};
ZZZZ010246	14600	=IF{S_CMD[W0.C]='F0',='FIND0',='FF0'}JUMP{FIND10};
ZZZZ010246	14700	=IF{S_CMD[W0.C;2]='F '}COMPUTE{W0.C+=2}JUMP{FIND};
ZZZZ010246	14800	=IF{S_CMD[W0.C;3]='F0 '}COMPUTE{W0.C+=3}JUMP{FIND0};
ZZZZ010246	14900	=IF{S_CMD[W0.C;3]='FF '}COMPUTE{W0.C+=3}JUMP{FIND};
ZZZZ010246	15000	=IF{S_CMD[W0.C;4]='FF0 '}COMPUTE{W0.C+=4}JUMP{FIND0};
ZZZZ010246	15100	=IF{S_CMD[W0.C;5]='FIND '}COMPUTE{W0.C+=5}JUMP{FIND};
ZZZZ010246	15200	=IF{S_CMD[W0.C;6]='FIND0 '}COMPUTE{W0.C+=6}JUMP{FIND0};
ZZZZ010246	15300	=FI0:IF{_DATA@COUNT!=0}ERROR{COMMAND};
ZZZZ010246	15400	=EXIT{};
ZZZZ010246	15500	*=IF{W0.C<_DATA@COUNT}IF{S_CMD[W0.C;1]=' '}
ZZZZ010246	15600	*=   COMPUTE{W0.C+=1}BACK{};
ZZZZ010246	15700	*=IF{S_CMD='F',='FIND'}JUMP{FIND2};
ZZZZ010246	15800	*=IF{S_CMD[W0.C;2]='F '}COMPUTE{W0.C+=2}JUMP{FIND};
ZZZZ010246	15900	*=IF{S_CMD[W0.C;5]='FIND '}COMPUTE{W0.C+=5}JUMP{FIND};
ZZZZ010246	16000	*=IF{S_CMD[W0.C;2]='L '}COMPUTE{W0.C+=2}JUMP{LOCATE};
ZZZZ010246	16100	*=IF{S_CMD[W0.C;7]='LOCATE '}COMPUTE{W0.C+=7}JUMP{LOCATE};
ZZZZ010246	16200	*=IF{S_CMD[W0.C]='L',='LOCATE'}JUMP{LOCATE2};
ZZZZ010246	16300	*=IF{S_CMD!=}ERROR{?S_CMD?};
ZZZZ010246	16400	*=EXIT{};
ZZZZ010246	16500	******( LOCATE )***************************
ZZZZ010246	16600	=UP:IF{WN.2=}SET{WN.2=1000};
ZZZZ010246	16700	=IF_ERROR_COMPUTE{S_LOCATE=S_LOCATE2-WN.2}JUMP{LOCATE_0};
ZZZZ010246	16800	=JUMP{S_END};
ZZZZ010246	16900	=LOCATE_0:SET{S_LOCATE=0};
ZZZZ010246	17000	=IF{S_LOCATE_CNT<2}JUMP{S_END};
ZZZZ010246	17100	=COMPUTE{S_LOCATE_CNT-=1};SET{WN.JOB=WN.JOB_?S_LOCATE_CNT?};
ZZZZ010246	17200	=SQL_SET{S_LOCATE}{SELECT MAX(SYSTEM_SEQ) FROM ?_TABLE?
ZZZZ010246	17300	=   WHERE .SYSTEM_JOB='?WN.JOB?' AND Z_CANCEL=' '};
ZZZZ010246	17400	=JUMP{S_END};
ZZZZ010246	17500	=DOWN:IF{WN.2=}SET{WN.2=1000};
ZZZZ010246	17600	=IF_ERROR_COMPUTE{S_LOCATE=S_LOCATE2+WN.2}NOP{};
ZZZZ010246	17700	=JUMP{S_END};
ZZZZ010246	17800	=LOCATE:IF{WN.3=}JUMP{SKIP};
ZZZZ010246	17900	=IF_ERROR_SET{S_LOCATE=WN.3}ERROR{LOCATE NO NO GOOD};
ZZZZ010246	18000	=IF_ERROR_SET{S_LOCATE_CNT=WN.2}ERROR{LOCATE CNT NO GOOD};
ZZZZ010246	18100	=JUMP{S_END};
ZZZZ010246	18200	=SKIP:IF_ERROR_SET{S_LOCATE=WN.2}ERROR{LOCATE LOC NO GOOD};
ZZZZ010246	18300	=JUMP{S_END};
ZZZZ010246	18400	******( FTAG )*****************************
ZZZZ010246	18500	=FTAG0:SET{S_LOCATE=0,S_LOCATE_CNT=1};
ZZZZ010246	18600	=FTAG:SET{WN.FTAG=' AND(SYSTEM_PROGRAM LIKE ''%?_Q?%:%'''
ZZZZ010246	18700	=   +' OR SYSTEM_PROGRAM LIKE ''%?_Q?%JUMP{%'''
ZZZZ010246	18800	=   +' OR SYSTEM_PROGRAM LIKE ''%?_Q?%BACK{%'')'};
ZZZZ010246	18900	=JUMP{S_END};
ZZZZ010246	19000	******( FIF )*****************************
ZZZZ010246	19100	=FIF0:SET{S_LOCATE=0,S_LOCATE_CNT=1};
ZZZZ010246	19200	=FIF:SET{WN.FTAG=' AND(SYSTEM_PROGRAM LIKE ''%?_Q?%IF{%'''
ZZZZ010246	19300	=   +' OR SYSTEM_PROGRAM LIKE ''%?_Q?%IF_NOT{%'''
ZZZZ010246	19400	=   +' OR SYSTEM_PROGRAM LIKE ''%?_Q?%IF_FILE{%'''
ZZZZ010246	19500	=   +' OR SYSTEM_PROGRAM LIKE ''%?_Q?%IF_FILE_NOT{%'''
ZZZZ010246	19600	=   +' OR SYSTEM_PROGRAM LIKE ''%?_Q?%IF_NAME{%'''
ZZZZ010246	19700	=   +' OR SYSTEM_PROGRAM LIKE ''%?_Q?%IF_NAME_NOT{%'''
ZZZZ010246	19800	=   +' OR SYSTEM_PROGRAM LIKE ''%?_Q?%IF_TABLE{%'''
ZZZZ010246	19900	=   +' OR SYSTEM_PROGRAM LIKE ''%?_Q?%IF_TABLE_NOT{%'''
ZZZZ010246	20000	=   +' OR SYSTEM_PROGRAM LIKE ''%?_Q?%/%'''
ZZZZ010246	20100	=   +' OR SYSTEM_PROGRAM LIKE ''%?_Q?%!%'')'};
ZZZZ010246	20200	=JUMP{S_END};
ZZZZ010246	20300	******( FIND )*****************************
ZZZZ010246	20400	=FIND0:
ZZZZ010246	20500	=SET{S_LOCATE=0,S_LOCATE2=0,S_LOCATE_CNT=1};
ZZZZ010246	20600	=JUMP{FIND};
ZZZZ010246	20700	=FIND10:SET{S_LOCATE=0,S_LOCATE2=0,S_LOCATE_CNT=1};
ZZZZ010246	20800	=FIND1:SET{S_FIND=#FIND};
ZZZZ010246	20900	=JUMP{SKIP};
ZZZZ010246	21000	=FIND:SET{S_FIND=S_CMD[W0.C],WN.EQ='='};
ZZZZ010246	21100	=IF{S_FIND=}SET{S_FIND=#FIND};
ZZZZ010246	21200	=SKIP:SET{#FIND=S_FIND};
ZZZZ010246	21300	=SET{WN.F=_FIND(SYSTEM_PROGRAM;"S_FIND")};
ZZZZ010246	21400	=J3:SQL_SET{S_FIND_COUNT}{SELECT COUNT(*) FROM ?_TABLE?
ZZZZ010246	21500	REPEAT=$W0.JOB_CNT
ZZZZ010246	21600	1+= WHERE (SYSTEM_JOB='?WN.JOB_##?'
ZZZZ010246	21700	1-= OR SYSTEM_JOB='?WN.JOB_##?'
ZZZZ010246	21800	REPEAT=
ZZZZ010246	21900	=)AND ?WN.F?>0 AND Z_CANCEL=' '};
ZZZZ010246	22000	=IF{WN.1[1;2]='FF'}
ZZZZ010246	22100	=   SET{WN.WHERE=' AND('+WN.F+
ZZZZ010246	22200	=   +'>0 OR SYSTEM_PROGRAM LIKE ''PROGRAM=%'''
ZZZZ010246	22300	=   +' OR SYSTEM_PROGRAM LIKE ''TABLE=%'''
ZZZZ010246	22400	=   +' OR SYSTEM_PROGRAM LIKE ''NAME=%'''
ZZZZ010246	22500	=   +' OR SYSTEM_PROGRAM LIKE ''COPY=%'')'}
ZZZZ010246	22600	=   JUMP{S_END};
ZZZZ010246	22700	=SET{WN.DESC=};
ZZZZ010246	22800	******( NEXT )************
ZZZZ010246	22900	=NEXT_STEP:
ZZZZ010246	23000	=IF{WN.DESC='DESC'}SET{WGL='<'}JUMP{};
ZZZZ010246	23100	=SET{                  WGL='>'};
ZZZZ010246	23200	=LOOP:SET{WN.JOB=WN.JOB_?S_LOCATE_CNT?};
ZZZZ010246	23300	=SQL_SET{WN.LOCATE}{SELECT SYSTEM_SEQ FROM ?_TABLE?
ZZZZ010246	23400	= WHERE SYSTEM_JOB='?WN.JOB?' AND SYSTEM_SEQ?WGL??S_LOCATE2?
ZZZZ010246	23500	=   AND SYSTEM_SEQ?WGL??S_LOCATE2?
ZZZZ010246	23600	=   AND ?WN.F?>0 AND Z_CANCEL=' '
ZZZZ010246	23700	=   ORDER BY 1 ?WN.DESC?};
ZZZZ010246	23800	=IF{_SQL_SET_COUNT=0}JUMP{L_NOT};
ZZZZ010246	23900	=SET{S_LOCATE=WN.LOCATE};
ZZZZ010246	24000	=JUMP{S_END};
ZZZZ010246	24100	=L_NOT:IF{WN.DESC='DESC'}JUMP{DESC};
ZZZZ010246	24200	=IF{S_LOCATE_CNT=$W0.JOB_CNT}JUMP{S_END};
ZZZZ010246	24300	=COMPUTE{S_LOCATE_CNT+=1};SET{S_LOCATE2=0};BACK{LOOP};
ZZZZ010246	24400	=DESC:
ZZZZ010246	24500	=IF{S_LOCATE_CNT=1}JUMP{S_END};
ZZZZ010246	24600	=COMPUTE{S_LOCATE_CNT-=1};SET{S_LOCATE2=99999};BACK{LOOP};
ZZZZ010246	24700	*****( RUN)****************************************
ZZZZ010246	24800	=RUN:
ZZZZ010246	24900	=IF{S_RUN='CALL'}
ZZZZ010246	25000	=   SET{_REAL_TEST='REAL'}ERROR{CALL PROGRAM};
ZZZZ010246	25100	=IF{S_RUN='TIME'}IF{WN.REAL='REAL'}
ZZZZ010246	25200	=   SET{_REAL_TEST='REAL'}ERROR{RUN TIME(REAL) NOT START};
ZZZZ010246	25300	=IF{S_RUN='MENU'}
ZZZZ010246	25400	=   SET{_ARG=_PERSON}
ZZZZ010246	25500	=   SET{WC.EXE_ARG='?$.LANG? ?_EXE_OPTION?'
ZZZZ010246	25600	=   +' ?WN.JOB_1[1;10]? ?WN.REAL?_TRACE'
ZZZZ010246	25700	=   +' ARG_PERSON=?_ARG?'}
ZZZZ010246	25800	=   EXE{?_EXE_NAME?,?WC.EXE_ARG?};
ZZZZ010246	25900	=IF{S_RUN!='MENU'}
ZZZZ010246	26000	=   SERVER_BAT{ZZZZZZTIME,?WN.JOB_1[5;4]?
ZZZZ010246	26100	=   ?WN.JOB_1[8;2]? TRACE ?_COMPUTER_NAME?};
ZZZZ010246	26200	=SET{_REAL_TEST='REAL'};
ZZZZ010246	26300	=JUMP{S_CMD};
ZZZZ010246	26400	******( TRACE )**********************
ZZZZ010246	26500	=TRACE:
ZZZZ010246	26600	=IF{S_RUN='MENU'}JUMP{M_TRACE};
ZZZZ010246	26700	=IF{S_RUN='TIME'}JUMP{T_TRACE};
ZZZZ010246	26800	=ERROR{CAL PROGRAM NOT TRACE};
ZZZZ010246	26900	=TL_TRACE:
ZZZZ010246	27000	=SET{_REAL_TEST='TEST',WN.FL='?_TODAY?.LOG'};
ZZZZ010246	27100	=SET{WN.P='TMP?_P?LOG'};
ZZZZ010246	27200	=JUMP{SG};
ZZZZ010246	27300	=TR_TRACE:
ZZZZ010246	27400	=SET{WN.FL='_TRACE_?_COMPUTER_NAME?.TXT',WN.P=};
ZZZZ010246	27500	=JUMP{SG};
ZZZZ010246	27600	=T_TRACE:
ZZZZ010246	27700	=SET{WN.FL='_TRACE_?_COMPUTER_NAME?.TXT',WN.P=};
ZZZZ010246	27800	=SET{_REAL_TEST='TEST'};
ZZZZ010246	27900	=SG:SERVER_GET{?WN.FL?,?WN.P?}ERROR{};
ZZZZ010246	28000	=SET{_REAL_TEST='REAL'};
ZZZZ010246	28100	=JUMP{BROWSE};
ZZZZ010246	28200	=DATE:
ZZZZ010246	28300	=SET{WN.ORDER='5 DESC,'};EXIT{};
ZZZZ010246	28400	=M_TRACE:
ZZZZ010246	28500	=SET{WN.FL='_TRACE.TXT'};
ZZZZ010246	28600	*BROWSE:EXE{?WN.EDITOR?,?WN.FL?};
ZZZZ010246	28700	=BROWSE:EXE{?WC.BROWSE?,?WN.FL?};
ZZZZ010246	28800	=S_CMD:SET{S_CMD=};EXIT{S_CMD};
ZZZZ010246	28900	=FC:SET{WN.F=0,S_FIND=,#FIND=};JUMP{S_END};
ZZZZ010246	29000	=SL0:SET{S_LOCATE=0};
ZZZZ010246	29100	=S_END:SET{S_CMD=};EXIT{};
ZZZZ010246	29200	SET=S_DEL{3,}{,YES}削除
ZZZZ010246	29300	=SET{WN.DEL=};
ZZZZ010246	29400	=IF{S_DEL=}IF{S_CMD!='DATE'}SET{WN.DEL='AND Z_CANCEL='' '''};
ZZZZ010246	29500	=SET{S_CMD=};
ZZZZ010246	29600	SET={ }$COLOR{2}{,NO}
ZZZZ010246	29700	JA+TITLE=色指定
ZZZZ010246	29800	SET={O}S_LOCATE{5,,+,C}
ZZZZ010246	29900	SET={O}S_LOCATE2{5,,+,C}
ZZZZ010246	30000	JA+TITLE=頭出番号
ZZZZ010246	30100	SET={O}S_LOCATE_CNT{2,,+}
ZZZZ010246	30200	JA+TITLE=L順番
ZZZZ010246	30300	SET={O,*}S_FIND_COUNT{9,,+}
ZZZZ010246	30400	JA+TITLE=F数
ZZZZ010246	30500	SET={O,*}S_FIND{}
ZZZZ010246	30600	JA+TITLE=F文字
ZZZZ010246	30700	DATA={ }KIND{2}
ZZZZ010246	30800	JA+TITLE=種類
ZZZZ010246	30900	DATA={ }CNT{2,,+}
ZZZZ010246	31000	JA+TITLE=順番
ZZZZ010246	31100	DATA={K}?&.DATA&SYSTEM_SEQ?
ZZZZ010246	31200	DATA={ }?&.DATA&SYSTEM_PROGRAM?
ZZZZ010246	31300	DATA={O}DATE{23,,T}
ZZZZ010246	31400	JA+TITLE=年月日
ZZZZ010246	31500	DATA={N}.Z_CANCEL{23,,T}
ZZZZ010246	31600	DATA={N}FIND{1,,+}
ZZZZ010246	31700	DATA={N}.X?&.DATA&SYSTEM_SEQ?
ZZZZ010246	31800	REPEAT=$W0.JOB_CNT
ZZZZ010246	31900	1-SQL=UNION ALL
ZZZZ010246	32000	NAME=SQL1##
ZZZZ010246	32100	SQL=SELECT '?$WN.JOB_KIND_##?',##,?_3?,?_4?,CASE
ZZZZ010246	32200	SQL=   WHEN Z_CANCEL>Z_CHANGE THEN CASE WHEN Z_ADD>Z_CANCEL
ZZZZ010246	32300	SQL=   THEN Z_ADD ELSE Z_CANCEL END ELSE Z_CHANGE END
ZZZZ010246	32400	SQL=   ,?_6?,?WN.F?,SEQ FROM
ZZZZ010246	32500	NAME=
ZZZZ010246	32600	SQL=(SELECT SYSTEM_SEQ,SYSTEM_PROGRAM
ZZZZ010246	32700	SQL=   ,Z_ADD,Z_CANCEL,Z_CHANGE,0 AS SEQ FROM ?_TABLE?
ZZZZ010246	32800	SQL=   WHERE SYSTEM_JOB='?WN.JOB_##?'
ZZZZ010246	32900	NAME=SQL2##
ZZZZ010246	33000	SQL=   )X1 WHERE ('?S_LOCATE_CNT?'='##'
ZZZZ010246	33100	SQL=   AND SYSTEM_SEQ>=?S_LOCATE? OR '?S_LOCATE_CNT?'<'##')
ZZZZ010246	33200	SQL=   ?WN.DEL? ?WN.FTAG? ?WN.WHERE?
ZZZZ010246	33300	NAME=
ZZZZ010246	33400	SQL=UNION ALL
ZZZZ010246	33500	COPY=SQL1##
ZZZZ010246	33600	SQL=(SELECT X1.SYSTEM_SEQ,X2.SYSTEM_PROGRAM
ZZZZ010246	33700	SQL=   ,X2.Z_ADD,X2.Z_CANCEL,X2.Z_CHANGE,X2.SYSTEM_SEQ AS SEQ
ZZZZ010246	33800	SQL=   FROM ?_TABLE? X1,
ZZZZ010246	33900	SQL=(SELECT SYSTEM_NAME,Y1.SYSTEM_JOB,Y1.SYSTEM_SEQ
ZZZZ010246	34000	SQL=,Y1.SYSTEM_PROGRAM,Y1.Z_ADD,Y1.Z_CANCEL,Y1.Z_CHANGE
ZZZZ010246	34100	SQL= FROM ?_TABLE? Y1,
ZZZZ010246	34200	SQL= (SELECT Z1.SYSTEM_NAME,Z1.SYSTEM_JOB,Z1.SYSTEM_SEQ
ZZZZ010246	34300	SQL= ,Z1.Z_ADD,Z1.Z_CHANGE,Z1.Z_CANCEL
ZZZZ010246	34400	SQL= ,(SELECT MIN(Z2.SYSTEM_SEQ) AS SYSTEM_END FROM ?_TABLE?
ZZZZ010246	34500	SQL=  Z2
ZZZZ010246	34600	SQL=  WHERE Z2.SYSTEM_SEQ>Z1.SYSTEM_SEQ
ZZZZ010246	34700	SQL=  AND Z2.SYSTEM_JOB=Z1.SYSTEM_JOB
ZZZZ010246	34800	SQL=  AND LTRIM(SYSTEM_PROGRAM) LIKE 'NAME%=%'
ZZZZ010246	34900	SQL=  AND NOT(Z1.SYSTEM_NAME2='1' AND
ZZZZ010246	35000	SQL=      CASE WHEN  LTRIM(Z2.SYSTEM_PROGRAM) LIKE 'NAME=%'
ZZZZ010246	35100	SQL=      THEN '1' ELSE '2' END='2'
ZZZZ010246	35200	SQL=     )
ZZZZ010246	35300	SQL= )
ZZZZ010246	35400	SQL= AS SYSTEM_END FROM
ZZZZ010246	35500	SQL= (SELECT
ZZZZ010246	35600	SQL=  ?_SUBSTR?(SYSTEM_PROGRAM
ZZZZ010246	35700	SQL=  ,?_FIND(SYSTEM_PROGRAM;'=')?+1
ZZZZ010246	35800	SQL=  ,CASE ?_FIND(SYSTEM_PROGRAM;' ')? WHEN 0 THEN
ZZZZ010246	35900	SQL=  ?_LEN(SYSTEM_PROGRAM)? ELSE ?_FIND(SYSTEM_PROGRAM;' ')?
ZZZZ010246	36000	SQL=  END-?_FIND(SYSTEM_PROGRAM;'=')?)AS SYSTEM_NAME,
ZZZZ010246	36100	SQL=  CASE WHEN  LTRIM(SYSTEM_PROGRAM) LIKE 'NAME=%'
ZZZZ010246	36200	SQL=  THEN '1' ELSE '2' END AS SYSTEM_NAME2
ZZZZ010246	36300	SQL=  ,SYSTEM_JOB,SYSTEM_SEQ,Z_ADD,Z_CANCEL,Z_CHANGE FROM
ZZZZ010246	36400	SQL=  ?_TABLE? WHERE LTRIM(SYSTEM_PROGRAM) LIKE 'NAME%=%'
ZZZZ010246	36500	SQL=  AND Z_CANCEL=' '
ZZZZ010246	36600	SQL= )Z1
ZZZZ010246	36700	SQL=WHERE Z1.SYSTEM_NAME<>' '
ZZZZ010246	36800	SQL=)Y2 WHERE Y1.SYSTEM_JOB=Y2.SYSTEM_JOB
ZZZZ010246	36900	SQL=AND Y1.Z_CANCEL=' '
ZZZZ010246	37000	SQL=AND Y1.SYSTEM_SEQ BETWEEN Y2.SYSTEM_SEQ AND Y2.SYSTEM_END
ZZZZ010246	37100	SQL=-1)X2
ZZZZ010246	37200	SQL=   WHERE X1.SYSTEM_JOB='?WN.JOB_##?'
ZZZZ010246	37300	SQL=   AND X2.SYSTEM_JOB IN(
ZZZZ010246	37400	REPEAT2=##
ZZZZ010246	37500	$1-SQL= ,
ZZZZ010246	37600	SQL=   '?WN.JOB_$$?'
ZZZZ010246	37700	REPEAT2=
ZZZZ010246	37800	SQL=   )AND LTRIM(X1.SYSTEM_PROGRAM) LIKE 'COPY=%'
ZZZZ010246	37900	SQL=   AND SYSTEM_NAME=
ZZZZ010246	38000	SQL=  ?_SUBSTR?(X1.SYSTEM_PROGRAM
ZZZZ010246	38100	SQL=  ,?_FIND(X1.SYSTEM_PROGRAM;'=')?+1
ZZZZ010246	38200	SQL=  ,CASE ?_FIND(X1.SYSTEM_PROGRAM;' ')? WHEN 0 THEN
ZZZZ010246	38300	SQL=  ?_LEN(X1.SYSTEM_PROGRAM)?
ZZZZ010246	38400	SQL=  ELSE ?_FIND(X1.SYSTEM_PROGRAM;' ')?
ZZZZ010246	38500	SQL=  END-?_FIND(X1.SYSTEM_PROGRAM;'=')?)
ZZZZ010246	38600	COPY=SQL2##
ZZZZ010246	38700	***( COPY=@...)**********************************************
ZZZZ010246	38800	SQL= UNION ALL
ZZZZ010246	38900	COPY=SQL1##
ZZZZ010246	39000	SQL=(SELECT X1.SYSTEM_SEQ,X2.SYSTEM_ETC AS SYSTEM_PROGRAM,
ZZZZ010246	39100	SQL= ' ' AS Z_ADD,' ' AS Z_CANCEL,' ' AS Z_CHANGE,
ZZZZ010246	39200	SQL= CAST(?_SUBSTR(SYSTEM_KEY2;26;5)? AS INT)AS SEQ
ZZZZ010246	39400	SQL= FROM ?_TABLE? X1 INNER JOIN ?_MM?_ETC_TABLE X2
ZZZZ010246	39600	SQL= ON X2.SYSTEM_KEY1='ZZZZZZ_COPY' AND X2.Z_CANCEL=' '
ZZZZ010246	39700	SQL= AND REPLACE(X1.SYSTEM_PROGRAM,' ','') LIKE 'COPY=@%'
ZZZZ010246	39800	SQL= AND TRIM(X1.SYSTEM_PROGRAM) LIKE '%@'
ZZZZ010246	39900	SQL= ?_C?TRIM(?_SUBSTR(SYSTEM_KEY2;1;25)?)?_C?'%'
ZZZZ010246	40100	SQL= WHERE X1.SYSTEM_JOB='?WN.JOB_##?' AND X1.Z_CANCEL=' '
ZZZZ010246	40200	COPY=SQL2##
ZZZZ010246	40400	*************************************************************
ZZZZ010246	40500	REPEAT=
ZZZZ010246	40600	SQL=  ORDER BY ?WN.ORDER?1,2,3,SEQ
ZZZZ010246	40700	=IF{_PAGE_SW!=}EXIT{};
ZZZZ010246	40800	=SET{_PAGE_SW=1,S_LOCATE2=SYSTEM_SEQ};
ZZZZ010246	40900	=SET{S_LOCATE_CNT=CNT};
ZZZZ010246	41000	PROGRAM=OUTPUT,&X1,?_MM?_I_PROGRAM_TABLE
ZZZZ010246	41100	LINE=1
ZZZZ010246	41200	BEGIN
ZZZZ010246	41300	=SET{WN.JOB=$WN.JOB_?$CNT?};
ZZZZ010246	41400	SET={O}$WN.JOB{?&.LENGTH1&SYSTEM_JOB?}JOB
ZZZZ010246	41500	SET={O}.=?&.SET&SYSTEM_SEQ?
ZZZZ010246	41600	SET={O}.=?&.SET&SYSTEM_PROGRAM?
ZZZZ010246	41700	REPEAT=$W0.JOB_CNT
ZZZZ010246	41800	SET={O}$WN.JOB_##{10}JOB(?$WN.JOB_KIND_##?)
ZZZZ010246	41900	REPEAT=
ZZZZ010246	42000	REPEAT=
ZZZZ010246	42100	DATA={O}.Z_CANCEL{23,,T}
ZZZZ010246	42200	JA+TITLE=削除時間
ZZZZ010246	42300	DATA={O}.Z_CANCEL_PERSON{8}
ZZZZ010246	42400	JA+TITLE=削除者
ZZZZ010246	42500	DATA={O}D.SYSTEM_PERSON_NAME{14}
ZZZZ010246	42600	JA+TITLE=名前
ZZZZ010246	42700	DATA={O}.Z_CHANGE{23,,T}
ZZZZ010246	42800	JA+TITLE=修正時間
ZZZZ010246	42900	DATA={O}.Z_CHANGE_PERSON{8}
ZZZZ010246	43000	JA+TITLE=修正者
ZZZZ010246	43100	DATA={O,70}C.SYSTEM_PERSON_NAME{14}
ZZZZ010246	43200	JA+TITLE=名前
ZZZZ010246	43300	DATA={O}.Z_ADD{23,,T}
ZZZZ010246	43400	JA+TITLE=作成時間
ZZZZ010246	43500	DATA={O}.Z_ADD_PERSON{8}
ZZZZ010246	43600	JA+TITLE=作成者
ZZZZ010246	43700	DATA={O,70}A.SYSTEM_PERSON_NAME{14}
ZZZZ010246	43800	JA+TITLE=名前
ZZZZ010246	43900	SQL=SELECT ?_DATA_ALL_SQL? FROM ?_TABLE? ?_T?
ZZZZ010246	44000	SQL=   LEFT OUTER JOIN ?_MM?_I_SECURITY_TABLE C
ZZZZ010246	44100	SQL=   ON ?_T?.Z_CHANGE_PERSON=C.SYSTEM_PERSON
ZZZZ010246	44200	SQL=   LEFT OUTER JOIN ?_MM?_I_SECURITY_TABLE A
ZZZZ010246	44300	SQL=   ON ?_T?.Z_ADD_PERSON=A.SYSTEM_PERSON
ZZZZ010246	44400	SQL=   LEFT OUTER JOIN ?_MM?_I_SECURITY_TABLE D
ZZZZ010246	44500	SQL=   ON ?_T?.Z_CANCEL_PERSON=D.SYSTEM_PERSON WHERE
ZZZZ010246	44600	SQL=   SYSTEM_JOB='?WN.JOB?'
ZZZZ010246	44700	SQL=   AND ?_VE&.SYSTEM_SEQ? ORDER BY 1
ZZZZ010247	100	PROGRAM=NOT
ZZZZ010247	200	DATA=A{1}
ZZZZ010247	300	=EXIT{_END};
ZZZZ010247	400	DATA={}$?$&.DATA&SYSTEM_DATA_NAME?
ZZZZ010247	500	DATA={}$?$&.DATA&SYSTEM_BASE_DATA_NAME?
ZZZZ010247	600	DATA={}$?$&.DATA&SYSTEM_TEST?
ZZZZ010247	700	DATA={}$?$&.DATA&SYSTEM_TITLE?
ZZZZ010247	800	DATA={}$?$&.DATA&SYSTEM_DEFAULT_TYPE?
ZZZZ010247	900	DATA={}$?$&.DATA&SYSTEM_TYPE1?
ZZZZ010247	1000	DATA={}$?$&.DATA&SYSTEM_TYPE2?
ZZZZ010247	1100	DATA={}$?$&.DATA&SYSTEM_DEFAULT_LENGTH1?
ZZZZ010247	1200	DATA={}$?$&.DATA&SYSTEM_DEFAULT_LENGTH2?
ZZZZ010247	1300	DATA={}$?$&.DATA&SYSTEM_LENGTH1?
ZZZZ010247	1400	DATA={}$?$&.DATA&SYSTEM_LENGTH2?
ZZZZ010247	1500	DATA={}$?$&.DATA&SYSTEM_CHECK?
ZZZZ010247	1600	DATA={}$?$&.DATA&SYSTEM_CHECK61?
ZZZZ010247	1700	DATA={}$?$&.DATA&SYSTEM_CHECK62?
ZZZZ010247	1800	DATA={}$?$&.DATA&SYSTEM_CHECK63?
ZZZZ010247	1900	DATA={}$?$&.DATA&SYSTEM_CHECK64?
ZZZZ010247	2000	DATA={}$?$&.DATA&SYSTEM_CHECK65?
ZZZZ010247	2100	DATA={}$?$&.DATA&SYSTEM_CHECK66?
ZZZZ010247	2200	DATA={}$?$&.DATA&SYSTEM_MESSAGE?
ZZZZ010247	2300	DATA={}$?$&.DATA&SYSTEM_COMMENT1?
ZZZZ010247	2400	DATA={}$?$&.DATA&SYSTEM_COMMENT2?
ZZZZ010248	100	PROGRAM=NOT
ZZZZ010248	200	*************************************************************
ZZZZ010248	300	***** #OBJECT_KIND---オブジェクト種類
ZZZZ010248	400	*****     (VIEW,PROC,TRIG,FUNCは通常処理）
ZZZZ010248	500	*****     (CANCELはTRIGGERが有る場合#OBJECT_RETUEN=1)
ZZZZ010248	600	*****     (CREATEはTRIGGERが有る場合CREATE TRIGGER実行)
ZZZZ010248	700	***** #OBJECT_NAME---OBJECTの名前
ZZZZ010248	800	***** #OBJECT_REAL_TEST---'REAL'か'TEST'。
ZZZZ010248	900	***** #OBJECT_PUBLIC---'PUBLIC'かLINK'か''。(通常処理で)
ZZZZ010248	1000	***** #RETURN---エラーは「!=0」 正常は「=0」で判定。
ZZZZ010248	1100	***** #ERROR----はエラーの内容。
ZZZZ010248	1200	*****************************************************
ZZZZ010248	1300	FORM=
ZZZZ010248	1400	FORM=
ZZZZ010248	1500	FORM=   OBJECT SUBROUTINE (?#OBJECT_KIND?)
ZZZZ010248	1600	FORM=
ZZZZ010248	1700	FORM=
ZZZZ010248	1800	FORM=
ZZZZ010248	1900	*DATA={N}DUMMY{1}
ZZZZ010248	2000	*=SET{WC.WRITE='?_WORK?.TXT',#RETURN=1};
ZZZZ010248	2100	*=SET{WN.END=0};EXIT3{OBJECTGER_SUBROUTINE};
ZZZZ010248	2200	*DATA=OBJECTGER_SUBROUTINE{1}
ZZZZ010248	2300	*=IF{WN.END=1}EXIT{_END};異常終了* SET{WN.END=1};
ZZZZ010248	2400	BEGIN
ZZZZ010248	2500	=SET{#RETURN=1,#ERROR=};
ZZZZ010248	2600	=SET{WC.WRITE='?_TMP??_WORK?.TXT',WN.SQL=};
ZZZZ010248	2700	=SET{WC.SYSTEM_TEST='TEST'};
ZZZZ010248	2800	=IF{#OBJECT_REAL_TEST='REAL'}
ZZZZ010248	2900	=   SET{WN.OBJECT_SQL_TEST=,WC.SYSTEM_TEST=};
ZZZZ010248	3000	=SET{WC.TRIG_BACK=};
ZZZZ010248	3100	=IF_NOT{#OBJECT_REAL_TEST='REAL',='TEST'}
ZZZZ010248	3200	=   SET{#ERROR=
ZZZZ010248	3300	=   '#OBJECT_REAL_TEST(?#OBJECT_REAL_TEST?)'}
ZZZZ010248	3400	=   EXIT{_END};
ZZZZ010248	3500	=IF{#OBJECT_KIND='TRIG',='VIEW',='PROC',='FUNC'}
ZZZZ010248	3600	=   JUMP{NORMAL_CREATE};
ZZZZ010248	3700	=IF{#OBJECT_KIND='CREATE'}JUMP{TRIGGER_CREATE};
ZZZZ010248	3800	=IF{#OBJECT_KIND='CANCEL'}JUMP{CANCEL};
ZZZZ010248	3900	=SET{#ERROR='#OBJECT_KIND(?#OBJECT_KIND?) ERROR'};
ZZZZ010248	4000	=EXIT{_END};
ZZZZ010248	4100	*************************************************************
ZZZZ010248	4200	******( トリガーが有るテーブルはトリガーを設定 )************
ZZZZ010248	4300	*****( TRIGGER_CREATE )*************************************
ZZZZ010248	4400	=TRIGGER_CREATE:
ZZZZ010248	4500	=SET{#OBJECT_KIND='TRIG'};
ZZZZ010248	4600	=SET{WN.OBJECT_NAME=#OBJECT_NAME};
ZZZZ010248	4700	=IF{WN.OBJECT_NAME%'_TABLE'}JUMP{TABLE};
ZZZZ010248	4800	=IF{WN.OBJECT_NAME%'実表'}JUMP{実表};
ZZZZ010248	4900	=SET{#ERROR='..._TABLE,...実表'};
ZZZZ010248	5000	=EXIT{_END};
ZZZZ010248	5100	=TABLE:SET{WN.OBJECT_NAME=
ZZZZ010248	5200	=   WN.OBJECT_NAME[1;WN.OBJECT_NAME@COUNT-6]+'_TRIG'};
ZZZZ010248	5300	=JUMP{SKIP};
ZZZZ010248	5400	=実表:SET{WN.OBJECT_NAME=
ZZZZ010248	5500	=   WN.OBJECT_NAME[1;WN.OBJECT_NAME@COUNT-2]+'引金'};
ZZZZ010248	5600	=SKIP:
ZZZZ010248	5700	=SET{WC.UID1=,WC.UID2='U',WC.UID3='I',WC.UID4='D'};
ZZZZ010248	5800	REPEAT=4
ZZZZ010248	5900	=TRIG_LOOP_##:
ZZZZ010248	6000	=SET{#OBJECT_NAME='?WN.OBJECT_NAME??WC.UID##?'};
ZZZZ010248	6100	=SQL_SET{#OBJECT_PUBLIC}
ZZZZ010248	6200	={SELECT SYSTEM_PUBLIC FROM ?_MP_ZZZZ?ZZ_I_OBJECT_ID_TABLE
ZZZZ010248	6300	=   WHERE SYSTEM_NAME=?_N?'?#OBJECT_NAME?' AND
ZZZZ010248	6400	= SYSTEM_KIND='TRIG' AND SYSTEM_CREATE=' '
ZZZZ010248	6402	= AND Z_CANCEL=' '};
ZZZZ010248	6410	=IF{_SQL_SET_COUNT=0}JUMP{NOT};
ZZZZ010248	6500	*IF{#OBJECT_KIND='CANCEL'}EXIT{_END};キャンセル判定はNG*
ZZZZ010248	6600	=SET{WC.TRIG_BACK='TRIG_LOOP_#+'};JUMP{NORMAL_CREATE};
ZZZZ010248	6700	=NOT:
ZZZZ010248	6800	REPEAT=
ZZZZ010248	6900	=TRIG_LOOP_5:
ZZZZ010248	7000	=SET{#RETURN=0};
ZZZZ010248	7100	=EXIT{_END};
ZZZZ010248	7200	*************************************************************
ZZZZ010248	7300	*****( NORMAL_CREATE )***************************************
ZZZZ010248	7400	=NORMAL_CREATE:SET{WC.SYSTEM_CREATE=};
ZZZZ010248	7500	=IF_NAME_NOT{#OBJECT_PUBLIC}
ZZZZ010248	7600	=   SET{#ERROR='#OBJECT_PUBLIC NOT FOUND'}
ZZZZ010248	7700	=   EXIT{_END};
ZZZZ010248	7900	=SET{WN.OBJECT_SQL=,WN.OBJECTS=};
ZZZZ010248	8000	=SQL1{SELECT SYSTEM_OBJECT FROM ?_MP_ZZZZ?ZZ_I_OBJECT_TABLE
ZZZZ010248	8100	=   WHERE SYSTEM_NAME=?_N?'?#OBJECT_NAME?' AND
ZZZZ010248	8200	=   (SYSTEM_COM=' ' OR SYSTEM_COM='?_DB?'
ZZZZ010248	8210	=     AND SYSTEM_SIGN='+'
ZZZZ010248	8300	= OR SYSTEM_COM NOT IN(' ','*','?_DB?')
ZZZZ010248	8310	=  AND  SYSTEM_SIGN='-')
ZZZZ010248	8400	=   AND Z_CANCEL=' ' ORDER BY SYSTEM_SEQ};
ZZZZ010248	8500	=SET{#ERROR='OBJECT(?#OBJECT_NAME?) SQL NOT FOUND'};
ZZZZ010248	8600	=SQL1_NEXT{WN.OBJECT}JUMP{ERR_NOT_SET};
ZZZZ010248	8700	=LOOP:SET{WN.OBJECTS+=WN.OBJECT};
ZZZZ010248	8800	=SQL1_NEXT{WN.OBJECT}JUMP{SQL1_END};
ZZZZ010248	8810	=BACK{LOOP};
ZZZZ010248	8900	=SQL1_END:SET{_REAL_TEST=#OBJECT_REAL_TEST};
ZZZZ010248	9000	=IF_ERROR_SET{_EDIT=WN.OBJECTS,WN.OBJECT_SQL=_EDIT}
ZZZZ010248	9010	=   JUMP{ERR_MSG};
ZZZZ010248	9100	=IF{#OBJECT_REAL_TEST='REAL'}
ZZZZ010248	9200	=   SET{_REAL_TEST='TEST'}
ZZZZ010248	9300	=   IF_ERROR_SET{_EDIT=WN.OBJECTS,WN.OBJECT_SQL_TEST+=_EDIT}
ZZZZ010248	9400	=   JUMP{ERR_MSG};
ZZZZ010248	9600	*****( CREATE )**************************
ZZZZ010248	9700	=SET{_REAL_TEST=#OBJECT_REAL_TEST,WC.ERR_SW=1};
ZZZZ010248	9800	=SET{WN.SQL=};
ZZZZ010248	9900	NAME=CREATE
ZZZZ010248	10000	=SET{_JOB_PERMISSION=#OBJECT_NAME[1;4]};
ZZZZ010248	10100	=SET{WN.DB_NAME=_MX+#OBJECT_NAME};
ZZZZ010248	10200	*D+=SET{_REAL_TEST='REAL',_JOB_PERMISSION='ZZZZ'};
ZZZZ010248	10300	=IF_ERROR_DBO_DROP_OBJECT{?WN.DB_NAME?}{?#OBJECT_KIND?}
ZZZZ010248	10310	=   JUMP{ERR};
ZZZZ010248	10400	=IF_ERROR_DBO_CREATE_OBJECT{?WN.DB_NAME?,?#OBJECT_KIND?,
ZZZZ010248	10500	=  ?WN.OBJECT_SQL?}JUMP{ERR};
ZZZZ010248	10600	=IF{WC.ERR_SW=0}JUMP{SKIP};エラー無視はSQLを設定せず*
ZZZZ010248	10700	NAME2=SET_SQL
ZZZZ010248	10800	=SET{WN.SQL=_SQL};
ZZZZ010248	10900	=IF{WN.SQL[1;5]=' USE '}SET{WN.SQL=_SQL_OLD};
ZZZZ010248	11000	NAME2=
ZZZZ010248	11100	=SKIP:
ZZZZ010248	11200	*I+=SET{_REAL_TEST='REAL',_JOB_PERMISSION='ZZZZ'};
ZZZZ010248	11300	=IF_ERROR_DBO_GRANT{?WN.DB_NAME?,?#OBJECT_KIND?,
ZZZZ010248	11400	=  ?#OBJECT_PUBLIC?}JUMP{ERR};
ZZZZ010248	11500	=IF{WC.ERR_SW=0}JUMP{WRITE_SKIP}; エラー無視は終了*
ZZZZ010248	11600	=JUMP{NORMAL};
ZZZZ010248	11700	=ERR_MSG:SET{#ERROR=_ERROR};
ZZZZ010248	11800	=JUMP{ERR_NOT_SET};
ZZZZ010248	11900	=ERR:IF{WC.ERR_SW=0}JUMP{WRITE_SKIP}; エラーを無視*
ZZZZ010248	12000	=SET{#ERROR=_ERROR};
ZZZZ010248	12100	COPY=SET_SQL
ZZZZ010248	12200	=ERR_NOT_SET:
ZZZZ010248	12300	=SET{WC.SYSTEM_CREATE=_Q}; エラー発生*
ZZZZ010248	12400	=NORMAL:
ZZZZ010248	12500	=IF_ERROR_WRITE_OPEN{1,?WC.WRITE?,OT}JUMP{WRITE_SKIP};
ZZZZ010248	12600	=WRITE{1,WN.SQL};WRITE{1,#ERROR};WRITE_CLOSE{1};
ZZZZ010248	12700	=WRITE_SKIP:
ZZZZ010248	12800	NAME=
ZZZZ010248	12900	=IF{#OBJECT_REAL_TEST='TEST',WC.SYSTEM_CREATE=_Q}
ZZZZ010248	13000	=   JUMP{TEST_SKIP};
ZZZZ010248	13100	****( REALの場合で処理正常の場合 TESTも実行 )**************
ZZZZ010248	13200	=SET{_REAL_TEST='TEST',WN.OBJECT_SQL=WN.OBJECT_SQL_TEST};
ZZZZ010248	13300	=SET{WC.ERR_SW=0}; テスト分はエラーを無視*
ZZZZ010248	13400	COPY=CREATE
ZZZZ010248	13500	=TEST_SKIP:
ZZZZ010248	13600	=SET{_REAL_TEST='REAL',_JOB_PERMISSION='ZZZZ'};
ZZZZ010248	13700	=IF{WC.TRIG_BACK!=}IF{WC.SYSTEM_TEST='TEST'}
ZZZZ010248	13710	=   JUMP{UPDATE_SKIP};
ZZZZ010248	13800	=SQL{UPDATE ?_MP_ZZZZ?ZZ_I_OBJECT_ID_TABLE SET
ZZZZ010248	13900	=    ?_Z_UPDATE_CHANGE?
ZZZZ010248	14000	=    ,?_VRE&WC.SYSTEM_CREATE?,?_VRE&WC.SYSTEM_TEST?
ZZZZ010248	14100	=    WHERE SYSTEM_NAME=?_N?'?#OBJECT_NAME?'
ZZZZ010248	14200	=    AND(?_VRLG&WC.SYSTEM_CREATE? OR ?_VRLG&WC.SYSTEM_TEST?)
ZZZZ010248	14300	=    AND SYSTEM_KIND='?#OBJECT_KIND?'};
ZZZZ010248	14400	=UPDATE_SKIP:
ZZZZ010248	14500	=IF{WC.SYSTEM_CREATE!=}EXIT{_END};エラー終了*
ZZZZ010248	14600	=IF{WC.TRIG_BACK!=}BACK{?WC.TRIG_BACK?};TRIGGER処理へ戻る。*
ZZZZ010248	14700	=SET{#RETURN=0};正常終了設定*
ZZZZ010248	14800	=EXIT{_END};正常終了。*
ZZZZ010248	14900	******( OBJECT　登録状態確認 )*******************************
ZZZZ010248	15000	******( 有りは#RETURNが1で#OBJECT_NAMEに名前設定 )***
ZZZZ010248	15100	******( CANCEL )*********************************************
ZZZZ010248	15200	=CANCEL:
ZZZZ010248	15300	=SET{WN.M_W1='M',WN.M_W2='W'};
ZZZZ010248	15400	=SET{WN.DB_ZZZZ=_M_?#OBJECT_REAL_TEST?};
ZZZZ010248	15500	=SET{WN.SYSTEM_TEXT=
ZZZZ010248	15600	=    _MX_?#OBJECT_REAL_TEST?_?#OBJECT_NAME[1;4]?
ZZZZ010248	15700	=    +#OBJECT_NAME};
ZZZZ010248	15800	=SET{WN.SQL=,WN.UNION=};
ZZZZ010248	15900	=SQL1{SELECT SYSTEM_KEY2 FROM ?_MP_ZZZZ?ZZ_ETC_TABLE WHERE
ZZZZ010248	16000	=     SYSTEM_KEY1='ZZZZZZ_PERMISSION'
ZZZZ010248	16010	=     AND Z_CANCEL=' ' ORDER BY 1};
ZZZZ010248	16100	=SQL1_NEXT:SQL1_NEXT{WC.PER}JUMP{SQL1_END};
ZZZZ010248	16200	REPEAT=2
ZZZZ010248	16300	=SET{WN.SQL+=WN.UNION+' SELECT SYSTEM_NAME FROM'
ZZZZ010248	16400	=   +' ?WN.DB_ZZZZ?ZZ_?WN.M_W##?_?WC.PER?_OBJECT_VIEW WHERE'
ZZZZ010248	16500	=   +' ?_IR&WN.SYSTEM_TEXT?'};
ZZZZ010248	16600	=SET{WN.UNION=' UNION ALL '};
ZZZZ010248	16700	REPEAT=
ZZZZ010248	16800	=BACK{SQL1_NEXT};
ZZZZ010248	16900	=SQL1_END:SQL_SET{#OBJECT_NAME}{?WN.SQL?};
ZZZZ010248	16910	=IF{_SQL_SET_COUNT=0}JUMP{OK};
ZZZZ010248	17000	=SET{#ERROR='USE OBJECT(?#OBJECT_NAME?)'};
ZZZZ010248	17100	=EXIT{_END};
ZZZZ010248	17200	=OK:SET{#RETURN=0};
ZZZZ010248	17300	=EXIT{_END};
ZZZZ010251	100	MINUS=%TEST
ZZZZ010251	200	CONTROL=PROGRAM
ZZZZ010251	300	BEGIN
ZZZZ010251	400	=SET{YES='YES'};
ZZZZ010251	500	=SET{WC.MESSAGE=,WC.ERR=};
ZZZZ010251	600	FORM= @@@ I言語の文法の確認処理をします。
ZZZZ010251	700	DATA=YES{3}{YES,NO}
ZZZZ010251	800	=IF{_DATA!='YES'}EXIT{0};
ZZZZ010251	900	PROGRAM=NOT,&X1,?_MM?_I_PROGRAM_TABLE
ZZZZ010251	1000	CONTROL=PROGRAM
ZZZZ010251	1100	TABLE=&X2,?_MM?_I_MENU_TABLE
ZZZZ010251	1200	BEGIN_END
ZZZZ010251	1300	NAME=DROP_TABLE_WORK
ZZZZ010251	1400	REPEAT=?_A_A?
ZZZZ010251	1500	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010251	1600	REPEAT=
ZZZZ010251	1700	NAME=
ZZZZ010251	1800	BEGIN
ZZZZ010251	1810	=SET{_TRACE=1};
ZZZZ010251	1900	=CREATE_TABLE{?_WORK_TABLE?A,SYSTEM_JOB,*,SYSTEM_SEQ,*}
ZZZZ010251	2000	=  {SYSTEM_PROGRAM,*,SYSTEM_ERROR,NV,160};
ZZZZ010251	2100	=SQL1{SELECT SYSTEM_JOB,SYSTEM_SEQ,SYSTEM_PROGRAM
ZZZZ010251	2200	= ,SYSTEM_SECURITY,SYSTEM_PERMISSION,SYSTEM_PART
ZZZZ010251	2300	= FROM ?_TABLE? ?_T? INNER JOIN ?&X2.TABLE? X2
ZZZZ010251	2400	= ON SYSTEM_JOB=
ZZZZ010251	2500	= ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010251	2600	= ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR? WHERE
ZZZZ010251	2700	= .SYSTEM_TEST=' ' AND ?_T?.Z_CANCEL=' ' AND X2.Z_CANCEL=' '
ZZZZ010251	2800	= AND ?_VRGE&BEGIN.SYSTEM_JOB?
ZZZZ010251	2900	= AND ?_VRLE&END.SYSTEM_JOB?
ZZZZ010251	3000	= ORDER BY 1,2};
ZZZZ010251	3100	=SET{WC.COLOR_SW=0};
ZZZZ010251	3110	FORM=MSG @
ZZZZ010251	3120	DATA={O}MSG{74}
ZZZZ010251	3200	FORM=   確認処理中
ZZZZ010251	3300	FORM=  SYSTEM_JOB @@@@@@
ZZZZ010251	3400	DATA={O}?&.DATA&SYSTEM_JOB?
ZZZZ010251	3500	FORM=
ZZZZ010251	3600	FORM=
ZZZZ010251	3700	FORM=
ZZZZ010251	3800	FORM=
ZZZZ010251	3900	WORK=.?&.DATA&SYSTEM_SEQ?
ZZZZ010251	4000	WORK=SYSTEM_MENU1{2}
ZZZZ010251	4100	WORK=.?&X2.DATA&SYSTEM_SECURITY?
ZZZZ010251	4200	WORK=.?&X2.DATA&.SYSTEM_PERMISSION?
ZZZZ010251	4300	WORK=.?&X2.DATA&.SYSTEM_PART?
ZZZZ010251	4400	WORK=.?&.DATA&SYSTEM_PROGRAM?
ZZZZ010251	4500	WORK=.SYSTEM_ERROR{160}
ZZZZ010251	4600	WORK=MESSAGE{1}
ZZZZ010251	4700	=SET{WC.SQL1_SW=0};
ZZZZ010251	4800	=SET{WC.SYSTEM_JOB=,W0.SYSTEM_SEQ=-1
ZZZZ010251	4900	=   ,WC.SYSTEM_PROGRAM=,WC.SYSTEM_ERROR=};
ZZZZ010251	5000	=SQL1_LOOP:
ZZZZ010251	5100	=SQL1_NEXT{SYSTEM_JOB,.SYSTEM_SEQ,.SYSTEM_PROGRAM
ZZZZ010251	5200	=   ,.SYSTEM_SECURITY,.SYSTEM_PERMISSION
ZZZZ010251	5300	=   ,SYSTEM_PART}JUMP{SQL1_FIN};
ZZZZ010251	5400	*=SET{_TRACE=0};
ZZZZ010251	5500	*=IF{SYSTEM_JOB='ZZZZ010541'}
ZZZZ010251	5600	*=  IF{.SYSTEM_SEQ='19070',='28950'}SET{_TRACE=1};
ZZZZ010251	5700	=SET{WC.IN_OUT='IN'}; VER17*
ZZZZ010251	5800	=SET{WC.ERR=,WC.ERROR_SW=0,WC.MESSAGE=,MESSAGE=};
ZZZZ010251	5900	=IF{SYSTEM_JOB[5;2]>49}SET{WC.MENU_TIME='T'}JUMP{};
ZZZZ010251	6000	=   SET{WC.MENU_TIME='M'};
ZZZZ010251	6100	=IF{SYSTEM_JOB[5;2]>40}IF{SYSTEM_JOB[5;2]<50}JUMP{COPY};
ZZZZ010251	6200	=IF{SYSTEM_JOB[5;2]>49}JUMP{NOT_COPY};
ZZZZ010251	6300	=IF{SYSTEM_JOB[7;2]>49}IF{SYSTEM_JOB[7;2]<50}JUMP{COPY};
ZZZZ010251	6400	=IF{SYSTEM_JOB[9;2]>40}IF{SYSTEM_JOB[9;2]<50}JUMP{COPY};
ZZZZ010251	6500	=NOT_COPY:SET{WC.COPY_SW=0}JUMP{};
ZZZZ010251	6600	=    COPY:SET{WC.COPY_SW=1};
ZZZZ010251	6700	=IF{WC.SQL1_SW=1}JUMP{SKIP};
ZZZZ010251	6800	=SET{WC.SQL1_SW=1};
ZZZZ010251	6900	=SET{.SYSTEM_MENU1=SYSTEM_JOB[5;2]}; VER20.1*
ZZZZ010251	7000	COMMENT_BEGIN (JUMP文法エラー回避)
ZZZZ010251	7100	=SQL1_FIN: JUMP文法エラー回避*
ZZZZ010251	7200	=SKIP: JUMP文法エラー回避*
ZZZZ010251	7300	COMMENT_END   (JUMP文法エラー回避)
ZZZZ010252	20	COMMENT_BEGIN (JUMP文法エラー回避)
ZZZZ010252	30	=SQL1_LOOP: JUMP文法エラー回避*
ZZZZ010252	50	COMMENT_END   (JUMP文法エラー回避)
ZZZZ010252	100	=IF{WC.ERROR_SW=0}JUMP{NOT_ERROR};
ZZZZ010252	200	=IF{WC.ERROR_SW=1}SET{SYSTEM_ERROR=WC.ERR}JUMP{};
ZZZZ010252	210	=   SET{              SYSTEM_ERROR=WC.MESSAGE};
ZZZZ010252	300	=PROGRAM{2E,?_WORK_TABLE?A,.SYSTEM_PROGRAM,SYSTEM_ERROR}
ZZZZ010252	310	=   {SYSTEM_JOB,.SYSTEM_SEQ}{};
ZZZZ010252	410	=NOT_ERROR:IF{.SYSTEM_JOB=WC.SYSTEM_JOB}BACK{SQL1_LOOP};
ZZZZ010252	420	=SET{WC.SYSTEM_JOB=.SYSTEM_JOB};
ZZZZ010252	422	=IF{WC.SYSTEM_JOB='ZZZZ010740'}SET{_TRACE=1};
ZZZZ010252	430	=PROGRAM{2E,?_WORK_TABLE?A,WC.SYSTEM_PROGRAM,WC.SYSTEM_ERROR}
ZZZZ010252	431	=  {WC.SYSTEM_JOB,W0.SYSTEM_SEQ}{};
ZZZZ010252	500	=BACK{SQL1_LOOP};
ZZZZ010252	600	=SQL1_FIN:EXIT{+1};
ZZZZ010252	700	PROGRAM=,&X1,?_WORK_TABLE?A
ZZZZ010252	710	CONTROL=SCROLL,BEGIN_ENTER
ZZZZ010252	720	=SET{.SYSTEM_SEQ=0};
ZZZZ010252	800	*SET={}?&.SET&SYSTEM_JOB?
ZZZZ010252	900	SET={}.?&.SET&SYSTEM_SEQ?
ZZZZ010252	1000	*SET={}?&.SET&SYSTEM_PROGRAM?
ZZZZ010252	1010	*SET={}?&.SET&SYSTEM_ERROR?
ZZZZ010252	1100	*****( ジョブ )*****
ZZZZ010252	1200	DATA={K}?&.DATA&SYSTEM_JOB?
ZZZZ010252	1300	*****( 順序 )*****
ZZZZ010252	1400	DATA={K}?&.DATA&SYSTEM_SEQ?
ZZZZ010252	1500	*****( プログラム )*****
ZZZZ010252	1600	DATA={}?&.DATA&SYSTEM_PROGRAM?
ZZZZ010252	1700	DATA={}?&.DATA&SYSTEM_ERROR?
ZZZZ010252	1800	COPY=@ZZZZZZ_SQL
ZZZZ010252	1990	END
ZZZZ010252	1999	=EXIT{0};
ZZZZ010301	100	*OUTPUT
ZZZZ010301	200	*検索のサンプルプログラムですが、ここには何もなく,
ZZZZ010301	300	*ZZZZ010321の更新プログラムをコピー１で呼び出しています。
ZZZZ010301	400	*メニューの処理種類をOUTPUTとすると検索のプログラムになります
ZZZZ010302	100	*OUTPUT
ZZZZ010302	200	*選択付き検索のサンプルプログラムです。
ZZZZ010302	300	*最初の画面はINTとDECIMALを合計した値を表示しています。
ZZZZ010302	400	PROGRAM=,&X1,?_MM?_SAMPLE_TABLE
ZZZZ010302	500	*CONTROL=0で選択(0)処理が出来るように成ります。
ZZZZ010302	600	CONTROL=0
ZZZZ010302	700	*SET=は検索条件入力やデータの表示用として使われます。
ZZZZ010302	800	SET={}.?&.SET&SYSTEM_KEY1_SAMPLE?
ZZZZ010302	900	*DATA=は検索したデータを表示する為に使用します。
ZZZZ010302	1000	*{KG}のKは該当項目がキーでGは検索でGROUP BYの項目となります。
ZZZZ010302	1100	DATA={KG}?&.DATA&SYSTEM_KEY1_SAMPLE?
ZZZZ010302	1200	*{3}は集計するので有効桁数を規定より３桁増やしています。
ZZZZ010302	1300	DATA={3}XX.?&.DATA&SYSTEM_INT?[合計]
ZZZZ010302	1400	*SELECT=は検索のSELECT以下に書く式を定義しています。
ZZZZ010302	1500	*SUM(.SYSTEM_INT)は(.SYSTEM_INTを合計するSQLの関数です。
ZZZZ010302	1600	SELECT=SUM(?_T?.SYSTEM_INT)
ZZZZ010302	1700	DATA={3}XX.?&.DATA&SYSTEM_DECIMAL?[合計]
ZZZZ010302	1800	SELECT=SUM(?_T?.SYSTEM_DECIMAL)
ZZZZ010302	1900	DATA={}件数{3,,+}
ZZZZ010302	2000	*COUNT(*)はデータの件数を計算するSQLの関数です。
ZZZZ010302	2100	SELECT=COUNT(*)
ZZZZ010302	2200	*COPY=@...でプログラムが混在マスターからコピーされます。
ZZZZ010302	2300	*@ZZZZZZ_SQLは検索用のSQL=でSELECT文が組み立てられます。
ZZZZ010302	2400	COPY=@ZZZZZZ_SQL
ZZZZ010302	2500	*###( 2 )####################################################
ZZZZ010302	2600	*選択(0)されると次のPROGRAM=が実行されます。
ZZZZ010302	2700	PROGRAM=,&X1,?$&.TABLE?
ZZZZ010302	2800	*{KO}のOは入力では無く表示のみの項目となります。
ZZZZ010302	2900	*項目の先頭に.=を付けると前のプログラムのSYSTEM_KEY1_SAMPLE
ZZZZ010302	2910	* が.SYSTEM_KEY1_SAMPLEの初期値と成ります。
ZZZZ010302	3000	SET={KO}.=?&.DATA&SYSTEM_KEY1_SAMPLE?
ZZZZ010302	3100	*最後に[合計]等を書くとタイトルに付加されます。
ZZZZ010302	3200	*{O3,*}の*はこの項目を検索条件としない意味となります。
ZZZZ010302	3300	SET={O3,*}.=XX.?&.DATA&SYSTEM_INT?[合計]
ZZZZ010302	3400	SET={O3,*}.=XX.?&.DATA&SYSTEM_DECIMAL?[合計]
ZZZZ010302	3500	SET={O,*}.=件数{3,,+}
ZZZZ010302	3600	DATA={K}?&.DATA&SYSTEM_KEY2_SAMPLE?
ZZZZ010302	3700	DATA=   ?&.DATA&SYSTEM_CHAR?
ZZZZ010302	3800	DATA=   ?&.DATA&SYSTEM_INT?
ZZZZ010302	3900	DATA=   ?&.DATA&SYSTEM_DECIMAL?
ZZZZ010302	4000	DATA=   ?&.DATA&SYSTEM_DATE?
ZZZZ010302	4100	COPY=@ZZZZZZ_SQL
ZZZZ010304	100	PROGRAM=NOT
ZZZZ010304	200	*************************************************************
ZZZZ010304	300	*** 最初のプログラムで簡易ボーグラフの繰り返し数をW0Cに,
ZZZZ010304	400	***   キー１をW.KEY1_?W0C?,にキー2をW.KEY2_?W0C?に、
ZZZZ010304	500	***  ボーグラフの大きさをW0.BAR_?W0C?に設定しています。
ZZZZ010304	600	*************************************************************
ZZZZ010304	700	BEGIN
ZZZZ010304	800	=SQL1{SELECT SYSTEM_KEY1_SAMPLE,SYSTEM_KEY2_SAMPLE
ZZZZ010304	900	=   ,CAST(SYSTEM_INT*50/100000 AS DECIMAL(15,0)) AS BAR
ZZZZ010304	1000	=   FROM ?_MM?_SAMPLE_TABLE WHERE
ZZZZ010304	1100	=   Z_CANCEL=' ' ORDER BY 3 DESC,1,2};
ZZZZ010304	1200	=SET{W0C=1};
ZZZZ010304	1300	=SQL1_NEXT:SQL1_NEXT{W.KEY1_?W0C?,W.KEY2_?W0C?,W0.BAR_?W0C?}
ZZZZ010304	1310	=   JUMP{SQL1_END};
ZZZZ010304	1400	=SET{W.BAR_?W0C?=
ZZZZ010304	1500	='********************************************************'};
ZZZZ010304	1600	=COMPUTE{W0C+=1};BACK{SQL1_NEXT};
ZZZZ010304	1700	=SQL1_END:COMPUTE{W0C-=1};
ZZZZ010304	1800	PROGRAM=NOT
ZZZZ010304	1900	*************************************************************
ZZZZ010304	2000	*** 最初のプログラムで作られたW0C,W.KEY1_?W0C?,W.KEY2_?W0C?
ZZZZ010304	2100	***  W0.BAR_?W0C?を使用して簡易ボーグラフを表示します。
ZZZZ010304	2200	*************************************************************
ZZZZ010304	2300	BEGIN
ZZZZ010304	2400	REPEAT=$W0C
ZZZZ010304	2500	0-=IF_ERROR_SET{W.BAR_##=$W.BAR_##}NOP{};エラー回避*
ZZZZ010304	2600	REPEAT=
ZZZZ010304	2700	FORM=     @
ZZZZ010304	2800	DATA=DUMMY{1}
ZZZZ010304	2900	FORM=     KEY1  KEY2     BAR GRAPH(INT)
ZZZZ010304	3000	REPEAT=$W0C
ZZZZ010304	3100	0-FORM=     @@@@@ @@@@@    @
ZZZZ010304	3200	0-DATA={O}$W.KEY1_##{5}
ZZZZ010304	3300	0-DATA={O}$W.KEY2_##{5}
ZZZZ010304	3400	0-DATA={O,,,G}W.BAR_##{?$W0.BAR_##?}
ZZZZ010304	3500	REPEAT=
ZZZZ010304	3600	END 終了時の処理をEND以下に書きます。
ZZZZ010304	3700	=EXIT{0}; 終了時メニューに戻す。(最初に戻ると終わらない)*
ZZZZ010305	100	PROGRAM=NOT
ZZZZ010305	200	BEGIN
ZZZZ010305	300	=SET{YES='YES'};
ZZZZ010305	400	DATA=YES{3}{YES,NO}
ZZZZ010305	500	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010305	600	=ICHART{ZZZZZZ_SAMPLE,,,
ZZZZ010305	700	REPEAT=2
ZZZZ010305	800	=   SELECT  ?_CL?RTRIM(SYSTEM_KEY1_SAMPLE)
ZZZZ010305	900	=   ?_C?'/'?_C?SYSTEM_KEY2_SAMPLE?_CR?,
ZZZZ010305	1000	1+=   SYSTEM_INT
ZZZZ010305	1100	2+=   SYSTEM_DECIMAL
ZZZZ010305	1200	=   FROM ?_MM?_SAMPLE_TABLE WHERE Z_CANCEL=' ' ORDER BY 1
ZZZZ010305	1300	=   ;
ZZZZ010305	1400	REPEAT=
ZZZZ010305	1500	=   };
ZZZZ010306	100	PROGRAM=NOT
ZZZZ010306	200	CONTROL=PROGRAM
ZZZZ010306	300	DATA=DATA{8}{DISPLAY,PRINT}
ZZZZ010306	400	* 'REAL'にすると実際に印刷、'TEST'にすると画面に表示します。
ZZZZ010306	500	*SET{WN.P='REAL'};IF{_DATA='DISPLAY'}SET{WN.P='TEST'};
ZZZZ010306	600	*IF_FILE{?_TMP??_JOB??_WORK?DATA.TXT}
ZZZZ010306	700	*    ERASE_FILE{?_JOB??_WORK?DATA.TXT}ERROR{};
ZZZZ010306	800	***( 印刷データファイルを作成 )***************************
ZZZZ010306	810	=IF_ERROR_IPRINT{ZZZZZZ_SAMPLE,?_DATA?,,
ZZZZ010306	900	*SQL_FILE{?_WORK?DATA.TXT,OT,UTF-8,W}
ZZZZ010306	1000	=  SELECT 'TEST SAMPLE'
ZZZZ010306	1100	=   ,'AAAAA','IIDA PLANT','T01',SYSTEM_INT,SYSTEM_KEY1_SAMPLE
ZZZZ010306	1200	=   ,SYSTEM_KEY2_SAMPLE,SYSTEM_DATE
ZZZZ010306	1210	=   ,SYSTEM_CHAR,SYSTEM_DATE,SYSTEM_DATE
ZZZZ010306	1300	=   ,SYSTEM_DECIMAL,SYSTEM_DECIMAL
ZZZZ010306	1310	=   ,SYSTEM_DECIMAL,'EA','TEST'
ZZZZ010306	1400	=   ,1000,50,1000,1050,'A','B','C','D','ZZ','ZZ'
ZZZZ010306	1500	=   ,'123','456','456','789','789','0123','0123'
ZZZZ010306	1600	=   FROM ?_MM?_SAMPLE_TABLE
ZZZZ010306	1700	=   WHERE Z_CANCEL=' ' ORDER BY 1,2}ERROR{};
ZZZZ010306	1800	*IF_FILE{?_TMP??_JOB??_WORK?LAYOUT.TXT}
ZZZZ010306	1900	*   ERASE_FILE{?_JOB??_WORK?LAYOUT.TXT}ERROR{};
ZZZZ010306	2000	***( 印刷レイアファイルを作成 )***************************
ZZZZ010306	2100	*SQL_FILE{?_WORK?LAYOUT.TXT,OT,UTF-8,W}
ZZZZ010306	2200	*{SELECT PRINT_DATA
ZZZZ010306	2300	* FROM ?_MM?_PRINT_TABLE WHERE PRSYSTEM_INT='SAMPLE'
ZZZZ010306	2400	* AND Z_CANCEL=' ' ORDER BY SYSTEM_SEQ}
ZZZZ010306	2500	* ERROR{};
ZZZZ010306	2600	***( 印刷処理 )***************************
ZZZZ010306	2700	*EXE{?_IPRINT?,?_IPRINT2?
ZZZZ010306	2800	* ?WN.P? ?_TMP??_JOB??_WORK?DATA.TXT
ZZZZ010306	2900	* ?_TMP??_JOB??_WORK?LAYOUT.TXT}ERROR{};
ZZZZ010308	100	PROGRAM=NOT
ZZZZ010308	200	BEGIN
ZZZZ010308	300	=SET{RGB='R128G255B255'};
ZZZZ010308	400	FORM=@@@@@@@@@@@@ W(R255G255B255)
ZZZZ010308	500	DATA={O}W{12}W(R255G255B255)
ZZZZ010308	600	=SET{_DATA@COLOR=_NAME};
ZZZZ010308	700	=SET{W='WWWWWWWWWWWW'};
ZZZZ010308	800	FORM=@@@@@@@@@@@@ L(R224G224B224）
ZZZZ010308	900	DATA={O}L{12}L(R224G224B224）
ZZZZ010308	1000	=SET{_DATA@COLOR=_NAME};
ZZZZ010308	1100	=SET{L='LLLLLLLLLLLL'};
ZZZZ010308	1200	FORM=@@@@@@@@@@@@ D(R128G128B128)
ZZZZ010308	1300	DATA={O}D{12}D(R128G128B128)
ZZZZ010308	1400	=SET{_DATA@COLOR=_NAME};
ZZZZ010308	1500	=SET{D='DDDDDDDDDDDD'};
ZZZZ010308	1600	FORM=@@@@@@@@@@@@ N()
ZZZZ010308	1700	DATA={O}N{12}N()
ZZZZ010308	1800	=SET{_DATA@COLOR=_NAME};
ZZZZ010308	1900	=SET{N='NNNNNNNNNNNN'};
ZZZZ010308	2000	FORM=@@@@@@@@@@@@ R(R255G128B192）
ZZZZ010308	2100	DATA={O}R{12}R(R255G128B192）
ZZZZ010308	2200	=SET{_DATA@COLOR=_NAME};
ZZZZ010308	2300	=SET{R='RRRRRRRRRRRR'};
ZZZZ010308	2400	FORM=@@@@@@@@@@@@ B(R128G192B255)
ZZZZ010308	2500	DATA={O}B{12}B(R128G192B255)
ZZZZ010308	2600	=SET{_DATA@COLOR=_NAME};
ZZZZ010308	2700	=SET{B='BBBBBBBBBBBB'};
ZZZZ010308	2800	FORM=@@@@@@@@@@@@ Y(R255G255B128)
ZZZZ010308	2900	DATA={O}Y{12}Y(R255G255B128)
ZZZZ010308	3000	=SET{_DATA@COLOR=_NAME};
ZZZZ010308	3100	=SET{Y='YYYYYYYYYYYY'};
ZZZZ010308	3200	FORM=@@@@@@@@@@@@ G(R128G255B128)
ZZZZ010308	3300	DATA={O}G{12}G(R128G255B128)
ZZZZ010308	3400	=SET{_DATA@COLOR=_NAME};
ZZZZ010308	3500	=SET{G='GGGGGGGGGGGG'};
ZZZZ010308	3600	FORM=@@@@@@@@@@@@ E(R255G192B127)
ZZZZ010308	3700	DATA={O}E{12}E(R255G192B127)
ZZZZ010308	3800	=SET{_DATA@COLOR=_NAME};
ZZZZ010308	3900	=SET{E='EEEEEEEEEEEE'};
ZZZZ010308	4000	FORM=@@@@@@@@@@@@ P(R192G128B255)
ZZZZ010308	4100	DATA={O}P{12}P(R192G128B255)
ZZZZ010308	4200	=SET{_DATA@COLOR=_NAME};
ZZZZ010308	4300	=SET{P='PPPPPPPPPPPP'};
ZZZZ010308	4400	FORM=@@@@@@@@@@@@   @@@@@@@@@@@@ (R...G...B...)
ZZZZ010308	4500	DATA={O}X{12}X(R192G128B255)
ZZZZ010308	4600	=SET{X@COLOR=RGB};
ZZZZ010308	4700	=SET{X='XXXXXXXXXXXX'};
ZZZZ010308	4800	DATA={,,,}RGB{12}
ZZZZ010309	100	PROGRAM=NOT,&X1,?_MM?_SAMPLE_TABLE
ZZZZ010309	200	CONTROL=PROGRAM
ZZZZ010309	300	BEGIN
ZZZZ010309	400	=SET{WN.FORM_2='  '+&.TITLE&SYSTEM_KEY1_SAMPLE+' '
ZZZZ010309	500	=   +&.TITLE&SYSTEM_KEY2_SAMPLE+' '+&.TITLE&SYSTEM_CHAR
ZZZZ010309	600	=   +'      '+&.TITLE&SYSTEM_DECIMAL};
ZZZZ010309	700	=SET{WN.FORM_1='            '+&.TITLE&SYSTEM_INT
ZZZZ010309	800	=   +'         '+&.TITLE&SYSTEM_DATE};
ZZZZ010309	900	FORM= 横８０文字に収まらない場合は、通常は複数行にわたって、
ZZZZ010309	1000	FORM= データー名-= データ値で表示されます。
ZZZZ010309	1100	FORM= (ただし、縦２５行に収まらない場合は１行スクロールに
ZZZZ010309	1200	FORM2=なります）
ZZZZ010309	1300	FORM=
ZZZZ010309	1400	FORM= 各種の設定でOUTPUTの画面表示を変えられます。
ZZZZ010309	1500	FORM=
ZZZZ010309	1600	FORM=======( CONTROL= )=====================================
ZZZZ010309	1700	FORM= @@@@@@ CONTROL=SCROLLは１データが１行表示に成ります。
ZZZZ010309	1800	FORM=        (表示しきれない場合は右にスクロールします）
ZZZZ010309	1900	DATA=SCROLL{6}{,SCROLL}
ZZZZ010309	2000	FORM= @@@@@  CONTROL=WIDTHは画面横方向８０文字で固定します。
ZZZZ010309	2100	FORM=        (右スクロール必要な場合のみ）
ZZZZ010309	2200	DATA=WIDTH{5}{,WIDTH}
ZZZZ010309	2300	FORM= @@@@@  CONTROL=HIGHは画面縦方向２５行で固定します。
ZZZZ010309	2400	DATA=HIGH{4}{,HIGH}
ZZZZ010309	2500	FORM= @@@@@  CONTROL=0は選択処理ができます。
ZZZZ010309	2600	DATA=ZERO{4}{,ZERO}
ZZZZ010309	2700	=SET{%?_NAME?='+'};IF{_DATA=}SET{%?_NAME?='-'};
ZZZZ010309	2800	FORM=======( LINE= )========================================
ZZZZ010309	2900	FORM= @@@@   LINE=2を付けると全部で2データ表示に成ります。
ZZZZ010309	3000	DATA=LINE{4}{,LINE}
ZZZZ010309	3100	=SET{%?_NAME?='+'};IF{_DATA=}SET{%?_NAME?='-'};
ZZZZ010309	3200	FORM=======( FORM.= )=======================================
ZZZZ010309	3300	FORM= ((注意:FORM.=は保守性が悪いので、必要な時以外は使用し
ZZZZ010309	3400	FORM2=ない事を推奨します))
ZZZZ010309	3500	FORM= @@@@@  FORM=..を付けると陽に画面を構成出来ます。
ZZZZ010309	3600	DATA=FORM1{5}{,FORM1}
ZZZZ010309	3700	=SET{%?_NAME?='+'};IF{_DATA=}SET{%?_NAME?='-'};
ZZZZ010309	3800	=IF{_DATA=}EXIT{};
ZZZZ010309	3900	=SET{%FORM0='-',FORM0=,%FORMX='-',FORMX=};
ZZZZ010309	3910	=EXIT{FORMX};
ZZZZ010309	4000	FORM= @@@@@  FORM0=..を付けるとそこから繰り返します。
ZZZZ010309	4100	DATA=FORM0{5}{,FORM0}
ZZZZ010309	4200	=SET{%?_NAME?='+'};IF{_DATA=}SET{%?_NAME?='-'};
ZZZZ010309	4300	*IF{_DATA=}EXIT{};
ZZZZ010309	4400	*SET{%FORMX='-',FORMX=};
ZZZZ010309	4500	FORM= @@@@@  FORM.=で色々な表現が出来ます。
ZZZZ010309	4600	DATA=FORMX{5}{,FORMX}
ZZZZ010309	4700	=SET{%?_NAME?='+'};IF{_DATA=}SET{%?_NAME?='-'};
ZZZZ010309	4800	=IF{_DATA=}EXIT{};
ZZZZ010309	4900	=SET{%FORM1='-',FORM1=,%FORM0='-',FORM0=};
ZZZZ010309	5000	FORM========================================================
ZZZZ010309	5100	PROGRAM=,&X1,?_MM?_SAMPLE_TABLE
ZZZZ010309	5200	CONTROL=?$SCROLL?,?$HIGH?,?$WIDTH?
ZZZZ010309	5300	%ZERO+CONTROL=0
ZZZZ010309	5400	%LINE+LINE=2
ZZZZ010309	5500	%FORM1+FORM=(FORM=)?$WN.FORM_1?
ZZZZ010309	5600	%FORM1+FORM=?$WN.FORM_2?
ZZZZ010309	5700	%FORM0+FORM0=(FORM0=)?$WN.FORM_1?
ZZZZ010309	5800	%FORM0+FORM0=?$WN.FORM_2?
ZZZZ010309	5900	%FORM1+FORM=              DUMMY1                           D
ZZZZ010309	6000	%FORM1+FORM2=UMMY2
ZZZZ010309	6100	%FORM0+|%FORM1+FORM=  @ @ @ @ @ @
ZZZZ010309	6200	%FORM0+FORM=              DUMMY1                           D
ZZZZ010309	6300	%FORM0+FORM2=UMMY2
ZZZZ010309	6400	%FORM0+|%FORM1+FORM=              @ @
ZZZZ010309	6500	%FORM0+FORM=************************************************
ZZZZ010309	6600	%FORM0+FORM2=********************************
ZZZZ010309	6700	%FORMX+FORM0=************************************************
ZZZZ010309	6800	%FORMX+FORM2=********************************
ZZZZ010309	6900	%FORMX+FORM=           ?&.TITLE&SYSTEM_KEY1_SAMPLE? = @
ZZZZ010309	7000	%FORMX+FORM=           ?&.TITLE&SYSTEM_KEY2_SAMPLE? = @
ZZZZ010309	7100	%FORMX+FORM=        ?&.TITLE&SYSTEM_CHAR? = @
ZZZZ010309	7200	%FORMX+FORM=      ?&.TITLE&SYSTEM_INT? = @
ZZZZ010309	7300	%FORMX+FORM=?&.TITLE&SYSTEM_DECIMAL? = @
ZZZZ010309	7400	%FORMX+FORM=          ?&.TITLE&SYSTEM_DATE? = @
ZZZZ010309	7500	%FORMX+FORM=          DUMMY1 = @
ZZZZ010309	7600	%FORMX+FORM=          DUMMY2 = @
ZZZZ010309	7700	SET={O,*}$SCROLL{6}
ZZZZ010309	7800	SET={O,*}$WIDTH{5}
ZZZZ010309	7900	SET={O,*}$HIGH{4}
ZZZZ010309	8000	SET={O,*}$ZERO{4}
ZZZZ010309	8100	SET={O,*}$LINE{4}
ZZZZ010309	8200	SET={O,*}$FORM1{5}
ZZZZ010309	8300	SET={O,*}$FORM0{5}
ZZZZ010309	8400	SET={O,*}$FORMX{5}
ZZZZ010309	8500	DATA={K}?&.DATA&SYSTEM_KEY1_SAMPLE?
ZZZZ010309	8600	DATA={K}?&.DATA&SYSTEM_KEY2_SAMPLE?
ZZZZ010309	8700	DATA=   ?&.DATA&SYSTEM_CHAR?
ZZZZ010309	8800	DATA=   ?&.DATA&SYSTEM_INT?
ZZZZ010309	8900	DATA=   ?&.DATA&SYSTEM_DECIMAL?
ZZZZ010309	9000	DATA=   ?&.DATA&SYSTEM_DATE?
ZZZZ010309	9100	COPY=@ZZZZZZ_SQL
ZZZZ010309	9200	DATA=DUMMY1{32}
ZZZZ010309	9300	DATA=DUMMY2{32}
ZZZZ010309	9400	PROGRAM=NOT
ZZZZ010309	9500	DATA={KO}$?$&.DATA&SYSTEM_KEY1_SAMPLE?
ZZZZ010309	9600	DATA={KO}$?$&.DATA&SYSTEM_KEY2_SAMPLE?
ZZZZ010309	9700	DATA={O}$?$&.DATA&SYSTEM_CHAR?
ZZZZ010309	9800	DATA={O}$?$&.DATA&SYSTEM_INT?
ZZZZ010309	9900	DATA={O}$?$&.DATA&SYSTEM_DECIMAL?
ZZZZ010309	10000	DATA={O}$?$&.DATA&SYSTEM_DATE?
ZZZZ010309	10100	DATA={O}$DUMMY1{32}
ZZZZ010309	10200	DATA={O}$DUMMY2{32}
ZZZZ010309	10300	*SET{DUMMY2=$&.DATA&SYSTEM_DECIMAL};
ZZZZ010309	10400	DATA=END{1}
ZZZZ010311	100	PROGRAM=NOT
ZZZZ010311	285	BEGIN
ZZZZ010311	300	*SET{_TRACE=0};
ZZZZ010311	400	=SET{WN.EDIT='VWXYZ',_COUNTER=1};
ZZZZ010311	500	=SQL1{SELECT SYSTEM_HELP
ZZZZ010311	600	= ,CASE WHEN SYSTEM_HELP LIKE '  _%-%SET{%' THEN 1 ELSE 0 END
ZZZZ010311	700	=   FROM ?_MM?_I_HELP_TABLE
ZZZZ010311	800	=   WHERE SYSTEM_LANG='JA' AND SYSTEM_JOB='ZZZZ010241'
ZZZZ010311	900	=   AND ?_SUBSTR(SYSTEM_HELP;1;3)?='  _'
ZZZZ010311	1000	=   AND Z_CANCEL=' ' ORDER BY SYSTEM_SEQ};
ZZZZ010311	1100	=LOOP:SQL1_NEXT{WN.SYSTEM_HELP,WN.SET}JUMP{FIN};
ZZZZ010311	1110	=SET{WN.GETA=};
ZZZZ010311	1120	=IF{$$<100}SET{WN.GETA='0'};
ZZZZ010311	1130	=IF{$$<10}SET{WN.GETA='00'};
ZZZZ010311	1140	=SET{WN.NO$$=WN.GETA+$$};
ZZZZ010311	1200	=SET{WN.SYSTEM_HELP$$=WN.SYSTEM_HELP[3],WN.SET$$=WN.SET};
ZZZZ010311	1300	=SPLIT_CHAR{WN.SPLIT_}{WN.SYSTEM_HELP$$}{'-'};
ZZZZ010311	1310	=SET{WN.PARA$$=WN.SPLIT_1};
ZZZZ010311	1400	=SET{W0.LEN$$=80,WN.LIT$$=};
ZZZZ010311	1500	=SET{W0.L=WN.PARA$$@LENGTH};
ZZZZ010311	1510	=COMPUTE{W0.L1=W0.L-1,W0.L2=W0.L-2};
ZZZZ010311	1600	=IF{W0.L2>0}IF{WN.PARA$$[W0.L1;2]='許可'}
ZZZZ010311	1700	=   SET{WN.PARA$$=WN.PARA$$[1;W0.L2]+'ZZZZ'};
ZZZZ010311	1800	=IF{WN.PARA$$='_A_英字'}SET{WN.LIT$$='_A_Z'}JUMP{OK};
ZZZZ010311	2000	=IF{WN.PARA$$='_A数字'} SET{WN.LIT$$='_A26'}JUMP{OK};
ZZZZ010311	2100	=JUMP{SKIP};
ZZZZ010311	2200	=OK:SET{W0.LEN$$=40,%Z$$='-',WN.PARA$$=WN.LIT$$};
ZZZZ010311	2300	=SKIP:IF{WN.SET=0}JUMP{SET_0};
ZZZZ010311	2400	=SET_1:SET{W0.LEN$$=40,%Z$$='-',WN.LIT$$='123456789'};
ZZZZ010311	2500	=IF{WN.PARA$$='_ARG'}SET{WN.LIT$$='" % ! ` '+_YEN+' $ #'};
ZZZZ010311	2510	=IF{WN.PARA$$='_CODE'}SET{WN.LIT$$=0XFF71};半角ア*
ZZZZ010311	2512	=IF{WN.PARA$$='_SPACE_ERASE'}SET{WN.LIT$$='1 23  456  7890'};
ZZZZ010311	2520	=IF{WN.PARA$$='_TRIM'}SET{WN.LIT$$='   XYZ'};
ZZZZ010311	2600	=IF{WN.PARA$$='_UPPER'}SET{_LOWER='ABCDEFG',WN.LIT$$=_LOWER};
ZZZZ010311	2700	=IF{WN.PARA$$='_LOWER'}SET{WN.LIT$$='ABCDEFG'};
ZZZZ010311	2800	=IF{WN.PARA$$='_EDIT'}SET{WN.LIT$$='ABCDEF?_Q?WN.EDIT?_Q?'};
ZZZZ010311	2900	=IF{WN.PARA$$='_ENVIRONMENT'}SET{WN.LIT$$='TEMP'};
ZZZZ010311	2901	=IF{WN.PARA$$='_URL_ENCODE'}SET{WN.LIT$$='日本'};
ZZZZ010311	2902	=IF{WN.PARA$$='_URL_DECODE'}
ZZZZ010311	2903	=   SET{WN.LIT$$='%E6%97%A5%E6%9C%AC'};
ZZZZ010311	2912	=IF{WN.PARA$$/'_FIND_'}SET{WN.LIT$$=
ZZZZ010311	2920	=   '''ABAB56AB9''+''AB''',?WN.PARA$$?='ABAB56AB9'+'AB'}
ZZZZ010311	2931	=   JUMP{SET_0};
ZZZZ010311	3000	=IF{WN.PARA$$!='_WMI'}JUMP{SKIP};
ZZZZ010311	3010	W-=BACK{LOOP};
ZZZZ010311	3020	=IF{_FRAMEWORK='J'}BACK{LOOP};
ZZZZ010311	3100	=SET{WN.LIT$$=
ZZZZ010311	3110	=   '''WIN32_LOGICALDISK=''''C:''''''+''FREESPACE'''};
ZZZZ010311	3200	=SET{?WN.PARA$$?='WIN32_LOGICALDISK=''C:'''+'FREESPACE'};
ZZZZ010311	3300	=JUMP{SET_0};
ZZZZ010311	3400	=SKIP:SET{?WN.PARA$$?=WN.LIT$$};
ZZZZ010311	3500	=SET_0:
ZZZZ010311	3600	=IF_NAME_NOT{?WN.PARA$$?}SET{WN.DATA$$_1=,W0.REP$$=1}
ZZZZ010311	3800	=   JUMP{SKIP};
ZZZZ010311	3900	=SET{W=?WN.PARA$$?};
ZZZZ010311	4000	=SPLIT_FORM{WN.DATA$$_}{W}{W0.LEN$$};
ZZZZ010311	4100	=SET{W0.REP$$=_SPLIT_FORM_COUNT};
ZZZZ010311	4200	=SKIP:COMPUTE{_COUNTER+=1};
ZZZZ010311	4300	=BACK{LOOP};
ZZZZ010311	4400	=FIN:COMPUTE{W0.REPEAT0=_COUNTER-1};
ZZZZ010311	4500	PROGRAM=NOT
ZZZZ010311	4600	*****( 入力 )*****
ZZZZ010311	4700	FORM=@
ZZZZ010311	4800	DATA=IN{10}
ZZZZ010311	4900	REPEAT0=$W0.REPEAT0
ZZZZ010311	5000	FORM=(?$WN.NO$$?) @
ZZZZ010311	5100	DATA={O,,,Y}$WN.SYSTEM_HELP$${59}
ZZZZ010311	5200	REPEAT=$W0.REP$$
ZZZZ010311	5300	%Z$$+FORM=@
ZZZZ010311	5400	%Z$$-FORM=@@@@@@@@@@@@@@@@@@@@@@@ @
ZZZZ010311	5500	DATA={O}$WN.DATA$$_##{?$W0.LEN$$?}
ZZZZ010311	5600	REPEAT=
ZZZZ010311	5700	%Z$$-DATA={O,,,B}$WN.LIT$${39}
ZZZZ010311	5800	REPEAT0=
ZZZZ010311	5900	END
ZZZZ010311	6000	=EXIT{0};
ZZZZ010312	100	PROGRAM=NOT,&X1,?_MM?_SAMPLE_TABLE
ZZZZ010312	110	CONTROL=PROGRAM
ZZZZ010312	200	*TABLE=&X1,?_MM?_SAMPLE_TABLE
ZZZZ010312	300	BEGIN
ZZZZ010312	400	=SET{WN.EDIT='VWXYZ',_COUNTER=1,W0.NO=0};
ZZZZ010312	500	=SQL1{SELECT SYSTEM_HELP FROM ?_MM?_I_HELP_TABLE
ZZZZ010312	600	=   WHERE SYSTEM_LANG='JA' AND SYSTEM_JOB='ZZZZ010241'
ZZZZ010312	700	=   AND ?_SUBSTR(SYSTEM_HELP;1;4)?='  &['
ZZZZ010312	800	=   AND Z_CANCEL=' ' ORDER BY SYSTEM_SEQ};
ZZZZ010312	900	=LOOP:
ZZZZ010312	1000	=SQL1_NEXT{WN.HELP}JUMP{FIN};
ZZZZ010312	1100	=COMPUTE{W0.NO+=1};SET{WN.GETA=};
ZZZZ010312	1200	=IF{W0.NO<10}SET{WN.GETA='0'};
ZZZZ010312	1300	=SET{WN.NO$$='('+WN.GETA+W0.NO+')'};
ZZZZ010312	1400	=SET{WN.HELP$$='&.'+WN.HELP[13]};
ZZZZ010312	1500	=SPLIT_CHAR{WN.SPLIT_}{WN.HELP$$}{'-'};
ZZZZ010312	1510	=SET{WN.PARA$$=WN.SPLIT_1};
ZZZZ010312	1600	=SET{WN.PARA=WN.PARA$$,WN.COLOR$$='Y'};
ZZZZ010312	1700	=IF_NAME{?WN.PARA?}JUMP{DATA};
ZZZZ010312	1800	=SET{WN.DATA$$_1=,W0.REP$$=1};
ZZZZ010312	1900	=JUMP{SKIP};
ZZZZ010312	2000	=DATA:SET{W=?WN.PARA?};
ZZZZ010312	2100	=SPLIT_FORM{WN.DATA$$_}{W}{80};
ZZZZ010312	2110	=SET{W0.REP$$=_SPLIT_FORM_COUNT};
ZZZZ010312	2200	=SKIP:COMPUTE{_COUNTER+=1};
ZZZZ010312	2300	************************************************
ZZZZ010312	2400	=SET{W0.L=WN.PARA@LENGTH};COMPUTE{W0.L1=W0.L-1,W0.L2=W0.L-2};
ZZZZ010312	2500	=SET{W0.=W0.L1};IF{WN.PARA%'数'}JUMP{ADD};
ZZZZ010312	2600	=SET{W0.=W0.L2};IF{WN.PARA%'列名'}JUMP{ADD};
ZZZZ010312	2700	=BACK{LOOP};
ZZZZ010312	2800	=ADD:SET{%Z$-='-',WN.PARA_ORG=WN.PARA[1;W0.]};
ZZZZ010312	2900	=SET{W0.C=1};
ZZZZ010312	2910	=IF{WN.PARA_ORG/'&.INDEX_'}SET{W0.C=0};
ZZZZ010312	3000	=LOOP2:
ZZZZ010312	3100	=SET{WN.NO$$='    '};
ZZZZ010312	3200	=IF{W0.=W0.L1}
ZZZZ010312	3210	=   SET{WN.HELP=WN.PARA_ORG+W0.C};
ZZZZ010312	3300	=IF{W0.=W0.L2}
ZZZZ010312	3310	=   SET{WN.HELP=WN.PARA_ORG+&.ALL_?W0.C?};
ZZZZ010312	3400	=SET{WN.HELP$$=WN.HELP
ZZZZ010312	3410	=   ,W=?WN.HELP?,WN.COLOR$$='B'};
ZZZZ010312	3500	=SPLIT_FORM{WN.DATA$$_}{W}{80};
ZZZZ010312	3510	=SET{W0.REP$$=_SPLIT_FORM_COUNT};
ZZZZ010312	3600	=COMPUTE{_COUNTER+=1,W0.C+=1};
ZZZZ010312	3700	=IF{WN.PARA_ORG/'&.DATA_'}
ZZZZ010312	3710	=   IF{W0.C>&.DATA_COUNT}BACK{LOOP};
ZZZZ010312	3800	=IF{WN.PARA_ORG/'&.KEY_'}
ZZZZ010312	3810	=   IF{W0.C>&.KEY_COUNT}BACK{LOOP};
ZZZZ010312	3900	=IF{WN.PARA_ORG/'&.INDEX_'}
ZZZZ010312	4000	=   IF{W0.C>&.INDEX_COUNT}BACK{LOOP};
ZZZZ010312	4100	=IF{W0.C>&.ALL_COUNT}BACK{LOOP};
ZZZZ010312	4200	=BACK{LOOP2};
ZZZZ010312	4300	=FIN:COMPUTE{W0.REPEAT0=_COUNTER-1};
ZZZZ010312	4400	PROGRAM=NOT
ZZZZ010312	4500	*****( 入力 )*****
ZZZZ010312	4600	FORM=@
ZZZZ010312	4700	DATA=IN{10}
ZZZZ010312	4800	REPEAT0=$W0.REPEAT0
ZZZZ010312	4900	FORM=?$WN.NO$$? @
ZZZZ010312	5000	DATA={O,,,?$WN.COLOR$$?}$WN.HELP$${59}
ZZZZ010312	5100	REPEAT=$W0.REP$$
ZZZZ010312	5200	%Z$$+FORM=@
ZZZZ010312	5300	%Z$$+DATA={O}$WN.DATA$$_##{80}
ZZZZ010312	5400	REPEAT=
ZZZZ010312	5500	REPEAT0=
ZZZZ010312	5600	END
ZZZZ010312	5700	=EXIT{0};
ZZZZ010313	300	PROGRAM=NOT
ZZZZ010313	400	BEGIN
ZZZZ010313	500	=SET{N1='_M'};
ZZZZ010313	510	=SET{N2='_M_REAL'};
ZZZZ010313	530	=SET{N3='_M_TEST'};
ZZZZ010313	600	=SET{N4='_MM',N5='_MM_REAL',N6='_MM_TEST'};
ZZZZ010313	700	=SET{N7='_MP_AAAA'};
ZZZZ010313	800	=SET{N8='_MX',N9='_MX_AAAA'};
ZZZZ010313	810	=SET{N11='_WORK'};
ZZZZ010313	820	=SET{N12='_WORK_TABLE'};
ZZZZ010313	900	=SET{N13='_W',N14='_W_REAL',N15='_W_TEST'};
ZZZZ010313	1000	=SET{N16='_W_INP',N17='_W_I',N18='_W_REAL_INP'};
ZZZZ010313	1100	=SET{N19='_W_REAL_I',N20='_W_TEST_INP'};
ZZZZ010313	1200	=SET{N21='_W_TEST_I',N22='_W_OUT',N23='_W_O'};
ZZZZ010313	1300	=SET{N24='_W_REAL_OUT',N25='_W_REAL_O'};
ZZZZ010313	1400	=SET{N26='_W_TEST_OUT',N27='_W_TEST_O'};
ZZZZ010313	1500	=SET{N28='_WW',N29='_WW_REAL',N30='_WW_TEST'};
ZZZZ010313	1600	=SET{N31='_WW_INP',N32='_WW_I',N33='_WW_REAL_INP'};
ZZZZ010313	1700	=SET{N34='_WW_REAL_I',N35='_WW_TEST_INP'};
ZZZZ010313	1800	=SET{N36='_WW_TEST_I',N37='_WW_OUT',N38='_WW_O'};
ZZZZ010313	1900	=SET{N39='_WW_REAL_OUT',N40='_WW_REAL_O'};
ZZZZ010313	2000	=SET{N41='_WW_TEST_OUT',N42='_WW_TEST_O'};
ZZZZ010313	2100	=SET{N43='_WP_TEST_O_AAAA'};
ZZZZ010313	2600	REPEAT=43
ZZZZ010313	2700	=IF_ERROR_SET{D##=?N##?}NOP{};
ZZZZ010313	2800	REPEAT=
ZZZZ010313	2900	REPEAT=43
ZZZZ010313	3000	DATA=N##{18};
ZZZZ010313	3100	DATA=D##{50};
ZZZZ010313	3200	REPEAT=
ZZZZ010315	100	PROGRAM=NOT
ZZZZ010315	200	BEGIN_END
ZZZZ010315	300	NAME=DROP_TABLE_WORK
ZZZZ010315	400	REPEAT=?_A_A?
ZZZZ010315	500	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010315	600	REPEAT=
ZZZZ010315	700	NAME= (DROP_TABLE_WORK)
ZZZZ010315	800	BEGIN
ZZZZ010315	900	=SET{YES='YES'};
ZZZZ010315	1000	DATA=YES{3}{YES,NO}
ZZZZ010315	1100	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010315	1200	=CREATE_TABLE{?_WORK_TABLE?A,K,C,1}{N,N,2,D,D,3,2};
ZZZZ010315	1300	=SET{WCI.K1='A',WNI.N1='あ',W2I.D1=1.23};
ZZZZ010315	1400	=SET{WCI.K2='B',WNI.N2='い',W2I.D2=4.56};
ZZZZ010315	1500	=SET{WCI.K3='C',WNI.N3='う',W2I.D3=7.89};
ZZZZ010315	1600	REPEAT=3
ZZZZ010315	1700	=SQL{INSERT INTO ?_WORK_TABLE?A (K,N,D) VALUES
ZZZZ010315	1800	=   ('?WCI.K##?',?_N?'?WNI.N##?',?W2I.D##?)};
ZZZZ010315	1900	REPEAT=
ZZZZ010315	2000	=SET{W0T=1};SET{W0TMAX?W0T?=2,W0TDATA?W0T?=1};
ZZZZ010315	2100	=PROGRAM{0,?_WORK_TABLE?A,WN.N=,W2.D=}{WC.K='A'}{};
ZZZZ010315	2200	=SET{WC.1.K.1=WC.K,WN.1.N.1=WN.N,W2.1.D.1=W2.D};
ZZZZ010315	2300	=SET{W0T=2};SET{W0TMAX?W0T?=2,W0TDATA?W0T?=1};
ZZZZ010315	2400	=SQL_SET{WC.2.K.1,WN.2.N.1,W2.2.D.1}{SELECT K,N,D
ZZZZ010315	2500	=   FROM ?_WORK_TABLE?A WHERE K='A' AND Z_CANCEL=' '};
ZZZZ010315	2600	=SET{W0T=3};SET{W0TMAX?W0T?=9,W0TDATA?W0T?=3};
ZZZZ010315	2700	=SQL1{SELECT K,N,D FROM ?_WORK_TABLE?A
ZZZZ010315	2800	=   WHERE Z_CANCEL=' ' ORDER BY 1,2,3};
ZZZZ010315	2900	=SET{W0CNT=1};
ZZZZ010315	3000	=SQL1_NEXT:SQL1_NEXT{WC.K,WN.N,W2.D}JUMP{SQL1_END};
ZZZZ010315	3100	=SET{WC.3.K.?W0CNT?=WC.K,WN.3.N.?W0CNT?=WN.N};
ZZZZ010315	3200	=SET{W2.3.D.?W0CNT?=W2.D};
ZZZZ010315	3300	=COMPUTE{W0CNT+=1};
ZZZZ010315	3400	=BACK{SQL1_NEXT};
ZZZZ010315	3500	=SQL1_END:
ZZZZ010315	3600	=SET{W0T=4};SET{W0TMAX?W0T?=2,W0TDATA?W0T?=3};
ZZZZ010315	3700	=SQL_REPEAT{WC.4.K.,WN.4.N.,W2.4.D.}{SELECT K,N,D
ZZZZ010315	3800	=   FROM ?_WORK_TABLE?A WHERE Z_CANCEL=' ' ORDER BY 1,2,3};
ZZZZ010315	3900	=SET{W0T=5};SET{W0TMAX?W0T?=11,W0TDATA?W0T?=3};
ZZZZ010315	4000	=SQL_FILE{A,OT}{SELECT K,N,D
ZZZZ010315	4100	=   FROM ?_WORK_TABLE?A WHERE Z_CANCEL=' ' ORDER BY 1,2,3};
ZZZZ010315	4200	=IF_ERROR_READ_OPEN{F1,?_SQL_FILE?A}ERROR{};
ZZZZ010315	4300	=SET{W0CNT=1};
ZZZZ010315	4400	=READ_NEXT:
ZZZZ010315	4500	=READ_NEXT{F1,WC.K,WN.N,W2.D}JUMP{READ_END};
ZZZZ010315	4600	=SET{WC.5.K.?W0CNT?=WC.K,WN.5.N.?W0CNT?=WN.N};
ZZZZ010315	4700	=SET{W2.5.D.?W0CNT?=W2.D};
ZZZZ010315	4800	=COMPUTE{W0CNT+=1};
ZZZZ010315	4900	=BACK{READ_NEXT};
ZZZZ010315	5000	=READ_END:READ_CLOSE{F1};
ZZZZ010315	5100	*****( PROGRAM SET )*****************************************
ZZZZ010315	5200	=SQL1{SELECT SYSTEM_PROGRAM FROM ?_MM?_I_PROGRAM_TABLE
ZZZZ010315	5300	=   WHERE SYSTEM_JOB='?_JOB?' AND Z_CANCEL=' '
ZZZZ010315	5400	=   ORDER BY SYSTEM_SEQ};
ZZZZ010315	5500	=SET{W0TMAX=0,W0T=0};
ZZZZ010315	5600	=SQL1_NEXT:SQL1_NEXT{WN.SYSTEM_PROGRAM}JUMP{SQL1_END};
ZZZZ010315	5700	=IF{W0TMAX=0}JUMP{J0};
ZZZZ010315	5800	=IF{W0CNT>=W0TMAX}SET{W0TMAX=0}JUMP{J0};
ZZZZ010315	5900	=COMPUTE{W0CNT+=1};
ZZZZ010315	6000	=SET{WNT?W0T??W0CNT?=WN.SYSTEM_PROGRAM};
ZZZZ010315	6100	=SET{W0T?W0T??W0CNT?=WNT?W0T??W0CNT?@FORM_LENGTH};
ZZZZ010315	6200	=IF{WN.SYSTEM_PROGRAM/'=SQL',/'=   ',/'=PROGRAM{'}
ZZZZ010315	6300	=   SET{WC.COLOR='Y'}JUMP{};
ZZZZ010315	6400	=   SET{WC.COLOR='G'};
ZZZZ010315	6500	=SET{WCT?W0T??W0CNT?=WC.COLOR};
ZZZZ010315	6600	=BACK{SQL1_NEXT};
ZZZZ010315	6700	=J0:IF{WN.SYSTEM_PROGRAM!/'=SET{W0T='}BACK{SQL1_NEXT};
ZZZZ010315	6800	=COMPUTE{W0T+=1};SET{W0CNT=0,W0TMAX=W0TMAX?W0T?};
ZZZZ010315	6900	=BACK{SQL1_NEXT};
ZZZZ010315	7000	=SQL1_END:
ZZZZ010315	7100	=SQL_REPEAT{WNT6,W0T6}{SELECT SYSTEM_ETC,?_LEN(SYSTEM_ETC)?
ZZZZ010315	7200	=   FROM ?_MM?_ETC_TABLE
ZZZZ010315	7300	=   WHERE SYSTEM_KEY1='ZZZZZZ_COPY'
ZZZZ010315	7400	=   AND SYSTEM_KEY2 LIKE 'ZZZZZZ_SQL %'
ZZZZ010315	7500	=   AND Z_CANCEL=' ' ORDER BY SYSTEM_KEY2};
ZZZZ010315	7600	=SET{W0TMAX6=_SQL_REPEAT_COUNT};
ZZZZ010315	7700	PROGRAM=NOT
ZZZZ010315	7800	FORM=@
ZZZZ010315	7900	DATA=BEGIN{1}
ZZZZ010315	8000	FORM=テーブルの情報。
ZZZZ010315	8100	REPEAT=3
ZZZZ010315	8200	FORM=   ##.   K = @        N = @@        D = @@@
ZZZZ010315	8300	DATA={O,,,B}$WCI.K##{1}
ZZZZ010315	8400	DATA={O,,,B}$WNI.N##{2}
ZZZZ010315	8500	DATA={O,,,B}$W2I.D##{3,2,-}
ZZZZ010315	8600	REPEAT=
ZZZZ010315	8800	REPEAT0=5
ZZZZ010315	8900	FORM=********************************************************
ZZZZ010315	9000	$1+FORM=(1)検索したデータを一件のみ受け取る命令1/2。
ZZZZ010315	9100	$1+FORM=   検索キーを設定し受け取ります。
ZZZZ010315	9200	$1+FORM=   1.1[1]が0が検索の意味です。[カギカッコ内は旧の位置
ZZZZ010315	9300	$1+FORM2=]
ZZZZ010315	9400	$1+FORM=   1.2[3]が検索のテーブル名です。
ZZZZ010315	9800	$1+FORM=   1.3[2]は受け取るデータ名です。
ZZZZ010315	9900	$1+FORM=      「データ名=」でデータ名を設定出来ます。
ZZZZ010315	10000	$1+FORM=      (当命令は更新処理も含まれているので、共通仕様で
ZZZZ010315	10100	$1+FORM=       事前にデータ名が設定されている必要があります)
ZZZZ010315	10110	$1+FORM=   2[4]は検索キーのデータ名です。
ZZZZ010315	10120	$1+FORM=      テーブルの列名は最後の.以降が採用されます。
ZZZZ010315	10130	$1+FORM=      「データ名=内容」でデータ名の設定と内容転送を
ZZZZ010315	10140	$1+FORM2=ここで実行できます。
ZZZZ010315	10200	$1+FORM=   3[5]検索条件を設定する場合に記入しします。
ZZZZ010315	10400	$2+FORM=(2)検索したデータを一件のみ受け取る命令2/2。
ZZZZ010315	10500	$2+FORM=   SQL文を書いて受け取ります。
ZZZZ010315	10600	$2+FORM=   1で受け取るデータ名を書きます。
ZZZZ010315	10700	$2+FORM=   2でSQL文を書きます。
ZZZZ010315	10800	$3+FORM=(3)検索したデータを一件づつ受け取る命令。
ZZZZ010315	10900	$3+FORM=   複数のデータを順番に受け取る場合に使用します。
ZZZZ010315	11000	$3+FORM=   SQL1にSQL文を書きます。
ZZZZ010315	11100	$3+FORM=   SQL1_NEXTで1件づつデータを受け取ります。
ZZZZ010315	11200	$3+FORM=   SQL1_NEXTはデータが有ると;までスキップします。
ZZZZ010315	11300	$4+FORM=(4)検索したデータを一度に全件受け取る命令。
ZZZZ010315	11400	$4+FORM=   受け取るデータ名は最後に1から順番に番号が付加され
ZZZZ010315	11500	$4+FORM2=ます。
ZZZZ010315	11600	$4+FORM=   _SQL_REPEAT_COUNTに受け取った件数が設定されます。
ZZZZ010315	11700	$5+FORM=(5)検索したデータをファイルに書きだす命令。
ZZZZ010315	11800	REPEAT=$W0TMAX$$
ZZZZ010315	11900	FORM=   @
ZZZZ010315	12000	DATA={O,,,?$WCT$$##?}$WNT$$##{?$W0T$$##?}
ZZZZ010315	12100	REPEAT=
ZZZZ010315	12200	REPEAT=$W0TDATA$$
ZZZZ010315	12300	FORM=  WC.$$.K.##= @  WN.$$.N.##= @@  W2.$$.D.##= @@@
ZZZZ010315	12400	DATA={O,,,B}$WC.$$.K.##{1}
ZZZZ010315	12500	DATA={O,,,B}$WN.$$.N.##{2}
ZZZZ010315	12600	DATA={O,,,B}$W2.$$.D.##{3,2,-}
ZZZZ010315	12700	REPEAT=
ZZZZ010315	12800	FORM= @
ZZZZ010315	12900	DATA=STOP$${1}
ZZZZ010315	13000	REPEAT0=
ZZZZ010315	13100	FORM=(6)PROGRAM=INPUTとPROGRAM=OUTPUTの検索命令
ZZZZ010315	13200	FORM=   この命令はSQL=で行いますが、SET=やDATA=の設定によって
ZZZZ010315	13300	FORM=   SQLを組み立てる必要が有るのでプログラム内では
ZZZZ010315	13400	FORM=   COPY=?_A?ZZZZZZ_SQLを使って対応しています。
ZZZZ010315	13500	FORM=   ?_A?ZZZZZZ_SQLの内容は以下のように成っています。
ZZZZ010315	13600	COPY=@ZZZZZZ_SQL
ZZZZ010315	13700	REPEAT=$W0TMAX6
ZZZZ010315	13800	FORM=   @
ZZZZ010315	13900	DATA={O,,,Y}$WNT6##{?$W0T6##?}
ZZZZ010315	14000	1+FORM=   _SELECT_COUNTは_DATA_COUNTと同じでDATA=の数だけ
ZZZZ010315	14100	1+FORM2=繰り返します。
ZZZZ010315	14200	2+FORM=   _SELECT?_S?#の_SELECT1は"SELECT 別名.列名"で
ZZZZ010315	14300	2+FORM2=_SELECT2以降は",別名.列名"ですが、
ZZZZ010315	14400	2+FORM=   DATA=の中にSELECT=が書かれていると別名.列名を内容で
ZZZZ010315	14500	2+FORM2=置き換えます。
ZZZZ010315	14600	4+FORM=   更新処理の場合論理削除を判定するためZ_CANCELも
ZZZZ010315	14700	4+FORM2=検索します。
ZZZZ010315	14800	5+FORM=   _FROM_COUNTはLEFT=等の結合命令で2以上になります。
ZZZZ010315	14900	6+FORM=   _FROM?_S?#の_FROM1はPROGRAM=で宣言したテーブル名を
ZZZZ010315	15000	6+FORM2="FROM テーブル名 別名"とします。
ZZZZ010315	15100	6+FORM=   _FROM2以降はLEFT=等で宣言したテーブルを結合します。
ZZZZ010315	15200	8+FORM=   _LEFT_COUNTはデータ辞書でテーブルとのチェックを宣言
ZZZZ010315	15300	8+FORM2=している物の数です。
ZZZZ010315	15400	9+FORM=@  _LEFT?_S?#でLEFT JOIN の結合をします。
ZZZZ010315	15500	9+DATA=STOP{1}
ZZZZ010315	15600	11+FORM=   _WHERE_COUNTは_SET_COUNTと同じでSET=の数だけ
ZZZZ010315	15700	11+FORM2=繰り返します。
ZZZZ010315	15800	12+FORM=   _WHERE?_S?#はSET=にデータが入力された場合検索条件
ZZZZ010315	15900	12+FORM2=を設定します。
ZZZZ010315	16000	14+FORM=   検索処理の場合論理削除データは不要なのでここで省き
ZZZZ010315	16100	14+FORM2=ます。
ZZZZ010315	16200	15+FORM=   _GROUP_COUNTは_DATA_COUNTと同じでDATA=の数だけ
ZZZZ010315	16300	15+FORM2=繰り返します。
ZZZZ010315	16400	16+FORM=   _GROUP?_S?#は_DATA=の属性4にGが設定されている物を
ZZZZ010315	16500	16+FORM2=設定します。
ZZZZ010315	16600	18+FORM=   _HAVINGは_HAVING変数に値を設定するとここに
ZZZZ010315	16700	18+FORM2=設定します。
ZZZZ010315	16800	19+FORM=   _ORDER_COUNTは_DATA_COUNTと同じでDATA=の数だけ
ZZZZ010315	16900	19+FORM2=繰り返します。
ZZZZ010315	17000	20+FORM=   _ORDER?_S?#はDATA=の属性1かKの物か、属性3がAかD(
ZZZZ010315	17100	20+FORM2=DESC)で有ると設定されます。
ZZZZ010315	17200	REPEAT=
ZZZZ010315	17300	DATA=END{1}
ZZZZ010315	17400	END
ZZZZ010315	17500	=EXIT{0};
ZZZZ010316	100	PROGRAM=NOT
ZZZZ010316	110	=SET{_TRACE=0};
ZZZZ010316	200	=SET{W0T=1};SET{W0TMAX?W0T?=7,W0TEND?W0T?=4,W0TBEG?W0T?=4};
ZZZZ010316	300	BEGIN_END
ZZZZ010316	400	NAME=DROP_TABLE_WORK
ZZZZ010316	500	REPEAT=?_A_B?
ZZZZ010316	600	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010316	700	REPEAT=
ZZZZ010316	800	NAME= (DROP_TABLE_WORK)
ZZZZ010316	900	BEGIN
ZZZZ010316	1000	BEGIN_END
ZZZZ010316	1100	=ERASE_FILE{?_WORK?};
ZZZZ010316	1200	=SET{YES='YES'};
ZZZZ010316	1300	DATA=YES{3}{YES,NO}
ZZZZ010316	1400	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010316	1500	=SET{W0OA3=1,W0OB3=1};
ZZZZ010316	1600	=SET{WCOA3.K11=,WCOA3.K21=,WCOA3.D11=,WCOA3.D21=
ZZZZ010316	1700	=   ,WCOA3.Z_CANCEL1=};
ZZZZ010316	1800	=SET{WCOB3.K11=,WCOB3.K21=,WCOB3.D11=,WCOB3.D21=
ZZZZ010316	1900	=   ,WCOB3.Z_CANCEL1=};
ZZZZ010316	2000	=SET{W0T=2};SET{W0TMAX?W0T?=2,W0TEND?W0T?=2,W0TBEG?W0T?=1};
ZZZZ010316	2100	=CREATE_TABLE{?_WORK_TABLE?A,K1,C,1,K2,C,1}
ZZZZ010316	2200	=  {D1,C,1,D2,C,1};
ZZZZ010316	2300	=SET{W0T=3};SET{W0TMAX?W0T?=1,W0TEND?W0T?=1,W0TBEG?W0T?=1};
ZZZZ010316	2400	=COPY_TABLE{?_WORK_TABLE?B,?_WORK_TABLE?A,NOT};
ZZZZ010316	2500	=SET{W0T=4};SET{W0TMAX?W0T?=2,W0TEND?W0T?=2,W0TBEG?W0T?=1};
ZZZZ010316	2600	=PROGRAM{2,?_WORK_TABLE?A,WC.D1='A',WC.D2='A'}
ZZZZ010316	2700	=   {WC.K1='A',WC.K2='A'}{};
ZZZZ010316	2800	NAME=SET_AB
ZZZZ010316	2900	REPEAT=2 (A,B)
ZZZZ010316	3000	=SQL_REPEAT{WCO?_A##??W0T?.K1,WCO?_A##??W0T?.K2
ZZZZ010316	3100	=,WCO?_A##??W0T?.D1,WCO?_A##??W0T?.D2
ZZZZ010316	3200	=,WCO?_A##??W0T?.Z_CANCEL}{SELECT K1,K2,D1,D2
ZZZZ010316	3300	= ,?_SUBSTR(Z_CANCEL;1;10)?
ZZZZ010316	3400	= FROM ?_WORK_TABLE??_A##? ORDER BY 1,2,3,4};
ZZZZ010316	3500	=SET{W0O?_A##??W0T?=_SQL_REPEAT_COUNT};
ZZZZ010316	3600	REPEAT=
ZZZZ010316	3700	=CHECK:
ZZZZ010316	3800	=IF{W0OA?W0T?=W0OB?W0T?}JUMP{AB_OK};
ZZZZ010316	3900	=IF{W0OA?W0T?>W0OB?W0T?}COMPUTE{W0OB?W0T?+=1}
ZZZZ010316	4000	=  SET{W0O=W0OB?W0T?}
ZZZZ010316	4100	=  SET{WCOB?W0T?.K1?W0O?=,WCOB?W0T?.K2?W0O?=
ZZZZ010316	4200	=     ,WCOB?W0T?.D1?W0O?=,WCOB?W0T?.D2?W0O?=
ZZZZ010316	4300	=     ,WCOB?W0T?.Z_CANCEL?W0O?=}BACK{CHECK};
ZZZZ010316	4400	=COMPUTE{W0OA?W0T?+=1};SET{W0O=W0OA?W0T?};
ZZZZ010316	4500	=SET{WCOA?W0T?.K1?W0O?=,WCOA?W0T?.K2?W0O?=
ZZZZ010316	4600	=     ,WCOA?W0T?.D1?W0O?=,WCOA?W0T?.D2?W0O?=
ZZZZ010316	4700	=     ,WCOA?W0T?.Z_CANCEL?W0O?=}BACK{CHECK};
ZZZZ010316	4800	=AB_OK:
ZZZZ010316	4900	REPEAT=2 (A,B)
ZZZZ010316	5000	=COMPUTE{W0T_M1=W0T-1}
ZZZZ010316	5100	=SET{W0O=W0O?_A##??W0T_M1?};
ZZZZ010316	5200	=OLD_CHECK:
ZZZZ010316	5300	=IF{W0O?_A##??W0T?<=W0O}JUMP{OLD_OK};
ZZZZ010316	5400	=COMPUTE{W0O+=1}
ZZZZ010316	5500	=SET{WCO?_A##??W0T_M1?.K1?W0O?=
ZZZZ010316	5600	=   ,WCO?_A##??W0T_M1?.K2?W0O?=
ZZZZ010316	5700	=   ,WCO?_A##??W0T_M1?.D1?W0O?=
ZZZZ010316	5800	=   ,WCO?_A##??W0T_M1?.D2?W0O?=
ZZZZ010316	5900	=   ,WCO?_A##??W0T_M1?.Z_CANCEL?W0O?=};
ZZZZ010316	6000	=BACK{OLD_CHECK};
ZZZZ010316	6100	=OLD_OK:
ZZZZ010316	6200	REPEAT=
ZZZZ010316	6300	NAME=
ZZZZ010316	6400	=SET{W0T=5};SET{W0TMAX?W0T?=2,W0TEND?W0T?=2,W0TBEG?W0T?=1};
ZZZZ010316	6500	=INSERT{?_WORK_TABLE?A
ZZZZ010316	6600	=  ,WC.K1='A',WC.K2='B',WC.D1='A',WC.D2='B'};
ZZZZ010316	6700	COPY=SET_AB
ZZZZ010316	6800	=SET{W0T=6};SET{W0TMAX?W0T?=7,W0TEND?W0T?=7,W0TBEG?W0T?=7};
ZZZZ010316	6900	=IF_ERROR_WRITE_OPEN{1,?_TMP??_WORK?,OT}ERROR{};
ZZZZ010316	7000	=WRITE{1,'A','A','W','W'};
ZZZZ010316	7100	=WRITE{1,'A','B','X','Y'};
ZZZZ010316	7200	=WRITE{1,'A','C','A','C'};
ZZZZ010316	7300	=WRITE{1,'B','B','B','B'};
ZZZZ010316	7400	=WRITE_CLOSE{1};
ZZZZ010316	7500	=INSERT_FILE{?_WORK_TABLE?B,?_TMP??_WORK?,,K1,K2,D1,D2};
ZZZZ010316	7600	COPY=SET_AB
ZZZZ010316	7700	=SET{W0T=7};SET{W0TMAX?W0T?=2,W0TEND?W0T?=2,W0TBEG?W0T?=1};
ZZZZ010316	7800	=REPLACE_PART_ADD{?_WORK_TABLE?A,?_WORK_TABLE?B,D1,D2}
ZZZZ010316	7900	=  {K1,K2}{}{I.K1='A' AND I.K2='C'};
ZZZZ010316	8000	COPY=SET_AB
ZZZZ010316	8100	=SET{W0T=8};SET{W0TMAX?W0T?=2,W0TEND?W0T?=2,W0TBEG?W0T?=1};
ZZZZ010316	8200	=PROGRAM{3,?_WORK_TABLE?A,WC.D1='Z',WC.D2='Z'}
ZZZZ010316	8300	=   {WC.K1='A',WC.K2='B'}{};
ZZZZ010316	8400	COPY=SET_AB
ZZZZ010316	8500	=SET{W0T=9};SET{W0TMAX?W0T?=3,W0TEND?W0T?=3,W0TBEG?W0T?=1};
ZZZZ010316	8600	=UPDATE{?_WORK_TABLE?A,D1,D2}{I.D1,I.D2}
ZZZZ010316	8700	=  {?_WORK_TABLE?B I WHERE I.K1=O.K1 AND
ZZZZ010316	8800	=   I.K2=O.K2 AND O.K1='A' AND O.K2='B'};
ZZZZ010316	8900	COPY=SET_AB
ZZZZ010316	9000	=SET{W0T=10};SET{W0TMAX?W0T?=2,W0TEND?W0T?=2,W0TBEG?W0T?=1};
ZZZZ010316	9100	=REPLACE_PART_CHANGE{?_WORK_TABLE?A,?_WORK_TABLE?B,D1,D2}
ZZZZ010316	9200	=  {K1,K2}{}{I.K1='A' AND I.K2='A'};
ZZZZ010316	9300	COPY=SET_AB
ZZZZ010316	9400	=SET{W0T=11};SET{W0TMAX?W0T?=1,W0TEND?W0T?=1,W0TBEG?W0T?=1};
ZZZZ010316	9500	=PROGRAM{1,?_WORK_TABLE?B}{WC.K1='A',WC.K2='B'}{};
ZZZZ010316	9600	COPY=SET_AB
ZZZZ010316	9700	=SET{W0T=12};SET{W0TMAX?W0T?=2,W0TEND?W0T?=2,W0TBEG?W0T?=1};
ZZZZ010316	9800	=REPLACE_PART_CANCEL{?_WORK_TABLE?A,?_WORK_TABLE?B}
ZZZZ010316	9900	=  {K1,K2}{}{I.K1='A'};
ZZZZ010316	10000	COPY=SET_AB
ZZZZ010316	10100	*****( PROGRAM SET )*****************************************
ZZZZ010316	10200	=SQL1{SELECT SYSTEM_PROGRAM FROM ?_MM?_I_PROGRAM_TABLE
ZZZZ010316	10300	=   WHERE SYSTEM_JOB='?_JOB?' AND Z_CANCEL=' '
ZZZZ010316	10400	=   ORDER BY SYSTEM_SEQ};
ZZZZ010316	10500	=SET{W0TMAX=0,W0T=0};
ZZZZ010316	10600	=SQL1_NEXT:SQL1_NEXT{WN.SYSTEM_PROGRAM}JUMP{SQL1_END};
ZZZZ010316	10700	=IF{W0TMAX=0}JUMP{J0};
ZZZZ010316	10800	=IF{W0CNT>=W0TMAX}SET{W0TMAX=0}JUMP{J0};
ZZZZ010316	10900	=COMPUTE{W0CNT+=1};
ZZZZ010316	11000	=SET{WNT?W0T??W0CNT?=WN.SYSTEM_PROGRAM};
ZZZZ010316	11100	=SET{W0T?W0T??W0CNT?=WNT?W0T??W0CNT?@FORM_LENGTH};
ZZZZ010316	11200	=IF{W0CNT>=W0TBEG?W0T?}IF{W0CNT<=W0TEND?W0T?}
ZZZZ010316	11300	=   SET{WC.COLOR='Y'}JUMP{};
ZZZZ010316	11400	=   SET{WC.COLOR='G'};
ZZZZ010316	11500	=SET{WCT?W0T??W0CNT?=WC.COLOR};
ZZZZ010316	11600	=BACK{SQL1_NEXT};
ZZZZ010316	11700	=J0:IF{WN.SYSTEM_PROGRAM!/'=SET{W0T='}BACK{SQL1_NEXT};
ZZZZ010316	11800	=COMPUTE{W0T+=1};SET{W0CNT=0,W0TMAX=W0TMAX?W0T?};
ZZZZ010316	11900	=BACK{SQL1_NEXT};
ZZZZ010316	12000	=SQL1_END:
ZZZZ010316	12100	PROGRAM=NOT
ZZZZ010316	12200	BEGIN
ZZZZ010316	12300	=SPLIT_CHAR{WCX2}{'K1,K2,D1,D2,Z_CANCEL'}{','};
ZZZZ010316	12400	=SPLIT_CHAR{WCX1}{'A,B'}{','};
ZZZZ010316	12500	REPEAT0=12
ZZZZ010316	12600	$1+|$2+|$3+COMMENT_BEGIN
ZZZZ010316	12700	REPEAT=$W0OA$$
ZZZZ010316	12800	=SET{W0CNT1=1};
ZZZZ010316	12900	=LOOP1:
ZZZZ010316	13000	=SET{WCX1=WCX1?W0CNT1?,W0CNT2=1};
ZZZZ010316	13100	=LOOP2:
ZZZZ010316	13200	=SET{WCX2=WCX2?W0CNT2?};
ZZZZ010316	13300	=SET{WCO?WCX1?$-.?WCX2?##O=WCO?WCX1?$-.?WCX2?##};
ZZZZ010316	13400	=IF{WCO?WCX1?$-.?WCX2?##=WCO?WCX1?$$.?WCX2?##}
ZZZZ010316	13500	=   SET{WCO?WCX1?$$.?WCX2?##C='W'}JUMP{};
ZZZZ010316	13600	=   SET{WCO?WCX1?$$.?WCX2?##C='B'};
ZZZZ010316	13700	=IF{W0CNT2!=5}COMPUTE{W0CNT2+=1}BACK{LOOP2};
ZZZZ010316	13800	=IF{W0CNT1!=2}COMPUTE{W0CNT1+=1}BACK{LOOP1};
ZZZZ010316	13900	REPEAT=
ZZZZ010316	14000	$1+|$2+|$3+COMMENT_END
ZZZZ010316	14100	REPEAT0=
ZZZZ010316	14200	PROGRAM=NOT
ZZZZ010316	14300	*CONTROL=HIGH
ZZZZ010316	14400	REPEAT0=12
ZZZZ010316	14500	DATA=STOP$${1}
ZZZZ010316	14600	$1+FORM=@ ***( 1 テーブル 削除 )*****************************
ZZZZ010316	14700	$1+FORM=(1)作業テーブルを削除する命令。
ZZZZ010316	14800	$1+FORM=   @  最初と最後に必ず実行するようにBEGIN_ENDとします
ZZZZ010316	14900	$1+FORM=   @  コピー出来るようにNAME=で名前を付けています。
ZZZZ010316	15000	$1+FORM=   @  _A_BはAから数えたBで2と成り2回繰り返します。
ZZZZ010316	15100	$1+FORM=   @  ##が1から順に記入され_A1がAに_A2はBになります。
ZZZZ010316	15200	$1+FORM=   @  繰り返しを終了します。
ZZZZ010316	15300	$1+FORM=   @ 名前を終了します。
ZZZZ010316	15400	$1+FORM=   @ 以降はBIGINのみと想定します。
ZZZZ010316	15500	$2+FORM=@ ***( 2 テーブル 作成 )*****************************
ZZZZ010316	15600	$2+FORM=(2.1)作業テーブルを作成する命令1/2。
ZZZZ010316	15700	$3+FORM=@ ---------------------------------------------------
ZZZZ010316	15800	$3+FORM=(2.2)作業テーブルを作成する命令2/2。
ZZZZ010316	15900	$4+FORM=@ ***( 3 行 作成 )***********************************
ZZZZ010316	16000	$4+FORM=(3.1)データを使って行を作成する命令1/2。
ZZZZ010316	16100	$5+FORM=@ ---------------------------------------------------
ZZZZ010316	16200	$5+FORM=(3.2)データを使って行を作成する命令2/2。
ZZZZ010316	16300	$6+FORM=@ ---------------------------------------------------
ZZZZ010316	16400	$6+FORM=(3.3)ファイルを使って行を作成する命令。
ZZZZ010316	16500	$7+FORM=@ ---------------------------------------------------
ZZZZ010316	16600	$7+FORM=(3.4)テーブルを使って行を作成する命令。
ZZZZ010316	16700	$8+FORM=@ ***( 4 行 修正 )***********************************
ZZZZ010316	16800	$8+FORM=(4.1)データを使って行を修正する命令。
ZZZZ010316	16900	$9+FORM=@ ---------------------------------------------------
ZZZZ010316	17000	$9+FORM=(4.2)テーブルを使って行を修正する命令1/2。
ZZZZ010316	17100	$10+FORM=@ --------------------------------------------------
ZZZZ010316	17200	$10+FORM=(4.3)テーブルを使って行を修正する命令2/2。
ZZZZ010316	17300	$10+FORM=
ZZZZ010316	17400	$11+FORM=@***( 5 行 削除 )**********************************
ZZZZ010316	17500	$11+FORM=(5.1)データを使って行を削除する命令。
ZZZZ010316	17600	$12+FORM=@ --------------------------------------------------
ZZZZ010316	17700	$12+FORM=(5.2)テーブルを使って行を削除する命令。
ZZZZ010316	17800	REPEAT=$W0TMAX$$
ZZZZ010316	17900	$1-FORM=   @
ZZZZ010316	18000	*DATA={O,,,?$WCT$$##?}$WNT$$##{?$W0T$$##?}
ZZZZ010316	18100	DATA={O,,,?$WCT$$##?}$WNT$$##{?$W0T$$##?}
ZZZZ010316	18200	REPEAT=
ZZZZ010316	18300	$1+|$2+|$3+COMMENT_BEGIN
ZZZZ010316	18400	FORM=A)K2  D2            B)K2  D2
ZZZZ010316	18500	FORM2=              A)K2  D2            B)K2  D2
ZZZZ010316	18600	FORM=K1  D1  Z_CANCEL    K1  D1  Z_CANCAL   ->
ZZZZ010316	18700	FORM2= K1  D1  Z_CANCEL    K1  D1  Z_CANCAL
ZZZZ010316	18800	REPEAT=$W0OA$$
ZZZZ010316	18900	FORM=@ @ @ @ @@@@@@@@@@  @ @ @ @ @@@@@@@@@@
ZZZZ010316	19000	FORM2=    @ @ @ @ @@@@@@@@@@  @ @ @ @ @@@@@@@@@@
ZZZZ010316	19100	DATA={O}$WCOA$-.K1##O{1}
ZZZZ010316	19200	DATA={O}$WCOA$-.K2##O{1}
ZZZZ010316	19300	DATA={O}$WCOA$-.D1##O{1}
ZZZZ010316	19400	DATA={O}$WCOA$-.D2##O{1}
ZZZZ010316	19500	DATA={O}$WCOA$-.Z_CANCEL##O{10}
ZZZZ010316	19600	DATA={O}$WCOB$-.K1##O{1}
ZZZZ010316	19700	DATA={O}$WCOB$-.K2##O{1}
ZZZZ010316	19800	DATA={O}$WCOB$-.D1##O{1}
ZZZZ010316	19900	DATA={O}$WCOB$-.D2##O{1}
ZZZZ010316	20000	DATA={O}$WCOB$-.Z_CANCEL##O{10}
ZZZZ010316	20100	DATA={O,,,?$WCOA$$.K1##C?}$WCOA$$.K1##{1}
ZZZZ010316	20200	DATA={O,,,?$WCOA$$.K2##C?}$WCOA$$.K2##{1}
ZZZZ010316	20300	DATA={O,,,?$WCOA$$.D1##C?}$WCOA$$.D1##{1}
ZZZZ010316	20400	DATA={O,,,?$WCOA$$.D2##C?}$WCOA$$.D2##{1}
ZZZZ010316	20500	DATA={O,,,?$WCOA$$.Z_CANCEL##C?}$WCOA$$.Z_CANCEL##{10}
ZZZZ010316	20600	DATA={O,,,?$WCOB$$.K1##C?}$WCOB$$.K1##{1}
ZZZZ010316	20700	DATA={O,,,?$WCOB$$.K2##C?}$WCOB$$.K2##{1}
ZZZZ010316	20800	DATA={O,,,?$WCOB$$.D1##C?}$WCOB$$.D1##{1}
ZZZZ010316	20900	DATA={O,,,?$WCOB$$.D2##C?}$WCOB$$.D2##{1}
ZZZZ010316	21000	DATA={O,,,?$WCOB$$.Z_CANCEL##C?}$WCOB$$.Z_CANCEL##{10}
ZZZZ010316	21100	REPEAT=
ZZZZ010316	21200	$1+|$2+|$3+COMMENT_END
ZZZZ010316	21300	$1+FORM=   テーブルが無い場合は何もしないで正常終了します。
ZZZZ010316	21400	$1+FORM=   作業テーブルは_WORK_TABLEに英字１文字を付加します
ZZZZ010316	21500	$1+FORM2=。
ZZZZ010316	21600	$1+FORM=   作業テーブルは複数使う場合が多いので
ZZZZ010316	21700	$1+FORM2=上記のようにします。
ZZZZ010316	21800	$1+FORM=   プログラムの更新の操作で「A 挿入順序番号
ZZZZ010316	21900	$1+FORM2= =DROP_TABLE」とすると挿入出来ます。
ZZZZ010316	22000	$2+FORM=   1.1は作成する作業テーブル名を記入します。
ZZZZ010316	22200	$2+FORM=   1.2は主キーの列名とデータ型を記入します。
ZZZZ010316	22220	$2+FORM2=(C,1はデータ型のCHAR(1)です）
ZZZZ010316	22300	$2+FORM=   2は主キー以外の列名とデータ型を記入します
ZZZZ010316	22400	$2+FORM2=。
ZZZZ010316	22500	$2+FORM=   CREATE_TABLE2とするとI言語用の列を付加しません。
ZZZZ010316	22600	$3+FORM=   2番目テーブル名と同じ物を１番目テーブル名
ZZZZ010316	22700	$3+FORM2=として作ります。
ZZZZ010316	22800	$3+FORM=   1.3を空白にすると全件のデータをコピーします。
ZZZZ010316	22900	$3+FORM=   1.3がNOTか空白以外の場合はSQLの条件文です
ZZZZ010316	22910	$3+FORM2=(NOTは何もコピーしません)
ZZZZ010316	23000	$4+FORM=   1.1の2が作成を意味します。
ZZZZ010316	23010	$4+FORM=   1.1を2Eとすると,対象データ既に有ると修正します。
ZZZZ010316	23100	$4+FORM=   1.1を2Nとすると,すでに対象データが有るとエラー
ZZZZ010316	23200	$4+FORM2=としないで正常終了します。
ZZZZ010316	23400	$4+FORM=   1.2は作成対象テーブル名を記入します。
ZZZZ010316	23500	$4+FORM=   1.3は更新キー以外のデータ名を記入します。
ZZZZ010316	23510	$4+FORM2=(=値で初期値を設定出来ます)
ZZZZ010316	23600	$4+FORM=   2は更新キーのデータ名を記入します。
ZZZZ010316	23610	$4+FORM2=(=値で初期値を設定出来ます)
ZZZZ010316	23700	$4+FORM=   PROGRAM2とするとZ_CANCELの削除データ判定をしません
ZZZZ010316	23800	$4+FORM2=。(論理削除を無視）
ZZZZ010316	23900	$5+FORM=   1.1は作成対象テーブル名を記入します。
ZZZZ010316	24000	$5+FORM=   1.2はデータ名を複数個記入できます。
ZZZZ010316	24100	$6+FORM=   1.1番目は作成対象テーブル名を記入します。
ZZZZ010316	24200	$6+FORM=   1.2番目は入力ファイル名を記入します。
ZZZZ010316	24300	$6+FORM=   1.3は文字コードを記入します。(空白はUTF-8です)
ZZZZ010316	24400	$6+FORM=   1.4番目移行は列名を複数個記入できます。
ZZZZ010316	24500	$7+FORM=   1.1のテーブル名に作成(ADD)します。
ZZZZ010316	24600	$7+FORM=   1.2のテーブルに存在するデータのみ(PART)を
ZZZZ010316	24700	$7+FORM2=対象とします。
ZZZZ010316	24800	$7+FORM=   1.3はキー以外の列名を記入します。
ZZZZ010316	24900	$7+FORM=   2キーの列名を記入します。
ZZZZ010316	25000	$7+FORM=   3は出力の条件を記入します。
ZZZZ010316	25100	$7+FORM=   4は入力の条件を記入します。
ZZZZ010316	25200	$7+FORM=   REPLACE_PART_ADD2とすると、入力テーブルの
ZZZZ010316	25300	$7+FORM2=Z_CANCELを無視します。
ZZZZ010316	25400	$8+FORM=   1.1が3が修正を意味します。
ZZZZ010316	25410	$8+FORM=   1.1を3Eとすると,対象データが無い時作成します。
ZZZZ010316	25500	$8+FORM=   1.1を3Nとすると,対象データ無くてもエラー
ZZZZ010316	25600	$8+FORM2=としないで正常終了します。
ZZZZ010316	25700	$8+FORM=   1.1を3Pとすると,対象データが複数件有っても
ZZZZ010316	25800	$8+FORM2=修正します。
ZZZZ010316	26100	$9+FORM=   1.1は修正対象テーブル名を記入します,別名が「O」
ZZZZ010316	26200	$9+FORM2=となります。
ZZZZ010316	26300	$9+FORM=   1.2は修正対象列名を記入します。
ZZZZ010316	26400	$9+FORM=   1.3は更新元列名を記入します。
ZZZZ010316	26500	$9+FORM=   3は更新元テーブルを含むSQL文を記入します。
ZZZZ010316	26600	$10+FORM=   1.1のテーブルを修正(CHANGE)します。
ZZZZ010316	26700	$10+FORM=   1.2のテーブルに存在するデータのみ(PART)を
ZZZZ010316	26800	$10+FORM2=対象とします。
ZZZZ010316	26900	$10+FORM=   1.3はキー以外の列名を記入します。
ZZZZ010316	27000	$10+FORM=   2はキーの列名を記入します。
ZZZZ010316	27100	$10+FORM=   3は出力の条件を記入します。
ZZZZ010316	27200	$10+FORM=   4は入力の条件を記入します。
ZZZZ010316	27300	$10+FORM=   REPLACE_PART_CHANGE2とすると、入力テーブルの
ZZZZ010316	27400	$10+FORM2=Z_CANCELを無視します。
ZZZZ010316	27500	$11+FORM=   1.1の1が削除を意味します。
ZZZZ010316	27600	$11+FORM=   1.1を1Nとすると,対象データ無くてもエラー
ZZZZ010316	27700	$11+FORM2=としないで正常終了します。
ZZZZ010316	27800	$11+FORM=   1.1を1Pとすると,対象データが複数件有っても
ZZZZ010316	27900	$11+FORM2=削除します。
ZZZZ010316	28000	$12+FORM=   1.1のテーブルを削除（CANCEL)します。
ZZZZ010316	28100	$12+FORM=   1.2のテーブルに存在する削除済みデータ
ZZZZ010316	28200	$12+FORM2=のみ(PART)を対象とします。
ZZZZ010316	28300	$12+FORM=   2は更新キーの列名を記入します。
ZZZZ010316	28400	$12+FORM=   3は出力の条件を記入します。
ZZZZ010316	28500	$12+FORM=   4は入力の条件を記入します。
ZZZZ010316	28800	REPEAT0=
ZZZZ010316	28900	FORM=@ ***( 6 その他の命令 )********************************
ZZZZ010316	29000	DATA=ETC{1}
ZZZZ010316	29100	FORM=(6.1)SQL文を実行する命令。
ZZZZ010316	29200	FORM=   =SQL{SQL文}
ZZZZ010316	29300	FORM=   =SQL_REAL_TEST{SQL文}
ZZZZ010316	29400	FORM=   SQL_REAL_TESTはテストデータベースも同時に実行します。
ZZZZ010316	29500	FORM=   SQL{BEGIN TRANSACTION}はトランザクションを開始します.
ZZZZ010316	29600	FORM=   SQL{COMMIT TRANSACTION}は実際に更新して
ZZZZ010316	29700	FORM2=トランザクションを終了します。
ZZZZ010316	29800	FORM=   SQL{ROLLBACK TRANSACTION}は更新を中止して
ZZZZ010316	29900	FORM2=トランザクションを終了します。
ZZZZ010316	30000	FORM=(6.2)テーブルに対しキー項目を元にデータを置き換える命令
ZZZZ010316	30100	FORM2=。
ZZZZ010316	30200	FORM=   =REPLACE_ALL{出力テーブル名,入力テーブル名
ZZZZ010316	30300	FORM=      ,データ列名,..}{キー列名,..}{出力条件}{入力条件}
ZZZZ010316	30400	FORM=   =REPLACE_PART{出力テーブル名,入力テーブル名
ZZZZ010316	30500	FORM=      ,データ列名,..}{キー列名,..}{出力条件}{入力条件}
ZZZZ010316	30600	FORM=    ALLは入力テーブルに無い行は削除対象となります。
ZZZZ010316	30700	FORM=    PARTは入力テーブルに存在する行のみを対象とします。
ZZZZ010316	30800	FORM=    命令の最後に2が有ると入力テーブルのZ_CANCELを判定
ZZZZ010316	30900	FORM2=しません。
ZZZZ010316	31000	FORM=(6.3)カーソルによるSQL処理を実行する命令。
ZZZZ010316	31100	FORM=   =CURSOR{テーブル名1[,..]}{列名1,[K,A,D,][,..]}
ZZZZ010316	31200	FORM=      {キー割れ開始処理}{１件処理}{キー割れ終了処理}
ZZZZ010316	31300	FORM=      {WHERE句}{作業データ定義1[,..]}
ZZZZ010316	31400	FORM=   テーブルの前の行の処理結果で対処行の処理が異なる場合
ZZZZ010316	31500	FORM2=のみ使います。
ZZZZ010316	31600	FORM=@
ZZZZ010316	31700	DATA=X{1}
ZZZZ010316	31800	FORM=(6.4)オブジェクトを作成する命令。
ZZZZ010316	31900	FORM=   =CREATE_OBJECT{オブジェクト名,対象,定義}
ZZZZ010316	32000	FORM=   オブジェクトはビュー、関数、プロシージャー、トリガー
ZZZZ010316	32100	FORM2=です。
ZZZZ010316	32200	FORM=(6.5)オブジェクトを削除する命令。
ZZZZ010316	32300	FORM=   =DROP_OBJECT{オブジェクト名,対象}
ZZZZ010316	32400	FORM=(6.6)インデックスを作成する命令。
ZZZZ010316	32500	FORM=   =CREATE_INDEX{テーブル名,インデックス番号,[UNIQUE],
ZZZZ010316	32600	FORM=     キー名,...}
ZZZZ010316	32700	FORM=   インデックス番号は0から9までですが、0は主キーで使って
ZZZZ010316	32800	FORM2=います。
ZZZZ010316	32900	FORM=(6.7)インデックスを削除する命令。
ZZZZ010316	33000	FORM=   =DROP_INDEX{テーブル名,インデクス番号}
ZZZZ010316	33100	FORM=(6.8)テーブルが有るか確認する命令。
ZZZZ010316	33200	FORM=   =IF_TABLE{テーブル名}..;..
ZZZZ010316	33300	FORM=   =IF_TABLE_NOT{テーブル名}..;..
ZZZZ010316	33400	FORM=(6.9)オブジェクトに対し標準の権限を設定する命令。
ZZZZ010316	33500	FORM=   =GRANT{オブジェクト名,対象[,PUBLIC,LINK]}
ZZZZ010316	33600	FORM=(6.10)他の許可のユーザにオブジェクトの権限を設定する命令
ZZZZ010316	33700	FORM2=。
ZZZZ010316	33800	FORM=   =GRANT_PERMISSION{オブジェクト,許可,[対象][,ユーザ]}
ZZZZ010316	33900	FORM=(6.11)他の許可のユーザのオブジェクトの権限を解除する命令
ZZZZ010316	34000	FORM2=。
ZZZZ010316	34100	FORM=   =REVOKE_PERMISSION{オブジェクト名,許可,[対象],ユー
ZZZZ010316	34200	FORM2=ザ}
ZZZZ010316	34300	FORM=@ END
ZZZZ010316	34400	DATA=END{1}
ZZZZ010316	34500	=EXIT{END};
ZZZZ010316	34600	END
ZZZZ010316	34700	=EXIT{0};
ZZZZ010317	100	PROGRAM=NOT
ZZZZ010317	200	BEGIN_END
ZZZZ010317	300	NAME=DROP_TABLE_WORK
ZZZZ010317	400	REPEAT=?_A_A?
ZZZZ010317	500	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010317	600	REPEAT=
ZZZZ010317	700	NAME= (DROP_TABLE_WORK)
ZZZZ010317	800	=SET{YES='YES'};
ZZZZ010317	900	FORM=@
ZZZZ010317	1000	DATA=YES{3}{YES,NO}
ZZZZ010317	1100	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010317	1200	COPY=DROP_TABLE_WORK
ZZZZ010317	1300	=CREATE_TABLE{?_WORK_TABLE?A}{D,D,3,0};
ZZZZ010317	1400	=SQL{INSERT INTO ?_WORK_TABLE?A(D) VALUES(20)};
ZZZZ010317	1500	=SQL{INSERT INTO ?_WORK_TABLE?A(D) VALUES(50)};
ZZZZ010317	1600	=SQL{INSERT INTO ?_WORK_TABLE?A(D) VALUES(81)};
ZZZZ010317	1700	=SQL_REPEAT{W0.D}{SELECT D FROM
ZZZZ010317	1800	=   ?_WORK_TABLE?A ORDER BY 1};
ZZZZ010317	1900	=SET{W0CNT=_SQL_REPEAT_COUNT};
ZZZZ010317	2000	PROGRAM=NOT
ZZZZ010317	2100	=SET{C1='文字列結合',D1='?_Q?_CONCAT(''AB'';''CD'')?_Q?'};
ZZZZ010317	2200	=SET{C2='部分取り出し',D2='?_Q?_SUBSTR(''ABCD'';2;2)?_Q?'};
ZZZZ010317	2300	=SET{C3='文字置換',D3='REPLACE(''ABCD'',''BC'',''XY'')'};
ZZZZ010317	2400	=SET{C4='文字検索',D4='?_Q?_FIND(''ABCD'';''BC'')?_Q?'};
ZZZZ010317	2500	D-=SET{C5='文字数',D5='?_Q?_LEN(''あいうABC'')?_Q?'};
ZZZZ010317	2600	=SET{C6='バイト文字数',D6='?_Q?_LENB(''あいうABC'')?_Q?'};
ZZZZ010317	2700	=SET{C7='英小文字化',D7='LOWER(''ABCD'')'};
ZZZZ010317	2800	=SET{C8='英大文字化',D8='UPPER(''?_L(ABCD)?'')'};
ZZZZ010317	2900	=SET{C9='右空白を取る',D9='RTRIM(''ABCD    '')'};
ZZZZ010317	3000	=SET{C10='繰り返す',D10='?_Q?_REPEAT(''AB'';3)?_Q?'};
ZZZZ010317	3100	=SET{C11='日付計算'
ZZZZ010317	3200	=   ,D11='?_Q?_DAY_CHAR(''20161106'';-6)?_Q?'};
ZZZZ010317	3300	=SET{C12='曜日を返す'
ZZZZ010317	3400	=   ,D12='?_Q?_WEEK_CHAR(''20161106'')?_Q?'};
ZZZZ010317	3500	=SET{C13='月の最終日を返す'
ZZZZ010317	3600	=   ,D13='?_Q?_LAST_DAY_CHAR(''20161106'')?_Q?'};
ZZZZ010317	3700	=SET{C14='日数を返す'
ZZZZ010317	3800	=   ,D14='?_Q?_DATEDIFF_CHAR('20210505';'20250505')?_Q?'};
ZZZZ010317	3900	=SET{C15='左の文字列を返す'
ZZZZ010317	4000	=   ,D15='?_Q?_LEFT('日1本2語3';3)?_Q?'};
ZZZZ010317	4100	=SET{C16='右の文字列を返す'
ZZZZ010317	4200	=   ,D16='?_Q?_RIGHT('日1本2語3';3)?_Q?'};
ZZZZ010317	4300	REPEAT=16
ZZZZ010317	4400	BEGIN
ZZZZ010317	4500	DATA={O}C##{16}
ZZZZ010317	4600	DATA={O,,,W}D##{39}
ZZZZ010317	4700	DATA={O}A##{8}
ZZZZ010317	4800	DATA={O}F##{80}
ZZZZ010317	4900	=SET{_EDIT=D##,WC=_EDIT};
ZZZZ010317	5000	=IF{D##!=WC}IF_ERROR_SET{F##=WC}NOP{};
ZZZZ010317	5100	=IF{D##!=}SQL_SET{A##}{SELECT ?WC? ?_FROM_DUAL?};
ZZZZ010317	5200	FORM=@ @ = @ @
ZZZZ010317	5300	REPEAT=
ZZZZ010317	5400	=SET{EC1='単純条件'
ZZZZ010317	5500	=  ,ED1='CASE 1 WHEN 0   THEN 0 WHEN 1   THEN 1 ELSE 9 END'};
ZZZZ010317	5600	=SET{EC2='検索条件'
ZZZZ010317	5700	=  ,ED2='CASE   WHEN 1<1 THEN 0 WHEN 1=1 THEN 1 ELSE 9 END'};
ZZZZ010317	5800	=SET{EC3='最初のNULL以外',ED3='COALESCE(NULL,1,2,3)'};
ZZZZ010317	5900	=SET{EC4='データ型変換',ED4='CAST(1 AS CHAR(1))'};
ZZZZ010317	6000	=SET{EC5='一致はNULL',ED5='NULLIF(1,1)'};
ZZZZ010317	6100	=SET{EC6='不一致は最初',ED6='NULLIF(1,2)'};
ZZZZ010317	6200	=SET{EC7='サブクエリ',ED7='(SELECT 1 ?_FROM_DUAL?)'};
ZZZZ010317	6300	REPEAT=7
ZZZZ010317	6400	DATA={O}EC##{16}
ZZZZ010317	6500	DATA={O,,,W}ED##{49}
ZZZZ010317	6600	DATA={O}EA##{8}
ZZZZ010317	6700	*SET{_EDIT=ED##,WC=_EDIT};
ZZZZ010317	6800	*IF{ED##!=WC}IF_ERROR_SET{EF##=WC}NOP{};
ZZZZ010317	6900	=IF{ED##!=}SQL_SET{EA##}{SELECT ?ED##? ?_FROM_DUAL?};
ZZZZ010317	7000	FORM=@ @ = @
ZZZZ010317	7100	REPEAT=
ZZZZ010317	7200	FORM =
ZZZZ010317	7300	FORM =集計関数 D
ZZZZ010317	7400	REPEAT=$W0CNT
ZZZZ010317	7500	FORM =         @@@@@
ZZZZ010317	7600	DATA={O}$W0.D##{3,,+,Z}
ZZZZ010317	7700	REPEAT=
ZZZZ010317	7800	=SET{GC1='件数',GD1='COUNT(*)'};
ZZZZ010317	7900	=SET{GC2='合計値',GD2='SUM(D)'};
ZZZZ010317	8000	=SET{GC3='平均値',GD3='?_Q?_AVG(D)?_Q?'};
ZZZZ010317	8100	=SET{GC4='最大値',GD4='MAX(D)'};
ZZZZ010317	8200	=SET{GC5='最小値',GD5='MIN(D)'};
ZZZZ010317	8300	D-=SET{GC6='母集団の分散',GD6='?_Q?_VARP(D)?_Q?'};
ZZZZ010317	8400	D-I-=SET{GC7='標本の分散',GD7='?_Q?_VARS(D)?_Q?'};
ZZZZ010317	8500	D-=SET{GC8='母集団の標準偏差',GD8='?_Q?_STDEVP(D)?_Q?'};
ZZZZ010317	8600	D-I-=SET{GC9='標本の標準偏差',GD9='?_Q?_STDEVS(D)?_Q?'};
ZZZZ010317	8700	REPEAT=9
ZZZZ010317	8800	FORM=@ @ = @ @
ZZZZ010317	8900	DATA={O}GC##{16}
ZZZZ010317	9000	DATA={O,,,W}GD##{12}
ZZZZ010317	9100	DATA={O}GA##{31,28,+}
ZZZZ010317	9200	DATA={O}GF##{40}
ZZZZ010317	9300	=SET{_EDIT=GD##,WC=_EDIT};
ZZZZ010317	9400	=IF{GD##!=WC}IF_ERROR_SET{GF##=WC}NOP{};
ZZZZ010317	9500	=IF{GD##!=}SQL_SET{GA##}{SELECT ?WC? FROM ?_WORK_TABLE?A};
ZZZZ010317	9600	REPEAT=
ZZZZ010317	9700	DATA=END{1}
ZZZZ010317	9800	FORM=@
ZZZZ010317	9900	END
ZZZZ010317	10000	=EXIT{0};
ZZZZ010318	100	PROGRAM=NOT
ZZZZ010318	200	BEGIN_END
ZZZZ010318	300	NAME=DROP_TABLE_WORK
ZZZZ010318	400	REPEAT=?_A_B?
ZZZZ010318	500	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010318	600	REPEAT=
ZZZZ010318	700	NAME= (DROP_TABLE_WORK)
ZZZZ010318	800	=SET{YES='YES'};
ZZZZ010318	900	FORM=@
ZZZZ010318	1000	DATA=YES{3}{YES,NO}
ZZZZ010318	1100	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010318	1200	COPY=DROP_TABLE_WORK
ZZZZ010318	1300	=SPLIT_CHAR{WC1}{'A,AB'}{','};
ZZZZ010318	1400	=SPLIT_CHAR{WC2}{'AB,B'}{','};
ZZZZ010318	1500	REPEAT=2
ZZZZ010318	1600	=CREATE_TABLE{?_WORK_TABLE??_A##?}{C,C,3};
ZZZZ010318	1700	REPEAT2=2
ZZZZ010318	1800	=SQL{INSERT INTO ?_WORK_TABLE??_A##?(C) VALUES('?WC##$$?')};
ZZZZ010318	1900	REPEAT2=
ZZZZ010318	2000	=SQL_REPEAT{WC.C##}
ZZZZ010318	2100	=            {SELECT C FROM  ?_WORK_TABLE??_A##? ORDER BY 1};
ZZZZ010318	2200	REPEAT=
ZZZZ010318	2300	=SET{W0CNT=_SQL_REPEAT_COUNT};
ZZZZ010318	2400	=SET{WC.J1='A INNER       JOIN B ON A.C=B.C'};
ZZZZ010318	2500	=SET{WC.J2='A LEFT  OUTER JOIN B ON A.C=B.C'};
ZZZZ010318	2600	=SET{WC.J3='A RIGHT OUTER JOIN B ON A.C=B.C'};
ZZZZ010318	2700	=SET{WC.J4='A FULL  OUTER JOIN B ON A.C=B.C'};
ZZZZ010318	2800	=SET{WC.J5='A , B '};
ZZZZ010318	2900	REPEAT=5
ZZZZ010318	3000	=SQL_SET{WN}{SELECT REPLACE('?WC.J##[3]?'
ZZZZ010318	3100	= ,' B ',' ?_WORK_TABLE?B B ') ?_FROM_DUAL?};
ZZZZ010318	3200	=SET{W0.##=1,WC.T1##1=,WC.T2##1=};
ZZZZ010318	3300	=IF{WC.J##!=}
ZZZZ010318	3400	=  IF_ERROR_SQL_REPEAT{WC.T1##,WC.T2##}{SELECT A.C,B.C
ZZZZ010318	3500	=   FROM ?_WORK_TABLE?A A ?WN?
ZZZZ010318	3600	=   ORDER BY CASE WHEN A.C IS NULL THEN 1 ELSE 0 END,1,2}
ZZZZ010318	3700	=   JUMP{};
ZZZZ010318	3800	=SET{W0.##=_SQL_REPEAT_COUNT};
ZZZZ010318	3900	REPEAT=
ZZZZ010318	4000	PROGRAM=NOT
ZZZZ010318	4100	FORM=                                       A(C)  B(C)
ZZZZ010318	4200	REPEAT=$W0CNT
ZZZZ010318	4300	FORM=                                    ##  @@@   @@@
ZZZZ010318	4310	2+FORM=(AテーブルにA とABの2行, BテーブルにABとB の2行
ZZZZ010318	4330	2+FORM2=が有ります)
ZZZZ010318	4340	3+FORM=    (INNER JOIN では両者が一致するABとABの一行のみ
ZZZZ010318	4350	3+FORM2=選択されます)
ZZZZ010318	4400	DATA={O}$WC.C1##{3}
ZZZZ010318	4500	DATA={O}$WC.C2##{3}
ZZZZ010318	4600	REPEAT=5
ZZZZ010318	4700	FORM=@
ZZZZ010318	4800	DATA={O}$WC.J##{35}
ZZZZ010318	4900	REPEAT2=W0.##
ZZZZ010318	5000	FORM=                                    $$  @@@   @@@
ZZZZ010318	5100	DATA={O}$WC.T1##$${3}
ZZZZ010318	5200	DATA={O}$WC.T2##$${3}
ZZZZ010318	5210	1+FORM=(INNER JOIN では両者が一致っするABとABの一行のみ
ZZZZ010318	5220	1+FORM2=選択されます)
ZZZZ010318	5230	2+$2+FORM=(LEFT JOIN は INNER JOIN の他に，
ZZZZ010318	5240	2+$2+FORM2=Aテーブルの一致しなかったAの一行も選択されます)
ZZZZ010318	5250	3+$2+FORM=(RIGHT JOIN は INNER JOIN の他に，
ZZZZ010318	5260	3+$2+FORM2=Bテーブルの一致しなかったBの一行も選択されます)
ZZZZ010318	5270	4+$3+FORM=(FULL  JOIN は INNER JOIN の他に，
ZZZZ010318	5280	4+$3+FORM2=AとBの一致しなかった行も選択されます)
ZZZZ010318	5290	5+$4+FORM=(カンマの結合は全ての行が一行毎結合されます）
ZZZZ010318	5300	REPEAT=
ZZZZ010318	5400	DATA=END{1}
ZZZZ010318	5500	FORM=@
ZZZZ010318	5600	END
ZZZZ010318	5700	=EXIT{0};
ZZZZ010319	100	PROGRAM=NOT
ZZZZ010319	200	BEGIN_END
ZZZZ010319	300	NAME=DROP_TABLE_WORK
ZZZZ010319	400	REPEAT=?_A_B?
ZZZZ010319	500	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010319	600	REPEAT=
ZZZZ010319	700	NAME= (DROP_TABLE_WORK)
ZZZZ010319	800	=SET{YES='YES'};
ZZZZ010319	900	FORM=@
ZZZZ010319	1000	DATA=YES{3}{YES,NO}
ZZZZ010319	1100	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010319	1200	COPY=DROP_TABLE_WORK
ZZZZ010319	1300	=SPLIT_CHAR{WC1}{'A1,A2,A3,B1,B11'}{','};
ZZZZ010319	1400	=SPLIT_CHAR{WC2}{'A2,A21,A4,B1,B11'}{','};
ZZZZ010319	1500	REPEAT=2
ZZZZ010319	1600	=CREATE_TABLE{?_WORK_TABLE??_A##?}{D,C,3};
ZZZZ010319	1700	REPEAT2=5
ZZZZ010319	1800	=SQL{INSERT INTO ?_WORK_TABLE??_A##?(D) VALUES('?WC##$$?')};
ZZZZ010319	1900	REPEAT2=
ZZZZ010319	2000	=SQL_REPEAT{WC.D##}
ZZZZ010319	2100	=  {SELECT D FROM  ?_WORK_TABLE??_A##? ORDER BY 1};
ZZZZ010319	2200	REPEAT=
ZZZZ010319	2300	=SET{W0CNT=_SQL_REPEAT_COUNT};
ZZZZ010319	2400	PROGRAM=NOT
ZZZZ010319	2500	 FORM=                 T1(D)   T2(D)
ZZZZ010319	2600	REPEAT=$W0CNT
ZZZZ010319	2700	FORM=                 ##  @@@     @@@@
ZZZZ010319	2800	DATA={O}$WC.D1##{3}
ZZZZ010319	2900	DATA={O}$WC.D2##{3}
ZZZZ010319	3000	REPEAT=
ZZZZ010319	3100	=SET{C1='一致',D1='D = ''A2'''};
ZZZZ010319	3200	=SET{C2='不一致1',D2='D != ''A2'''};
ZZZZ010319	3300	=SET{C3='不一致2',D3='D <> ''A2'''};
ZZZZ010319	3400	=SET{C4='より大',D4='D > ''A2'''};
ZZZZ010319	3500	=SET{C5='より小',D5='D < ''A2'''};
ZZZZ010319	3600	=SET{C6='以上',D6='D >= ''A2'''};
ZZZZ010319	3700	=SET{C7='以下',D7='D <= ''A2'''};
ZZZZ010319	3800	=SET{C8='範囲',D8='D BETWEEN ''A2'' AND ''B1'''};
ZZZZ010319	3900	=SET{C9='どれかに一致',D9='D IN(''A2'',''B1'',''B2'')'};
ZZZZ010319	4000	=SET{C10='サブクエリに一致',D10='D IN(SELECT D FROM T2)'};
ZZZZ010319	4100	=SET{C11='サブクエリが真'
ZZZZ010319	4200	= ,D11='EXISTS(SELECT 0 FROM T2 WHERE T2.D=T1.D)'};
ZZZZ010319	4300	=SET{C12='前方一致',D12='D LIKE ''B%'''};
ZZZZ010319	4400	=SET{C13='何処かで一致',D13='D LIKE ''%1%'''};
ZZZZ010319	4500	=SET{C14='後方一致',D14='RTRIM(D) LIKE ''%1'''};
ZZZZ010319	4600	=SET{C15='''B''と1文字',D15='RTRIM(D) LIKE ''B_'''};
ZZZZ010319	4700	=SET{C16='1文字と''1''',D16='RTRIM(D) LIKE ''_1'''};
ZZZZ010319	4800	=SET{C17='NULL一致',D17='D IS NULL'};
ZZZZ010319	4900	=SET{C18='NULL不一致',D18='D IS NOT NULL'};
ZZZZ010319	5000	=SET{C19='かつ',D19='    D>''A2'' AND D<''B1'''};
ZZZZ010319	5100	=SET{C20='又は',D20='    D<''A2'' OR  D>''B1'''};
ZZZZ010319	5200	=SET{C21='否定',D21='NOT(D<''A2'' OR  D>''B1'')'};
ZZZZ010319	5300	=SET{C22='かつ->又は'
ZZZZ010319	5400	=   ,D22='  D<''A2'' OR  D>''B1''   AND D>=''B11'''};
ZZZZ010319	5500	=SET{C23='又は->かつ'
ZZZZ010319	5600	=   ,D23='( D<''A2'' OR  D>''B1'' ) AND D>=''B11'''};
ZZZZ010319	5700	NAME=
ZZZZ010319	5800	=SET{C24='どれか以上1' ,D24='D  >  ANY(SELECT D FROM T2)'};
ZZZZ010319	5900	=SET{C25='どれか以上2',D25='D  > SOME(SELECT D FROM T2)'};
ZZZZ010319	6000	=SET{C26='どれでもない' ,D26='D <>  ALL(SELECT D FROM T2)'};
ZZZZ010319	6100	REPEAT=26
ZZZZ010319	6200	FORM=@ @ = @
ZZZZ010319	6300	DATA={O}C##{16}
ZZZZ010319	6400	DATA={O,,,W}D##{40}
ZZZZ010319	6500	DATA={O}A##{1}
ZZZZ010319	6600	=SQL_SET{WN}{SELECT REPLACE('?D##?',' FROM T2'
ZZZZ010319	6700	=   ,' FROM ?_WORK_TABLE?B T2') ?_FROM_DUAL?};
ZZZZ010319	6800	=IF{D##!=}SQL_SET{A##}{SELECT COUNT(*) FROM ?_WORK_TABLE?A
ZZZZ010319	6900	=   T1 WHERE ?WN?};
ZZZZ010319	7000	REPEAT=
ZZZZ010319	7100	DATA=END{1}
ZZZZ010319	7200	FORM=@
ZZZZ010319	7300	END
ZZZZ010319	7400	=EXIT{0};
ZZZZ010320	100	PROGRAM=NOT
ZZZZ010320	200	BEGIN
ZZZZ010320	300	=SET{YES='YES'};
ZZZZ010320	400	DATA=YES{3}{YES,NO}
ZZZZ010320	500	FORM=@
ZZZZ010320	600	=SET{C1='加算',D1='7+5'};
ZZZZ010320	700	=SET{C2='減算',D2='7-5'};
ZZZZ010320	800	=SET{C3='乗算',D3='7*5'};
ZZZZ010320	900	=SET{C4='商',D4='?_Q?_DIV(7;5)?_Q?'};
ZZZZ010320	1000	=SET{C5='剰余',D5='?_Q?_MOD(7;5)?_Q?'};
ZZZZ010320	1100	=SET{C6='べき乗',D6='POWER(7,5)'};
ZZZZ010320	1200	=SET{C7='平方根',D7='?_Q?_SQRT(7.5)?_Q?'};
ZZZZ010320	1300	=SET{C8='自然対数',D8='?_Q?_LOG(7.5)?_Q?'};
ZZZZ010320	1400	=SET{C9='10の対数',D9='?_Q?_LOG10(7.5)?_Q?'};
ZZZZ010320	1500	=SET{C10='四捨五入',D10='ROUND(7.5,0)'};
ZZZZ010320	1600	=SET{C11='切り捨て',D11='?_Q?_TRUNC(7.5;0)?_Q?'};
ZZZZ010320	1610	=SET{C12='切り上げ',D12='?_Q?_ROUNDUP(7.5;0)?_Q?'};
ZZZZ010320	1700	=SET{C13='擬似乱数' ,D13='?_Q?_RAND()?_Q?'};
ZZZZ010320	1800	=SET{C14='最小整数',D14='?_Q?_CEIL(7.5)?_Q?'};
ZZZZ010320	1900	=SET{C15='最大整数',D15='FLOOR(7.5)'};
ZZZZ010320	2000	D-=SET{C16='ラジアン->度',D16='?_Q?_DEGREES(7.5)?_Q?'};
ZZZZ010320	2100	D-=SET{C17='度->ラジアン' ,D17='?_Q?_RADIANS(7.5)?_Q?'};
ZZZZ010320	2200	=SET{C18='指数値',D18='?_Q?_EXP(7.5)?_Q?'};
ZZZZ010320	2300	=SET{C19='符号',D19='SIGN(-7.5)'};
ZZZZ010320	2400	=SET{C20='絶対値',D20='ABS(-7.5)'};
ZZZZ010320	2500	=SET{C21='サイン',D21='?_Q?_SIN(7.5)?_Q?'};
ZZZZ010320	2600	=SET{C22='コサイン',D22='?_Q?_COS(7.5)?_Q?'};
ZZZZ010320	2700	=SET{C23='タンジェント',D23='?_Q?_TAN(7.5)?_Q?'};
ZZZZ010320	2900	=SET{C24='逆正弦',D24='?_Q?_ASIN(-0.75)?_Q?'};
ZZZZ010320	3000	=SET{C25='逆余弦',D25='?_Q?_ACOS(-0.75)?_Q?'};
ZZZZ010320	3100	=SET{C26='逆正接',D26='?_Q?_ATAN(-0.75)?_Q?'};
ZZZZ010320	3110	=SET{C27='逆正接2',D27='?_Q?_ATAN2(-0.55;0.77)?_Q?'};
ZZZZ010320	3200	=SET{C28='コタンジェント',D28='?_Q?_COT(7.5)?_Q?'};
ZZZZ010320	3300	REPEAT=28
ZZZZ010320	3400	BEGIN
ZZZZ010320	3500	DATA={O}C##{14}
ZZZZ010320	3600	DATA={O,,,W}D##{20}
ZZZZ010320	3700	DATA={O}A##{22}
ZZZZ010320	3800	DATA={O}F##{44}
ZZZZ010320	3900	=SET{_EDIT=D##,WC=_EDIT};
ZZZZ010320	4000	=IF{D##!=WC}IF_ERROR_SET{F##=WC}NOP{};
ZZZZ010320	4100	=IF{D##!=}SQL_SET{A##}{SELECT ?WC? ?_FROM_DUAL?};
ZZZZ010320	4200	FORM=@ @ = @ @
ZZZZ010320	4300	REPEAT=
ZZZZ010320	4400	DATA=END{1}
ZZZZ010320	4500	FORM=@
ZZZZ010321	100	PROGRAM=,&X1,?_MM?_SAMPLE_TABLE
ZZZZ010321	200	*プログラムの最初はPROGRAM=で始めます。
ZZZZ010321	300	*"PROGRAM="の内容を空白にすると(すぐに","を置く)メニューの
ZZZZ010321	400	*   処理種類のINPUTが採用されるので更新プログラムと成ります。
ZZZZ010321	500	*"&X1"は右のテーブルの別名の宣言で"&X1"とする事を推奨します。
ZZZZ010321	600	*"?_MM?_SAMPLE_TABLE"は更新(検索含む)されるテーブル名です。
ZZZZ010321	700	*"?"で囲まれた物はデータ名でその内容で置き換わります。
ZZZZ010321	800	*"_MM"は本番かテストかやRDBMS,許可,部分を考慮して決まります。
ZZZZ010321	900	COLOR
ZZZZ010321	1000	*COLORはDATA=で表示するデータの背景色を変更出来ます。
ZZZZ010321	1100	=IF{SYSTEM_INT<0}SET{SYSTEM_INT@COLOR='R'};
ZZZZ010321	1200	*先頭の"="はセクション(命令の連続)で右に命令が書けます。
ZZZZ010321	1400	*"COLOR"の下なので色を設定するセクションで動きます。
ZZZZ010321	1500	*"データ名@COLOR"にSETで色を設定します。
ZZZZ010321	1600	*IF{}は条件判定で条件が成立した場合は次の命令を実行し、
ZZZZ010321	1700	*   条件が成立しない場合は";"まで移動します。
ZZZZ010321	1800	*SET{}は右辺の内容を左辺に転送します。
ZZZZ010321	1900	=IF{SYSTEM_INT>0}SET{SYSTEM_INT@COLOR='B'};
ZZZZ010321	2000	=IF{SYSTEM_INT=0}SET{SYSTEM_INT@COLOR='Y'};
ZZZZ010321	2100	SET={}.?&.SET&SYSTEM_KEY1_SAMPLE?
ZZZZ010321	2200	*SET=は検索の条件入力や表示する場所を設定します。
ZZZZ010321	2300	*?&.SET&SYSTEM_KEY1_SAMPLE?でKEY1_SAMPLEの規定値が設定
ZZZZ010321	2400	*?&.SET&SYSTEM_KEY1_SAMPLE?はPROGRAM=での別名が省略されており
ZZZZ010321	2500	*   ?&.SET&SYSTEM_KEY1_SAMPLE?と同じ意味と成ります。
ZZZZ010321	2600	*"."の無いデータ名は検索のSQL文にPROGRAM=の別名が付きます。
ZZZZ010321	2700	SET={}.?&.SET&SYSTEM_KEY2_SAMPLE?
ZZZZ010321	2800	SET={}.?&.SET&SYSTEM_INT?
ZZZZ010321	2900	SET={}.?&.SET&SYSTEM_DECIMAL?
ZZZZ010321	3000	DATA={K}?&.DATA&SYSTEM_KEY1_SAMPLE?
ZZZZ010321	3100	*DATA=は検索結果を表示し更新入力をする場所を設定します。
ZZZZ010321	3200	*{K}は更新時のキー項目の指定です。(１箇所以上無いと更新不可)
ZZZZ010321	3300	*"."で始まるデータ名は検索のSQL文にPROGRAM=の別名が付きます。
ZZZZ010321	3400	DATA={K}?&.DATA&SYSTEM_KEY2_SAMPLE?
ZZZZ010321	3500	DATA=   ?&.DATA&SYSTEM_CHAR?
ZZZZ010321	3600	DATA=   ?&.DATA&SYSTEM_INT?
ZZZZ010321	3700	DATA=   ?&.DATA&SYSTEM_DECIMAL?
ZZZZ010321	3800	DATA=   ?&.DATA&SYSTEM_DATE?
ZZZZ010321	3900	COPY=@ZZZZZZ_SQL
ZZZZ010321	4000	*COPY=で別の場所に書かれたプログラムをここにコピーします。
ZZZZ010321	4100	*@から始まる物は混在テーブルのZZZZZZ_PROGRAMからコピーします.
ZZZZ010322	100	PROGRAM=OUTPUT,&X1,?_MM?_SAMPLE_TABLE
ZZZZ010322	200	CONTROL=0
ZZZZ010322	210	*CONTROL=0で選択入力場所が確保されます。
ZZZZ010322	300	SET={}.?&.SET&SYSTEM_KEY1_SAMPLE?
ZZZZ010322	400	SET={}.?&.SET&SYSTEM_KEY2_SAMPLE?
ZZZZ010322	500	DATA={K}?&.DATA&SYSTEM_KEY1_SAMPLE?
ZZZZ010322	600	SQL_SELECT=DISTINCT
ZZZZ010322	610	*SQL_SELECTで検索のSQL文のSELECTの次に内容が付加されます。
ZZZZ010322	700	COPY=@ZZZZZZ_SQL
ZZZZ010322	800	*###( 2 )####################################################
ZZZZ010322	900	PROGRAM=,&X1,?$&.TABLE?
ZZZZ010322	910	*PROGRAM=で選択後に以下のプログラムが実行されます。
ZZZZ010322	1000	SET={KO}.=?&.DATA&SYSTEM_KEY1_SAMPLE?
ZZZZ010322	1010	*{ O}で表示のみ(入力不可)と成ります。
ZZZZ010322	1020	*.=を先頭に付けると前のプログラムのSYSTEM_KEY1_SAMPLEが
ZZZZ010322	1030	* .SYSTEM_KEY1_SAMPLEの初期値と成ります。
ZZZZ010322	1100	DATA={K}?&.DATA&SYSTEM_KEY2_SAMPLE?
ZZZZ010322	1200	DATA=   ?&.DATA&SYSTEM_CHAR?
ZZZZ010322	1300	DATA=   ?&.DATA&SYSTEM_INT?
ZZZZ010322	1400	DATA=   ?&.DATA&SYSTEM_DECIMAL?
ZZZZ010322	1500	DATA=   ?&.DATA&SYSTEM_DATE?
ZZZZ010322	1600	COPY=@ZZZZZZ_SQL
ZZZZ010323	100	PROGRAM=NOT
ZZZZ010323	110	*PROGRAM=NOTは検索及び更新画面を構成しません。
ZZZZ010323	120	*PROGRAM=NOTではSET=は使えず,DATA=で入力が開始されます。
ZZZZ010323	200	CONTROL=PROGRAM
ZZZZ010323	220	*PROGRAM=NOTも更新処理が動きますが、CONTROL=PROGRAMで更新処理
ZZZZ010323	230	*   を実行しないように出来ます。
ZZZZ010323	300	BEGIN
ZZZZ010323	310	*BEGIN以下はプログラムの開始時に1回実行します。
ZZZZ010323	400	=SET{W0.CNT=0};
ZZZZ010323	500	FORM= @@ + @@ = @@@
ZZZZ010323	510	*FORM=を書く事で画面の構成を自由に設定出来ます。
ZZZZ010323	600	FORM= ANSER COUNT( @ / 3 )
ZZZZ010323	700	DATA={,,,Y}A{}
ZZZZ010323	800	DATA={,,,R}B{,,+}
ZZZZ010323	900	=COMPUTE{W0.ANS=A+B};SET{C=};
ZZZZ010323	1000	DATA={,,,B}C{,,+}{?W0.ANS?}
ZZZZ010323	1100	=COMPUTE{W0.CNT+=1};SET{COM=W0.CNT};
ZZZZ010323	1200	=IF{W0.CNT>=3}EXIT{_END};
ZZZZ010323	1210	*EXIT{_END};はプログラムを終了します。
ZZZZ010323	1300	DATA={O,,,N}COM{}
ZZZZ010324	100	PROGRAM=NOT
ZZZZ010324	200	DATA=COUNT{3,,+}
ZZZZ010324	300	PROGRAM=NOT
ZZZZ010324	400	REPEAT=?$COUNT?
ZZZZ010324	500	DATA=DATA##{5}
ZZZZ010324	600	REPEAT=
ZZZZ010325	100	PROGRAM=NOT
ZZZZ010325	200	BEGIN_END
ZZZZ010325	300	NAME=DROP_TABLE_WORK
ZZZZ010325	400	REPEAT=?_A_C?
ZZZZ010325	500	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010325	600	REPEAT=
ZZZZ010325	700	NAME= (DROP_TABLE_WORK)
ZZZZ010325	800	DATA=YES{3}{YES}
ZZZZ010325	900	COPY=DROP_TABLE_WORK
ZZZZ010325	1000	REPEAT=?_A_B?
ZZZZ010325	1100	=CREATE_TABLE2{?_WORK_TABLE??_A##?,
ZZZZ010325	1200	=   SAMPLAE_ITEM,C,5,SAMPLE_DATE,C,8}
ZZZZ010325	1300	=  {SAMPLE_ORDER,D,5,0,SAMPLE_ORDER_START,D,5,0};
ZZZZ010325	1400	REPEAT=
ZZZZ010325	1500	=CREATE_TABLE{?_WORK_TABLE?C,SAMPLAE_ITEM,C,5}
ZZZZ010325	1600	=  {SAMPLE_STOCK,D,5,0,SAMPLE_STOCK_START,D,5,0};
ZZZZ010325	1700	REPEAT=16
ZZZZ010325	1800	=SQL{INSERT INTO ?_WORK_TABLE?A
ZZZZ010325	1900	=   (SAMPLAE_ITEM,SAMPLE_DATE,SAMPLE_ORDER)
ZZZZ010325	2000	1+=   VALUES('JUST' ,'20160101',100)};
ZZZZ010325	2100	2+=   VALUES('JUST' ,'20160102',200)};
ZZZZ010325	2200	3+=   VALUES('JUST' ,'20160103',300)};
ZZZZ010325	2300	4+=   VALUES('NOT'  ,'20160104',400)};
ZZZZ010325	2400	5+=   VALUES('NOT'  ,'20160105',500)};
ZZZZ010325	2500	6+=   VALUES('NOT'  ,'20160106',600)};
ZZZZ010325	2600	7+=   VALUES('OVER' ,'20160107',700)};
ZZZZ010325	2700	8+=   VALUES('OVER' ,'20160108',800)};
ZZZZ010325	2800	9+=   VALUES('OVER' ,'20160109',900)};
ZZZZ010325	2900	10+=  VALUES('UNDER','20160110',100)};
ZZZZ010325	3000	11+=  VALUES('UNDER','20160111',200)};
ZZZZ010325	3100	12+=  VALUES('UNDER','20160112',300)};
ZZZZ010325	3200	13+=  VALUES('ZERO' ,'20160113',400)};
ZZZZ010325	3300	14+=  VALUES('ZERO' ,'20160114',500)};
ZZZZ010325	3400	15+=  VALUES('ZERO' ,'20160115',600)};
ZZZZ010325	3500	16+=  VALUES('ZERO1','20160116',0)};
ZZZZ010325	3600	REPEAT=5
ZZZZ010325	3700	=SQL{INSERT INTO ?_WORK_TABLE?C(SAMPLAE_ITEM,SAMPLE_STOCK)
ZZZZ010325	3800	1+=   VALUES('JUST' ,600)};
ZZZZ010325	3900	2+=   VALUES('NOT1' ,400)};
ZZZZ010325	4000	3+=   VALUES('OVER' ,900)};
ZZZZ010325	4100	4+=   VALUES('UNDER',900)};
ZZZZ010325	4200	5+=   VALUES('ZERO',0)};
ZZZZ010325	4300	REPEAT=
ZZZZ010325	4400	=SQL{UPDATE ?_WORK_TABLE?A
ZZZZ010325	4500	=   SET SAMPLE_ORDER_START=SAMPLE_ORDER};
ZZZZ010325	4600	=SQL{UPDATE ?_WORK_TABLE?C
ZZZZ010325	4700	=   SET SAMPLE_STOCK_START=SAMPLE_STOCK};
ZZZZ010325	4800	*****( カーソル処理 開始 )**********************
ZZZZ010325	4900	=CURSOR2{?_WORK_TABLE?A,?_WORK_TABLE?B,?_WORK_TABLE?C}
ZZZZ010325	5000	= {SAMPLAE_ITEM,K,SAMPLE_DATE,A,SAMPLE_ORDER,,
ZZZZ010325	5100	=  SAMPLE_ORDER_START}{}{SAMPLE_STOCK,D,5,0,
ZZZZ010325	5200	=  SAMPLE_STOCK_START,D,5,0,UPDATE_X,I,COUNT_X,I}
ZZZZ010325	5400	= {?_O_SET(W.UPDATE_X(=)0)?
ZZZZ010325	5500	=  SELECT ?_O_INTO(W.COUNT_X;COUNT(*))? ?_CONTINUE(FROM )?
ZZZZ010325	5700	=    ?_CONTINUE((_O_TABLE3))? ?_CONTINUE((_O_WHERE2))?
ZZZZ010325	5900	=    ?_O_SQL( AND SAMPLE_STOCK>0)? ?_O_INTO?;
ZZZZ010325	6000	=  ?_O_IF(W.COUNT_X=1)?
ZZZZ010325	6100	=    SELECT ?_O_INTO(W.SAMPLE_STOCK;;W.SAMPLE_STOCK_START;)?
ZZZZ010325	6200	=      ?_O_SQL? ?_O_INTO?;
ZZZZ010325	6300	=  ?_O_ELSE? ?_O_SET(W.SAMPLE_STOCK(=)0)?
ZZZZ010325	6400	=  ?_O_IF_END?}
ZZZZ010325	6500	= {?_O_IF(F.SAMPLE_ORDER>0 AND W.COUNT_X=1)?
ZZZZ010325	6600	=    ?_O_IF(W.SAMPLE_STOCK>F.SAMPLE_ORDER)?
ZZZZ010325	6700	=      ?_O_SET(W.SAMPLE_STOCK(=)W. - F.SAMPLE_ORDER)?
ZZZZ010325	6800	=      ?_O_SET(F.SAMPLE_ORDER(=)0)?
ZZZZ010325	6900	=    ?_O_ELSE?
ZZZZ010325	7000	=      ?_O_SET(F.SAMPLE_ORDER(=)F. - W.SAMPLE_STOCK)?
ZZZZ010325	7100	=      ?_O_SET(W.SAMPLE_STOCK(=)0)?
ZZZZ010325	7200	=    ?_O_IF_END?
ZZZZ010325	7300	=  ?_O_SET(W.UPDATE_X(=)1)?
ZZZZ010325	7400	=  ?_O_IF_END?
ZZZZ010325	7500	=  INSERT INTO ?_O_TABLE2?
ZZZZ010325	7600	=  ?_CONTINUE(F.SAMPLAE_ITEM;F.SAMPLE_DATE)?
ZZZZ010325	7700	=  ?_O_INSERT2(;F.SAMPLE_ORDER;F.SAMPLE_ORDER_START)?;}
ZZZZ010325	7800	= {?_O_IF(W.UPDATE_X=1)?
ZZZZ010325	7900	=    UPDATE ?_O_TABLE3? ?_O_UPDATE_CHANGE(W.SAMPLE_STOCK)?
ZZZZ010325	8000	=    ?_O_WHERE2?;
ZZZZ010325	8100	=  ?_O_IF_END?};
ZZZZ010325	8110	*****( カーソル処理 終了 )**********************
ZZZZ010325	8200	PROGRAM=OUTPUT,&X1,?_WORK_TABLE?B
ZZZZ010325	8300	COLOR
ZZZZ010325	8400	=IF{KIND!='STOCK'}EXIT{};
ZZZZ010325	8500	=IF{SAMPLE_SUB_ORDER=SAMPLE_SUB_STOCK}
ZZZZ010325	8600	=   SET{SAMPLE_SUB_ORDER@COLOR='B'
ZZZZ010325	8700	=      ,SAMPLE_SUB_STOCK@COLOR='B'}EXIT{};
ZZZZ010325	8800	=   SET{SAMPLE_SUB_ORDER@COLOR='R'}
ZZZZ010325	8900	=      ,SAMPLE_SUB_STOCK@COLOR='R'};
ZZZZ010325	9000	DATA=SAMPLAE_ITEM{5}品目
ZZZZ010325	9100	DATA=KIND{5}在庫
ZZZZ010325	9200	DATA=SAMPLE_DATE{8,,D}日付
ZZZZ010325	9300	DATA=SAMPLE_ORDER_START{5,,-}発注数初期値(在庫数初期値)
ZZZZ010325	9400	DATA=SAMPLE_ORDER{5,,-}発注数(在庫数)
ZZZZ010325	9500	DATA=SAMPLE_SUB_ORDER{5,,+,Z}発注引き当て数
ZZZZ010325	9600	DATA=SAMPLE_SUB_STOCK{5,,+,}在庫引き当て数
ZZZZ010325	9700	END
ZZZZ010325	9800	=EXIT{0};
ZZZZ010325	9900	SQL=SELECT SAMPLAE_ITEM,CAST(' ' AS CHAR(5))
ZZZZ010325	10000	SQL=   ,SAMPLE_DATE,SAMPLE_ORDER_START,SAMPLE_ORDER
ZZZZ010325	10100	SQL=   ,CAST(SAMPLE_ORDER_START-SAMPLE_ORDER AS DECIMAL(5,0))
ZZZZ010325	10200	SQL=   ,CAST(0 AS DECIMAL(5,0)) FROM ?_WORK_TABLE?B
ZZZZ010325	10300	SQL=   UNION ALL
ZZZZ010325	10400	SQL=   SELECT ?_T?.SAMPLAE_ITEM,CAST('STOCK' AS CHAR(5))
ZZZZ010325	10500	SQL=   ,CAST(' ' AS CHAR(8)),SAMPLE_STOCK_START,SAMPLE_STOCK
ZZZZ010325	10600	SQL=   ,CAST(SAMPLE_SUB_ORDER AS DECIMAL(5,0))
ZZZZ010325	10700	SQL=   ,CAST(SAMPLE_STOCK_START-SAMPLE_STOCK AS DECIMAL(5,0))
ZZZZ010325	10800	SQL=   FROM ?_WORK_TABLE?C ?_T?
ZZZZ010325	10900	SQL=   LEFT OUTER JOIN
ZZZZ010325	11000	SQL=   (SELECT SAMPLAE_ITEM
ZZZZ010325	11100	SQL=   ,SUM(SAMPLE_ORDER_START-SAMPLE_ORDER)
ZZZZ010325	11200	SQL=   AS SAMPLE_SUB_ORDER
ZZZZ010325	11300	SQL=   FROM ?_WORK_TABLE?B X2 GROUP BY SAMPLAE_ITEM)X2
ZZZZ010325	11400	SQL=   ON X2.?_NE&.SAMPLAE_ITEM?
ZZZZ010325	11500	SQL=   ORDER BY 1,7,2
ZZZZ010326	100	PROGRAM=NOT
ZZZZ010326	200	BEGIN_END
ZZZZ010326	300	NAME=DROP_TABLE_WORK
ZZZZ010326	400	REPEAT=?_A_C?
ZZZZ010326	500	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010326	600	REPEAT=
ZZZZ010326	700	NAME=
ZZZZ010326	800	DATA=YES{3}{YES}
ZZZZ010326	900	COPY=DROP_TABLE_WORK
ZZZZ010326	1000	=SET{WC.O='?_WORK_TABLE?A'};
ZZZZ010326	1100	=SET{WC.I='?_WORK_TABLE?B'};
ZZZZ010326	1200	=CREATE_TABLE{?WC.O?}{KEY1,C,12,KEY2,C,5}{DATA1,C,2};
ZZZZ010326	1300	=CREATE_TABLE{?WC.I?}{KEY1,C,12,KEY2,C,5}{DATA1,C,2};
ZZZZ010326	1400	=SET{WC='INSERT INTO ?WC.O?(KEY1,KEY2,DATA1,Z_CANCEL)VALUES'}
ZZZZ010326	1410	=;
ZZZZ010326	1500	=SET{WC.K1='ALL,ALL2,PART,PART2,PART_ADD,PART_ADD2'
ZZZZ010326	1600	=   +',PART_CHANGE,PART_CHANGE2,PART_CANCEL'};
ZZZZ010326	1700	=SPLIT_CHAR{WC.KEY1}{WC.K1}{','};
ZZZZ010326	1800	=SPLIT_CHAR{WC.KEY2}
ZZZZ010326	1810	=  {'A2,A2=B2,A2<B2,A2-B1,A1,A1-B2,A1-B1'}{','};
ZZZZ010326	1900	=SPLIT_CHAR{WC.DATA}{'A,AB,AB,A,A,A,A'}{','};
ZZZZ010326	2000	=SPLIT_CHAR{WC.CANCEL}{',,,,C,C,C'}{','};
ZZZZ010326	2100	NAME=A
ZZZZ010326	2200	REPEAT=9
ZZZZ010326	2300	REPEAT2=7
ZZZZ010326	2400	=SQL{?WC?('?WC.KEY1##?','?WC.KEY2$$?','?WC.DATA$$?'
ZZZZ010326	2500	=   ,'?WC.CANCEL$$?')};
ZZZZ010326	2600	REPEAT=
ZZZZ010326	2700	NAME=
ZZZZ010326	2800	=SET{WC='INSERT INTO ?WC.I?(KEY1,KEY2,DATA1,Z_CANCEL)VALUES'}
ZZZZ010326	2810	=;
ZZZZ010326	2900	=SPLIT_CHAR{WC.KEY2}
ZZZZ010326	2910	=   {'B2,A2=B2,A2<B2,A2-B1,B1,A1-B2,A1-B1'}{','};
ZZZZ010326	3000	=SPLIT_CHAR{WC.DATA}{'B,AB,BB,B,B,B,B'}{','};
ZZZZ010326	3100	=SPLIT_CHAR{WC.CANCEL}{',,,C,C,,C'}{','};
ZZZZ010326	3200	COPY=A
ZZZZ010326	3300	=REPLACE_ALL{?WC.O?,?WC.I?,DATA1}{KEY1,KEY2}
ZZZZ010326	3400	=  {*O*.KEY1='ALL'}{I.KEY1='ALL'};
ZZZZ010326	3500	=REPLACE_ALL2{?WC.O?,?WC.I?,DATA1}{KEY1,KEY2}
ZZZZ010326	3600	=  {*O*.KEY1='ALL2'}{I.KEY1='ALL2'};
ZZZZ010326	3700	=REPLACE_PART{?WC.O?,?WC.I?,DATA1}{KEY1,KEY2}
ZZZZ010326	3800	=  {*O*.KEY1='PART'}{I.KEY1='PART'};
ZZZZ010326	3900	=REPLACE_PART2{?WC.O?,?WC.I?,DATA1}{KEY1,KEY2}
ZZZZ010326	4000	=  {*O*.KEY1='PART2'}{I.KEY1='PART2'};
ZZZZ010326	4100	=REPLACE_PART_ADD{?WC.O?,?WC.I?,DATA1}{KEY1,KEY2}
ZZZZ010326	4200	=  {*O*.KEY1='PART_ADD'}{I.KEY1='PART_ADD'};
ZZZZ010326	4300	=REPLACE_PART_ADD2{?WC.O?,?WC.I?,DATA1}{KEY1,KEY2}
ZZZZ010326	4400	=  {*O*.KEY1='PART_ADD2'}{I.KEY1='PART_ADD2'};
ZZZZ010326	4500	=REPLACE_PART_CHANGE{?WC.O?,?WC.I?,DATA1}{KEY1,KEY2}
ZZZZ010326	4600	=  {*O*.KEY1='PART_CHANGE'}{I.KEY1='PART_CHANGE'};
ZZZZ010326	4700	=REPLACE_PART_CHANGE2{?WC.O?,?WC.I?,DATA1}{KEY1,KEY2}
ZZZZ010326	4800	=  {*O*.KEY1='PART_CHANGE2'}{I.KEY1='PART_CHANGE2'};
ZZZZ010326	4900	=REPLACE_PART_CANCEL{?WC.O?,?WC.I?,DATA1}{KEY1,KEY2}
ZZZZ010326	5000	=  {*O*.KEY1='PART_CANCEL'}{I.KEY1='PART_CANCEL'};
ZZZZ010326	5100	=J:
ZZZZ010326	5200	=SQL{INSERT INTO ?WC.O? (KEY1,KEY2) SELECT KEY1,KEY2
ZZZZ010326	5300	=FROM ?WC.I? X1 WHERE NOT EXISTS(SELECT 0 FROM ?WC.O? X2
ZZZZ010326	5400	=WHERE X1.KEY1=X2.KEY1 AND X1.KEY2=X2.KEY2)};
ZZZZ010326	5500	PROGRAM=OUTPUT,&X1,?_WORK_TABLE?A
ZZZZ010326	5600	MINUS=%Z_CANCEL_WHERE
ZZZZ010326	5700	CONTROL=BEGIN_ENTER
ZZZZ010326	5800	*INUS=%ZZZZZZ_SQL_ORDER
ZZZZ010326	5900	COLOR
ZZZZ010326	6000	=IF{XO[2]='O'}SET{XO@COLOR='B'}JUMP{};
ZZZZ010326	6100	=   SET{          XO@COLOR='R'};
ZZZZ010326	6200	SET={=}KEY1{12}
ZZZZ010326	6300	SET={=}KEY2{5}
ZZZZ010326	6400	DATA={K}.KEY1{12}
ZZZZ010326	6500	DATA={K}.KEY2{5}
ZZZZ010326	6600	DATA=.DATA1{2}
ZZZZ010326	6700	DATA=.Z_CANCEL{1}
ZZZZ010326	6800	SELECT=CASE X1.Z_CANCEL WHEN ' ' THEN ' ' WHEN 'C' THEN 'C'
ZZZZ010326	6900	SELECT=   ELSE '1' END
ZZZZ010326	7000	DATA=.Z_CHANGE{1}
ZZZZ010326	7100	SELECT=CASE X1.Z_CHANGE WHEN ' ' THEN ' ' ELSE '3' END
ZZZZ010326	7200	DATA=.Z_ADD{1}
ZZZZ010326	7300	SELECT=CASE X1.Z_ADD WHEN ' ' THEN ' ' ELSE '2' END
ZZZZ010326	7400	DATA=XO{2}
ZZZZ010326	7500	SELECT=CASE WHEN KEY2='A1'
ZZZZ010326	7600	SELECT=   OR KEY2='A1-B1'
ZZZZ010326	7700	SELECT=   AND NOT(KEY1 IN('ALL2','PART2','PART_ADD2'))
ZZZZ010326	7800	SELECT=   OR KEY2='A1-B2' AND
ZZZZ010326	7900	SELECT=   KEY1 IN('PART_CHANGE','PART_CHANGE2','PART_CANCEL')
ZZZZ010326	8000	SELECT=   OR KEY2='A2' AND KEY1 IN('ALL','ALL2') OR
ZZZZ010326	8100	SELECT=  KEY2='A2-B1' AND KEY1 IN('ALL','PART','PART_CANCEL')
ZZZZ010326	8200	SELECT=   THEN
ZZZZ010326	8300	SELECT=   CASE WHEN CAST(?_SUBSTR(.Z_CANCEL;1;1)? AS CHAR(1))
ZZZZ010326	8400	SELECT=   = ' ' THEN '1X' ELSE '1O' END ELSE
ZZZZ010326	8500	SELECT=   CASE WHEN
ZZZZ010326	8600	SELECT=   KEY2='A2<B2' AND
ZZZZ010326	8700	SELECT=   KEY1 IN('ALL','ALL2','PART','PART2','PART_CHANGE'
ZZZZ010326	8800	SELECT=   ,'PART_CHANGE2')
ZZZZ010326	8900	SELECT=   OR KEY2='A2-B1' AND
ZZZZ010326	9000	SELECT=   KEY1 IN('ALL2','PART2','PART_CHANGE2')
ZZZZ010326	9100	SELECT=   THEN
ZZZZ010326	9200	SELECT=   CASE WHEN CAST(?_SUBSTR(.Z_CHANGE;1;1)? AS CHAR(1))
ZZZZ010326	9300	SELECT=   = ' ' THEN '3X' ELSE '3O' END ELSE
ZZZZ010326	9400	SELECT=   CASE WHEN
ZZZZ010326	9500	SELECT=   KEY2 IN('B2','A1-B2') AND
ZZZZ010326	9600	SELECT=   KEY1 IN('ALL','ALL2','PART','PART2','PART_ADD'
ZZZZ010326	9700	SELECT=   ,'PART_ADD2')
ZZZZ010326	9800	SELECT=   OR KEY2 IN('A1-B1','B1')
ZZZZ010326	9900	SELECT=   AND KEY1 IN('ALL2','PART2','PART_ADD2')
ZZZZ010326	10000	SELECT=   THEN
ZZZZ010326	10100	SELECT=   CASE WHEN CAST(?_SUBSTR(.Z_ADD;1;1)? AS CHAR(1))
ZZZZ010326	10200	SELECT=   = ' ' THEN '2X' ELSE '2O' END ELSE
ZZZZ010326	10300	SELECT=   CASE WHEN KEY2='A2=B2'
ZZZZ010326	10400	SELECT=   OR KEY2 IN('A2<B2')
ZZZZ010326	10500	SELECT=   AND KEY1 IN('PART_ADD','PART_ADD2','PART_CANCEL')
ZZZZ010326	10600	SELECT=   OR KEY2 IN('A2-B1')
ZZZZ010326	10700	SELECT=   AND KEY1 IN('PART_ADD','PART_ADD2','PART_CHANGE')
ZZZZ010326	10800	SELECT=   OR KEY2 IN('A2') AND NOT(KEY1 IN('ALL','ALL2'))
ZZZZ010326	10900	SELECT=   OR KEY2 IN('B1')
ZZZZ010326	11000	SELECT=   AND NOT(KEY1 IN('ALL2','PART2','PART_ADD2'))
ZZZZ010326	11100	SELECT=   OR KEY2 IN('B2') AND
ZZZZ010326	11200	SELECT=   KEY1 IN('PART_CHANGE','PART_CHANGE2','PART_CANCEL')
ZZZZ010326	11300	SELECT=   THEN
ZZZZ010326	11400	SELECT=   CASE WHEN CAST(?_SUBSTR(.Z_ADD;1;1)? AS CHAR(1))
ZZZZ010326	11500	SELECT=   = ' ' AND CAST(?_SUBSTR(.Z_CHANGE;1;1)? AS CHAR(1))
ZZZZ010326	11600	SELECT=   = ' ' AND CAST(?_SUBSTR(.Z_CANCEL;1;1)? AS CHAR(1))
ZZZZ010326	11700	SELECT=   = ' ' THEN '0O' ELSE '0X' END ELSE
ZZZZ010326	11800	SELECT=   ' ' END END END END
ZZZZ010326	11900	COPY=@ZZZZZZ_SQL
ZZZZ010326	11910	END
ZZZZ010326	11920	=EXIT{0};
ZZZZ010327	100	PROGRAM=NOT
ZZZZ010327	200	BEGIN_END
ZZZZ010327	300	NAME=DROP_TABLE_WORK
ZZZZ010327	400	REPEAT=?_A_A?
ZZZZ010327	500	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010327	600	REPEAT=
ZZZZ010327	700	NAME= (DROP_TABLE_WORK)
ZZZZ010327	900	DATA=YES{3}{YES}
ZZZZ010327	1000	COPY=DROP_TABLE_WORK
ZZZZ010327	1100	=CREATE_TABLE{?_WORK_TABLE?A,KEY_X,C,22}{DATA_X,C,6};
ZZZZ010327	1200	=SET{WN.INSERT=
ZZZZ010327	1300	=   'INSERT INTO ?_WORK_TABLE?A (KEY_X,DATA_X) VALUES'};
ZZZZ010327	1400	=SQL{?WN.INSERT?('UPDATE NOT TRANSACTION','BAD')};
ZZZZ010327	1500	=SQL{?WN.INSERT?('DELETE NOT TRANSACTION','BAD')};
ZZZZ010327	1600	=SQL{?WN.INSERT?('UPDATE COMMIT'         ,'BAD')};
ZZZZ010327	1700	=SQL{?WN.INSERT?('DELETE COMMIT'         ,'BAD')};
ZZZZ010327	1800	=SQL{?WN.INSERT?('UPDATE ROLLBACK',       'OK 6/6')};
ZZZZ010327	1900	=SQL{?WN.INSERT?('DELETE ROLLBACK',       'OK 1/6')};
ZZZZ010327	2000	***( NOT TRANSACTION )******************
ZZZZ010327	2100	=SQL{?WN.INSERT?('INSERT NOT TRANSACTION','OK 3/6')};
ZZZZ010327	2200	=SQL{UPDATE ?_WORK_TABLE?A SET DATA_X='OK 5/6'
ZZZZ010327	2300	=   WHERE KEY_X='UPDATE NOT TRANSACTION'};
ZZZZ010327	2400	=SQL{DELETE FROM ?_WORK_TABLE?A
ZZZZ010327	2500	=   WHERE KEY_X='DELETE NOT TRANSACTION'};
ZZZZ010327	2600	***( COMMIT )***************************
ZZZZ010327	2700	=SQL{BEGIN TRANSACTION};
ZZZZ010327	2800	=SQL{?WN.INSERT?('INSERT COMMIT'  ,'OK 2/6')};
ZZZZ010327	2900	=SQL{UPDATE ?_WORK_TABLE?A SET DATA_X='OK 4/6'
ZZZZ010327	3000	=   WHERE KEY_X='UPDATE COMMIT'};
ZZZZ010327	3100	=SQL{DELETE FROM ?_WORK_TABLE?A
ZZZZ010327	3200	=   WHERE KEY_X='DELETE COMMIT'};
ZZZZ010327	3300	=SQL{COMMIT TRANSACTION};
ZZZZ010327	3400	***( ROLLBACK )***************************
ZZZZ010327	3500	=SQL{BEGIN TRANSACTION};
ZZZZ010327	3600	=SQL{?WN.INSERT?('INSERT ROLLBACK','BAD')};
ZZZZ010327	3700	=SQL{UPDATE ?_WORK_TABLE?A SET DATA_X='BAD'
ZZZZ010327	3800	=   WHERE KEY_X='UPDATE ROLLBACK'};
ZZZZ010327	3900	=SQL{DELETE FROM ?_WORK_TABLE?A
ZZZZ010327	4000	=   WHERE KEY_X='DELETE ROLLBACK'};
ZZZZ010327	4100	=SQL{ROLLBACK TRANSACTION};
ZZZZ010327	4200	******************************************
ZZZZ010327	4300	PROGRAM=OUTPUT,&X1,?_WORK_TABLE?A
ZZZZ010327	4400	COLOR
ZZZZ010327	4500	=IF{DATA_X/'OK'}SET{DATA_X@COLOR='B'}JUMP{};
ZZZZ010327	4510	=   SET{             DATA_X@COLOR='R'};
ZZZZ010327	4600	DATA=?&.DATA&KEY_X?
ZZZZ010327	4700	DATA=?&.DATA&DATA_X?
ZZZZ010327	4710	END
ZZZZ010327	4720	=EXIT{0};
ZZZZ010327	4800	COPY=@ZZZZZZ_SQL
ZZZZ010328	100	PROGRAM=NOT
ZZZZ010328	200	FORM= 当処理は'YES'で実行すると１個目の処理で10秒後に
ZZZZ010328	300	FORM2=XX_DATAを１加算し、
ZZZZ010328	400	FORM= ２個目の処理で同じ処理をしますが、
ZZZZ010328	500	FORM=TRANSACTIN処理をするので10秒間待ち処理します。
ZZZZ010328	600	FORM= (排他処理をするので１個目の処理のXX_DATAが1で,
ZZZZ010328	700	FORM=  ２個目の処理でのXX_DATAが2と成ります)
ZZZZ010328	800	FORM=
ZZZZ010328	900	FORM= @@@ XX_DATA= @@@  @ {ENTER　で修了}
ZZZZ010328	1000	BEGIN
ZZZZ010328	1100	=SET{WC.TABLE='?_WW?_?_JOB?A',W0.XX_DATA=0,W0.XX_KEY=0};
ZZZZ010328	1200	BEGIN_END
ZZZZ010328	1300	NAME=DROP_TABLE_WORK
ZZZZ010328	1400	=IF{#?_JOB?=}DROP_TABLE{?WC.TABLE?};
ZZZZ010328	1500	NAME=
ZZZZ010328	1600	DATA={N}DUMY{1}
ZZZZ010328	1700	=IF{#?_JOB?!=}EXIT3{YES};
ZZZZ010328	1800	COPY=DROP_TABLE_WORK
ZZZZ010328	1900	=CREATE_TABLE{?WC.TABLE?,XX_KEY,INT}{XX_DATA,INT};
ZZZZ010328	2000	=PROGRAM{2,?WC.TABLE?,W0.XX_DATA}{W0.XX_KEY}{};
ZZZZ010328	2100	DATA=YES{3}{YES}
ZZZZ010328	2200	=SQL{BEGIN TRANSACTIN};
ZZZZ010328	2300	=PROGRAM{0,?WC.TABLE?,W0.XX_DATA}{W0.XX_KEY}{};
ZZZZ010328	2400	=IF{#?_JOB?=}EXE_I{?_JOB?,?_JOB?=1}SLEEP{10};
ZZZZ010328	2500	=COMPUTE{W0.XX_DATA+=1};
ZZZZ010328	2600	=PROGRAM{3,?WC.TABLE?,W0.XX_DATA}{W0.XX_KEY}{};
ZZZZ010328	2700	=PROGRAM{0,?WC.TABLE?,XX_DATA}   {W0.XX_KEY}{};
ZZZZ010328	2800	=SQL{COMMIT TRANSACTIN};
ZZZZ010328	2900	DATA={O}XX_DATA{3,,+}
ZZZZ010328	3000	DATA=END{3}
ZZZZ010328	3100	=EXIT{0}
ZZZZ010329	100	***************************************************
ZZZZ010329	200	PROGRAM=NOT
ZZZZ010329	300	JA+FORM=   和暦テーブルを作成します。
ZZZZ010329	400	FORM= @@@@ {YES,NO}
ZZZZ010329	500	DATA=YES{4}{YES,NO}
ZZZZ010329	600	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010329	700	=IF_NOT{_PERMISSION='ZZZZ',='ZZZY'}
ZZZZ010329	800	=   ERROR{PERMISSION='ZZZZ' OR ='ZZZZY'};
ZZZZ010329	900	=SET{WN.HEAD='WAREKI'};
ZZZZ010329	1000	******( ETC_TABLE )***************************
ZZZZ010329	1100	=SET{WC.SYSTEM_KEY1='ZZZYZZ_'+WN.HEAD};
ZZZZ010329	1200	=SET{WN.SYSTEM_COMMENT='和暦ー西暦変換'};
ZZZZ010329	1300	=PROGRAM{2E,?_MM?_ETC_ID_TABLE,WN.SYSTEM_COMMENT}
ZZZZ010329	1400	=  {WC.SYSTEM_KEY1}{};
ZZZZ010329	1500	=SET{WC.SYSTEM_KEY2='06450619',WN.SYSTEM_ETC='大化'};
ZZZZ010329	1600	=SET{WN.SYSTEM_COMMENT='たいか'};
ZZZZ010329	1700	NAME=ETC_TABLE
ZZZZ010329	1800	=PROGRAM{2E,?_MM?_ETC_TABLE,WN.SYSTEM_ETC,WN.SYSTEM_COMMENT}
ZZZZ010329	1900	=  {WC.SYSTEM_KEY1,WC.SYSTEM_KEY2}{};
ZZZZ010329	2100	NAME=
ZZZZ010329	2200	=SET{WC.SYSTEM_KEY2='06500215',WN.SYSTEM_ETC='白雉'};
ZZZZ010329	2300	=SET{WN.SYSTEM_COMMENT='はくち'};
ZZZZ010329	2400	COPY=ETC_TABLE
ZZZZ010329	2500	=SET{WC.SYSTEM_KEY2='06860720',WN.SYSTEM_ETC='朱鳥'};
ZZZZ010329	2600	=SET{WN.SYSTEM_COMMENT='しゅちょう'};
ZZZZ010329	2700	COPY=ETC_TABLE
ZZZZ010329	2800	=SET{WC.SYSTEM_KEY2='07010321',WN.SYSTEM_ETC='大宝'};
ZZZZ010329	2900	=SET{WN.SYSTEM_COMMENT='たいほう'};
ZZZZ010329	3000	COPY=ETC_TABLE
ZZZZ010329	3100	=SET{WC.SYSTEM_KEY2='07040510',WN.SYSTEM_ETC='慶雲'};
ZZZZ010329	3200	=SET{WN.SYSTEM_COMMENT='けいうん'};
ZZZZ010329	3300	COPY=ETC_TABLE
ZZZZ010329	3400	=SET{WC.SYSTEM_KEY2='07080111',WN.SYSTEM_ETC='和銅'};
ZZZZ010329	3500	=SET{WN.SYSTEM_COMMENT='わどう'};
ZZZZ010329	3600	COPY=ETC_TABLE
ZZZZ010329	3700	=SET{WC.SYSTEM_KEY2='07150902',WN.SYSTEM_ETC='霊亀'};
ZZZZ010329	3800	=SET{WN.SYSTEM_COMMENT='れいき'};
ZZZZ010329	3900	COPY=ETC_TABLE
ZZZZ010329	4000	=SET{WC.SYSTEM_KEY2='07171117',WN.SYSTEM_ETC='養老'};
ZZZZ010329	4100	=SET{WN.SYSTEM_COMMENT='ようろう'};
ZZZZ010329	4200	COPY=ETC_TABLE
ZZZZ010329	4300	=SET{WC.SYSTEM_KEY2='07240204',WN.SYSTEM_ETC='神亀'};
ZZZZ010329	4400	=SET{WN.SYSTEM_COMMENT='じんき'};
ZZZZ010329	4500	COPY=ETC_TABLE
ZZZZ010329	4600	=SET{WC.SYSTEM_KEY2='07290805',WN.SYSTEM_ETC='天平'};
ZZZZ010329	4700	=SET{WN.SYSTEM_COMMENT='てんぴょう'};
ZZZZ010329	4800	COPY=ETC_TABLE
ZZZZ010329	4900	=SET{WC.SYSTEM_KEY2='07490414',WN.SYSTEM_ETC='天平感宝'};
ZZZZ010329	5000	=SET{WN.SYSTEM_COMMENT='てんぴょうかんぽう'};
ZZZZ010329	5100	COPY=ETC_TABLE
ZZZZ010329	5200	=SET{WC.SYSTEM_KEY2='07490702',WN.SYSTEM_ETC='天平勝宝'};
ZZZZ010329	5300	=SET{WN.SYSTEM_COMMENT='てんぴょうしょうほう'};
ZZZZ010329	5400	COPY=ETC_TABLE
ZZZZ010329	5500	=SET{WC.SYSTEM_KEY2='07570818',WN.SYSTEM_ETC='天平宝字'};
ZZZZ010329	5600	=SET{WN.SYSTEM_COMMENT='てんぴょうほうじ'};
ZZZZ010329	5700	COPY=ETC_TABLE
ZZZZ010329	5800	=SET{WC.SYSTEM_KEY2='07650107',WN.SYSTEM_ETC='天平神護'};
ZZZZ010329	5900	=SET{WN.SYSTEM_COMMENT='てんぴょうじんご'};
ZZZZ010329	6000	COPY=ETC_TABLE
ZZZZ010329	6100	=SET{WC.SYSTEM_KEY2='07670816',WN.SYSTEM_ETC='神護景雲'};
ZZZZ010329	6200	=SET{WN.SYSTEM_COMMENT='じんごけいうん'};
ZZZZ010329	6300	COPY=ETC_TABLE
ZZZZ010329	6400	=SET{WC.SYSTEM_KEY2='07701001',WN.SYSTEM_ETC='宝亀'};
ZZZZ010329	6500	=SET{WN.SYSTEM_COMMENT='ほうき'};
ZZZZ010329	6600	COPY=ETC_TABLE
ZZZZ010329	6700	=SET{WC.SYSTEM_KEY2='07810101',WN.SYSTEM_ETC='天応'};
ZZZZ010329	6800	=SET{WN.SYSTEM_COMMENT='てんおう'};
ZZZZ010329	6900	COPY=ETC_TABLE
ZZZZ010329	7000	=SET{WC.SYSTEM_KEY2='07820819',WN.SYSTEM_ETC='延暦'};
ZZZZ010329	7100	=SET{WN.SYSTEM_COMMENT='えんりゃく'};
ZZZZ010329	7200	COPY=ETC_TABLE
ZZZZ010329	7300	=SET{WC.SYSTEM_KEY2='08060518',WN.SYSTEM_ETC='大同'};
ZZZZ010329	7400	=SET{WN.SYSTEM_COMMENT='たいどう'};
ZZZZ010329	7500	COPY=ETC_TABLE
ZZZZ010329	7600	=SET{WC.SYSTEM_KEY2='08100919',WN.SYSTEM_ETC='弘仁'};
ZZZZ010329	7700	=SET{WN.SYSTEM_COMMENT='こうにん'};
ZZZZ010329	7800	COPY=ETC_TABLE
ZZZZ010329	7900	=SET{WC.SYSTEM_KEY2='08240105',WN.SYSTEM_ETC='天長'};
ZZZZ010329	8000	=SET{WN.SYSTEM_COMMENT='てんちょう'};
ZZZZ010329	8100	COPY=ETC_TABLE
ZZZZ010329	8200	=SET{WC.SYSTEM_KEY2='08340103',WN.SYSTEM_ETC='承和'};
ZZZZ010329	8300	=SET{WN.SYSTEM_COMMENT='じょうわ'};
ZZZZ010329	8400	COPY=ETC_TABLE
ZZZZ010329	8500	=SET{WC.SYSTEM_KEY2='08480613',WN.SYSTEM_ETC='嘉祥'};
ZZZZ010329	8600	=SET{WN.SYSTEM_COMMENT='かしょう'};
ZZZZ010329	8700	COPY=ETC_TABLE
ZZZZ010329	8800	=SET{WC.SYSTEM_KEY2='08510428',WN.SYSTEM_ETC='仁寿'};
ZZZZ010329	8900	=SET{WN.SYSTEM_COMMENT='にんじゅ'};
ZZZZ010329	9000	COPY=ETC_TABLE
ZZZZ010329	9100	=SET{WC.SYSTEM_KEY2='08541130',WN.SYSTEM_ETC='斉衡'};
ZZZZ010329	9200	=SET{WN.SYSTEM_COMMENT='さいこう'};
ZZZZ010329	9300	COPY=ETC_TABLE
ZZZZ010329	9400	=SET{WC.SYSTEM_KEY2='08570221',WN.SYSTEM_ETC='天安'};
ZZZZ010329	9500	=SET{WN.SYSTEM_COMMENT='てんなん'};
ZZZZ010329	9600	COPY=ETC_TABLE
ZZZZ010329	9700	=SET{WC.SYSTEM_KEY2='08590415',WN.SYSTEM_ETC='貞観'};
ZZZZ010329	9800	=SET{WN.SYSTEM_COMMENT='じょうかん'};
ZZZZ010329	9900	COPY=ETC_TABLE
ZZZZ010329	10000	=SET{WC.SYSTEM_KEY2='08770416',WN.SYSTEM_ETC='元慶'};
ZZZZ010329	10100	=SET{WN.SYSTEM_COMMENT='がんぎょう'};
ZZZZ010329	10200	COPY=ETC_TABLE
ZZZZ010329	10300	=SET{WC.SYSTEM_KEY2='08850221',WN.SYSTEM_ETC='仁和'};
ZZZZ010329	10400	=SET{WN.SYSTEM_COMMENT='にんな'};
ZZZZ010329	10500	COPY=ETC_TABLE
ZZZZ010329	10600	=SET{WC.SYSTEM_KEY2='08890427',WN.SYSTEM_ETC='寛平'};
ZZZZ010329	10700	=SET{WN.SYSTEM_COMMENT='かんぴょう'};
ZZZZ010329	10800	COPY=ETC_TABLE
ZZZZ010329	10900	=SET{WC.SYSTEM_KEY2='08980426',WN.SYSTEM_ETC='昌泰'};
ZZZZ010329	11000	=SET{WN.SYSTEM_COMMENT='しょうたい'};
ZZZZ010329	11100	COPY=ETC_TABLE
ZZZZ010329	11200	=SET{WC.SYSTEM_KEY2='09010715',WN.SYSTEM_ETC='延喜'};
ZZZZ010329	11300	=SET{WN.SYSTEM_COMMENT='えんぎ'};
ZZZZ010329	11400	COPY=ETC_TABLE
ZZZZ010329	11500	=SET{WC.SYSTEM_KEY2='09230411',WN.SYSTEM_ETC='延長'};
ZZZZ010329	11600	=SET{WN.SYSTEM_COMMENT='えんちょう'};
ZZZZ010329	11700	COPY=ETC_TABLE
ZZZZ010329	11800	=SET{WC.SYSTEM_KEY2='09310426',WN.SYSTEM_ETC='承平'};
ZZZZ010329	11900	=SET{WN.SYSTEM_COMMENT='じょうへい'};
ZZZZ010329	12000	COPY=ETC_TABLE
ZZZZ010329	12100	=SET{WC.SYSTEM_KEY2='09380522',WN.SYSTEM_ETC='天慶'};
ZZZZ010329	12200	=SET{WN.SYSTEM_COMMENT='てんぎょう'};
ZZZZ010329	12300	COPY=ETC_TABLE
ZZZZ010329	12400	=SET{WC.SYSTEM_KEY2='09470422',WN.SYSTEM_ETC='天暦'};
ZZZZ010329	12500	=SET{WN.SYSTEM_COMMENT='てんりゃく'};
ZZZZ010329	12600	COPY=ETC_TABLE
ZZZZ010329	12700	=SET{WC.SYSTEM_KEY2='09571027',WN.SYSTEM_ETC='天徳'};
ZZZZ010329	12800	=SET{WN.SYSTEM_COMMENT='てんとく'};
ZZZZ010329	12900	COPY=ETC_TABLE
ZZZZ010329	13000	=SET{WC.SYSTEM_KEY2='09610216',WN.SYSTEM_ETC='応和'};
ZZZZ010329	13100	=SET{WN.SYSTEM_COMMENT='おうわ'};
ZZZZ010329	13200	COPY=ETC_TABLE
ZZZZ010329	13300	=SET{WC.SYSTEM_KEY2='09640710',WN.SYSTEM_ETC='康保'};
ZZZZ010329	13400	=SET{WN.SYSTEM_COMMENT='こうほう'};
ZZZZ010329	13500	COPY=ETC_TABLE
ZZZZ010329	13600	=SET{WC.SYSTEM_KEY2='09680815',WN.SYSTEM_ETC='安和'};
ZZZZ010329	13700	=SET{WN.SYSTEM_COMMENT='あんな'};
ZZZZ010329	13800	COPY=ETC_TABLE
ZZZZ010329	13900	=SET{WC.SYSTEM_KEY2='09700325',WN.SYSTEM_ETC='天禄'};
ZZZZ010329	14000	=SET{WN.SYSTEM_COMMENT='てんろく'};
ZZZZ010329	14100	COPY=ETC_TABLE
ZZZZ010329	14200	=SET{WC.SYSTEM_KEY2='09731220',WN.SYSTEM_ETC='天延'};
ZZZZ010329	14300	=SET{WN.SYSTEM_COMMENT='てんえん'};
ZZZZ010329	14400	COPY=ETC_TABLE
ZZZZ010329	14500	=SET{WC.SYSTEM_KEY2='09760713',WN.SYSTEM_ETC='貞元'};
ZZZZ010329	14600	=SET{WN.SYSTEM_COMMENT='じょうげん'};
ZZZZ010329	14700	COPY=ETC_TABLE
ZZZZ010329	14800	=SET{WC.SYSTEM_KEY2='09781129',WN.SYSTEM_ETC='天元'};
ZZZZ010329	14900	=SET{WN.SYSTEM_COMMENT='てんげん'};
ZZZZ010329	15000	COPY=ETC_TABLE
ZZZZ010329	15100	=SET{WC.SYSTEM_KEY2='09830415',WN.SYSTEM_ETC='永観'};
ZZZZ010329	15200	=SET{WN.SYSTEM_COMMENT='えいかん'};
ZZZZ010329	15300	COPY=ETC_TABLE
ZZZZ010329	15400	=SET{WC.SYSTEM_KEY2='09850427',WN.SYSTEM_ETC='寛和'};
ZZZZ010329	15500	=SET{WN.SYSTEM_COMMENT='かんな'};
ZZZZ010329	15600	COPY=ETC_TABLE
ZZZZ010329	15700	=SET{WC.SYSTEM_KEY2='09870405',WN.SYSTEM_ETC='永延'};
ZZZZ010329	15800	=SET{WN.SYSTEM_COMMENT='えいえん'};
ZZZZ010329	15900	COPY=ETC_TABLE
ZZZZ010329	16000	=SET{WC.SYSTEM_KEY2='09890808',WN.SYSTEM_ETC='永祚'};
ZZZZ010329	16100	=SET{WN.SYSTEM_COMMENT='えいそ'};
ZZZZ010329	16200	COPY=ETC_TABLE
ZZZZ010329	16300	=SET{WC.SYSTEM_KEY2='09901107',WN.SYSTEM_ETC='正暦'};
ZZZZ010329	16400	=SET{WN.SYSTEM_COMMENT='しょうりゃく'};
ZZZZ010329	16500	COPY=ETC_TABLE
ZZZZ010329	16600	=SET{WC.SYSTEM_KEY2='09950222',WN.SYSTEM_ETC='長徳'};
ZZZZ010329	16700	=SET{WN.SYSTEM_COMMENT='ちょうとく'};
ZZZZ010329	16800	COPY=ETC_TABLE
ZZZZ010329	16900	=SET{WC.SYSTEM_KEY2='09990113',WN.SYSTEM_ETC='長保'};
ZZZZ010329	17000	=SET{WN.SYSTEM_COMMENT='ちょうほう'};
ZZZZ010329	17100	COPY=ETC_TABLE
ZZZZ010329	17200	=SET{WC.SYSTEM_KEY2='10040720',WN.SYSTEM_ETC='寛弘'};
ZZZZ010329	17300	=SET{WN.SYSTEM_COMMENT='かんこう'};
ZZZZ010329	17400	COPY=ETC_TABLE
ZZZZ010329	17500	=SET{WC.SYSTEM_KEY2='10121225',WN.SYSTEM_ETC='長和'};
ZZZZ010329	17600	=SET{WN.SYSTEM_COMMENT='ちょうわ'};
ZZZZ010329	17700	COPY=ETC_TABLE
ZZZZ010329	17800	=SET{WC.SYSTEM_KEY2='10170423',WN.SYSTEM_ETC='寛仁'};
ZZZZ010329	17900	=SET{WN.SYSTEM_COMMENT='かんにん'};
ZZZZ010329	18000	COPY=ETC_TABLE
ZZZZ010329	18100	=SET{WC.SYSTEM_KEY2='10210202',WN.SYSTEM_ETC='治安'};
ZZZZ010329	18200	=SET{WN.SYSTEM_COMMENT='じあん'};
ZZZZ010329	18300	COPY=ETC_TABLE
ZZZZ010329	18400	=SET{WC.SYSTEM_KEY2='10240713',WN.SYSTEM_ETC='万寿'};
ZZZZ010329	18500	=SET{WN.SYSTEM_COMMENT='まんじゅ'};
ZZZZ010329	18600	COPY=ETC_TABLE
ZZZZ010329	18700	=SET{WC.SYSTEM_KEY2='10280725',WN.SYSTEM_ETC='長元'};
ZZZZ010329	18800	=SET{WN.SYSTEM_COMMENT='ちょうげん'};
ZZZZ010329	18900	COPY=ETC_TABLE
ZZZZ010329	19000	=SET{WC.SYSTEM_KEY2='10370421',WN.SYSTEM_ETC='長暦'};
ZZZZ010329	19100	=SET{WN.SYSTEM_COMMENT='ちょうりゃく'};
ZZZZ010329	19200	COPY=ETC_TABLE
ZZZZ010329	19300	=SET{WC.SYSTEM_KEY2='10401110',WN.SYSTEM_ETC='長久'};
ZZZZ010329	19400	=SET{WN.SYSTEM_COMMENT='ちょうきゅう'};
ZZZZ010329	19500	COPY=ETC_TABLE
ZZZZ010329	19600	=SET{WC.SYSTEM_KEY2='10441124',WN.SYSTEM_ETC='寛徳'};
ZZZZ010329	19700	=SET{WN.SYSTEM_COMMENT='かんとく'};
ZZZZ010329	19800	COPY=ETC_TABLE
ZZZZ010329	19900	=SET{WC.SYSTEM_KEY2='10460414',WN.SYSTEM_ETC='永承'};
ZZZZ010329	20000	=SET{WN.SYSTEM_COMMENT='えいしょう'};
ZZZZ010329	20100	COPY=ETC_TABLE
ZZZZ010329	20200	=SET{WC.SYSTEM_KEY2='10530111',WN.SYSTEM_ETC='天喜'};
ZZZZ010329	20300	=SET{WN.SYSTEM_COMMENT='てんき'};
ZZZZ010329	20400	COPY=ETC_TABLE
ZZZZ010329	20500	=SET{WC.SYSTEM_KEY2='10580829',WN.SYSTEM_ETC='康平'};
ZZZZ010329	20600	=SET{WN.SYSTEM_COMMENT='こうへい'};
ZZZZ010329	20700	COPY=ETC_TABLE
ZZZZ010329	20800	=SET{WC.SYSTEM_KEY2='10650802',WN.SYSTEM_ETC='治暦'};
ZZZZ010329	20900	=SET{WN.SYSTEM_COMMENT='じりゃく'};
ZZZZ010329	21000	COPY=ETC_TABLE
ZZZZ010329	21100	=SET{WC.SYSTEM_KEY2='10690413',WN.SYSTEM_ETC='延久'};
ZZZZ010329	21200	=SET{WN.SYSTEM_COMMENT='えんきゅう'};
ZZZZ010329	21300	COPY=ETC_TABLE
ZZZZ010329	21400	=SET{WC.SYSTEM_KEY2='10740823',WN.SYSTEM_ETC='承保'};
ZZZZ010329	21500	=SET{WN.SYSTEM_COMMENT='じょうほう'};
ZZZZ010329	21600	COPY=ETC_TABLE
ZZZZ010329	21700	=SET{WC.SYSTEM_KEY2='10771117',WN.SYSTEM_ETC='承暦'};
ZZZZ010329	21800	=SET{WN.SYSTEM_COMMENT='じょうりゃく'};
ZZZZ010329	21900	COPY=ETC_TABLE
ZZZZ010329	22000	=SET{WC.SYSTEM_KEY2='10810210',WN.SYSTEM_ETC='永保'};
ZZZZ010329	22100	=SET{WN.SYSTEM_COMMENT='えいほ'};
ZZZZ010329	22200	COPY=ETC_TABLE
ZZZZ010329	22300	=SET{WC.SYSTEM_KEY2='10840207',WN.SYSTEM_ETC='応徳'};
ZZZZ010329	22400	=SET{WN.SYSTEM_COMMENT='おうとく'};
ZZZZ010329	22500	COPY=ETC_TABLE
ZZZZ010329	22600	=SET{WC.SYSTEM_KEY2='10870407',WN.SYSTEM_ETC='寛治'};
ZZZZ010329	22700	=SET{WN.SYSTEM_COMMENT='かんじ'};
ZZZZ010329	22800	COPY=ETC_TABLE
ZZZZ010329	22900	=SET{WC.SYSTEM_KEY2='10941215',WN.SYSTEM_ETC='嘉保'};
ZZZZ010329	23000	=SET{WN.SYSTEM_COMMENT='かほう'};
ZZZZ010329	23100	COPY=ETC_TABLE
ZZZZ010329	23200	=SET{WC.SYSTEM_KEY2='10961217',WN.SYSTEM_ETC='永長'};
ZZZZ010329	23300	=SET{WN.SYSTEM_COMMENT='えいちょう'};
ZZZZ010329	23400	COPY=ETC_TABLE
ZZZZ010329	23500	=SET{WC.SYSTEM_KEY2='10971121',WN.SYSTEM_ETC='承徳'};
ZZZZ010329	23600	=SET{WN.SYSTEM_COMMENT='じょうとく'};
ZZZZ010329	23700	COPY=ETC_TABLE
ZZZZ010329	23800	=SET{WC.SYSTEM_KEY2='10990828',WN.SYSTEM_ETC='康和'};
ZZZZ010329	23900	=SET{WN.SYSTEM_COMMENT='こうわ'};
ZZZZ010329	24000	COPY=ETC_TABLE
ZZZZ010329	24100	=SET{WC.SYSTEM_KEY2='11040210',WN.SYSTEM_ETC='長治'};
ZZZZ010329	24200	=SET{WN.SYSTEM_COMMENT='ちょうじ'};
ZZZZ010329	24300	COPY=ETC_TABLE
ZZZZ010329	24400	=SET{WC.SYSTEM_KEY2='11060409',WN.SYSTEM_ETC='嘉承'};
ZZZZ010329	24500	=SET{WN.SYSTEM_COMMENT='かしょう'};
ZZZZ010329	24600	COPY=ETC_TABLE
ZZZZ010329	24700	=SET{WC.SYSTEM_KEY2='11080803',WN.SYSTEM_ETC='天仁'};
ZZZZ010329	24800	=SET{WN.SYSTEM_COMMENT='てんにん'};
ZZZZ010329	24900	COPY=ETC_TABLE
ZZZZ010329	25000	=SET{WC.SYSTEM_KEY2='11100713',WN.SYSTEM_ETC='天永'};
ZZZZ010329	25100	=SET{WN.SYSTEM_COMMENT='てんえい'};
ZZZZ010329	25200	COPY=ETC_TABLE
ZZZZ010329	25300	=SET{WC.SYSTEM_KEY2='11130713',WN.SYSTEM_ETC='永久'};
ZZZZ010329	25400	=SET{WN.SYSTEM_COMMENT='えいきゅう'};
ZZZZ010329	25500	COPY=ETC_TABLE
ZZZZ010329	25600	=SET{WC.SYSTEM_KEY2='11180403',WN.SYSTEM_ETC='元永'};
ZZZZ010329	25700	=SET{WN.SYSTEM_COMMENT='げんえい'};
ZZZZ010329	25800	COPY=ETC_TABLE
ZZZZ010329	25900	=SET{WC.SYSTEM_KEY2='11200410',WN.SYSTEM_ETC='保安'};
ZZZZ010329	26000	=SET{WN.SYSTEM_COMMENT='ほうあん'};
ZZZZ010329	26100	COPY=ETC_TABLE
ZZZZ010329	26200	=SET{WC.SYSTEM_KEY2='11240403',WN.SYSTEM_ETC='天治'};
ZZZZ010329	26300	=SET{WN.SYSTEM_COMMENT='てんじ'};
ZZZZ010329	26400	COPY=ETC_TABLE
ZZZZ010329	26500	=SET{WC.SYSTEM_KEY2='11260122',WN.SYSTEM_ETC='大治'};
ZZZZ010329	26600	=SET{WN.SYSTEM_COMMENT='だいじ'};
ZZZZ010329	26700	COPY=ETC_TABLE
ZZZZ010329	26800	=SET{WC.SYSTEM_KEY2='11310129',WN.SYSTEM_ETC='天承'};
ZZZZ010329	26900	=SET{WN.SYSTEM_COMMENT='てんじょう'};
ZZZZ010329	27000	COPY=ETC_TABLE
ZZZZ010329	27100	=SET{WC.SYSTEM_KEY2='11320811',WN.SYSTEM_ETC='長承'};
ZZZZ010329	27200	=SET{WN.SYSTEM_COMMENT='ちょうじょう'};
ZZZZ010329	27300	COPY=ETC_TABLE
ZZZZ010329	27400	=SET{WC.SYSTEM_KEY2='11350427',WN.SYSTEM_ETC='保延'};
ZZZZ010329	27500	=SET{WN.SYSTEM_COMMENT='ほうえん'};
ZZZZ010329	27600	COPY=ETC_TABLE
ZZZZ010329	27700	=SET{WC.SYSTEM_KEY2='11410710',WN.SYSTEM_ETC='永治'};
ZZZZ010329	27800	=SET{WN.SYSTEM_COMMENT='えいじ'};
ZZZZ010329	27900	COPY=ETC_TABLE
ZZZZ010329	28000	=SET{WC.SYSTEM_KEY2='11420428',WN.SYSTEM_ETC='康治'};
ZZZZ010329	28100	=SET{WN.SYSTEM_COMMENT='こうじ'};
ZZZZ010329	28200	COPY=ETC_TABLE
ZZZZ010329	28300	=SET{WC.SYSTEM_KEY2='11440223',WN.SYSTEM_ETC='天養'};
ZZZZ010329	28400	=SET{WN.SYSTEM_COMMENT='てんよう'};
ZZZZ010329	28500	COPY=ETC_TABLE
ZZZZ010329	28600	=SET{WC.SYSTEM_KEY2='11450722',WN.SYSTEM_ETC='久安'};
ZZZZ010329	28700	=SET{WN.SYSTEM_COMMENT='きゅうあん'};
ZZZZ010329	28800	COPY=ETC_TABLE
ZZZZ010329	28900	=SET{WC.SYSTEM_KEY2='11510126',WN.SYSTEM_ETC='仁平'};
ZZZZ010329	29000	=SET{WN.SYSTEM_COMMENT='にんぺい'};
ZZZZ010329	29100	COPY=ETC_TABLE
ZZZZ010329	29200	=SET{WC.SYSTEM_KEY2='11541028',WN.SYSTEM_ETC='久寿'};
ZZZZ010329	29300	=SET{WN.SYSTEM_COMMENT='きゅうじゅ'};
ZZZZ010329	29400	COPY=ETC_TABLE
ZZZZ010329	29500	=SET{WC.SYSTEM_KEY2='11560427',WN.SYSTEM_ETC='保元'};
ZZZZ010329	29600	=SET{WN.SYSTEM_COMMENT='ほうげん'};
ZZZZ010329	29700	COPY=ETC_TABLE
ZZZZ010329	29800	=SET{WC.SYSTEM_KEY2='11590420',WN.SYSTEM_ETC='平治'};
ZZZZ010329	29900	=SET{WN.SYSTEM_COMMENT='へいじ'};
ZZZZ010329	30000	COPY=ETC_TABLE
ZZZZ010329	30100	=SET{WC.SYSTEM_KEY2='11600110',WN.SYSTEM_ETC='永暦'};
ZZZZ010329	30200	=SET{WN.SYSTEM_COMMENT='えいりゃく'};
ZZZZ010329	30300	COPY=ETC_TABLE
ZZZZ010329	30400	=SET{WC.SYSTEM_KEY2='11610904',WN.SYSTEM_ETC='応保'};
ZZZZ010329	30500	=SET{WN.SYSTEM_COMMENT='おうほ'};
ZZZZ010329	30600	COPY=ETC_TABLE
ZZZZ010329	30700	=SET{WC.SYSTEM_KEY2='11630329',WN.SYSTEM_ETC='長寛'};
ZZZZ010329	30800	=SET{WN.SYSTEM_COMMENT='ちょうかん'};
ZZZZ010329	30900	COPY=ETC_TABLE
ZZZZ010329	31000	=SET{WC.SYSTEM_KEY2='11650605',WN.SYSTEM_ETC='永万'};
ZZZZ010329	31100	=SET{WN.SYSTEM_COMMENT='えいまん'};
ZZZZ010329	31200	COPY=ETC_TABLE
ZZZZ010329	31300	=SET{WC.SYSTEM_KEY2='11660827',WN.SYSTEM_ETC='仁安'};
ZZZZ010329	31400	=SET{WN.SYSTEM_COMMENT='にんあん'};
ZZZZ010329	31500	COPY=ETC_TABLE
ZZZZ010329	31600	=SET{WC.SYSTEM_KEY2='11690408',WN.SYSTEM_ETC='嘉応'};
ZZZZ010329	31700	=SET{WN.SYSTEM_COMMENT='かおう'};
ZZZZ010329	31800	COPY=ETC_TABLE
ZZZZ010329	31900	=SET{WC.SYSTEM_KEY2='11710421',WN.SYSTEM_ETC='承安'};
ZZZZ010329	32000	=SET{WN.SYSTEM_COMMENT='しょうあん'};
ZZZZ010329	32100	COPY=ETC_TABLE
ZZZZ010329	32200	=SET{WC.SYSTEM_KEY2='11750728',WN.SYSTEM_ETC='安元'};
ZZZZ010329	32300	=SET{WN.SYSTEM_COMMENT='あんげん'};
ZZZZ010329	32400	COPY=ETC_TABLE
ZZZZ010329	32500	=SET{WC.SYSTEM_KEY2='11770804',WN.SYSTEM_ETC='治承'};
ZZZZ010329	32600	=SET{WN.SYSTEM_COMMENT='じしょう'};
ZZZZ010329	32700	COPY=ETC_TABLE
ZZZZ010329	32800	=SET{WC.SYSTEM_KEY2='11810714',WN.SYSTEM_ETC='養和'};
ZZZZ010329	32900	=SET{WN.SYSTEM_COMMENT='ようわ'};
ZZZZ010329	33000	COPY=ETC_TABLE
ZZZZ010329	33100	=SET{WC.SYSTEM_KEY2='11820527',WN.SYSTEM_ETC='寿永'};
ZZZZ010329	33200	=SET{WN.SYSTEM_COMMENT='じゅえ'};
ZZZZ010329	33300	COPY=ETC_TABLE
ZZZZ010329	33400	=SET{WC.SYSTEM_KEY2='11840416',WN.SYSTEM_ETC='元暦'};
ZZZZ010329	33500	=SET{WN.SYSTEM_COMMENT='げんりゃく'};
ZZZZ010329	33600	COPY=ETC_TABLE
ZZZZ010329	33700	=SET{WC.SYSTEM_KEY2='11850814',WN.SYSTEM_ETC='文治'};
ZZZZ010329	33800	=SET{WN.SYSTEM_COMMENT='ぶんじ'};
ZZZZ010329	33900	COPY=ETC_TABLE
ZZZZ010329	34000	=SET{WC.SYSTEM_KEY2='11900411',WN.SYSTEM_ETC='建久'};
ZZZZ010329	34100	=SET{WN.SYSTEM_COMMENT='けんきゅう'};
ZZZZ010329	34200	COPY=ETC_TABLE
ZZZZ010329	34300	=SET{WC.SYSTEM_KEY2='11990427',WN.SYSTEM_ETC='正治'};
ZZZZ010329	34400	=SET{WN.SYSTEM_COMMENT='しょうじ'};
ZZZZ010329	34500	COPY=ETC_TABLE
ZZZZ010329	34600	=SET{WC.SYSTEM_KEY2='12010213',WN.SYSTEM_ETC='建仁'};
ZZZZ010329	34700	=SET{WN.SYSTEM_COMMENT='けんにん'};
ZZZZ010329	34800	COPY=ETC_TABLE
ZZZZ010329	34900	=SET{WC.SYSTEM_KEY2='12040220',WN.SYSTEM_ETC='元久'};
ZZZZ010329	35000	=SET{WN.SYSTEM_COMMENT='げんきゅう'};
ZZZZ010329	35100	COPY=ETC_TABLE
ZZZZ010329	35200	=SET{WC.SYSTEM_KEY2='12060427',WN.SYSTEM_ETC='建永'};
ZZZZ010329	35300	=SET{WN.SYSTEM_COMMENT='けんえい'};
ZZZZ010329	35400	COPY=ETC_TABLE
ZZZZ010329	35500	=SET{WC.SYSTEM_KEY2='12071025',WN.SYSTEM_ETC='承元'};
ZZZZ010329	35600	=SET{WN.SYSTEM_COMMENT='じょうげん'};
ZZZZ010329	35700	COPY=ETC_TABLE
ZZZZ010329	35800	=SET{WC.SYSTEM_KEY2='12110309',WN.SYSTEM_ETC='建暦'};
ZZZZ010329	35900	=SET{WN.SYSTEM_COMMENT='けんりゃく'};
ZZZZ010329	36000	COPY=ETC_TABLE
ZZZZ010329	36100	=SET{WC.SYSTEM_KEY2='12131206',WN.SYSTEM_ETC='建保'};
ZZZZ010329	36200	=SET{WN.SYSTEM_COMMENT='けんぽう'};
ZZZZ010329	36300	COPY=ETC_TABLE
ZZZZ010329	36400	=SET{WC.SYSTEM_KEY2='12190412',WN.SYSTEM_ETC='承久'};
ZZZZ010329	36500	=SET{WN.SYSTEM_COMMENT='しょうきゅう'};
ZZZZ010329	36600	COPY=ETC_TABLE
ZZZZ010329	36700	=SET{WC.SYSTEM_KEY2='12220413',WN.SYSTEM_ETC='貞応'};
ZZZZ010329	36800	=SET{WN.SYSTEM_COMMENT='じょうおう'};
ZZZZ010329	36900	COPY=ETC_TABLE
ZZZZ010329	37000	=SET{WC.SYSTEM_KEY2='12241120',WN.SYSTEM_ETC='元仁'};
ZZZZ010329	37100	=SET{WN.SYSTEM_COMMENT='げんにん'};
ZZZZ010329	37200	COPY=ETC_TABLE
ZZZZ010329	37300	=SET{WC.SYSTEM_KEY2='12250420',WN.SYSTEM_ETC='嘉禄'};
ZZZZ010329	37400	=SET{WN.SYSTEM_COMMENT='かろく'};
ZZZZ010329	37500	COPY=ETC_TABLE
ZZZZ010329	37600	=SET{WC.SYSTEM_KEY2='12271210',WN.SYSTEM_ETC='安貞'};
ZZZZ010329	37700	=SET{WN.SYSTEM_COMMENT='あんてい'};
ZZZZ010329	37800	COPY=ETC_TABLE
ZZZZ010329	37900	=SET{WC.SYSTEM_KEY2='12290305',WN.SYSTEM_ETC='寛喜'};
ZZZZ010329	38000	=SET{WN.SYSTEM_COMMENT='かんき'};
ZZZZ010329	38100	COPY=ETC_TABLE
ZZZZ010329	38200	=SET{WC.SYSTEM_KEY2='12320402',WN.SYSTEM_ETC='貞永'};
ZZZZ010329	38300	=SET{WN.SYSTEM_COMMENT='じょうえい'};
ZZZZ010329	38400	COPY=ETC_TABLE
ZZZZ010329	38500	=SET{WC.SYSTEM_KEY2='12330415',WN.SYSTEM_ETC='天福'};
ZZZZ010329	38600	=SET{WN.SYSTEM_COMMENT='てんぷく'};
ZZZZ010329	38700	COPY=ETC_TABLE
ZZZZ010329	38800	=SET{WC.SYSTEM_KEY2='12341105',WN.SYSTEM_ETC='文暦'};
ZZZZ010329	38900	=SET{WN.SYSTEM_COMMENT='ぶんりゃく'};
ZZZZ010329	39000	COPY=ETC_TABLE
ZZZZ010329	39100	=SET{WC.SYSTEM_KEY2='12350919',WN.SYSTEM_ETC='嘉禎'};
ZZZZ010329	39200	=SET{WN.SYSTEM_COMMENT='かてい'};
ZZZZ010329	39300	COPY=ETC_TABLE
ZZZZ010329	39400	=SET{WC.SYSTEM_KEY2='12381123',WN.SYSTEM_ETC='暦仁'};
ZZZZ010329	39500	=SET{WN.SYSTEM_COMMENT='りゃくにん'};
ZZZZ010329	39600	COPY=ETC_TABLE
ZZZZ010329	39700	=SET{WC.SYSTEM_KEY2='12390207',WN.SYSTEM_ETC='延応'};
ZZZZ010329	39800	=SET{WN.SYSTEM_COMMENT='えんおう'};
ZZZZ010329	39900	COPY=ETC_TABLE
ZZZZ010329	40000	=SET{WC.SYSTEM_KEY2='12400716',WN.SYSTEM_ETC='仁治'};
ZZZZ010329	40100	=SET{WN.SYSTEM_COMMENT='にんじゅ'};
ZZZZ010329	40200	COPY=ETC_TABLE
ZZZZ010329	40300	=SET{WC.SYSTEM_KEY2='12430226',WN.SYSTEM_ETC='寛元'};
ZZZZ010329	40400	=SET{WN.SYSTEM_COMMENT='かんげん'};
ZZZZ010329	40500	COPY=ETC_TABLE
ZZZZ010329	40600	=SET{WC.SYSTEM_KEY2='12470228',WN.SYSTEM_ETC='宝治'};
ZZZZ010329	40700	=SET{WN.SYSTEM_COMMENT='ほうじ'};
ZZZZ010329	40800	COPY=ETC_TABLE
ZZZZ010329	40900	=SET{WC.SYSTEM_KEY2='12490318',WN.SYSTEM_ETC='建長'};
ZZZZ010329	41000	=SET{WN.SYSTEM_COMMENT='けんちょう'};
ZZZZ010329	41100	COPY=ETC_TABLE
ZZZZ010329	41200	=SET{WC.SYSTEM_KEY2='12561005',WN.SYSTEM_ETC='康元'};
ZZZZ010329	41300	=SET{WN.SYSTEM_COMMENT='こうげん'};
ZZZZ010329	41400	COPY=ETC_TABLE
ZZZZ010329	41500	=SET{WC.SYSTEM_KEY2='12570314',WN.SYSTEM_ETC='正嘉'};
ZZZZ010329	41600	=SET{WN.SYSTEM_COMMENT='しょうか'};
ZZZZ010329	41700	COPY=ETC_TABLE
ZZZZ010329	41800	=SET{WC.SYSTEM_KEY2='12590326',WN.SYSTEM_ETC='正元'};
ZZZZ010329	41900	=SET{WN.SYSTEM_COMMENT='しょうげん'};
ZZZZ010329	42000	COPY=ETC_TABLE
ZZZZ010329	42100	=SET{WC.SYSTEM_KEY2='12600413',WN.SYSTEM_ETC='文応'};
ZZZZ010329	42200	=SET{WN.SYSTEM_COMMENT='ぶんおう'};
ZZZZ010329	42300	COPY=ETC_TABLE
ZZZZ010329	42400	=SET{WC.SYSTEM_KEY2='12610220',WN.SYSTEM_ETC='弘長'};
ZZZZ010329	42500	=SET{WN.SYSTEM_COMMENT='こうちょう'};
ZZZZ010329	42600	COPY=ETC_TABLE
ZZZZ010329	42700	=SET{WC.SYSTEM_KEY2='12640228',WN.SYSTEM_ETC='文永'};
ZZZZ010329	42800	=SET{WN.SYSTEM_COMMENT='ぶんえい'};
ZZZZ010329	42900	COPY=ETC_TABLE
ZZZZ010329	43000	=SET{WC.SYSTEM_KEY2='12750425',WN.SYSTEM_ETC='建治'};
ZZZZ010329	43100	=SET{WN.SYSTEM_COMMENT='けんじ'};
ZZZZ010329	43200	=SET{WC.SYSTEM_KEY2='12780229',WN.SYSTEM_ETC='弘安'};
ZZZZ010329	43300	=SET{WN.SYSTEM_COMMENT='こうあん'};
ZZZZ010329	43400	COPY=ETC_TABLE
ZZZZ010329	43500	=SET{WC.SYSTEM_KEY2='12880428',WN.SYSTEM_ETC='正応'};
ZZZZ010329	43600	=SET{WN.SYSTEM_COMMENT='しょうおう'};
ZZZZ010329	43700	COPY=ETC_TABLE
ZZZZ010329	43800	=SET{WC.SYSTEM_KEY2='12930805',WN.SYSTEM_ETC='永仁'};
ZZZZ010329	43900	=SET{WN.SYSTEM_COMMENT='えいにん'};
ZZZZ010329	44000	COPY=ETC_TABLE
ZZZZ010329	44100	=SET{WC.SYSTEM_KEY2='12990425',WN.SYSTEM_ETC='正安'};
ZZZZ010329	44200	=SET{WN.SYSTEM_COMMENT='しょうあん'};
ZZZZ010329	44300	COPY=ETC_TABLE
ZZZZ010329	44400	=SET{WC.SYSTEM_KEY2='13021121',WN.SYSTEM_ETC='乾元'};
ZZZZ010329	44500	=SET{WN.SYSTEM_COMMENT='けんげん'};
ZZZZ010329	44600	COPY=ETC_TABLE
ZZZZ010329	44700	=SET{WC.SYSTEM_KEY2='13030805',WN.SYSTEM_ETC='嘉元'};
ZZZZ010329	44800	=SET{WN.SYSTEM_COMMENT='かげん'};
ZZZZ010329	44900	COPY=ETC_TABLE
ZZZZ010329	45000	=SET{WC.SYSTEM_KEY2='13061214',WN.SYSTEM_ETC='徳治'};
ZZZZ010329	45100	=SET{WN.SYSTEM_COMMENT='とくじ'};
ZZZZ010329	45200	COPY=ETC_TABLE
ZZZZ010329	45300	=SET{WC.SYSTEM_KEY2='13081009',WN.SYSTEM_ETC='延慶'};
ZZZZ010329	45400	=SET{WN.SYSTEM_COMMENT='えんぎょう'};
ZZZZ010329	45500	COPY=ETC_TABLE
ZZZZ010329	45600	=SET{WC.SYSTEM_KEY2='13110428',WN.SYSTEM_ETC='応長'};
ZZZZ010329	45700	=SET{WN.SYSTEM_COMMENT='おうちょう'};
ZZZZ010329	45800	COPY=ETC_TABLE
ZZZZ010329	45900	=SET{WC.SYSTEM_KEY2='13120320',WN.SYSTEM_ETC='正和'};
ZZZZ010329	46000	=SET{WN.SYSTEM_COMMENT='しょうわ'};
ZZZZ010329	46100	COPY=ETC_TABLE
ZZZZ010329	46200	=SET{WC.SYSTEM_KEY2='13170203',WN.SYSTEM_ETC='文保'};
ZZZZ010329	46300	=SET{WN.SYSTEM_COMMENT='ぶんぽう'};
ZZZZ010329	46400	COPY=ETC_TABLE
ZZZZ010329	46500	=SET{WC.SYSTEM_KEY2='13190428',WN.SYSTEM_ETC='元応'};
ZZZZ010329	46600	=SET{WN.SYSTEM_COMMENT='げんおう'};
ZZZZ010329	46700	COPY=ETC_TABLE
ZZZZ010329	46800	=SET{WC.SYSTEM_KEY2='13210223',WN.SYSTEM_ETC='元亨'};
ZZZZ010329	46900	=SET{WN.SYSTEM_COMMENT='げんこう'};
ZZZZ010329	47000	COPY=ETC_TABLE
ZZZZ010329	47100	=SET{WC.SYSTEM_KEY2='13241209',WN.SYSTEM_ETC='正中'};
ZZZZ010329	47200	=SET{WN.SYSTEM_COMMENT='しょうちゅう'};
ZZZZ010329	47300	COPY=ETC_TABLE
ZZZZ010329	47400	=SET{WC.SYSTEM_KEY2='13260426',WN.SYSTEM_ETC='嘉暦'};
ZZZZ010329	47500	=SET{WN.SYSTEM_COMMENT='かりゃく'};
ZZZZ010329	47600	COPY=ETC_TABLE
ZZZZ010329	47700	=SET{WC.SYSTEM_KEY2='13290829',WN.SYSTEM_ETC='元徳'};
ZZZZ010329	47800	=SET{WN.SYSTEM_COMMENT='げんとく'};
ZZZZ010329	47900	COPY=ETC_TABLE
ZZZZ010329	48000	=SET{WC.SYSTEM_KEY2='13310809',WN.SYSTEM_ETC='元弘'};
ZZZZ010329	48100	=SET{WN.SYSTEM_COMMENT='げんこう'};
ZZZZ010329	48200	COPY=ETC_TABLE
ZZZZ010329	48300	=SET{WC.SYSTEM_KEY2='13340129',WN.SYSTEM_ETC='建武'};
ZZZZ010329	48400	=SET{WN.SYSTEM_COMMENT='けんむ'};
ZZZZ010329	48500	COPY=ETC_TABLE
ZZZZ010329	48600	=SET{WC.SYSTEM_KEY2='13360229',WN.SYSTEM_ETC='延元'};
ZZZZ010329	48700	=SET{WN.SYSTEM_COMMENT='えんげん'};
ZZZZ010329	48800	COPY=ETC_TABLE
ZZZZ010329	48900	=SET{WC.SYSTEM_KEY2='13400428',WN.SYSTEM_ETC='興国'};
ZZZZ010329	49000	=SET{WN.SYSTEM_COMMENT='こうこく'};
ZZZZ010329	49100	COPY=ETC_TABLE
ZZZZ010329	49200	=SET{WC.SYSTEM_KEY2='13461208',WN.SYSTEM_ETC='正平'};
ZZZZ010329	49300	=SET{WN.SYSTEM_COMMENT='しょうへい'};
ZZZZ010329	49400	COPY=ETC_TABLE
ZZZZ010329	49500	=SET{WC.SYSTEM_KEY2='13700724',WN.SYSTEM_ETC='建徳'};
ZZZZ010329	49600	=SET{WN.SYSTEM_COMMENT='けんとく'};
ZZZZ010329	49700	COPY=ETC_TABLE
ZZZZ010329	49800	=SET{WC.SYSTEM_KEY2='13721004',WN.SYSTEM_ETC='文中'};
ZZZZ010329	49900	=SET{WN.SYSTEM_COMMENT='ぶんちゅう'};
ZZZZ010329	50000	COPY=ETC_TABLE
ZZZZ010329	50100	=SET{WC.SYSTEM_KEY2='13750527',WN.SYSTEM_ETC='天授'};
ZZZZ010329	50200	=SET{WN.SYSTEM_COMMENT='てんじゅ'};
ZZZZ010329	50300	COPY=ETC_TABLE
ZZZZ010329	50400	=SET{WC.SYSTEM_KEY2='13810210',WN.SYSTEM_ETC='弘和'};
ZZZZ010329	50500	=SET{WN.SYSTEM_COMMENT='こうわ'};
ZZZZ010329	50600	COPY=ETC_TABLE
ZZZZ010329	50700	=SET{WC.SYSTEM_KEY2='13840428',WN.SYSTEM_ETC='元中'};
ZZZZ010329	50800	=SET{WN.SYSTEM_COMMENT='げんちゅう'};
ZZZZ010329	50900	COPY=ETC_TABLE
ZZZZ010329	51000	=SET{WC.SYSTEM_KEY2='13921005',WN.SYSTEM_ETC='明徳'};
ZZZZ010329	51100	=SET{WN.SYSTEM_COMMENT='めいとく'};
ZZZZ010329	51200	COPY=ETC_TABLE
ZZZZ010329	51300	=SET{WC.SYSTEM_KEY2='13940705',WN.SYSTEM_ETC='応永'};
ZZZZ010329	51400	=SET{WN.SYSTEM_COMMENT='おうえい'};
ZZZZ010329	51500	COPY=ETC_TABLE
ZZZZ010329	51600	=SET{WC.SYSTEM_KEY2='14280427',WN.SYSTEM_ETC='正長'};
ZZZZ010329	51700	=SET{WN.SYSTEM_COMMENT='しょうちょう'};
ZZZZ010329	51800	COPY=ETC_TABLE
ZZZZ010329	51900	=SET{WC.SYSTEM_KEY2='14290905',WN.SYSTEM_ETC='永享'};
ZZZZ010329	52000	=SET{WN.SYSTEM_COMMENT='えいきょう'};
ZZZZ010329	52100	COPY=ETC_TABLE
ZZZZ010329	52200	=SET{WC.SYSTEM_KEY2='14410217',WN.SYSTEM_ETC='嘉吉'};
ZZZZ010329	52300	=SET{WN.SYSTEM_COMMENT='かきつ'};
ZZZZ010329	52400	COPY=ETC_TABLE
ZZZZ010329	52500	=SET{WC.SYSTEM_KEY2='14440205',WN.SYSTEM_ETC='文安'};
ZZZZ010329	52600	=SET{WN.SYSTEM_COMMENT='ぶんあん'};
ZZZZ010329	52700	COPY=ETC_TABLE
ZZZZ010329	52800	=SET{WC.SYSTEM_KEY2='14490728',WN.SYSTEM_ETC='宝徳'};
ZZZZ010329	52900	=SET{WN.SYSTEM_COMMENT='ほうとく'};
ZZZZ010329	53000	COPY=ETC_TABLE
ZZZZ010329	53100	=SET{WC.SYSTEM_KEY2='14520725',WN.SYSTEM_ETC='享徳'};
ZZZZ010329	53200	=SET{WN.SYSTEM_COMMENT='きょうとく'};
ZZZZ010329	53300	COPY=ETC_TABLE
ZZZZ010329	53400	=SET{WC.SYSTEM_KEY2='14550725',WN.SYSTEM_ETC='康正'};
ZZZZ010329	53500	=SET{WN.SYSTEM_COMMENT='こうしょう'};
ZZZZ010329	53600	COPY=ETC_TABLE
ZZZZ010329	53700	=SET{WC.SYSTEM_KEY2='14570928',WN.SYSTEM_ETC='長禄'};
ZZZZ010329	53800	=SET{WN.SYSTEM_COMMENT='ちょうろく'};
ZZZZ010329	53900	COPY=ETC_TABLE
ZZZZ010329	54000	=SET{WC.SYSTEM_KEY2='14601221',WN.SYSTEM_ETC='寛正'};
ZZZZ010329	54100	=SET{WN.SYSTEM_COMMENT='かんしょう'};
ZZZZ010329	54200	COPY=ETC_TABLE
ZZZZ010329	54300	=SET{WC.SYSTEM_KEY2='14660228',WN.SYSTEM_ETC='文正'};
ZZZZ010329	54400	=SET{WN.SYSTEM_COMMENT='ぶんしょう'};
ZZZZ010329	54500	COPY=ETC_TABLE
ZZZZ010329	54600	=SET{WC.SYSTEM_KEY2='14670305',WN.SYSTEM_ETC='応仁'};
ZZZZ010329	54700	=SET{WN.SYSTEM_COMMENT='おうにん'};
ZZZZ010329	54800	COPY=ETC_TABLE
ZZZZ010329	54900	=SET{WC.SYSTEM_KEY2='14690428',WN.SYSTEM_ETC='文明'};
ZZZZ010329	55000	=SET{WN.SYSTEM_COMMENT='ぶんめい'};
ZZZZ010329	55100	COPY=ETC_TABLE
ZZZZ010329	55200	=SET{WC.SYSTEM_KEY2='14870720',WN.SYSTEM_ETC='長享'};
ZZZZ010329	55300	=SET{WN.SYSTEM_COMMENT='ちょうきょう'};
ZZZZ010329	55400	COPY=ETC_TABLE
ZZZZ010329	55500	=SET{WC.SYSTEM_KEY2='14890821',WN.SYSTEM_ETC='延徳'};
ZZZZ010329	55600	=SET{WN.SYSTEM_COMMENT='えんとく'};
ZZZZ010329	55700	COPY=ETC_TABLE
ZZZZ010329	55800	=SET{WC.SYSTEM_KEY2='14920719',WN.SYSTEM_ETC='明応'};
ZZZZ010329	55900	=SET{WN.SYSTEM_COMMENT='めいおう'};
ZZZZ010329	56000	COPY=ETC_TABLE
ZZZZ010329	56100	=SET{WC.SYSTEM_KEY2='15010229',WN.SYSTEM_ETC='文亀'};
ZZZZ010329	56200	=SET{WN.SYSTEM_COMMENT='ぶんき'};
ZZZZ010329	56300	COPY=ETC_TABLE
ZZZZ010329	56400	=SET{WC.SYSTEM_KEY2='15040230',WN.SYSTEM_ETC='永正'};
ZZZZ010329	56500	=SET{WN.SYSTEM_COMMENT='えいしょう'};
ZZZZ010329	56600	COPY=ETC_TABLE
ZZZZ010329	56700	=SET{WC.SYSTEM_KEY2='15210823',WN.SYSTEM_ETC='大永'};
ZZZZ010329	56800	=SET{WN.SYSTEM_COMMENT='だいえい'};
ZZZZ010329	56900	COPY=ETC_TABLE
ZZZZ010329	57000	=SET{WC.SYSTEM_KEY2='15280820',WN.SYSTEM_ETC='享禄'};
ZZZZ010329	57100	=SET{WN.SYSTEM_COMMENT='きょうろく'};
ZZZZ010329	57200	COPY=ETC_TABLE
ZZZZ010329	57300	=SET{WC.SYSTEM_KEY2='15320729',WN.SYSTEM_ETC='天文'};
ZZZZ010329	57400	=SET{WN.SYSTEM_COMMENT='てんぶん'};
ZZZZ010329	57500	COPY=ETC_TABLE
ZZZZ010329	57600	=SET{WC.SYSTEM_KEY2='15551023',WN.SYSTEM_ETC='弘治'};
ZZZZ010329	57700	=SET{WN.SYSTEM_COMMENT='こうじ'};
ZZZZ010329	57800	COPY=ETC_TABLE
ZZZZ010329	57900	=SET{WC.SYSTEM_KEY2='15580228',WN.SYSTEM_ETC='永禄'};
ZZZZ010329	58000	=SET{WN.SYSTEM_COMMENT='えいろく'};
ZZZZ010329	58100	COPY=ETC_TABLE
ZZZZ010329	58200	=SET{WC.SYSTEM_KEY2='15700423',WN.SYSTEM_ETC='元亀'};
ZZZZ010329	58300	=SET{WN.SYSTEM_COMMENT='げんき'};
ZZZZ010329	58400	COPY=ETC_TABLE
ZZZZ010329	58500	=SET{WC.SYSTEM_KEY2='15730728',WN.SYSTEM_ETC='天正'};
ZZZZ010329	58600	=SET{WN.SYSTEM_COMMENT='てんしょう'};
ZZZZ010329	58700	COPY=ETC_TABLE
ZZZZ010329	58800	=SET{WC.SYSTEM_KEY2='15921208',WN.SYSTEM_ETC='文禄'};
ZZZZ010329	58900	=SET{WN.SYSTEM_COMMENT='ぶんろく'};
ZZZZ010329	59000	COPY=ETC_TABLE
ZZZZ010329	59100	=SET{WC.SYSTEM_KEY2='15961027',WN.SYSTEM_ETC='慶長'};
ZZZZ010329	59200	=SET{WN.SYSTEM_COMMENT='けいちょう'};
ZZZZ010329	59300	COPY=ETC_TABLE
ZZZZ010329	59400	=SET{WC.SYSTEM_KEY2='16150713',WN.SYSTEM_ETC='元和'};
ZZZZ010329	59500	=SET{WN.SYSTEM_COMMENT='げんな'};
ZZZZ010329	59600	COPY=ETC_TABLE
ZZZZ010329	59700	=SET{WC.SYSTEM_KEY2='16240230',WN.SYSTEM_ETC='寛永'};
ZZZZ010329	59800	=SET{WN.SYSTEM_COMMENT='かんえい'};
ZZZZ010329	59900	COPY=ETC_TABLE
ZZZZ010329	60000	=SET{WC.SYSTEM_KEY2='16441216',WN.SYSTEM_ETC='正保'};
ZZZZ010329	60100	=SET{WN.SYSTEM_COMMENT='しょうほう'};
ZZZZ010329	60200	COPY=ETC_TABLE
ZZZZ010329	60300	=SET{WC.SYSTEM_KEY2='16480215',WN.SYSTEM_ETC='慶安'};
ZZZZ010329	60400	=SET{WN.SYSTEM_COMMENT='けいあん'};
ZZZZ010329	60500	COPY=ETC_TABLE
ZZZZ010329	60600	=SET{WC.SYSTEM_KEY2='16520918',WN.SYSTEM_ETC='承応'};
ZZZZ010329	60700	=SET{WN.SYSTEM_COMMENT='じょうおう'};
ZZZZ010329	60800	COPY=ETC_TABLE
ZZZZ010329	60900	=SET{WC.SYSTEM_KEY2='16550413',WN.SYSTEM_ETC='明暦'};
ZZZZ010329	61000	=SET{WN.SYSTEM_COMMENT='めいれき'};
ZZZZ010329	61100	COPY=ETC_TABLE
ZZZZ010329	61200	=SET{WC.SYSTEM_KEY2='16580723',WN.SYSTEM_ETC='万治'};
ZZZZ010329	61300	=SET{WN.SYSTEM_COMMENT='まんじ'};
ZZZZ010329	61400	COPY=ETC_TABLE
ZZZZ010329	61500	=SET{WC.SYSTEM_KEY2='16610425',WN.SYSTEM_ETC='寛文'};
ZZZZ010329	61600	=SET{WN.SYSTEM_COMMENT='かんぶん'};
ZZZZ010329	61700	COPY=ETC_TABLE
ZZZZ010329	61800	=SET{WC.SYSTEM_KEY2='16730921',WN.SYSTEM_ETC='延宝'};
ZZZZ010329	61900	=SET{WN.SYSTEM_COMMENT='えんぽう'};
ZZZZ010329	62000	COPY=ETC_TABLE
ZZZZ010329	62100	=SET{WC.SYSTEM_KEY2='16810929',WN.SYSTEM_ETC='天和'};
ZZZZ010329	62200	=SET{WN.SYSTEM_COMMENT='てんな'};
ZZZZ010329	62300	COPY=ETC_TABLE
ZZZZ010329	62400	=SET{WC.SYSTEM_KEY2='16840221',WN.SYSTEM_ETC='貞享'};
ZZZZ010329	62500	=SET{WN.SYSTEM_COMMENT='じょうきょう'};
ZZZZ010329	62600	COPY=ETC_TABLE
ZZZZ010329	62700	=SET{WC.SYSTEM_KEY2='16880930',WN.SYSTEM_ETC='元禄'};
ZZZZ010329	62800	=SET{WN.SYSTEM_COMMENT='げんろく'};
ZZZZ010329	62900	COPY=ETC_TABLE
ZZZZ010329	63000	=SET{WC.SYSTEM_KEY2='17040313',WN.SYSTEM_ETC='宝永'};
ZZZZ010329	63100	=SET{WN.SYSTEM_COMMENT='ほうえい'};
ZZZZ010329	63200	COPY=ETC_TABLE
ZZZZ010329	63300	=SET{WC.SYSTEM_KEY2='17110425',WN.SYSTEM_ETC='正徳'};
ZZZZ010329	63400	=SET{WN.SYSTEM_COMMENT='しょうとく'};
ZZZZ010329	63500	COPY=ETC_TABLE
ZZZZ010329	63600	=SET{WC.SYSTEM_KEY2='17160622',WN.SYSTEM_ETC='享保'};
ZZZZ010329	63700	=SET{WN.SYSTEM_COMMENT='きょうほ'};
ZZZZ010329	63800	COPY=ETC_TABLE
ZZZZ010329	63900	=SET{WC.SYSTEM_KEY2='17360428',WN.SYSTEM_ETC='元文'};
ZZZZ010329	64000	=SET{WN.SYSTEM_COMMENT='げんぶん'};
ZZZZ010329	64100	COPY=ETC_TABLE
ZZZZ010329	64200	=SET{WC.SYSTEM_KEY2='17410227',WN.SYSTEM_ETC='寛保'};
ZZZZ010329	64300	=SET{WN.SYSTEM_COMMENT='かんぽ'};
ZZZZ010329	64400	COPY=ETC_TABLE
ZZZZ010329	64500	=SET{WC.SYSTEM_KEY2='17440221',WN.SYSTEM_ETC='延享'};
ZZZZ010329	64600	=SET{WN.SYSTEM_COMMENT='えんきょう'};
ZZZZ010329	64700	COPY=ETC_TABLE
ZZZZ010329	64800	=SET{WC.SYSTEM_KEY2='17480712',WN.SYSTEM_ETC='寛延'};
ZZZZ010329	64900	=SET{WN.SYSTEM_COMMENT='かんえん'};
ZZZZ010329	65000	COPY=ETC_TABLE
ZZZZ010329	65100	=SET{WC.SYSTEM_KEY2='17511027',WN.SYSTEM_ETC='宝暦'};
ZZZZ010329	65200	=SET{WN.SYSTEM_COMMENT='ほうれき'};
ZZZZ010329	65300	COPY=ETC_TABLE
ZZZZ010329	65400	=SET{WC.SYSTEM_KEY2='17640602',WN.SYSTEM_ETC='明和'};
ZZZZ010329	65500	=SET{WN.SYSTEM_COMMENT='めいわ'};
ZZZZ010329	65600	COPY=ETC_TABLE
ZZZZ010329	65700	=SET{WC.SYSTEM_KEY2='17721116',WN.SYSTEM_ETC='安永'};
ZZZZ010329	65800	=SET{WN.SYSTEM_COMMENT='あんえい'};
ZZZZ010329	65900	COPY=ETC_TABLE
ZZZZ010329	66000	=SET{WC.SYSTEM_KEY2='17810402',WN.SYSTEM_ETC='天明'};
ZZZZ010329	66100	=SET{WN.SYSTEM_COMMENT='てんめい'};
ZZZZ010329	66200	COPY=ETC_TABLE
ZZZZ010329	66300	=SET{WC.SYSTEM_KEY2='17890125',WN.SYSTEM_ETC='寛政'};
ZZZZ010329	66400	=SET{WN.SYSTEM_COMMENT='かんせい'};
ZZZZ010329	66500	COPY=ETC_TABLE
ZZZZ010329	66600	=SET{WC.SYSTEM_KEY2='18010205',WN.SYSTEM_ETC='享和'};
ZZZZ010329	66700	=SET{WN.SYSTEM_COMMENT='きょうわ'};
ZZZZ010329	66800	COPY=ETC_TABLE
ZZZZ010329	66900	=SET{WC.SYSTEM_KEY2='18040211',WN.SYSTEM_ETC='文化'};
ZZZZ010329	67000	=SET{WN.SYSTEM_COMMENT='ぶんか'};
ZZZZ010329	67100	COPY=ETC_TABLE
ZZZZ010329	67200	=SET{WC.SYSTEM_KEY2='18180422',WN.SYSTEM_ETC='文政'};
ZZZZ010329	67300	=SET{WN.SYSTEM_COMMENT='ぶんせい'};
ZZZZ010329	67400	COPY=ETC_TABLE
ZZZZ010329	67500	=SET{WC.SYSTEM_KEY2='18301210',WN.SYSTEM_ETC='天保'};
ZZZZ010329	67600	=SET{WN.SYSTEM_COMMENT='てんぽう'};
ZZZZ010329	67700	COPY=ETC_TABLE
ZZZZ010329	67800	=SET{WC.SYSTEM_KEY2='18441202',WN.SYSTEM_ETC='弘化'};
ZZZZ010329	67900	=SET{WN.SYSTEM_COMMENT='こうか'};
ZZZZ010329	68000	COPY=ETC_TABLE
ZZZZ010329	68100	=SET{WC.SYSTEM_KEY2='18480228',WN.SYSTEM_ETC='嘉永'};
ZZZZ010329	68200	=SET{WN.SYSTEM_COMMENT='かえい'};
ZZZZ010329	68300	COPY=ETC_TABLE
ZZZZ010329	68400	=SET{WC.SYSTEM_KEY2='18541127',WN.SYSTEM_ETC='安政'};
ZZZZ010329	68500	=SET{WN.SYSTEM_COMMENT='あんせい'};
ZZZZ010329	68600	COPY=ETC_TABLE
ZZZZ010329	68700	=SET{WC.SYSTEM_KEY2='18600318',WN.SYSTEM_ETC='万延'};
ZZZZ010329	68800	=SET{WN.SYSTEM_COMMENT='まんえん'};
ZZZZ010329	68900	COPY=ETC_TABLE
ZZZZ010329	69000	=SET{WC.SYSTEM_KEY2='18610219',WN.SYSTEM_ETC='文久'};
ZZZZ010329	69100	=SET{WN.SYSTEM_COMMENT='ぶんきゅう'};
ZZZZ010329	69200	COPY=ETC_TABLE
ZZZZ010329	69300	=SET{WC.SYSTEM_KEY2='18640220',WN.SYSTEM_ETC='元治'};
ZZZZ010329	69400	=SET{WN.SYSTEM_COMMENT='げんじ'};
ZZZZ010329	69500	COPY=ETC_TABLE
ZZZZ010329	69600	=SET{WC.SYSTEM_KEY2='18650407',WN.SYSTEM_ETC='慶応'};
ZZZZ010329	69700	=SET{WN.SYSTEM_COMMENT='けいおう'};
ZZZZ010329	69800	COPY=ETC_TABLE
ZZZZ010329	69900	=SET{WC.SYSTEM_KEY2='18680908',WN.SYSTEM_ETC='明治'};
ZZZZ010329	70000	=SET{WN.SYSTEM_COMMENT='めいじ'};
ZZZZ010329	70100	COPY=ETC_TABLE
ZZZZ010329	70200	=SET{WC.SYSTEM_KEY2='19120730',WN.SYSTEM_ETC='大正'};
ZZZZ010329	70300	=SET{WN.SYSTEM_COMMENT='たいしょう'};
ZZZZ010329	70400	COPY=ETC_TABLE
ZZZZ010329	70500	=SET{WC.SYSTEM_KEY2='19261225',WN.SYSTEM_ETC='昭和'};
ZZZZ010329	70600	=SET{WN.SYSTEM_COMMENT='しょうわ'};
ZZZZ010329	70700	COPY=ETC_TABLE
ZZZZ010329	70800	=SET{WC.SYSTEM_KEY2='19890108',WN.SYSTEM_ETC='平成'};
ZZZZ010329	70900	=SET{WN.SYSTEM_COMMENT='へいせい'};
ZZZZ010329	71000	COPY=ETC_TABLE
ZZZZ010329	71010	=SET{WC.SYSTEM_KEY2='20190501',WN.SYSTEM_ETC='令和'};
ZZZZ010329	71020	=SET{WN.SYSTEM_COMMENT='れいわ'};
ZZZZ010329	71030	COPY=ETC_TABLE
ZZZZ010329	71100	******( DICTIONARY )************************
ZZZZ010329	71200	=SET{WC.SYSTEM_PERMISSION='ZZZY'};
ZZZZ010329	71300	=SET{WC.SYSTEM_PART='ZZ'};
ZZZZ010329	71400	=SET{WC.SYSTEM_LANG='JA',WC.SYSTEM_CHECK=
ZZZZ010329	71500	=   ,WN.SYSTEM_CHECK61=};
ZZZZ010329	71600	=SET{WN.N='DATE',WN.H='西暦日付'
ZZZZ010329	71700	=   ,WN.D='CHAR',WN.1=8,WN.T='D'};
ZZZZ010329	71800	NAME=PROGRAM_DICTIONARY
ZZZZ010329	71900	=SET{WN.SYSTEM_DATA_NAME=WN.HEAD+'_'+WN.N};
ZZZZ010329	72000	=SET{WN.SYSTEM_TITLE=WN.H,WC.SYSTEM_DEFAULT_TYPE=WN.D};
ZZZZ010329	72100	=SET{W0.SYSTEM_DEFAULT_LENGTH1=WN.1,WC.SYSTEM_TYPE1=WN.T};
ZZZZ010329	72200	=PROGRAM{2E,?_MM?_I_DICTIONARY_TABLE
ZZZZ010329	72210	=   ,WC.SYSTEM_PART,WN.SYSTEM_TITLE
ZZZZ010329	72300	=   ,WC.SYSTEM_DEFAULT_TYPE,W0.SYSTEM_DEFAULT_LENGTH1
ZZZZ010329	72320	=   ,WC.SYSTEM_TYPE1,WC.SYSTEM_CHECK,WN.SYSTEM_CHECK61}
ZZZZ010329	72500	=  {WC.SYSTEM_PERMISSION,WN.SYSTEM_DATA_NAME,WC.SYSTEM_LANG}
ZZZZ010329	72600	=  {};
ZZZZ010329	72900	NAME=
ZZZZ010329	72910	=SET{WN.N='END',WN.H='西暦最終日'
ZZZZ010329	72920	=   ,WN.D='CHAR',WN.1=1,WN.T=};
ZZZZ010329	72930	COPY=PROGRAM_DICTIONARY
ZZZZ010329	73000	*****( CREATE TABLE )*************
ZZZZ010329	73100	=SET{_JOB_PERMISSION='ZZZY'};
ZZZZ010329	73200	=IF_TABLE{?_MP_ZZZY?ZZ_WAREKI_TABLE}JUMP{SKIP};
ZZZZ010329	73300	=DBO_CREATE_TABLE{?_MP_ZZZY?ZZ_WAREKI_TABLE,?WN.HEAD?_DATE,*
ZZZZ010329	73400	=  ,?WN.HEAD?_END,*}{};
ZZZZ010329	73500	=DBO_GRANT{?_MP_ZZZY?ZZ_WAREKI_TABLE,TABLE};
ZZZZ010329	73600	=SKIP:
ZZZZ010329	73700	=SET{_JOB_PERMISSION='ZZZZ'};
ZZZZ010329	73800	=EXIT{_END};
ZZZZ010330	100	PROGRAM=NOT
ZZZZ010330	200	DATA={N}DUMMY{1}
ZZZZ010330	300	=IF_TABLE{?_MM?_WAREKI_TABLE}EXIT{+1};
ZZZZ010330	400	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010330	500	DATA={O}MESSAGE{50}
ZZZZ010330	600	DATA=YES{3}{YES,NO}
ZZZZ010330	700	=IF{_DATA='YES'}EXE_I{ZZZZ010329};
ZZZZ010330	800	=EXIT{_END};
ZZZZ010330	900	PROGRAM=,&X1,?_MM?_WAREKI_TABLE
ZZZZ010330	1000	*INNER=ではDB2がエラーとなるため、COMMA=で対応し、
ZZZZ010330	1100	*SET=のDUMMYで結合の条件を設定。
ZZZZ010330	1200	COMMA=&X2,?_MP_ZZZZ?ZZ_ETC_TABLE
ZZZZ010330	1300	SET={N}DUMMY{1}
ZZZZ010330	1400	=SET{_DATA@WHERE='X2.SYSTEM_KEY2=(SELECT MAX(X3.SYSTEM_KEY2)'
ZZZZ010330	1500	=   +' FROM ?_MP_ZZZZ?ZZ_ETC_TABLE X3'
ZZZZ010330	1600	=   +' WHERE(X3.SYSTEM_KEY2<=?_T?.WAREKI_DATE'
ZZZZ010330	1700	=   +' AND ?_T?.WAREKI_END<>''1'''
ZZZZ010330	1800	=   +' OR X3.SYSTEM_KEY2<?_T?.WAREKI_DATE'
ZZZZ010330	1900	=   +' AND ?_T?.WAREKI_END=''1'')'
ZZZZ010330	2000	=   +' AND X3.SYSTEM_KEY1=''?_PP?_WAREKI'''
ZZZZ010330	2100	=   +' AND X3.Z_CANCEL='' '')'
ZZZZ010330	2200	=   +' AND X2.SYSTEM_KEY1=''?_PP?_WAREKI'''
ZZZZ010330	2300	=   +' AND X2.Z_CANCEL='' '''};
ZZZZ010330	2400	=SET{W0.TODAY_Y=_TODAY[1;4]};
ZZZZ010330	2500	DATA={*C}X2.SYSTEM_ETC{8,,J}年号
ZZZZ010330	2600	CHECK2=SELECT SYSTEM_ETC,?_CL?RTRIM(SYSTEM_KEY2)?_C?'('?_C?
ZZZZ010330	2700	CHECK2=   RTRIM(SYSTEM_COMMENT)?_C?')'?_CR? FROM
ZZZZ010330	2800	CHECK2=   ?_MP_ZZZZ?ZZ_ETC_TABLE
ZZZZ010330	2900	CHECK2=   WHERE SYSTEM_KEY1='?_PP?_WAREKI'
ZZZZ010330	3000	CHECK2=   AND Z_CANCEL=' ' ORDER BY SYSTEM_KEY2 DESC
ZZZZ010330	3100	=SQL_SET{WN.STA}
ZZZZ010330	3200	=  {SELECT SYSTEM_KEY2 FROM ?_MP_ZZZZ?ZZ_ETC_TABLE
ZZZZ010330	3300	=   WHERE SYSTEM_KEY1='?_PP?_WAREKI'
ZZZZ010330	3400	=   AND   SYSTEM_ETC=?_N?'?_DATA?'
ZZZZ010330	3500	=   AND Z_CANCEL=' '};
ZZZZ010330	3600	=IF{_SQL_SET_COUNT=0}ERROR{PRGRAM MISS};
ZZZZ010330	3700	=SET{W0.STA_Y=WN.STA[1;4],W0.STA_M=WN.STA[5;2]
ZZZZ010330	3800	=   ,W0.STA_D=WN.STA[7;2]};
ZZZZ010330	3900	=COMPUTE{W0.STA_Y_MINUS1=W0.STA_Y-1};
ZZZZ010330	4000	=SQL_SET{WN.END}
ZZZZ010330	4100	=  {SELECT MIN(SYSTEM_KEY2) FROM ?_MP_ZZZZ?ZZ_ETC_TABLE
ZZZZ010330	4200	=   WHERE SYSTEM_KEY1='?_PP?_WAREKI'
ZZZZ010330	4300	=   AND SYSTEM_KEY2>'?WN.STA?' AND Z_CANCEL=' '};
ZZZZ010330	4400	=IF{WN.END=}SET{WN.END=_TODAY};
ZZZZ010330	4500	=SET{W0.END_Y=WN.END[1;4],W0.END_M=WN.END[5;2]
ZZZZ010330	4600	=   ,W0.END_D=WN.END[7;2]};
ZZZZ010330	4700	* (その年号の最大年設定 )
ZZZZ010330	4800	=COMPUTE{W0._Y_MAX=W0.END_Y-W0.STA_Y_MINUS1};
ZZZZ010330	4900	DATA={*C}年{2,,+}{(1,?W0._Y_MAX?)}
ZZZZ010330	5000	SELECT=CAST(?_SUBSTR(.WAREKI_DATE;1;4)?
ZZZZ010330	5100	SELECT=AS DECIMAL(4,0)) -
ZZZZ010330	5200	SELECT=CAST(?_SUBSTR(X2.SYSTEM_KEY2;1;4)?
ZZZZ010330	5300	SELECT=AS DECIMAL(4,0)) + 1
ZZZZ010330	5400	*( 西暦年計算 )
ZZZZ010330	5500	=COMPUTE{WN.Y=年+W0.STA_Y_MINUS1};
ZZZZ010330	5600	=IF{WN.Y@COUNT=3}SET{WN.Y='0'+WN.Y};
ZZZZ010330	5700	*( 最小月、最大月設定)
ZZZZ010330	5800	=SET{W0._M_MIN=1,W0._M_MAX=12};
ZZZZ010330	5900	* (元年は最小月変更 )*
ZZZZ010330	6000	=IF{_DATA=1}SET{W0._M_MIN=W0.STA_M};
ZZZZ010330	6100	* (最後の年は最大月変更 )*
ZZZZ010330	6200	=IF{_DATA=W0._Y_MAX}SET{W0._M_MAX=W0.END_M};
ZZZZ010330	6300	=COMPUTE{年前=W0.TODAY_Y-WN.Y}; (年前計算)*
ZZZZ010330	6400	DATA={*C}月{2,,+}{(?W0._M_MIN?,?W0._M_MAX?)}
ZZZZ010330	6500	SELECT=CAST(?_SUBSTR((_5);5;2)? AS DECIMAL(2,0))
ZZZZ010330	6600	* (月１桁は２桁に変更)
ZZZZ010330	6700	=SET{WN.M='0'+_DATA};IF{_DATA>9}SET{WN.M=_DATA};
ZZZZ010330	6800	***** ( 月最小日、最大日決定 )***********************
ZZZZ010330	6900	=SET{W0._D_MIN=1,W0._D_MAX=31};
ZZZZ010330	7000	=IF{_DATA=4,=6,=9,=11}SET{W0._D_MAX=30}; 4,6,9,11月は30日*
ZZZZ010330	7100	***( 閏年判定 )********
ZZZZ010330	7200	=IF{_DATA!=2}JUMP{NOT}; 2月以外は判定不要。*
ZZZZ010330	7300	=SET{W0._D_MAX=28};
ZZZZ010330	7400	=COMPUTE{W0.=WN.Y/4,W0.*=4}; 4で割り切れるか判定。*
ZZZZ010330	7500	=IF{WN.Y!=W0.}JUMP{NOT};  4で割り切れない場合は閏年でない。*
ZZZZ010330	7600	=COMPUTE{W0.=WN.Y/100,W0.*=100}; 100で割り切れるか判定。*
ZZZZ010330	7700	=IF{WN.Y!=W0.}JUMP{URUU};    100で割り切れ無い場合は閏年。*
ZZZZ010330	7800	=COMPUTE{W0.=WN.Y/400,W0.*=400}; 400で割り切れるか判定。*
ZZZZ010330	7900	=IF{WN.Y!=W0.}JUMP{NOT}; 400で割り切れ無い場合は閏年でない。*
ZZZZ010330	8000	=URUU:SET{W0._D_MAX=29}; 閏年は２９が最大日。*
ZZZZ010330	8100	=NOT:
ZZZZ010330	8200	****************************
ZZZZ010330	8300	* (元年の最小月は最小日変更 )*
ZZZZ010330	8400	=IF{年=1}IF{月=W0._M_MIN}SET{W0._D_MIN=W0.STA_D};
ZZZZ010330	8500	* (最後の年の最大月は最大日変更 )*
ZZZZ010330	8600	=IF{年=W0._Y_MAX}IF{月=W0._M_MAX}SET{W0._D_MAX=W0.END_D};
ZZZZ010330	8700	* (明治6年12月3日以降無し)*
ZZZZ010330	8800	=IF{X2.SYSTEM_ETC='明治'}IF{年=6}IF{月=12}SET{W0._D_MAX=2};
ZZZZ010330	8900	DATA={*C}日{2,,+}{(?W0._D_MIN?,?W0._D_MAX?)}
ZZZZ010330	9000	SELECT=CAST(?_SUBSTR((_5);7;2)? AS DECIMAL(2,0))
ZZZZ010330	9100	* (日１桁は２桁に変更)
ZZZZ010330	9200	=SET{WN.D='0'+_DATA};IF{_DATA>9}SET{WN.D=_DATA};
ZZZZ010330	9300	* (更新年月日設定 )*
ZZZZ010330	9400	=SET{WAREKI_DATE=WN.Y+WN.M+WN.D};
ZZZZ010330	9500	* (和暦最終日判定)**
ZZZZ010330	9600	=IF{年=W0._Y_MAX}IF{月=W0._M_MAX}IF{_DATA=W0._D_MAX}
ZZZZ010330	9700	=   SET{WAREKI_END=1}JUMP{};
ZZZZ010330	9800	=   SET{WAREKI_END=0};
ZZZZ010330	9900	*****( 年月日 )*****
ZZZZ010330	10000	DATA={KOD}?&.DATA&WAREKI_DATE?
ZZZZ010330	10100	DATA={KOD}?&.DATA&WAREKI_END?
ZZZZ010330	10200	DATA={*OC}年前{4,,+,Z}
ZZZZ010330	10300	SELECT=CAST(?W0.TODAY_Y? AS DECIMAL(4,0))
ZZZZ010330	10400	SELECT= - CAST(?_SUBSTR((_5);1;4)? AS DECIMAL(4,0))
ZZZZ010330	10500	COPY=@ZZZZZZ_SQL
ZZZZ010330	10600	END
ZZZZ010330	10700	=EXIT{0};
ZZZZ010332	100	PROGRAM=NOT
ZZZZ010332	200	DATA={N}DUMMY{1}
ZZZZ010332	300	=IF_TABLE{?_MM?_GAMES_MAJYAN_N_TABLE}EXIT{+1};
ZZZZ010332	400	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010332	500	DATA={O}MESSAGE{50}
ZZZZ010332	600	DATA=YES{3}{YES,NO}
ZZZZ010332	700	=IF{_DATA='YES'}EXE_I{ZZZZ010340};
ZZZZ010332	800	=EXIT{_END};
ZZZZ010332	900	PROGRAM=,&X1,?_MM?_GAMES_MAJYAN_N_TABLE
ZZZZ010332	1000	MINUS=%Z_CANCEL_SELECT
ZZZZ010332	1100	SET={}.?&.SET&GAMES_MAJYAN_NAME?
ZZZZ010332	1200	*SET={}?&.SET&GAMES_MAJYAN_OK?
ZZZZ010332	1300	*****( 名前 )*****
ZZZZ010332	1500	DATA={A }?&.DATA&GAMES_MAJYAN_ORDER?
ZZZZ010332	1600	=SQL_SET{CNT_ORDER}{
ZZZZ010332	1700	= SELECT COUNT(*)+1 FROM ?_TABLE? WHERE Z_CANCEL=' ' AND
ZZZZ010332	1800	= ?_VRE&GAMES_MAJYAN_ORDER? AND ?_VRLG&GAMES_MAJYAN_NAME?
ZZZZ010332	1900	= AND GAMES_MAJYAN_ENTRY<>'*'};
ZZZZ010332	2000	=IF{_START!=2}
ZZZZ010332	2100	NAME=CNT_ORDER
ZZZZ010332	2200	=   IF{Z_CANCEL<>' ',GAMES_MAJYAN_ENTRY='*'}EXIT{};
ZZZZ010332	2300	=IF{CNT_ORDER=1}IF{GAMES_MAJYAN_ORDER>0}
ZZZZ010332	2400	=  SET{GAMES_MAJYAN_ORDER@COLOR='W'}JUMP{};
ZZZZ010332	2500	=  SET{GAMES_MAJYAN_ORDER@COLOR='R'};
ZZZZ010332	2600	NAME=
ZZZZ010332	2610	DATA={KC}?&.DATA&GAMES_MAJYAN_NAME?
ZZZZ010332	2620	=IF{_DATA=}ERROR{氏名を入力して下さい。};
ZZZZ010332	2700	DATA={  }?&.DATA&GAMES_MAJYAN_ENTRY?
ZZZZ010332	2800	DATA={*O }CNT_ORDER{3,,+}順番件数
ZZZZ010332	2900	SELECT=(SELECT COUNT(*) FROM ?_TABLE? X1A WHERE
ZZZZ010332	3000	SELECT=X1A.Z_CANCEL=' ' AND X1A.?_NE&GAMES_MAJYAN_ORDER?
ZZZZ010332	3100	SELECT=AND X1A.GAMES_MAJYAN_ENTRY<>'*')
ZZZZ010332	3200	*****( OK )*****
ZZZZ010332	3300	DATA={*N}Z_CANCEL{17}
ZZZZ010332	3400	COPY=@ZZZZZZ_SQL
ZZZZ010332	3500	COPY=CNT_ORDER
ZZZZ010332	3600	END
ZZZZ010332	3700	=EXIT{0};
ZZZZ010333	100	PROGRAM=NOT
ZZZZ010333	200	DATA={N}FUMMY{1}
ZZZZ010333	300	=IF_TABLE{?_MM?_GAMES_MAJYAN_TABLE}EXIT{+1};
ZZZZ010333	400	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010333	500	DATA={O}MESSAGE{50}
ZZZZ010333	600	DATA=YES{3}{YES,NO}
ZZZZ010333	700	=IF{_DATA='YES'}EXE_I{ZZZZ010340};
ZZZZ010333	800	=EXIT{_END};
ZZZZ010333	900	PROGRAM=NOT,&X1,?_MM?_GAMES_MAJYAN_TABLE
ZZZZ010333	1000	TABLE=&X2,?_MM?_GAMES_MAJYAN_OU_TABLE
ZZZZ010333	1100	CONTROL=PROGRAM,TITLE
ZZZZ010333	1200	TABLE=&X3,?_MM?_GAMES_MAJYAN_N_TABLE
ZZZZ010333	1300	BEGIN
ZZZZ010333	1400	=SET{WC.DATE_MAX=_TODAY,WC.DATE_MIN=};
ZZZZ010333	1500	=SQL_SET{WC.DATE_MIN}{SELECT GAMES_MAJYAN_DATE FROM
ZZZZ010333	1600	= ?&X1.TABLE? WHERE Z_CANCEL=' ' ORDER BY 1 DESC};
ZZZZ010333	1700	=SET{GAMES_MAJYAN_GAME=1,GAMES_MAJYAN_TAKU=1};
ZZZZ010333	1800	=SET{GAMES_MAJYAN_YES='YES'
ZZZZ010333	1900	=   ,GAMES_MAJYAN_DATE=_TODAY};
ZZZZ010333	2000	DATA={,,2}?&.DATA&GAMES_MAJYAN_DATE?
ZZZZ010333	2100	CHECK=(?WC.DATE_MIN?,?WC.DATE_MAX?)
ZZZZ010333	2200	NAME=NOW
ZZZZ010333	2300	=SET{NINSUU=0};
ZZZZ010333	2400	=SQL_SET{NINSUU}{SELECT COUNT(*) FROM ?&X3.TABLE?
ZZZZ010333	2500	=   WHERE Z_CANCEL=' ' AND GAMES_MAJYAN_ENTRY=' '};
ZZZZ010333	2600	NAME=
ZZZZ010333	2700	=SET{W0.KUBUN_MAX=0,W0.KUBUN_MIN=0};
ZZZZ010333	2800	=SQL_SET{W0.KUBUN_MIN}{SELECT GAMES_MAJYAN_KUBUN
ZZZZ010333	2900	=FROM ?_TABLE? WHERE ?_VRE&GAMES_MAJYAN_DATE? AND
ZZZZ010333	3000	= Z_CANCEL=' ' ORDER BY GAMES_MAJYAN_KUBUN DESC};
ZZZZ010333	3100	=IF{W0.KUBUN_MIN=0}SET{W0.KUBUN_MIN=1,W0.KUBUN_MAX=1}JUMP{};
ZZZZ010333	3200	=COMPUTE{W0.KUBUN_MAX=W0.KUBUN_MIN+1};
ZZZZ010333	3300	=SET{GAMES_MAJYAN_KUBUN=W0.KUBUN_MIN};
ZZZZ010333	3400	DATA={,,}?&.DATA&GAMES_MAJYAN_KUBUN?
ZZZZ010333	3500	CHECK=(?W0.KUBUN_MIN?,?W0.KUBUN_MAX?)
ZZZZ010333	3600	=SET{NOW.GAMES_MAJYAN_GAME=1};
ZZZZ010333	3700	=SQL_SET{NOW.GAMES_MAJYAN_GAME}
ZZZZ010333	3800	=  {SELECT MAX(GAMES_MAJYAN_GAME) FROM ?&.TABLE?
ZZZZ010333	3900	=   WHERE ?_VRE&GAMES_MAJYAN_DATE? AND Z_CANCEL=' '
ZZZZ010333	4000	=   AND   ?_VRE&GAMES_MAJYAN_KUBUN?};
ZZZZ010333	4100	=SET{NOW.GAMES_MAJYAN_TAKU=1};
ZZZZ010333	4200	=SQL_SET{NOW.GAMES_MAJYAN_TAKU}
ZZZZ010333	4300	=  {SELECT MAX(GAMES_MAJYAN_TAKU) FROM ?&.TABLE?
ZZZZ010333	4400	=   WHERE ?_VRE&GAMES_MAJYAN_DATE? AND Z_CANCEL=' '
ZZZZ010333	4500	=   AND   ?_VRE&GAMES_MAJYAN_KUBUN?};
ZZZZ010333	4600	=SQL_SET{?&X2.WORK?}{SELECT ?&X2.ALL? FROM ?&X2.TABLE?
ZZZZ010333	4700	=  WHERE (?_VRL&GAMES_MAJYAN_DATE? OR
ZZZZ010333	4800	=  ?_VRE&GAMES_MAJYAN_DATE? AND ?_VRLE&GAMES_MAJYAN_KUBUN?)
ZZZZ010333	4900	=  AND Z_CANCEL=' ' ORDER BY
ZZZZ010333	5000	=  GAMES_MAJYAN_DATE DESC,GAMES_MAJYAN_KUBUN DESC};
ZZZZ010333	5100	=SET{WN.OLD_KAIZYOU=WN.GAMES_MAJYAN_KAIZYOU
ZZZZ010333	5110	=   ,W0.OLD_NINSUU=W0.GAMES_MAJYAN_NINSUU
ZZZZ010333	5200	=   ,W0.OLD_HONBA_TEN=W0.GAMES_MAJYAN_HONBA_TEN
ZZZZ010333	5220	=   ,W0.OLD_SUUFUURENDA=W0.GAMES_MAJYAN_SUUFUURENDA
ZZZZ010333	5300	=   ,W0.OLD_MOTITEN=W0.GAMES_MAJYAN_MOTITEN
ZZZZ010333	5400	=   ,W0.OLD_UMA1=W0.GAMES_MAJYAN_UMA1
ZZZZ010333	5500	=   ,W0.OLD_UMA2=W0.GAMES_MAJYAN_UMA2};
ZZZZ010333	5600	=IF{NINSUU=W0.GAMES_MAJYAN_NINSUU}EXIT{};
ZZZZ010333	6200	*IF{_SQL_SET_COUNT>0}EXIT3{GAMES_MAJYAN_UMA2};
ZZZZ010333	6300	WORK=WC.?&X2.DATA&GAMES_MAJYAN_DATE?
ZZZZ010333	6400	WORK=W0.?&X2.DATA&GAMES_MAJYAN_KUBUN?
ZZZZ010333	6500	WORK=W0.?&X2.DATA&GAMES_MAJYAN_NINSUU?
ZZZZ010333	6600	WORK=W0.?&X2.DATA&GAMES_MAJYAN_TAKU?
ZZZZ010333	6610	DATA={}WN.?&X2.DATA&GAMES_MAJYAN_KAIZYOU?
ZZZZ010333	6612	=IF{_DATA=}ERROR{会場を入力して下さい};
ZZZZ010333	6622	=IF{_DATA=WN.OLD_KAIZYOU}EXIT{};
ZZZZ010333	6632	NAME=CHECK_OLD
ZZZZ010333	6642	=IF{  GAMES_MAJYAN_DATE=WC.GAMES_MAJYAN_DATE}
ZZZZ010333	6652	=  IF{GAMES_MAJYAN_KUBUN=W0.GAMES_MAJYAN_KUBUN}
ZZZZ010333	6662	=  ERROR{設定済みで変更出来ません,別の区分にして下さい。};
ZZZZ010333	6672	NAME=
ZZZZ010333	6800	DATA={}W0.?&X2.DATA&GAMES_MAJYAN_HONBA_TEN?
ZZZZ010333	7100	=IF{_DATA=W0.OLD_HONBA_TEN}EXIT{};
ZZZZ010333	7200	COPY=CHECK_OLD
ZZZZ010333	7800	DATA={,,0}W0.?&X2.DATA&GAMES_MAJYAN_SUUFUURENDA?
ZZZZ010333	7802	=IF{_DATA=W0.OLD_SUUFUURENDA}JUMP{OK};
ZZZZ010333	7803	COPY=CHECK_OLD
ZZZZ010333	7804	=OK:
ZZZZ010333	7810	=SET{WN.GAMES_MAJYAN_SUUFUURENDA_COM=_CHECK2};
ZZZZ010333	7900	DATA={O,,80}WN.?&X2.DATA&GAMES_MAJYAN_SUUFUURENDA_COM?
ZZZZ010333	8000	TITLE=
ZZZZ010333	8100	DATA={}W0.?&X2.DATA&GAMES_MAJYAN_MOTITEN?
ZZZZ010333	8200	CHECK=30000,29000,28000,27000,26000,25000
ZZZZ010333	8300	=IF{_DATA=W0.OLD_MOTITEN}EXIT{};
ZZZZ010333	8500	COPY=CHECK_OLD
ZZZZ010333	8900	NAME=
ZZZZ010333	9000	DATA={}W0.?&X2.DATA&GAMES_MAJYAN_UMA1?
ZZZZ010333	9100	CHECK=0,5000,10000,20000
ZZZZ010333	9200	=IF{_DATA=W0.OLD_UMA1}JUMP{J};
ZZZZ010333	9800	COPY=CHECK_OLD
ZZZZ010333	9900	=J:
ZZZZ010333	10000	=IF{_DATA=0}SET{WC.CHECK=0};
ZZZZ010333	10100	=IF{_DATA=5000}SET{WC.CHECK='10000'};
ZZZZ010333	10200	=IF{_DATA=10000}SET{WC.CHECK='20000,30000'}EXIT{};
ZZZZ010333	10300	=IF{_DATA=20000}SET{WC.CHECK='30000'};
ZZZZ010333	10400	=SET{W0.GAMES_MAJYAN_UMA2=WC.CHECK};
ZZZZ010333	10500	=EXIT3{W0.GAMES_MAJYAN_UMA2};
ZZZZ010333	10600	DATA={,,80}W0.?&X2.DATA&GAMES_MAJYAN_UMA2?
ZZZZ010333	10700	CHECK=?WC.CHECK?
ZZZZ010333	10800	DATA={O   }NOW.?&.DATA&GAMES_MAJYAN_GAME?(現在)
ZZZZ010333	10900	DATA={O   }NOW.?&.DATA&GAMES_MAJYAN_TAKU?
ZZZZ010333	11000	DATA={O,,80}NINSUU{3,,+,Z}人数
ZZZZ010333	11100	DATA={    }SET.?&.DATA&GAMES_MAJYAN_GAME?(決定)
ZZZZ010333	11200	CHECK=(1,)
ZZZZ010333	11300	=IF{_DATA=NOW.GAMES_MAJYAN_GAME}ERROR{現在と値が同じです};
ZZZZ010333	11400	DATA={ ,,2}SET.?&.DATA&GAMES_MAJYAN_TAKU?
ZZZZ010333	11500	CHECK=(1,)
ZZZZ010333	11600	=IF{NOW.GAMES_MAJYAN_TAKU=_DATA,=0}JUMP{J};
ZZZZ010333	11700	COPY=CHECK_OLD
ZZZZ010333	11800	*IF{SET.GAMES_MAJYAN_GAME>NOW.GAMES_MAJYAN_GAME}JUMP{J};
ZZZZ010333	11900	*ERROR{値を変える場合がゲーム番号を変える必要が有ります};
ZZZZ010333	12000	=J:
ZZZZ010333	12100	=SET{HASUU=};
ZZZZ010333	12200	=COMPUTE_CUT{W0.CNT=NINSUU/4};
ZZZZ010333	12300	=IF{W0.CNT>=_DATA}JUMP{OK};
ZZZZ010333	12400	=COMPUTE_CUT{W0.CNT=NINSUU+1,W0.CNT/=4};
ZZZZ010333	12500	=IF{W0.CNT>=_DATA}SET{HASUU='3人卓有'}JUMP{OK};
ZZZZ010333	12600	*COMPUTE_CUT{W0.CNT=SUU+2,W0.CNT/=4};
ZZZZ010333	12700	*IF{W0.CNT>=_DATA}SET{HASUU='2人卓有'}JUMP{OK};
ZZZZ010333	12800	=NG:
ZZZZ010333	12900	=ERROR{参加者人数が足りません};
ZZZZ010333	13000	=OK:
ZZZZ010333	13100	COPY=NOW
ZZZZ010333	13200	=SET{MAX.GAMES_MAJYAN_GAME=SET.GAMES_MAJYAN_GAME};
ZZZZ010333	13300	=IF{NOW.GAMES_MAJYAN_GAME>SET.GAMES_MAJYAN_GAME}
ZZZZ010333	13400	=   SET{MAX.GAMES_MAJYAN_GAME=NOW.GAMES_MAJYAN_GAME};
ZZZZ010333	13500	=IF{NOW.GAMES_MAJYAN_TAKU>SET.GAMES_MAJYAN_TAKU}
ZZZZ010333	13600	=   SET{MAX.GAMES_MAJYAN_TAKU=NOW.GAMES_MAJYAN_TAKU};
ZZZZ010333	13700	=SET{GAMES_MAJYAN_GAME=1,GAMES_MAJYAN_TAKU=1};
ZZZZ010333	13800	DATA={O}HASUU{8}３人卓有
ZZZZ010333	13900	DATA={O   }MAX.?&.DATA&GAMES_MAJYAN_GAME?(最大)
ZZZZ010333	14000	DATA={O,,2}MAX.?&.DATA&GAMES_MAJYAN_TAKU?
ZZZZ010333	14100	DATA={,,40}GAMES_MAJYAN_YES{4}{YES,NO}実行
ZZZZ010333	14200	=IF{_DATA<>'YES'}EXIT{0};
ZZZZ010333	14300	=SET{!?_PP?_GAMES_MAJYAN_DATE=GAMES_MAJYAN_DATE};
ZZZZ010333	14400	*SET{!ZZZYZZ_GAMES_MAJYAN_KUBUN=GAMES_MAJYAN_KUBUN};
ZZZZ010333	14500	****( 行追加及び削除 )************************
ZZZZ010333	14600	COPY=NOW
ZZZZ010333	14700	=IF{SET.GAMES_MAJYAN_GAME<NOW.GAMES_MAJYAN_GAME}
ZZZZ010333	14800	=  SET{W0END.GAMES_MAJYAN_GAME=NOW.GAMES_MAJYAN_GAME}JUMP{};
ZZZZ010333	14900	=  SET{W0END.GAMES_MAJYAN_GAME=SET.GAMES_MAJYAN_GAME};
ZZZZ010333	15000	=IF{NOW.GAMES_MAJYAN_TAKU<>0}
ZZZZ010333	15100	=  IF{NOW.GAMES_MAJYAN_TAKU<>SET.GAMES_MAJYAN_TAKU}
ZZZZ010333	15200	=     SET{    GAMES_MAJYAN_GAME=NOW.GAMES_MAJYAN_GAME}
ZZZZ010333	15300	=     COMPUTE{GAMES_MAJYAN_GAME+=1};
ZZZZ010333	15400	=LOOP_START:SET{GAMES_MAJYAN_TAKU=1};
ZZZZ010333	15500	=LOOP:
ZZZZ010333	15600	=SET{WN.GAMES_MAJYAN_1_NAME=,WN.GAMES_MAJYAN_2_NAME=
ZZZZ010333	15700	=   ,WN.GAMES_MAJYAN_3_NAME=,WN.GAMES_MAJYAN_4_NAME=};
ZZZZ010333	15800	=IF{GAMES_MAJYAN_GAME<=SET.GAMES_MAJYAN_GAME}
ZZZZ010333	15900	=IF{GAMES_MAJYAN_TAKU  <=SET.GAMES_MAJYAN_TAKU}
ZZZZ010333	16000	=        SET{WN.OPT='2N'}JUMP{GO};
ZZZZ010333	16100	=SET{        WN.OPT='1N'};
ZZZZ010333	16200	=SQL_SET{}{SELECT 1 FROM ?&.TABLE?
ZZZZ010333	16300	=   WHERE  ?_VRE&GAMES_MAJYAN_DATE?
ZZZZ010333	16400	=   AND  ?_VRE&GAMES_MAJYAN_KUBUN?
ZZZZ010333	16500	=   AND ?_VRE&GAMES_MAJYAN_GAME?
ZZZZ010333	16600	=   AND ?_VRE&GAMES_MAJYAN_TAKU?
ZZZZ010333	16700	=   AND Z_CANCEL=' '
ZZZZ010333	16800	=   AND GAMES_MAJYAN_1_SCORE=0
ZZZZ010333	16900	=   AND GAMES_MAJYAN_2_SCORE=0
ZZZZ010333	17000	=   AND GAMES_MAJYAN_3_SCORE=0
ZZZZ010333	17100	=   AND GAMES_MAJYAN_4_SCORE=0};
ZZZZ010333	17200	=IF{_SQL_SET_COUNT=0}JUMP{SKIP};
ZZZZ010333	17300	=GO:PROGRAM{?WN.OPT?,?&.TABLE?
ZZZZ010333	17400	=   ,WN.GAMES_MAJYAN_1_NAME,WN.GAMES_MAJYAN_2_NAME
ZZZZ010333	17500	=   ,WN.GAMES_MAJYAN_3_NAME,WN.GAMES_MAJYAN_4_NAME}
ZZZZ010333	17600	=  {?&.KEY?}{};
ZZZZ010333	17700	=SKIP:
ZZZZ010333	17800	=IF{GAMES_MAJYAN_TAKU<NOW.GAMES_MAJYAN_TAKU}JUMP{NOW_NO};
ZZZZ010333	17900	=IF{SET.GAMES_MAJYAN_TAKU>GAMES_MAJYAN_TAKU}
ZZZZ010333	18000	=   COMPUTE{GAMES_MAJYAN_TAKU+=1}BACK{LOOP};
ZZZZ010333	18100	=JUMP{SKIP_NO};
ZZZZ010333	18200	=NOW_NO:
ZZZZ010333	18300	=IF{NOW.GAMES_MAJYAN_TAKU>GAMES_MAJYAN_TAKU}
ZZZZ010333	18400	=   COMPUTE{GAMES_MAJYAN_TAKU+=1}BACK{LOOP};
ZZZZ010333	18500	=SKIP_NO:
ZZZZ010333	18600	=IF{W0END.GAMES_MAJYAN_GAME>GAMES_MAJYAN_GAME}
ZZZZ010333	18700	=   COMPUTE{GAMES_MAJYAN_GAME+=1}BACK{LOOP_START};
ZZZZ010333	18800	*******( メンバー登録　)*****************
ZZZZ010333	18900	=SET{W0.GAMES_MAJYAN_GAME=NOW.GAMES_MAJYAN_GAME};
ZZZZ010333	19000	=COMPUTE{W0.GAMES_MAJYAN_GAME+=1};
ZZZZ010333	19100	=IF{W0.GAMES_MAJYAN_GAME>SET.GAMES_MAJYAN_GAME}JUMP{END};
ZZZZ010333	19200	=LOOP_NO:SET{W0.GAMES_MAJYAN_TAKU=1};
ZZZZ010333	19300	=SET{GAMES_MAJYAN_GAME=W0.GAMES_MAJYAN_GAME};
ZZZZ010333	19400	=LOOP: 卓違い*
ZZZZ010333	19500	=SET{GAMES_MAJYAN_TAKU=W0.GAMES_MAJYAN_TAKU};
ZZZZ010333	19600	REPEAT=4
ZZZZ010333	19700	=SET{WN.GAMES_MAJYAN_##_NAME='***'};
ZZZZ010333	19800	***( 名前有は処理迂回 )***
ZZZZ010333	19900	=SQL_SET{WN.NAME}
ZZZZ010333	20000	= {SELECT GAMES_MAJYAN_##_NAME
ZZZZ010333	20100	*1+= '*'
ZZZZ010333	20200	*1-= GAMES_MAJYAN_#-_NAME
ZZZZ010333	20300	= FROM ?_MM?_GAMES_MAJYAN_TABLE X1 WHERE
ZZZZ010333	20400	= ?_VE&GAMES_MAJYAN_DATE? AND Z_CANCEL=' ' AND
ZZZZ010333	20500	= ?_VE&GAMES_MAJYAN_KUBUN? AND
ZZZZ010333	20600	= ?_VRE&W0.GAMES_MAJYAN_GAME? AND
ZZZZ010333	20700	= ?_VRE&W0.GAMES_MAJYAN_TAKU?};
ZZZZ010333	20800	=IF{_SQL_SET_COUNT<>1}ERROR{PROGRAM MISS};
ZZZZ010333	20900	=IF{WN.NAME!=}JUMP{SKIP}; 処理済迂回*
ZZZZ010333	21000	***( 最後のデータ行を追加)***
ZZZZ010333	21100	=SET{WN.TABLE='SELECT * FROM ?_MM?_GAMES_MAJYAN_TABLE '
ZZZZ010333	21200	=+'UNION ALL SELECT * FROM ?_MM?_GAMES_MAJYAN_TABLE X1 WHERE'
ZZZZ010333	21300	=+' GAMES_MAJYAN_GAME=(SELECT MAX(GAMES_MAJYAN_GAME) '
ZZZZ010333	21400	=+'FROM ?_MM?_GAMES_MAJYAN_TABLE X2 WHERE '
ZZZZ010333	21500	=+' X2.?_NE&GAMES_MAJYAN_DATE?  AND X1.Z_CANCEL='' '' AND  '
ZZZZ010333	21600	=+' X2.?_NE&GAMES_MAJYAN_KUBUN? AND X2.Z_CANCEL='' '' AND  '
ZZZZ010333	21700	=+'?_VE&GAMES_MAJYAN_DATE? AND '
ZZZZ010333	21800	=+'?_VE&GAMES_MAJYAN_KUBUN? AND '
ZZZZ010333	21900	=+' X2.?_VRL&W0.GAMES_MAJYAN_GAME?)'};
ZZZZ010333	22000	*+'UNION ALL SELECT * FROM ?_MM?_GAMES_MAJYAN_TABLE X1 WHERE'
ZZZZ010333	22100	*+' GAMES_MAJYAN_GAME=(SELECT MAX(GAMES_MAJYAN_GAME) '
ZZZZ010333	22200	*+'FROM ?_MM?_GAMES_MAJYAN_TABLE X2 WHERE '
ZZZZ010333	22300	*+' X2.?_NE&GAMES_MAJYAN_DATE?  AND X1.Z_CANCEL='' '' AND  '
ZZZZ010333	22400	*+' X2.?_NE&GAMES_MAJYAN_KUBUN? AND X2.Z_CANCEL='' '' AND  '
ZZZZ010333	22500	*+'?_VE&GAMES_MAJYAN_DATE? AND '
ZZZZ010333	22600	*+'?_VE&GAMES_MAJYAN_KUBUN? AND '
ZZZZ010333	22700	*+' X2.GAMES_MAJYAN_1_NAME<>'' '') '
ZZZZ010333	22800	*+'UNION ALL SELECT * FROM ?_MM?_GAMES_MAJYAN_TABLE WHERE '
ZZZZ010333	22900	*+'Z_CANCEL='' '' AND  '
ZZZZ010333	23000	*+'?_VRE&GAMES_MAJYAN_DATE? AND '
ZZZZ010333	23100	*+'?_VRE&GAMES_MAJYAN_KUBUN? AND '
ZZZZ010333	23200	*+'?_VRE&W0.GAMES_MAJYAN_TAKU?'};
ZZZZ010333	23300	=SQL_SET{WN.GAMES_MAJYAN_##_NAME}
ZZZZ010333	23400	={SELECT GAMES_MAJYAN_NAME
ZZZZ010333	24100	*****( 1 東除く上家が同じ人の回数の少ない順)***
ZZZZ010333	24200	=,
ZZZZ010333	24300	2+=(SELECT COUNT(*) FROM (?WN.TABLE?) X1 WHERE
ZZZZ010333	24400	2+= ?_VRE&GAMES_MAJYAN_DATE? AND Z_CANCEL=' ' AND
ZZZZ010333	24500	2+= ?_VRE&GAMES_MAJYAN_KUBUN? AND (
ZZZZ010333	24600	2+= ?_VC&WN.GAMES_MAJYAN_1_NAME?=GAMES_MAJYAN_1_NAME AND
ZZZZ010333	24700	2+=            GAMES_MAJYAN_NAME=GAMES_MAJYAN_2_NAME
ZZZZ010333	24800	3+|4+=(SELECT COUNT(*) FROM (?WN.TABLE?) X1 WHERE
ZZZZ010333	24900	3+|4+= ?_VRE&GAMES_MAJYAN_DATE? AND Z_CANCEL=' ' AND
ZZZZ010333	25000	3+|4+= ?_VRE&GAMES_MAJYAN_KUBUN? AND (
ZZZZ010333	25100	REPEAT2=3
ZZZZ010333	25200	3+|4+$1-=OR
ZZZZ010333	25300	3+|4+= ?_VC&WN.GAMES_MAJYAN_#-_NAME?=GAMES_MAJYAN_$$_NAME AND
ZZZZ010333	25500	3+|4+=             GAMES_MAJYAN_NAME=GAMES_MAJYAN_$+_NAME
ZZZZ010333	25600	REPEAT2=
ZZZZ010333	25700	1-=))
ZZZZ010333	25800	1+=0
ZZZZ010333	25900	*****( 2 東南西北の設定済み回数の少ない順 )***
ZZZZ010333	26000	=,(SELECT COUNT(*) FROM (?WN.TABLE?) X1 WHERE
ZZZZ010333	26100	= ?_VRE&GAMES_MAJYAN_DATE? AND Z_CANCEL=' ' AND
ZZZZ010333	26200	= ?_VRE&GAMES_MAJYAN_KUBUN? AND
ZZZZ010333	26300	= GAMES_MAJYAN_NAME=GAMES_MAJYAN_##_NAME)
ZZZZ010333	26400	*****( 3. 同じ席2人までの相席の回数の少ない順)***
ZZZZ010333	26500	1-=,(SELECT COUNT(*) FROM (?WN.TABLE?) X1 WHERE
ZZZZ010333	26600	1-= ?_VRE&GAMES_MAJYAN_DATE? AND Z_CANCEL=' ' AND
ZZZZ010333	26700	1-= ?_VRE&GAMES_MAJYAN_KUBUN? AND
ZZZZ010333	26800	1-= GAMES_MAJYAN_NAME IN
ZZZZ010333	26900	1-=(GAMES_MAJYAN_1_NAME,GAMES_MAJYAN_2_NAME
ZZZZ010333	27000	1-=,GAMES_MAJYAN_3_NAME,GAMES_MAJYAN_4_NAME)
ZZZZ010333	27100	1-=   AND(?_VC&WN.GAMES_MAJYAN_1_NAME? IN
ZZZZ010333	27200	1-=   (GAMES_MAJYAN_1_NAME,GAMES_MAJYAN_2_NAME
ZZZZ010333	27300	1-=   ,GAMES_MAJYAN_3_NAME,GAMES_MAJYAN_4_NAME)
ZZZZ010333	27400	3+|4+=AND ?_VC&WN.GAMES_MAJYAN_2_NAME? IN
ZZZZ010333	27500	3+|4+=(GAMES_MAJYAN_1_NAME,GAMES_MAJYAN_2_NAME
ZZZZ010333	27600	3+|4+=,GAMES_MAJYAN_3_NAME,GAMES_MAJYAN_4_NAME)
ZZZZ010333	27700	4+=   OR ?_VC&WN.GAMES_MAJYAN_1_NAME? IN
ZZZZ010333	27800	4+=   (GAMES_MAJYAN_1_NAME,GAMES_MAJYAN_2_NAME
ZZZZ010333	27900	4+=   ,GAMES_MAJYAN_3_NAME,GAMES_MAJYAN_4_NAME)
ZZZZ010333	28000	4+=   AND ?_VC&WN.GAMES_MAJYAN_3_NAME? IN
ZZZZ010333	28100	4+=   (GAMES_MAJYAN_1_NAME,GAMES_MAJYAN_2_NAME
ZZZZ010333	28200	4+=   ,GAMES_MAJYAN_3_NAME,GAMES_MAJYAN_4_NAME)
ZZZZ010333	28300	4+=   OR ?_VC&WN.GAMES_MAJYAN_2_NAME? IN
ZZZZ010333	28400	4+=   (GAMES_MAJYAN_1_NAME,GAMES_MAJYAN_2_NAME
ZZZZ010333	28500	4+=   ,GAMES_MAJYAN_3_NAME,GAMES_MAJYAN_4_NAME)
ZZZZ010333	28600	4+=   AND ?_VC&WN.GAMES_MAJYAN_3_NAME? IN
ZZZZ010333	28700	4+=   (GAMES_MAJYAN_1_NAME,GAMES_MAJYAN_2_NAME
ZZZZ010333	28800	4+=   ,GAMES_MAJYAN_3_NAME,GAMES_MAJYAN_4_NAME)
ZZZZ010333	28900	1-=))
ZZZZ010333	29000	1+=,0
ZZZZ010333	29100	*****( 4 出場回数の少ない順 )***
ZZZZ010333	29200	=,(SELECT COUNT(*) FROM (?WN.TABLE?) X1 WHERE
ZZZZ010333	29300	= ?_VRE&GAMES_MAJYAN_DATE? AND Z_CANCEL=' ' AND
ZZZZ010333	29400	= ?_VRE&GAMES_MAJYAN_KUBUN? AND
ZZZZ010333	29500	= GAMES_MAJYAN_NAME IN(GAMES_MAJYAN_1_NAME
ZZZZ010333	29600	= ,GAMES_MAJYAN_2_NAME,GAMES_MAJYAN_3_NAME
ZZZZ010333	29700	= ,GAMES_MAJYAN_4_NAME))
ZZZZ010333	29800	*****( 5 同じ卓番号の少ない順 )***
ZZZZ010333	29900	=,(SELECT COUNT(*) FROM (?WN.TABLE?) X1 WHERE
ZZZZ010333	30000	= ?_VRE&GAMES_MAJYAN_DATE? AND Z_CANCEL=' ' AND
ZZZZ010333	30100	= ?_VRE&GAMES_MAJYAN_KUBUN? AND
ZZZZ010333	30200	= ?_VRE&W0.GAMES_MAJYAN_TAKU? AND
ZZZZ010333	30300	= GAMES_MAJYAN_NAME IN(GAMES_MAJYAN_1_NAME
ZZZZ010333	30400	= ,GAMES_MAJYAN_2_NAME,GAMES_MAJYAN_3_NAME
ZZZZ010333	30500	= ,GAMES_MAJYAN_4_NAME))
ZZZZ010333	30600	*****( 6 名前のORDER順 )***
ZZZZ010333	30700	=,GAMES_MAJYAN_ORDER FROM ?_MM?_GAMES_MAJYAN_N_TABLE
ZZZZ010333	30800	= WHERE GAMES_MAJYAN_ENTRY<>'*' AND Z_CANCEL=' '
ZZZZ010333	30900	= AND NOT EXISTS( SELECT 0 FROM ?_MM?_GAMES_MAJYAN_TABLE
ZZZZ010333	31000	= WHERE GAMES_MAJYAN_NAME
ZZZZ010333	31100	=     IN(GAMES_MAJYAN_1_NAME,GAMES_MAJYAN_2_NAME
ZZZZ010333	31200	=       ,GAMES_MAJYAN_3_NAME,GAMES_MAJYAN_4_NAME)
ZZZZ010333	31300	= AND ?_VRE&GAMES_MAJYAN_DATE? AND Z_CANCEL=' '
ZZZZ010333	31400	= AND ?_VRE&GAMES_MAJYAN_KUBUN?
ZZZZ010333	31500	= AND ?_VRE&W0.GAMES_MAJYAN_GAME?)
ZZZZ010333	31600	=  ORDER BY 2,3,4,5,6,7};
ZZZZ010333	31700	=IF{WN.GAMES_MAJYAN_##_NAME=}ERROR{PROGRAM MISS 2};
ZZZZ010333	31800	=PROGRAM{3,?_MM?_GAMES_MAJYAN_TABLE
ZZZZ010333	31900	=   ,WN.GAMES_MAJYAN_##_NAME}
ZZZZ010333	32000	=   {GAMES_MAJYAN_DATE,GAMES_MAJYAN_KUBUN
ZZZZ010333	32100	=   ,W0.GAMES_MAJYAN_GAME,W0.GAMES_MAJYAN_TAKU}{};
ZZZZ010333	32200	REPEAT=
ZZZZ010333	32300	=IF{W0.GAMES_MAJYAN_TAKU<SET.GAMES_MAJYAN_TAKU}
ZZZZ010333	32400	=  COMPUTE{W0.GAMES_MAJYAN_TAKU+=1}BACK{LOOP};
ZZZZ010333	32500	=SKIP:
ZZZZ010333	32600	=IF{W0.GAMES_MAJYAN_GAME<SET.GAMES_MAJYAN_GAME}
ZZZZ010333	32700	=  COMPUTE{W0.GAMES_MAJYAN_GAME+=1}BACK{LOOP_NO};
ZZZZ010333	32800	=END:
ZZZZ010333	32900	=SET{WC.GAMES_MAJYAN_DATE=GAMES_MAJYAN_DATE
ZZZZ010333	33000	=   ,W0.GAMES_MAJYAN_KUBUN=GAMES_MAJYAN_KUBUN
ZZZZ010333	33100	=   ,W0.GAMES_MAJYAN_NINSUU=NINSUU
ZZZZ010333	33200	=   ,W0.GAMES_MAJYAN_TAKU=SET.GAMES_MAJYAN_TAKU};
ZZZZ010333	33300	=PROGRAM{2E,?&X2.TABLE?,?&X2.WORK_DATA?}{?&X2.WORK_KEY?}{};
ZZZZ010333	33400	=EXIT{_END};
ZZZZ010333	33500	DATA={O   }?&.DATA&GAMES_MAJYAN_GAME?
ZZZZ010333	33600	DATA={O   }?&.DATA&GAMES_MAJYAN_TAKU?
ZZZZ010333	33700	END
ZZZZ010333	33800	=EXIT{0};
ZZZZ010334	100	PROGRAM=NOT
ZZZZ010334	200	BEGIN
ZZZZ010334	300	DATA={N}DUMMY{1}
ZZZZ010334	400	=IF_TABLE{?_MM?_GAMES_MAJYAN_TABLE}EXIT{+1};
ZZZZ010334	500	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010334	600	DATA={O}MESSAGE{50}
ZZZZ010334	700	DATA=YES{3}{YES,NO}
ZZZZ010334	800	=IF{_DATA='YES'}EXE_I{ZZZZ010340};
ZZZZ010334	900	=EXIT{_END};
ZZZZ010334	1000	PROGRAM=OUTPUT,&X1,?_MM?_GAMES_MAJYAN_TABLE
ZZZZ010334	1010	LEFT=&X2,?_MM?_GAMES_MAJYAN_OU_TABLE
ZZZZ010334	1100	CONTROL=0
ZZZZ010334	1200	CONTROL=BEGIN_ENTER_LEFT
ZZZZ010334	1300	LINE=10
ZZZZ010334	1400	BEGIN
ZZZZ010334	1500	=SET{W0.1=1,W0.2=1,W0.3=1,W0.4=80,W0.5=1,W0.6=1,W0.7=1
ZZZZ010334	1600	=   ,W0.8=80}; *(DATA=で使うのでひとつ前のPROGRAMで設定)*
ZZZZ010334	1700	=SET{.GAMES_MAJYAN_DATE=!?_PP?_GAMES_MAJYAN_DATE};
ZZZZ010334	1705	=IF{.GAMES_MAJYAN_DATE=}SET{.GAMES_MAJYAN_DATE=_TODAY};
ZZZZ010334	1710	COLOR
ZZZZ010334	1720	=SET{GAMES_MAJYAN_TAKU@COLOR='G'};
ZZZZ010334	1800	SET=.?&.SET&GAMES_MAJYAN_DATE?
ZZZZ010334	1900	*****( 年月日 )*****
ZZZZ010334	2000	START
ZZZZ010334	2100	=IF{NOKORI_SUU=0}ERROR{試合は終了しています。};
ZZZZ010334	2200	DATA={KDG  }?&.DATA&GAMES_MAJYAN_DATE?
ZZZZ010334	2300	DATA={KDG  }?&.DATA&GAMES_MAJYAN_KUBUN?
ZZZZ010334	2400	DATA={KG   }?&.DATA&GAMES_MAJYAN_TAKU?
ZZZZ010334	2410	DATA={G    }X2.?&X2.DATA&GAMES_MAJYAN_KAIZYOU?
ZZZZ010334	2500	DATA={}GAME_SUU?&.DATA2&GAMES_MAJYAN_GAME?
ZZZZ010334	2600	TITLE=ゲーム数
ZZZZ010334	2700	SELECT=MAX(X1.GAMES_MAJYAN_GAME)
ZZZZ010334	2800	*DATA={,,}TAKU_SUU?&.DATA2&GAMES_MAJYAN_TAKU?
ZZZZ010334	2900	*TITLE=卓数
ZZZZ010334	3000	*SELECT=MAX(X1.GAMES_MAJYAN_TAKU)
ZZZZ010334	3100	DATA={,,80}NOKORI_SUU{3,,+,Z}
ZZZZ010334	3200	TITLE=残り試合数
ZZZZ010334	3300	SELECT=CAST(SUM(CASE GAMES_MAJYAN_1_SCORE
ZZZZ010334	3400	SELECT=+GAMES_MAJYAN_2_SCORE+GAMES_MAJYAN_3_SCORE
ZZZZ010334	3500	SELECT=+GAMES_MAJYAN_4_SCORE WHEN 0 THEN 1 ELSE 0 END)
ZZZZ010334	3600	*SELECT=/MAX(X1.GAMES_MAJYAN_TAKU)
ZZZZ010334	3700	SELECT= AS DECIMAL(3,0))
ZZZZ010334	3800	COPY=@ZZZZZZ_SQL
ZZZZ010334	3900	END
ZZZZ010334	4000	=EXIT{0};
ZZZZ010334	4100	PROGRAM=,&X1,?_MM?_GAMES_MAJYAN_1_TABLE
ZZZZ010334	4200	TABLE=&X2,?_MM?_GAMES_MAJYAN_TABLE
ZZZZ010334	4300	TABLE=&X3,?_MM?_GAMES_MAJYAN_OU_TABLE
ZZZZ010334	4400	TABLE=&X4,?_MM?_GAMES_MAJYAN_HF_TABLE
ZZZZ010334	4500	PLUS=%Z_CANCEL_WHERE
ZZZZ010334	4600	CONTROL=1,2,TITLE,BEGIN_ENTER_LEFT
ZZZZ010334	4700	LINE=1
ZZZZ010334	4800	BEGIN
ZZZZ010334	4900	=SET{WN.SPEAK=};
ZZZZ010334	5000	=SET{W0.X1=2,W0.X2=4,W0.X3 =8,W0.X4 =16
ZZZZ010334	5100	=   ,W0.X5=4,W0.X6=8,W0.X7=16,W0.X8=32};
ZZZZ010334	5200	=SET{W0.OYA_RON=1,W0.KO_RON=2
ZZZZ010334	5300	=,W0.OYA_TUMO4=3,W0.KO_TUMO_OYA4=4,W0.KO_TUMO_KO4=5
ZZZZ010334	5400	=,W0.OYA_TUMO3=6,W0.KO_TUMO_OYA3=7,W0.KO_TUMO_KO3=8};
ZZZZ010334	5500	*SET{W0.GAMES_MAJYAN_NINSUU=0,W0.GAMES_MAJYAN_TAKU=0};
ZZZZ010334	5600	*SET{W0.GAMES_MAJYAN_HONBASUU=};
ZZZZ010334	5700	=PROGRAM{0,?&X3.TABLE?,GAMES_MAJYAN_KAIZYOU
ZZZZ010334	5701	=,GAMES_MAJYAN_MOTITEN
ZZZZ010334	5800	=,GAMES_MAJYAN_HONBA_TEN,GAMES_MAJYAN_SUUFUURENDA
ZZZZ010334	5810	=,GAMES_MAJYAN_SUUFUURENDA_COM,GAMES_MAJYAN_UMA1
ZZZZ010334	5900	=,GAMES_MAJYAN_UMA2}{?&X3.KEY?}{};
ZZZZ010334	6000	=IF{_PROGRAM_COUNT<>1}ERROR{PROGRAM MIS (X3)};
ZZZZ010334	6100	COLOR
ZZZZ010334	6200	=SET{GAMES_MAJYAN_?GAMES_MAJYAN_OYA?_OYA_COM@COLOR='Y'};
ZZZZ010334	6300	=SET{GAMES_MAJYAN_RIICHISUU@COLOR='Y'};
ZZZZ010334	6400	=SET{GAMES_MAJYAN_HONBASUU@COLOR='Y'};
ZZZZ010334	6500	=SET{GAMES_MAJYAN_TAKU@COLOR='G'};
ZZZZ010334	6600	REPEAT=4
ZZZZ010334	6700	=SET{GAMES_MAJYAN_##_SCORE@COLOR='Y'};
ZZZZ010334	6800	=IF{GAMES_MAJYAN_##_RIICHI=5}SET{WC.C='W'}JUMP{COLOR_RIICHI};
ZZZZ010334	6900	=IF{GAMES_MAJYAN_##_RIICHI=8}SET{WC.C='E'}JUMP{COLOR_RIICHI};
ZZZZ010334	7000	=IF{GAMES_MAJYAN_##_RIICHI=9}SET{WC.C='R'}JUMP{COLOR_RIICHI};
ZZZZ010334	7100	=                            SET{WC.C='Y'};
ZZZZ010334	7200	=COLOR_RIICHI:
ZZZZ010334	7300	=SET{GAMES_MAJYAN_##_RIICHI@COLOR=WC.C
ZZZZ010334	7400	=   ,GAMES_MAJYAN_##_NAME@COLOR=  WC.C};
ZZZZ010334	7500	=IF{GAMES_MAJYAN_HOORA=##}  SET{WC.C='R'}JUMP{COLOR_HH};
ZZZZ010334	7600	=IF{GAMES_MAJYAN_HOUZYUU=##}SET{WC.C='P'}JUMP{COLOR_HH};
ZZZZ010334	7700	=                           SET{WC.C='L'};
ZZZZ010334	7800	=COLOR_HH:SET{GAMES_MAJYAN_##_HOORA_HOUZYUU@COLOR=WC.C};
ZZZZ010334	7900	REPEAT=
ZZZZ010334	8000	REPEAT0=72,50
ZZZZ010334	8100	=IF_NOT{_NAME$$%'_TEN'}JUMP{J};
ZZZZ010334	8200	=IF{?_NAME$$?=0}SET{WC.C='L'}JUMP{};SET{WC.C='B'};
ZZZZ010334	8300	=SET{?_NAME$$?@COLOR=WC.C};
ZZZZ010334	8400	=J:
ZZZZ010334	8500	REPEAT0=
ZZZZ010334	8600	=IF{GAMES_MAJYAN_YAKU=99}SET{WC.C='G'}JUMP{};SET{WC.C='L'};
ZZZZ010334	8700	=SET{GAMES_MAJYAN_FU@COLOR=WC.C};
ZZZZ010334	8800	=SET{GAMES_MAJYAN_HAN@COLOR=WC.C};
ZZZZ010334	8900	REPEAT=8
ZZZZ010334	9000	=SET{GAMES_MAJYAN_##_TEN@COLOR='L'};
ZZZZ010334	9100	REPEAT=
ZZZZ010334	9200	=IF{GAMES_MAJYAN_HOORA=0}JUMP{COLOR_SKIP_YAKU};
ZZZZ010334	9300	=IF{GAMES_MAJYAN_HOORA=GAMES_MAJYAN_OYA}JUMP{COLOR_OYA};
ZZZZ010334	9400	=IF{GAMES_MAJYAN_HOUZYUU=0}JUMP{COLOR_KO_TUMO};
ZZZZ010334	9500	=SET{GAMES_MAJYAN_?W0.KO_RON?_TEN@COLOR='P'};
ZZZZ010334	9600	=JUMP{COLOR_SKIP_YAKU};
ZZZZ010334	9700	=COLOR_KO_TUMO:
ZZZZ010334	9800	=IF{GAMES_MAJYAN_4_NAME='***'}
ZZZZ010334	9900	=  SET{GAMES_MAJYAN_?W0.KO_TUMO_KO3?_TEN@COLOR='P'
ZZZZ010334	10000	=     ,GAMES_MAJYAN_?W0.KO_TUMO_OYA3?_TEN@COLOR='P'}
ZZZZ010334	10100	=                                     JUMP{COLOR_SKIP_YAKU};
ZZZZ010334	10200	=  SET{GAMES_MAJYAN_?W0.KO_TUMO_KO4?_TEN@COLOR='P'
ZZZZ010334	10300	=     ,GAMES_MAJYAN_?W0.KO_TUMO_OYA4?_TEN@COLOR='P'}
ZZZZ010334	10400	=                                     JUMP{COLOR_SKIP_YAKU};
ZZZZ010334	10500	=COLOR_OYA:
ZZZZ010334	10600	=IF{GAMES_MAJYAN_HOUZYUU=0}JUMP{COLOR_OYA_TUMO};
ZZZZ010334	10700	=SET{GAMES_MAJYAN_?W0.OYA_RON?_TEN@COLOR='P'}
ZZZZ010334	10800	=JUMP{COLOR_SKIP_YAKU};
ZZZZ010334	10900	=COLOR_OYA_TUMO:
ZZZZ010334	11000	=IF{GAMES_MAJYAN_4_NAME='***'}
ZZZZ010334	11100	=  SET{GAMES_MAJYAN_?W0.OYA_TUMO3?_TEN@COLOR='P'}JUMP{};
ZZZZ010334	11200	=  SET{GAMES_MAJYAN_?W0.OYA_TUMO4?_TEN@COLOR='P'};
ZZZZ010334	11300	=COLOR_SKIP_YAKU:
ZZZZ010334	11400	=IF{GAMES_MAJYAN_SYUUKYOKU=9}SET{WC.C='R'}JUMP{J};
ZZZZ010334	11500	=IF{GAMES_MAJYAN_SYUUKYOKU=5}SET{WC.C='B'}JUMP{J};
ZZZZ010334	11600	=SET{WC.C='W'};
ZZZZ010334	11700	=J:SET{GAMES_MAJYAN_SYUUKYOKU@COLOR=WC.C
ZZZZ010334	11800	=      ,OPARATION@COLOR=WC.C};
ZZZZ010334	11900	=IF{GAMES_MAJYAN_YAKU_COM=}SET{WC.C='L'}JUMP{};SET{WC.C='G'};
ZZZZ010334	12000	=SET{GAMES_MAJYAN_YAKU_COM@COLOR=WC.C};
ZZZZ010334	12100	SET={N}DUMMY{1}
ZZZZ010334	12200	=IF{WN.SPEAK!=}SPEAK{?WN.SPEAK?};SET{WN.SPEAK=,SPEAK=};
ZZZZ010334	12300	SET={,*}OP{1}前回表示
ZZZZ010334	12400	CHECK2=,現試合検索,-,一つ前の試合検索,+,一つ先の試合検索
ZZZZ010334	12500	CHECK2=,,(←で更新処理),,([?_P(ENTER)?]で検索処理)
ZZZZ010334	12600	=IF{_DATA=}JUMP{NORMAL};
ZZZZ010334	12700	=IF{_DATA='-'}JUMP{MINUS};
ZZZZ010334	12800	=COMPUTE{GAMES_MAJYAN_SIAI+=1};
ZZZZ010334	12900	=PROGRAM{0,?&X1.TABLE?}{?&X1.KEY?}{};
ZZZZ010334	13000	=IF{_PROGRAM_COUNT=1}EXIT{};
ZZZZ010334	13100	=COMPUTE{GAMES_MAJYAN_GAME+=1};
ZZZZ010334	13200	=SET{GAMES_MAJYAN_SIAI=1};
ZZZZ010334	13300	=PROGRAM{0,?&X1.TABLE?}{?&X1.KEY?}{};
ZZZZ010334	13400	=IF{_PROGRAM_COUNT=1}EXIT{};
ZZZZ010334	13500	=ERROR{一つ先の試合は有りません。};
ZZZZ010334	13700	=MINUS:
ZZZZ010334	13800	=IF{GAMES_MAJYAN_GAME=1}JUMP{FIRST_GAME};
ZZZZ010334	13900	=IF{GAMES_MAJYAN_SIAI=1}JUMP{FIRST_SIAI};
ZZZZ010334	14000	=COMPUTE{GAMES_MAJYAN_SIAI-=1};
ZZZZ010334	14100	=EXIT{};
ZZZZ010334	14200	=FIRST_SIAI:
ZZZZ010334	14300	=COMPUTE{GAMES_MAJYAN_GAME-=1};
ZZZZ010334	14400	=SQL_SET{GAMES_MAJYAN_SIAI}{SELECT MAX(GAMES_MAJYAN_SIAI)
ZZZZ010334	14500	=FROM ?&X1.TABLE? WHERE ?_VRE&GAMES_MAJYAN_DATE?
ZZZZ010334	14600	=AND ?_VRE&GAMES_MAJYAN_KUBUN?
ZZZZ010334	14700	=AND ?_VRE&GAMES_MAJYAN_GAME?
ZZZZ010334	14800	=AND ?_VRE&GAMES_MAJYAN_TAKU? AND Z_CANCEL=' '};
ZZZZ010334	14900	=IF{_SQL_COUNT<>1}ERROR{PROGRAM MISS X1};
ZZZZ010334	15000	=EXIT{};
ZZZZ010334	15100	=FIRST_GAME:
ZZZZ010334	15200	=IF{GAMES_MAJYAN_SIAI=1}ERROR{一つ前の試合は有りません。};
ZZZZ010334	15300	=COMPUTE{GAMES_MAJYAN_SIAI-=1};
ZZZZ010334	15400	=EXIT{};
ZZZZ010334	15500	=NORMAL:
ZZZZ010334	15600	=SET{SPEAK=,W0.SPEAK=0,WN.SPEAK=};
ZZZZ010334	15700	*********( 更新テーブル無い場合はここで作成 )*****
ZZZZ010334	15800	=SQL_SET{W0.GAMES_MAJYAN_GAME,W0.GAMES_MAJYAN_GAME_MAX}{
ZZZZ010334	15900	=SELECT MIN(CASE WHEN GAMES_MAJYAN_1_SCORE
ZZZZ010334	16000	=    +GAMES_MAJYAN_2_SCORE
ZZZZ010334	16100	=    +GAMES_MAJYAN_3_SCORE+GAMES_MAJYAN_4_SCORE=0 THEN
ZZZZ010334	16200	=     GAMES_MAJYAN_GAME ELSE 1000 END),MAX(GAMES_MAJYAN_GAME)
ZZZZ010334	16300	=FROM ?&X2.TABLE? WHERE ?_VRE&GAMES_MAJYAN_DATE?
ZZZZ010334	16400	=AND ?_VRE&GAMES_MAJYAN_KUBUN?
ZZZZ010334	16500	=AND ?_VRE&GAMES_MAJYAN_TAKU? AND Z_CANCEL=' '};
ZZZZ010334	16600	=IF{W0.GAMES_MAJYAN_GAME=1000}EXE_I{ZZZZ010333}ERROR{
ZZZZ010334	16700	=全ての試合が終了しました、続行したい時は試合数を増やします。
ZZZZ010334	16800	=};
ZZZZ010334	16900	=SET{GAMES_MAJYAN_GAME=W0.GAMES_MAJYAN_GAME};
ZZZZ010334	17000	=SQL_SET{W0.GAMES_MAJYAN_SIAI_MAX,W0.GAMES_MAJYAN_SIAI}
ZZZZ010334	17100	={SELECT MAX(GAMES_MAJYAN_SIAI),MIN(CASE
ZZZZ010334	17200	=GAMES_MAJYAN_SYUUKYOKU WHEN 0 THEN GAMES_MAJYAN_SIAI
ZZZZ010334	17300	= ELSE 1000 END)
ZZZZ010334	17400	=FROM ?&X1.TABLE? WHERE ?_VRE&GAMES_MAJYAN_DATE?
ZZZZ010334	17500	=AND ?_VRE&GAMES_MAJYAN_KUBUN?
ZZZZ010334	17600	=AND ?_VRE&GAMES_MAJYAN_GAME?
ZZZZ010334	17700	=AND ?_VRE&GAMES_MAJYAN_TAKU? AND Z_CANCEL=' '};
ZZZZ010334	17800	=IF{W0.GAMES_MAJYAN_SIAI_MAX=0}JUMP{NASI};
ZZZZ010334	17900	=IF{W0.GAMES_MAJYAN_SIAI<1000}JUMP{SKIP};
ZZZZ010334	18000	=ERROR{レコー有り};
ZZZZ010334	18100	=NASI:
ZZZZ010334	18200	=SET{SPEAK='SPEAK'};
ZZZZ010334	18300	*REPEAT0=$TAKU_SUU
ZZZZ010334	18400	=PROGRAM{0,?&X2.TABLE?,WN.GAMES_MAJYAN_1_NAME=
ZZZZ010334	18500	=,WN.GAMES_MAJYAN_2_NAME=,WN.GAMES_MAJYAN_3_NAME=
ZZZZ010334	18600	=,WN.GAMES_MAJYAN_4_NAME=}
ZZZZ010334	18700	= {GAMES_MAJYAN_DATE,GAMES_MAJYAN_KUBUN,GAMES_MAJYAN_GAME
ZZZZ010334	18800	=  ,GAMES_MAJYAN_TAKU}{};
ZZZZ010334	18900	=IF{_PROGRAM_COUNT<>1}ERROR{PROGRAM MISS (X2)};
ZZZZ010334	19000	REPEAT=4
ZZZZ010334	19100	=IF{WN.GAMES_MAJYAN_##_NAME='***'}
ZZZZ010334	19200	=   SET{W0.GAMES_MAJYAN_##_SCORE=0}JUMP{};
ZZZZ010334	19300	=   SET{W0.GAMES_MAJYAN_##_SCORE=GAMES_MAJYAN_MOTITEN};
ZZZZ010334	19400	REPEAT=
ZZZZ010334	19500	=PROGRAM{2,?&X1.TABLE?,W0.GAMES_MAJYAN_OYA=1
ZZZZ010334	19600	= ,WN.GAMES_MAJYAN_1_OYA_COM='親'
ZZZZ010334	19700	REPEAT=4
ZZZZ010334	19800	= ,WN.GAMES_MAJYAN_##_NAME,W0.GAMES_MAJYAN_##_SCORE
ZZZZ010334	19900	REPEAT=
ZZZZ010334	20000	=}{GAMES_MAJYAN_DATE,GAMES_MAJYAN_KUBUN,GAMES_MAJYAN_GAME
ZZZZ010334	20100	= ,GAMES_MAJYAN_TAKU,W0.GAMES_MAJYAN_SIAI=1}{};
ZZZZ010334	20200	REPEAT0=
ZZZZ010334	20300	=SKIP:
ZZZZ010334	20400	=IF{_DATA='*'}IF{W0.GAMES_MAJYAN_SIAI>1}
ZZZZ010334	20500	= COMPUTE{GAMES_MAJYAN_SIAI=W0.GAMES_MAJYAN_SIAI-1}JUMP{};
ZZZZ010334	20600	=     SET{GAMES_MAJYAN_SIAI=W0.GAMES_MAJYAN_SIAI};
ZZZZ010334	20700	=EXIT{};
ZZZZ010334	20800	SET={,*,}SPEAK{5}読み上げ
ZZZZ010334	20900	CHECK=,SPEAK
ZZZZ010334	21000	SET={KO,,,Y}$?&.DATA&GAMES_MAJYAN_DATE?
ZZZZ010334	21100	SET={KO,,,Y}$?&.DATA&GAMES_MAJYAN_KUBUN?
ZZZZ010334	21110	SET={O,*,80,Y}?&X3.DATA&GAMES_MAJYAN_KAIZYOU?
ZZZZ010334	21300	SET={KO,,,Y}$?&.DATA&GAMES_MAJYAN_TAKU?
ZZZZ010334	21400	SET={KO,,,Y}?&.DATA&GAMES_MAJYAN_GAME?
ZZZZ010334	21600	SET={KO,,80,Y}?&.DATA&GAMES_MAJYAN_SIAI?
ZZZZ010334	21700	SET={O,*}?&X3.DATA&GAMES_MAJYAN_MOTITEN?
ZZZZ010334	21800	SET={O,*}?&X3.DATA&GAMES_MAJYAN_HONBA_TEN?
ZZZZ010334	21810	SET={O,*}?&X3.DATA&GAMES_MAJYAN_SUUFUURENDA?
ZZZZ010334	21820	SET={O,*,80}?&X3.DATA&GAMES_MAJYAN_SUUFUURENDA_COM?
ZZZZ010334	21830	TITLE=
ZZZZ010334	21900	SET={O,*}?&X3.DATA&GAMES_MAJYAN_UMA1?
ZZZZ010334	22000	SET={O,*}?&X3.DATA&GAMES_MAJYAN_UMA2?
ZZZZ010334	22100	*ORK=W0.?&X3.DATA&GAMES_MAJYAN_NINSUU?
ZZZZ010334	22200	START
ZZZZ010334	22300	=IF{_START!=0}JUMP{SKIP};
ZZZZ010334	22400	=SET{WN.OYA=GAMES_MAJYAN_?GAMES_MAJYAN_OYA?_NAME};
ZZZZ010334	22500	=SET{WN.SPEAK='卓番号が?GAMES_MAJYAN_TAKU?の試合番号が'
ZZZZ010334	22600	=  +'?GAMES_MAJYAN_SIAI?を良み上げます。'
ZZZZ010334	22700	=  +'おやは?WN.OYA? サンです。'};
ZZZZ010334	22800	REPEAT=4
ZZZZ010334	22900	=IF{GAMES_MAJYAN_##_RIICHI=9}SET{WN.SPEAK+=
ZZZZ010334	23000	=  'りーちの人は'+GAMES_MAJYAN_##_NAME+'サンです。'};
ZZZZ010334	23100	REPEAT=
ZZZZ010334	23200	=SET{WN.SPEAK+='本場は'+GAMES_MAJYAN_HONBASUU+'本です。'
ZZZZ010334	23300	=+'持ちこしリーチボーは'+GAMES_MAJYAN_RIICHISUU+'本です。'};
ZZZZ010334	23400	=SQL_SET{WN.SPEAK}{SELECT REPLACE('?WN.SPEAK?',0,'ZERO')
ZZZZ010334	23500	= ?_FROM_DUAL?};
ZZZZ010334	23600	REPEAT=
ZZZZ010334	23700	=SKIP:
ZZZZ010334	23800	=IF{GAMES_MAJYAN_4_NAME='***'}SET{W0.HITO=3}JUMP{};
ZZZZ010334	23900	=   SET{W0.HITO=4};
ZZZZ010334	24000	=COMPUTE{W0.MOTITEN_ALL=GAMES_MAJYAN_MOTITEN*W0.HITO};
ZZZZ010334	24100	=IF{W0.HITO!=4}
ZZZZ010334	24200	=   SET{WN.CH4=,WN.CH8=,WN.CH_HOORA4=}JUMP{};
ZZZZ010334	24300	=  SET{WN.CH4=',4,?GAMES_MAJYAN_4_NAME?(4)立直(ON赤)/(OFF黄)'
ZZZZ010334	24400	=   ,WN.CH_HOORA4=',4,?GAMES_MAJYAN_4_NAME?'};
ZZZZ010334	24500	DATA={*O}?&.DATA&GAMES_MAJYAN_OYA?
ZZZZ010334	24600	TITLE=     現親
ZZZZ010334	24700	*****( 親 )*****
ZZZZ010334	24800	DATA={O,,0}?&.DATA&GAMES_MAJYAN_OYA_NEW?
ZZZZ010334	24900	TITLE=新親
ZZZZ010334	25000	DATA={O,,2}?&.DATA&GAMES_MAJYAN_OYA_NEW_NAME?
ZZZZ010334	25100	TITLE=
ZZZZ010334	25200	DATA={O,,4}?&.DATA&GAMES_MAJYAN_HONBASUU_NEW?
ZZZZ010334	25300	TITLE=新
ZZZZ010334	25400	*****( 立直棒数 )*****
ZZZZ010334	25500	DATA={O,,80}?&.DATA&GAMES_MAJYAN_RIICHISUU_NEW?
ZZZZ010334	25600	TITLE=新
ZZZZ010334	25700	DATA={$,,}OPARATION{1,,+,Z}           操作
ZZZZ010334	25800	CHECK2=0,(終り)
ZZZZ010334	25900	REPEAT=3
ZZZZ010334	26000	CHECK2=,##,?GAMES_MAJYAN_##_NAME?(##)立直(ON赤)/(OFF黄)
ZZZZ010334	26100	REPEAT=
ZZZZ010334	26200	CHECK2=?WN.CH4?
ZZZZ010334	26300	CHECK2=,?GAMES_MAJYAN_SUUFUURENDA?
ZZZZ010334	26400	CHECK2=,?GAMES_MAJYAN_SUUFUURENDA_COM?
ZZZZ010334	26500	=SET{WN.CHECK_SYUUKYOKU='5,次局,9,終局,0,一時保管'}
ZZZZ010334	26600	=IF{_DATA=0}EXIT{};
ZZZZ010334	26700	=IF_NOT{_DATA=7,=8}JUMP{J};
ZZZZ010334	26800	*REPEAT=4
ZZZZ010334	26900	*=IF{GAMES_MAJYAN_##_RIICHI=9}ERROR{立直指定有り};
ZZZZ010334	27000	REPEAT=4
ZZZZ010334	27100	=IF{GAMES_MAJYAN_##_NAME!='***'}IF{GAMES_MAJYAN_##_RIICHI!=9}
ZZZZ010334	27200	=   SET{GAMES_MAJYAN_##_RIICHI=_DATA};
ZZZZ010334	27300	=SET{GAMES_MAJYAN_##_HOORA_HOUZYUU=};
ZZZZ010334	27400	REPEAT=
ZZZZ010334	27500	=SET{GAMES_MAJYAN_HOORA=0,GAMES_MAJYAN_HOUZYUU=0};
ZZZZ010334	27600	=SET{GAMES_MAJYAN_YAKU=};
ZZZZ010334	27700	=SET{GAMES_MAJYAN_YAKU_COM=_CHECK2};
ZZZZ010334	27800	=EXIT2{KEISAN};
ZZZZ010334	27900	=J:
ZZZZ010334	28000	=SET{WN.CHECK_SYUUKYOKU='0,一時保管'};
ZZZZ010334	28100	=SET{GAMES_MAJYAN_SYUUKYOKU=0}; *終局取り消し*
ZZZZ010334	28200	=IF{GAMES_MAJYAN_?_DATA?_RIICHI=9}
ZZZZ010334	28300	=   SET{GAMES_MAJYAN_?_DATA?_RIICHI=0}JUMP{};
ZZZZ010334	28400	=   SET{GAMES_MAJYAN_?_DATA?_RIICHI=9};
ZZZZ010334	28500	=EXIT{GAMES_MAJYAN_SYUUKYOKU};
ZZZZ010334	28600	*****( 上がり )*****
ZZZZ010334	28700	DATA={}?&.DATA&GAMES_MAJYAN_HOORA?
ZZZZ010334	28800	CHECK2=0,(流局)
ZZZZ010334	28900	REPEAT=3
ZZZZ010334	29000	CHECK2=,##,?GAMES_MAJYAN_##_NAME?
ZZZZ010334	29100	REPEAT=
ZZZZ010334	29200	CHECK2=?WN.CH_HOORA4?
ZZZZ010334	29300	REPEAT=4
ZZZZ010334	29400	=SET{GAMES_MAJYAN_##_HOORA_HOUZYUU=};
ZZZZ010334	29500	4-=IF{GAMES_MAJYAN_HOORA=##}          SET{WC.CK##=}JUMP{};
ZZZZ010334	29600	4+=IF{GAMES_MAJYAN_HOORA=4,W0.HITO!=4}SET{WC.CK##=}JUMP{};
ZZZZ010334	29700	=   SET{WC.CK##=',##,?GAMES_MAJYAN_##_NAME?'};
ZZZZ010334	29800	REPEAT=
ZZZZ010334	29900	=IF{_DATA!=0}SET{GAMES_MAJYAN_?_DATA?_HOORA_HOUZYUU='和了'
ZZZZ010334	30000	=  ,GAMES_MAJYAN_YAKU_COM=}EXIT{};
ZZZZ010334	30100	=SET{GAMES_MAJYAN_HOUZYUU=0};
ZZZZ010334	30200	=SET{GAMES_MAJYAN_YAKU=0};
ZZZZ010334	30300	=SET{GAMES_MAJYAN_YAKU_COM='(流局)'};
ZZZZ010334	30400	REPEAT=4,1
ZZZZ010334	30500	NAME=TENPAI_IF##
ZZZZ010334	30600	4+=IF{W0.HITO=4}
ZZZZ010334	30700	=  IF{GAMES_MAJYAN_##_RIICHI<>9}EXIT{GAMES_MAJYAN_##_RIICHI};
ZZZZ010334	30800	4+=EXIT2{KEISAN};
ZZZZ010334	30900	NAME=
ZZZZ010334	31000	REPEAT=
ZZZZ010334	31100	REPEAT=
ZZZZ010334	31200	DATA={,,13}?&.DATA&GAMES_MAJYAN_HOUZYUU?
ZZZZ010334	31300	CHECK2=0,(自摸)
ZZZZ010334	31400	REPEAT=4
ZZZZ010334	31500	CHECK2=?WC.CK##?
ZZZZ010334	31600	REPEAT=4
ZZZZ010334	31700	=IF_NOT{GAMES_MAJYAN_##_HOORA_HOUZYUU='和了',='ツモ',='ロン'}
ZZZZ010334	31800	=   SET{GAMES_MAJYAN_##_HOORA_HOUZYUU=};
ZZZZ010334	31900	*      ,GAMES_MAJYAN_##_HOORA_HOUZYUU@COLOR='L'};
ZZZZ010334	32000	REPEAT=
ZZZZ010334	32100	=IF{_DATA!=0}SET{GAMES_MAJYAN_?_DATA?_HOORA_HOUZYUU='放銃'};
ZZZZ010334	32200	*  ,GAMES_MAJYAN_?_DATA?_HOORA_HOUZYUU@COLOR='P'};
ZZZZ010334	32300	=IF{GAMES_MAJYAN_HOUZYUU=0}JUMP{HOORA_TUMO};
ZZZZ010334	32400	=SET{GAMES_MAJYAN_?GAMES_MAJYAN_HOORA?_HOORA_HOUZYUU='ロン'};
ZZZZ010334	32500	=JUMP{HOORA_END};
ZZZZ010334	32600	=HOORA_TUMO:
ZZZZ010334	32700	=SET{GAMES_MAJYAN_?GAMES_MAJYAN_HOORA?_HOORA_HOUZYUU='ツモ'};
ZZZZ010334	32800	=HOORA_END:
ZZZZ010334	32900	=EXIT{GAMES_MAJYAN_YAKU};
ZZZZ010334	33000	*****( 卓番号 )*****
ZZZZ010334	33100	*DATA={KO,,14}?&.DATA&GAMES_MAJYAN_TAKU?
ZZZZ010334	33200	*****( 試合番号 )*****
ZZZZ010334	33300	*****( 本場 )*****
ZZZZ010334	33400	DATA={*O,,2}?&.DATA&GAMES_MAJYAN_HONBASUU?
ZZZZ010334	33500	DATA={*O,,80}?&.DATA&GAMES_MAJYAN_RIICHISUU?
ZZZZ010334	33800	*****( [親] )*****
ZZZZ010334	39300	*****( 上がり )*****
ZZZZ010334	39400	REPEAT0=4
ZZZZ010334	39500	*****( 氏名(東) )*****
ZZZZ010334	39600	DATA={*O,,0}?&.DATA&GAMES_MAJYAN_$$_OYA_COM?
ZZZZ010334	39700	TITLE=$$
ZZZZ010334	39800	DATA={*O,,0}?&.DATA&GAMES_MAJYAN_$$_NAME?
ZZZZ010334	39900	TITLE=
ZZZZ010334	40000	DATA={O,,0}?&.DATA&GAMES_MAJYAN_$$_HOORA_HOUZYUU?
ZZZZ010334	40100	TITLE=
ZZZZ010334	40200	*****( 聴牌(東) )*****
ZZZZ010334	40300	DATA={,,0}?&.DATA&GAMES_MAJYAN_$$_RIICHI?
ZZZZ010334	40400	TITLE=
ZZZZ010334	40500	CHECK2=5,不聴,8,聴牌
ZZZZ010334	40600	*IF{_DATA=8}
ZZZZ010334	40700	$4-REPEAT=4,$+
ZZZZ010334	40800	$4-COPY=TENPAI_IF1
ZZZZ010334	40900	$4-REPEAT=
ZZZZ010334	41000	$4+=EXIT2{KEISAN};
ZZZZ010334	41100	DATA={*O,,0}?&.DATA&GAMES_MAJYAN_$$_SCORE?
ZZZZ010334	41200	TITLE=
ZZZZ010334	41300	DATA={O,,}?&.DATA&GAMES_MAJYAN_$$_SCORE_TEN?
ZZZZ010334	41400	TITLE=
ZZZZ010334	41500	DATA={O,,}?&.DATA&GAMES_MAJYAN_$$_SCORE_HONBA?
ZZZZ010334	41600	TITLE=本
ZZZZ010334	41700	DATA={O,,}?&.DATA&GAMES_MAJYAN_$$_SCORE_RIICHI?
ZZZZ010334	41800	TITLE=立
ZZZZ010334	41900	*****( 点数(東) )*****
ZZZZ010334	42000	DATA={O,,80}?&.DATA&GAMES_MAJYAN_$$_SCORE_NEW?
ZZZZ010334	42100	TITLE=新
ZZZZ010334	42200	REPEAT0=
ZZZZ010334	42300	*****( 役 )*****
ZZZZ010334	42400	DATA={,,0}?&.DATA&GAMES_MAJYAN_YAKU?
ZZZZ010334	42500	=SET{GAMES_MAJYAN_YAKU_COM=_CHECK2};
ZZZZ010334	42600	=SET{WC.CHECK='1,2,3'};
ZZZZ010334	42700	REPEAT=8
ZZZZ010334	42800	=SET{GAMES_MAJYAN_##_TEN=0};
ZZZZ010334	42900	REPEAT=
ZZZZ010334	43000	=IF{GAMES_MAJYAN_YAKU=99}
ZZZZ010334	43100	=   SET{GAMES_MAJYAN_HAN_TEN=20}EXIT{};
ZZZZ010334	43200	REPEAT=8
ZZZZ010334	43300	=SET{GAMES_MAJYAN_##_MINAN=0,GAMES_MAJYAN_##_MINAN_TEN=0};
ZZZZ010334	43400	REPEAT=
ZZZZ010334	43500	=SET{GAMES_MAJYAN_HAN_TEN=0};
ZZZZ010334	43600	=SET{GAMES_MAJYAN_MONZEN=0,GAMES_MAJYAN_MONZEN_TEN=0};
ZZZZ010334	43700	=SET{GAMES_MAJYAN_ATAMA=0,GAMES_MAJYAN_ATAMA_TEN=0};
ZZZZ010334	43800	=SET{GAMES_MAJYAN_TANNKI=0,GAMES_MAJYAN_TANNKI_TEN=0};
ZZZZ010334	43900	=IF{_DATA=7}SET{GAMES_MAJYAN_FU=25,WC.CHECK='2,3,4'}EXIT{};
ZZZZ010334	44000	=IF{_DATA>9}SET{GAMES_MAJYAN_FU=_DATA
ZZZZ010334	44100	=   ,GAMES_MAJYAN_HAN=0}EXIT2{KEISAN};
ZZZZ010334	44200	=IF{_DATA!=1}EXIT{};
ZZZZ010334	44300	=IF{GAMES_MAJYAN_HOUZYUU=0}
ZZZZ010334	44400	=  SET{GAMES_MAJYAN_FU=20,WC.CHECK='2,3,4'}JUMP{};
ZZZZ010334	44500	=  SET{GAMES_MAJYAN_FU=30};
ZZZZ010334	44600	*****( 役名 )*****
ZZZZ010334	44700	DATA={O}?&.DATA&GAMES_MAJYAN_YAKU_COM?
ZZZZ010334	44800	TITLE=
ZZZZ010334	44900	*****( 翻 )*****
ZZZZ010334	45000	DATA={,,0}?&.DATA&GAMES_MAJYAN_HAN?
ZZZZ010334	45100	CHECK=?WC.CHECK?
ZZZZ010334	45200	=IF{GAMES_MAJYAN_YAKU!=99}EXIT2{KEISAN};
ZZZZ010334	45300	*IF{GAMES_MAJYAN_HOUZYUU=0}
ZZZZ010334	45400	*   SET{GAMES_MAJYAN_MONZEN=0
ZZZZ010334	45500	*      ,GAMES_MAJYAN_MONZEN_TEN=2}EXIT{GAMES_MAJYAN_ATAMA};
ZZZZ010334	45600	DATA={O}?&.DATA&GAMES_MAJYAN_HAN_TEN?
ZZZZ010334	45700	TITLE=
ZZZZ010334	45800	*****( 門前 )*****
ZZZZ010334	45900	DATA={,,0}?&.DATA&GAMES_MAJYAN_MONZEN?
ZZZZ010334	46000	=IF{GAMES_MAJYAN_HOUZYUU=0}SET{?_NAME?_TEN=2}EXIT{};
ZZZZ010334	46100	=IF{_DATA=0}SET{?_NAME?_TEN=0};
ZZZZ010334	46200	=IF{_DATA=1}SET{?_NAME?_TEN=10};
ZZZZ010334	46300	*****( 役牌雀頭 )*****
ZZZZ010334	46400	DATA={O}?&.DATA&GAMES_MAJYAN_MONZEN_TEN?
ZZZZ010334	46500	TITLE=
ZZZZ010334	46600	DATA={,,0}?&.DATA&GAMES_MAJYAN_ATAMA?
ZZZZ010334	46700	=IF{_DATA=0}SET{?_NAME?_TEN=0};
ZZZZ010334	46800	=IF{_DATA=1}SET{?_NAME?_TEN=2};
ZZZZ010334	46900	DATA={O}?&.DATA&GAMES_MAJYAN_ATAMA_TEN?
ZZZZ010334	47000	TITLE=
ZZZZ010334	47100	*****( 単騎/間辺張 )*****
ZZZZ010334	47200	DATA={,,0}?&.DATA&GAMES_MAJYAN_TANNKI?
ZZZZ010334	47300	=IF{_DATA=0}SET{?_NAME?_TEN=0};
ZZZZ010334	47400	=IF{_DATA=1}SET{?_NAME?_TEN=2};
ZZZZ010334	47500	=IF{GAMES_MAJYAN_MONZEN!=1,GAMES_MAJYAN_HOUZYUU!=0}EXIT{};
ZZZZ010334	47600	REPEAT=4
ZZZZ010334	47700	=SET{GAMES_MAJYAN_##_MINAN=0,GAMES_MAJYAN_##_MINAN_TEN=0};
ZZZZ010334	47800	REPEAT=
ZZZZ010334	47900	=EXIT{GAMES_MAJYAN_5_MINAN};
ZZZZ010334	48000	DATA={O}?&.DATA&GAMES_MAJYAN_TANNKI_TEN?
ZZZZ010334	48100	TITLE=
ZZZZ010334	48200	*****( 明刻28 )*****
ZZZZ010334	48300	REPEAT0=8
ZZZZ010334	48400	DATA={,,0}?&.DATA&GAMES_MAJYAN_$$_MINAN?
ZZZZ010334	48500	=SET{W0.MA=0};
ZZZZ010334	48600	REPEAT=8
ZZZZ010334	48700	=COMPUTE{W0.MA+=GAMES_MAJYAN_##_MINAN};
ZZZZ010334	48800	=IF{$$=##}JUMP{MA_J};
ZZZZ010334	48900	REPEAT=
ZZZZ010334	49000	=MA_J:
ZZZZ010334	49100	=IF{W0.MA>4}ERROR{4 OVER};
ZZZZ010334	49200	=IF{GAMES_MAJYAN_$$_MINAN=0}SET{GAMES_MAJYAN_$$_MINAN_TEN=0};
ZZZZ010334	49300	=IF{GAMES_MAJYAN_$$_MINAN>0}COMPUTE{
ZZZZ010334	49400	=   GAMES_MAJYAN_$$_MINAN_TEN=GAMES_MAJYAN_$$_MINAN*W0.X$$};
ZZZZ010334	49500	$8+=EXIT2{KEISAN};
ZZZZ010334	49600	DATA={O,,?W0.$$?}?&.DATA&GAMES_MAJYAN_$$_MINAN_TEN?
ZZZZ010334	49700	TITLE=
ZZZZ010334	49800	REPEAT0=
ZZZZ010334	49900	REPEAT0=8
ZZZZ010334	50000	$2-DATA={O}?&.DATA&GAMES_MAJYAN_$$_TEN?
ZZZZ010334	50100	$5+DATA={O}?&.DATA&GAMES_MAJYAN_FU?
ZZZZ010334	50200	$5+DATA={O}?&.DATA&GAMES_MAJYAN_2_TEN?
ZZZZ010334	50300	REPEAT0=
ZZZZ010334	50400	*****( 計算 )*****
ZZZZ010334	50500	DATA={$}KEISAN{1}計算
ZZZZ010334	50600	=IF{GAMES_MAJYAN_HOORA=0}
ZZZZ010334	50700	REPEAT=83,49
ZZZZ010334	50800	=   SET{?_NAME##?=}
ZZZZ010334	50900	REPEAT=
ZZZZ010334	51000	=   ;
ZZZZ010334	51100	=IF{GAMES_MAJYAN_YAKU!=99}JUMP{J};
ZZZZ010334	51200	***( 符の計算 )***
ZZZZ010334	51300	=COMPUTE{GAMES_MAJYAN_FU
ZZZZ010334	51400	=   =GAMES_MAJYAN_HAN_TEN    +GAMES_MAJYAN_MONZEN_TEN
ZZZZ010334	51500	= ,+=GAMES_MAJYAN_ATAMA_TEN,+=GAMES_MAJYAN_TANNKI_TEN
ZZZZ010334	51600	REPEAT=8
ZZZZ010334	51700	= ,+=GAMES_MAJYAN_##_MINAN_TEN
ZZZZ010334	51800	REPEAT=
ZZZZ010334	51900	=};
ZZZZ010334	52000	*****( 符を10で切り上げ )******************
ZZZZ010334	52100	REPEAT=11
ZZZZ010334	52200	=IF{GAMES_MAJYAN_FU<=##0}SET{GAMES_MAJYAN_FU=##0}JUMP{J};
ZZZZ010334	52300	REPEAT=
ZZZZ010334	52400	=J:
ZZZZ010334	52500	***( 各種NEWの設定 )***
ZZZZ010334	52600	=SET{GAMES_MAJYAN_HONBASUU_NEW=GAMES_MAJYAN_HONBASUU};
ZZZZ010334	52700	=SET{GAMES_MAJYAN_RIICHISUU_NEW=GAMES_MAJYAN_RIICHISUU};
ZZZZ010334	52800	=IF{GAMES_MAJYAN_HOORA=GAMES_MAJYAN_OYA,=0}
ZZZZ010334	52900	=  COMPUTE{GAMES_MAJYAN_HONBASUU_NEW+=1}JUMP{};
ZZZZ010334	53000	=      SET{GAMES_MAJYAN_HONBASUU_NEW=0};
ZZZZ010334	53100	=IF{GAMES_MAJYAN_HOORA=GAMES_MAJYAN_OYA}JUMP{SAME};
ZZZZ010334	53200	=IF{GAMES_MAJYAN_HOORA=0}
ZZZZ010334	53300	=  IF{GAMES_MAJYAN_?GAMES_MAJYAN_OYA?_RIICHI=8,=9}JUMP{SAME};
ZZZZ010334	53400	=IF{GAMES_MAJYAN_OYA=W0.HITO}
ZZZZ010334	53500	=  SET{GAMES_MAJYAN_OYA_NEW=1}JUMP{SKIP};
ZZZZ010334	53600	=COMPUTE{GAMES_MAJYAN_OYA_NEW=GAMES_MAJYAN_OYA+1};
ZZZZ010334	53700	=JUMP{SKIP};
ZZZZ010334	53800	=SAME:SET{GAMES_MAJYAN_OYA_NEW=GAMES_MAJYAN_OYA};
ZZZZ010334	53900	=SKIP:
ZZZZ010334	54000	=SET{GAMES_MAJYAN_OYA_NEW_NAME=
ZZZZ010334	54100	=            GAMES_MAJYAN_?GAMES_MAJYAN_OYA_NEW?_NAME};
ZZZZ010334	54200	REPEAT=4
ZZZZ010334	54300	=SET{GAMES_MAJYAN_##_SCORE_TEN=0
ZZZZ010334	54400	=   ,GAMES_MAJYAN_##_SCORE_HONBA=0
ZZZZ010334	54500	=   ,GAMES_MAJYAN_##_SCORE_RIICHI=0};
ZZZZ010334	54600	=SET{GAMES_MAJYAN_##_SCORE_NEW=GAMES_MAJYAN_##_SCORE};
ZZZZ010334	54700	=IF{GAMES_MAJYAN_##_RIICHI=9}
ZZZZ010334	54800	=   COMPUTE{GAMES_MAJYAN_RIICHISUU_NEW+=1,
ZZZZ010334	54900	=           GAMES_MAJYAN_##_SCORE_NEW-=1000
ZZZZ010334	55000	=       ,GAMES_MAJYAN_##_SCORE_RIICHI-=1000};
ZZZZ010334	55100	REPEAT=
ZZZZ010334	55200	=IF{GAMES_MAJYAN_HOORA!=0}JUMP{KEISAN};
ZZZZ010334	55300	*****( 流局 処理 )****************
ZZZZ010334	55400	=SET{W0.TENPAI=0,W0.TENBOUP=1000,W0.TENBOUM=1000};
ZZZZ010334	55500	REPEAT=4
ZZZZ010334	55600	=IF{GAMES_MAJYAN_##_RIICHI=9,=8}COMPUTE{W0.TENPAI+=1};
ZZZZ010334	55700	REPEAT=
ZZZZ010334	55800	=IF{W0.HITO=4}JUMP{SHORI4};
ZZZZ010334	55900	=IF{W0.TENPAI=0,=3}JUMP{END};
ZZZZ010334	56000	=IF{W0.TENPAI=1}SET{W0.TENBOUP=2000};
ZZZZ010334	56100	=IF{W0.TENPAI=2}SET{W0.TENBOUM=2000};
ZZZZ010334	56200	=JUMP{TENPAI};
ZZZZ010334	56300	=SHORI4:
ZZZZ010334	56400	=IF{W0.TENPAI=0,=4}JUMP{END};
ZZZZ010334	56500	=IF{W0.TENPAI=1}SET{W0.TENBOUP=3000};
ZZZZ010334	56600	=IF{W0.TENPAI=2}SET{W0.TENBOUP=1500,W0.TENBOUM=1500};
ZZZZ010334	56700	=IF{W0.TENPAI=3}SET{W0.TENBOUM=3000};
ZZZZ010334	56800	=TENPAI:
ZZZZ010334	56810	=IF{OPARATION=7,=8}JUMP{END};
ZZZZ010334	56900	REPEAT=4
ZZZZ010334	57000	=IF{GAMES_MAJYAN_##_RIICHI=9,=8}
ZZZZ010334	57100	=   COMPUTE{GAMES_MAJYAN_##_SCORE_NEW+=W0.TENBOUP
ZZZZ010334	57200	=          ,GAMES_MAJYAN_##_SCORE_TEN+=W0.TENBOUP};
ZZZZ010334	57300	=IF{GAMES_MAJYAN_##_RIICHI=5}
ZZZZ010334	57400	=   COMPUTE{GAMES_MAJYAN_##_SCORE_NEW-=W0.TENBOUM
ZZZZ010334	57500	=          ,GAMES_MAJYAN_##_SCORE_TEN-=W0.TENBOUM};
ZZZZ010334	57600	REPEAT=
ZZZZ010334	57700	=JUMP{END};
ZZZZ010334	57800	=KEISAN:
ZZZZ010334	57900	=IF{GAMES_MAJYAN_YAKU=99}IF{GAMES_MAJYAN_HAN=1}
ZZZZ010334	58000	=   IF{GAMES_MAJYAN_FU=20}ERROR{符が不足です。};
ZZZZ010334	58100	=PROGRAM{0,?&X4.TABLE?,?&X4.DATA?}{?&X4.KEY?}{};
ZZZZ010334	58200	=IF{_PROGRAM_COUNT!=1}ERROR{PROGRAM MISS (X4)};
ZZZZ010334	58300	=IF{W0.HITO=4}SET{W0.HONBA=100}JUMP{};
ZZZZ010334	58400	=             SET{W0.HONBA=GAMES_MAJYAN_HONBA_TEN};
ZZZZ010334	58500	=COMPUTE{W0.HONBASUU=GAMES_MAJYAN_HONBASUU*W0.HONBA};
ZZZZ010334	58600	=COMPUTE{W0.RIICHI=GAMES_MAJYAN_RIICHISUU_NEW*1000};
ZZZZ010334	58700	***( リーチ棒　計算 )*******************
ZZZZ010334	58800	=IF{GAMES_MAJYAN_RIICHISUU_NEW>0}COMPUTE{
ZZZZ010334	58900	=  GAMES_MAJYAN_?GAMES_MAJYAN_HOORA?_SCORE_NEW+=W0.RIICHI
ZZZZ010334	59000	= ,GAMES_MAJYAN_?GAMES_MAJYAN_HOORA?_SCORE_RIICHI+=W0.RIICHI}
ZZZZ010334	59100	=  SET{GAMES_MAJYAN_RIICHISUU_NEW=0};
ZZZZ010334	59200	***( 点棒　計算 )*******************
ZZZZ010334	59300	=IF{GAMES_MAJYAN_HOUZYUU=0}JUMP{TUMO};
ZZZZ010334	59400	***( ロン )***
ZZZZ010334	59500	=IF{W0.HITO=4}COMPUTE{W0.HONBASUU*=3}JUMP{};
ZZZZ010334	59600	=             COMPUTE{W0.HONBASUU*=2};
ZZZZ010334	59700	=IF{GAMES_MAJYAN_HOORA=GAMES_MAJYAN_OYA}
ZZZZ010334	59800	=                           SET{W0.RON=W0.OYA_RON}JUMP{};
ZZZZ010334	59900	=                           SET{W0.RON=W0.KO_RON};
ZZZZ010334	60000	=COMPUTE{GAMES_MAJYAN_?GAMES_MAJYAN_HOUZYUU?_SCORE_NEW-=
ZZZZ010334	60100	=  GAMES_MAJYAN_?W0.RON?_TEN,                   -=W0.HONBASUU
ZZZZ010334	60200	= ,GAMES_MAJYAN_?GAMES_MAJYAN_HOUZYUU?_SCORE_TEN-=
ZZZZ010334	60300	=  GAMES_MAJYAN_?W0.RON?_TEN,
ZZZZ010334	60400	=GAMES_MAJYAN_?GAMES_MAJYAN_HOUZYUU?_SCORE_HONBA-=W0.HONBASUU
ZZZZ010334	60500	= ,GAMES_MAJYAN_?GAMES_MAJYAN_HOORA?_SCORE_NEW+=
ZZZZ010334	60600	=  GAMES_MAJYAN_?W0.RON?_TEN,                 +=W0.HONBASUU
ZZZZ010334	60700	= ,GAMES_MAJYAN_?GAMES_MAJYAN_HOORA?_SCORE_TEN+=
ZZZZ010334	60800	=  GAMES_MAJYAN_?W0.RON?_TEN,
ZZZZ010334	60900	=GAMES_MAJYAN_?GAMES_MAJYAN_HOORA?_SCORE_HONBA+=W0.HONBASUU};
ZZZZ010334	61000	=JUMP{SKIP_ALL};
ZZZZ010334	61100	***( ツモ )***
ZZZZ010334	61200	=TUMO:
ZZZZ010334	61300	REPEAT=4
ZZZZ010334	61400	4+=IF{W0.HITO!=4}JUMP{SKIP};
ZZZZ010334	61500	=IF{GAMES_MAJYAN_HOORA=##}JUMP{SKIP};
ZZZZ010334	61600	=IF{GAMES_MAJYAN_HOORA=GAMES_MAJYAN_OYA}
ZZZZ010334	61700	=              SET{W0.TUMO=W0.OYA_TUMO?W0.HITO?}JUMP{J};
ZZZZ010334	61800	=IF{GAMES_MAJYAN_OYA=##}
ZZZZ010334	61900	=              SET{W0.TUMO=W0.KO_TUMO_OYA?W0.HITO?}JUMP{};
ZZZZ010334	62000	=              SET{W0.TUMO=W0.KO_TUMO_KO?W0.HITO?};
ZZZZ010334	62100	=J:
ZZZZ010334	62200	=COMPUTE{
ZZZZ010334	62300	=  GAMES_MAJYAN_##_SCORE_NEW-=GAMES_MAJYAN_?W0.TUMO?_TEN
ZZZZ010334	62400	= ,GAMES_MAJYAN_##_SCORE_TEN-=GAMES_MAJYAN_?W0.TUMO?_TEN
ZZZZ010334	62500	= ,GAMES_MAJYAN_?GAMES_MAJYAN_HOORA?_SCORE_NEW
ZZZZ010334	62600	=                           +=GAMES_MAJYAN_?W0.TUMO?_TEN
ZZZZ010334	62700	= ,GAMES_MAJYAN_?GAMES_MAJYAN_HOORA?_SCORE_TEN
ZZZZ010334	62800	=                           +=GAMES_MAJYAN_?W0.TUMO?_TEN};
ZZZZ010334	62900	=COMPUTE{GAMES_MAJYAN_##_SCORE_NEW            -=W0.HONBASUU
ZZZZ010334	63000	=       ,GAMES_MAJYAN_##_SCORE_HONBA          -=W0.HONBASUU,
ZZZZ010334	63100	=GAMES_MAJYAN_?GAMES_MAJYAN_HOORA?_SCORE_NEW  +=W0.HONBASUU,
ZZZZ010334	63200	=GAMES_MAJYAN_?GAMES_MAJYAN_HOORA?_SCORE_HONBA+=W0.HONBASUU};
ZZZZ010334	63300	=SKIP:
ZZZZ010334	63400	REPEAT=
ZZZZ010334	63500	=SKIP_ALL:
ZZZZ010334	63600	=END:
ZZZZ010334	63700	=COMPUTE{W0.SCORE_NEW=GAMES_MAJYAN_RIICHISUU_NEW*1000
ZZZZ010334	63800	=,+=GAMES_MAJYAN_1_SCORE_NEW,+=GAMES_MAJYAN_2_SCORE_NEW
ZZZZ010334	63900	=,+=GAMES_MAJYAN_3_SCORE_NEW};
ZZZZ010334	64000	=IF{W0.HITO=4}
ZZZZ010334	64100	=  COMPUTE{W0.SCORE_NEW+=GAMES_MAJYAN_4_SCORE_NEW};
ZZZZ010334	64200	=IF{W0.SCORE_NEW<>W0.MOTITEN_ALL}ERROR{PROGRAM MISS SCORE};
ZZZZ010334	64300	DATA={}?&.DATA&GAMES_MAJYAN_SYUUKYOKU?
ZZZZ010334	64400	CHECK2=?WN.CHECK_SYUUKYOKU?
ZZZZ010334	64500	*IF{_DATA=0}SET{_DATA@COLOR='W',OPARATION@COLOR='W'};
ZZZZ010334	64600	=IF{_DATA=0}EXIT{};
ZZZZ010334	64700	*****( 継続,終局　判定 )****************
ZZZZ010334	64800	*IF{_DATA=5}SET{W0.GAMES_MAJYAN_SYUUKYOKU=9}JUMP{};
ZZZZ010334	64900	*           SET{W0.GAMES_MAJYAN_SYUUKYOKU=5};
ZZZZ010334	65000	*PROGRAM{0,?&X1.TABLE?}{GAMES_MAJYAN_DATE,GAMES_MAJYAN_KUBUN
ZZZZ010334	65100	*,GAMES_MAJYAN_GAME,GAMES_MAJYAN_SIAI}
ZZZZ010334	65200	* {?_VRE&W0.GAMES_MAJYAN_SYUUKYOKU?
ZZZZ010334	65300	*  AND ?_VRLG&GAMES_MAJYAN_TAKU?};
ZZZZ010334	65400	*IF{_PROGRAM_COUNT!=0}ERROR{終局不一致のデータが有ります};
ZZZZ010334	65500	COPY=@ZZZZZZ_SQL
ZZZZ010334	65600	=SKIP:
ZZZZ010334	65700	=IF{GAMES_MAJYAN_OYA_NEW!=0}
ZZZZ010334	65800	=   SET{GAMES_MAJYAN_OYA_NEW_NAME=
ZZZZ010334	65900	=               GAMES_MAJYAN_?GAMES_MAJYAN_OYA_NEW?_NAME};
ZZZZ010334	66000	=IF{GAMES_MAJYAN_HOUZYUU!=0}SET{
ZZZZ010334	66100	= GAMES_MAJYAN_?GAMES_MAJYAN_HOUZYUU?_HOORA_HOUZYUU='放銃'};
ZZZZ010334	66200	=IF{GAMES_MAJYAN_YAKU_COM=}JUMP{SKIP};
ZZZZ010334	66300	=SKIP:IF{SPEAK=}JUMP{SKIP};
ZZZZ010334	66400	=COMPUTE{W0.SPEAK+=1};
ZZZZ010334	66500	=SET{WN.SPEAK+=
ZZZZ010334	66600	=  '卓番号?GAMES_MAJYAN_TAKU?の名前を読みます。'};
ZZZZ010334	66700	=SET{WN.SPEAK+='トンは?GAMES_MAJYAN_1_NAME?サンです。'};
ZZZZ010334	66800	=SET{WN.SPEAK+='ナンは?GAMES_MAJYAN_2_NAME?サンです。'};
ZZZZ010334	66900	=SET{WN.SPEAK+='シャーは?GAMES_MAJYAN_3_NAME?サンです。'};
ZZZZ010334	67000	=IF{GAMES_MAJYAN_4_NAME!='***'}
ZZZZ010334	67100	=   SET{WN.SPEAK+='ペーは?GAMES_MAJYAN_4_NAME?サンです。'};
ZZZZ010334	67200	*IF{W0.SPEAK=TAKU_SUU,=3}SET{SPEAK=};
ZZZZ010334	67300	=SET{SPEAK=};
ZZZZ010334	67400	=SKIP:
ZZZZ010334	67500	STOP_AFTER
ZZZZ010334	67600	=IF{GAMES_MAJYAN_SYUUKYOKU@OLD!=9}JUMP{J};
ZZZZ010334	67700	=IF{GAMES_MAJYAN_SYUUKYOKU=9}JUMP{J};
ZZZZ010334	67800	*****( OLD 9 の再処理は　計算結果　クリアー　)*****
ZZZZ010334	67900	=PROGRAM{3,?&X2.TABLE?
ZZZZ010334	68000	=,W0.GAMES_MAJYAN_1_SCORE=0,W0.GAMES_MAJYAN_1_SCORE_ORG=0
ZZZZ010334	68100	=,W0.GAMES_MAJYAN_2_SCORE=0,W0.GAMES_MAJYAN_2_SCORE_ORG=0
ZZZZ010334	68200	=,W0.GAMES_MAJYAN_3_SCORE=0,W0.GAMES_MAJYAN_3_SCORE_ORG=0
ZZZZ010334	68300	=,W0.GAMES_MAJYAN_4_SCORE=0,W0.GAMES_MAJYAN_4_SCORE_ORG=0
ZZZZ010334	68400	=}{?&X2.KEY?}{};
ZZZZ010334	68500	=J:
ZZZZ010334	68600	=IF{GAMES_MAJYAN_SYUUKYOKU=0}EXIT{};
ZZZZ010334	68700	*****( 次の試合作成 )***
ZZZZ010334	68800	REPEAT=4
ZZZZ010334	68900	=SET{W0.GAMES_MAJYAN_##_SCORE=GAMES_MAJYAN_##_SCORE_NEW};
ZZZZ010334	69000	=SET{WN.GAMES_MAJYAN_##_OYA_COM=};
ZZZZ010334	69100	REPEAT=
ZZZZ010334	69200	=SET{WN.GAMES_MAJYAN_?GAMES_MAJYAN_OYA_NEW?_OYA_COM='親'};
ZZZZ010334	69300	=IF{GAMES_MAJYAN_SYUUKYOKU=9}JUMP{SYUUKYOKU_9};
ZZZZ010334	69400	=COMPUTE{GAMES_MAJYAN_SIAI+=1}; *次の試合番号にする*
ZZZZ010334	69500	=PROGRAM{2E,?_TABLE?,W0.GAMES_MAJYAN_SYUUKYOKU=0
ZZZZ010334	69600	=,W0.GAMES_MAJYAN_OYA=GAMES_MAJYAN_OYA_NEW
ZZZZ010334	69700	=,W0.GAMES_MAJYAN_HONBASUU=GAMES_MAJYAN_HONBASUU_NEW
ZZZZ010334	69800	=,W0.GAMES_MAJYAN_RIICHISUU=GAMES_MAJYAN_RIICHISUU_NEW
ZZZZ010334	69900	REPEAT=4
ZZZZ010334	70000	=,GAMES_MAJYAN_##_NAME,W0.GAMES_MAJYAN_##_SCORE
ZZZZ010334	70100	=,WN.GAMES_MAJYAN_##_OYA_COM
ZZZZ010334	70200	REPEAT=
ZZZZ010334	70300	=}{?&.KEY?}{};
ZZZZ010334	70400	=COMPUTE{GAMES_MAJYAN_SIAI-=1}; *試合番号を戻す*
ZZZZ010334	70500	=JUMP{OWARI_CHECK};
ZZZZ010334	70600	=SYUUKYOKU_9:
ZZZZ010334	70700	=*****( 順位計算　(同点の場合最初の席順になります))*****
ZZZZ010334	70800	=SET{W0.T1=0,W0.T2=0,W0.T3=0,W0.T4=0};
ZZZZ010334	70900	=SET{W0.S1=0,W0.S2=0,W0.S3=0,W0.S4=0};
ZZZZ010334	71000	=IF{W0.GAMES_MAJYAN_1_SCORE<W0.GAMES_MAJYAN_2_SCORE}
ZZZZ010334	71100	=   SET{W0.S1=W0.GAMES_MAJYAN_2_SCORE,W0.T1=2
ZZZZ010334	71200	=      ,W0.S2=W0.GAMES_MAJYAN_1_SCORE,W0.T2=1}JUMP{J3};
ZZZZ010334	71300	=   SET{W0.S1=W0.GAMES_MAJYAN_1_SCORE,W0.T1=1
ZZZZ010334	71400	=      ,W0.S2=W0.GAMES_MAJYAN_2_SCORE,W0.T2=2};
ZZZZ010334	71500	=J3:IF{W0.S1<W0.GAMES_MAJYAN_3_SCORE}
ZZZZ010334	71600	=   SET{W0.S3=W0.S2,W0.T3=W0.T2,W0.S2=W0.S1,W0.T2=W0.T1
ZZZZ010334	71700	=      ,W0.S1=W0.GAMES_MAJYAN_3_SCORE,W0.T1=3}JUMP{J4};
ZZZZ010334	71800	=IF{W0.S2<W0.GAMES_MAJYAN_3_SCORE}
ZZZZ010334	71900	=   SET{W0.S3=W0.S2,W0.T3=W0.T2
ZZZZ010334	72000	=      ,W0.S2=W0.GAMES_MAJYAN_3_SCORE,W0.T2=3}JUMP{J4};
ZZZZ010334	72100	=   SET{W0.S3=W0.GAMES_MAJYAN_3_SCORE,W0.T3=3};
ZZZZ010334	72200	=J4:IF{W0.HITO!=4}JUMP{OK};
ZZZZ010334	72300	=IF{W0.S1<W0.GAMES_MAJYAN_4_SCORE}
ZZZZ010334	72400	=  SET{W0.T4=W0.T3,W0.T3=W0.T2,W0.T2=W0.T1,W0.T1=4}JUMP{OK};
ZZZZ010334	72500	=IF{W0.S2<W0.GAMES_MAJYAN_4_SCORE}
ZZZZ010334	72600	=  SET{W0.T4=W0.T3,W0.T3=W0.T2,W0.T2=4}JUMP{OK};
ZZZZ010334	72700	=IF{W0.S3<W0.GAMES_MAJYAN_4_SCORE}
ZZZZ010334	72800	=   SET{W0.T4=W0.T3,W0.T3=4}JUMP{OK};
ZZZZ010334	72900	=SET{W0.T4=4};
ZZZZ010334	73000	=OK:
ZZZZ010334	73100	=COMPUTE{W0.OKA=30000*W0.HITO,-=W0.MOTITEN_ALL};
ZZZZ010334	73200	=COMPUTE{W0.GAMES_MAJYAN_?W0.T1?_SCORE+=W0.OKA};
ZZZZ010334	73300	=COMPUTE{
ZZZZ010334	73400	=       W0.GAMES_MAJYAN_?W0.T1?_SCORE+=GAMES_MAJYAN_UMA2};
ZZZZ010334	73500	=IF{W0.HITO=4}
ZZZZ010334	73600	= COMPUTE{W0.GAMES_MAJYAN_?W0.T2?_SCORE+=GAMES_MAJYAN_UMA1
ZZZZ010334	73700	=        ,W0.GAMES_MAJYAN_?W0.T3?_SCORE-=GAMES_MAJYAN_UMA1
ZZZZ010334	73800	=       ,W0.GAMES_MAJYAN_?W0.T4?_SCORE-=GAMES_MAJYAN_UMA2}
ZZZZ010334	73900	=   JUMP{};
ZZZZ010334	74000	=COMPUTE{
ZZZZ010334	74100	=   W0.GAMES_MAJYAN_?W0.T3?_SCORE-=GAMES_MAJYAN_UMA2};
ZZZZ010334	74200	****( リーチ棒はトップの人に加算 )**************
ZZZZ010334	74300	=IF{GAMES_MAJYAN_RIICHISUU_NEW!=0}
ZZZZ010334	74400	=  COMPUTE{W0.SCORE=GAMES_MAJYAN_RIICHISUU_NEW*1000
ZZZZ010334	74500	=  ,W0.GAMES_MAJYAN_?W0.T1?_SCORE+=W0.SCORE};
ZZZZ010334	74600	=COMPUTE{W0.SCORE=W0.GAMES_MAJYAN_1_SCORE+
ZZZZ010334	74700	=   W0.GAMES_MAJYAN_2_SCORE,+=W0.GAMES_MAJYAN_3_SCORE}
ZZZZ010334	74800	=IF{W0.HITO=4}
ZZZZ010334	74900	=   COMPUTE{W0.SCORE+=W0.GAMES_MAJYAN_4_SCORE};
ZZZZ010334	75000	=COMPUTE{W0.SCORE_ALL=30000*W0.HITO};
ZZZZ010334	75100	=IF{W0.SCORE!=W0.SCORE_ALL}ERROR{合計不一致(?W0.SCORE?)};
ZZZZ010334	75200	=PROGRAM{3,?&X2.TABLE?,W0.GAMES_MAJYAN_1_SCORE
ZZZZ010334	75300	=,W0.GAMES_MAJYAN_1_SCORE_ORG=GAMES_MAJYAN_1_SCORE_NEW
ZZZZ010334	75400	=,W0.GAMES_MAJYAN_2_SCORE
ZZZZ010334	75500	=,W0.GAMES_MAJYAN_2_SCORE_ORG=GAMES_MAJYAN_2_SCORE_NEW
ZZZZ010334	75600	=,W0.GAMES_MAJYAN_3_SCORE
ZZZZ010334	75700	=,W0.GAMES_MAJYAN_3_SCORE_ORG=GAMES_MAJYAN_3_SCORE_NEW
ZZZZ010334	75800	=,W0.GAMES_MAJYAN_4_SCORE
ZZZZ010334	75900	=,W0.GAMES_MAJYAN_4_SCORE_ORG=GAMES_MAJYAN_4_SCORE_NEW}
ZZZZ010334	76000	={?&X2.KEY?}{};
ZZZZ010334	76100	=*****( 全て次局又は終局は再検索実行 )*********
ZZZZ010334	76200	=OWARI_CHECK:
ZZZZ010334	76300	*PROGRAM{0,?&X1.TABLE?}{GAMES_MAJYAN_DATE,GAMES_MAJYAN_KUBUN
ZZZZ010334	76400	*,GAMES_MAJYAN_GAME,GAMES_MAJYAN_SIAI}
ZZZZ010334	76500	*  {GAMES_MAJYAN_SYUUKYOKU=0};
ZZZZ010334	76600	*IF{_PROGRAM_COUNT=0}SQL{COMMIT TRANSACTION}EXIT{+1};
ZZZZ010334	76700	=EXIT{+1};
ZZZZ010334	76800	END
ZZZZ010334	76900	=SET{_RETURN_SQL=2};
ZZZZ010334	77000	PROGRAM=NOT *(再検索用で即終了)*
ZZZZ010334	77100	=SET{_RETURN_SQL=2};SEND{1}{}{OK};SEND{2}{OTHER}{OK};
ZZZZ010335	100	PROGRAM=NOT
ZZZZ010335	200	DATA={N}FUMMY{1}
ZZZZ010335	300	=IF_TABLE{?_MM?_GAMES_MAJYAN_TABLE}EXIT{+1};
ZZZZ010335	400	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010335	500	DATA={O}MESSAGE{50}
ZZZZ010335	600	DATA=YES{3}{YES,NO}
ZZZZ010335	700	=IF{_DATA='YES'}EXE_I{ZZZZ010340};
ZZZZ010335	800	=EXIT{_END};
ZZZZ010335	900	PROGRAM=,&X1,?_MM?_GAMES_MAJYAN_VIEW
ZZZZ010335	910	LEFT=X2,?_MM?_GAMES_MAJYAN_OU_TABLE
ZZZZ010335	1000	LINE=12
ZZZZ010335	1100	DICTIONARY=GAMES_MAJYAN_SCORE
ZZZZ010335	1200	CONTROL=0
ZZZZ010335	1300	COLOR
ZZZZ010335	1400	=IF{GAMES_MAJYAN_SCORE<>0}
ZZZZ010335	1500	=   SET{GAMES_MAJYAN_SCORE@COLOR='R'};
ZZZZ010335	1600	BEGIN
ZZZZ010335	1700	=SET{.GAMES_MAJYAN_DATE=!?_PP?_GAMES_MAJYAN_DATE};
ZZZZ010335	1710	*SET{.GAMES_MAJYAN_KUBUN=!ZZZYZZ_GAMES_MAJYAN_KUBUN};
ZZZZ010335	1800	SET={}.?&.SET&GAMES_MAJYAN_DATE?
ZZZZ010335	1810	*SET={}.?&.SET&GAMES_MAJYAN_KUBUN?
ZZZZ010335	2100	*****( 年月日 )*****
ZZZZ010335	2200	START
ZZZZ010335	2300	=DROP_TABLE{?_WORK_TABLE?A};
ZZZZ010335	2400	=CREATE_TABLE{?_WORK_TABLE?A,GAMES_MAJYAN_NAME,*}
ZZZZ010335	2500	=  {GAMES_MAJYAN_GAME,*,GAMES_MAJYAN_SCORE,*
ZZZZ010335	2600	=   ,CNT_?&.C&GAMES_MAJYAN_GAME?
ZZZZ010335	2700	=   ,MAX_?&.C&GAMES_MAJYAN_SCORE?
ZZZZ010335	2800	=   ,MIN_?&.C&GAMES_MAJYAN_SCORE?};
ZZZZ010335	2900	DATA={KDG}?&.DATA&GAMES_MAJYAN_DATE?
ZZZZ010335	2920	DATA={KDG}?&.DATA&GAMES_MAJYAN_KUBUN?
ZZZZ010335	2930	DATA={   }?&X2.DATA&GAMES_MAJYAN_KAIZYOU?
ZZZZ010335	2940	SELECT=MAX(X2.GAMES_MAJYAN_KAIZYOU)
ZZZZ010335	3000	DATA={2 }?&.DATA&GAMES_MAJYAN_GAME?数
ZZZZ010335	3100	SELECT=SUM(CASE GAMES_MAJYAN_ENTRY WHEN ' ' THEN 1 ELSE 0 END
ZZZZ010335	3120	SELECT=)/4
ZZZZ010335	3200	DATA={,,80}?&DATA&GAMES_MAJYAN_SCORE?
ZZZZ010335	3210	SELECT=SUM(CASE GAMES_MAJYAN_ENTRY WHEN ' ' THEN
ZZZZ010335	3300	SELECT=GAMES_MAJYAN_SCORE-30000 ELSE 0 END)
ZZZZ010335	3400	TITLE=過不足(-不足）
ZZZZ010335	3500	COPY=@ZZZZZZ_SQL
ZZZZ010335	3600	END
ZZZZ010335	3700	=EXIT{0};
ZZZZ010335	3800	PROGRAM=,&X1,?_WORK_TABLE?A
ZZZZ010335	3900	COLOR
ZZZZ010335	4000	=IF{MIN_GAMES_MAJYAN_SCORE=-30000}
ZZZZ010335	4100	=   SET{MIN_GAMES_MAJYAN_SCORE@COLOR='Y'};
ZZZZ010335	4200	BEGIN
ZZZZ010335	4300	NAME=RECEIVE
ZZZZ010335	4400	=IF_ERROR_RECEIVE{1}
ZZZZ010335	4500	=   SET{RECEIVE='NG',RECEIVE@COLOR='R'};JUMP{};
ZZZZ010335	4600	=SET{   RECEIVE='OK',RECEIVE@COLOR='L'};
ZZZZ010335	4700	NAME=
ZZZZ010335	4800	SET={O,*}RECEIVE{2}自動計算
ZZZZ010335	4900	SET={KO,*}.=?$&.DATA&GAMES_MAJYAN_DATE?
ZZZZ010335	4910	SET={O,*}.=?$&X2.DATA&GAMES_MAJYAN_KAIZYOU?
ZZZZ010335	5000	SET={,*,80}NOP{2}計算
ZZZZ010335	5100	=SET{W0SCORE=0,W0.COUNT=1};
ZZZZ010335	5200	=SET{W0.GAMES_MAJYAN_GAME=1,W0GAMES_MAJYAN_SCORE=0};
ZZZZ010335	5300	=SQL1{SELECT GAMES_MAJYAN_NAME
ZZZZ010335	5310	*   CASE WHEN GAMES_MAJYAN_NAME='***' THEN 0 ELSE
ZZZZ010335	5400	=   ,SUM(GAMES_MAJYAN_SCORE-30000)
ZZZZ010335	5410	=   ,COUNT(*)
ZZZZ010335	5500	=   ,MAX(GAMES_MAJYAN_SCORE-30000)
ZZZZ010335	5600	=   ,MIN(GAMES_MAJYAN_SCORE-30000)
ZZZZ010335	5700	=   FROM ?_MM?_GAMES_MAJYAN_VIEW
ZZZZ010335	5800	=   WHERE GAMES_MAJYAN_ENTRY<>'*'
ZZZZ010335	5810	=   AND GAMES_MAJYAN_NAME<>'***'
ZZZZ010335	5900	=   AND GAMES_MAJYAN_DATE='?.GAMES_MAJYAN_DATE?'
ZZZZ010335	6000	=   AND Z_CANCEL=' '
ZZZZ010335	6100	=   GROUP BY GAMES_MAJYAN_NAME ORDER BY 2 DESC};
ZZZZ010335	6200	=DROP_TABLE{?_WORK_TABLE?A};
ZZZZ010335	6300	=CREATE_TABLE{?_WORK_TABLE?A,GAMES_MAJYAN_NAME,*}
ZZZZ010335	6400	=  {GAMES_MAJYAN_GAME,*,GAMES_MAJYAN_SCORE,*
ZZZZ010335	6500	=   ,CNT_?$&.C&GAMES_MAJYAN_GAME?
ZZZZ010335	6600	=   ,MAX_?$&.C&GAMES_MAJYAN_SCORE?
ZZZZ010335	6700	=   ,MIN_?$&.C&GAMES_MAJYAN_SCORE?};
ZZZZ010335	6800	=SQL1_NEXT:SQL1_NEXT{W.GAMES_MAJYAN_NAME
ZZZZ010335	6900	=  ,W0.GAMES_MAJYAN_SCORE
ZZZZ010335	7000	=  ,W0.CNT_GAMES_MAJYAN_GAME
ZZZZ010335	7100	=  ,W0.MAX_GAMES_MAJYAN_SCORE
ZZZZ010335	7200	=  ,W0.MIN_GAMES_MAJYAN_SCORE}JUMP{SQL1_END};
ZZZZ010335	7300	=IF{W0.GAMES_MAJYAN_SCORE!=W0SCORE}
ZZZZ010335	7400	=   SET{W0.GAMES_MAJYAN_GAME=W0.COUNT};
ZZZZ010335	7500	=SET{W0SCORE=W0.GAMES_MAJYAN_SCORE};
ZZZZ010335	7600	=COMPUTE{W0GAMES_MAJYAN_SCORE+=W0.GAMES_MAJYAN_SCORE};
ZZZZ010335	7700	=PROGRAM{2N,?_WORK_TABLE?A
ZZZZ010335	7710	=   ,W0.GAMES_MAJYAN_GAME,W0.GAMES_MAJYAN_SCORE
ZZZZ010335	7900	=   ,W0.CNT_GAMES_MAJYAN_GAME
ZZZZ010335	8000	=   ,W0.MAX_GAMES_MAJYAN_SCORE
ZZZZ010335	8100	=   ,W0.MIN_GAMES_MAJYAN_SCORE}
ZZZZ010335	8110	=   {W.GAMES_MAJYAN_NAME}{};
ZZZZ010335	8200	=COMPUTE{W0.COUNT+=1};BACK{SQL1_NEXT};
ZZZZ010335	8300	=SQL1_END:SET{.GAMES_MAJYAN_SCORE=W0GAMES_MAJYAN_SCORE};
ZZZZ010335	8400	=IF{.GAMES_MAJYAN_SCORE<>0}
ZZZZ010335	8500	=  SET{.GAMES_MAJYAN_SCORE@COLOR='R'}JUMP{};
ZZZZ010335	8600	=SET{  .GAMES_MAJYAN_SCORE@COLOR='L'};
ZZZZ010335	8700	COPY=RECEIVE
ZZZZ010335	8800	SET={O,*,80}.?$&DATA&GAMES_MAJYAN_SCORE?
ZZZZ010335	8900	*****( 年月日 )*****
ZZZZ010335	9000	*****( 順位　）*
ZZZZ010335	9100	DATA={  }GAMES_MAJYAN_GAME{3,,+}順位
ZZZZ010335	9200	*****( 名前 )*****
ZZZZ010335	9300	DATA={  }?$&.DATA&GAMES_MAJYAN_NAME?
ZZZZ010335	9400	*****( 点数 )*****
ZZZZ010335	9500	DATA={,,2}?$&.DATA&GAMES_MAJYAN_SCORE?
ZZZZ010335	9600	DATA={,,,}CNT_?$&.DATA&GAMES_MAJYAN_GAME?数
ZZZZ010335	9700	DATA={,,,}MAX_?$&DATA&GAMES_MAJYAN_SCORE?
ZZZZ010335	9800	TITLE=最高点
ZZZZ010335	9900	DATA={,,,}MIN_?$&DATA&GAMES_MAJYAN_SCORE?
ZZZZ010335	10000	TITLE=最低点
ZZZZ010335	10100	COPY=@ZZZZZZ_SQL
ZZZZ010336	100	PROGRAM=NOT
ZZZZ010336	200	DATA={N}FUMMY{1}
ZZZZ010336	300	=IF_TABLE{?_MM?_GAMES_MAJYAN_TABLE}EXIT{+1};
ZZZZ010336	400	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010336	500	DATA={O}MESSAGE{50}
ZZZZ010336	600	DATA=YES{3}{YES,NO}
ZZZZ010336	700	=IF{_DATA='YES'}EXE_I{ZZZZ010340};
ZZZZ010336	800	=EXIT{_END}
ZZZZ010336	900	PROGRAM=OUTPUT,&X1,?_MM?_GAMES_MAJYAN_TABLE
ZZZZ010336	910	LEFT=&X2,?_MM?_GAMES_MAJYAN_OU_TABLE
ZZZZ010336	1000	CONTROL=0
ZZZZ010336	1100	BEGIN
ZZZZ010336	1200	=SET{.GAMES_MAJYAN_DATE=!?_PP?_GAMES_MAJYAN_DATE};
ZZZZ010336	1300	SET={}.?&.SET&GAMES_MAJYAN_DATE?
ZZZZ010336	1400	*****( 年月日 )*****
ZZZZ010336	1500	DATA={KDG  }?&.DATA&GAMES_MAJYAN_DATE?
ZZZZ010336	1600	DATA={KDG  }?&.DATA&GAMES_MAJYAN_KUBUN?
ZZZZ010336	1610	DATA={G    }X2.?&X2.DATA&GAMES_MAJYAN_KAIZYOU?
ZZZZ010336	1700	DATA={,,80}?&.DATA&GAMES_MAJYAN_GAME?
ZZZZ010336	1800	SELECT=MAX(GAMES_MAJYAN_GAME)
ZZZZ010336	1900	TITLE=ゲーム数
ZZZZ010336	2000	COPY=@ZZZZZZ_SQL
ZZZZ010336	2100	END
ZZZZ010336	2200	=EXIT{0};
ZZZZ010336	2300	PROGRAM=NOT,&X1,?_MM?_GAMES_MAJYAN_VIEW
ZZZZ010336	2400	CONTROL=PROGRAM,BEGIN_ENTER
ZZZZ010336	2410	=SET{YES='YES'};
ZZZZ010336	2500	DATA=YES{5,,}{YES,NO}
ZZZZ010336	2600	=IF{_DATA='NO'}EXIT{_END};
ZZZZ010336	2700	DATA={O}$?&.DATA&GAMES_MAJYAN_DATE?
ZZZZ010336	3000	*****( 試合 )*****
ZZZZ010336	3100	=SQL_FILE2{?_TMP?麻雀結果.TXT,OT,,W}{SELECT '年月日='?_C?
ZZZZ010336	3200	='?$GAMES_MAJYAN_DATE[1;4]?-'?_C?
ZZZZ010336	3300	='?$GAMES_MAJYAN_DATE[5;2]?-'?_C?
ZZZZ010336	3400	='?$GAMES_MAJYAN_DATE[7;2]?','会場='?_C?
ZZZZ010336	3410	= '?$X2.GAMES_MAJYAN_KAIZYOU?' ?_FROM_DUAL?};
ZZZZ010336	3500	=SQL1{SELECT GAMES_MAJYAN_NAME,SUM(GAMES_MAJYAN_SCORE-30000)
ZZZZ010336	3600	NAME=USE_TABLE
ZZZZ010336	3700	= FROM ?_TABLE? WHERE GAMES_MAJYAN_ENTRY=' ' AND Z_CANCEL=' '
ZZZZ010336	3800	= AND  GAMES_MAJYAN_DATE='?$GAMES_MAJYAN_DATE?'
ZZZZ010336	3900	= AND  GAMES_MAJYAN_NAME<>'***'
ZZZZ010336	4000	NAME=
ZZZZ010336	4100	= GROUP BY GAMES_MAJYAN_NAME ORDER BY 2 DESC};
ZZZZ010336	4200	=IF_ERROR_WRITE_OPEN{1,麻雀結果.TXT,ADD,,W}ERROR{};
ZZZZ010336	4300	=SET{W0.CNT=1};
ZZZZ010336	4400	=SQL1_NEXT:SQL1_NEXT{WN.NAME,W0.SCORE}JUMP{SQL1_END};
ZZZZ010336	4500	=SET{WN.NAME+='さん',WC.SCORE=W0.SCORE};
ZZZZ010336	4700	=IF_NOT{W0.SCORE>999,<-999}JUMP{OK};
ZZZZ010336	4800	=SET{WC.SCORE=WC.SCORE[1;WC.SCORE@LENGTH-3]+','+
ZZZZ010336	4810	=             WC.SCORE[  WC.SCORE@LENGTH-2]};
ZZZZ010336	4820	=IF_NOT{W0.SCORE>999999,<-999999}JUMP{OK};
ZZZZ010336	4830	=SET{WC.SCORE=WC.SCORE[1;WC.SCORE@LENGTH-7]+','+
ZZZZ010336	4840	=             WC.SCORE[  WC.SCORE@LENGTH-6]};
ZZZZ010336	5010	=OK:
ZZZZ010336	5100	=IF{WC.SCORE@LENGTH<12}SET{WC.SCORE=' '+WC.SCORE}BACK{};
ZZZZ010336	5110	=SET{WC.CNT=W0.CNT+'位',WC.SCORE+='点'};
ZZZZ010336	5200	*WRITE{1,W0.CNT,'位',WN.NAME,WC.SCORE,'点'};
ZZZZ010336	5210	=WRITE{1,WC.CNT,WN.NAME,WC.SCORE};
ZZZZ010336	5300	=COMPUTE{W0.CNT+=1};BACK{SQL1_NEXT};
ZZZZ010336	5400	=SQL1_END:WRITE_CLOSE{1};
ZZZZ010336	5500	=IF{W0.CNT=1}ERROR{データが有りません};
ZZZZ010336	5600	=SQL_FILE2{?_TMP?麻雀結果.TXT,ADD,,W}{SELECT
ZZZZ010336	5700	=   ' ' ?_FROM_DUAL?};
ZZZZ010336	5800	=SQL_FILE2{?_TMP?麻雀結果.TXT,ADD,,W}{SELECT
ZZZZ010336	5900	*   '?&.TITLE&GAMES_MAJYAN_DATE?'
ZZZZ010336	6000	=    '?&.TITLE&GAMES_MAJYAN_KUBUN?'
ZZZZ010336	6100	*   ,'?&.TITLE&GAMES_MAJYAN_GAME?'
ZZZZ010336	6200	=   ,'ゲーム'
ZZZZ010336	6400	=   ,'?&.TITLE&GAMES_MAJYAN_TAKU?'
ZZZZ010336	6500	=   ,'?&.TITLE&GAMES_MAJYAN_KAZE?'
ZZZZ010336	6600	=   ,'?&.TITLE&GAMES_MAJYAN_NAME?',' '
ZZZZ010336	6700	=   ,'?&.TITLE&GAMES_MAJYAN_SCORE?' ?_FROM_DUAL?};
ZZZZ010336	6800	=SQL_FILE2{?_TMP?麻雀結果.TXT,ADD,,W}{SELECT
ZZZZ010336	6900	*   GAMES_MAJYAN_DATE
ZZZZ010336	7000	=    GAMES_MAJYAN_KUBUN
ZZZZ010336	7100	=   ,GAMES_MAJYAN_GAME
ZZZZ010336	7300	=   ,GAMES_MAJYAN_TAKU
ZZZZ010336	7500	=   ,GAMES_MAJYAN_KAZE
ZZZZ010336	7600	=   ,TRIM(GAMES_MAJYAN_NAME)?_C?'さん',CASE
ZZZZ010336	7700	=WHEN GAMES_MAJYAN_SCORE-30000 BETWEEN       -9 AND 9
ZZZZ010336	7800	= THEN '        '
ZZZZ010336	7900	=WHEN GAMES_MAJYAN_SCORE-30000 BETWEEN      -99 AND 99
ZZZZ010336	8000	= THEN '       '
ZZZZ010336	8100	=WHEN GAMES_MAJYAN_SCORE-30000 BETWEEN     -999 AND 999
ZZZZ010336	8200	= THEN '      '
ZZZZ010336	8300	=WHEN GAMES_MAJYAN_SCORE-30000 BETWEEN    -9999 AND 9999
ZZZZ010336	8400	= THEN '     '
ZZZZ010336	8500	=WHEN GAMES_MAJYAN_SCORE-30000 BETWEEN   -99999 AND 999999
ZZZZ010336	8600	= THEN '    '
ZZZZ010336	8700	=WHEN GAMES_MAJYAN_SCORE-30000 BETWEEN  -999999 AND 9999999
ZZZZ010336	8800	= THEN '   '
ZZZZ010336	8900	=WHEN GAMES_MAJYAN_SCORE-30000 BETWEEN -9999999 AND 99999999
ZZZZ010336	9000	= THEN '  '
ZZZZ010336	9100	=WHEN GAMES_MAJYAN_SCORE-30000
ZZZZ010336	9200	=                             BETWEEN -99999999 AND 999999999
ZZZZ010336	9300	= THEN ' ' ELSE '' END?_C?
ZZZZ010336	9400	= CASE WHEN GAMES_MAJYAN_SCORE-30000 < 0 THEN '' ELSE ' ' END
ZZZZ010336	9500	=?_C?CAST(GAMES_MAJYAN_SCORE-30000 AS VARCHAR(9))
ZZZZ010336	9600	=   ,CASE GAMES_MAJYAN_KAZE
ZZZZ010336	9700	=   WHEN '東' THEN 1 WHEN '南' THEN
ZZZZ010336	9800	=   2 WHEN '西' THEN 3 ELSE 4 END
ZZZZ010336	9900	COPY=USE_TABLE
ZZZZ010336	10000	*FROM ?_TABLE? WHERE GAMES_MAJYAN_ENTRY=' ' AND Z_CANCEL=' '
ZZZZ010336	10100	= ORDER BY 1,2,3,7};
ZZZZ010336	10200	=EXE{NOTEPAD,?_TMP?麻雀結果.TXT};
ZZZZ010336	10300	=EXIT{_END};
ZZZZ010337	100	PROGRAM=NOT
ZZZZ010337	200	FORM=該当日を入力して[ENTER]をし,そのままの状態にすると、
ZZZZ010337	300	FORM=ZZZZ010335の「麻雀結果表示」を表示するので、
ZZZZ010337	310	FORM=同じ該当日を入力して[ENTER]し[ENTER]で表示しておくと、
ZZZZ010337	400	FORM=リンクサーバー名'OTHOR'で該当日の麻雀結果更新を行うと,
ZZZZ010337	500	FORM=該当日のデータの同期を取り,「麻雀結果表示」を表示
ZZZZ010337	600	FORM2=します。
ZZZZ010337	800	FORM=(リンクサーバー名が'OTHOR'のPCのHOSTSに,
ZZZZ010337	900	FORM='OTHER'を当PCのIPアドレスに設定する必要が有ります)
ZZZZ010337	1000	FORM=(HOSTSはZZZZ010624の「HOSTSファイルの編集。」
ZZZZ010337	1100	FORM2=で編集出来ます）
ZZZZ010337	1200	FORM=該当日= @
ZZZZ010337	1300	=SET{W0=0};
ZZZZ010337	1400	=SET{TODAY=_TODAY};
ZZZZ010337	1500	TABLE=&X1,?_MM?_GAMES_MAJYAN_N_TABLE
ZZZZ010337	1600	TABLE=&X2,?_MM?_GAMES_MAJYAN_TABLE
ZZZZ010337	1610	TABLE=&X3,?_MM?_GAMES_MAJYAN_OU_TABLE
ZZZZ010337	1700	DATA=TODAY{8}
ZZZZ010337	1800	=IF_ERROR_SET{WCL=^OTHER}ERROR{};
ZZZZ010337	1900	=IF_ERROR_REPLACE_ALL{
ZZZZ010337	2000	=  ?&X1.TABLE?,?WCL??_PP?_GAMES_MAJYAN_N_TABLE
ZZZZ010337	2100	= ,?&X1.DATA?}{?&X1.KEY?}{}{}ERROR{};
ZZZZ010337	2200	=IF_ERROR_REPLACE_ALL{
ZZZZ010337	2300	= ?&X2.TABLE?,?WCL??_PP?_GAMES_MAJYAN_TABLE
ZZZZ010337	2400	= ,?&X2.DATA?}{?&X2.KEY?}{*O*.GAMES_MAJYAN_DATE='?TODAY?'}
ZZZZ010337	2500	= {I.GAMES_MAJYAN_DATE='?TODAY?'}ERROR{};
ZZZZ010337	2510	=IF_ERROR_REPLACE_ALL{
ZZZZ010337	2520	=  ?&X3.TABLE?,?WCL??_PP?_GAMES_MAJYAN_OU_TABLE
ZZZZ010337	2530	= ,?&X3.DATA?}{?&X3.KEY?}{}{}ERROR{};
ZZZZ010337	2600	=IF{W0=0}EXE_I{ZZZZ010335}SET{W0=1};
ZZZZ010337	2700	=SEND{1}{}{OK};
ZZZZ010337	2800	=IF_ERROR_RECEIVE{2}ERROR{RECEIVE ERROR};
ZZZZ010338	100	PROGRAM=NOT
ZZZZ010338	200	BEGIN
ZZZZ010338	300	DATA={N}FUMMY{1}
ZZZZ010338	400	=IF_TABLE{?_MM?_GAMES_MAJYAN_TABLE}EXIT{+1};
ZZZZ010338	500	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010338	600	DATA={O}MESSAGE{50}
ZZZZ010338	700	DATA=YES{3}{YES,NO}
ZZZZ010338	800	=IF{_DATA='YES'}EXE_I{ZZZZ010340};
ZZZZ010338	900	=EXIT{_END};
ZZZZ010338	1000	PROGRAM=OUTPUT,&X1,?_MM?_GAMES_MAJYAN_TABLE
ZZZZ010338	1010	LEFT=&X2,?_MM?_GAMES_MAJYAN_OU_TABLE
ZZZZ010338	1100	CONTROL=0
ZZZZ010338	1200	LINE=10
ZZZZ010338	1300	BEGIN
ZZZZ010338	1400	=SET{.GAMES_MAJYAN_DATE=!?_PP?_GAMES_MAJYAN_DATE};
ZZZZ010338	1500	SET={}.?&.SET&GAMES_MAJYAN_DATE?
ZZZZ010338	1600	*****( 年月日 )*****
ZZZZ010338	1700	DATA={KDG  }?&.DATA&GAMES_MAJYAN_DATE?
ZZZZ010338	1800	DATA={KDG  }?&.DATA&GAMES_MAJYAN_KUBUN?
ZZZZ010338	1810	DATA={G    }X2.?&X2.DATA&GAMES_MAJYAN_KAIZYOU?
ZZZZ010338	1900	DATA={,,80}?&.DATA&GAMES_MAJYAN_GAME?数
ZZZZ010338	2000	SELECT=MAX(X1.GAMES_MAJYAN_GAME)
ZZZZ010338	2100	COPY=@ZZZZZZ_SQL
ZZZZ010338	2200	END
ZZZZ010338	2300	=EXIT{0};
ZZZZ010338	2400	PROGRAM=,&X1,?_MM?_GAMES_MAJYAN_TABLE
ZZZZ010338	2500	CONTROL=0
ZZZZ010338	2600	PLUS=%Z_CANCEL_WHERE
ZZZZ010338	2700	*LEFT=&X2,?_MM?_GAMES_MAJYAN_N_TABLE,,*
ZZZZ010338	2800	*JOIN_ON=X2.GAMES_MAJYAN_NAME=X1.GAMES_MAJYAN_1_NAME
ZZZZ010338	2900	*LEFT=&X3,?_MM?_GAMES_MAJYAN_N_TABLE,,*
ZZZZ010338	3000	*JOIN_ON=X3.GAMES_MAJYAN_NAME=X1.GAMES_MAJYAN_2_NAME
ZZZZ010338	3100	*LEFT=&X4,?_MM?_GAMES_MAJYAN_N_TABLE,,*
ZZZZ010338	3200	*JOIN_ON=X4.GAMES_MAJYAN_NAME=X1.GAMES_MAJYAN_3_NAME
ZZZZ010338	3300	*LEFT=&X5,?_MM?_GAMES_MAJYAN_N_TABLE,,*
ZZZZ010338	3400	*JOIN_ON=X5.GAMES_MAJYAN_NAME=X1.GAMES_MAJYAN_4_NAME
ZZZZ010338	3500	*INE=20
ZZZZ010338	3600	DICTIONARY=GAMES_MAJYAN_SCORE
ZZZZ010338	3700	CONTROL=2,SCROLL
ZZZZ010338	3800	BEGIN
ZZZZ010338	3900	*SET{ENTRY='+',SCORE='+'};
ZZZZ010338	4000	=SET{SCORE='+'};
ZZZZ010338	4100	COLOR
ZZZZ010338	4200	NAME=COLOR
ZZZZ010338	4300	=IF{GAMES_MAJYAN_1_SCORE<>0,GAMES_MAJYAN_2_SCORE<>0
ZZZZ010338	4500	=  ,GAMES_MAJYAN_3_SCORE<>0,GAMES_MAJYAN_4_SCORE<>0}
ZZZZ010338	4700	=  IF{GAMES_MAJYAN_SCORE<>0}JUMP{R};
ZZZZ010338	4800	=  SET{GAMES_MAJYAN_SCORE@COLOR='L'};JUMP{X};
ZZZZ010338	4900	=R:SET{GAMES_MAJYAN_SCORE@COLOR='R'};
ZZZZ010338	5000	=X:
ZZZZ010338	5100	NAME=
ZZZZ010338	5200	SET={KO}$?&.DATA&GAMES_MAJYAN_DATE?
ZZZZ010338	5300	SET={KO}$?&.DATA&GAMES_MAJYAN_KUBUN?
ZZZZ010338	5330	SET={*O}$X2.?$&X2.DATA&GAMES_MAJYAN_KAIZYOU?
ZZZZ010338	5400	SET={*}SCORE{1}{}{,全部,+,点数完成除く,-,点数有りのみ}点数
ZZZZ010338	5500	=IF{_DATA='+'}SET{_DATA@WHERE='(GAMES_MAJYAN_4_NAME=''***'' '
ZZZZ010338	5600	= +'AND GAMES_MAJYAN_1_SCORE+GAMES_MAJYAN_2_SCORE'
ZZZZ010338	5700	= +'+GAMES_MAJYAN_3_SCORE<>90000 OR '
ZZZZ010338	5800	= +'GAMES_MAJYAN_4_NAME<>''***''  AND '
ZZZZ010338	5900	= +'GAMES_MAJYAN_1_SCORE+GAMES_MAJYAN_2_SCORE'
ZZZZ010338	6000	=+'+GAMES_MAJYAN_3_SCORE+GAMES_MAJYAN_4_SCORE<>120000)'
ZZZZ010338	6100	=  }EXIT{};
ZZZZ010338	6200	=IF{_DATA='-'}SET{_DATA@WHERE='(GAMES_MAJYAN_1_SCORE<>0'
ZZZZ010338	6300	=   +' OR GAMES_MAJYAN_2_SCORE<>0'
ZZZZ010338	6400	=   +' OR GAMES_MAJYAN_3_SCORE<>0'
ZZZZ010338	6500	=   +' OR GAMES_MAJYAN_4_SCORE<>0)'};
ZZZZ010338	6600	*SET={*}ENTRY{1}{}{,全部,+,参加予定除く}参加
ZZZZ010338	6700	*=SET{WC.ESWN1='E',WC.ESWN2='S',WC.ESWN3='W',WC.ESWN4='N'};
ZZZZ010338	6800	*=IF{_DATA='+'}SET{_DATA@WHERE='X1.GAMES_MAJYAN_GAME NOT'
ZZZZ010338	6900	*=   +' IN(SELECT GAMES_MAJYAN_GAME FROM ?_TABLE? WHERE'
ZZZZ010338	7000	*=   +' ?_VRE&GAMES_MAJYAN_DATE? AND Z_CANCEL='' '' AND('
ZZZZ010338	7100	*REPEAT=4
ZZZZ010338	7200	*1-= +' OR'
ZZZZ010338	7300	*=   +' GAMES_MAJYAN_NAME_?WC.ESWN##?'
ZZZZ010338	7400	*=   +' IN(SELECT GAMES_MAJYAN_NAME FROM ?&X2.TABLE? WHERE'
ZZZZ010338	7500	*=   +' Z_CANCEL='' '' AND GAMES_MAJYAN_ENTRY<>'' '')'
ZZZZ010338	7600	*REPEAT=
ZZZZ010338	7700	*=   +'))'
ZZZZ010338	7800	*=   };
ZZZZ010338	7900	*SET={}?&.SET&GAMES_MAJYAN_GAME?
ZZZZ010338	8000	START
ZZZZ010338	8100	=IF{_START=1}EXIT{};
ZZZZ010338	8200	=IF{GAMES_MAJYAN_1_NAME=,GAMES_MAJYAN_2_NAME=
ZZZZ010338	8300	=  ,GAMES_MAJYAN_3_NAME=,GAMES_MAJYAN_4_NAME=}
ZZZZ010338	8400	=  ERROR{名前無し};
ZZZZ010338	8500	=IF{_START!=3}EXIT{};
ZZZZ010338	8600	*IF{GAMES_MAJYAN_3_NAME='***'}
ZZZZ010338	8700	*  SET{GAMES_MAJYAN_3_SCORE=30000};
ZZZZ010338	8800	*IF{GAMES_MAJYAN_4_NAME='***'}
ZZZZ010338	8900	*  SET{GAMES_MAJYAN_3_SCORE=30000};
ZZZZ010338	9000	*****( 試合 )*****
ZZZZ010338	9100	DATA={K,, }?&.DATA&GAMES_MAJYAN_GAME?
ZZZZ010338	9200	*****( 卓 )*****
ZZZZ010338	9300	DATA={K,,2}?&.DATA&GAMES_MAJYAN_TAKU?
ZZZZ010338	9400	*****( 名前_東 )*****
ZZZZ010338	9500	DATA={*O  }?&.DATA&GAMES_MAJYAN_1_NAME?
ZZZZ010338	9600	*DATA={*O  }X2.?&X2.DATA&GAMES_MAJYAN_ENTRY?
ZZZZ010338	9700	*****( 点数_東 )*****
ZZZZ010338	9800	DATA={,,2 }?&.DATA&GAMES_MAJYAN_1_SCORE?
ZZZZ010338	9900	NAME=GAMES_MAJYAN_SCORE
ZZZZ010338	10000	=SQL_SET{GAMES_MAJYAN_SCORE}
ZZZZ010338	10100	={SELECT CASE WHEN ?GAMES_MAJYAN_1_SCORE?=0
ZZZZ010338	10200	=AND ?GAMES_MAJYAN_2_SCORE?=0
ZZZZ010338	10300	=AND ?GAMES_MAJYAN_3_SCORE?=0
ZZZZ010338	10400	=AND ?GAMES_MAJYAN_4_SCORE?=0 THEN 0
ZZZZ010338	10500	=WHEN '?GAMES_MAJYAN_4_NAME?'='***' THEN
ZZZZ010338	10600	=     ?GAMES_MAJYAN_1_SCORE?
ZZZZ010338	10700	=    +?GAMES_MAJYAN_2_SCORE?
ZZZZ010338	10800	=    +?GAMES_MAJYAN_3_SCORE?-90000
ZZZZ010338	10900	=ELSE
ZZZZ010338	11000	=     ?GAMES_MAJYAN_1_SCORE?
ZZZZ010338	11100	=    +?GAMES_MAJYAN_2_SCORE?
ZZZZ010338	11200	=    +?GAMES_MAJYAN_3_SCORE?
ZZZZ010338	11300	=    +?GAMES_MAJYAN_4_SCORE?-120000 END
ZZZZ010338	11400	=?_FROM_DUAL?};
ZZZZ010338	11500	NAME=
ZZZZ010338	11600	COPY=COLOR
ZZZZ010338	11700	=IF{GAMES_MAJYAN_1_NAME=}IF{_DATA<>0}ERROR{名前無し};
ZZZZ010338	11800	*****( 名前_南 )*****
ZZZZ010338	11900	DATA={*O }?&.DATA&GAMES_MAJYAN_2_NAME?
ZZZZ010338	12000	*DATA={*O  }X3.?&X3.DATA&GAMES_MAJYAN_ENTRY?
ZZZZ010338	12100	*****( 点数_南 )*****
ZZZZ010338	12200	DATA={,,2}?&.DATA&GAMES_MAJYAN_2_SCORE?
ZZZZ010338	12300	COPY=GAMES_MAJYAN_SCORE
ZZZZ010338	12400	COPY=COLOR
ZZZZ010338	12500	=IF{GAMES_MAJYAN_2_NAME=}IF{_DATA<>0}ERROR{名前無し};
ZZZZ010338	12600	*****( 名前_西 )*****
ZZZZ010338	12700	DATA={*O }?&.DATA&GAMES_MAJYAN_3_NAME?
ZZZZ010338	12800	*DATA={*O  }X4.?&X4.DATA&GAMES_MAJYAN_ENTRY?
ZZZZ010338	12900	*****( 点数_西 )*****
ZZZZ010338	13000	DATA={,,2}?&.DATA&GAMES_MAJYAN_3_SCORE?
ZZZZ010338	13100	*IF{GAMES_MAJYAN_3_NAME='***'}
ZZZZ010338	13200	*  SET{GAMES_MAJYAN_3_SCORE=30000};
ZZZZ010338	13300	COPY=GAMES_MAJYAN_SCORE
ZZZZ010338	13400	COPY=COLOR
ZZZZ010338	13500	=IF{GAMES_MAJYAN_3_NAME=}IF{_DATA<>0}ERROR{名前無し};
ZZZZ010338	13600	*****( 名前_北 )*****
ZZZZ010338	13700	DATA={*O }?&.DATA&GAMES_MAJYAN_4_NAME?
ZZZZ010338	13800	*DATA={*O  }X5.?&X5.DATA&GAMES_MAJYAN_ENTRY?
ZZZZ010338	13900	*****( 点数_北 )*****
ZZZZ010338	14000	DATA={,,2}?&.DATA&GAMES_MAJYAN_4_SCORE?
ZZZZ010338	14100	*IF{GAMES_MAJYAN_4_NAME='***'}
ZZZZ010338	14200	*  SET{GAMES_MAJYAN_3_SCORE=30000};
ZZZZ010338	14300	COPY=GAMES_MAJYAN_SCORE
ZZZZ010338	14400	COPY=COLOR
ZZZZ010338	14500	=IF{GAMES_MAJYAN_3_NAME=}IF{_DATA<>0}ERROR{名前無し};
ZZZZ010338	14600	=IF{GAMES_MAJYAN_4_NAME='***'}SET{GAMES_MAJYAN_4_SCORE=0};
ZZZZ010338	14700	DATA={*O}?&DATA&GAMES_MAJYAN_SCORE?
ZZZZ010338	14800	SELECT=CASE WHEN X1.GAMES_MAJYAN_1_SCORE=0
ZZZZ010338	14900	SELECT=      AND X1.GAMES_MAJYAN_2_SCORE=0
ZZZZ010338	15000	SELECT=      AND X1.GAMES_MAJYAN_3_SCORE=0
ZZZZ010338	15100	SELECT=      AND X1.GAMES_MAJYAN_4_SCORE=0 THEN 0
ZZZZ010338	15200	SELECT=WHEN GAMES_MAJYAN_4_NAME='***' THEN
ZZZZ010338	15300	SELECT=     GAMES_MAJYAN_1_SCORE
ZZZZ010338	15400	SELECT=    +GAMES_MAJYAN_2_SCORE
ZZZZ010338	15500	SELECT=    +GAMES_MAJYAN_3_SCORE-90000
ZZZZ010338	15600	SELECT=ELSE
ZZZZ010338	15700	SELECT=     GAMES_MAJYAN_1_SCORE
ZZZZ010338	15800	SELECT=    +GAMES_MAJYAN_2_SCORE
ZZZZ010338	15900	SELECT=    +GAMES_MAJYAN_3_SCORE
ZZZZ010338	16000	SELECT=    +GAMES_MAJYAN_4_SCORE-120000 END
ZZZZ010338	16100	TITLE=過不足(-は不足)
ZZZZ010338	16200	COPY=@ZZZZZZ_SQL
ZZZZ010338	16300	STOP_AFTER
ZZZZ010338	16400	=SEND{1}{}{OK};SEND{2}{OTHER}{OK};
ZZZZ010338	16500	PROGRAM=OUTPUT,&X1,?_MM?_GAMES_MAJYAN_1_TABLE
ZZZZ010338	16600	TABLE=&X2,?_MM?_GAMES_MAJYAN_OU_TABLE
ZZZZ010338	16700	CONTROL=TITLE,SCROLL
ZZZZ010338	16800	BEGIN
ZZZZ010338	16900	=IF{$GAMES_MAJYAN_4_NAME='***'}SET{W0.HITO=3}JUMP{};
ZZZZ010338	17000	=                              SET{W0.HITO=4};
ZZZZ010338	17100	=PROGRAM{0,?&X2.TABLE?,W0.GAMES_MAJYAN_MOTITEN
ZZZZ010338	17200	=,W0.GAMES_MAJYAN_UMA1,W0.GAMES_MAJYAN_UMA2}{?&X2.KEY?}{};
ZZZZ010338	17400	=IF{_PROGRAM_COUNT<>1}ERROR{PROGRAM MIS (X3)};
ZZZZ010338	17500	=COMPUTE{W0.MOTITEN_ALL=W0.GAMES_MAJYAN_MOTITEN*W0.HITO};
ZZZZ010338	17600	=PROGRAM{0,?_TABLE?,W0.GAMES_MAJYAN_1_SCORE_NEW=
ZZZZ010338	17700	=,W0.GAMES_MAJYAN_2_SCORE_NEW=,W0.GAMES_MAJYAN_3_SCORE_NEW=
ZZZZ010338	17800	=,W0.GAMES_MAJYAN_4_SCORE_NEW=,W0.GAMES_MAJYAN_RIICHISUU_NEW=
ZZZZ010338	17900	=}{GAMES_MAJYAN_DATE,GAMES_MAJYAN_KUBUN,GAMES_MAJYAN_GAME
ZZZZ010338	18000	=,GAMES_MAJYAN_TAKU}{GAMES_MAJYAN_SYUUKYOKU=9};
ZZZZ010338	19000	=IF{_PROGRAM_COUNT<>1}JUMP{SKIP};
ZZZZ010338	19100	REPEAT=4
ZZZZ010338	19300	=SET{MOT.GAMES_MAJYAN_##_SCORE=W0.GAMES_MAJYAN_##_SCORE_NEW};
ZZZZ010338	19310	=SET{ W0.GAMES_MAJYAN_##_SCORE=W0.GAMES_MAJYAN_##_SCORE_NEW};
ZZZZ010338	19400	REPEAT=
ZZZZ010338	19500	=*****( 順位計算　(同点の場合最初の席順になります))*****
ZZZZ010338	19600	=SET{W0.T1=0,W0.T2=0,W0.T3=0,W0.T4=0};
ZZZZ010338	19700	=SET{W0.S1=0,W0.S2=0,W0.S3=0,W0.S4=0};
ZZZZ010338	19800	=IF{W0.GAMES_MAJYAN_1_SCORE<W0.GAMES_MAJYAN_2_SCORE}
ZZZZ010338	19900	=   SET{W0.S1=W0.GAMES_MAJYAN_2_SCORE,W0.T1=2
ZZZZ010338	20000	=      ,W0.S2=W0.GAMES_MAJYAN_1_SCORE,W0.T2=1}JUMP{J3};
ZZZZ010338	20100	=   SET{W0.S1=W0.GAMES_MAJYAN_1_SCORE,W0.T1=1
ZZZZ010338	20200	=      ,W0.S2=W0.GAMES_MAJYAN_2_SCORE,W0.T2=2};
ZZZZ010338	20300	=J3:IF{W0.S1<W0.GAMES_MAJYAN_3_SCORE}
ZZZZ010338	20400	=   SET{W0.S3=W0.S2,W0.T3=W0.T2,W0.S2=W0.S1,W0.T2=W0.T1
ZZZZ010338	20500	=      ,W0.S1=W0.GAMES_MAJYAN_3_SCORE,W0.T1=3}JUMP{J4};
ZZZZ010338	20600	=IF{W0.S2<W0.GAMES_MAJYAN_3_SCORE}
ZZZZ010338	20700	=   SET{W0.S3=W0.S2,W0.T3=W0.T2
ZZZZ010338	20800	=      ,W0.S2=W0.GAMES_MAJYAN_3_SCORE,W0.T2=3}JUMP{J4};
ZZZZ010338	20900	=   SET{W0.S3=W0.GAMES_MAJYAN_3_SCORE,W0.T3=3};
ZZZZ010338	21000	=J4:IF{W0.HITO!=4}JUMP{OK};
ZZZZ010338	21100	=IF{W0.S1<W0.GAMES_MAJYAN_4_SCORE}
ZZZZ010338	21200	=  SET{W0.T4=W0.T3,W0.T3=W0.T2,W0.T2=W0.T1,W0.T1=4}JUMP{OK};
ZZZZ010338	21300	=IF{W0.S2<W0.GAMES_MAJYAN_4_SCORE}
ZZZZ010338	21400	=  SET{W0.T4=W0.T3,W0.T3=W0.T2,W0.T2=4}JUMP{OK};
ZZZZ010338	21500	=IF{W0.S3<W0.GAMES_MAJYAN_4_SCORE}
ZZZZ010338	21600	=   SET{W0.T4=W0.T3,W0.T3=4}JUMP{OK};
ZZZZ010338	21700	=SET{W0.T4=4};
ZZZZ010338	21800	=OK:
ZZZZ010338	21900	=COMPUTE{W0.OKA=30000*W0.HITO,-=W0.MOTITEN_ALL};
ZZZZ010338	22000	=COMPUTE{W0.GAMES_MAJYAN_?W0.T1?_SCORE+=W0.OKA};
ZZZZ010338	22100	=SET{OKA?W0.T1?=W0.OKA};
ZZZZ010338	22200	=COMPUTE{
ZZZZ010338	22300	=       W0.GAMES_MAJYAN_?W0.T1?_SCORE+=W0.GAMES_MAJYAN_UMA2};
ZZZZ010338	22400	=SET{UMA?W0.T1?=W0.GAMES_MAJYAN_UMA2};
ZZZZ010338	22500	=IF{W0.HITO=4}
ZZZZ010338	22600	= COMPUTE{W0.GAMES_MAJYAN_?W0.T2?_SCORE+=W0.GAMES_MAJYAN_UMA1
ZZZZ010338	22700	=        ,W0.GAMES_MAJYAN_?W0.T3?_SCORE-=W0.GAMES_MAJYAN_UMA1
ZZZZ010338	22800	=       ,W0.GAMES_MAJYAN_?W0.T4?_SCORE-=W0.GAMES_MAJYAN_UMA2}
ZZZZ010338	22900	=   SET{UMA?W0.T2?=W0.GAMES_MAJYAN_UMA1}
ZZZZ010338	23000	=   COMPUTE{UMA?W0.T3?-=W0.GAMES_MAJYAN_UMA1}
ZZZZ010338	23100	=   COMPUTE{UMA?W0.T4?-=W0.GAMES_MAJYAN_UMA2}
ZZZZ010338	23200	=   JUMP{};
ZZZZ010338	23300	=COMPUTE{
ZZZZ010338	23400	=   W0.GAMES_MAJYAN_?W0.T3?_SCORE-=W0.GAMES_MAJYAN_UMA2
ZZZZ010338	23500	=  ,UMA?W0.T3?-=W0.GAMES_MAJYAN_UMA2};
ZZZZ010338	23600	****( リーチ棒はトップの人に加算 )**************
ZZZZ010338	23700	=IF{W0.GAMES_MAJYAN_RIICHISUU_NEW!=0}
ZZZZ010338	23800	=  COMPUTE{W0.SCORE=W0.GAMES_MAJYAN_RIICHISUU_NEW*1000
ZZZZ010338	23900	=  ,W0.GAMES_MAJYAN_?W0.T1?_SCORE+=W0.SCORE
ZZZZ010338	24000	=  ,RII?W0.T1?+=W0.SCORE};
ZZZZ010338	24010	COMMENT_BEGIN
ZZZZ010338	24100	=COMPUTE{W0.SCORE=W0.GAMES_MAJYAN_1_SCORE+
ZZZZ010338	24200	=   W0.GAMES_MAJYAN_2_SCORE,+=W0.GAMES_MAJYAN_3_SCORE};
ZZZZ010338	24500	=IF{W0.HITO=4}
ZZZZ010338	24600	=   COMPUTE{W0.SCORE+=W0.GAMES_MAJYAN_4_SCORE};
ZZZZ010338	24700	=COMPUTE{W0.SCORE_ALL=30000*W0.HITO};
ZZZZ010338	24800	=IF{W0.SCORE!=W0.SCORE_ALL}ERROR{合計不一致(?W0.SCORE?)};
ZZZZ010338	24810	COMMENT_END
ZZZZ010338	24900	=SKIP:
ZZZZ010338	24911	*SET={O,*}W0.?&X2.DATA&GAMES_MAJYAN_HONBASUU?
ZZZZ010338	24913	*TITLE=3人麻雀の本場点
ZZZZ010338	25000	SET={O,*}W0.?&X2.DATA&GAMES_MAJYAN_MOTITEN?
ZZZZ010338	25100	SET={O,*}W0.?&X2.DATA&GAMES_MAJYAN_UMA1?
ZZZZ010338	25200	SET={O,*,80}W0.?&X2.DATA&GAMES_MAJYAN_UMA2?
ZZZZ010338	25500	SET={KO}$?&.DATA&GAMES_MAJYAN_DATE?
ZZZZ010338	25600	SET={KO}$?&.DATA&GAMES_MAJYAN_KUBUN?
ZZZZ010338	25700	SET={KO}$?&.DATA&GAMES_MAJYAN_GAME?
ZZZZ010338	25800	SET={KO,,80}$?&.DATA&GAMES_MAJYAN_TAKU?
ZZZZ010338	25900	COLOR
ZZZZ010338	26000	REPEAT0=4
ZZZZ010338	26100	=IF{NOW.GAMES_MAJYAN_$$_SCORE=0}JUMP{SKIP};
ZZZZ010338	26200	=IF{NOW.GAMES_MAJYAN_$$_SCORE=W0.GAMES_MAJYAN_$$_SCORE}
ZZZZ010338	26300	=   SET{W0.GAMES_MAJYAN_$$_SCORE@COLOR='B'}JUMP{};
ZZZZ010338	26400	=   SET{W0.GAMES_MAJYAN_$$_SCORE@COLOR='R'};
ZZZZ010338	26500	=SKIP:
ZZZZ010338	26510	REPEAT0=4
ZZZZ010338	26520	SET={O,*}NOW.=?&.DATA&GAMES_MAJYAN_$$_NAME?
ZZZZ010338	26521	TITLE=$$氏名
ZZZZ010338	26600	REPEAT0=4
ZZZZ010338	26700	SET={O,*}NOW.=?&.DATA&GAMES_MAJYAN_$$_SCORE?
ZZZZ010338	26800	*TITLE=      現
ZZZZ010338	26900	REPEAT0=4
ZZZZ010338	27000	SET={O,*}W0.?&.DATA&GAMES_MAJYAN_$$_SCORE?
ZZZZ010338	27100	TITLE= 計算値
ZZZZ010338	27200	REPEAT0=4
ZZZZ010338	27300	SET={O,*}MOT.?&.DATA&GAMES_MAJYAN_$$_SCORE?
ZZZZ010338	27400	TITLE=     元
ZZZZ010338	27500	REPEAT0=4
ZZZZ010338	27600	SET={O,*}OKA$$?&.DATA2&GAMES_MAJYAN_1_SCORE?
ZZZZ010338	27700	TITLE=   オカ
ZZZZ010338	27800	REPEAT0=4
ZZZZ010338	27900	SET={O,*}UMA$$?&.DATA2&GAMES_MAJYAN_1_SCORE?
ZZZZ010338	28000	TITLE=   ウマ
ZZZZ010338	28100	REPEAT0=4
ZZZZ010338	28200	SET={O,*}RII$$?&.DATA2&GAMES_MAJYAN_1_SCORE?
ZZZZ010338	28300	TITLE=   立直
ZZZZ010338	28400	REPEAT0=
ZZZZ010338	29000	*****( 日付 )*****
ZZZZ010338	29100	*DATA={K}?&.DATA&GAMES_MAJYAN_DATE?
ZZZZ010338	29200	******( 区分 )*****
ZZZZ010338	29300	*DATA={K}?&.DATA&GAMES_MAJYAN_KUBUN?
ZZZZ010338	29400	*****( ゲーム番号 )*****
ZZZZ010338	29500	*DATA={K}?&.DATA&GAMES_MAJYAN_GAME?
ZZZZ010338	29600	******( 卓番号 )*****
ZZZZ010338	29700	*DATA={K}?&.DATA&GAMES_MAJYAN_TAKU?
ZZZZ010338	29800	*****( 試合番号 )*****
ZZZZ010338	29900	DATA={KD}?&.DATA&GAMES_MAJYAN_SIAI?
ZZZZ010338	30000	REPEAT0=4
ZZZZ010338	30100	DATA={}?&.DATA&GAMES_MAJYAN_$$_SCORE_NEW?
ZZZZ010338	30200	REPEAT0=
ZZZZ010338	30500	*****( 親 )*****
ZZZZ010338	30600	DATA={}?&.DATA&GAMES_MAJYAN_OYA?
ZZZZ010338	30700	*****( 親(新) )*****
ZZZZ010338	30800	DATA={}?&.DATA&GAMES_MAJYAN_OYA_NEW?
ZZZZ010338	30900	*****( [親名] )*****
ZZZZ010338	31000	DATA={}?&.DATA&GAMES_MAJYAN_OYA_NEW_NAME?
ZZZZ010338	31100	*****( 本場 )*****
ZZZZ010338	31200	DATA={}?&.DATA&GAMES_MAJYAN_HONBASUU?
ZZZZ010338	31300	*****( 本場数(新) )*****
ZZZZ010338	31400	DATA={}?&.DATA&GAMES_MAJYAN_HONBASUU_NEW?
ZZZZ010338	31500	*****( 立直 )*****
ZZZZ010338	31600	DATA={}?&.DATA&GAMES_MAJYAN_RIICHISUU?
ZZZZ010338	31700	*****( 立直数(新) )*****
ZZZZ010338	31800	DATA={}?&.DATA&GAMES_MAJYAN_RIICHISUU_NEW?
ZZZZ010338	31900	*****( 和了 )*****
ZZZZ010338	32000	DATA={}?&.DATA&GAMES_MAJYAN_HOORA?
ZZZZ010338	32100	*****( 放銃 )*****
ZZZZ010338	32200	DATA={}?&.DATA&GAMES_MAJYAN_HOUZYUU?
ZZZZ010338	32300	*****( 親(1)東 )*****
ZZZZ010338	32400	REPEAT0=4
ZZZZ010338	32500	DATA={}?&.DATA&GAMES_MAJYAN_$$_OYA_COM?
ZZZZ010338	32600	*****( 氏名(1)東 )*****
ZZZZ010338	32700	DATA={}?&.DATA&GAMES_MAJYAN_$$_NAME?
ZZZZ010338	32800	*****( 上がり親(1)東 )*****
ZZZZ010338	32900	DATA={}?&.DATA&GAMES_MAJYAN_$$_HOORA_HOUZYUU?
ZZZZ010338	33000	*****( 立直(1)東 )*****
ZZZZ010338	33100	DATA={}?&.DATA&GAMES_MAJYAN_$$_RIICHI?
ZZZZ010338	33200	*****( 点数(1)東 )*****
ZZZZ010338	33300	DATA={}?&.DATA&GAMES_MAJYAN_$$_SCORE?
ZZZZ010338	33400	*****( 得点(1)東 )*****
ZZZZ010338	33500	DATA={}?&.DATA&GAMES_MAJYAN_$$_SCORE_TEN?
ZZZZ010338	33600	*****( 点数(新)(1)東 )*****
ZZZZ010338	33700	*****( 立直(1)東 )*****
ZZZZ010338	33800	DATA={}?&.DATA&GAMES_MAJYAN_$$_SCORE_RIICHI?
ZZZZ010338	33900	*****( 本場(1)東 )*****
ZZZZ010338	34000	DATA={}?&.DATA&GAMES_MAJYAN_$$_SCORE_HONBA?
ZZZZ010338	34100	REPEAT0=
ZZZZ010338	34200	*****( 役 )*****
ZZZZ010338	34300	DATA={}?&.DATA&GAMES_MAJYAN_YAKU?
ZZZZ010338	34400	*****( 役名 )*****
ZZZZ010338	34500	DATA={}?&.DATA&GAMES_MAJYAN_YAKU_COM?
ZZZZ010338	34600	*****( 翻 )*****
ZZZZ010338	34700	DATA={}?&.DATA&GAMES_MAJYAN_HAN?
ZZZZ010338	34800	*****( 翻(持ち点) )*****
ZZZZ010338	34900	DATA={}?&.DATA&GAMES_MAJYAN_HAN_TEN?
ZZZZ010338	35000	*****( 門前 )*****
ZZZZ010338	35100	DATA={}?&.DATA&GAMES_MAJYAN_MONZEN?
ZZZZ010338	35200	*****( 門前 )*****
ZZZZ010338	35300	DATA={}?&.DATA&GAMES_MAJYAN_MONZEN_TEN?
ZZZZ010338	35400	*****( 役牌雀頭 )*****
ZZZZ010338	35500	DATA={}?&.DATA&GAMES_MAJYAN_ATAMA?
ZZZZ010338	35600	*****( 雀頭点 )*****
ZZZZ010338	35700	DATA={}?&.DATA&GAMES_MAJYAN_ATAMA_TEN?
ZZZZ010338	35800	*****( 単騎/間辺張 )*****
ZZZZ010338	35900	DATA={}?&.DATA&GAMES_MAJYAN_TANNKI?
ZZZZ010338	36000	*****( 単騎点 )*****
ZZZZ010338	36100	DATA={}?&.DATA&GAMES_MAJYAN_TANNKI_TEN?
ZZZZ010338	36200	REPEAT0=8
ZZZZ010338	36300	*****( 明刻中張 )*****
ZZZZ010338	36400	DATA={}?&.DATA&GAMES_MAJYAN_$$_MINAN?
ZZZZ010338	36500	*****( 明刻中張 )*****
ZZZZ010338	36600	REPEAT0=8
ZZZZ010338	36700	DATA={}?&.DATA&GAMES_MAJYAN_$$_MINAN_TEN?
ZZZZ010338	36900	*****( 親ロン )*****
ZZZZ010338	37000	DATA={}?&.DATA&GAMES_MAJYAN_$$_TEN?
ZZZZ010338	37100	REPEAT0=
ZZZZ010338	37200	*****( 符数 )*****
ZZZZ010338	37300	DATA={}?&.DATA&GAMES_MAJYAN_FU?
ZZZZ010338	37400	*****( 終局 )*****
ZZZZ010338	37500	DATA={}?&.DATA&GAMES_MAJYAN_SYUUKYOKU?
ZZZZ010338	37600	COPY=@ZZZZZZ_SQL
ZZZZ010339	100	PROGRAM=NOT
ZZZZ010339	200	DATA={N}FUMMY{1}
ZZZZ010339	300	=IF_TABLE{?_MM?_GAMES_MAJYAN_N_TABLE}EXIT{+1};
ZZZZ010339	400	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010339	500	DATA={O}MESSAGE{50}
ZZZZ010339	600	DATA=YES{3}{YES,NO}
ZZZZ010339	700	=IF{_DATA='YES'}EXE_I{ZZZZ010340};
ZZZZ010339	800	=EXIT{_END};
ZZZZ010339	900	PROGRAM=OUTPUT,&X1,?_MM?_GAMES_MAJYAN_TABLE
ZZZZ010339	1000	CONTROL=0
ZZZZ010339	1100	BEGIN
ZZZZ010339	1200	=SET{.GAMES_MAJYAN_DATE=!.GAMES_MAJYAN_DATE};
ZZZZ010339	1300	*SET{WC.ESWN1='E',WC.ESWN2='S',WC.ESWN3='W',WC.ESWN4='N'};
ZZZZ010339	1400	I-=SET{WN.C1=,WN.C2=};
ZZZZ010339	1500	I+=SET{WN.C1='RTRIM(CHAR(',WN.C2='))'};
ZZZZ010339	1600	SET={}.?&.SET&GAMES_MAJYAN_DATE?
ZZZZ010339	1700	*****( 年月日 )*****
ZZZZ010339	1800	DATA={KDG  }?&.DATA&GAMES_MAJYAN_DATE?
ZZZZ010339	1810	DATA={KDG  }?&.DATA&GAMES_MAJYAN_KUBUN?
ZZZZ010339	1900	DATA={,,80}?&.DATA&GAMES_MAJYAN_GAME?
ZZZZ010339	2000	SELECT=MAX(X1.GAMES_MAJYAN_GAME)
ZZZZ010339	2100	TITLE=ゲーム数
ZZZZ010339	2200	COPY=@ZZZZZZ_SQL
ZZZZ010339	2300	END
ZZZZ010339	2400	=EXIT{0};
ZZZZ010339	2500	PROGRAM=,&X1,?_MM?_GAMES_MAJYAN_TABLE
ZZZZ010339	2600	CONTROL=0,2,SCROLL
ZZZZ010339	2700	BEGIN
ZZZZ010339	2800	H-=SET{WN.ONE=};
ZZZZ010339	2900	H+=SET{WN.ONE='*ZZZZZZ_ONE'};
ZZZZ010339	3000	L-=SET{WN.CAST='CAST(',WN.AS_INT='AS INT)'};
ZZZZ010339	3100	L+=SET{WN.CAST=,WN.AS_INT=};
ZZZZ010339	3200	=COMPUTE{W0.LEN12=12*_UTF8_SET};
ZZZZ010339	3300	SET={KO,}.=?&.DATA&GAMES_MAJYAN_DATE?
ZZZZ010339	3310	SET={KO,}.=?&.DATA&GAMES_MAJYAN_KUBUN?
ZZZZ010339	3400	SET={}.?&.SET&GAMES_MAJYAN_GAME?
ZZZZ010339	3500	START
ZZZZ010339	3600	=SET{WC.ESWN='1'};
ZZZZ010339	3700	DATA={K}?&.DATA&GAMES_MAJYAN_GAME?
ZZZZ010339	3800	*****( 番号 )*****
ZZZZ010339	3900	DATA={K,,2}?&.DATA&GAMES_MAJYAN_TAKU?
ZZZZ010339	4000	*****( 名前_東 )*****
ZZZZ010339	4100	DATA={  }?&.DATA&GAMES_MAJYAN_1_NAME?
ZZZZ010339	4300	NAME=CHECK2_1
ZZZZ010339	4400	CHECK2=SELECT GAMES_MAJYAN_NAME,?WN.CAST??_CL?
ZZZZ010339	4500	REPEAT=4
ZZZZ010339	4600	1-CHECK2=   ?_C?
ZZZZ010339	4700	CHECK2= CASE WHEN O_##<10  THEN '000' WHEN
ZZZZ010339	4800	CHECK2=           O_##<100 THEN '00' ELSE '0' END?_C?
ZZZZ010339	5000	CHECK2= ?WN.CAST??$WN.C1?O_##?$WN.C2?
ZZZZ010339	5100	L-CHECK2=   AS VARCHAR(3))
ZZZZ010339	5200	REPEAT=
ZZZZ010339	5300	L+CHECK2= ?_CR?
ZZZZ010339	5400	L-CHECK2= AS VARCHAR(16))
ZZZZ010339	5500	CHECK2=   FROM (SELECT GAMES_MAJYAN_NAME,
ZZZZ010339	5600	*****( 1 東南西北の設定済み回数の少ない順 )***
ZZZZ010339	5700	CHECK2= (SELECT COUNT(*) FROM ?_TABLE? WHERE
ZZZZ010339	5800	CHECK2= ?_VRE&.GAMES_MAJYAN_DATE? AND Z_CANCEL=' ' AND
ZZZZ010339	5900	CHECK2= GAMES_MAJYAN_NAME=GAMES_MAJYAN_NAME?WC.ESWN?)AS O_1,
ZZZZ010339	6000	NAME=
ZZZZ010339	6100	CHECK2= 0
ZZZZ010339	6200	NAME=CHECK2_2
ZZZZ010339	6300	****( 3 出場回数の少ない順 )***
ZZZZ010339	6400	CHECK2=AS O_2,(SELECT COUNT(*) FROM ?_TABLE? WHERE
ZZZZ010339	6500	CHECK2= ?_VRE&.GAMES_MAJYAN_DATE? AND Z_CANCEL=' ' AND
ZZZZ010339	6600	CHECK2= GAMES_MAJYAN_NAME IN(GAMES_MAJYAN_1_NAME
ZZZZ010339	6700	CHECK2= ,GAMES_MAJYAN_2_NAME,GAMES_MAJYAN_3_NAME
ZZZZ010339	6800	CHECK2= ,GAMES_MAJYAN_4_NAME))AS O_3
ZZZZ010339	6900	CHECK2= ,GAMES_MAJYAN_ORDER AS O_4
ZZZZ010339	7000	CHECK2= FROM ?_MM?_GAMES_MAJYAN_N_TABLE
ZZZZ010339	7100	CHECK2= WHERE GAMES_MAJYAN_ENTRY<>'*' AND Z_CANCEL=' '
ZZZZ010339	7200	CHECK2= AND NOT EXISTS( SELECT 0 FROM ?_TABLE?
ZZZZ010339	7300	CHECK2= WHERE (GAMES_MAJYAN_NAME
ZZZZ010339	7400	CHECK2= IN(GAMES_MAJYAN_1_NAME,GAMES_MAJYAN_2_NAME
ZZZZ010339	7500	CHECK2= ,GAMES_MAJYAN_3_NAME,GAMES_MAJYAN_4_NAME)
ZZZZ010339	7600	CHECK2= AND ?_VRL&GAMES_MAJYAN_TAKU?
ZZZZ010339	7700	NAME=
ZZZZ010339	7800	NAME=CHECK2_3
ZZZZ010339	7900	CHECK2= )AND ?_VRE&.GAMES_MAJYAN_DATE? AND Z_CANCEL=' '
ZZZZ010339	8000	CHECK2= AND ?_VRE&GAMES_MAJYAN_GAME?)
ZZZZ010339	8200	CHECK2= UNION ALL SELECT ' ',0,0,0,0 ?_FROM_DUAL?)T1
ZZZZ010339	8300	CHECK2= ORDER BY 2,1
ZZZZ010339	8400	NAME=
ZZZZ010339	8500	COMMENT_BEGIN
ZZZZ010339	8600	CHECK2=   ?WN.CAST?SUM(CASE WHEN GAMES_MAJYAN_SEAT=
ZZZZ010339	8700	NAME=
ZZZZ010339	8800	CHECK2=   ?_N?'東'
ZZZZ010339	8900	NAME=CHECK_NAME2
ZZZZ010339	9000	CHECK2=   THEN CASE WHEN ?_VRE&GAMES_MAJYAN_TAKU? THEN 2
ZZZZ010339	9100	CHECK2=   ?WN.ONE? ELSE 1?WN.ONE? END ELSE 0?WN.ONE? END)+1
ZZZZ010339	9200	CHECK2=   ?WN.AS_INT? AS GAMES_MAJYAN_1,
ZZZZ010339	9300	NAME=
ZZZZ010339	9400	CHECK2=   ?WN.CAST?SUM(0?WN.ONE?
ZZZZ010339	9500	NAME=CHECK_NAME4
ZZZZ010339	9600	CHECK2=   )+1 ?WN.AS_INT?AS GAMES_MAJYAN_2
ZZZZ010339	9700	CHECK2=   ,?WN.CAST?COUNT(*)+1 ?WN.AS_INT?AS GAMES_MAJYAN_3,
ZZZZ010339	9800	CHECK2=   ?WN.CAST?(SELECT GAMES_MAJYAN_ORDER
ZZZZ010339	10000	CHECK2=   FROM ?_MM?_GAMES_MAJYAN_N_TABLE T
ZZZZ010339	10100	CHECK2=   WHERE T.Z_CANCEL=' '
ZZZZ010339	10200	CHECK2=   AND V.?_NE&T.GAMES_MAJYAN_NAME?)+1 ?WN.AS_INT?
ZZZZ010339	10300	CHECK2=   AS GAMES_MAJYAN_4 FROM
ZZZZ010339	10400	CHECK2=  ?_MM?_GAMES_MAJYAN_VIEW V
ZZZZ010339	10500	H+CHECK2=   ,?_MP_ZZZZ?ZZ_DUAL_TABLE
ZZZZ010339	10600	CHECK2=   WHERE ?_VRE&.GAMES_MAJYAN_DATE?
ZZZZ010339	10800	CHECK2=   AND V.Z_CANCEL=' ' AND GAMES_MAJYAN_NAME<>' '
ZZZZ010339	10900	CHECK2=   AND(?_VRLG&GAMES_MAJYAN_GAME?
ZZZZ010339	11000	CHECK2=   OR ?_VRLG&GAMES_MAJYAN_TAKU?)
ZZZZ010339	11100	CHECK2=   GROUP BY GAMES_MAJYAN_NAME
ZZZZ010339	11200	*OMMENT_BEGIN
ZZZZ010339	11300	CHECK2=   UNION SELECT GAMES_MAJYAN_NAME
ZZZZ010339	11400	CHECK2=   ,?WN.CAST?1 ?WN.AS_INT?AS GAMES_MAJYAN_1
ZZZZ010339	11500	CHECK2=   ,?WN.CAST?1 ?WN.AS_INT?AS GAMES_MAJYAN_2
ZZZZ010339	11600	CHECK2=   ,?WN.CAST?1 ?WN.AS_INT?AS GAMES_MAJYAN_3,
ZZZZ010339	11700	CHECK2=   ?WN.CAST?GAMES_MAJYAN_ORDER+1 ?WN.AS_INT?AS
ZZZZ010339	11800	CHECK2=   GAMES_MAJYAN_4
ZZZZ010339	11900	CHECK2=   FROM ?_MM?_GAMES_MAJYAN_N_TABLE
ZZZZ010339	12000	CHECK2=   WHERE GAMES_MAJYAN_ENTRY<>'*' AND Z_CANCEL=' '
ZZZZ010339	12100	CHECK2=   AND GAMES_MAJYAN_NAME NOT IN
ZZZZ010339	12200	CHECK2=   (SELECT GAMES_MAJYAN_NAME
ZZZZ010339	12300	CHECK2=   FROM ?_MM?_GAMES_MAJYAN_VIEW
ZZZZ010339	12400	CHECK2=   WHERE ?_VRE&.GAMES_MAJYAN_DATE?
ZZZZ010339	12500	CHECK2=   AND Z_CANCEL=' '
ZZZZ010339	12600	CHECK2=   AND(?_VRLG&GAMES_MAJYAN_GAME?
ZZZZ010339	12700	CHECK2=   OR ?_VRLG&GAMES_MAJYAN_TAKU?))
ZZZZ010339	12800	CHECK2=   UNION SELECT
ZZZZ010339	12900	CHECK2=   CAST(?_N?' '
ZZZZ010339	13000	CHECK2=   AS ?_SQL_NCHAR?(?W0.LEN12?)?_SQL_CHAR_SET?)
ZZZZ010339	13100	CHECK2=   AS GAMES_MAJYAN_NAME
ZZZZ010339	13200	CHECK2=   ,?WN.CAST?1 ?WN.AS_INT?AS GAMES_MAJYAN_1
ZZZZ010339	13300	CHECK2=   ,?WN.CAST?1 ?WN.AS_INT?AS GAMES_MAJYAN_2
ZZZZ010339	13400	CHECK2=   ,?WN.CAST?1 ?WN.AS_INT?AS GAMES_MAJYAN_3
ZZZZ010339	13500	CHECK2=   ,?WN.CAST?1 ?WN.AS_INT?AS GAMES_MAJYAN_4
ZZZZ010339	13600	CHECK2=   ?_FROM_DUAL?
ZZZZ010339	13700	CHECK2=   ) T WHERE(GAMES_MAJYAN_NAME NOT
ZZZZ010339	13800	CHECK2=   IN(SELECT GAMES_MAJYAN_NAME
ZZZZ010339	13900	CHECK2=   FROM  ?_MM?_GAMES_MAJYAN_VIEW
ZZZZ010339	14000	CHECK2=   WHERE ?_VRE&.GAMES_MAJYAN_DATE?
ZZZZ010339	14100	CHECK2=   AND Z_CANCEL=' '
ZZZZ010339	14200	CHECK2=   AND ?_VRE&GAMES_MAJYAN_GAME?
ZZZZ010339	14300	CHECK2=   AND ?_VRLG&GAMES_MAJYAN_TAKU?
ZZZZ010339	14500	*OMMENT_END
ZZZZ010339	14600	NAME=
ZZZZ010339	14700	CHECK2=   )OR GAMES_MAJYAN_NAME=' ' ORDER BY 2,1
ZZZZ010339	14800	COMMENT_END
ZZZZ010339	14900	=IF{_DATA=}IF{GAMES_MAJYAN_1_SCORE<>0}ERROR{点数あり};
ZZZZ010339	15000	=SET{WC.ESWN='2',WN.NAME_LEFT=_DATA};
ZZZZ010339	15100	*****( 点数_東 )*****
ZZZZ010339	15200	DATA={*O,,2}?&.DATA&GAMES_MAJYAN_1_SCORE?
ZZZZ010339	15300	*****( 名前_南 )*****
ZZZZ010339	15400	DATA={  }?&.DATA&GAMES_MAJYAN_2_NAME?
ZZZZ010339	15500	NAME=CHECK2_12
ZZZZ010339	15600	COPY=CHECK2_1
ZZZZ010339	15700	*****( 2 東除く上家が同じ人の回数の少ない順)***
ZZZZ010339	15800	CHECK2=(SELECT COUNT(*) FROM ?_TABLE? WHERE
ZZZZ010339	15900	CHECK2= ?_VRE&.GAMES_MAJYAN_DATE? AND Z_CANCEL=' ' AND (
ZZZZ010339	16000	REPEAT=3
ZZZZ010339	16100	1-CHECK2= OR
ZZZZ010339	16200	CHECK2=  '?WN.NAME_LEFT?'=GAMES_MAJYAN_NAME_## AND
ZZZZ010339	16300	CHECK2= GAMES_MAJYAN_NAME=GAMES_MAJYAN_NAME_#+
ZZZZ010339	16400	REPEAT=
ZZZZ010339	16410	CHECK2= ))
ZZZZ010339	16500	COPY=CHECK2_2
ZZZZ010339	16600	NAME=
ZZZZ010339	16700	CHECK2= OR GAMES_MAJYAN_NAME IN('?GAMES_MAJYAN_1_NAME?')
ZZZZ010339	16800	COPY=CHECK2_3
ZZZZ010339	16900	COMMENT_BEGIN
ZZZZ010339	17000	COPY=CHECK_NAME1
ZZZZ010339	17100	CHECK2=?_N?'南'
ZZZZ010339	17200	COPY=CHECK_NAME2
ZZZZ010339	17300	NAME=CHECK_NAME3
ZZZZ010339	17400	CHECK2=   ?WN.CAST?(SELECT COUNT(*)
ZZZZ010339	17500	CHECK2=   FROM ?_MM?_GAMES_MAJYAN_TABLE
ZZZZ010339	17600	CHECK2=   T WHERE T.Z_CANCEL =' '
ZZZZ010339	17700	CHECK2=   AND  T.?_VRE&.GAMES_MAJYAN_DATE?
ZZZZ010339	17800	CHECK2=   AND( T.?_VRLG&GAMES_MAJYAN_GAME?
ZZZZ010339	17900	CHECK2=   OR   T.?_VRLG&GAMES_MAJYAN_TAKU?)
ZZZZ010339	18000	NAME=
ZZZZ010339	18100	*HECK2= AND ?_N?'?GAMES_MAJYAN_1_NAME?'
ZZZZ010339	18200	*HECK2= IN(GAMES_MAJYAN_1_NAME,GAMES_MAJYAN_2_NAME
ZZZZ010339	18300	*HECK2= ,GAMES_MAJYAN_3_NAME,GAMES_MAJYAN_4_NAME)
ZZZZ010339	18400	CHECK2=   AND (
ZZZZ010339	18500	CHECK2=   ?_N?'?GAMES_MAJYAN_1_NAME?'=GAMES_MAJYAN_1_NAME
ZZZZ010339	18600	CHECK2=   OR
ZZZZ010339	18700	CHECK2=   ?_N?'?GAMES_MAJYAN_1_NAME?'=GAMES_MAJYAN_2_NAME
ZZZZ010339	18800	CHECK2=   OR
ZZZZ010339	18900	CHECK2=   ?_N?'?GAMES_MAJYAN_1_NAME?'=GAMES_MAJYAN_3_NAME
ZZZZ010339	19000	CHECK2=   OR
ZZZZ010339	19100	CHECK2=   ?_N?'?GAMES_MAJYAN_1_NAME?'=GAMES_MAJYAN_4_NAME
ZZZZ010339	19200	CHECK2=   )AND V.GAMES_MAJYAN_NAME
ZZZZ010339	19300	CHECK2=   IN(GAMES_MAJYAN_1_NAME,GAMES_MAJYAN_2_NAME
ZZZZ010339	19400	CHECK2=   ,GAMES_MAJYAN_3_NAME,GAMES_MAJYAN_4_NAME)
ZZZZ010339	19500	*HECK2=    AND GAMES_MAJYAN_NAME=GAMES_MAJYAN_2_NAME
ZZZZ010339	19600	COPY=CHECK_NAME4
ZZZZ010339	19700	CHECK2=   AND GAMES_MAJYAN_NAME
ZZZZ010339	19800	CHECK2=   <>'?GAMES_MAJYAN_1_NAME?')
ZZZZ010339	19900	CHECK2=   OR GAMES_MAJYAN_NAME=' ' ORDER BY 2,1
ZZZZ010339	20000	COMMENT_END
ZZZZ010339	20100	=IF{_DATA=}IF{GAMES_MAJYAN_2_SCORE<>0}ERROR{点数あり};
ZZZZ010339	20200	=SET{WC.ESWN='3',WN.NAME_LEFT=_DATA};
ZZZZ010339	20210	=IF{GAMES_MAJYAN_3_NAME='***'}EXIT3{GAMES_MAJYAN_4_NAME};
ZZZZ010339	20300	*****( 点数_南 )*****
ZZZZ010339	20400	DATA={*O,,2}?&.DATA&GAMES_MAJYAN_2_SCORE?
ZZZZ010339	20500	*****( 名前_西 )*****
ZZZZ010339	20600	DATA={  }?&.DATA&GAMES_MAJYAN_3_NAME?
ZZZZ010339	20700	COPY=CHECK2_12
ZZZZ010339	21600	CHECK2= OR GAMES_MAJYAN_NAME IN('?GAMES_MAJYAN_1_NAME?'
ZZZZ010339	21700	CHECK2= ,'?GAMES_MAJYAN_2_NAME?')
ZZZZ010339	21800	COPY=CHECK2_3
ZZZZ010339	21900	COMMENT_BEGIN
ZZZZ010339	22000	COPY=CHECK_NAME1
ZZZZ010339	22100	CHECK2=   ?_N?'西'
ZZZZ010339	22200	COPY=CHECK_NAME2
ZZZZ010339	22300	COPY=CHECK_NAME3
ZZZZ010339	22400	*HECK2= AND ?_N?'?GAMES_MAJYAN_1_NAME?'
ZZZZ010339	22500	*HECK2= IN(GAMES_MAJYAN_1_NAME,GAMES_MAJYAN_2_NAME
ZZZZ010339	22600	*HECK2=   ,GAMES_MAJYAN_3_NAME,GAMES_MAJYAN_4_NAME)
ZZZZ010339	22700	CHECK2=   AND (
ZZZZ010339	22800	CHECK2=   ?_N?'?GAMES_MAJYAN_1_NAME?'=GAMES_MAJYAN_1_NAME
ZZZZ010339	22900	CHECK2=   OR
ZZZZ010339	23000	CHECK2=   ?_N?'?GAMES_MAJYAN_1_NAME?'=GAMES_MAJYAN_2_NAME
ZZZZ010339	23100	CHECK2=   OR
ZZZZ010339	23200	CHECK2=   ?_N?'?GAMES_MAJYAN_1_NAME?'=GAMES_MAJYAN_3_NAME
ZZZZ010339	23300	CHECK2=   OR
ZZZZ010339	23400	CHECK2=   ?_N?'?GAMES_MAJYAN_1_NAME?'=GAMES_MAJYAN_4_NAME
ZZZZ010339	23500	*HECK2=)AND ?_N?'?GAMES_MAJYAN_2_NAME?'
ZZZZ010339	23600	*HECK2= IN(GAMES_MAJYAN_1_NAME,GAMES_MAJYAN_2_NAME
ZZZZ010339	23700	*HECK2=   ,GAMES_MAJYAN_3_NAME,GAMES_MAJYAN_4_NAME)
ZZZZ010339	23800	CHECK2=   )AND(
ZZZZ010339	23900	CHECK2=   ?_N?'?GAMES_MAJYAN_2_NAME?'=GAMES_MAJYAN_1_NAME
ZZZZ010339	24000	CHECK2=   OR
ZZZZ010339	24100	CHECK2=   ?_N?'?GAMES_MAJYAN_2_NAME?'=GAMES_MAJYAN_2_NAME
ZZZZ010339	24200	CHECK2=   OR
ZZZZ010339	24300	CHECK2=   ?_N?'?GAMES_MAJYAN_2_NAME?'=GAMES_MAJYAN_3_NAME
ZZZZ010339	24400	CHECK2=   OR
ZZZZ010339	24500	CHECK2=   ?_N?'?GAMES_MAJYAN_2_NAME?'=GAMES_MAJYAN_4_NAME
ZZZZ010339	24600	CHECK2=   )AND V.GAMES_MAJYAN_NAME
ZZZZ010339	24700	CHECK2=   IN(GAMES_MAJYAN_1_NAME,GAMES_MAJYAN_2_NAME
ZZZZ010339	24800	CHECK2=   ,GAMES_MAJYAN_3_NAME,GAMES_MAJYAN_4_NAME)
ZZZZ010339	24900	*HECK2= AND GAMES_MAJYAN_NAME=GAMES_MAJYAN_3_NAME
ZZZZ010339	25000	COPY=CHECK_NAME4
ZZZZ010339	25100	CHECK2=   AND GAMES_MAJYAN_NAME
ZZZZ010339	25200	CHECK2=   <>'?GAMES_MAJYAN_1_NAME?'
ZZZZ010339	25300	CHECK2=   AND GAMES_MAJYAN_NAME
ZZZZ010339	25400	CHECK2=   <>'?GAMES_MAJYAN_2_NAME?')
ZZZZ010339	25500	CHECK2=   OR GAMES_MAJYAN_NAME=' ' ORDER BY 2,1
ZZZZ010339	25600	COMMENT_END                      ' ORDER BY 2,1
ZZZZ010339	25700	=IF{_DATA=}IF{GAMES_MAJYAN_3_SCORE<>0}ERROR{点数あり};
ZZZZ010339	25800	=SET{WC.ESWN='4',WN.NAME_LEFT=_DATA};
ZZZZ010339	25810	=IF{GAMES_MAJYAN_4_NAME='***'}EXIT3{GAMES_MAJYAN_4_NAME};
ZZZZ010339	25900	*****( 点数_西 )*****
ZZZZ010339	26000	DATA={*O,,2}?&.DATA&GAMES_MAJYAN_3_SCORE?
ZZZZ010339	26100	*****( 名前_北 )*****
ZZZZ010339	26200	DATA={  }?&.DATA&GAMES_MAJYAN_4_NAME?
ZZZZ010339	26300	COPY=CHECK2_12
ZZZZ010339	26400	CHECK2= OR GAMES_MAJYAN_NAME IN('?GAMES_MAJYAN_1_NAME?'
ZZZZ010339	26500	CHECK2= ,'?GAMES_MAJYAN_2_NAME?','?GAMES_MAJYAN_3_NAME?')
ZZZZ010339	26600	COPY=CHECK2_3
ZZZZ010339	26700	COMMENT_BEGIN
ZZZZ010339	26800	COPY=CHECK_NAME1
ZZZZ010339	26900	CHECK2=   ?_N?'北'
ZZZZ010339	27000	COPY=CHECK_NAME2
ZZZZ010339	27100	COPY=CHECK_NAME3
ZZZZ010339	27200	*HECK2= AND ?_N?'?GAMES_MAJYAN_1_NAME?'
ZZZZ010339	27300	*HECK2= IN(GAMES_MAJYAN_1_NAME,GAMES_MAJYAN_2_NAME
ZZZZ010339	27400	*HECK2=   ,GAMES_MAJYAN_3_NAME,GAMES_MAJYAN_4_NAME)
ZZZZ010339	27500	CHECK2=   AND(
ZZZZ010339	27600	CHECK2=   ?_N?'?GAMES_MAJYAN_1_NAME?'=GAMES_MAJYAN_1_NAME
ZZZZ010339	27700	CHECK2=   OR
ZZZZ010339	27800	CHECK2=   ?_N?'?GAMES_MAJYAN_1_NAME?'=GAMES_MAJYAN_2_NAME
ZZZZ010339	27900	CHECK2=   OR
ZZZZ010339	28000	CHECK2=   ?_N?'?GAMES_MAJYAN_1_NAME?'=GAMES_MAJYAN_3_NAME
ZZZZ010339	28100	CHECK2=   OR
ZZZZ010339	28200	CHECK2=   ?_N?'?GAMES_MAJYAN_1_NAME?'=GAMES_MAJYAN_4_NAME
ZZZZ010339	28300	*HECK2=)AND ?_N?'?GAMES_MAJYAN_2_NAME?'
ZZZZ010339	28400	*HECK2= IN(GAMES_MAJYAN_1_NAME,GAMES_MAJYAN_2_NAME
ZZZZ010339	28500	*HECK2=   ,GAMES_MAJYAN_3_NAME,GAMES_MAJYAN_4_NAME)
ZZZZ010339	28600	*HECK2= AND ?_N?'?GAMES_MAJYAN_3_NAME?'
ZZZZ010339	28700	CHECK2=   )AND(
ZZZZ010339	28800	CHECK2=   ?_N?'?GAMES_MAJYAN_2_NAME?'=GAMES_MAJYAN_1_NAME
ZZZZ010339	28900	CHECK2=   OR
ZZZZ010339	29000	CHECK2=   ?_N?'?GAMES_MAJYAN_2_NAME?'=GAMES_MAJYAN_2_NAME
ZZZZ010339	29100	CHECK2=   OR
ZZZZ010339	29200	CHECK2=   ?_N?'?GAMES_MAJYAN_2_NAME?'=GAMES_MAJYAN_3_NAME
ZZZZ010339	29300	CHECK2=   OR
ZZZZ010339	29400	CHECK2=   ?_N?'?GAMES_MAJYAN_2_NAME?'=GAMES_MAJYAN_4_NAME
ZZZZ010339	29500	*HECK2= AND ?_N?'?GAMES_MAJYAN_3_NAME?'
ZZZZ010339	29600	*HECK2= IN(GAMES_MAJYAN_1_NAME,GAMES_MAJYAN_2_NAME
ZZZZ010339	29700	*HECK2=   ,GAMES_MAJYAN_3_NAME,GAMES_MAJYAN_4_NAME)
ZZZZ010339	29800	CHECK2=   )AND(
ZZZZ010339	29900	CHECK2=   ?_N?'?GAMES_MAJYAN_3_NAME?'=GAMES_MAJYAN_1_NAME
ZZZZ010339	30000	CHECK2=   OR
ZZZZ010339	30100	CHECK2=   ?_N?'?GAMES_MAJYAN_3_NAME?'=GAMES_MAJYAN_2_NAME
ZZZZ010339	30200	CHECK2=   OR
ZZZZ010339	30300	CHECK2=   ?_N?'?GAMES_MAJYAN_3_NAME?'=GAMES_MAJYAN_3_NAME
ZZZZ010339	30400	CHECK2=   OR
ZZZZ010339	30500	CHECK2=   ?_N?'?GAMES_MAJYAN_3_NAME?'=GAMES_MAJYAN_4_NAME
ZZZZ010339	30600	CHECK2=   )AND V.GAMES_MAJYAN_NAME
ZZZZ010339	30700	CHECK2=   IN(GAMES_MAJYAN_1_NAME,GAMES_MAJYAN_2_NAME
ZZZZ010339	30800	CHECK2=   ,GAMES_MAJYAN_3_NAME,GAMES_MAJYAN_4_NAME)
ZZZZ010339	30900	COPY=CHECK_NAME4
ZZZZ010339	31000	CHECK2=   AND  GAMES_MAJYAN_NAME
ZZZZ010339	31100	CHECK2=   <>'?GAMES_MAJYAN_1_NAME?'
ZZZZ010339	31200	CHECK2=   AND  GAMES_MAJYAN_NAME
ZZZZ010339	31300	CHECK2=   <>'?GAMES_MAJYAN_2_NAME?'
ZZZZ010339	31400	CHECK2=   AND  GAMES_MAJYAN_NAME
ZZZZ010339	31500	CHECK2=   <>'?GAMES_MAJYAN_3_NAME?'
ZZZZ010339	31600	CHECK2=   )OR GAMES_MAJYAN_NAME=' ' ORDER BY 2,1
ZZZZ010339	31700	COMMENT_END
ZZZZ010339	31800	=IF{_DATA=}IF{GAMES_MAJYAN_4_SCORE<>0}ERROR{点数あり};
ZZZZ010339	31900	*****( 点数_北 )*****
ZZZZ010339	32000	DATA={*O }?&.DATA&GAMES_MAJYAN_4_SCORE?
ZZZZ010339	32100	COPY=@ZZZZZZ_SQL
ZZZZ010339	32200	PROGRAM=OUTPUT,&X1,?_MM?_GAMES_MAJYAN_VIEW
ZZZZ010339	32300	CONTROL=ROLLUP
ZZZZ010339	32400	SET={KO,}$.?&.DATA&GAMES_MAJYAN_DATE?
ZZZZ010339	32500	DATA={G}?&.DATA&GAMES_MAJYAN_NAME?
ZZZZ010339	32600	DATA={G}?&.DATA&GAMES_MAJYAN_KUBUN?
ZZZZ010339	32700	DATA=COUNT{5,,1}試合数
ZZZZ010339	32800	SELECT=COUNT(*)
ZZZZ010339	32900	COPY=@ZZZZZZ_SQL
ZZZZ010340	100	PROGRAM=NOT
ZZZZ010340	200	=SET{WN.C='GAMES_MAJYAN_'};
ZZZZ010340	300	JA+FORM=   麻雀テーブルを作成します。
ZZZZ010340	400	FORM= @@@@ {YES,NO,翻符検索,持点ウマ更新,データ削除}
ZZZZ010340	500	DATA=YES{12,,/}{YES,NO,翻符検索,持点ウマ検索,データ削除}
ZZZZ010340	600	=IF{_DATA!='翻符検索'}JUMP{J};
ZZZZ010340	700	=IF_TABLE_NOT{?_MP_ZZZY?ZZ_?WN.C?HF_TABLE}
ZZZZ010340	800	=    ERROR{翻符検索テーブル無し};
ZZZZ010340	900	=SET{YES=,%HF_COMMENT='-'};
ZZZZ010340	1000	=EXIT{+1};
ZZZZ010340	1100	=J:IF{_DATA!='持点ウマ検索'}JUMP{J};
ZZZZ010340	1200	=IF_TABLE_NOT{?_MP_ZZZY?ZZ_?WN.C?OU_TABLE}
ZZZZ010340	1300	=    ERROR{持点ウマ検索テーブル無し};
ZZZZ010340	1400	=SET{YES=,%OU_COMMENT='-',%HF_COMMENT='+'};
ZZZZ010340	1500	=EXIT{+1};
ZZZZ010340	1600	=J:IF{_DATA!='データ削除'}JUMP{J};
ZZZZ010340	1700	=IF_TABLE_NOT{?_MP_ZZZY?ZZ_?WN.C?TABLE}
ZZZZ010340	1800	=    ERROR{該当テーブル無し};
ZZZZ010340	1900	=SET{YES=,%CAN_COMMENT='-',%HF_COMMENT='+',%OU_COMMENT='+'};
ZZZZ010340	2000	=EXIT{+1};
ZZZZ010340	2100	=J:IF{_DATA!='YES'}EXIT{_END};
ZZZZ010340	2200	=SET{YES=};
ZZZZ010340	2300	=IF_NOT{_PERMISSION='ZZZZ',='ZZZY'}
ZZZZ010340	2400	=   ERROR{PERMISSION='ZZZZ' OR ='ZZZZY'};
ZZZZ010340	2500	******( DICTIONARY )************************
ZZZZ010340	2600	=SET{WC.SYSTEM_PERMISSION='ZZZY'};
ZZZZ010340	2700	=SET{WC.SYSTEM_PART='ZZ'};
ZZZZ010340	2800	=SET{WC.SYSTEM_TYPE2=};
ZZZZ010340	2900	=SET{WC.SYSTEM_LANG='JA',WC.SYSTEM_CHECK=
ZZZZ010340	3000	=,WN.SYSTEM_CHECK61=,WN.SYSTEM_CHECK62=,WN.SYSTEM_CHECK63=};
ZZZZ010340	3100	=SET{WN.N='DATE',WN.H='日付',WN.D='CHAR',WN.1=8,WN.T='D'};
ZZZZ010340	3200	NAME=PROGRAM_DICTIONARY
ZZZZ010340	3300	=SET{WN.SYSTEM_DATA_NAME=WN.C+WN.N};
ZZZZ010340	3400	=SET{WN.SYSTEM_TITLE=WN.H
ZZZZ010340	3500	=   ,WC.SYSTEM_DEFAULT_TYPE=WN.D};
ZZZZ010340	3600	=SET{W0.SYSTEM_DEFAULT_LENGTH1=WN.1,WC.SYSTEM_TYPE1=WN.T};
ZZZZ010340	3700	=PROGRAM{2E,?_MM?_I_DICTIONARY_TABLE
ZZZZ010340	3800	= ,WC.SYSTEM_PART,WN.SYSTEM_TITLE
ZZZZ010340	3900	= ,WC.SYSTEM_DEFAULT_TYPE,W0.SYSTEM_DEFAULT_LENGTH1
ZZZZ010340	4000	= ,WC.SYSTEM_TYPE1,WC.SYSTEM_TYPE2,WC.SYSTEM_CHECK
ZZZZ010340	4100	= ,WN.SYSTEM_CHECK61,WN.SYSTEM_CHECK62,WN.SYSTEM_CHECK63}
ZZZZ010340	4200	= {WC.SYSTEM_PERMISSION,WN.SYSTEM_DATA_NAME,WC.SYSTEM_LANG}
ZZZZ010340	4300	= {};
ZZZZ010340	4400	NAME=
ZZZZ010340	4500	***( 数値(DECIMAL(1,0)+ )****
ZZZZ010340	4600	=SET{WN.D='DECIMAL',WN.1=1,WN.T='+'};
ZZZZ010340	4700	=SET{WC.SYSTEM_CHECK='CHECK',WN.SYSTEM_CHECK61='0,5,9'};
ZZZZ010340	4800	=SET{WN.N='SYUUKYOKU',WN.H='終局'};
ZZZZ010340	4900	COPY=PROGRAM_DICTIONARY
ZZZZ010340	5000	=SET{WC.SYSTEM_CHECK=,WN.SYSTEM_CHECK61=};
ZZZZ010340	5100	=SET{WN.N='ATAMA_TEN',WN.H='雀頭点'};
ZZZZ010340	5200	COPY=PROGRAM_DICTIONARY
ZZZZ010340	5300	=SET{WN.N='TANNKI_TEN',WN.H='単騎点'};
ZZZZ010340	5400	COPY=PROGRAM_DICTIONARY
ZZZZ010340	5500	=SET{WC.SYSTEM_CHECK='CHECK2',WN.SYSTEM_CHECK61=
ZZZZ010340	5600	='7,四風連打(親流れ),8,四風連打(親連荘)'};
ZZZZ010340	5700	=SET{WN.N='SUUFUURENDA',WN.H='四風連打'};
ZZZZ010340	5800	COPY=PROGRAM_DICTIONARY
ZZZZ010340	5900	=SET{WC.SYSTEM_CHECK=,WN.SYSTEM_CHECK61=};
ZZZZ010340	6000	=SET{WN.N1='1',WN.N2='2',WN.N3='3',WN.N4='4',WN.N5=};
ZZZZ010340	6100	=SET{WN.H1='(1)東',WN.H2='(2)南',WN.H3='(3)西',WN.H4='(4)北'
ZZZZ010340	6200	=   ,WN.H5=};
ZZZZ010340	6300	*SET{WN.N='TENPAI',WN.H='聴牌'};
ZZZZ010340	6400	=JUMP{SKIP};
ZZZZ010340	6500	NAME=SUB
ZZZZ010340	6600	=SET{WN.N_KEEP=WN.N,WN.H_KEEP=WN.H};
ZZZZ010340	6700	=SET{WN.N=WN.N##+'_'+WN.N_KEEP,WN.H=WN.H_KEEP+WN.H##};
ZZZZ010340	6800	COPY=PROGRAM_DICTIONARY
ZZZZ010340	6900	=SET{WN.N=WN.N_KEEP,WN.H=WN.H_KEEP};
ZZZZ010340	7000	NAME=
ZZZZ010340	7100	NAME=REPEAT4
ZZZZ010340	7200	REPEAT=4
ZZZZ010340	7300	COPY=SUB
ZZZZ010340	7400	REPEAT=
ZZZZ010340	7500	NAME=
ZZZZ010340	7600	=SKIP:
ZZZZ010340	7700	=SET{WN.N='RIICHI',WN.H='立直'};
ZZZZ010340	7800	COPY=REPEAT4
ZZZZ010340	7900	=SET{WN.N='KUBUN',WN.H='区分',WC.SYSTEM_TYPE2='Z'};
ZZZZ010340	8000	COPY=PROGRAM_DICTIONARY
ZZZZ010340	8100	=SET{WC.SYSTEM_TYPE2=};
ZZZZ010340	8200	=SET{WN.N='HAN',WN.H='翻数'};
ZZZZ010340	8300	COPY=PROGRAM_DICTIONARY
ZZZZ010340	8400	=SET{WC.SYSTEM_CHECK='CHECK2',WN.SYSTEM_CHECK61
ZZZZ010340	8500	=   ='0,鳴き有り,1,門前'};
ZZZZ010340	8600	=SET{WN.N='MONZEN',WN.H='門前'};
ZZZZ010340	8700	COPY=PROGRAM_DICTIONARY
ZZZZ010340	8800	=SET{WN.N='ATAMA',WN.H='役牌雀頭',WN.SYSTEM_CHECK61
ZZZZ010340	8900	=  ='0,役牌以外が雀頭,1,役牌が雀頭'}
ZZZZ010340	9000	COPY=PROGRAM_DICTIONARY
ZZZZ010340	9100	=SET{WN.N='TANNKI',WN.H='単騎/間辺張',WN.SYSTEM_CHECK61
ZZZZ010340	9200	=  ='0,単騎/間張/辺張で無い,1,単騎/間張/辺張'};
ZZZZ010340	9300	COPY=PROGRAM_DICTIONARY
ZZZZ010340	9400	=SET{WC.SYSTEM_CHECK=,WN.SYSTEM_CHECK61=};
ZZZZ010340	9500	=SET{WN.N='HAN',WN.H='翻'};
ZZZZ010340	9600	COPY=PROGRAM_DICTIONARY
ZZZZ010340	9700	=SET{WN.N='HOORA',WN.H='和了'};
ZZZZ010340	9800	COPY=PROGRAM_DICTIONARY
ZZZZ010340	9900	=SET{WN.N='HOUZYUU',WN.H='放銃'};
ZZZZ010340	10000	COPY=PROGRAM_DICTIONARY
ZZZZ010340	10100	=SET{WN.N='OYA',WN.H='親'};
ZZZZ010340	10200	COPY=PROGRAM_DICTIONARY
ZZZZ010340	10300	=SET{WN.N='OYA_NEW',WN.H='親(新)'};
ZZZZ010340	10400	COPY=PROGRAM_DICTIONARY
ZZZZ010340	10500	***( 数値(DECIMAL(2,0)+ )****
ZZZZ010340	10600	=SET{WN.1=2};
ZZZZ010340	10700	=SET{WC.SYSTEM_CHECK='CHECK2',WN.SYSTEM_CHECK61
ZZZZ010340	10800	= ='1,平和(1-3翻/4翻自摸),7,七対子(2～4翻),10,満貫(4～5翻)'
ZZZZ010340	10900	=,WN.SYSTEM_CHECK62
ZZZZ010340	11000	= =',15,跳満(6～7翻),20,2倍満(8～10翻),30,3倍満(11～12翻)'
ZZZZ010340	11100	=,WN.SYSTEM_CHECK63
ZZZZ010340	11200	= =',40,役満(13翻以上),80,ダブル役満,99,その他(1～3翻)'};
ZZZZ010340	11300	=SET{WN.N='YAKU',WN.H='役'};
ZZZZ010340	11400	COPY=PROGRAM_DICTIONARY
ZZZZ010340	11500	=SET{WC.SYSTEM_CHECK=,WN.SYSTEM_CHECK61=,WN.SYSTEM_CHECK62=};
ZZZZ010340	11600	=SET{WN.SYSTEM_CHECK63=};
ZZZZ010340	11700	=SET{WN.N='HAN_TEN',WN.H='翻(持ち点)'};
ZZZZ010340	11800	COPY=PROGRAM_DICTIONARY
ZZZZ010340	11900	=SET{WN.N='MONZEN_TEN',WN.H='門前'};
ZZZZ010340	12000	COPY=PROGRAM_DICTIONARY
ZZZZ010340	12100	***( 数値(DECIMAL(3,0)+ )****
ZZZZ010340	12200	=SET{WC.SYSTEM_CHECK='CHECK',WN.SYSTEM_CHECK61='100,500'};
ZZZZ010340	12300	=SET{WN.SYSTEM_CHECK62=,WN.SYSTEM_CHECK63=};
ZZZZ010340	12400	=SET{WN.1=3,WN.T='+',WC.SYSTEM_TYPE2='Z'};
ZZZZ010340	12500	=SET{WN.N='HONBA_TEN',WN.H='3人麻雀の本場点'};
ZZZZ010340	12600	COPY=PROGRAM_DICTIONARY
ZZZZ010340	12700	***( 数値(DECIMAL(3,0)- )****
ZZZZ010340	12800	=SET{WC.SYSTEM_CHECK=,WN.SYSTEM_CHECK61=,WN.SYSTEM_CHECK62=};
ZZZZ010340	12900	=SET{WN.1=3,WN.T='-',WC.SYSTEM_TYPE2='Z'};
ZZZZ010340	13000	=SET{WN.N='HONBASUU',WN.H='本場'};
ZZZZ010340	13100	COPY=PROGRAM_DICTIONARY
ZZZZ010340	13200	=SET{WN.N='HONBASUU_NEW',WN.H='本場(新)'};
ZZZZ010340	13300	COPY=PROGRAM_DICTIONARY
ZZZZ010340	13400	*SET{WN.N='TUMISUU',WN.H='積み棒数'};
ZZZZ010340	13500	*OPY=PROGRAM_DICTIONARY
ZZZZ010340	13600	*SET{WN.N='TUMISUU_ORG',WN.H='積み棒数元'};
ZZZZ010340	13700	*OPY=PROGRAM_DICTIONARY
ZZZZ010340	13800	***( 数値(DECIMAL(3,0)+ )****
ZZZZ010340	13900	=SET{WN.T='+',WN.N='RIICHISUU',WN.H='立直'};
ZZZZ010340	14000	COPY=PROGRAM_DICTIONARY
ZZZZ010340	14100	=SET{WN.N='RIICHISUU_NEW',WN.H='立直(新)'};
ZZZZ010340	14200	COPY=PROGRAM_DICTIONARY
ZZZZ010340	14300	=SET{WN.N='TAKU',WN.H='卓番号',WC.SYSTEM_TYPE2=};
ZZZZ010340	14400	COPY=PROGRAM_DICTIONARY
ZZZZ010340	14500	=SET{WN.N='ORDER',WN.H='順番'};
ZZZZ010340	14600	COPY=PROGRAM_DICTIONARY
ZZZZ010340	14700	=SET{WN.N='GAME',WN.H='ゲーム番号'};
ZZZZ010340	14800	COPY=PROGRAM_DICTIONARY
ZZZZ010340	14900	=SET{WN.N='NINSUU',WN.H='人数'};
ZZZZ010340	15000	COPY=PROGRAM_DICTIONARY
ZZZZ010340	15100	=SET{WN.N='SIAI',WN.H='試合番号'};
ZZZZ010340	15200	COPY=PROGRAM_DICTIONARY
ZZZZ010340	15300	=SET{WN.N='FU',WN.H='符数'};
ZZZZ010340	15400	COPY=PROGRAM_DICTIONARY
ZZZZ010340	15500	***( 数値(DECIMAL(4,0)- )****
ZZZZ010340	15600	=SET{WN.1=4,WN.T='-'};
ZZZZ010340	15700	=SET{WN.N='SCORE_RIICHI',WN.H='立直'};
ZZZZ010340	15800	COPY=REPEAT4
ZZZZ010340	15900	=SET{WN.N='SCORE_HONBA',WN.H='本場'};
ZZZZ010340	16000	COPY=REPEAT4
ZZZZ010340	16100	***( 数値(DECIMAL(5,0)- )****
ZZZZ010340	16200	=SET{WN.1=5};
ZZZZ010340	16300	=SET{WN.N='SCORE_TEN',WN.H='得点'};
ZZZZ010340	16400	COPY=REPEAT4
ZZZZ010340	16500	***( 数値(DECIMAL(5,0)+ )****
ZZZZ010340	16600	=SET{WN.T='+',WN.N='MOTI',WN.H='持ち点'};
ZZZZ010340	16700	COPY=PROGRAM_DICTIONARY
ZZZZ010340	16800	=SET{WN.N='UMA1',WN.H='ウマ1'};
ZZZZ010340	16900	COPY=PROGRAM_DICTIONARY
ZZZZ010340	17000	=SET{WN.N='UMA2',WN.H='ウマ2'};
ZZZZ010340	17100	COPY=PROGRAM_DICTIONARY
ZZZZ010340	17200	*=SET{WN.N='OYA_RON',WN.H='親ロン'};
ZZZZ010340	17300	*COPY=PROGRAM_DICTIONARY
ZZZZ010340	17400	*SET{WN.N='KO_RON',WN.H='子ロン'};
ZZZZ010340	17500	*COPY=PROGRAM_DICTIONARY
ZZZZ010340	17600	*SET{WN.N='OYA_TUMO4',WN.H='親自摸4'};
ZZZZ010340	17700	*COPY=PROGRAM_DICTIONARY
ZZZZ010340	17800	*=SET{WN.N='KO_TUMO_OYA4',WN.H='子自摸親4'};
ZZZZ010340	17900	*COPY=PROGRAM_DICTIONARY
ZZZZ010340	18000	*=SET{WN.N='KO_TUMO_KO4',WN.H='子自摸子4'};
ZZZZ010340	18100	*COPY=PROGRAM_DICTIONARY
ZZZZ010340	18200	*=SET{WN.N='OYA_TUMO3',WN.H='親自摸3'};
ZZZZ010340	18300	*COPY=PROGRAM_DICTIONARY
ZZZZ010340	18400	*=SET{WN.N='KO_TUMO_OYA3',WN.H='子自摸親3'};
ZZZZ010340	18500	*COPY=PROGRAM_DICTIONARY
ZZZZ010340	18600	*=SET{WN.N='KO_TUMO_KO3',WN.H='子自摸子3'};
ZZZZ010340	18700	COPY=PROGRAM_DICTIONARY
ZZZZ010340	18800	=SET{WN.N='MOTITEN',WN.H='持ち点'};
ZZZZ010340	18900	COPY=PROGRAM_DICTIONARY
ZZZZ010340	19000	=SET{WN.N='UMA1',WN.H='ウマ1'};
ZZZZ010340	19100	COPY=PROGRAM_DICTIONARY
ZZZZ010340	19200	=SET{WN.N='UMA2',WN.H='ウマ2'};
ZZZZ010340	19300	COPY=PROGRAM_DICTIONARY
ZZZZ010340	19400	=SET{WN.N='NAME',WN.H='氏名',WN.D='NCHAR',WN.1=12,WN.T='J'};
ZZZZ010340	19500	COPY=PROGRAM_DICTIONARY
ZZZZ010340	19600	COPY=REPEAT4
ZZZZ010340	19700	=SET{WN.N='KAIZYOU',WN.H='会場'};
ZZZZ010340	19800	COPY=PROGRAM_DICTIONARY
ZZZZ010340	19900	*SET{WN.N='NAME_TENPAI',WN.H='[聴牌]'};
ZZZZ010340	20000	*OPY=REPEAT4
ZZZZ010340	20100	=SET{WN.N='OYA_NEW_NAME',WN.H='[親名]'};
ZZZZ010340	20200	COPY=PROGRAM_DICTIONARY
ZZZZ010340	20300	*SET{WN.N='NAME_HOORA',WN.H='[上がり]'};
ZZZZ010340	20400	*OPY=PROGRAM_DICTIONARY
ZZZZ010340	20500	*SET{WN.N='NAME_HOUZYU',WN.H='[放銃]'};
ZZZZ010340	20600	*OPY=PROGRAM_DICTIONARY
ZZZZ010340	20700	=SET{WN.N='NAIYOU',WN.H='内容'};
ZZZZ010340	20800	COPY=PROGRAM_DICTIONARY
ZZZZ010340	20900	=SET{WC.SYSTEM_CHECK=,WN.SYSTEM_CHECK61=};
ZZZZ010340	21000	=SET{WN.N='YAKU_COM',WN.H='役名',WN.1=19};
ZZZZ010340	21100	COPY=PROGRAM_DICTIONARY
ZZZZ010340	21200	=SET{WN.N='SUUFUURENDA_COM',WN.H='四風連打COM',WN.1=16};
ZZZZ010340	21300	COPY=PROGRAM_DICTIONARY
ZZZZ010340	21400	*****( DECIMAL(9,0)- )***************************
ZZZZ010340	21500	=SET{WN.N='SCORE',WN.H='点',WN.D='DECIMAL',WN.1=7,WN.T='-'}
ZZZZ010340	21600	=   ;
ZZZZ010340	21700	COPY=PROGRAM_DICTIONARY
ZZZZ010340	21800	COPY=REPEAT4
ZZZZ010340	21900	=SET{WN.N='SCORE_NEW',WN.H='点(新)'};
ZZZZ010340	22000	COPY=REPEAT4
ZZZZ010340	22100	=SET{WN.N='SCORE_ORG',WN.H='点(元)'};
ZZZZ010340	22200	COPY=REPEAT4
ZZZZ010340	22300	*****( CHAR(1) )************************
ZZZZ010340	22400	=SET{WN.N='ENTRY',WN.H='参加',WN.D='CHAR',WN.1=1,WN.T=};
ZZZZ010340	22500	=SET{WC.SYSTEM_CHECK='CHECK2'
ZZZZ010340	22600	*=   ,WN.SYSTEM_CHECK61=',参加,+,参加予定,*,不参加'};
ZZZZ010340	22700	=   ,WN.SYSTEM_CHECK61=',参加,*,不参加'};
ZZZZ010340	22800	COPY=PROGRAM_DICTIONARY
ZZZZ010340	22900	*****( NCHAR(4) )************************
ZZZZ010340	23000	=SET{WN.1=4,WN.D='NCHAR',WN.T='J'};
ZZZZ010340	23100	=SET{WC.SYSTEM_CHECK=,WN.SYSTEM_CHECK61=};
ZZZZ010340	23200	=SET{WN.N='KAZE',WN.H='風'};
ZZZZ010340	23300	COPY=PROGRAM_DICTIONARY
ZZZZ010340	23400	=SET{WN.N='HOORA_HOUZYUU',WN.H='上がり親'};
ZZZZ010340	23500	COPY=REPEAT4
ZZZZ010340	23600	*****( NCHAR(2) )************************
ZZZZ010340	23700	=SET{WN.1=2};
ZZZZ010340	23800	=SET{WN.N='OYA_COM',WN.H='親'};
ZZZZ010340	23900	COPY=REPEAT4
ZZZZ010340	24000	=SET{WC.SYSTEM_CHECK='CHECK'};
ZZZZ010340	24100	=SET{WN.SYSTEM_CHECK61='0,1,2,3,4'};
ZZZZ010340	24200	=SET{WN.H1='明刻中張',WN.H2='明刻么九'
ZZZZ010340	24300	=   ,WN.H3='明槓中張',WN.H4='明槓么九'
ZZZZ010340	24400	=   ,WN.H5='暗刻中張',WN.H6='暗刻么九'
ZZZZ010340	24500	=   ,WN.H7='暗槓中張',WN.H8='暗槓么九'};
ZZZZ010340	24600	=SET{WN.1=1,WN.D='DECIMAL',WN.T='+',WN.N='MINAN',WN.H=};
ZZZZ010340	24700	NAME=REPEAT8
ZZZZ010340	24800	REPEAT=8
ZZZZ010340	24900	=SET{WN.N##=##};
ZZZZ010340	25000	COPY=SUB
ZZZZ010340	25100	REPEAT=
ZZZZ010340	25200	NAME=
ZZZZ010340	25300	=SET{WC.SYSTEM_CHECK=,WN.SYSTEM_CHECK61=};
ZZZZ010340	25400	=SET{WN.1=2};
ZZZZ010340	25500	=SET{WN.N='MINAN_TEN',W.H='(点)'};
ZZZZ010340	25600	COPY=REPEAT8
ZZZZ010340	25700	=SET{WN.H1='親ロン',WN.H2='子ロン'
ZZZZ010340	25800	=   ,WN.H3='親ツモ4',WN.H4='子ツモ親4',WN.H5='子ツモ子4'
ZZZZ010340	25900	=   ,WN.H6='親ツモ3',WN.H7='子ツモ親3',WN.H8='子ツモ子3'};
ZZZZ010340	26000	=SET{WN.1=5,WN.N='TEN',W.H=};
ZZZZ010340	26100	COPY=REPEAT8
ZZZZ010340	26200	*====( CREATE TABLE )========================================
ZZZZ010340	26300	=SET{_JOB_PERMISSION='ZZZY'};
ZZZZ010340	26400	*****( HF_TBLE )*******************************:
ZZZZ010340	26500	=IF_TABLE{?_MP_ZZZY?ZZ_?WN.C?HF_TABLE}JUMP{SKIP};
ZZZZ010340	26600	=DBO_CREATE_TABLE{?_MP_ZZZY?ZZ_?WN.C?HF_TABLE,
ZZZZ010340	26700	= ?WN.C?HAN,*,?WN.C?FU,*}{
ZZZZ010340	26800	*= ?WN.C?OYA_RON,*,?WN.C?KO_RON,*
ZZZZ010340	26900	*,?WN.C?OYA_TUMO4,*,?WN.C?KO_TUMO_OYA4,*,?WN.C?KO_TUMO_KO4,*,
ZZZZ010340	27000	*?WN.C?OYA_TUMO3,*,?WN.C?KO_TUMO_OYA3,*,?WN.C?KO_TUMO_KO3,*};
ZZZZ010340	27100	REPEAT=8
ZZZZ010340	27200	1-=,
ZZZZ010340	27300	=?WN.C?##_TEN,*
ZZZZ010340	27400	REPEAT=
ZZZZ010340	27500	=};
ZZZZ010340	27600	=DBO_GRANT{?_MP_ZZZY?ZZ_?WN.C?HF_TABLE,TABLE,LINK};
ZZZZ010340	27700	=SET{W='12000,8000,4000,4000,2000,6000,5000,3000,0,10'};
ZZZZ010340	27800	NAME=HAN_FU_INSERT
ZZZZ010340	27900	=SPLIT_CHAR{W0.?WN.C?TEN}{W}{','};
ZZZZ010340	28000	REPEAT=8
ZZZZ010340	28100	=SET{W0.?WN.C?##_TEN=W0.?WN.C?TEN##};
ZZZZ010340	28200	REPEAT=
ZZZZ010340	28300	*SET{W0.?WN.C?HAN         =W0.1,W0.?WN.C?FU          =W0.2};
ZZZZ010340	28400	*SET{W0.?WN.C?OYA_RON     =W0.3,W0.?WN.C?KO_RON      =W0.4};
ZZZZ010340	28500	*SET{W0.?WN.C?OYA_TUMO4   =W0.5,W0.?WN.C?KO_TUMO_OYA4=W0.6};
ZZZZ010340	28600	*SET{W0.?WN.C?KO_TUMO_KO4 =W0.7,W0.?WN.C?OYA_TUMO3   =W0.8};
ZZZZ010340	28700	*SET{W0.?WN.C?KO_TUMO_OYA3=W0.9,W0.?WN.C?KO_TUMO_KO3 =W0.10};
ZZZZ010340	28800	=SET{W0.OYA_RON  =W0.?WN.C?TEN1,W0.KO_RON      =W0.?WN.C?TEN2
ZZZZ010340	28900	=,W0.OYA_TUMO4   =W0.?WN.C?TEN3,W0.KO_TUMO_OYA4=W0.?WN.C?TEN4
ZZZZ010340	29000	=,W0.KO_TUMO_KO4 =W0.?WN.C?TEN5,W0.OYA_TUMO3   =W0.?WN.C?TEN6
ZZZZ010340	29100	=,W0.KO_TUMO_OYA3=W0.?WN.C?TEN7,W0.KO_TUMO_KO3 =W0.?WN.C?TEN8
ZZZZ010340	29200	=,W0.?WN.C?HAN   =W0.?WN.C?TEN9,W0.?WN.C?FU =W0.?WN.C?TEN10};
ZZZZ010340	29300	=COMPUTE{W0.C=W0.OYA_TUMO4*3};
ZZZZ010340	29400	=COMPUTE{W0.C+=1000};
ZZZZ010340	29500	=IF{W0.C<W0.OYA_RON}SET{WN.ERR=41}JUMP{HAN_FU_ERROR};
ZZZZ010340	29600	=COMPUTE{W0.C-=2000};
ZZZZ010340	29700	=IF{W0.C>W0.OYA_RON}SET{WN.ERR=41}JUMP{HAN_FU_ERROR};
ZZZZ010340	29800	=COMPUTE{W0.C=W0.KO_TUMO_KO4*2};
ZZZZ010340	29900	=COMPUTE{W0.C+=W0.KO_TUMO_OYA4};
ZZZZ010340	30000	=COMPUTE{W0.C+=1000};
ZZZZ010340	30100	=IF{W0.C<W0.KO_RON}SET{WN.ERR=42}JUMP{HAN_FU_ERROR};
ZZZZ010340	30200	=COMPUTE{W0.C-=2000};
ZZZZ010340	30300	=IF{W0.C>W0.KO_RON}SET{WN.ERR=42}JUMP{HAN_FU_ERROR};
ZZZZ010340	30400	=COMPUTE{W0.C=W0.OYA_TUMO3*2};
ZZZZ010340	30500	=COMPUTE{W0.C+=1000};
ZZZZ010340	30600	=IF{W0.C<W0.OYA_RON}SET{WN.ERR=31}JUMP{HAN_FU_ERROR};
ZZZZ010340	30700	=COMPUTE{W0.C-=2000};
ZZZZ010340	30800	=IF{W0.C>W0.OYA_RON}SET{WN.ERR=31}JUMP{HAN_FU_ERROR};
ZZZZ010340	30900	=COMPUTE{W0.C=W0.KO_TUMO_KO3+W0.KO_TUMO_OYA3}
ZZZZ010340	31000	=COMPUTE{W0.C+=1000};
ZZZZ010340	31100	=IF{W0.C<W0.KO_RON}SET{WN.ERR=32}JUMP{HAN_FU_ERROR};
ZZZZ010340	31200	=COMPUTE{W0.C-=2000};
ZZZZ010340	31300	=IF{W0.C>W0.KO_RON}SET{WN.ERR=32}JUMP{HAN_FU_ERROR};
ZZZZ010340	31400	=INSERT{?_MP_ZZZY?ZZ_?WN.C?HF_TABLE,
ZZZZ010340	31500	= W0.?WN.C?HAN,W0.?WN.C?FU
ZZZZ010340	31600	* W0.?WN.C?HAN,W0.?WN.C?FU,W0.?WN.C?OYA_RON,
ZZZZ010340	31700	REPEAT=8
ZZZZ010340	31800	= ,W0.?WN.C?##_TEN
ZZZZ010340	31900	REPEAT=
ZZZZ010340	32000	=};
ZZZZ010340	32100	* W0.?WN.C?KO_RON,W0.?WN.C?OYA_TUMO4,
ZZZZ010340	32200	* W0.?WN.C?KO_TUMO_OYA4,W0.?WN.C?KO_TUMO_KO4,
ZZZZ010340	32300	* W0.?WN.C?OYA_TUMO3,
ZZZZ010340	32400	* W0.?WN.C?KO_TUMO_OYA3,W0.?WN.C?KO_TUMO_KO3};
ZZZZ010340	32500	NAME=
ZZZZ010340	32600	=SET{W='18000,12000,6000,6000,3000,9000,7500,4500,0,15'};
ZZZZ010340	32700	COPY=HAN_FU_INSERT
ZZZZ010340	32800	=SET{W='24000,16000,8000,8000,4000,12000,10000,6000,0,20'};
ZZZZ010340	32900	COPY=HAN_FU_INSERT
ZZZZ010340	33000	=SET{W='36000,24000,12000,12000,6000,18000,15000,9000,0,30'};
ZZZZ010340	33100	COPY=HAN_FU_INSERT
ZZZZ010340	33200	=SET{W='48000,32000,16000,16000,8000,24000,20000,12000,0,40'}
ZZZZ010340	33300	=;
ZZZZ010340	33400	COPY=HAN_FU_INSERT
ZZZZ010340	33500	=SET{W='96000,64000,32000,32000,16000,48000,40000,24000,0,80'
ZZZZ010340	33600	=};
ZZZZ010340	33700	COPY=HAN_FU_INSERT
ZZZZ010340	33800	=SET{W='1500,1000,500,500,300,800,700,500,1,30'};
ZZZZ010340	33900	COPY=HAN_FU_INSERT
ZZZZ010340	34000	=SET{W='2000,1300,700,700,400,1100,900,600,1,40'};
ZZZZ010340	34100	COPY=HAN_FU_INSERT
ZZZZ010340	34200	=SET{W='2400,1600,800,800,400,1200,1000,600,1,50'};
ZZZZ010340	34300	COPY=HAN_FU_INSERT
ZZZZ010340	34400	=SET{W='2900,2000,1000,1000,500,1500,1300,800,1,60'};
ZZZZ010340	34500	COPY=HAN_FU_INSERT
ZZZZ010340	34600	=SET{W='3400,2300,1200,1200,600,1800,1500,900,1,70'};
ZZZZ010340	34700	COPY=HAN_FU_INSERT
ZZZZ010340	34800	=SET{W='3900,2600,1300,1300,700,2000,1700,1100,1,80'};
ZZZZ010340	34900	COPY=HAN_FU_INSERT
ZZZZ010340	35000	=SET{W='4400,2900,1500,1500,800,2300,1900,1200,1,90'};
ZZZZ010340	35100	COPY=HAN_FU_INSERT
ZZZZ010340	35200	=SET{W='4800,3200,1600,1600,800,2400,2000,1200,1,100'};
ZZZZ010340	35300	COPY=HAN_FU_INSERT
ZZZZ010340	35400	=SET{W='5300,3600,1800,1800,900,2700,2300,1300,1,110'};
ZZZZ010340	35500	COPY=HAN_FU_INSERT
ZZZZ010340	35600	=SET{W='2100,1100,700,700,400,1100,900,600,2,20'};
ZZZZ010340	35700	COPY=HAN_FU_INSERT
ZZZZ010340	35800	=SET{W='2400,1600,800,800,400,1200,1000,600,2,25'};
ZZZZ010340	35900	COPY=HAN_FU_INSERT
ZZZZ010340	36000	=SET{W='2900,2000,1000,1000,500,1500,1300,800,2,30'};
ZZZZ010340	36100	COPY=HAN_FU_INSERT
ZZZZ010340	36200	=SET{W='3900,2600,1300,1300,700,2000,1700,1100,2,40'};
ZZZZ010340	36300	COPY=HAN_FU_INSERT
ZZZZ010340	36400	=SET{W='4800,3200,1600,1600,800,2400,2000,1200,2,50'};
ZZZZ010340	36500	COPY=HAN_FU_INSERT
ZZZZ010340	36600	=SET{W='5800,3900,2000,2000,1000,3000,2500,1500,2,60'};
ZZZZ010340	36700	COPY=HAN_FU_INSERT
ZZZZ010340	36800	=SET{W='6800,4500,2300,2300,1200,3500,2900,1800,2,70'};
ZZZZ010340	36900	COPY=HAN_FU_INSERT
ZZZZ010340	37000	=SET{W='7700,5200,2600,2600,1300,3900,3300,2000,2,80'};
ZZZZ010340	37100	COPY=HAN_FU_INSERT
ZZZZ010340	37200	=SET{W='8700,5800,2900,2900,1500,4400,3700,2300,2,90'};
ZZZZ010340	37300	COPY=HAN_FU_INSERT
ZZZZ010340	37400	=SET{W='9600,6400,3200,3200,1600,4800,4000,2400,2,100'};
ZZZZ010340	37500	COPY=HAN_FU_INSERT
ZZZZ010340	37600	=SET{W='10600,7100,3600,3600,1800,5400,4500,2700,2,110'};
ZZZZ010340	37700	COPY=HAN_FU_INSERT
ZZZZ010340	37800	=SET{W='3900,2600,1300,1300,700,2000,1700,1100,3,20'};
ZZZZ010340	37900	COPY=HAN_FU_INSERT
ZZZZ010340	38000	=SET{W='4800,3200,1600,1600,800,2400,2000,1200,3,25'};
ZZZZ010340	38100	COPY=HAN_FU_INSERT
ZZZZ010340	38200	=SET{W='5800,3900,2000,2000,1000,3000,2500,1500,3,30'};
ZZZZ010340	38300	COPY=HAN_FU_INSERT
ZZZZ010340	38400	=SET{W='7700,5200,2600,2600,1300,3900,3300,2000,3,40'};
ZZZZ010340	38500	COPY=HAN_FU_INSERT
ZZZZ010340	38600	=SET{W='9600,6400,3200,3200,1600,4800,4000,2400,3,50'};
ZZZZ010340	38700	COPY=HAN_FU_INSERT
ZZZZ010340	38800	=SET{W='11600,7700,3900,3900,2000,6000,5000,3000,3,60'};
ZZZZ010340	38900	COPY=HAN_FU_INSERT
ZZZZ010340	39000	=SET{W='12000,8000,4000,4000,2000,6000,5000,3000,3,70'};
ZZZZ010340	39100	COPY=HAN_FU_INSERT
ZZZZ010340	39200	=SET{W='12000,8000,4000,4000,2000,6000,5000,3000,3,80'};
ZZZZ010340	39300	COPY=HAN_FU_INSERT
ZZZZ010340	39400	=SET{W='12000,8000,4000,4000,2000,6000,5000,3000,3,90'};
ZZZZ010340	39500	COPY=HAN_FU_INSERT
ZZZZ010340	39600	=SET{W='12000,8000,4000,4000,2000,6000,5000,3000,3,100'};
ZZZZ010340	39700	COPY=HAN_FU_INSERT
ZZZZ010340	39800	=SET{W='12000,8000,4000,4000,2000,6000,5000,3000,3,110'};
ZZZZ010340	39900	COPY=HAN_FU_INSERT
ZZZZ010340	40000	=SET{W='7700,5200,2600,2600,1300,3900,3300,2000,4,20'};
ZZZZ010340	40100	COPY=HAN_FU_INSERT
ZZZZ010340	40200	=SET{W='9600,6400,3200,3200,1600,4800,4000,2400,4,25'};
ZZZZ010340	40300	COPY=HAN_FU_INSERT
ZZZZ010340	40400	=SET{W='11600,7700,3900,3900,2000,6000,5000,3000,4,30'};
ZZZZ010340	40500	COPY=HAN_FU_INSERT
ZZZZ010340	40600	=SET{W='12000,8000,4000,4000,2000,6000,5000,3000,4,40'};
ZZZZ010340	40700	COPY=HAN_FU_INSERT
ZZZZ010340	40800	=SET{W='12000,8000,4000,4000,2000,6000,5000,3000,4,50'};
ZZZZ010340	40900	COPY=HAN_FU_INSERT
ZZZZ010340	41000	=SET{W='12000,8000,4000,4000,2000,6000,5000,3000,4,60'};
ZZZZ010340	41100	COPY=HAN_FU_INSERT
ZZZZ010340	41200	=SET{W='12000,8000,4000,4000,2000,6000,5000,3000,4,70'};
ZZZZ010340	41300	COPY=HAN_FU_INSERT
ZZZZ010340	41400	=SET{W='12000,8000,4000,4000,2000,6000,5000,3000,4,80'};
ZZZZ010340	41500	COPY=HAN_FU_INSERT
ZZZZ010340	41600	=SET{W='12000,8000,4000,4000,2000,6000,5000,3000,4,90'};
ZZZZ010340	41700	COPY=HAN_FU_INSERT
ZZZZ010340	41800	=SET{W='12000,8000,4000,4000,2000,6000,5000,3000,4,100'};
ZZZZ010340	41900	COPY=HAN_FU_INSERT
ZZZZ010340	42000	=SET{W='12000,8000,4000,4000,2000,6000,5000,3000,4,110'};
ZZZZ010340	42100	COPY=HAN_FU_INSERT
ZZZZ010340	42200	=JUMP{SKIP};
ZZZZ010340	42300	=HAN_FU_ERROR:
ZZZZ010340	42400	=ERROR{?WN.ERR?-?W0.C? (?W0.1?,?W0.2?)};
ZZZZ010340	42500	=SKIP:
ZZZZ010340	42600	*****( OU_TBLE )*******************************:
ZZZZ010340	42700	=IF_TABLE{?_MP_ZZZY?ZZ_?WN.C?OU_TABLE}JUMP{SKIP};
ZZZZ010340	42800	=DBO_CREATE_TABLE{?_MP_ZZZY?ZZ_?WN.C?OU_TABLE,?WN.C?DATE,*
ZZZZ010340	42900	=,?WN.C?KUBUN,*}{?WN.C?KAIZYOU,*,?WN.C?HONBA_TEN,*
ZZZZ010340	43000	=,?WN.C?SUUFUURENDA,*,?WN.C?SUUFUURENDA_COM,*,?WN.C?MOTITEN,*
ZZZZ010340	43100	=,?WN.C?UMA1,*,?WN.C?UMA2,*,?WN.C?NINSUU,*,?WN.C?TAKU,*};
ZZZZ010340	43200	=DBO_GRANT{?_MP_ZZZY?ZZ_?WN.C?OU_TABLE,TABLE,LINK};
ZZZZ010340	43300	=SKIP:
ZZZZ010340	43400	*                EXIT{};      一時終了*
ZZZZ010340	43500	*****( N_TABLE )********************
ZZZZ010340	43600	=IF_TABLE{?_MP_ZZZY?ZZ_?WN.C?N_TABLE}JUMP{SKIP};
ZZZZ010340	43700	=DBO_CREATE_TABLE{?_MP_ZZZY?ZZ_?WN.C?N_TABLE
ZZZZ010340	43800	=,?WN.C?NAME,*}{?WN.C?ORDER,*,?WN.C?ENTRY,*};
ZZZZ010340	43900	=DBO_GRANT{?_MP_ZZZY?ZZ_?WN.C?N_TABLE,TABLE,LINK};
ZZZZ010340	44000	=SKIP:
ZZZZ010340	44100	*****( TABLE )******************************
ZZZZ010340	44200	=IF_TABLE{?_MP_ZZZY?ZZ_?WN.C?TABLE}JUMP{SKIP};
ZZZZ010340	44300	=DBO_CREATE_TABLE{?_MP_ZZZY?ZZ_?WN.C?TABLE,?WN.C?DATE,*
ZZZZ010340	44400	=,?WN.C?KUBUN,*,?WN.C?GAME,*,?WN.C?TAKU,*}
ZZZZ010340	44500	= {?WN.C?1_NAME,*,?WN.C?1_SCORE,*,?WN.C?1_SCORE_ORG,*
ZZZZ010340	44600	= ,?WN.C?2_NAME,*,?WN.C?2_SCORE,*,?WN.C?2_SCORE_ORG,*
ZZZZ010340	44700	= ,?WN.C?3_NAME,*,?WN.C?3_SCORE,*,?WN.C?3_SCORE_ORG,*
ZZZZ010340	44800	= ,?WN.C?4_NAME,*,?WN.C?4_SCORE,*,?WN.C?4_SCORE_ORG,*};
ZZZZ010340	44900	=DBO_GRANT{?_MP_ZZZY?ZZ_?WN.C?TABLE,TABLE,LINK};
ZZZZ010340	45000	=SKIP:
ZZZZ010340	45100	*****( ?WN.C?VIEW )************************
ZZZZ010340	45200	=SET{WN.1='東',WN.2='南',WN.3='西',WN.4='北'};
ZZZZ010340	45300	*SET{WC.1='E',WC.2='S',WC.3='W',WC.4='N'};
ZZZZ010340	45400	=SET{WN.DEFINE='(?_Z_ALL_NAME?,?WN.C?DATE,?WN.C?KUBUN'
ZZZZ010340	45500	=   +',?WN.C?GAME,?WN.C?TAKU,?WN.C?KAZE'
ZZZZ010340	45600	=   +',?WN.C?NAME,?WN.C?SCORE,?WN.C?ENTRY)AS'
ZZZZ010340	45700	REPEAT=4
ZZZZ010340	45800	1-=   +' UNION'
ZZZZ010340	45900	=   +' SELECT ?_Z_ALL_NAME?,?WN.C?DATE,?WN.C?KUBUN'
ZZZZ010340	46000	=   +' ,?WN.C?GAME,?WN.C?TAKU,''?WN.##?'',?WN.C?##_NAME'
ZZZZ010340	46100	=   +',?WN.C?##_SCORE,CAST(CASE WHEN ?WN.C?1_SCORE=0 AND '
ZZZZ010340	46200	=+'?WN.C?2_SCORE=0 AND ?WN.C?3_SCORE=0 AND ?WN.C?4_SCORE=0'
ZZZZ010340	46300	=   +' THEN ''*'' ELSE '' '' END AS CHAR(1))'
ZZZZ010340	46400	=   +' FROM ?_MX_ZZZY?ZZZYZZ_?WN.C?TABLE WHERE '
ZZZZ010340	46500	=   +' ?WN.C?##_NAME<>''***'''
ZZZZ010340	46600	REPEAT=
ZZZZ010340	46700	=   };
ZZZZ010340	46800	=DBO_DROP_OBJECT{?_MP_ZZZY?ZZ_?WN.C?VIEW}{VIEW};
ZZZZ010340	46900	=DBO_CREATE_OBJECT{?_MP_ZZZY?ZZ_?WN.C?VIEW,VIEW
ZZZZ010340	47000	= ,?WN.DEFINE?};
ZZZZ010340	47100	=DBO_GRANT{?_MP_ZZZY?ZZ_?WN.C?VIEW,VIEW,LINK};
ZZZZ010340	47200	****( 1_TABLE )*********************************
ZZZZ010340	47300	=IF_TABLE{?_MP_ZZZY?ZZ_?WN.C?1_TABLE}JUMP{SKIP};
ZZZZ010340	47400	=DBO_CREATE_TABLE{?_MP_ZZZY?ZZ_?WN.C?1_TABLE,?WN.C?DATE,*,
ZZZZ010340	47500	= ?WN.C?KUBUN,*,?WN.C?GAME,*,?WN.C?TAKU,*,?WN.C?SIAI,*}
ZZZZ010340	47600	={?WN.C?OYA,*,?WN.C?OYA_NEW,*,?WN.C?OYA_NEW_NAME,*
ZZZZ010340	47700	=,?WN.C?HONBASUU,*,?WN.C?HONBASUU_NEW,*
ZZZZ010340	47800	=,?WN.C?RIICHISUU,*,?WN.C?RIICHISUU_NEW,*
ZZZZ010340	47900	=,?WN.C?HOORA,*,?WN.C?HOUZYUU,*
ZZZZ010340	48000	REPEAT=4
ZZZZ010340	48100	=,?WN.C?##_OYA_COM,*,?WN.C?##_NAME,*,?WN.C?##_HOORA_HOUZYUU,*
ZZZZ010340	48200	=,?WN.C?##_RIICHI,*,?WN.C?##_SCORE,*,?WN.C?##_SCORE_TEN,*
ZZZZ010340	48300	=,?WN.C?##_SCORE_HONBA,*,?WN.C?##_SCORE_RIICHI,*
ZZZZ010340	48400	=,?WN.C?##_SCORE_NEW,*
ZZZZ010340	48500	REPEAT=
ZZZZ010340	48600	=,?WN.C?YAKU,*,?WN.C?YAKU_COM,*
ZZZZ010340	48700	=,?WN.C?HAN,*,      ?WN.C?HAN_TEN,*
ZZZZ010340	48800	=,?WN.C?MONZEN,*,?WN.C?MONZEN_TEN,*
ZZZZ010340	48900	=,?WN.C?ATAMA,*,  ?WN.C?ATAMA_TEN,*
ZZZZ010340	49000	=,?WN.C?TANNKI,*,?WN.C?TANNKI_TEN,*
ZZZZ010340	49100	REPEAT=8
ZZZZ010340	49200	=,?WN.C?##_MINAN,*,?WN.C?##_MINAN_TEN,*
ZZZZ010340	49300	REPEAT=8
ZZZZ010340	49400	=,?WN.C?##_TEN,*
ZZZZ010340	49500	REPEAT=
ZZZZ010340	49600	*,?WN.C?MI32,*,?WN.C?MI31,*,?WN.C?MI42,*,?WN.C?MI41,*
ZZZZ010340	49700	*,?WN.C?AN32,*,?WN.C?AN31,*,?WN.C?AN42,*,?WN.C?AN41,*
ZZZZ010340	49800	*,?WN.C?OYA_RON,*,?WN.C?KO_RON,*
ZZZZ010340	49900	*,?WN.C?OYA_TUMO4,*,?WN.C?KO_TUMO_OYA4,*,?WN.C?KO_TUMO_KO4,*
ZZZZ010340	50000	*,?WN.C?OYA_TUMO3,*,?WN.C?KO_TUMO_OYA3,*,?WN.C?KO_TUMO_KO3,*
ZZZZ010340	50100	=,?WN.C?FU,*,?WN.C?SYUUKYOKU,*};
ZZZZ010340	50200	=DBO_GRANT{?_MP_ZZZY?ZZ_?WN.C?1_TABLE,TABLE,LINK};
ZZZZ010340	50300	=SKIP:
ZZZZ010340	50400	=SET{_JOB_PERMISSION='ZZZZ'};
ZZZZ010340	50500	=EXIT{_END};
ZZZZ010340	50600	%HF_COMMENT+COMMENT_BEGIN
ZZZZ010340	50700	PROGRAM=OUTPUT,&X1,?_MP_ZZZY?ZZ_GAMES_MAJYAN_HF_TABLE
ZZZZ010340	50800	CONTROL=BEGIN_ENTER
ZZZZ010340	50900	*SET={}.?&.SET&GAMES_MAJYAN_HAN?
ZZZZ010340	51000	*SET={}.?&.SET&GAMES_MAJYAN_FU?
ZZZZ010340	51100	*SET={}.?&.SET&GAMES_MAJYAN_OYA_RON?
ZZZZ010340	51200	*SET={}.?&.SET&GAMES_MAJYAN_KO_RON?
ZZZZ010340	51300	*SET={}.?&.SET&GAMES_MAJYAN_OYA_TUMO4?
ZZZZ010340	51400	*SET={}.?&.SET&GAMES_MAJYAN_KO_TUMO_OYA4?
ZZZZ010340	51500	*SET={}.?&.SET&GAMES_MAJYAN_KO_TUMO_KO4?
ZZZZ010340	51600	*SET={}.?&.SET&GAMES_MAJYAN_OYA_TUMO3?
ZZZZ010340	51700	*SET={}.?&.SET&GAMES_MAJYAN_KO_TUMO_OYA3?
ZZZZ010340	51800	*SET={}.?&.SET&GAMES_MAJYAN_KO_TUMO_KO3?
ZZZZ010340	51900	*****( 翻 )*****
ZZZZ010340	52000	DATA={K}?&.DATA&GAMES_MAJYAN_HAN?
ZZZZ010340	52100	*****( 符数 )*****
ZZZZ010340	52200	DATA={K}?&.DATA&GAMES_MAJYAN_FU?
ZZZZ010340	52300	*****( 親ロン )*****
ZZZZ010340	52400	REPEAT=8
ZZZZ010340	52500	DATA={}?&.DATA&GAMES_MAJYAN_##_TEN?
ZZZZ010340	52600	REPEAT=
ZZZZ010340	52700	COMMENT_BEGIN
ZZZZ010340	52800	DATA={}?&.DATA&GAMES_MAJYAN_OYA_RON?
ZZZZ010340	52900	*****( 子ロン )*****
ZZZZ010340	53000	DATA={}?&.DATA&GAMES_MAJYAN_KO_RON?
ZZZZ010340	53100	*****( 親自摸4 )*****
ZZZZ010340	53200	DATA={}?&.DATA&GAMES_MAJYAN_OYA_TUMO4?
ZZZZ010340	53300	*****( 子自摸親4 )*****
ZZZZ010340	53400	DATA={}?&.DATA&GAMES_MAJYAN_KO_TUMO_OYA4?
ZZZZ010340	53500	*****( 子自摸子4 )*****
ZZZZ010340	53600	DATA={}?&.DATA&GAMES_MAJYAN_KO_TUMO_KO4?
ZZZZ010340	53700	*****( 親自摸3 )*****
ZZZZ010340	53800	DATA={}?&.DATA&GAMES_MAJYAN_OYA_TUMO3?
ZZZZ010340	53900	*****( 子自摸親3 )*****
ZZZZ010340	54000	DATA={}?&.DATA&GAMES_MAJYAN_KO_TUMO_OYA3?
ZZZZ010340	54100	*****( 子自摸子3 )*****
ZZZZ010340	54200	DATA={}?&.DATA&GAMES_MAJYAN_KO_TUMO_KO3?
ZZZZ010340	54300	COMMENT_END
ZZZZ010340	54400	COPY=@ZZZZZZ_SQL
ZZZZ010340	54500	%HF_COMMENT+COMMENT_END
ZZZZ010340	54600	%OU_COMMENT+COMMENT_BEGIN
ZZZZ010340	54700	PROGRAM=INPUT,&X1,?_MP_ZZZY?ZZ_GAMES_MAJYAN_OU_TABLE
ZZZZ010340	54800	*SET={}.?&.SET&GAMES_MAJYAN_DATE?
ZZZZ010340	54900	*SET={}.?&.SET&GAMES_MAJYAN_KUBUN?
ZZZZ010340	55000	*SET={}.?&.SET&GAMES_MAJYAN_MOTITEN?
ZZZZ010340	55100	*SET={}.?&.SET&GAMES_MAJYAN_UMA1?
ZZZZ010340	55200	*SET={}.?&.SET&GAMES_MAJYAN_UMA2?
ZZZZ010340	55300	*****( 日付 )*****
ZZZZ010340	55400	DATA={KD}?&.DATA&GAMES_MAJYAN_DATE?
ZZZZ010340	55500	*****( 区分 )*****
ZZZZ010340	55600	DATA={K}?&.DATA&GAMES_MAJYAN_KUBUN?
ZZZZ010340	55700	DATA={}?&.DATA&GAMES_MAJYAN_SUUFUURENDA?
ZZZZ010340	55800	DATA={}?&.DATA&GAMES_MAJYAN_SUUFUURENDA_COM?
ZZZZ010340	55900	DATA={}?&.DATA&GAMES_MAJYAN_HONBA_TEN?
ZZZZ010340	56000	*****( 持ち点 )*****
ZZZZ010340	56100	DATA={}?&.DATA&GAMES_MAJYAN_MOTITEN?
ZZZZ010340	56200	*****( ウマ1 )*****
ZZZZ010340	56300	DATA={}?&.DATA&GAMES_MAJYAN_UMA1?
ZZZZ010340	56400	*****( ウマ2 )*****
ZZZZ010340	56500	DATA={}?&.DATA&GAMES_MAJYAN_UMA2?
ZZZZ010340	56600	DATA={}?&.DATA&GAMES_MAJYAN_NINSUU?
ZZZZ010340	56700	COPY=@ZZZZZZ_SQL
ZZZZ010340	56800	%OU_COMMENT+COMMENT_END
ZZZZ010340	56900	%CAN_COMMENT+COMMENT_BEGIN
ZZZZ010340	57000	PROGRAM=NOT,&X1,?_MP_ZZZY?ZZ_GAMES_MAJYAN_TABLE
ZZZZ010340	57010	TABLE=&X2,?_MP_ZZZY?ZZ_GAMES_MAJYAN_1_TABLE
ZZZZ010340	57020	TABLE=&X3,?_MP_ZZZY?ZZ_GAMES_MAJYAN_OU_TABLE
ZZZZ010340	57100	CONTROL=PROGRAM
ZZZZ010340	57200	=SET{YEAR=5};
ZZZZ010340	57210	FORM= @ 年以前を削除します。 @ 年月日以前  @ {YES,NO}
ZZZZ010340	57220	FORM=
ZZZZ010340	57230	FORM=
ZZZZ010340	57240	FORM=
ZZZZ010340	57250	FORM=
ZZZZ010340	57300	DATA={  }YEAR{2,,+}年
ZZZZ010340	57310	CHECK=(1,99)
ZZZZ010340	57320	=COMPUTE{YMD=_TODAY-?YEAR?0000};
ZZZZ010340	57400	DATA={O}YMD{8,,D}年月日
ZZZZ010340	57500	DATA={}YES{3}{YES,NO}
ZZZZ010340	57600	=IF{_DATA='NO'}EXIT{-1};
ZZZZ010340	57610	REPEAT=3
ZZZZ010340	57620	=SQL{UPDATE ?&X##.TABLE? SET ?_Z_UPDATE_CANCEL? WHERE
ZZZZ010340	57630	= GAMES_MAJYAN_DATE<'?YMD?' };
ZZZZ010340	57690	REPEAT=
ZZZZ010340	57693	=EXIT{-1};
ZZZZ010340	57700	%CAN_COMMENT+COMMENT_END
ZZZZ010401	100	PROGRAM=NOT
ZZZZ010401	200	BEGIN_END
ZZZZ010401	300	NAME=DROP_TABLE_WORK
ZZZZ010401	400	REPEAT=?_A_A?
ZZZZ010401	500	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010401	600	REPEAT=
ZZZZ010401	700	NAME= (DROP_TABLE_WORK)
ZZZZ010401	800	BEGIN
ZZZZ010401	1100	=SET{WC.FILE_CHECK=,WC.SEP=};
ZZZZ010401	1200	=IF{#FILE!=}EXIT{};
ZZZZ010401	1300	=DIR{};
ZZZZ010401	1400	=DIR_NEXT:DIR_NEXT{WC.FILE}JUMP{DIR_END};
ZZZZ010401	1500	=IF{WC.FILE@FORM_LENGTH>30}BACK{DIR_NEXT};
ZZZZ010401	1600	=IF{WC.FILE/'$'}BACK{DIR_NEXT};
ZZZZ010401	1700	=SET{WC.FILE_CHECK+=WC.SEP+WC.FILE,WC.SEP=','};
ZZZZ010401	1800	=BACK{DIR_NEXT};
ZZZZ010401	1900	=DIR_END:
ZZZZ010401	2000	DATA={N}DUMMY{1}
ZZZZ010401	2100	=IF{#FILE!=}SET{FILE=#FILE,ENCODE=#ENCODE}EXIT3{FILE};
ZZZZ010401	2200	DATA=ENCODE{10}
ZZZZ010401	2300	CHECK=,UTF-8,SHIFT_JIS,/
ZZZZ010401	2400	DATA=FILE{30,,,L}
ZZZZ010401	2500	CHECK=?WC.FILE_CHECK?
ZZZZ010401	2510	COPY=DROP_TABLE_WORK
ZZZZ010401	2520	=CREATE_TABLE{?_WORK_TABLE?A,WORK_SEQ,INT}
ZZZZ010401	2530	={WORK_START,C,1,WORK_DATA,N,78};
ZZZZ010401	2600	=SET{W0.WORK_SEQ=1};
ZZZZ010401	2700	=IF_ERROR_READ_OPEN{F1,?FILE?,?ENCODE?}ERROR{};
ZZZZ010401	2800	=READ_NEXT:READ_NEXT{F1}JUMP{READ_END};
ZZZZ010401	3000	=SPLIT_FORM{W_SPLIT_}{_READ_DATA}{78};
ZZZZ010401	3100	=SET{W0CNT=1,WC.WORK_START='*'};
ZZZZ010401	3200	=SPLIT_LOOP:SET{WN.WORK_DATA=W_SPLIT_?W0CNT?};
ZZZZ010401	3300	=PROGRAM{2,?_WORK_TABLE?A,WC.WORK_START,WN.WORK_DATA}
ZZZZ010401	3400	=   {W0.WORK_SEQ}{};
ZZZZ010401	3500	=SET{WC.WORK_START=};COMPUTE{W0.WORK_SEQ+=1,W0CNT+=1};
ZZZZ010401	3510	=IF{_SPLIT_FORM_COUNT<W0CNT}BACK{READ_NEXT};
ZZZZ010401	3600	=BACK{SPLIT_LOOP};
ZZZZ010401	3700	=READ_END:READ_CLOSE{F1};
ZZZZ010401	3800	PROGRAM=OUTPUT,&X1,?_WORK_TABLE?A
ZZZZ010401	3810	CONTROL=BEGIN_ENTER
ZZZZ010401	3900	SET=.?&.SET&WORK_DATA?
ZZZZ010401	3901	DATA={KN}?&.DATA&WORK_SEQ?
ZZZZ010401	3902	DATA=?&.DATA&WORK_START?
ZZZZ010401	3910	DATA=?&.DATA&WORK_DATA?
ZZZZ010401	4000	COPY=@ZZZZZZ_SQL
ZZZZ010403	100	PROGRAM=,&X1,?_MM?_I_MENU_TABLE
ZZZZ010403	200	INNER=&X2,?_MM?_I_PROGRAM_TABLE,,*
ZZZZ010403	300	JOIN_ON=X2.SYSTEM_JOB=?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010403	400	JOIN_ON=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010403	500	JOIN_ON=   AND ?_T?.SYSTEM_LANG='?_LANG?'
ZZZZ010403	600	CONTROL=0
ZZZZ010403	700	BEGIN
ZZZZ010403	900	SET={N,*}.?&.SET&SYSTEM_MENU?
ZZZZ010403	3700	SET={,}SX2.?&X2.SET&SYSTEM_JOB?
ZZZZ010403	3800	SET={}.?&.SET&SYSTEM_PERMISSION?
ZZZZ010403	3900	SET={}.?&.SET&SYSTEM_PART?
ZZZZ010403	4300	SET={,*}COLOR{2}{,NO}
ZZZZ010403	4400	START
ZZZZ010403	4500	=SET{WN.JOB_1=X2.SYSTEM_JOB};
ZZZZ010403	4600	=SET{W0.JOB_CNT=1,WN.JOB_KIND_1=' 0'};
ZZZZ010403	4602	=SET{WC.DEL='YES'};
ZZZZ010403	4610	DATA={D}DATE{17,,T}
ZZZZ010403	4620	SELECT=CASE WHEN MAX(X2.Z_CANCEL)>MAX(X2.Z_CHANGE) THEN
ZZZZ010403	4630	SELECT=   CASE WHEN MAX(X2.Z_ADD)>MAX(X2.Z_CANCEL) THEN
ZZZZ010403	4632	SELECT=   MAX(X2.Z_ADD) ELSE MAX(X2.Z_CANCEL) END
ZZZZ010403	4640	SELECT=   ELSE MAX(X2.Z_CHANGE) END
ZZZZ010403	4700	DATA={AG}X2.?&X2.DATA&SYSTEM_JOB?
ZZZZ010403	4800	DATA={G}?&.DATA&SYSTEM_PERMISSION?
ZZZZ010403	4810	DATA={G}?&.DATA&SYSTEM_PART?
ZZZZ010403	5400	DATA={G}?&.DATA&SYSTEM_TEST?
ZZZZ010403	5500	DATA={G}?&.DATA&SYSTEM_MENU?
ZZZZ010403	5510	DATA={NG}?&.DATA&SYSTEM_COPY1?
ZZZZ010403	5520	DATA={NG}?&.DATA&SYSTEM_COPY2?
ZZZZ010403	5530	DATA={NG}?&.DATA&SYSTEM_COPY3?
ZZZZ010403	5540	DATA={NG}?&.DATA&SYSTEM_COPY4?
ZZZZ010403	5550	DATA={NG}?&.DATA&SYSTEM_COPY5?
ZZZZ010403	6100	COPY=@ZZZZZZ_SQL
ZZZZ010404	100	MINUS=%TEST
ZZZZ010405	100	MINUS=%TEST
ZZZZ010406	100	MINUS=%TEST
ZZZZ010407	100	MINUS=%TEST
ZZZZ010408	100	MINUS=%TEST
ZZZZ010409	100	MINUS=%TEST
ZZZZ010411	100	MINUS=%TEST
ZZZZ010412	100	MINUS=%TEST
ZZZZ010413	100	MINUS=%TEST_I
ZZZZ010414	100	PROGRAM=OUTPUT
ZZZZ010414	200	DICTIONARY=SYSTEM_WORK,SYSTEM_REAL,SYSTEM_NAME
ZZZZ010414	300	BEGIN
ZZZZ010414	400	=SET{REAL='Y',REAL_WORK='N',TEST='N',TEST_WORK='N'};
ZZZZ010414	500	SET=S_TABLE{}テーブル
ZZZZ010414	600	=SET{WN.UNION=,WN.SQL=};
ZZZZ010414	700	SET=REAL{1}{Y,N}本番
ZZZZ010414	800	JA+CHECK2=Y,はい,N,いいえ
ZZZZ010414	900	JA-CHECK2=Y,YES,N,NO
ZZZZ010414	1000	=IF{_DATA!='Y'}EXIT{};
ZZZZ010414	1100	=SET{WN.W='MAST',WN.REAL=_REAL_TEST,WN.DB='_R_M_'};
ZZZZ010414	1200	NAME=SQL
ZZZZ010414	1300	REPEAT=@ZZZZZZ_PERMISSION_COUNT
ZZZZ010414	1400	=SET{WN.SQL=WN.SQL+WN.UNION
ZZZZ010414	1410	=   +' SELECT ''?WN.REAL?'',''?WN.W?'''
ZZZZ010414	1500	=   +',O.NAME,'
ZZZZ010414	1600	=  +'SUM(CASE WHEN INDID IN(0,1,255) THEN USED*8 ELSE 0 END)'
ZZZZ010414	1700	=   +',SUM(CASE WHEN INDID IN(0,1) THEN (USED - DPAGES)*8'
ZZZZ010414	1800	=   +' WHEN INDID=255 THEN 0 ELSE DPAGES*8 END),'
ZZZZ010414	1900	=  +'SUM(CASE WHEN INDID IN(0,1) THEN ROWS ELSE 0 END) FROM '
ZZZZ010414	2000	=  +'I_?_SYSTEM??WN.DB??@ZZZZZZ_PERMISSION_NO##?..SYSINDEXES'
ZZZZ010414	2020	=   +' I,'
ZZZZ010414	2100	=  +'I_?_SYSTEM??WN.DB??@ZZZZZZ_PERMISSION_NO##?..SYSOBJECTS'
ZZZZ010414	2200	=   +' O WHERE O.ID=I.ID AND O.TYPE=''U'''
ZZZZ010414	2300	=   +' AND ?_SUBSTR(I.NAME;1;1)?!=''_'''
ZZZZ010414	2400	=   +' AND O.NAME LIKE ''?S_TABLE?%'''
ZZZZ010414	2410	=   +' GROUP BY O.NAME'
ZZZZ010414	2500	=   ,WN.UNION=' UNION'};
ZZZZ010414	2600	REPEAT=
ZZZZ010414	2700	NAME=
ZZZZ010414	2800	SET=REAL_WORK{1}本番ワーク
ZZZZ010414	2900	JA+CHECK2=Y,はい,N,いいえ
ZZZZ010414	3000	JA-CHECK2=Y,YES,N,NO
ZZZZ010414	3100	=IF{_DATA!='Y'}EXIT{};
ZZZZ010414	3200	=SET{WN.W='WORK',WN.REAL=_REAL_TEST,WN.DB='_R_W_'};
ZZZZ010414	3300	COPY=SQL
ZZZZ010414	3400	SET=TEST{1}テスト
ZZZZ010414	3500	JA+CHECK2=Y,はい,N,いいえ
ZZZZ010414	3600	JA-CHECK2=Y,YES,N,NO
ZZZZ010414	3700	=IF{_DATA!='Y'}EXIT{};
ZZZZ010414	3800	=SET{WN.W='MAST',WN.REAL='TEST',WN.DB='_T_M_'};
ZZZZ010414	3900	COPY=SQL
ZZZZ010414	4000	SET=TEST_WORK{1}テストワーク
ZZZZ010414	4100	JA+CHECK2=Y,はい,N,いいえ
ZZZZ010414	4200	JA-CHECK2=Y,YES,N,NO
ZZZZ010414	4300	=IF{REAL='N'}IF{REAL_WORK='N'}IF{TEST='N'}IF{_DATA='N'}
ZZZZ010414	4400	=   ERROR{ALL N};
ZZZZ010414	4500	=IF{_DATA!='Y'}EXIT{};
ZZZZ010414	4600	=SET{WN.W='WORK',WN.REAL='TEST',WN.DB='_T_W_'};
ZZZZ010414	4700	COPY=SQL
ZZZZ010414	4800	M+SQL=?WN.SQL? ORDER BY 4 DESC,3
ZZZZ010414	4900	DATA=?&DATA&SYSTEM_REAL?
ZZZZ010414	5000	DATA=?&DATA&SYSTEM_WORK?
ZZZZ010414	5100	DATA=?&DATA&SYSTEM_NAME?
ZZZZ010414	5200	DATA=ALL{9,,+}
ZZZZ010414	5300	JA+TITLE=全容量(KB)
ZZZZ010414	5400	DATA=INDEX_X{9,,+}
ZZZZ010414	5500	JA+TITLE=インデックス容量(KB)
ZZZZ010414	5600	DATA=COUNT_X{9,,+}
ZZZZ010414	5700	JA+TITLE=件数
ZZZZ010415	100	MINUS=%TEST
ZZZZ010417	100	PROGRAM=,&X1,?_MM?_I_USE_TABLE
ZZZZ010417	200	CONTROL=0
ZZZZ010417	300	SET=.?&.SET&SYSTEM_JOB?
ZZZZ010417	400	DATA={K}?&.DATA&SYSTEM_YEAR_MONTH?
ZZZZ010417	500	SELECT=MAX(?_NAME_SQL?)
ZZZZ010417	600	DATA={KG}?&.DATA&SYSTEM_JOB?
ZZZZ010417	700	DATA=   ?&.DATA&SYSTEM_USE?
ZZZZ010417	800	SELECT=SUM(?_NAME_SQL?)
ZZZZ010417	900	COPY=@ZZZZZZ_SQL
ZZZZ010417	1000	PROGRAM=,&X1,?_MM?_I_USE_TABLE
ZZZZ010417	1100	SET={KO}.=?&.SET&SYSTEM_JOB?
ZZZZ010417	1200	DATA={K}?&.DATA&SYSTEM_YEAR_MONTH?
ZZZZ010417	1300	DATA=   ?&.DATA&SYSTEM_USE?
ZZZZ010417	1400	DATA=   ?&.DATA&SYSTEM_COMPUTER?
ZZZZ010417	1500	DATA=   ?&.DATA&SYSTEM_PERSON?
ZZZZ010417	1600	COPY=@ZZZZZZ_SQL
ZZZZ010419	100	MINUS=%TEST
ZZZZ010420	100	PROGRAM=,&X1,?_MM?_I_PROGRAM_TABLE
ZZZZ010420	200	CONTROL=SCROLL
ZZZZ010420	300	BEGIN
ZZZZ010420	400	=SET{SYSTEM_PROGRAM@TYPE2='R',MY_PERMISSION=_PERMISSION};
ZZZZ010420	401	SET=S_FOUND{,,/}
ZZZZ010420	410	SET={O}MY_PERMISSION{4}
ZZZZ010420	500	SET={K}.?&.DATA&SYSTEM_JOB?
ZZZZ010420	600	SET={O}S_MENU{}
ZZZZ010420	700	=SQL_SET{S_MENU,S_PERMISSION}
ZZZZ010420	710	=  {SELECT SYSTEM_MENU,SYSTEM_PERMISSION
ZZZZ010420	800	=   FROM ?_MM?_I_MENU_TABLE WHERE
ZZZZ010420	900	=   ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010420	901	=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010420	1000	=   ='?.SYSTEM_JOB?' AND Z_CANCEL=' '};
ZZZZ010420	1010	=IF{_SQL_SET_COUNT=0}ERROR{JOB NOT FOUND};
ZZZZ010420	1011	=IF{S_PERMISSION!=MY_PERMISSION}IF{MY_PERMISSION!='ZZZZ'}
ZZZZ010420	1012	=   ERROR{PERMISSION NOT EQUAL};
ZZZZ010420	1013	=IF{.SYSTEM_JOB%'00'}ERROR{MENU BAD};
ZZZZ010420	1014	=IF{.SYSTEM_JOB/'ZZZZ010',/'ZZZZ9999'}
ZZZZ010420	1015	=   IF{_PERSON!='ZZZZZZZZ'}ERROR{PERSON!='ZZZZZZZZ'};
ZZZZ010420	1020	SET={O}S_PERMISSION{4}
ZZZZ010420	1200	DATA={K}?&.DATA&SYSTEM_SEQ?
ZZZZ010420	1300	DATA=   ?&.DATA&SYSTEM_PROGRAM?
ZZZZ010420	1400	SQL=SELECT ?_DATA_ALL_SQL?,Z_CANCEL FROM ?_TABLE? ?_T? WHERE
ZZZZ010420	1500	SQL=   ?_VRE&.SYSTEM_JOB? AND SYSTEM_PROGRAM LIKE
ZZZZ010420	1600	SQL=   '%?S_FOUND?%' ORDER BY Z_CANCEL,SYSTEM_SEQ
ZZZZ010421	100	MINUS=%TEST
ZZZZ010422	100	MINUS=%TEST
ZZZZ010423	100	MINUS=%TEST
ZZZZ010425	10	MINUS=%TEST
ZZZZ010426	100	MINUS=%TEST
ZZZZ010427	100	MINUS=%TEST
ZZZZ010428	100	MINUS=%TEST_I
ZZZZ010428	200	MINUS=%TEST_O
ZZZZ010429	100	MINUS=%TEST
ZZZZ010431	100	PROGRAM=OUTPUT,&X1,?_MM?_I_TABLE_TABLE
ZZZZ010431	200	TABLE=&X2,?_MM?_ETC_TABLE
ZZZZ010431	300	DICTIONARY=SYSTEM_PERMISSION
ZZZZ010431	400	CONTROL=0,SQL_DBO
ZZZZ010431	500	BEGIN
ZZZZ010431	600	=SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010431	700	SET={,*&X2}.?&DATA&SYSTEM_PERMISSION?
ZZZZ010431	800	=IF{'ZZZZ'!=_PERMISSION}IF{_DATA!=_PERMISSION}
ZZZZ010431	900	=   ERROR{PERMISSION(?_DATA?) ERROR};
ZZZZ010431	1000	=SET{WN.DB_REAL=_MX_REAL_?.SYSTEM_PERMISSION?};
ZZZZ010431	1100	=SET{WN.DB_TEST=_MX_TEST_?.SYSTEM_PERMISSION?};
ZZZZ010431	1200	SET=.?&.SET&SYSTEM_NAME?
ZZZZ010431	1300	START
ZZZZ010431	1400	=IF_TABLE{?WN.DB_REAL??SYSTEM_NAME?}ERROR{REAL TABLE FOUND};
ZZZZ010431	1500	DATA=?&.DATA&SYSTEM_NAME?
ZZZZ010431	1600	SQL=SELECT SYSTEM_NAME FROM
ZZZZ010431	1700	SQL=   ?_MM_TEST?_M_?.SYSTEM_PERMISSION?_OBJECT_VIEW I
ZZZZ010431	1800	SQL=   WHERE SYSTEM_KIND='TABLE'
ZZZZ010431	1900	SQL=   AND ?_LR&.SYSTEM_NAME?
ZZZZ010431	2000	SQL=   AND NOT EXISTS(SELECT SYSTEM_WORK FROM
ZZZZ010431	2100	SQL=   ?_MM?_M_?.SYSTEM_PERMISSION?_OBJECT_VIEW O
ZZZZ010431	2200	SQL=   WHERE O.SYSTEM_KIND='TABLE'
ZZZZ010431	2300	SQL=   AND RTRIM(O.SYSTEM_NAME)=RTRIM(I.SYSTEM_NAME)
ZZZZ010431	2400	SQL=   AND RTRIM(O.SYSTEM_WORK)=RTRIM(I.SYSTEM_WORK))
ZZZZ010431	2410	SQL=   ORDER BY 1
ZZZZ010431	2500	PROGRAM=NOT
ZZZZ010431	2600	*ONTROL=SQL_DBO
ZZZZ010431	2700	BEGIN_END
ZZZZ010431	2800	NAME=DROP_TABLE_WORK
ZZZZ010431	2900	REPEAT=?_A_B?
ZZZZ010431	3000	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010431	3100	REPEAT=
ZZZZ010431	3200	NAME=
ZZZZ010431	3300	DATA={O}$?$&.DATA&SYSTEM_NAME?
ZZZZ010431	3400	DATA=COPY{6}{,COPY,CREATE,QUIT}
ZZZZ010431	3500	CHECK2=,COPY,NOT,NOT COPY(CREATE),QUIT,QUIT
ZZZZ010431	3600	=IF{COPY='QUIT'}EXIT{_END};
ZZZZ010431	3700	=IF_TABLE{?$WN.DB_REAL??SYSTEM_NAME?}ERROR{REAL FOUND};
ZZZZ010431	3800	=IF_TABLE_NOT{?$WN.DB_TEST??SYSTEM_NAME?}
ZZZZ010431	3900	=   ERROR{TABLE NOT FOUND};
ZZZZ010431	4000	=J:SET{WN.PUBLIC=};
ZZZZ010431	4100	=SQL_SET{WN.PUBLIC}{SELECT SYSTEM_PUBLIC FROM ?$&.TABLE?
ZZZZ010431	4200	=   WHERE ?_VRE&SYSTEM_NAME?};
ZZZZ010431	4300	=SET{_JOB_PERMISSION=$.SYSTEM_PERMISSION};
ZZZZ010431	4400	=DBO_COPY_TABLE{?$WN.DB_REAL??SYSTEM_NAME?,
ZZZZ010431	4500	=  ?$WN.DB_TEST??SYSTEM_NAME?,?COPY?};
ZZZZ010431	4600	=DBO_GRANT{?$WN.DB_REAL??SYSTEM_NAME?,TABLE,?WN.PUBLIC?};
ZZZZ010431	4700	=SET{_JOB_PERMISSION='ZZZZ'};
ZZZZ010431	4800	=SQL{UPDATE ?$&.TABLE? SET ?_Z_UPDATE_CHANGE?
ZZZZ010431	4900	=   ,SYSTEM_TEST=' ' WHERE SYSTEM_TEST<>' '
ZZZZ010431	5000	=   AND ?_VRE&SYSTEM_NAME?};
ZZZZ010431	5100	*****( MYSQL 対応 )***************
ZZZZ010431	5200	COPY=DROP_TABLE_WORK
ZZZZ010431	5300	=CREATE_TABLE2{?_WORK_TABLE?A,
ZZZZ010431	5310	=    SYSTEM_PERMISSION,*,SYSTEM_DATA_NAME,*}{};
ZZZZ010431	5400	=CREATE_TABLE2{?_WORK_TABLE?B,
ZZZZ010431	5410	=   SYSTEM_PERMISSION,*,SYSTEM_DATA_NAME,*}{};
ZZZZ010431	5500	=SQL{INSERT INTO ?_WORK_TABLE?A
ZZZZ010431	5501	=   (SYSTEM_PERMISSION,SYSTEM_DATA_NAME)
ZZZZ010431	5600	=   SELECT        '?$.SYSTEM_PERMISSION?',SYSTEM_DATA_NAME
ZZZZ010431	5700	=   FROM ?_MM?_M_?$.SYSTEM_PERMISSION?_COLUMN_VIEW
ZZZZ010431	5800	=   WHERE ?_VRE&SYSTEM_NAME?
ZZZZ010431	5900	=   AND SYSTEM_DATA_NAME NOT IN(?_Z_ALL_NAME_VALUE?)};
ZZZZ010431	6000	=SQL{INSERT INTO ?_WORK_TABLE?B
ZZZZ010431	6001	=   (SYSTEM_PERMISSION,SYSTEM_DATA_NAME)
ZZZZ010431	6100	=SELECT DISTINCT SYSTEM_BASE_PERMISSION,SYSTEM_BASE_DATA_NAME
ZZZZ010431	6200	=   FROM ?_MM?_I_DICTIONARY_TABLE X1
ZZZZ010431	6300	=   WHERE EXISTS(SELECT 0 FROM ?_WORK_TABLE?A X2
ZZZZ010431	6400	=   WHERE X2.?_NE&X1.SYSTEM_PERMISSION?
ZZZZ010431	6500	=   AND   X2.?_NE&X1.SYSTEM_DATA_NAME?)
ZZZZ010431	6600	=   AND X1.SYSTEM_BASE_DATA_NAME<>' ' AND X1.Z_CANCEL=' '};
ZZZZ010431	6700	=SQL{UPDATE ?_MM?_I_DICTIONARY_TABLE SET ?_Z_UPDATE_CHANGE?
ZZZZ010431	6800	=   ,SYSTEM_TEST=' ' WHERE SYSTEM_TEST<>' ' AND (
ZZZZ010431	6900	REPEAT=2
ZZZZ010431	7000	=   ?_CONCAT(SYSTEM_PERMISSION;'/';SYSTEM_DATA_NAME)?
ZZZZ010431	7100	=IN(SELECT ?_CONCAT(SYSTEM_PERMISSION;'/';SYSTEM_DATA_NAME)?
ZZZZ010431	7200	=   FROM ?_WORK_TABLE??_A##?)
ZZZZ010431	7300	1+=   OR
ZZZZ010431	7400	REPEAT=
ZZZZ010431	7500	=   )};
ZZZZ010431	7600	***********( CREATE TRIGGER 対応 )**************************
ZZZZ010431	7700	=SET{#OBJECT_KIND='CREATE'};
ZZZZ010431	7800	=SET{#OBJECT_REAL_TEST='REAL'};
ZZZZ010431	7900	=SET{#OBJECT_NAME=SYSTEM_NAME};
ZZZZ010431	8000	=EXIT{+1}; CREATE TRIGGER *
ZZZZ010431	8100	=IF{#RETURN!=0}ERROR{?_ERROR?};
ZZZZ010431	8200	=EXIT{_END};
ZZZZ010432	100	PROGRAM=,&X1,?_MM?_I_MENU_TABLE
ZZZZ010432	200	TABLE=&X2,?_MM?_ETC_TABLE
ZZZZ010432	300	CONTROL=0,1,2,SCROLL
ZZZZ010432	400	BEGIN
ZZZZ010432	500	=SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010432	600	=SET{WN.WORD=',;: {}()[]+-*/=><!'};
ZZZZ010432	700	SET={,*&X2}.?&.DATA&SYSTEM_PERMISSION?
ZZZZ010432	800	SET={,*}COLOR{2}{,NO}
ZZZZ010432	900	=SET{_DATA@WHERE='SYSTEM_TEST=''REAL'''};
ZZZZ010432	1000	START
ZZZZ010432	1100	=SET{WN.JOB1=
ZZZZ010432	1200	=   SYSTEM_MENU0+SYSTEM_MENU1+SYSTEM_MENU2+SYSTEM_MENU3};
ZZZZ010432	1300	=SET{W0.JOB=1};
ZZZZ010432	1400	REPEAT=5
ZZZZ010432	1500	=SET{WN.SYSTEM_COPY##=SYSTEM_COPY##};
ZZZZ010432	1600	REPEAT=
ZZZZ010432	1700	=LOOP:IF{WN.SYSTEM_COPY2!='ZZZZZZZZZZ'}JUMP{END};
ZZZZ010432	1800	=IF{W0.JOB=6}
ZZZZ010432	1900	=   ERROR{SYSTEM_MENU 'ZZZZZZZZZZ' 5 COUNT OVER};
ZZZZ010432	2000	=COMPUTE{W0.JOB+=1};
ZZZZ010432	2100	=SET{WN.JOB?W0.JOB?=WN.SYSTEM_COPY1};
ZZZZ010432	2200	=J9:
ZZZZ010432	2300	=SQL_SET{WN.SYSTEM_COPY1,WN.SYSTEM_COPY2
ZZZZ010432	2400	=   ,WN.SYSTEM_COPY3,WN.SYSTEM_COPY4,WN.SYSTEM_COPY5}
ZZZZ010432	2500	={SELECT SYSTEM_COPY1,SYSTEM_COPY2
ZZZZ010432	2600	=   ,SYSTEM_COPY3,SYSTEM_COPY4,SYSTEM_COPY5 FROM
ZZZZ010432	2700	=   ?_TABLE? WHERE
ZZZZ010432	2800	=   ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010432	2900	=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010432	3000	=   ='?WN.SYSTEM_COPY1?' AND Z_CANCEL=' ' AND
ZZZZ010432	3100	=   (SYSTEM_LANG LIKE '?SYSTEM_LANG?%' OR SYSTEM_LANG=' ')};
ZZZZ010432	3200	=IF{_SQL_SET_COUNT=0}
ZZZZ010432	3300	=   ERROR{SYSTEM_MENU(?WN.SYSTEM_COPY1?) NOT FOUND};
ZZZZ010432	3400	=BACK{LOOP};
ZZZZ010432	3500	=END:SET{W0.SYSTEM_COPY=5};
ZZZZ010432	3600	=SET{W0.JOB_CNT=1};
ZZZZ010432	3700	=LOOP:SET{WN.JOB_?W0.JOB_CNT?=WN.JOB?W0.JOB_CNT?};
ZZZZ010432	3800	=COMPUTE{W0.CNT=W0.JOB_CNT-1};
ZZZZ010432	3900	=SET{WN.JOB_KIND_?W0.JOB_CNT?=' ?W0.CNT?'};
ZZZZ010432	4000	=IF{W0.JOB_CNT!=W0.JOB}
ZZZZ010432	4100	=   COMPUTE{W0.JOB_CNT+=1}BACK{LOOP};
ZZZZ010432	4200	REPEAT=5
ZZZZ010432	4300	=IF{WN.SYSTEM_COPY##!=}
ZZZZ010432	4400	=   COMPUTE{W0.JOB_CNT+=1}
ZZZZ010432	4500	=   SET{WN.JOB_?W0.JOB_CNT?=WN.SYSTEM_COPY##}
ZZZZ010432	4600	=   SET{WN.JOB_KIND_?W0.JOB_CNT?='C##'};
ZZZZ010432	4700	REPEAT=
ZZZZ010432	4800	DATA={KO}?&.DATA&SYSTEM_MENU0?
ZZZZ010432	4900	DATA={KO}?&.DATA&SYSTEM_MENU1?
ZZZZ010432	5000	DATA={KO}?&.DATA&SYSTEM_MENU2?
ZZZZ010432	5100	DATA={KO}?&.DATA&SYSTEM_MENU3?
ZZZZ010432	5200	DATA={KO}?&.DATA&SYSTEM_LANG?
ZZZZ010432	5300	DATA={*O}?&.DATA&SYSTEM_PERMISSION?
ZZZZ010432	5400	DATA=    ?&.DATA&SYSTEM_TEST?
ZZZZ010432	5500	CHECK=,REAL,TEST
ZZZZ010432	5600	NAME=COPY_CHECK
ZZZZ010432	5700	=IF{_START=2}JUMP{COPY_CHECK_FIN};
ZZZZ010432	5800	=IF{_START=1}SET{WN.WHERE2=};
ZZZZ010432	5900	=IF{_START=1}JUMP{COPY_CHECK2};
ZZZZ010432	6000	=IF{SYSTEM_TEST=}
ZZZZ010432	6100	=   SET{WN.WHERE1='AND SYSTEM_TEST!='' ''',WN.WHERE2=}
ZZZZ010432	6200	=   JUMP{COPY_CHECK1};
ZZZZ010432	6300	=IF{SYSTEM_TEST='REAL'}
ZZZZ010432	6400	=   SET{WN.WHERE1='AND SYSTEM_TEST IN(''TEST'',''HALT'')'
ZZZZ010432	6500	=  ,WN.WHERE2='AND SYSTEM_TEST='' '''}JUMP{COPY_CHECK1};
ZZZZ010432	6600	=IF{SYSTEM_TEST='TEST'}
ZZZZ010432	6700	=   SET{WN.WHERE1='AND SYSTEM_TEST=''HALT'''
ZZZZ010432	6800	=   ,WN.WHERE2='AND SYSTEM_TEST NOT IN(''TEST'',''HALT'')'}
ZZZZ010432	6900	=   JUMP{COPY_CHECK1};
ZZZZ010432	7000	=IF{SYSTEM_TEST='HALT'}
ZZZZ010432	7100	=   SET{WN.WHERE1=
ZZZZ010432	7200	=  ,WN.WHERE2='AND SYSTEM_TEST <>''HALT'''}JUMP{COPY_CHECK2};
ZZZZ010432	7300	=ERROR{PROGRAM MISS TEST='?SYSTEM_TEST?'};
ZZZZ010432	7400	REPEAT=2
ZZZZ010432	7500	1+=COPY_CHECK1:
ZZZZ010432	7600	2+=COPY_CHECK2:
ZZZZ010432	7700	2+=IF{_START!=1}IF{SYSTEM_TEST=}
ZZZZ010432	7800	2+=   JUMP{COPY_CHECK_NEXT2};
ZZZZ010432	7900	=SET{WN.SYSTEM_MENUS=SYSTEM_MENU0+SYSTEM_MENU1
ZZZZ010432	8000	=   +SYSTEM_MENU2+SYSTEM_MENU3};
ZZZZ010432	8100	=SQL_SET{WN.TEST,WN.MM}{SELECT  SYSTEM_TEST
ZZZZ010432	8200	=   ,?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010432	8300	=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR? FROM
ZZZZ010432	8400	=   ?_TABLE? WHERE SYSTEM_LANG='?_LANG_SYSTEM?' AND
ZZZZ010432	8500	1+=  ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1?_C?
ZZZZ010432	8600	1+=  ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010432	8700	1+=  IN('?SYSTEM_COPY1?','?SYSTEM_COPY2?'
ZZZZ010432	8800	1+=   ,'?SYSTEM_COPY3?','?SYSTEM_COPY4?','?SYSTEM_COPY5?')
ZZZZ010432	8900	2+=   (  '?WN.SYSTEM_MENUS?'=SYSTEM_COPY1
ZZZZ010432	9000	2+=   OR '?WN.SYSTEM_MENUS?'=SYSTEM_COPY2
ZZZZ010432	9100	2+=   OR '?WN.SYSTEM_MENUS?'=SYSTEM_COPY3
ZZZZ010432	9200	2+=   OR '?WN.SYSTEM_MENUS?'=SYSTEM_COPY4
ZZZZ010432	9300	2+=   OR '?WN.SYSTEM_MENUS?'=SYSTEM_COPY5)
ZZZZ010432	9400	=   AND ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010432	9500	=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010432	9600	=   <>'?WN.SYSTEM_MENUS?'
ZZZZ010432	9700	=   ?WN.WHERE##? AND Z_CANCEL=' '};
ZZZZ010432	9800	=IF{_SQL_SET_COUNT=0}JUMP{COPY_CHECK_NEXT##};
ZZZZ010432	9900	1+=ERROR{MY COPY(?WN.MM?) TEST='?WN.TEST?' FOUND};
ZZZZ010432	10000	2+=ERROR{OTHER COPY(?WN.MM?) TEST='?WN.TEST?' FOUND};
ZZZZ010432	10100	2+=COPY_CHECK_NEXT2:
ZZZZ010432	10200	=COPY_CHECK_NEXT##:
ZZZZ010432	10300	REPEAT=
ZZZZ010432	10400	=COPY_CHECK_FIN:
ZZZZ010432	10500	NAME=
ZZZZ010432	10600	=IF{SYSTEM_TEST!=}EXIT{};
ZZZZ010432	10700	=SQL1{SELECT SYSTEM_SEQ,SYSTEM_PROGRAM FROM
ZZZZ010432	10800	=   ?_MM?_I_PROGRAM_TABLE WHERE SYSTEM_JOB='?WN.JOB1?'
ZZZZ010432	10900	=   AND Z_CANCEL=' ' AND SYSTEM_PROGRAM NOT LIKE '*%'
ZZZZ010432	11000	=   AND(SYSTEM_PROGRAM LIKE '%TABLE%'
ZZZZ010432	11100	=   OR SYSTEM_PROGRAM LIKE '%VIEW%'
ZZZZ010432	11200	=   OR SYSTEM_PROGRAM LIKE '%PROC%'
ZZZZ010432	11300	=   OR SYSTEM_PROGRAM LIKE '%FUNC%'
ZZZZ010432	11400	=   OR SYSTEM_PROGRAM LIKE '%TRIG%'
ZZZZ010432	11500	JA+=   OR SYSTEM_PROGRAM LIKE '%実表%'
ZZZZ010432	11600	JA+=   OR SYSTEM_PROGRAM LIKE '%仮表%'
ZZZZ010432	11700	JA+=   OR SYSTEM_PROGRAM LIKE '%関数%'
ZZZZ010432	11800	JA+=   OR SYSTEM_PROGRAM LIKE '%手続%'
ZZZZ010432	11900	JA+=   OR SYSTEM_PROGRAM LIKE '%引金%'
ZZZZ010432	12000	=   )ORDER BY 1};
ZZZZ010432	12100	=SQL1_NEXT:SQL1_NEXT{WN.S,WN.P}EXIT{};
ZZZZ010432	12200	=SPLIT_CHAR{WN.}{WN.P}{WN.WORD};
ZZZZ010432	12300	=SET{W0.C=1};
ZZZZ010432	12400	=LOOP:IF{W0.C>_SPLIT_CHAR_COUNT}BACK{SQL1_NEXT};
ZZZZ010432	12500	=SET{W=WN.?W0.C?};
ZZZZ010432	12600	=MESSAGE{?W?};
ZZZZ010432	12700	=IF{W[1;4]!='?_Q?_MM?_Q?'}JUMP{STEP_NEXT};
ZZZZ010432	12800	=IF{W@COUNT<2}JUMP{STEP_NEXT};
ZZZZ010432	12900	JA+=COMPUTE{W0.L=W@COUNT-1};
ZZZZ010432	13000	JA+=SET{WN.KIND='TABLE'};
ZZZZ010432	13100	JA+=IF{W[W0.L]='実表'}JUMP{OK};
ZZZZ010432	13200	JA+=SET{WN.KIND='VIEW'};
ZZZZ010432	13300	JA+=IF{W[W0.L]='仮表'}JUMP{OK};
ZZZZ010432	13400	JA+=SET{WN.KIND='FUNC'};
ZZZZ010432	13500	JA+=IF{W[W0.L]='関数'}JUMP{OK};
ZZZZ010432	13600	JA+=SET{WN.KIND='TRIG'};
ZZZZ010432	13700	JA+=IF{W[W0.L]='引金'}JUMP{OK};
ZZZZ010432	13800	JA+=SET{WN.KIND='PROC'};
ZZZZ010432	13900	JA+=IF{W[W0.L]='手続'}JUMP{OK};
ZZZZ010432	14000	=IF{W@COUNT<5}JUMP{STEP_NEXT};
ZZZZ010432	14100	=COMPUTE{W0.L=W@COUNT-4};
ZZZZ010432	14200	=SET{WN.KIND='VIEW'};
ZZZZ010432	14300	=IF{W[W0.L]='_VIEW'}JUMP{OK};
ZZZZ010432	14400	=SET{WN.KIND='FUNC'};
ZZZZ010432	14500	=IF{W[W0.L]='_FUNC'}JUMP{OK};
ZZZZ010432	14600	=SET{WN.KIND='TRIG'};
ZZZZ010432	14700	=IF{W[W0.L]='_TRIG'}JUMP{OK};
ZZZZ010432	14800	=SET{WN.KIND='PROC'};
ZZZZ010432	14900	=IF{W[W0.L]='_PROC'}JUMP{OK};
ZZZZ010432	15000	=IF{W@COUNT<6}JUMP{STEP_NEXT};
ZZZZ010432	15100	=COMPUTE{W0.L=W@COUNT-5};
ZZZZ010432	15200	=SET{WN.KIND='TABLE'};
ZZZZ010432	15300	=IF{W[W0.L]='_TABLE'}JUMP{OK};
ZZZZ010432	15400	=JUMP{STEP_NEXT};
ZZZZ010432	15500	=OK:IF{W[1;4]!='?_Q?_MM?_Q?'
ZZZZ010432	15600	=   ,$SYSTEM_PERMISSION!=W[5;2]}JUMP{STEP_NEXT};
ZZZZ010432	15700	=SQL_SET{}{SELECT NAME FROM
ZZZZ010432	15800	=   ?_MM?_M_?$SYSTEM_PERMISSION?_OBJECT_VIEW
ZZZZ010432	15900	=   WHERE NAME='?W[5]?' AND KIND='?WN.KIND?'};
ZZZZ010432	16000	=IF{_SQL_SET_COUNT=0}ERROR{?WN.S? ?W? NOT FOUND};
ZZZZ010432	16100	=STEP_NEXT:COMPUTE{W0.C+=1};
ZZZZ010432	16200	=BACK{LOOP};
ZZZZ010432	16300	DATA={*O}?&.DATA&SYSTEM_SECURITY?
ZZZZ010432	16400	REPEAT=5
ZZZZ010432	16500	DATA={*O}?&.DATA&SYSTEM_COPY##?
ZZZZ010432	16600	REPEAT=
ZZZZ010432	16700	DATA={*O}?&.DATA&SYSTEM_MENU?
ZZZZ010432	16800	COPY=@ZZZZZZ_SQL
ZZZZ010433	100	PROGRAM=OUTPUT
ZZZZ010433	200	CONTROL=PROGRAM,0,SCROLL
ZZZZ010433	300	=SET{WC.SW=0};
ZZZZ010433	400	=DROP_TABLE{?_WORK_TABLE?A};
ZZZZ010433	500	=CREATE_TABLE2{?_WORK_TABLE?A,FILE_X,80}
ZZZZ010433	600	=  {DATE_X,16,TIME_X,5,KB,10,REAL_DAY
ZZZZ010433	700	=   ,16,REAL_TIME,5,REAL_KB,10};
ZZZZ010433	800	SET=S_COMMAND{}コマンド
ZZZZ010433	900	=SQL{DELETE FROM ?_WORK_TABLE?A};
ZZZZ010433	1000	=SERVER_BAT{ZZZZZZCPTR,DIR ?_WORK?};
ZZZZ010433	1100	=IF_ERROR_SERVER_GET{?_WORK?_TEST.TXT}ERROR{};
ZZZZ010433	1200	=IF_ERROR_READ_OPEN{1,?_TMP??_WORK?_TEST.TXT,/}ERROR{};
ZZZZ010433	1300	=READ_NEXT1:READ_NEXT{1,WN.D}READ_CLOSE{1}JUMP{READ_END1};
ZZZZ010433	1400	=IF{WN.D[1;1]=' '}BACK{READ_NEXT1};
ZZZZ010433	1500	=SPLIT_CHAR{WN.}{WN.D}{};
ZZZZ010433	1600	=IF{_SPLIT_CHAR_COUNT!=4,WN.3='<DIR>',WN.4@FORM_LENGTH>80}
ZZZZ010433	1610	=   BACK{READ_NEXT1};
ZZZZ010433	1700	=SQL{INSERT INTO ?_WORK_TABLE?A
ZZZZ010433	1800	=   (FILE_X,DATE_X,TIME_X,KB)
ZZZZ010433	1900	=   VALUES('?WN.4?','?WN.1?','?WN.2?','?WN.3?')};
ZZZZ010433	2000	=BACK{READ_NEXT1};
ZZZZ010433	2100	=READ_END1:IF_ERROR_SERVER_GET{?_WORK?_REAL.TXT}ERROR{};
ZZZZ010433	2200	=IF_ERROR_READ_OPEN{1,?_TMP??_WORK?_REAL.TXT,/}ERROR{};
ZZZZ010433	2300	=READ_NEXT1:READ_NEXT{1,WN.D}READ_CLOSE{1}JUMP{READ_END1};
ZZZZ010433	2400	=IF{WN.D[1;1]=' '}BACK{READ_NEXT1};
ZZZZ010433	2500	=SPLIT_CHAR{WN.}{WN.D}{};
ZZZZ010433	2600	=IF{_SPLIT_CHAR_COUNT!=4,WN.3='<DIR>'}BACK{READ_NEXT1};
ZZZZ010433	2700	=SQL{UPDATE ?_WORK_TABLE?A SET REAL_DAY='?WN.1?'
ZZZZ010433	2800	=   ,REAL_TIME='?WN.2?',REAL_KB='?WN.3?'
ZZZZ010433	2900	=   WHERE FILE_X=UPPER('?WN.4?')};
ZZZZ010433	3000	=BACK{READ_NEXT1};
ZZZZ010433	3100	=READ_END1:
ZZZZ010433	3200	START
ZZZZ010433	3300	DATA={N}ORDER1{8}
ZZZZ010433	3400	SELECT=?_SUBSTR(DATE_X;1;8)?
ZZZZ010433	3500	DATA={N}ORDER2{1}
ZZZZ010433	3600	SELECT=?_SUBSTR(DATE_X;16;1)?
ZZZZ010433	3700	DATA={N}ORDER3{5}
ZZZZ010433	3800	SELECT=?_SUBSTR(DATE_X;11;5)?
ZZZZ010433	3900	DATA={O}DATE_X{10}
ZZZZ010433	4000	JA+TITLE=テスト日付
ZZZZ010433	4100	DATA={O}TIME_X{5}
ZZZZ010433	4200	JA+TITLE=テスト時間
ZZZZ010433	4300	DATA={O}KB{10}
ZZZZ010433	4400	JA+TITLE=テスト容量
ZZZZ010433	4500	DATA={O}REAL_DAY{10}
ZZZZ010433	4600	JA+TITLE=本番日付
ZZZZ010433	4700	DATA={O}REAL_TIME{5}
ZZZZ010433	4800	JA+TITLE=本番時間
ZZZZ010433	4900	DATA={O}REAL_KB{10}
ZZZZ010433	5000	JA+TITLE=本番容量
ZZZZ010433	5100	DATA={O}FILE_X{80}
ZZZZ010433	5200	JA+TITLE=ファイル名
ZZZZ010433	5300	END
ZZZZ010433	5400	=DROP_TABLE{?_WORK_TABLE?A};
ZZZZ010433	5500	REPEAT=_SELECT_COUNT
ZZZZ010433	5600	SQL=?_SELECT##?
ZZZZ010433	5700	REPEAT=
ZZZZ010433	5800	SQL=FROM ?_WORK_TABLE?A X1 WHERE DATE_X<>REAL_DAY
ZZZZ010433	5900	SQL=OR TIME_X<>REAL_TIME
ZZZZ010433	6000	SQL=OR KB<>REAL_KB
ZZZZ010433	6100	SQL= ORDER BY 1 DESC,2 DESC,3 DESC
ZZZZ010433	6200	PROGRAM=NOT
ZZZZ010433	6300	CONTROL=PROGRAM
ZZZZ010433	6400	DATA={O}$DATE_X{10}
ZZZZ010433	6500	JA+TITLE=テスト日付
ZZZZ010433	6600	DATA={O}$TIME_X{5}
ZZZZ010433	6700	JA+TITLE=テスト時間
ZZZZ010433	6800	DATA={O,,80}$KB{10}
ZZZZ010433	6900	JA+TITLE=テスト容量
ZZZZ010433	7000	DATA={O}$REAL_DAY{10}
ZZZZ010433	7100	JA+TITLE=  本番日付
ZZZZ010433	7200	DATA={O}$REAL_TIME{5}
ZZZZ010433	7300	JA+TITLE=  本番時間
ZZZZ010433	7400	DATA={O}$REAL_KB{10}
ZZZZ010433	7500	JA+TITLE=  本番容量
ZZZZ010433	7600	DATA={O}$FILE_X{80}
ZZZZ010433	7700	JA+TITLE=ファイル名
ZZZZ010433	7800	DATA=YES{4}{YES,NO}
ZZZZ010433	7900	=IF{YES!='YES'}EXIT{_END};
ZZZZ010433	8000	=SERVER_BAT{ZZZZZZCPTR,COPY ?_WORK?_TMP.TXT ?FILE_X?};
ZZZZ010433	8100	*=IF_ERROR_SERVER_GET{?_WORK?_TMP.TXT}ERROR{};
ZZZZ010433	8200	*=IF_ERROR_READ_OPEN{1,?_TMP??_WORK?_TMP.TXT,/}ERROR{};
ZZZZ010433	8210	*=SET{WN.D=};
ZZZZ010433	8300	*=READ_NEXT{1,WN.D}READ_CLOSE{1}ERROR{};
ZZZZ010433	8400	*=IF{WN.D[1;3]!='!!!'}READ_CLOSE{1}ERROR{ ?WN.D?};
ZZZZ010433	8500	*=READ_CLOSE{1};
ZZZZ010433	8600	=SET{_RETURN_SQL=1};EXIT{_END};
ZZZZ010434	100	MINUS=%TEST
ZZZZ010435	100	MINUS=%TEST
ZZZZ010436	100	MINUS=%TEST
ZZZZ010437	100	MINUS=%TEST
ZZZZ010437	200	MINUS=%GRAMMAR
ZZZZ010438	100	PROGRAM=OUTPUT
ZZZZ010438	200	CONTROL=0
ZZZZ010438	300	BEGIN
ZZZZ010438	400	NAME=DB_SET
ZZZZ010438	500	%TEST+=SET{WN.REAL='TEST',WN.TEST='1'};
ZZZZ010438	600	%TEST-=SET{WN.REAL='REAL',WN.TEST=};
ZZZZ010438	700	=SET{WN.DBXUSE='I_?_SYSTEM?_?WN.REAL?_MAST'};
ZZZZ010438	800	=SET{WN.DBTUSE='I_?_SYSTEM?_TEST_MAST'};
ZZZZ010438	900	O+=SET{WN.DBXU=WN.DBXUSE+'_',WN.DBTU=WN.DBTUSE+'_',WN.DB=};
ZZZZ010438	1000	M+=SET{WN.DBXU=,WN.DBTU=,WN.DB='DBO.'};
ZZZZ010438	1100	=SET{WN.DBX=_M_?WN.REAL?};
ZZZZ010438	1200	=SET{WN.DBT=_M_TEST};
ZZZZ010438	1300	NAME=
ZZZZ010438	1400	=SET{WN.G1='INP',WN.G2='INP',WN.G3='INP'};
ZZZZ010438	1500	=SET{WN.G4='LNK',WN.G5='LNK',WN.G6='LNK'};
ZZZZ010438	1600	=SET{WN.XT1='TABLE',WN.XT2='VIEW',WN.XT3='PROC'};
ZZZZ010438	1700	=SET{WN.XT4='TABLE',WN.XT5='VIEW',WN.XT6='PROC'};
ZZZZ010438	1800	SET=S_ALL{3}{,ALL}
ZZZZ010438	1900	JA+TITLE=全て(ALL)
ZZZZ010438	2000	=SET{WN.A1=,WN.A2=,WN.A3=,WN.A4=,WN.A5=,WN.A6=,WN.AXX=};
ZZZZ010438	2100	=IF{_DATA='ALL'}EXIT{};
ZZZZ010438	2200	=SET{WN.A1='(SELECT_X<>''S'' OR SELECT_X IS NULL'
ZZZZ010438	2300	=   +' OR(UPDATE_X<>''U'' OR UPDATE_X IS NULL'
ZZZZ010438	2400	=   +' OR INSERT_X<>''I'' OR INSERT_X IS NULL)'
ZZZZ010438	2500	=   +' AND ?_SUBSTR(T.NAME;1;7)?<>''ZZZZZZ_'')AND'
ZZZZ010438	2600	=   ,WN.A2='(SELECT_X<>''S'' OR SELECT_X IS NULL'
ZZZZ010438	2700	=   +' OR(UPDATE_X<>''U'' OR UPDATE_X IS NULL'
ZZZZ010438	2800	=   +' OR INSERT_X<>''I'' OR INSERT_X IS NULL)'
ZZZZ010438	2900	=   +' AND ?_SUBSTR(T.NAME;1;7)?<>''ZZZZZZ_'')AND'};
ZZZZ010438	3000	=SET{WN.A3='(EXECUTE_X<>''E'' OR EXECUTE_X IS NULL)AND'};
ZZZZ010438	3100	=SET{WN.A4='((SELECT_X<>''S'' OR SELECT_X IS NULL)AND'
ZZZZ010438	3200	=   +' EXISTS(SELECT PUBLIC_X FROM ?_MM?_I_TABLE_TABLE'
ZZZZ010438	3300	=   +' WHERE PUBLIC_X=''LINK'''
ZZZZ010438	3400	=   +' AND NAME=T.NAME)OR SELECT_X=''S'' AND'
ZZZZ010438	3500	=   +' NOT EXISTS(SELECT PUBLIC_X FROM ?_MM?_I_TABLE_TABLE'
ZZZZ010438	3600	=   +' WHERE PUBLIC_X=''LINK'''
ZZZZ010438	3700	=   +' AND NAME=T.NAME))AND'};
ZZZZ010438	3800	=SET{WN.A5='((SELECT_X<>''S'' OR SELECT_X IS NULL)'
ZZZZ010438	3900	=   +' AND EXISTS (SELECT PUBLIC_X FROM'
ZZZZ010438	4000	=   +' ?_MM?_I_OBJECT_TABLE WHERE NAME'
ZZZZ010438	4100	=   +' =T.NAME AND SEQ=0 AND PUBLIC_X=''Y'')'
ZZZZ010438	4200	=   +' OR SELECT_X=''S'' AND NOT'
ZZZZ010438	4300	=   +' EXISTS(SELECT PUBLIC_X FROM'
ZZZZ010438	4400	=   +' ?_MM?_I_OBJECT_TABLE WHERE NAME'
ZZZZ010438	4500	=   +'=T.NAME AND SEQ=0 AND PUBLIC_X=''Y''))AND'};
ZZZZ010438	4600	=SET{WN.A6='((EXECUTE_X<>''E'' OR EXECUTE_X IS NULL)'
ZZZZ010438	4700	=   +' AND EXISTS (SELECT PUBLIC_X FROM'
ZZZZ010438	4800	=   +' ?_MM?_I_OBJECT_TABLE WHERE NAME'
ZZZZ010438	4900	=   +' =T.NAME'
ZZZZ010438	5000	=   +' AND SEQ=0 AND PUBLIC_X=''Y'')'
ZZZZ010438	5100	=   +' OR EXECUTE_X=''E'' AND NOT'
ZZZZ010438	5200	=   +' EXISTS(SELECT PUBLIC_X FROM'
ZZZZ010438	5300	=   +' ?_MM?_I_OBJECT_TABLE WHERE NAME'
ZZZZ010438	5400	=   +' =T.NAME'
ZZZZ010438	5500	=   +' AND SEQ=0 AND PUBLIC_X=''Y''))AND'};
ZZZZ010438	5600	=SET{WN.AXX=
ZZZZ010438	5700	=   'WHERE ((KIND<>''PROC'' AND GRANT_X=''USE'' '+WN.A1
ZZZZ010438	5800	=   +')OR(KIND=''PROC''  AND GRANT_X=''USE'' '+WN.A3
ZZZZ010438	5900	=   +')OR(KIND=''TABLE'' AND GRANT_X=''LNK'' '+WN.A4
ZZZZ010438	6000	=   +')OR(KIND=''VIEW'' AND GRANT_X=''LNK'' '+WN.A5
ZZZZ010438	6100	=   +')OR(KIND=''PROC'' AND GRANT_X=''LNK'' '+WN.A6+'))'};
ZZZZ010438	6200	SET=S_TABLE{}
ZZZZ010438	6300	JA+TITLE=テーブル
ZZZZ010438	6400	O+%TEST+=SET{WN.TABLE=_M_TEST+_WORK,_REAL_TEST='TEST'};
ZZZZ010438	6500	O+%TEST-=SET{WN.TABLE=_M_REAL+_WORK};
ZZZZ010438	6600	O+=DROP_TABLE{?WN.TABLE?};
ZZZZ010438	6700	O+=CREATE_TABLE2{?WN.TABLE?,
ZZZZ010438	6800	O+=   KIND,5,GRANT_X,3,GRANT_NAME,30}
ZZZZ010438	6900	O+=  {SELECT_X,1,INSERT_X,1,UPDATE_X,1,DELETE_X,1
ZZZZ010438	7000	O+=   ,EXECUTE_X,1};
ZZZZ010438	7100	O+REPEAT=6
ZZZZ010438	7200	O+=SQL{INSERT INTO ?WN.TABLE?
ZZZZ010438	7300	O+=   SELECT '?WN.XT##?','?WN.G##?',T.?_3?,G.?_4?
ZZZZ010438	7400	O+=   ,G.?_5?,G.?_6?,G.?_7?,G.?_8?
ZZZZ010438	7500	O+=   FROM M_?WN.XT##?_VIEW T
ZZZZ010438	7600	O+=   ,M_GRANT_VIEW G WHERE
ZZZZ010438	7700	O+=   RTRIM(T.?WN.XT##?_NAME)=RTRIM(G.GRANT_NAME)
ZZZZ010438	7800	O+=   AND G.GRANT_X='?WN.G##?'
ZZZZ010438	7900	O+=   AND T.NAME LIKE '?S_TABLE?%'};
ZZZZ010438	8000	O+REPEAT=
ZZZZ010438	8100	O+%TEST+=SET{_REAL_TEST='REAL'};
ZZZZ010438	8200	DATA=GRANT_NAME{30,6}
ZZZZ010438	8300	JA+TITLE=テーブル
ZZZZ010438	8400	DATA=GRANT_X{3}
ZZZZ010438	8500	JA+TITLE=許可相手
ZZZZ010438	8600	DATA=KIND{5}
ZZZZ010438	8700	JA+TITLE=区分
ZZZZ010438	8800	DATA=SELECT_X{1}
ZZZZ010438	8900	DATA=INSERT_X{1}
ZZZZ010438	9000	DATA=UPDATE_X{1}
ZZZZ010438	9100	DATA=DELETE_X{1}
ZZZZ010438	9200	DATA=EXECUTE_X{1}
ZZZZ010438	9300	END
ZZZZ010438	9400	=DROP_TABLE{?_WORK_TABLE?A};
ZZZZ010438	9500	M+REPEAT=6
ZZZZ010438	9600	M+SQL=?_UNION##? SELECT
ZZZZ010438	9800	M+SQL=   T.?WN.XT##?_NAME,'?WN.XT##?','?WN.G##?',G.?_4?
ZZZZ010438	9900	O+SQL=SELECT ?_1?,?_2?,?_3?,?_4?
ZZZZ010438	10000	M+SQL=   ,G.?_5?,G.?_6?,G.?_7?,G.?_8?
ZZZZ010438	10100	O+SQL=   ,?_5?,?_6?,?_7?,?_8?
ZZZZ010438	10200	M+SQL=   FROM ?WN.DBX?M_?WN.XT##?_VIEW T
ZZZZ010438	10300	O+SQL=   FROM ?WN.TABLE? T ?WN.AXX?
ZZZZ010438	10400	M+SQL=   LEFT OUTER JOIN ?WN.DBX?M_GRANT_VIEW G ON
ZZZZ010438	10500	M+SQL=   RTRIM(T.?WN.XT##?_NAME)=RTRIM(G.GRANT_NAME)
ZZZZ010438	10600	M+SQL=   AND G.GRANT_X='?WN.G##?'
ZZZZ010438	10700	M+SQL=   WHERE ?WN.A##? T.?WN.XT##?_NAME LIKE '?S_TABLE?%'
ZZZZ010438	10800	M+REPEAT=
ZZZZ010438	10900	REPEAT=_DATA_COUNT
ZZZZ010438	11000	SQL=?_GROUP##?
ZZZZ010438	11100	REPEAT=_ORDER_COUNT
ZZZZ010438	11200	SQL=?_ORDER##?
ZZZZ010438	11300	REPEAT=
ZZZZ010438	11400	*############################################################
ZZZZ010438	11500	PROGRAM=NOT
ZZZZ010438	11600	CONTROL=PROGRAM
ZZZZ010438	11700	= (RUN,LINK,NOLINK,ALL_USR,QUIT)= @
ZZZZ010438	11800	=                           KIND= @
ZZZZ010438	11900	=                          TABLE= @
ZZZZ010438	12000	=                                 @
ZZZZ010438	12100	BEGIN
ZZZZ010438	12200	COPY=DB_SET
ZZZZ010438	12300	=SET{KIND=$KIND,GRANT_NAME=$GRANT_NAME};
ZZZZ010438	12400	DATA=YN{8,3}{RUN,LINK,NOLINK,ALL,QUIT}
ZZZZ010438	12500	=IF{_DATA='QUIT'}EXIT{_END};
ZZZZ010438	12600	=IF{_DATA='RUN'}JUMP{RUN};
ZZZZ010438	12700	=IF{_DATA='ALL'}JUMP{ALL};
ZZZZ010438	12800	=SET{WN.LINK=};IF{_DATA='LINK'}SET{WN.LINK='Y'};
ZZZZ010438	12900	=IF{KIND='TABLE'}JUMP{TABLE_MAINTE};
ZZZZ010438	13000	=IF_ERROR_PROGRAM{?_MM?_
ZZZZ010438	13100	=  {WN.LINK}{KIND,NAME,SEQ}
ZZZZ010438	13200	=  {PUBLIC_X}{}{20}ERROR{};JUMP{RUN};
ZZZZ010438	13300	=TABLE_MAINTE:
ZZZZ010438	13400	=IF_ERROR_PROGRAM{?_MM?_
ZZZZ010438	13500	=  {WN.LINK}{TABLE,DATA}{PUBLIC_X}{}{20}ERROR{};
ZZZZ010438	13600	=RUN:
ZZZZ010438	13700	=IF{KIND='TABLE'}JUMP{TABLE_SELECT};
ZZZZ010438	13800	=SQL1{WN.LINK}{SELECT PUBLIC_X FROM ?_MM?_I_OBJECT_TABLE
ZZZZ010438	13900	=WHERE KIND='?KIND?'
ZZZZ010438	14000	= AND NAME='?GRANT_NAME?'
ZZZZ010438	14100	=AND SEQ=0
ZZZZ010438	14200	=AND Z_CANCEL=' '}SET{WN.LINK=};
ZZZZ010438	14300	=SET{WN.GUSR='EXECUTE',WN.GLNK='EXECUTE'};
ZZZZ010438	14400	=IF{KIND!='VIEW'}JUMP{GRANT};
ZZZZ010438	14500	=SET{WN.GUSR='SELECT,INSERT,UPDATE',WN.GLNK='SELECT'};
ZZZZ010438	14600	=IF{GRANT_NAME[1;7]='ZZZZZZ_'}SET{WN.GUSR='SELECT'};
ZZZZ010438	14700	=JUMP{GRANT};
ZZZZ010438	14800	=TABLE_SELECT:
ZZZZ010438	14900	=SQL1{WN.LINK}{SELECT PUBLIC_X
ZZZZ010438	15000	=FROM ?_MM?_I_TABLE_TABLE
ZZZZ010438	15100	=WHERE NAME='?GRANT_NAME?'
ZZZZ010438	15200	=AND Z_CANCEL=' '}SET{WN.LINK=};
ZZZZ010438	15300	=SET{WN.GUSR='SELECT,INSERT,UPDATE',WN.GLNK='SELECT'};
ZZZZ010438	15400	=GRANT:
ZZZZ010438	15500	M+=SQL{USE ?WN.DBXUSE?};
ZZZZ010438	15600	O+=SET{_TEST=WN.REAL[1;1]};
ZZZZ010438	15700	=SET{WN.DBU=WN.DBXU};
ZZZZ010438	15800	NAME=GRANT
ZZZZ010438	15900	=SQL{
ZZZZ010438	16000	= GRANT ?WN.GUSR? ON ?WN.DB??GRANT_NAME? TO ?WN.DBU?INS};
ZZZZ010438	16100	*IF{NAME(1,12)='ZZZZZZ_I_'}SET{WN.LINK='Y'};
ZZZZ010438	16200	=SET{WN.GRANT='GRANT'};
ZZZZ010438	16300	=IF{WN.LINK!='Y'}SET{WN.GRANT='REVOKE'};
ZZZZ010438	16400	=SQL{?WN.GRANT? ?WN.GLNK? ON ?WN.DB??GRANT_NAME?
ZZZZ010438	16500	=    TO ?WN.DBU?LNK}:;
ZZZZ010438	16600	NAME=
ZZZZ010438	16700	%TEST-M+=SQL{USE ?WN.DBTUSE?};
ZZZZ010438	16800	%TEST-O+=SET{_REAL_TEST='TEST'};
ZZZZ010438	16900	%TEST-=SET{WN.DBU=WN.DBTU};
ZZZZ010438	17000	%TEST-COPY=GRANT
ZZZZ010438	17100	=JUMP:
ZZZZ010438	17200	M+=SQL{USE ?_DATABASE?};
ZZZZ010438	17300	O+=SET{_REAL_TEST='REAL'};
ZZZZ010438	17400	=EXIT{_END};
ZZZZ010438	17500	*****( ALL )*************************************************
ZZZZ010438	17600	=ALL:
ZZZZ010438	17700	=SQL1{
ZZZZ010438	17800	M+REPEAT=3
ZZZZ010438	17900	M+1-=UNION
ZZZZ010438	18000	M+=SELECT ?$WN.XT##?_NAME
ZZZZ010438	18100	M+=FROM ?$WN.DBX?M_?$WN.XT##?_VIEW
ZZZZ010438	18200	M+=WHERE NAME LIKE '?$S_TABLE?%'
ZZZZ010438	18300	M+REPEAT=
ZZZZ010438	18400	M+=}EXIT{};
ZZZZ010438	18500	M+=SQL{USE ?WN.DBXUSE?};
ZZZZ010438	18600	3+=SELECT NAME FROM ?$WN.TABLE? T
ZZZZ010438	18700	O+=SET{_REAL_TEST=WN.REAL};
ZZZZ010438	18800	=SQL1_NEXT:SQL1_NEXT{WN.NAME}JUMP{SQL1_END};
ZZZZ010438	18900	=LOOP:SQL{GRANT SELECT,INSERT,UPDATE
ZZZZ010438	19000	=   ON ?WN.DB??WN.NAME? TO ?WN.DBXU?INS};
ZZZZ010438	19110	=BACK{SQL1_NEXT};
ZZZZ010438	19200	=SQL1_END:
ZZZZ010438	19300	M+=SQL{USE ?_DATABASE?};
ZZZZ010438	19400	O+=SET{_REAL_TEST='REAL'};
ZZZZ010438	19500	=EXIT{_END};
ZZZZ010438	19600	DATA={O}KIND{5}
ZZZZ010438	19700	DATA={O}GRANT_NAME{30}
ZZZZ010439	10	MINUS=%TEST
ZZZZ010440	100	PROGRAM=NOT
ZZZZ010440	200	BEGIN
ZZZZ010440	300	*SET{WC.DIR='D:\HARASAWA\I\?_IV?_SRC\'};
ZZZZ010440	310	=SET{WC.DIR='.\'};
ZZZZ010440	400	CONTROL=?#ZZZZZZ_ARG_BEGIN_ENTER?
ZZZZ010440	500	BEGIN_END
ZZZZ010440	600	NAME=DROP_TABLE_WORK
ZZZZ010440	700	REPEAT=?_A_A?
ZZZZ010440	800	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010440	900	REPEAT=
ZZZZ010440	1000	NAME=
ZZZZ010440	1100	BEGIN
ZZZZ010440	1200	=IF{#ZZZZZZ_ARG_INSTALL='YES'}SET{YES='YES'};
ZZZZ010440	1300	DATA={O}WC.DIR{25}
ZZZZ010440	1400	DATA=YES{3}{YES,NO}
ZZZZ010440	1500	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010440	1600	COPY=DROP_TABLE_WORK
ZZZZ010440	1700	=COPY_TABLE{?_WORK_TABLE?A,?_MM?_I_PROGRAM_TABLE,NOT};
ZZZZ010440	1800	=SET{WN.1='BEGIN',WN.2='DB_M',WN.3='DB_P'
ZZZZ010440	1900	=   ,WN.4='DB_O',WN.5='DB_I'};
ZZZZ010440	2000	=SET{WN.6='DB_L',WN.7='DB_D',WN.8='DB_H',WN.9='END'};
ZZZZ010440	2100	*SET{WN.PATH='\HARASAWA\I\?_IV?_SRC',WN.JOB='ZZZZ010541'};
ZZZZ010440	2200	=SET{WC.SYSTEM_JOB='ZZZZ010541'};
ZZZZ010440	2300	=SET{W0.C=10};
ZZZZ010440	2400	REPEAT=9
ZZZZ010440	2500	*IF_ERROR_READ_OPEN{1,?WN.PATH?\SET_?WN.##?.TXT}
ZZZZ010440	2600	=IF_ERROR_READ_OPEN{1,?WC.DIR?SET_?WN.##?.TXT}ERROR{};
ZZZZ010440	2700	=SET{WSW=};
ZZZZ010440	2800	=READ_NEXT1:READ_NEXT{1,WN.R}JUMP{READ_END1};
ZZZZ010440	2900	=IF{WSW!='BEGIN'}JUMP{SKIP};
ZZZZ010440	3000	=IF{WN.R!='*(PERMISSION_END)*'}JUMP{OUT};
ZZZZ010440	3100	=SET{WSW='END'}; END発見*
ZZZZ010440	3200	=BACK{READ_NEXT1};
ZZZZ010440	3300	=SKIP:IF{WN.R!='*(PERMISSION_BEGIN)*'}BACK{READ_NEXT1};
ZZZZ010440	3400	=SET{WSW='BEGIN'};BEGIN発見*
ZZZZ010440	3500	=BACK{READ_NEXT1};
ZZZZ010440	3600	=OUT:IF_ERROR_SQL{INSERT INTO ?_WORK_TABLE?A(SYSTEM_JOB
ZZZZ010440	3700	=   ,SYSTEM_SEQ,SYSTEM_PROGRAM)
ZZZZ010440	3800	=   VALUES('?WC.SYSTEM_JOB?',?W0.C?,?_N?'?WN.R?')}ERROR{};
ZZZZ010440	3900	=COMPUTE{W0.C+=10};
ZZZZ010440	4000	=BACK{READ_NEXT1};
ZZZZ010440	4100	=READ_END1:READ_CLOSE{1};
ZZZZ010440	4200	=IF{WSW!='END'}ERROR{(?WN.##?)*(PERMISSION_END)* ERR};
ZZZZ010440	4300	REPEAT=
ZZZZ010440	4400	=REPLACE_ALL{?_MM?_I_PROGRAM_TABLE,?_WORK_TABLE?A
ZZZZ010440	4500	=  ,SYSTEM_PROGRAM}{SYSTEM_JOB,SYSTEM_SEQ}
ZZZZ010440	4600	=  {O.?_VRE&WC.SYSTEM_JOB?}{};
ZZZZ010440	4700	=IF_ERROR_WRITE_OPEN{1,?WC.DIR?SET_ALL.TXT,OT}ERROR{};
ZZZZ010440	4800	*EXIT{_END};
ZZZZ010440	4900	*****( INSTALL TABLE SET BEGIN )*****
ZZZZ010440	5000	***( I_DICTIONARY )***
ZZZZ010440	5100	=SET{WC.NAME='I_DICTIONARY',WC.RT='R',WC.APN='P'};
ZZZZ010440	5200	=SET{WC.WHERE=
ZZZZ010440	5300	=   '(O.SYSTEM_PERMISSION=''ZZZZ'''
ZZZZ010440	5400	=   +' AND(O.SYSTEM_DATA_NAME LIKE ''MODEL%'''
ZZZZ010440	5500	=   +' OR  O.SYSTEM_DATA_NAME LIKE ''SYSTEM%''))'};
ZZZZ010440	5600	NAME=TABLE_OUT
ZZZZ010440	5700	=SET_TABLE{&XX,?_MM?_?WC.NAME?_TABLE};
ZZZZ010440	5800	=SET{WC.WHEREXX=};
ZZZZ010440	5900	=IF{WC.APN='N'}JUMP{OK};
ZZZZ010440	6000	=SET{W0=1,W0.ST=1};
ZZZZ010440	6100	=LOOP:IF{WC.WHERE[W0;2]='O.'}
ZZZZ010440	6200	=   SET{WC.WHEREXX+=WC.WHERE[W0.ST;W0-W0.ST]+'*O*'}
ZZZZ010440	6300	=   COMPUTE{W0.ST=W0+1};
ZZZZ010440	6400	=COMPUTE{W0+=1};
ZZZZ010440	6500	=IF{W0<WC.WHERE@LENGTH}BACK{LOOP};
ZZZZ010440	6600	=SET{WC.WHEREXX+=WC.WHERE[W0.ST]};
ZZZZ010440	6700	=OK:WRITE{1,WC.RT,WC.APN,WC.NAME,&XX.KEY_CREATE
ZZZZ010440	6800	=   ,&XX.DATA_CREATE,&XX.KEY,&XX.DATA,WC.WHEREXX,&XX.WORK};
ZZZZ010440	6900	=IF{WC.APN!='N'}
ZZZZ010440	7000	=   SQL_FILE2{?WC.DIR?SET_?WC.NAME?.TXT,OT}
ZZZZ010440	7100	=  {SELECT ?&XX.ALL? FROM ?&XX.TABLE? O WHERE Z_CANCEL=' '
ZZZZ010440	7200	=   AND ?WC.WHERE? ORDER BY ?&XX.KEY?};
ZZZZ010440	7300	NAME=
ZZZZ010440	7400	***( ETC_ID )**
ZZZZ010440	7500	=SET{WC.NAME='ETC_ID',WC.RT='T',WC.APN='P'};
ZZZZ010440	7600	=SET{WC.WHERE='(O.SYSTEM_KEY1 IN(''ZZZZZZ_%'''
ZZZZ010440	7610	=   +',''ZZZZZZ_@'''
ZZZZ010440	7620	=   +',''ZZZZZZ_COPY'''
ZZZZ010440	7630	=   +',''ZZZZZZ_INSTALL'''
ZZZZ010440	7634	=   +',''ZZZZZZ_MENU0'''
ZZZZ010440	7635	=   +',''ZZZZZZ_OBJECT_SAMPLE'''
ZZZZ010440	7636	=   +',''ZZZZZZ_PART:ZZZY'''
ZZZZ010440	7637	=   +',''ZZZZZZ_PART:ZZZZ'''
ZZZZ010440	7638	=   +',''ZZZZZZ_PERMISSION'''
ZZZZ010440	7639	=   +',''ZZZZZZ_PROGRAM'''
ZZZZ010440	7640	=   +',''ZZZZZZ_RESERVED'''
ZZZZ010440	7650	=   +',''ZZZZZZ_RESTORE'''
ZZZZ010440	7660	=   +',''ZZZZZZ_SYSTEM'''
ZZZZ010440	7670	=   +',''ZZZZZZ_URL_VERSION''))'};
ZZZZ010440	7700	COPY=TABLE_OUT
ZZZZ010440	7800	***( ETC)***
ZZZZ010440	7900	=SQL{UPDATE ?_MM?_ETC_TABLE SET SYSTEM_ETC=' ' WHERE
ZZZZ010440	8000	=   SYSTEM_KEY1='ZZZZZZ_SYSTEM' AND SYSTEM_KEY2 IN(
ZZZZ010440	8100	=   'ZZZZZZ_DATE','ZZZZZZ_DATE_OLD')};
ZZZZ010440	8200	=SET{WC.NAME='ETC',WC.RT='T',WC.APN='P'};
ZZZZ010440	8300	=SET{WC.WHERE=
ZZZZ010440	8400	=   '(O.SYSTEM_KEY1 IN(''ZZZZZZ_@'''
ZZZZ010440	8500	=   +',''ZZZZZZ_COPY'''
ZZZZ010440	8600	=   +',''ZZZZZZ_SYSTEM'')'
ZZZZ010440	8700	=   +' AND O.SYSTEM_KEY2 LIKE ''ZZZZZZ%'''
ZZZZ010440	8703	=   +' AND NOT(O.SYSTEM_KEY2 LIKE ''ZZZZZZ_LINK%'')'
ZZZZ010440	8710	=   +' OR  O.SYSTEM_KEY1=''ZZZZZZ_PERMISSION'''
ZZZZ010440	8720	=   +' AND O.SYSTEM_KEY2 IN('ZZZZ','ZZZY')'
ZZZZ010440	8800	=   +' OR  O.SYSTEM_KEY1 IN(''ZZZZZZ_MENU0'''
ZZZZ010440	8900	=   +',''ZZZZZZ_OBJECT_SAMPLE'''
ZZZZ010440	9000	=   +',''ZZZZZZ_PART:ZZZY'''
ZZZZ010440	9100	=   +',''ZZZZZZ_PART:ZZZZ'''
ZZZZ010440	9200	*** +',''ZZZZZZ_PERMISSION'''
ZZZZ010440	9300	=   +',''ZZZZZZ_PROGRAM'''
ZZZZ010440	9400	=   +',''ZZZZZZ_RESERVED'''
ZZZZ010440	9500	=   +',''ZZZZZZ_URL_VERSION''))'};
ZZZZ010440	9600	*  '(O.SYSTEM_KEY1 IN(''ZZZZZZ_PROGRAM'',''ZZZZZZ_RESERVED'''
ZZZZ010440	9700	* +' ,''ZZZZZZ_OBJECT_SAMPLE'',''ZZZZZZ_URL_VERSION'')'
ZZZZ010440	9800	* +' OR O.SYSTEM_KEY1'
ZZZZ010440	9900	* +' IN(''ZZZZZZ_PART:ZZZY'',''ZZZZZZ_PART:ZZZZ'')'
ZZZZ010440	10000	* +' AND O.SYSTEM_KEY2 IN(''ZY'',''ZZ'')'
ZZZZ010440	10100	* +' OR O.SYSTEM_KEY1=''ZZZZZZ_COPY'''
ZZZZ010440	10200	* +' AND O.SYSTEM_KEY2 LIKE ''ZZZZZZ_SQL%'')'};
ZZZZ010440	10300	COPY=TABLE_OUT
ZZZZ010440	10400	***( I_OBJECT_ID )***
ZZZZ010440	10500	=SET{WC.NAME='I_OBJECT_ID',WC.RT='R',WC.APN='N'};
ZZZZ010440	10600	*SET{WC.WHERE='O.SYSTEM_NAME LIKE ''ZZZZZZ%'''};
ZZZZ010440	10700	COPY=TABLE_OUT
ZZZZ010440	10800	***( I_OBJECT)***
ZZZZ010440	10900	=SET{WC.NAME='I_OBJECT',WC.RT='R',WC.APN='N'};
ZZZZ010440	11000	COPY=TABLE_OUT
ZZZZ010440	11100	=WRITE{1,'*'}; 初期処理終了*
ZZZZ010440	11200	***( CALENDAR T,N )
ZZZZ010440	11300	=SET{WC.NAME='CALENDAR',WC.RT='T',WC.APN='N'};
ZZZZ010440	11400	COPY=TABLE_OUT
ZZZZ010440	11500	***( CHART_ID )**
ZZZZ010440	11600	=SET{WC.NAME='CHART_ID',WC.RT='T',WC.APN='A'};
ZZZZ010440	11700	=SET{WC.WHERE='(O.SYSTEM_CHART LIKE ''ZZZZZZ_SAMPLE%'')'};
ZZZZ010440	11800	COPY=TABLE_OUT
ZZZZ010440	11900	***( CHART_SETTING )
ZZZZ010440	12000	=SET{WC.NAME='CHART_SETTING',WC.RT='T',WC.APN='N'};
ZZZZ010440	12100	COPY=TABLE_OUT
ZZZZ010440	12200	***( CHART )***
ZZZZ010440	12300	=SET{WC.NAME='CHART',WC.RT='T',WC.APN='A'};
ZZZZ010440	12400	COPY=TABLE_OUT
ZZZZ010440	12500	***( HOLIDAY )*****
ZZZZ010440	12600	=SET{WC.NAME='HOLIDAY',WC.RT='T',WC.APN='P'};
ZZZZ010440	12700	=SET{WC.WHERE='(O.SYSTEM_COUNTRY=''JP'')'};
ZZZZ010440	12800	COPY=TABLE_OUT
ZZZZ010440	12900	***( KEEP )***
ZZZZ010440	13000	=SET{WC.NAME='KEEP',WC.RT='T',WC.APN='N'};
ZZZZ010440	13100	COPY=TABLE_OUT
ZZZZ010440	13200	***( PACKAGE_DEFAULT )***
ZZZZ010440	13300	=SET{WC.NAME='PACKAGE_DEFAULT',WC.RT='T',WC.APN='N'};
ZZZZ010440	13400	COPY=TABLE_OUT
ZZZZ010440	13500	***( PRINT ID )*******
ZZZZ010440	13600	=SET{WC.NAME='PRINT_ID',WC.RT='T',WC.APN='A'};
ZZZZ010440	13700	=SET{WC.WHERE='(O.SYSTEM_PRINT LIKE ''ZZZZZZ_SAMPLE%'')'};
ZZZZ010440	13800	COPY=TABLE_OUT
ZZZZ010440	13900	***( PRINT )*******
ZZZZ010440	14000	=SET{WC.NAME='PRINT',WC.RT='T',WC.APN='A'};
ZZZZ010440	14100	COPY=TABLE_OUT
ZZZZ010440	14200	***( SAMPLAE )*****
ZZZZ010440	14300	=SET{WC.NAME='SAMPLE',WC.RT='T',WC.APN='P'};
ZZZZ010440	14400	=SET{WC.WHERE='(1=1)'};
ZZZZ010440	14500	COPY=TABLE_OUT
ZZZZ010440	14600	***( I_COLUMN )****
ZZZZ010440	14700	=SET{WC.NAME='I_COLUMN',WC.RT='R',WC.APN='N'};
ZZZZ010440	14800	COPY=TABLE_OUT
ZZZZ010440	14900	***( I_ERROR )****
ZZZZ010440	15000	=SET{WC.NAME='I_ERROR',WC.RT='R',WC.APN='N'};
ZZZZ010440	15100	COPY=TABLE_OUT
ZZZZ010440	15200	***( I_HELP  )***
ZZZZ010440	15300	=SET{WC.NAME='I_HELP',WC.RT='R',WC.APN='A'};
ZZZZ010440	15400	NAME=WHERE_JOB
ZZZZ010440	15500	=SET{WC.WHERE=
ZZZZ010440	15600	=   +'(O.SYSTEM_JOB =    ''ZZZZ000000'' OR'
ZZZZ010440	15700	=   +' O.SYSTEM_JOB LIKE ''ZZZZ010%''   OR'
ZZZZ010440	15800	=   +' O.SYSTEM_JOB LIKE ''ZZZZ40%''    OR'
ZZZZ010440	15900	=   +' O.SYSTEM_JOB LIKE ''ZZZZ99985%'' OR'
ZZZZ010440	16000	=   +' O.SYSTEM_JOB LIKE ''ZZZZ99995%'' OR'
ZZZZ010440	16100	=   +' O.SYSTEM_JOB LIKE ''ZZZZ99996%'' )'};
ZZZZ010440	16200	NAME=
ZZZZ010440	16300	COPY=TABLE_OUT
ZZZZ010440	16400	***( I_MENU )***
ZZZZ010440	16500	=SET{WC.NAME='I_MENU',WC.RT='R',WC.APN='A'};
ZZZZ010440	16600	=SET{WC.WHERE=
ZZZZ010440	16700	=   +'(O.SYSTEM_MENU0=''ZZZZ'''
ZZZZ010440	16800	=   +' AND(O.SYSTEM_MENU1 IN(''99'')'
ZZZZ010440	16900	=   +'     AND O.SYSTEM_MENU2 IN(''98'',''99'')'
ZZZZ010440	17000	=   +'     AND(O.SYSTEM_MENU3 LIKE ''5%'''
ZZZZ010440	17100	=   +'         OR O.SYSTEM_MENU3 LIKE ''6%'' )'
ZZZZ010440	17200	=   +'     OR O.SYSTEM_MENU1=''01'''
ZZZZ010440	17300	=   +'     AND O.SYSTEM_MENU2 LIKE ''0%'''
ZZZZ010440	17400	=   +'     OR O.SYSTEM_MENU1=''40''))'};
ZZZZ010440	17500	COPY=TABLE_OUT
ZZZZ010440	17600	***( I_PERMISSION )***
ZZZZ010440	17700	=SET{WC.NAME='I_PERMISSION',WC.RT='R',WC.APN='N'};
ZZZZ010440	17800	COPY=TABLE_OUT
ZZZZ010440	17900	***( I_PROGRAM 3 )***
ZZZZ010440	18000	=SET{WC.NAME='I_PROGRAM',WC.RT='R',WC.APN='A'};
ZZZZ010440	18100	COPY=WHERE_JOB
ZZZZ010440	18200	COPY=TABLE_OUT
ZZZZ010440	18300	***( I_SECURITY_G_ID )
ZZZZ010440	18400	=SET{WC.NAME='I_SECURITY_G_ID',WC.RT='R',WC.APN='N'};
ZZZZ010440	18500	COPY=TABLE_OUT
ZZZZ010440	18600	***( I_SECURITY_G_J )
ZZZZ010440	18700	=SET{WC.NAME='I_SECURITY_G_J',WC.RT='R',WC.APN='N'};
ZZZZ010440	18800	COPY=TABLE_OUT
ZZZZ010440	18900	***( I_SECURITY_G )
ZZZZ010440	19000	=SET{WC.NAME='I_SECURITY_G',WC.RT='R',WC.APN='N'};
ZZZZ010440	19100	COPY=TABLE_OUT
ZZZZ010440	19200	***( I_SECURITY_J )
ZZZZ010440	19300	=SET{WC.NAME='I_SECURITY_J',WC.RT='R',WC.APN='N'};
ZZZZ010440	19400	COPY=TABLE_OUT
ZZZZ010440	19500	***( I_SECURITY )
ZZZZ010440	19600	=SET{WC.NAME='I_SECURITY',WC.RT='R',WC.APN='N'};
ZZZZ010440	19700	COPY=TABLE_OUT
ZZZZ010440	19800	***( I_SQL )
ZZZZ010440	19900	=SET{WC.NAME='I_SQL',WC.RT='R',WC.APN='N'};
ZZZZ010440	20000	COPY=TABLE_OUT
ZZZZ010440	20100	***( I_TABLE )
ZZZZ010440	20200	=SET{WC.NAME='I_TABLE',WC.RT='R',WC.APN='N'};
ZZZZ010440	20300	COPY=TABLE_OUT
ZZZZ010440	20400	***( I_TIME_LOG )*
ZZZZ010440	20500	=SET{WC.NAME='I_TIME_LOG',WC.RT='R',WC.APN='N'};
ZZZZ010440	20600	COPY=TABLE_OUT
ZZZZ010440	20700	***( I_TIME )*
ZZZZ010440	20800	=SET{WC.NAME='I_TIME',WC.RT='R',WC.APN='P'};
ZZZZ010440	20900	=SET{WC.WHERE='(O.SYSTEM_HH=''99'' OR '
ZZZZ010440	21000	=          +'  O.SYSTEM_HH=''12'' AND O.SYSTEM_MIN=''00'')'};
ZZZZ010440	21100	COPY=TABLE_OUT
ZZZZ010440	21200	***( I_USE )*
ZZZZ010440	21300	=SET{WC.NAME='I_USE',WC.RT='R',WC.APN='N'};
ZZZZ010440	21400	COPY=TABLE_OUT
ZZZZ010440	21500	*****( INSTALL TABLE SET END )*****
ZZZZ010440	21600	=WRITE_CLOSE{1};
ZZZZ010440	21700	=EXIT{_END};
ZZZZ010501	100	PROGRAM=,&X1,?_MM?_I_TIME_TABLE
ZZZZ010501	200	CONTROL=BEGIN_ENTER,ERROR_SQL
ZZZZ010501	300	CONTROL=SCROLL,WIDTH
ZZZZ010501	400	LINE=10
ZZZZ010501	500	BEGIN
ZZZZ010501	600	=SET{BEEP='Y'};
ZZZZ010501	700	=IF{_SERVER=_COMPUTER}
ZZZZ010501	710	=   IF_ERROR_RECEIVE{99}
ZZZZ010501	800	=   SET{TIME='10',TIME@COLOR='Y'}TIMER{10};
ZZZZ010501	900	=SET{WN.UNION=};
ZZZZ010501	1000	=SQL1{SELECT SYSTEM_KEY2,SYSTEM_COMMENT FROM ?_MM?_ETC_TABLE
ZZZZ010501	1100	=   WHERE SYSTEM_KEY1='ZZZZZZ_@'
ZZZZ010501	1200	=   AND SYSTEM_KEY2 LIKE 'ZZZZZZ_LINKNAME_%'
ZZZZ010501	1210	=   AND Z_CANCEL=' '};
ZZZZ010501	1300	=SQL1_NEXT:SQL1_NEXT{WN.SYSTEM_KEY2,WN.COMMENT}
ZZZZ010501	1310	=                                       JUMP{SQL1_END};
ZZZZ010501	1400	=SET{WN.LINK=^?WN.SYSTEM_KEY2[17]?};
ZZZZ010501	1500	=SET{WN.SYSTEM=WN.COMMENT[3;8]
ZZZZ010501	1510	=   ,WN.SERVER=WN.COMMENT[12;15]};
ZZZZ010501	1600	=LINK_SET{WN.WLINK}{SELECT '?WN.SYSTEM?' AS SYS
ZZZZ010501	1700	=   ,'?WN.SERVER?' AS SER,?_3?,?_4?,?_5?,?_6?,?_7?,?_8?,?_9?
ZZZZ010501	1800	=   ,?_10?,?_11? FROM}
ZZZZ010501	1900	=   {?WN.LINK?ZZZZZZ_I_TIME_TABLE}{X1}
ZZZZ010501	2000	=   {WHERE Z_CANCEL=' '
ZZZZ010501	2100	=   AND ?_T?.SYSTEM_REAL_STATUS!=' '};
ZZZZ010501	2200	=IF_ERROR_SQL{?WN.WLINK?}
ZZZZ010501	2500	=   SET{WN.WLINK='SELECT ''?WN.SYSTEM?'' AS SYS'
ZZZZ010501	2600	=   +',''?WN.SERVER?'' AS SER,''ABORT'','' '','' '','' '''
ZZZZ010501	2700	=   +','' '','' '',''?_ERROR?'','' '','' '' ?_FROM_DUAL?'};
ZZZZ010501	2800	=SET{WN.UNION+=' UNION '+WN.WLINK};
ZZZZ010501	2900	=BACK{SQL1_NEXT};
ZZZZ010501	2910	=SQL1_END:SET{WN.BEGIN_SW=1};
ZZZZ010501	3000	SET={O,*}TIME{2,,+}
ZZZZ010501	3100	=SET{_DATA@WHERE='?_T?.SYSTEM_REAL_STATUS!='' '''};
ZZZZ010501	3200	SET={,*}BEEP{4}
ZZZZ010501	3300	=SQL_SET{WN.SYSTEM_REAL_STATUS}
ZZZZ010501	3310	=  {SELECT SYSTEM_REAL_STATUS FROM
ZZZZ010501	3400	=   ?_MM?_I_TIME_TABLE ?_T? WHERE Z_CANCEL=' ' AND
ZZZZ010501	3500	=   ?_T?.SYSTEM_REAL_STATUS IN('ERROR','RUN') ORDER BY 1};
ZZZZ010501	3600	=IF{_SQL_SET_COUNT=0}JUMP{NO_ERROR_RUN};
ZZZZ010501	3700	=IF{_DATA='Y'}IF{WN.SYSTEM_REAL_STATUS='ERROR'}BEEP{};
ZZZZ010501	3800	=SET{TIME=10};JUMP{TIME};
ZZZZ010501	3900	=NO_ERROR_RUN:
ZZZZ010501	4000	=SET{TIME=0};
ZZZZ010501	4100	=IF{_SERVER!=_COMPUTER}SET{TIME=60};
ZZZZ010501	4200	=IF{TIME=0}IF_ERROR_RECEIVE{99}SET{TIME=60};
ZZZZ010501	4300	=TIME:SET{TIME@COLOR='N'};
ZZZZ010501	4400	=IF{TIME=0}EXIT{};
ZZZZ010501	4500	=SET{TIME@COLOR='Y'};TIMER{?TIME?};
ZZZZ010501	4600	DATA={}SYSTEM{8}SYSTEM
ZZZZ010501	4700	SELECT='?_SYSTEM?' AS SYS
ZZZZ010501	4800	DATA={}SERVER{15}SERVER
ZZZZ010501	4900	SELECT='?_SERVER?' AS SER
ZZZZ010501	5000	*****( 本番状態 )*****
ZZZZ010501	5100	DATA={ }?&.DATA&SYSTEM_REAL_STATUS?
ZZZZ010501	5200	*****( 時 )*****
ZZZZ010501	5300	DATA={K}?&.DATA&SYSTEM_HH?
ZZZZ010501	5400	*****( 分 )*****
ZZZZ010501	5500	DATA={K}?&.DATA&SYSTEM_MIN?
ZZZZ010501	5600	*****( 本番終了時間 )*****
ZZZZ010501	5700	DATA={ }?&.DATA&SYSTEM_REAL_END_TIME?
ZZZZ010501	5800	*****( 本番終了ジョブ )*****
ZZZZ010501	5900	DATA={ }?&.DATA&SYSTEM_REAL_END_JOB?
ZZZZ010501	6000	*****( 本番終了メニュー )*****
ZZZZ010501	6100	*DATA={  }.?&.DATA&SYSTEM_REAL_END_MENU?
ZZZZ010501	6200	*****( 本番オプション )*****
ZZZZ010501	6300	DATA={ }?&.DATA&SYSTEM_REAL_OPTION?
ZZZZ010501	6400	*****( 本番エラー )*****
ZZZZ010501	6500	DATA={ }?&.DATA&SYSTEM_REAL_MESSAGE?
ZZZZ010501	6600	*****( 本番開始時間 )*****
ZZZZ010501	6700	DATA={ }?&.DATA&SYSTEM_REAL_BEGIN_TIME?
ZZZZ010501	6800	*****( 本番開始ジョブ )*****
ZZZZ010501	6900	DATA={ }?&.DATA&SYSTEM_REAL_BEGIN_JOB?
ZZZZ010501	6910	MINUS=%ZZZZZZ_SQL_ORDER
ZZZZ010501	7000	COPY=@ZZZZZZ_SQL
ZZZZ010501	7100	SQL=?WN.UNION?
ZZZZ010501	7200	SQL= ORDER BY 10,4
ZZZZ010501	7300	COLOR
ZZZZ010501	7400	=IF{SYSTEM_REAL_STATUS='ERROR',='ABORT'}
ZZZZ010501	7500	=SET{SYSTEM_HH@COLOR='R',SYSTEM_MIN@COLOR='R'
ZZZZ010501	7600	=   ,SYSTEM_REAL_STATUS@COLOR='R'};
ZZZZ010502	100	PROGRAM=NOT
ZZZZ010502	200	CONTROL=BEGIN_ENTER
ZZZZ010502	300	BEGIN_END
ZZZZ010502	400	REPEAT=_A_C
ZZZZ010502	500	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010502	600	REPEAT=
ZZZZ010502	700	BEGIN
ZZZZ010502	800	=SET{WN.QUEUE=,WN.TIME_START=};
ZZZZ010502	900	=SET{WN.T=_TODAY_TIME};
ZZZZ010502	1000	=SET{WN.TODAY_YMD=WN.T[1;4]+'-'+WN.T[5;2]+'-'+WN.T[7;2]};
ZZZZ010502	1100	=SET{WN.TODAY_HM=WN.T[9;2]+'-'+WN.T[11;2]};
ZZZZ010502	1200	=SET{WN.TODAY_D=WN.T[7;2]};
ZZZZ010502	1300	=CREATE_TABLE{?_WORK_TABLE?A,SYSTEM_DAY,C,10,SYSTEM_TIME,C,5
ZZZZ010502	1400	=   ,SYSTEM_HH,C,2,SYSTEM_MIN,C,2,SYSTEM_AT,C,21}{};
ZZZZ010502	1500	=CREATE_TABLE{?_WORK_TABLE?B,SYSTEM_DAY,C,10,SYSTEM_TIME,C,5
ZZZZ010502	1600	=   ,SYSTEM_HH,C,2,SYSTEM_MIN,C,2,SYSTEM_AT,C,21}
ZZZZ010502	1700	=  {SYSTEM_REAL_STATUS,C,5,SYSTEM_CHECK,C,1};
ZZZZ010502	1800	FORM= @
ZZZZ010502	1900	DATA={ }START{1}
ZZZZ010502	2000	=EXIT3{SERVER};
ZZZZ010502	2100	JA+FORM= @ 当処理はサーバー以外では実効出来ません。
ZZZZ010502	2200	DATA=SERVER{1}
ZZZZ010502	2300	***( SERVER CHECK )***
ZZZZ010502	2400	=IF{_SERVER!=_COMPUTER}ERROR{NOT SERVER};
ZZZZ010502	2500	*JA+FORM= @ セキュリティの警告画面が出た場合は
ZZZZ010502	2600	*JA+FORM=  [この種類のファイルで有れば常に警告する]
ZZZZ010502	2700	*JA+FORM=  のレ印を消して「実行」をクリックして下さい。
ZZZZ010502	2800	=EXIT3{SECURITY};
ZZZZ010502	2900	DATA=SECURITY{1}
ZZZZ010502	3000	*=SET{WN.PATH='?_OS_DRIVE??_P?I?_P?FILE?_P??_SYSTEM?.I'};
ZZZZ010502	3100	*=SET{WN.PATH='?_OS_DRIVE??_P?I?_P?I.?_SYSTEM?'};
ZZZZ010502	3200	*=SET{WN.SRVC=_OS_DRIVE+_P+'I'+_P+'SERVICE'+_P+_IV+'SRVC'+_OS
ZZZZ010502	3210	=SET{WN.SRVC=_OS_DRIVE+_P+'I'+_P+'BIN'+_IV+_P+'ISRVC'+_OS
ZZZZ010502	3300	=   +_FRAMEWORK+'.EXE'};
ZZZZ010502	3400	=SET{WN.1='BAT',WN.2='BIN'};
ZZZZ010502	3500	*****( .BAT , .EXE 実行テスト )************
ZZZZ010502	3600	COMMENT_BEGIN VER16.1でセキュリティ強化のため中止
ZZZZ010502	3700	REPEAT=2
ZZZZ010502	3800	=DIR{?WN.PATH??_P??WN.##?};
ZZZZ010502	3900	=DIR_NEXT:DIR_NEXT{WN.FILE}JUMP{DIR_END};
ZZZZ010502	4000	=SPLIT_CHAR{WN.SPLIT}{WN.FILE}{'.'};
ZZZZ010502	4100	=IF{_SPLIT_CHAR_COUNT!=2}BACK{DIR_NEXT};
ZZZZ010502	4200	=SET{_UPPER=WN.SPLIT2};
ZZZZ010502	4300	=IF{_UPPER='BAT'}JUMP{EXE};
ZZZZ010502	4400	=IF{_UPPER!='EXE'}BACK{DIR_NEXT};
ZZZZ010502	4500	=IF{_FRAMEWORK=}JUMP{FRAMEWORK};
ZZZZ010502	4600	=IF{WN.SPLIT1[WN.SPLIT1@COUNT]=_FRAMEWORK}JUMP{EXE};
ZZZZ010502	4700	=BACK{DIR_NEXT};
ZZZZ010502	4800	=FRAMEWORK:
ZZZZ010502	4900	=IF{   WN.SPLIT1[WN.SPLIT1@COUNT]!='4'}
ZZZZ010502	5000	=   IF{WN.SPLIT1[WN.SPLIT1@COUNT]!='5'}
ZZZZ010502	5100	=   IF{WN.SPLIT1[WN.SPLIT1@COUNT]!='6'}
ZZZZ010502	5200	=   IF{WN.SPLIT1[WN.SPLIT1@COUNT]!='7'}
ZZZZ010502	5300	=   IF{WN.SPLIT1[WN.SPLIT1@COUNT]!='8'}
ZZZZ010502	5400	=   IF{WN.SPLIT1[WN.SPLIT1@COUNT]!='9'}JUMP{EXE};
ZZZZ010502	5500	=BACK{DIR_NEXT};
ZZZZ010502	5600	=EXE:
ZZZZ010502	5700	=IF_ERROR_EXE_WAIT{?WN.PATH??_P??WN.##??_P??WN.FILE?}NOP{};
ZZZZ010502	5800	=BACK{DIR_NEXT};
ZZZZ010502	5900	=DIR_END:
ZZZZ010502	6000	REPEAT=
ZZZZ010502	6100	COMMENT_END
ZZZZ010502	6200	JA+FORM= @ サービスが動きません。
ZZZZ010502	6300	JA+FORM= @
ZZZZ010502	6400	JA+FORM2=をファイアウオールに例外設定下さい。
ZZZZ010502	6500	JA+FORM=  例外設定しても駄目な場合がファイアウオールを無効化
ZZZZ010502	6600	JA+FORM2=ください。
ZZZZ010502	6700	=EXIT3{?_IV?SRVC};
ZZZZ010502	6800	DATA=?_IV?SRVC{1}
ZZZZ010502	6900	***( SERVICE CHECK )*******
ZZZZ010502	7000	=SET{WC.SW=0};
ZZZZ010502	7100	=LOOP:IF_ERROR_SERVER_BAT{ZZZZZZETC,NOP}JUMP{END};
ZZZZ010502	7200	=EXIT3{CHECK};
ZZZZ010502	7300	=END:SET{WN.ERR=_ERROR};IF{WC.SW=1}JUMP{ERR};
ZZZZ010502	7400	*W+=IF_ERROR_EXE_WAIT{?_I??_P?IROOT?_OS??_FRAMEWORK?.EXE,
ZZZZ010502	7600	*W+=  CMD /C NET STOP  ?_IV?SRVCW?_FRAMEWORK?&
ZZZZ010502	7700	*W+=         NET START ?_IV?SRVCW?_FRAMEWORK?}ERROR{};
ZZZZ010502	7920	W+=SET{WC='NET STOP  ?_IV?SRVCW?_FRAMEWORK?&'
ZZZZ010502	7930	W+=      +'NET START ?_IV?SRVCW?_FRAMEWORK?'};
ZZZZ010502	7940	W+=IF_ERROR_WRITE_OPEN{1,?_WORK?.BAT,OT,SHIFT_JIS}ERROR{};
ZZZZ010502	7950	W+=WRITE{1,WC};WRITE_CLOSE{1};
ZZZZ010502	7960	W+=COMMAND{CALL ?_I??_P?IROOT?_OS??_FRAMEWORK?.EXE
ZZZZ010502	7970	W+=   ?_TMP??_WORK?.BAT};
ZZZZ010502	8000	W-=SET{WC='_MONO'};IF{_FRAMEWORK='J'}SET{WC='_JAVA'};
ZZZZ010502	8100	W-=IF{_FRAMEWORK='C'}SET{WC='_CPP'};
ZZZZ010502	8200	*W-=SET{_LOWER='SU -C "/ETC/INIT.D/?_IV?SRVCX?WC? RESTART"'};
ZZZZ010502	8300	W-=SET{_LOWER=
ZZZZ010502	8400	W-='SU -C "/ETC/INIT.D/?_IV?SRVCU?_FRAMEWORK? RESTART"'};
ZZZZ010502	8500	W-=ERROR{?_LOWER? をTERMINALで実行して下さい。};
ZZZZ010502	8600	W+=SLEEP{5};
ZZZZ010502	8700	W+=SET{WC.SW=1};BACK{LOOP};
ZZZZ010502	8800	=ERR:
ZZZZ010502	8900	=ERROR{?WN.ERR?};
ZZZZ010502	9000	DATA={O}WN.SRVC{50};
ZZZZ010502	9100	FORM= @ RUN @@@@@@ TASK @@@@@@
ZZZZ010502	9200	DATA={!}CHECK{1}
ZZZZ010502	9300	NAME=CHECK
ZZZZ010502	9400	=SET{WN.ERR_SW=0};
ZZZZ010502	9500	=SET{ERROR1@COLOR='L',ERROR2@COLOR='L',ERROR3@COLOR='L'};
ZZZZ010502	9600	***( TASKLIST )***
ZZZZ010502	9700	=SET{TASKLIST=0};
ZZZZ010502	9800	W+=COMMAND{TASKLIST /FO CSV >?_TMP??_WORK?TASKLIST.CSV};
ZZZZ010502	9900	W-=SERVER_BAT{ZZZZZZETC,TASKLIST ?_WORK?TASKLIST.CSV};
ZZZZ010502	10000	W-=SERVER_GET{?_WORK?TASKLIST.CSV};
ZZZZ010502	10100	W-=SERVER_BAT{ZZZZZZETC,ERASE ?_WORK?TASKLIST.CSV};
ZZZZ010502	10200	=READ_OPEN{1,?_TMP??_WORK?TASKLIST.CSV,/};
ZZZZ010502	10300	=READ_NEXT:
ZZZZ010502	10400	=READ_NEXT{1,WN.EXE}READ_CLOSE{1}JUMP{READ_END1};
ZZZZ010502	10500	W+=IF{WN.EXE='?_IV?TIMEW?_FRAMEWORK?.EXE'}
ZZZZ010502	10600	W-=IF{WN.EXE@UPPER!/'JAVA '}BACK{READ_NEXT};
ZZZZ010502	10700	W-=SPLIT_CHAR{W_SPLIT_}{WN.EXE@UPPER}{};
ZZZZ010502	10800	W-=IF{W_SPLIT_4!='ITIME_L'}BACK{READ_NEXT};
ZZZZ010502	10900	W-=IF{W_SPLIT_8!='REAL'}BACK{READ_NEXT};
ZZZZ010502	11000	=   COMPUTE{TASKLIST+=1};
ZZZZ010502	11100	=BACK{READ_NEXT};
ZZZZ010502	11200	=READ_END1:
ZZZZ010502	11300	COMMENT_BEGIN
ZZZZ010502	11400	****( TODAY_TABLE )******************************************
ZZZZ010502	11500	=DROP_TABLE{?_WORK_TABLE?A};
ZZZZ010502	11600	=CREATE_TABLE2{?_WORK_TABLE?A}{SYSTEM_SYSTEM,8
ZZZZ010502	11700	=   ,SYSTEM_HH,2,SYSTEM_MIN,2
ZZZZ010502	11800	=   ,SYSTEM_MENU0,4,SYSTEM_MENU1,2,SYSTEM_MENU2,2
ZZZZ010502	11900	=   ,SYSTEM_REAL_STATUS,5,SYSTEM_AT,21,SYSTEM_CHECK,1};
ZZZZ010502	12000	=SQL{INSERT INTO ?_WORK_TABLE?A
ZZZZ010502	12100	=   SELECT '?_SYSTEM?',SYSTEM_HH,SYSTEM_MIN
ZZZZ010502	12200	=   ,SYSTEM_MENU0,SYSTEM_MENU1,SYSTEM_MENU2
ZZZZ010502	12300	=   ,SYSTEM_MENU2,SYSTEM_REAL_STATUS,' ',' '
ZZZZ010502	12400	=   FROM ?_MM?_I_TIME_TABLE WHERE Z_CANCEL=' '
ZZZZ010502	12500	=   AND SYSTEM_TEST=' '};
ZZZZ010502	12600	COMMENT_BEGIN
ZZZZ010502	12700	=SQL1{SELECT SYSTEM_KEY2,SYSTEM_COMMENT FROM ?_MM?_ETC_TABLE
ZZZZ010502	12800	=WHERE SYSTEM_KEY1='ZZZZZZ_@'
ZZZZ010502	12900	=AND SYSTEM_KEY2 LIKE 'ZZZZZZ_LINKNAME_%' AND Z_CANCEL=' '};
ZZZZ010502	13000	=SQL1_NEXT:SQL1_NEXT{WN.SYSTEM_KEY2,WN.COMMENT}
ZZZZ010502	13100	=   JUMP{SQL1_END};
ZZZZ010502	13200	=SET{WN.LINK=^?WN.SYSTEM_KEY2[15]?};
ZZZZ010502	13300	=SET{WN.SYSTEM=WN.COMMENT[3;8]
ZZZZ010502	13400	=   ,WN.SERVER_NAME=WN.COMMENT[12;15]};
ZZZZ010502	13500	*=IF{WN.SERVER_NAME!=_SERVER_NAME}BACK{LOOP};
ZZZZ010502	13600	=LINK_SET{WLINK}{SELECT
ZZZZ010502	13700	=   CAST('?WN.SYSTEM?' AS CHAR(8)) AS SYSTEM
ZZZZ010502	13800	=   ,SYSTEM_HH,SYSTEM_MIN,SYSTEM_MENU0,SYSTEM_MENU1
ZZZZ010502	13900	=   ,SYSTEM_MENU2,SYSTEM_REAL_STATUS
ZZZZ010502	14000	*   ,CAST(' 'AS CHAR(9)) AS SYSTEM_AT
ZZZZ010502	14100	=   ,CAST(' 'AS CHAR(21)) AS SYSTEM_AT
ZZZZ010502	14200	=   ,CAST(' ' AS CHAR(1)) AS SYSTEM_CHECK
ZZZZ010502	14300	=   FROM}{?WN.LINK?I_TIME_TABLE}{X1}
ZZZZ010502	14400	=  {WHERE Z_CANCEL=' ' AND SYSTEM_TEST=' '};
ZZZZ010502	14500	=IF_ERROR_SQL{INSERT INTO ?_WORK_TABLE?A ?WLINK?}ERROR{};
ZZZZ010502	14600	=BACK{SQL1_NEXT};
ZZZZ010502	14700	=SQL1_END:
ZZZZ010502	14800	COMMENT_END
ZZZZ010502	14900	*****( AT )********************************************
ZZZZ010502	15000	=SQL{DELETE FROM ?_WORK_TABLE?A};
ZZZZ010502	15100	=SERVER_BAT{ZZZZZZETC,AT ?_WORK?.TXT};
ZZZZ010502	15200	=SERVER_GET{?_WORK?.TXT};
ZZZZ010502	15300	=SERVER_BAT{ZZZZZZETC,ERASE ?_WORK?.TXT};
ZZZZ010502	15400	=READ_OPEN{2,?_TMP??_WORK?.TXT,/};
ZZZZ010502	15500	=READ_NEXT2:READ_NEXT{2,WN.D,WN.U}JUMP{READ_END2};
ZZZZ010502	15600	=SET{WN.1=,WN.2=,WN.3=,WN.4=,WN.5=,WN.6=};
ZZZZ010502	15700	=SET{WN.7=,WN.8=,WN.9=,WN.10=,WN.11=,WN.12=};
ZZZZ010502	15800	=IF{WN.U=}JUMP{WINDOWS};
ZZZZ010502	15900	***( LINUX ATQ )************************************
ZZZZ010502	16000	=LINUX:SET{WN.SYSTEM_AT=WN.D};
ZZZZ010502	16100	=SPLIT_CHAR{WN.}{WN.U}{};
ZZZZ010502	16200	=SET{WN.DD=WN.1[9;2],WN.HH=WN.2[1;2],WN.MIN=WN.2[4;2]};
ZZZZ010502	16300	=SET{WN.Q=WN.3};
ZZZZ010502	16400	=IF{_SPLIT_CHAR_COUNT=4}JUMP{OK};
ZZZZ010502	16500	=SET{WN.DD=WN.3,WN.HH=WN.4[1;2],WN.MIN=WN.4[4;2]};
ZZZZ010502	16600	=SET{WN.Q=WN.6};
ZZZZ010502	16700	=OK:IF{WN.DD@COUNT=1}SET{WN.DD='0'+WN.DD};
ZZZZ010502	16800	*IF{WN.1<WN.TODAY_YMD}BACK{READ_NEXT2};今日より前は無視*
ZZZZ010502	16900	*IF{WN.1=WN.TODAY_YMD}IF{WN.2<WN.TODAY_HM}BACK{READ_NEXT2};
ZZZZ010502	17000	=IF{WN.QUEUE!=}JUMP{SKIP};
ZZZZ010502	17100	=SQL_SET{WN.QUEUE}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ010502	17200	=   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM' AND Z_CANCEL=' '
ZZZZ010502	17300	=   AND SYSTEM_KEY2='ZZZZZZ_LINUX_AT_Q_?_REAL_TEST?'};
ZZZZ010502	17400	=IF{_SQL_SET_COUNT=0}ERROR
ZZZZ010502	17500	=  {ETC,SYSTEM,LINUX_AT_Q_?_REAL_TEST? NOT FOUND};
ZZZZ010502	17600	=SQL_SET{WN.TIME_START}{SELECT SYSTEM_ETC
ZZZZ010502	17700	=   FROM ?_MM?_ETC_TABLE
ZZZZ010502	17800	=   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM' AND Z_CANCEL=' '
ZZZZ010502	17900	=   AND SYSTEM_KEY2='ZZZZZZ_TIME_START'};
ZZZZ010502	18000	=IF{_SQL_SET_COUNT=0}
ZZZZ010502	18100	=   ERROR{ETC,ZZZZZZ_SYSTEM,ZZZZZZ_TIME_START NOT FOUND};
ZZZZ010502	18200	=SKIP:IF{WN.Q!=WN.QUEUE}BACK{READ_NEXT2};
ZZZZ010502	18300	=SET{WN.DATE='TODAY'};
ZZZZ010502	18400	=SET{WN.T=_TODAY_TIME};
ZZZZ010502	18500	=SET{WN.TIME=WN.HH+':'+WN.MIN};
ZZZZ010502	18600	=IF{WN.DD!=WN.TODAY_D,WN.TIME=WN.TIME_START}
ZZZZ010502	18700	=   SET{WN.DATE='NEXT:'+WN.DD,WN.HH=99,WN.MIN=99};
ZZZZ010502	18800	=JUMP{INS};
ZZZZ010502	18900	***( WINDOWS )************************
ZZZZ010502	19000	=WINDOWS:
ZZZZ010502	19100	=IF{WN.D[1;6]!='I_?_REAL_TEST?'}BACK{READ_NEXT2};
ZZZZ010502	19200	=SPLIT_CHAR{WN.}{WN.D}{};
ZZZZ010502	19300	=IF{WN.1[14]!=_SYSTEM}BACK{READ_NEXT2};
ZZZZ010502	19400	*BACK{READ_NEXT2};
ZZZZ010502	19500	=SET{WN.SYSTEM_AT=WN.1,WN.HH=WN.1[8;2],WN.MIN=WN.1[11;2]};
ZZZZ010502	19600	=IF{WN.2[3;1]=':'}JUMP{XP};
ZZZZ010502	19700	=IF{WN.2[5;1]='/'}JUMP{NOT_XP};
ZZZZ010502	19800	=BACK{READ_NEXT2};
ZZZZ010502	19900	=NOT_XP:
ZZZZ010502	20000	=SET{WN.DATE=WN.2[1;10]};
ZZZZ010502	20100	=SET{WN.TIME=WN.3[1;5]};
ZZZZ010502	20200	=IF{WN.TIME[2;1]=':'}SET{WN.TIME='0'+WN.TIME[1;4]};
ZZZZ010502	20300	=JUMP{SKIP};
ZZZZ010502	20400	=XP:SET{WN.DATE=WN.3[1;10],WN.TIME=WN.2[1;5]};
ZZZZ010502	20500	=SKIP:
ZZZZ010502	20600	****************************************************
ZZZZ010502	20700	=INS:SQL{INSERT INTO ?_WORK_TABLE?A
ZZZZ010502	20800	=   (SYSTEM_DAY,SYSTEM_TIME,SYSTEM_HH,SYSTEM_MIN,SYSTEM_AT)
ZZZZ010502	20900	=   VALUES
ZZZZ010502	21000	=   ('?WN.DATE?','?WN.TIME?'
ZZZZ010502	21100	=   ,'?WN.HH?','?WN.MIN?','?WN.SYSTEM_AT?')};
ZZZZ010502	21200	=BACK{READ_NEXT2};
ZZZZ010502	21300	=READ_END2:READ_CLOSE{2};
ZZZZ010502	21400	*******( TIME TABLE MERGE B )*************
ZZZZ010502	21500	=SQL{DELETE FROM ?_WORK_TABLE?B};
ZZZZ010502	21600	=SQL{INSERT INTO  ?_WORK_TABLE?B
ZZZZ010502	21700	=   (SYSTEM_DAY,SYSTEM_TIME,SYSTEM_HH,SYSTEM_MIN,SYSTEM_AT)
ZZZZ010502	21800	=SELECT SYSTEM_DAY,SYSTEM_TIME,SYSTEM_HH
ZZZZ010502	21810	=   ,SYSTEM_MIN,SYSTEM_AT
ZZZZ010502	21900	=   FROM ?_WORK_TABLE?A};
ZZZZ010502	22000	=REPLACE_PART{?_WORK_TABLE?B,?_MM?_I_TIME_TABLE
ZZZZ010502	22100	=  ,SYSTEM_REAL_STATUS}{SYSTEM_HH,SYSTEM_MIN}{}
ZZZZ010502	22200	=  {I.SYSTEM_TEST IN(' ','?_REAL_TEST?') AND I.Z_CANCEL=' '};
ZZZZ010502	22300	COMMENT_BEGIN
ZZZZ010502	22400	=SERVER_BAT{ZZZZZZETC,AT ?_WORK?.TXT};
ZZZZ010502	22500	=SERVER_GET{?_WORK?.TXT};
ZZZZ010502	22600	=SERVER_BAT{ZZZZZZETC,ERASE ?_WORK?.TXT};
ZZZZ010502	22700	=SET{WN.QUEUE=};
ZZZZ010502	22800	=READ_OPEN{2,?_TMP??_WORK?.TXT,/};
ZZZZ010502	22900	***=SET{WN.CHK=':'+_P+'I'+_P+'FILE'+_P};
ZZZZ010502	23000	=SET{WN.CHK=':'+_P+'I'+_P};
ZZZZ010502	23100	=READ_NEXT2:READ_NEXT{2,WN.D,WN.U}JUMP{READ_END2};
ZZZZ010502	23200	=SET{WN.1=,WN.2=,WN.3=,WN.4=,WN.5=,WN.6=};
ZZZZ010502	23300	=SET{WN.7=,WN.8=,WN.9=,WN.10=,WN.11=,WN.12=};
ZZZZ010502	23400	=IF{WN.U=}JUMP{WINDOWS};
ZZZZ010502	23500	=LINUX:SET{WN.SYSTEM_AT=WN.D};
ZZZZ010502	23600	=SPLIT_CHAR{WN.}{WN.U}{};
ZZZZ010502	23700	=IF{WN.2@COUNT=4}SET{WN.2='0'+WN.2};
ZZZZ010502	23800	=IF{WN.1<WN.TODAY_YMD}BACK{READ_NEXT2};今日より前は無視*
ZZZZ010502	23900	=IF{WN.1=WN.TODAY_YMD}IF{WN.2<WN.TODAY_HM}BACK{READ_NEXT2};
ZZZZ010502	24000	=IF{WN.QUEUE!=}JUMP{SKIP};
ZZZZ010502	24100	=SQL_SET{WN.QUEUE}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ010502	24200	=   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM' AND Z_CANCEL=' '
ZZZZ010502	24300	=   AND SYSTEM_KEY2='ZZZZZZ_LINUX_AT_Q_?_REAL_TEST?'};
ZZZZ010502	24400	=IF{_SQL_SET_COUNT=0}ERROR
ZZZZ010502	24500	=  {ETC,SYSTEM,LINUX_AT_Q_?_REAL_TEST? NOT FOUND};
ZZZZ010502	24600	=SQL_SET{WN.TIME_START}{SELECT SYSTEM_ETC
ZZZZ010502	24700	=   FROM ?_MM?_ETC_TABLE
ZZZZ010502	24800	=   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM' AND Z_CANCEL=' '
ZZZZ010502	24900	=   AND SYSTEM_KEY2='ZZZZZZ_TIME_START'};
ZZZZ010502	25000	=IF{_SQL_SET_COUNT=0}ERROR
ZZZZ010502	25100	=  {ETC,SYSTEM,TIME_START NOT FOUND};
ZZZZ010502	25200	=SKIP:IF{WN.3!=WN.QUEUE}BACK{READ_NEXT2};
ZZZZ010502	25300	=SET{WN.DATE='TODAY',WN.JOB='/'};
ZZZZ010502	25400	=SET{WN.HH=WN.2[1;2],WN.MIN=WN.2[4;2]};
ZZZZ010502	25500	=IF{WN.1!=WN.TODAY_YMD,WN.2=WN.TIME_START}
ZZZZ010502	25600	=   SET{WN.HH='99',WN.MIN='99'};
ZZZZ010502	25700	=SET{WN.TIME=WN.2,WN.SYSTEM=_SYSTEM};
ZZZZ010502	25800	=SET{WN.JOB=};
ZZZZ010502	25900	=JUMP{SKIP};
ZZZZ010502	26000	=WINDOWS:
ZZZZ010502	26100	=SPLIT_CHAR{WN.}{WN.D}{};
ZZZZ010502	26200	=SET{WN.SYSTEM_AT=WN.1};
ZZZZ010502	26300	=IF{WN.4[2;9]=WN.CHK}IF{WN.8=_REAL_TEST}
ZZZZ010502	26400	=   SET{WN.DATE=WN.2,WN.TIME=WN.3}
ZZZZ010502	26500	=   SET{WN.SYSTEM=WN.9,WN.HH=WN.11,WN.MIN=WN.12,WN.JOB=WN.13}
ZZZZ010502	26600	=   JUMP{SKIP};
ZZZZ010502	26700	=IF{WN.5[2;9]=WN.CHK}IF{WN.9=_REAL_TEST}
ZZZZ010502	26800	=   SET{WN.DATE=WN.2+' '+WN.3,WN.TIME=WN.4}
ZZZZ010502	26900	=  SET{WN.SYSTEM=WN.10,WN.HH=WN.12,WN.MIN=WN.13,WN.JOB=WN.14}
ZZZZ010502	27000	=   JUMP{SKIP};
ZZZZ010502	27100	=BACK{READ_NEXT2};
ZZZZ010502	27200	=SKIP:
ZZZZ010502	27300	=IF{WN.SYSTEM!=_SYSTEM}BACK{READ_NEXT2};
ZZZZ010502	27400	=SQL{UPDATE ?_WORK_TABLE?A
ZZZZ010502	27500	=   SET SYSTEM_AT=?WN.SYSTEM_AT?
ZZZZ010502	27600	=   WHERE SYSTEM='?WN.SYSTEM?'
ZZZZ010502	27700	=   AND SYSTEM_HH='?WN.HH?' AND SYSTEM_MIN='?WN.MIN?'};
ZZZZ010502	27800	=BACK{READ_NEXT2};
ZZZZ010502	27900	=READ_END2:READ_CLOSE{2};
ZZZZ010502	28000	COMMENT_END
ZZZZ010502	28100	***( TASKLIST )*******************
ZZZZ010502	28200	=SQL_SET{RUN}{SELECT COUNT(*) FROM ?_MM?_I_TIME_TABLE
ZZZZ010502	28300	=  WHERE SYSTEM_REAL_STATUS='RUN' AND Z_CANCEL=' '};
ZZZZ010502	28400	***( NEXT TIME CHECK )************
ZZZZ010502	28500	=SQL{UPDATE ?_WORK_TABLE?B SET SYSTEM_CHECK='N'
ZZZZ010502	28600	*WHERE SYSTEM_REAL_STATUS<>'RUN' AND AT=0
ZZZZ010502	28700	=   WHERE SYSTEM_REAL_STATUS<>'RUN' AND SYSTEM_AT=' '
ZZZZ010502	28800	=   AND SYSTEM_HH='99' AND SYSTEM_MIN='99'};
ZZZZ010502	28900	=SQL_SET{NEXT_ERROR,NEXT_RUN,NEXT_TIME}{SELECT
ZZZZ010502	29000	=   SUM(CASE WHEN SYSTEM_CHECK='N'    THEN 1 ELSE 0 END)
ZZZZ010502	29100	=   ,SUM(CASE WHEN SYSTEM_REAL_STATUS='RUN' THEN 1
ZZZZ010502	29200	=   ELSE 0 END)
ZZZZ010502	29300	*   ,SUM(CASE WHEN AT<>0    THEN 1 ELSE 0 END)
ZZZZ010502	29400	=   ,SUM(CASE WHEN SYSTEM_AT<>' '    THEN 1 ELSE 0 END)
ZZZZ010502	29500	=   FROM ?_WORK_TABLE?B
ZZZZ010502	29600	=   WHERE SYSTEM_HH='99' AND SYSTEM_MIN='99'};
ZZZZ010502	29700	***( TODAY TIME CHECK )*************
ZZZZ010502	29800	=SQL{UPDATE ?_WORK_TABLE?B SET SYSTEM_CHECK='T'
ZZZZ010502	29900	*   WHERE AT=0 AND NOT(HH='99' AND SYSTEM_MIN='99')
ZZZZ010502	30000	=   WHERE SYSTEM_AT=' '
ZZZZ010502	30100	=   AND NOT(SYSTEM_HH='99' AND SYSTEM_MIN='99')
ZZZZ010502	30200	=   AND SYSTEM_REAL_STATUS='TIME'};
ZZZZ010502	30300	=SQL_SET{TODAY_ERROR,TODAY_RUN,TODAY_TIME}{SELECT
ZZZZ010502	30400	=   SUM(CASE WHEN SYSTEM_CHECK='T'    THEN 1 ELSE  0 END)
ZZZZ010502	30500	=   ,SUM(CASE WHEN SYSTEM_REAL_STATUS='RUN' THEN 1
ZZZZ010502	30600	=   ELSE  0 END)
ZZZZ010502	30700	*   ,SUM(CASE WHEN AT<>0 THEN 1 ELSE  0 END)
ZZZZ010502	30800	=   ,SUM(CASE WHEN SYSTEM_AT<>' ' THEN 1 ELSE  0 END)
ZZZZ010502	30900	=   FROM ?_WORK_TABLE?B
ZZZZ010502	31000	=   WHERE NOT(SYSTEM_HH='99' AND SYSTEM_MIN='99')};
ZZZZ010502	31100	***( DUPLICATE  CHECK )*************
ZZZZ010502	31200	=DROP_TABLE{?_WORK_TABLE?C};
ZZZZ010502	31300	=COPY_TABLE{?_WORK_TABLE?C,?_WORK_TABLE?B}; MYSQL対応*
ZZZZ010502	31400	=SQL{UPDATE ?_WORK_TABLE?B SET SYSTEM_CHECK='D' WHERE
ZZZZ010502	31500	=   ?_CL?SYSTEM_HH?_C?SYSTEM_MIN?_CR?
ZZZZ010502	31600	=   IN(SELECT ?_CL?SYSTEM_HH?_C?SYSTEM_MIN
ZZZZ010502	31700	=   ?_CR? FROM  ?_WORK_TABLE?C
ZZZZ010502	31800	=   GROUP BY ?_CL?SYSTEM_HH?_C?SYSTEM_MIN
ZZZZ010502	31900	=   ?_CR? HAVING COUNT(*)>1) AND SYSTEM_CHECK=' '};
ZZZZ010502	32000	=SQL_SET{DUPLI_ERROR}{SELECT
ZZZZ010502	32100	=   SUM(CASE WHEN SYSTEM_CHECK='D'    THEN 1 ELSE  0 END)
ZZZZ010502	32200	=   FROM ?_WORK_TABLE?B};
ZZZZ010502	32300	NAME=JUDGE_COLOR
ZZZZ010502	32400	=IF{TASKLIST!=RUN}SET{WN.ERR_SW=1,
ZZZZ010502	32500	=   ERROR1='TLASK_COUNT!=RUN_COUNT',ERROR1@COLOR='R'};
ZZZZ010502	32600	=IF{NEXT_ERROR!=0}SET{WN.ERR_SW=1,
ZZZZ010502	32700	=   ERROR2='NEXT  TIME ERROR',ERROR2@COLOR='R'};
ZZZZ010502	32800	=IF{TODAY_ERROR!=0}SET{WN.ERR_SW=1,
ZZZZ010502	32900	=   ERROR3='TODAY TIME ERROR FOUND',ERROR3@COLOR='R'};
ZZZZ010502	33000	=IF{DUPLI_ERROR!=0}SET{WN.ERR_SW=1,
ZZZZ010502	33100	=   ERROR4='DUPLICATE ERROR',ERROR4@COLOR='R'};
ZZZZ010502	33200	NAME=
ZZZZ010502	33300	=IF{WN.ERR_SW=1}EXIT{+1};
ZZZZ010502	33400	=IF_NAME{#ZZZZZZ_ARG_SLEEP}EXIT{_END};
ZZZZ010502	33500	DATA={O}RUN{5,,+}
ZZZZ010502	33600	DATA={O}TASKLIST{5,,+}TASK
ZZZZ010502	33700	FORM= @
ZZZZ010502	33800	DATA={O}ERROR1{27}
ZZZZ010502	33900	FORM= NEXT  TIME ERROR @@@@@ RUN @@@@@ TIME @@@@@
ZZZZ010502	34000	DATA={O}NEXT_ERROR{5,,+}
ZZZZ010502	34100	DATA={O}NEXT_RUN{5,,+}
ZZZZ010502	34200	DATA={O}NEXT_TIME{5,,+}
ZZZZ010502	34300	FORM= @
ZZZZ010502	34400	DATA={O}ERROR2{27}
ZZZZ010502	34500	FORM= TODAY TIME ERROR @@@@@ RUN @@@@@ TIME @@@@@
ZZZZ010502	34600	DATA={O}TODAY_ERROR{5,,+}
ZZZZ010502	34700	DATA={O}TODAY_RUN{5,,+}
ZZZZ010502	34800	DATA={O}TODAY_TIME{5,,+}
ZZZZ010502	34900	FORM= @
ZZZZ010502	35000	DATA={O}ERROR3{27}
ZZZZ010502	35100	FORM= @
ZZZZ010502	35200	FORM= DUPLICATE  ERROR @@@@@
ZZZZ010502	35300	DATA={O}DUPLI_ERROR{5,,+}
ZZZZ010502	35400	FORM= @
ZZZZ010502	35500	DATA={O}ERROR4{27}
ZZZZ010502	35600	PROGRAM=OUTPUT,&X1,?_WORK_TABLE?B
ZZZZ010502	35700	CONTROL=BEGIN_ENTER,SCROLL
ZZZZ010502	35800	COPY=JUDGE_COLOR
ZZZZ010502	35900	BEGIN
ZZZZ010502	36000	=SET{WN.TODAY_YMD=$WN.TODAY_YMD,WN.TODAY_HM=$WN.TODAY_HM};
ZZZZ010502	36100	=SET{WN.TODAY_D=$WN.TODAY_D};
ZZZZ010502	36200	=SET{WN.QUEUE=$WN.QUEUE,WN.TIME_START=$WN.TIME_START};
ZZZZ010502	36300	SET={,*,80}CHECK{2}
ZZZZ010502	36400	=SET{ERROR1=,ERROR2=,ERROR3=};
ZZZZ010502	36500	COPY=CHECK
ZZZZ010502	36600	COPY=JUDGE_COLOR
ZZZZ010502	36700	SET={O,*,14}ERROR1{27}  RUN
ZZZZ010502	36800	SET={O,*}$RUN{5,,+}
ZZZZ010502	36900	SET={O,*,80}$TASKLIST{5,,+}TASK
ZZZZ010502	37000	SET={O,*}ERROR2{27} NEXT
ZZZZ010502	37100	SET={O,*}$NEXT_ERROR{5,,+}ERR
ZZZZ010502	37200	SET={O,*}$NEXT_RUN{5,,+}RUN
ZZZZ010502	37300	SET={O,*,80}$NEXT_TIME{5,,+}TIME
ZZZZ010502	37400	SET={O,*}ERROR3{27}TODAY
ZZZZ010502	37500	SET={O,*}$TODAY_ERROR{5,,+}ERR
ZZZZ010502	37600	SET={O,*}$TODAY_RUN{5,,+}RUN
ZZZZ010502	37700	SET={O,*,80}$TODAY_TIME{5,,+}TIME
ZZZZ010502	37800	SET={O,*}ERROR4{27}DUPLI
ZZZZ010502	37900	SET={O,*}$DUPLI_ERROR{5,,+}ERR
ZZZZ010502	38000	*****(  )*****
ZZZZ010502	38100	*DATA={ }.?&.DATA&SYSTEM?
ZZZZ010502	38200	DATA={ }?&.DATA&SYSTEM_DAY?
ZZZZ010502	38300	DATA={ }?&.DATA&SYSTEM_TIME?
ZZZZ010502	38400	*****( 時 )*****
ZZZZ010502	38500	DATA={ }?&.DATA&SYSTEM_HH?
ZZZZ010502	38600	*****( 分 )*****
ZZZZ010502	38700	DATA={ }?&.DATA&SYSTEM_MIN?
ZZZZ010502	38800	*****( M0 )*****
ZZZZ010502	38900	*DATA={ }.?&.DATA&SYSTEM_MENU0?
ZZZZ010502	39000	*****( M1 )*****
ZZZZ010502	39100	*DATA={ }.?&.DATA&SYSTEM_MENU1?
ZZZZ010502	39200	*****( M2 )*****
ZZZZ010502	39300	*DATA={ }.?&.DATA&SYSTEM_MENU2?
ZZZZ010502	39400	*****(  )*****
ZZZZ010502	39500	DATA={ }?&.DATA&SYSTEM_REAL_STATUS?
ZZZZ010502	39600	*****(  )*****
ZZZZ010502	39700	DATA={ }?&.DATA&SYSTEM_AT?
ZZZZ010502	39800	*****( チェック )*****
ZZZZ010502	39900	DATA={ }?&.DATA&SYSTEM_CHECK?
ZZZZ010502	40000	MINUS=%Z_CANCEL_WHERE
ZZZZ010502	40100	COPY=@ZZZZZZ_SQL
ZZZZ010503	100	PROGRAM=NOT
ZZZZ010503	200	BEGIN
ZZZZ010503	300	=SET{WHERE=1};
ZZZZ010503	400	DATA=WHERE{1}条件1
ZZZZ010503	500	CHECK2=1,今日,2,今月,3,JOBG,4,JOB,5,日,6,月,7,時分
ZZZZ010503	600	=SET{WN.COM=_LIST_BOX_COMMENT,WC='SYSTEM_BEGIN_TIME'};
ZZZZ010503	700	=SET{%S1='-',%S2='-',%S3='-',%S4='-',%S5='-'
ZZZZ010503	800	=   ,%S6='-',%S7='-'};
ZZZZ010503	900	=SET{%S12='-',%S34='-',%S56='-'};
ZZZZ010503	1000	=IF{_DATA=1}SET{W0=8,%S1='+',%S12='+',SEL=_TODAY}EXIT{};
ZZZZ010503	1200	=IF{_DATA=2}SET{W0=6,%S2='+',%S12='+',SEL=_TODAY[1;6]}
ZZZZ010503	1300	=   EXIT{};
ZZZZ010503	1400	=SET{%SEL='-'};
ZZZZ010503	1500	=IF{_DATA=3}SET{W0=5,%S3='+',%S34='+',WC='JOB'}EXIT{};
ZZZZ010503	1700	=IF{_DATA=4}SET{W0=7,%S4='+',%S34='+',WC='JOB'}EXIT{};
ZZZZ010503	1900	=IF{_DATA=5}SET{W0=8,%S5='+',%S56='+'}EXIT{};
ZZZZ010503	2100	=IF{_DATA=6}SET{W0=6,%S6='+',%S56='+'}EXIT{};
ZZZZ010503	2300	=IF{_DATA=7}SET{W0=5,%S7='+'}EXIT{};
ZZZZ010503	2600	DATA={N}SEL{8};
ZZZZ010503	2700	%S12+COMMENT_BEGIN
ZZZZ010503	2800	PROGRAM=OUTPUT
ZZZZ010503	2900	CONTROL=0
ZZZZ010503	3000	=SET{S_DATE=_TODAY};
ZZZZ010503	3100	SET={O}S_DATE{10,,D}
ZZZZ010503	3200	DATA=SEL{?$W0?,,}?$WN.COM?
ZZZZ010503	3300	SQL=SELECT DISTINCT
ZZZZ010503	3310	%S7-SQL=   ?_SUBSTR(($WC);1;($W0))?
ZZZZ010503	3400	%S7+SQL=   ?_CL?SYSTEM_HH?_C?':'?_C?SYSTEM_MIN?_CR?
ZZZZ010503	3500	SQL=   FROM ?_MM?_I_TIME_LOG_TABLE
ZZZZ010503	3600	%S34+SQL=   WHERE SYSTEM_JOB!=' '
ZZZZ010503	3700	%S3+SQL=   AND SYSTEM_MARK IN('BEGIN','END')
ZZZZ010503	3800	%S4+SQL=   AND SYSTEM_MARK IN('START',' ','STOP')
ZZZZ010503	3900	REPEAT=_DATA_COUNT
ZZZZ010503	4000	SQL=   ?_GROUP##?
ZZZZ010503	4100	REPEAT=_ORDER_COUNT
ZZZZ010503	4200	SQL=   ?_ORDER##?
ZZZZ010503	4300	REPEAT=
ZZZZ010503	4400	%S56+SQL=   DESC
ZZZZ010503	4500	%S12+COMMENT_END
ZZZZ010503	4600	PROGRAM=,&X1,?_MM?_I_TIME_LOG_TABLE
ZZZZ010503	4700	CONTROL=SCROLL,0
ZZZZ010503	4800	BEGIN
ZZZZ010503	4900	%S7+=SET{HH=$SEL[1;2],.SYSTEM_MIN=$SEL[4;2]};EXIT{};
ZZZZ010503	5000	%S34-=SET{.SYSTEM_NOW_TIME=$SEL};
ZZZZ010503	5100	%S34+=SET{.SYSTEM_JOB=$SEL};
ZZZZ010503	5200	SET={}.?&.SET&SYSTEM_NOW_TIME?
ZZZZ010503	5300	SET={}.?&.SET&SYSTEM_JOB?
ZZZZ010503	5400	SET={}.?&.SET&SYSTEM_HH?
ZZZZ010503	5500	SET={}.?&.SET&SYSTEM_MIN?
ZZZZ010503	5600	*SET={}?&.SET&SYSTEM_COUNT?
ZZZZ010503	5700	*SET={}?&.SET&SYSTEM_BEGIN_TIME?
ZZZZ010503	5800	*SET={}?&.SET&SYSTEM_START_TIME?
ZZZZ010503	5900	SET={}.?&.SET&SYSTEM_MARK?
ZZZZ010503	6000	*SET={}?&.SET&SYSTEM_LOG?
ZZZZ010503	6100	SET={N,*}SET_WHERE{1}
ZZZZ010503	6200	%S4+=SET{_DATA@WHERE=
ZZZZ010503	6202	%S4+=  ='SYSTEM_MARK IN(''START'','' '',''STOP'')'};
ZZZZ010503	6210	*****( 現在時間 )*****
ZZZZ010503	6220	DATA={KD}?&.DATA&SYSTEM_NOW_TIME?
ZZZZ010503	6500	*****( 時 )*****
ZZZZ010503	6600	DATA={KD}?&.DATA&SYSTEM_HH?
ZZZZ010503	6700	*****( 分 )*****
ZZZZ010503	6800	DATA={KD}?&.DATA&SYSTEM_MIN?
ZZZZ010503	6810	*****( メニュー0)***
ZZZZ010503	6820	DATA={KD}?&.DATA&SYSTEM_MENU0?
ZZZZ010503	7010	*****( 番号 )*****
ZZZZ010503	7100	DATA={KD}?&.DATA&SYSTEM_COUNT?
ZZZZ010503	7600	*****( ジョブ )*****
ZZZZ010503	7700	DATA={  }?&.DATA&SYSTEM_JOB?
ZZZZ010503	7800	*****( マーク )*****
ZZZZ010503	7900	DATA={  }?&.DATA&SYSTEM_MARK?
ZZZZ010503	7910	*****( JOBG開始時間 )*****
ZZZZ010503	7920	DATA={  }?&.DATA&SYSTEM_BEGIN_TIME?
ZZZZ010503	7930	*****( 開始時間 )*****
ZZZZ010503	7940	DATA={  }?&.DATA&SYSTEM_START_TIME?
ZZZZ010503	8000	*****( ログ )*****
ZZZZ010503	8100	DATA={  }?&.DATA&SYSTEM_LOG?
ZZZZ010503	8200	COPY=@ZZZZZZ_SQL
ZZZZ010503	8300	COLOR
ZZZZ010503	8400	=IF{SYSTEM_MARK='ERROR'}
ZZZZ010503	8500	=   SET{SYSTEM_HH@COLOR='R',.SYSTEM_MIN@COLOR='R'}
ZZZZ010503	8600	=   SET{SYSTEM_MARK@COLOR='R'};
ZZZZ010503	8700	PROGRAM=NOT
ZZZZ010503	8800	BEGIN
ZZZZ010503	8900	=SPLIT_FORM{WN.MESSAGE}{$SYSTEM_LOG}{75};
ZZZZ010503	9000	DATA=DUMMY{1}
ZZZZ010503	9100	REPEAT=4
ZZZZ010503	9200	DATA=WN.MESSAGE##{75}*
ZZZZ010503	9300	REPEAT=
ZZZZ010508	100	PROGRAM=OUTPUT,&X1,?_MM?_I_TABLE_TABLE
ZZZZ010508	200	TABLE=&X2,?_MM?_ETC_TABLE
ZZZZ010508	300	DICTIONARY=SYSTEM_PERMISSION,SYSTEM_REAL
ZZZZ010508	400	CONTROL=SCROLL
ZZZZ010508	500	DICTIONARY=SYSTEM_WORK,SYSTEM_REAL,SYSTEM_KIND,SYSTEM_GRANT
ZZZZ010508	600	BEGIN
ZZZZ010508	700	=SET{#DRIVE=};
ZZZZ010508	800	%TEST-=SET{.SYSTEM_REAL='REAL'};
ZZZZ010508	900	%TEST+=SET{.SYSTEM_REAL='TEST'};
ZZZZ010508	1000	=SET{WN.DB_ZZ=_MM_?.SYSTEM_REAL?};
ZZZZ010508	1100	=SET{.SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010508	1200	SET={N}DUMMY{1}
ZZZZ010508	1300	=SET{COUNT=_SQL_COUNT};
ZZZZ010508	1400	SET=OPTION{6}{}{,SELECT,OUTPUT,OUTPUT}
ZZZZ010508	1500	=IF{_DATA=}EXIT{};
ZZZZ010508	1600	=SET{OPTION=};
ZZZZ010508	1700	=IF{.SYSTEM_PERMISSION=}
ZZZZ010508	1710	=   ERROR{?&TITLE&.SYSTEM_PERMISSION? IS NULL};
ZZZZ010508	1800	=IF{_SQL_COUNT=0}ERROR{TABLE COUNT=0};
ZZZZ010508	1900	=EXIT{+1};
ZZZZ010508	2000	SET=.?&.SET&SYSTEM_NAME?
ZZZZ010508	2100	SET={,*&X2}.?&DATA&SYSTEM_PERMISSION?
ZZZZ010508	2200	=SET{_REAL_TEST=.SYSTEM_REAL};
ZZZZ010508	2300	=SET{WN.DB=_MX_?.SYSTEM_PERMISSION?};
ZZZZ010508	2400	=SET{_REAL_TEST='REAL'};
ZZZZ010508	2500	SET={O}.?&DATA&SYSTEM_REAL?
ZZZZ010508	2600	SET={O,*}COUNT{5,,+}TABLE COUNT
ZZZZ010508	2700	DATA={K}X0.?&.DATA&SYSTEM_NAME?
ZZZZ010508	2800	DATA=?&.DATA&SYSTEM_COMMENT1?
ZZZZ010508	2900	DATA=?&.DATA&SYSTEM_COMMENT2?
ZZZZ010508	3000	DATA=?&.DATA&SYSTEM_PUBLIC?
ZZZZ010508	3100	REPEAT=_SELECT_COUNT
ZZZZ010508	3200	SQL=?_SELECT##?
ZZZZ010508	3300	REPEAT=
ZZZZ010508	3400	SQL=   FROM ?WN.DB_ZZ?_M_?.SYSTEM_PERMISSION?_OBJECT_VIEW X0
ZZZZ010508	3500	SQL=   INNER JOIN
ZZZZ010508	3600	SQL=   ?WN.DB_ZZ?_M_?.SYSTEM_PERMISSION?_COLUMN_VIEW X2
ZZZZ010508	3700	SQL=   ON  RTRIM(X0.SYSTEM_NAME)=RTRIM(X2.SYSTEM_NAME)
ZZZZ010508	3800	SQL=   AND RTRIM(X2.SYSTEM_DATA_NAME)='Z_CANCEL'
ZZZZ010508	3900	SQL=   LEFT OUTER JOIN  ?_TABLE? ?_T?
ZZZZ010508	4000	SQL=   ON  RTRIM(X0.SYSTEM_NAME)=RTRIM(?_T?.SYSTEM_NAME)
ZZZZ010508	4100	SQL=   WHERE  RTRIM(X0.SYSTEM_NAME) LIKE '?.SYSTEM_NAME?%'
ZZZZ010508	4200	SQL=   AND X0.SYSTEM_KIND='TABLE'
ZZZZ010508	4300	REPEAT=_ORDER_COUNT
ZZZZ010508	4400	SQL=   ?_ORDER##?
ZZZZ010508	4500	REPEAT=
ZZZZ010508	4600	*############################################################
ZZZZ010508	4700	PROGRAM=NOT
ZZZZ010508	4800	JOB_PERMISSION=?$.SYSTEM_PERMISSION?
ZZZZ010508	4900	BEGIN
ZZZZ010508	5000	=SET{WN.CANCEL='Z_CANCEL='' '''};
ZZZZ010508	5100	=IF{_VERSION1<7}SET{WN.CANCEL='Z_CANCEL IS NULL'};
ZZZZ010508	5200	=SET{DRIVE=#DRIVE};
ZZZZ010508	5300	DATA={O}TEST{50}
ZZZZ010508	5400	DATA={O}=.?$&DATA&SYSTEM_PERMISSION?
ZZZZ010508	5500	DATA={O}=.?$&DATA&SYSTEM_REAL?
ZZZZ010508	5600	DATA={O}$COUNT{5,,+}TABLE COUNT
ZZZZ010508	5700	W+DATA=DRIVE{1,1,Z}
ZZZZ010508	5800	W-DATA=DRIVE{10,1,,L}PATH
ZZZZ010508	5900	W+=SET{WN.PATH=_DATA+':'+_P};
ZZZZ010508	6000	W-=SET{WN.PATH=_DATA+'/'};
ZZZZ010508	6100	=IF_ERROR_DIR{?WN.PATH?}ERROR{DRIVE OR PATH ERROR};
ZZZZ010508	6200	=SET{#DRIVE=DRIVE};
ZZZZ010508	6300	DATA=RUN{4,1}{YES,NO}
ZZZZ010508	6400	JA+TITLE=操作
ZZZZ010508	6500	=IF{_DATA='NO'}EXIT{_END};
ZZZZ010508	6600	=SET{_COUNTER=1,NOWN.COUNT=0,END='END'};
ZZZZ010508	6700	=SET{SYSTEM_NAME=$_SQL_VALUE_$$};
ZZZZ010508	6800	=SET{MAX=$_SQL_COUNT};
ZZZZ010508	6900	=LOOP:COMPUTE{NOWN.COUNT+=1};
ZZZZ010508	7000	=SET{WN.FX=WN.PATH+'?_P?I-TABLE-'+SYSTEM_REAL+'-'
ZZZZ010508	7100	=   +SYSTEM_NAME+'-'};
ZZZZ010508	7200	=SET{WN.FT=WN.FX+'CREATE.TXT'};
ZZZZ010508	7300	=SET{WN.FD=WN.FX+'DATA.TXT'};
ZZZZ010508	7400	=SET{WC_OT_ADD='OT'};
ZZZZ010508	7500	*****( *DICTIONARY* )*****
ZZZZ010508	7600	=SET{OPT='DICTIONARY'};
ZZZZ010508	7700	NAME=OUT_NAME
ZZZZ010508	7800	=SET_TABLE{&X0,?_MP_REAL_ZZZZ?ZZ_I_?OPT?_TABLE};
ZZZZ010508	7900	=IF_ERROR_SQL_FILE2{?WN.FT?,?WC_OT_ADD?,,W}
ZZZZ010508	8000	=  {SELECT'*?OPT?*',
ZZZZ010508	8100	=   '?&X0.WORK_KEY?','?&X0.WORK_DATA?' ?_FROM_DUAL?}ERROR{};
ZZZZ010508	8200	=IF_ERROR_SQL_FILE2{?WN.FT?,ADD,,W}{SELECT DISTINCT
ZZZZ010508	8300	=   ?&X0.ALL? FROM ?&X0.TABLE? X0 WHERE
ZZZZ010508	8400	NAME=DICTIONARY
ZZZZ010508	8500	NAME2=EXISTS_COLUMN
ZZZZ010508	8600	=   EXISTS(SELECT SYSTEM_DATA_NAME FROM
ZZZZ010508	8700	=   ?$WN.DB_ZZ?_M_?SYSTEM_PERMISSION?_COLUMN_VIEW ?_T?
ZZZZ010508	8800	=   WHERE ?_T?.?_VRE&SYSTEM_NAME?
ZZZZ010508	8900	=   AND ?_T?.?_NE&X0.SYSTEM_DATA_NAME?)
ZZZZ010508	9000	=   AND X0.?WN.CANCEL?
ZZZZ010508	9100	NAME2=
ZZZZ010508	9200	=   AND X0.SYSTEM_DATA_NAME NOT IN(?_Z_ALL_NAME_VALUE?)
ZZZZ010508	9300	=   AND X0.SYSTEM_PERMISSION='?SYSTEM_PERMISSION?'
ZZZZ010508	9500	NAME=
ZZZZ010508	9600	=   OR
ZZZZ010508	10100	= ?_CONCAT(SYSTEM_PERMISSION;'/';SYSTEM_DATA_NAME)? IN(SELECT
ZZZZ010508	10200	= ?_CONCAT(SYSTEM_BASE_PERMISSION;'/';SYSTEM_BASE_DATA_NAME)?
ZZZZ010508	10300	=   FROM ?&X0.TABLE? X0 WHERE
ZZZZ010508	10310	COPY=DICTIONARY
ZZZZ010508	10400	=   ) ORDER BY 1}ERROR{};
ZZZZ010508	10600	NAME=OUT_END
ZZZZ010508	10700	=IF_ERROR_SQL_FILE2{?WN.FT?,ADD,,W}
ZZZZ010508	10800	=  {SELECT '*?OPT? END*' ?_FROM_DUAL?}ERROR{};
ZZZZ010508	10900	NAME=
ZZZZ010508	11000	=SET{WC_OT_ADD='ADD'};
ZZZZ010508	11100	*****( *TABLE* )*****
ZZZZ010508	11200	=SET{OPT='TABLE'};
ZZZZ010508	11300	COPY=OUT_NAME
ZZZZ010508	11400	=   ?_VRE&SYSTEM_NAME? AND ?WN.CANCEL?}ERROR{};
ZZZZ010508	11500	COPY=OUT_END
ZZZZ010508	11600	*****( *COLUMN* )*****
ZZZZ010508	11700	=SET{OPT='COLUMN'};
ZZZZ010508	11800	COPY=OUT_NAME
ZZZZ010508	11900	=   ?_VRE&SYSTEM_NAME? AND
ZZZZ010508	12000	COPY=EXISTS_COLUMN
ZZZZ010508	12100	=   ORDER BY 3,1,2}ERROR{};
ZZZZ010508	12200	COPY=OUT_END
ZZZZ010508	12300	*****( *CREATE_TABLE* )***
ZZZZ010508	12400	=SET{OPT='CREATE'};
ZZZZ010508	12500	=SET_TABLE{&XD,?$WN.DB??SYSTEM_NAME?};
ZZZZ010508	12600	=IF_ERROR_SQL_FILE2{?WN.FT?,ADD,,W}
ZZZZ010508	12700	=  {SELECT '*CREATE_TABLE*','?&XD.KEY_CREATE?'
ZZZZ010508	12800	=   ,'?&XD.DATA_CREATE?' ?_FROM_DUAL?}ERROR{};
ZZZZ010508	12900	*****( *CREATE_INDEX* )***
ZZZZ010508	13000	=SET{W0C=1};
ZZZZ010508	13100	=NEXT_STEP:IF{&X0.INDEX_COUNT<W0C}JUMP{END_STEP};
ZZZZ010508	13200	=SET{WN.INDEX=&X0.INDEX_?W0C?};
ZZZZ010508	13300	=SET{WN.INDEX_UNIQUE=&X0.INDEX_UNIQUE_?W0C?};
ZZZZ010508	13400	=IF{WN.INDEX!=}
ZZZZ010508	13500	=   IF_ERROR_SQL_FILE2{?WN.FT?,ADD,,W}
ZZZZ010508	13600	=  {SELECT '*CREATE_INDEX*',?W0C?
ZZZZ010508	13700	=   ,'?WN.INDEX?','?WN.INDEX_UNIQUE?' ?_FROM_DUAL?}ERROR{};
ZZZZ010508	13800	=COMPUTE{W0C+=1};
ZZZZ010508	13900	=BACK{NEXT_STEP};END_STEP:
ZZZZ010508	14000	COPY=OUT_END
ZZZZ010508	14100	*****( *PERMISSION* )***
ZZZZ010508	14200	=SET{OPT='PERMISSION'};
ZZZZ010508	14300	COPY=OUT_NAME
ZZZZ010508	14400	=   ?_VRE&SYSTEM_NAME? AND ?WN.CANCEL?}ERROR{};
ZZZZ010508	14500	COPY=OUT_END
ZZZZ010508	14600	*****( *DATA* )*****
ZZZZ010508	14700	=IF_ERROR_SQL_FILE2{?WN.FT?,ADD,,W}{SELECT '*DATA*',
ZZZZ010508	14800	=   '?&XD.ALL?' ?_FROM_DUAL?}ERROR{};
ZZZZ010508	14900	*****( DATA OUTPUT )*******************
ZZZZ010508	15000	=IF{&XD.ALL=}JUMP{NO_COLUMN};
ZZZZ010508	15100	=IF_ERROR_SQL_FILE2{?WN.FD?,OT,,W}
ZZZZ010508	15200	=  {SELECT ?&XD.ALL? FROM ?$WN.DB??SYSTEM_NAME?
ZZZZ010508	15300	=   WHERE ?WN.CANCEL?}ERROR{};
ZZZZ010508	15400	=JUMP{J};
ZZZZ010508	15500	=NO_COLUMN:
ZZZZ010508	15510	=IF_ERROR_WRITE_OPEN{1,?WN.FD?,OT,,W}ERROR{};
ZZZZ010508	15800	=WRITE_CLOSE{1};
ZZZZ010508	15900	=J:
ZZZZ010508	16000	=COMPUTE{_COUNTER+=$_SQL_COLUMN};
ZZZZ010508	16100	=SET{SYSTEM_NAME=$_SQL_VALUE_$$};
ZZZZ010508	16200	=IF{SYSTEM_NAME=}JUMP{FIN};
ZZZZ010508	16300	=BACK{LOOP};
ZZZZ010508	16400	=FIN:
ZZZZ010508	16500	DATA={O}MAX{5,,+}件数
ZZZZ010508	16600	DATA={O}NOWN.COUNT{5,,+}処理中件数
ZZZZ010508	16700	DATA={O}?$&.DATA&SYSTEM_NAME?
ZZZZ010508	16800	DATA=   END{3,,}{END}終了
ZZZZ010508	16900	=IF{_DATA='END'}EXIT{_END};
ZZZZ010508	17000	WORK=OPT{12}(処理の名前）
ZZZZ010511	100	PROGRAM=NOT,&X1,?_MM?_ETC_TABLE
ZZZZ010511	200	BEGIN
ZZZZ010511	300	=SET{WN=};
ZZZZ010511	400	=SET{NEW.VERSION2=@ZZZZZZ_VERSION2,MY.VERSION2=_VERSION2};
ZZZZ010511	500	=IF{_FRAMEWORK='J'}
ZZZZ010511	600	=   SET{WC.JAR='JAR'
ZZZZ010511	700	=   ,EXE_NAME='IJAVA.'+WC.JAR@LOWER}JUMP{};
ZZZZ010511	800	=SET{EXE_NAME='IMENU?_OS??_FRAMEWORK?.'+_L(EXE)};
ZZZZ010511	900	*=SET{EXE_NAME_D='IMENU?_OS??_FRAMEWORK?.'+_L(DLL)};
ZZZZ010511	1000	*SET{EXE_NAME=_EXE_NAME};
ZZZZ010511	1100	=SET{WN.YES='YES,NO'};
ZZZZ010511	1200	=IF{NEW.VERSION2>MY.VERSION2}SET{MY.VERSION2@COLOR='G'};
ZZZZ010511	1300	=IF{NEW.VERSION2<MY.VERSION2}SET{MY.VERSION2@COLOR='R'};
ZZZZ010511	1400	=IF{NEW.VERSION2=MY.VERSION2}SET{MY.VERSION2@COLOR='L'};
ZZZZ010511	1500	FORM=
ZZZZ010511	1600	JA+FORM=クライアントのバージョン(VERSION2)を上げます。
ZZZZ010511	1700	W+JA+FORM=別画面が起動しますその指示に従ってください。
ZZZZ010511	1800	*W-JA+FORM=実行後再度画面を立ち上げ直して下さい。
ZZZZ010511	1900	W-JA+FORM=★注意★LINUXでは動かないので手動で対応して下さい。
ZZZZ010511	2000	FORM=  ( @ )
ZZZZ010511	2100	DATA={O}EXE_NAME{25}
ZZZZ010511	2200	FORM=  ( @ )
ZZZZ010511	2300	DATA={O}EXE_NAME_D{25}
ZZZZ010511	2400	FORM=
ZZZZ010511	2500	FORM= NEW VERSION2 @@@@@@
ZZZZ010511	2600	DATA={O}NEW.VERSION2{9}
ZZZZ010511	2700	FORM=  MY VERSION2 @@@@@@
ZZZZ010511	2800	DATA={O}MY.VERSION2{9}
ZZZZ010511	2900	FORM=
ZZZZ010511	3000	FORM=             YES,NO    @@@@@
ZZZZ010511	3100	DATA=YES{5,,}
ZZZZ010511	3200	CHECK=?WN.YES?
ZZZZ010511	3300	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010511	3400	******************************************************
ZZZZ010511	3500	******************************************************
ZZZZ010511	3600	*****( サーバーSHAREファイル受信 TO ?_P?I?_P?BIN )******
ZZZZ010511	3700	******************************************************
ZZZZ010511	3800	W+=SET{WN.OS='WINDOWS'};
ZZZZ010511	3900	*W-=SET{WN.OS='LINUX',_LOWER='/HOME',WN.HOME=_LOWER};
ZZZZ010511	4000	*=SERVER_GET{?EXE_NAME?,SHARE?_P??WN.OS??_P?BIN?_IV?};
ZZZZ010511	4100	*=IF{_FRAMEWORK='D'}
ZZZZ010511	4200	*=  SERVER_GET{?EXE_NAME_D?,SHARE?_P??WN.OS??_P?BIN?_IV?};
ZZZZ010511	4300	W+=WRITE_OPEN{1,?_TMP??_WORK?.BAT,OT,SHIFT_JIS};
ZZZZ010511	4400	W+=WRITE{1,'@ECHO OFF'};
ZZZZ010511	4500	W+JA+=SET{WN='ECHO ☆プログラムをサーバーからコピーします。'}
ZZZZ010511	4600	W+JA+=;
ZZZZ010511	4700	W+=WRITE{1,WN};
ZZZZ010511	4800	*W+JA+=SET{WN='ECHO ☆処理が終了するとこの画面が消えるの'
ZZZZ010511	4900	*W+JA+=+'で、再度該当処理を起動して下さい。'};
ZZZZ010511	5000	*W+=WRITE{1,WN};
ZZZZ010511	5100	W+JA+=SET{WN='ECHO ★注意★I言語画面を必ず全て終了してから'
ZZZZ010511	5200	W+JA+=+'、何かキーを押して続行下さい。'};
ZZZZ010511	5300	W+=WRITE{1,WN};
ZZZZ010511	5400	*+JA+=SET{WN='ECHO ◎「アクセスが拒否されました。」と出る時'
ZZZZ010511	5500	*+JA+=+'は、まだ全ての画面が閉じていない可能性が有ります。'};
ZZZZ010511	5600	*+=WRITE{1,WN};
ZZZZ010511	5700	W+=WRITE{1,'PAUSE'};
ZZZZ010511	5800	W+=WRITE{1,':LOOP'};
ZZZZ010511	6000	W+=WRITE{1,'COPY   ?_I??EXE_NAME? ?_TMP?'};
ZZZZ010511	6200	W+=WRITE{1,'MOVE ?_TMP??EXE_NAME? ?_I?'};
ZZZZ010511	6300	W+=WRITE{1,'IF NOT ERRORLEVEL 1 GOTO OK'};
ZZZZ010511	6400	W+JA+=SET{WN='ECHO ★注意★I言語画面が閉じていません,'
ZZZZ010511	6410	W+JA+=+'画面を閉じて,続行して下さい。'};
ZZZZ010511	6500	W+=WRITE{1,WN};
ZZZZ010511	6600	W+=WRITE{1,'PAUSE'};
ZZZZ010511	6700	W+=WRITE{1,'GOTO LOOP'};
ZZZZ010511	6800	W+=WRITE{1,':OK'};
ZZZZ010511	6900	*W+=IF{_FRAMEWORK='D'}
ZZZZ010511	7000	*W+=   WRITE{1,':LOOP'}
ZZZZ010511	7100	*W+=   SET{WN='MOVE ?_TMP??EXE_NAME_D? ?_I?'}
ZZZZ010511	7200	*W+=   WRITE{1,WN}
ZZZZ010511	7300	*W+=   WRITE{1,'IF NOT ERRORLEVEL 1 GOTO OK'}
ZZZZ010511	7400	*W+=   WRITE{1,'PAUSE'}
ZZZZ010511	7500	*W+=   WRITE{1,'GOTO LOOP'}
ZZZZ010511	7600	*W+=   WRITE{1,':OK'};
ZZZZ010511	7700	W+=SET{WN='XCOPY /C /D /E /H /I /K /R /V /Y'
ZZZZ010511	7800	*W+=   +' \\?_SERVER_NAME?\I_SHARE\WINDOWS\BIN?_IV? '
ZZZZ010511	7810	W+= +' \\?_SERVER_NAME?\I_SHARE\WINDOWS\BIN?_IV??_FRAMEWORK?'
ZZZZ010511	7900	W+= +' %SYSTEMDRIVE%\I\BIN?_IV?'};
ZZZZ010511	8000	W+=   WRITE{1,WN};
ZZZZ010511	8010	W+=SET{WN='COPY '
ZZZZ010511	8030	W+=   +'\\?_SERVER_NAME?\I_SHARE\WINDOWS\CLIENT\'
ZZZZ010511	8032	W+=   +'I_?_SERVER_NAME?_?_SYSTEM?.I'
ZZZZ010511	8040	W+=   +' %SYSTEMDRIVE%\I\BIN?_IV?'};
ZZZZ010511	8050	W+=   WRITE{1,WN};
ZZZZ010511	8052	W+=WRITE{1,'ECHO COPY状況を確認しENTERで修了して下さい。'};
ZZZZ010511	8053	W+=WRITE{1,'PAUSE'};
ZZZZ010511	8100	*W+=SET{WN='ECHO Y>?_TMP?Y.TXT'};
ZZZZ010511	8200	*W+=WRITE{1,WN};
ZZZZ010511	8300	*W+=SET{WN='CACLS ?_I??EXE_NAME?'
ZZZZ010511	8400	*W+=   +' /P EVERYONE:F<?_TMP?Y.TXT'};
ZZZZ010511	8500	*W+=WRITE{1,WN};
ZZZZ010511	8600	*W+=IF{_FRAMEWORK='D'}
ZZZZ010511	8700	*W+=   SET{WN='CACLS ?_I??EXE_NAME_D?'
ZZZZ010511	8800	*W+=   +' /P EVERYONE:F<?_TMP?Y.TXT'}
ZZZZ010511	8900	*W+=   WRITE{1,WN};
ZZZZ010511	9000	*W+=SET{WN='EXIT'};
ZZZZ010511	9100	*W+=WRITE{1,WN};
ZZZZ010511	9200	W+=WRITE{1,'EXIT'};
ZZZZ010511	9300	W+=WRITE_CLOSE{1};
ZZZZ010511	9400	W+=COMMAND{START "" ?_TMP??_WORK?.BAT};
ZZZZ010511	9600	*W-=SET{_LOWER='SH',WN.SH=_LOWER};
ZZZZ010511	9700	*W-=SET{WC.MV='MV',WC.CHMOD='CHMOD 777'};
ZZZZ010511	9800	*W-=SET{WN='?WC.MV@LOWER? ?_TMP??EXE_NAME? ?_I?;'
ZZZZ010511	9900	*W-=   +'?WC.CHMOD@LOWER? ?_I?*.*'};
ZZZZ010511	10000	*W-=COMMAND{?WN?};
ZZZZ010511	10100	*************************************************************
ZZZZ010511	10200	*************************************************************
ZZZZ010511	10300	=EXIT{_END};
ZZZZ010512	100	PROGRAM=NOT,&X1,?_MM?_ETC_TABLE
ZZZZ010512	200	BEGIN
ZZZZ010512	300	=SET{NEW.VERSION=@ZZZZZZ_VERSION_PRINT};
ZZZZ010512	400	=IF{_FRAMEWORK='J'}
ZZZZ010512	500	=   SET{WC.JAR='JAR'
ZZZZ010512	600	=   ,EXE_NAME='?_IV?JAVA.'+WC.JAR@LOWER}JUMP{};
ZZZZ010512	700	=SET{EXE_NAME='IPRINT?_OS??_FRAMEWORK?.'+_L(EXE)};
ZZZZ010512	800	=SET{EXE_NAME_D='IPRINT?_OS??_FRAMEWORK?.'+_L(DLL)};
ZZZZ010512	900	W-=SET{_LOWER='/HOME',WN.HOME=_LOWER};
ZZZZ010512	1000	*EXE_WAIT{?_IPRINT?,?_IPRINT2? VERSION VERSION};
ZZZZ010512	1100	=IPRINT{,VERSION};
ZZZZ010512	1200	=READ_OPEN{1,?_TMP?VERSION_IPRINT.TXT};
ZZZZ010512	1300	=READ_NEXT{1,MY.VERSION};READ_CLOSE{1};
ZZZZ010512	1400	FORM=
ZZZZ010512	1500	JA+FORM=IPRINT...のバージョンを上げます。
ZZZZ010512	1600	JA-FORM=IPRINT... VERSION UP.
ZZZZ010512	1700	FORM=  ( @ )
ZZZZ010512	1800	DATA={O}EXE_NAME{25}
ZZZZ010512	1810	FORM=  ( @ )
ZZZZ010512	1820	DATA={O}EXE_NAME_D{25}
ZZZZ010512	1900	FORM=
ZZZZ010512	2000	FORM= NEW VERSION @@@@@@@
ZZZZ010512	2100	DATA={O}NEW.VERSION{7,,+,Z}
ZZZZ010512	2200	FORM=  MY VERSION @@@@@@@
ZZZZ010512	2300	DATA={O}MY.VERSION{7,,+,Z}
ZZZZ010512	2400	FORM=             YES,NO    @@@@@
ZZZZ010512	2500	DATA=YES{5,,}{YES,NO}
ZZZZ010512	2600	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010512	2700	******************************************************
ZZZZ010512	2800	******************************************************
ZZZZ010512	2900	*****( サーバーSHAREファイル受信 TO ?_PI?_P?BIN )******
ZZZZ010512	3000	******************************************************
ZZZZ010512	3100	W+=SET{WN.OS='WINDOWS'};
ZZZZ010512	3200	W-=SET{WN.OS='LINUX'};
ZZZZ010512	3300	=SERVER_GET{?EXE_NAME?,SHARE?_P??WN.OS??_P?BIN?_IV?};
ZZZZ010512	3400	=IF{_FRAMEWORK='D'}
ZZZZ010512	3500	=  SERVER_GET{?EXE_NAME_D?,SHARE?_P??WN.OS??_P?BIN?_IV?};
ZZZZ010512	3600	W+=WRITE_OPEN{1,?_TMP??_WORK?.BAT,OT,SHIFT_JIS};
ZZZZ010512	3700	W+=WRITE{1,'@ECHO OFF'};
ZZZZ010512	3800	*W-=SET{_LOWER='#!/BIN/SH'};WRITE{1,_LOWER};
ZZZZ010512	3900	W+JA+=SET{WN='ECHO ☆処理が正常終了するとこの画面が消えるの'
ZZZZ010512	4000	W+JA+=   +'で、再度該当処理を起動して下さい。'};
ZZZZ010512	4100	W+=WRITE{1,WN};
ZZZZ010512	4200	*W+JA+=SET{WN='ECHO ◎I言語画面を全て終了してから'
ZZZZ010512	4300	*W+JA+=+'、何かキーを押して続行下さい。'};
ZZZZ010512	4400	*W+=WRITE{1,WN};
ZZZZ010512	4500	W+JA+=SET{WN='ECHO ◎「アクセスが拒否されました。」と出る時'
ZZZZ010512	4600	W+JA+=+'は、まだ全ての画面が閉じていない可能性が有ります。'};
ZZZZ010512	4700	W+=WRITE{1,WN};
ZZZZ010512	4800	*W+=WRITE{1,'PAUSE>NUL'};
ZZZZ010512	4900	W+=WRITE{1,':LOOP'};
ZZZZ010512	5100	W+=SET{WN='MOVE %SYSTEMDRIVE%'+_P+'I'+_P+'TMP'+_P+EXE_NAME
ZZZZ010512	5200	W+=   +' ?_I?'};
ZZZZ010512	5300	*W-=SET{_LOWER='/BIN/CP',WN.CP=_LOWER};
ZZZZ010512	5400	*W-=SET{WN='?WN.CP? ?WN.HOME?/I/TMP/?EXE_NAME?'
ZZZZ010512	5500	*W-=           +' ?WN.HOME?/I/BIN'};
ZZZZ010512	5600	W+=WRITE{1,WN};
ZZZZ010512	5602	W+=WRITE{1,'IF NOT ERRORLEVEL 1 GOTO OK'};
ZZZZ010512	5603	W+=WRITE{1,'PAUSE'};
ZZZZ010512	5604	W+=WRITE{1,'GOTO LOOP'};
ZZZZ010512	5605	W+=WRITE{1,':OK'};
ZZZZ010512	5700	W+=IF{_FRAMEWORK='D'}
ZZZZ010512	5710	W+=  WRITE{1,':LOOP'}
ZZZZ010512	5800	W+= SET{WN='MOVE %SYSTEMDRIVE%'+_P+'I'+_P+'TMP'+_P+EXE_NAME_D
ZZZZ010512	5900	W+=   +' ?_I?'}
ZZZZ010512	6000	W+=   WRITE{1,WN}
ZZZZ010512	6100	W+=   WRITE{1,'IF NOT ERRORLEVEL 1 GOTO OK'}
ZZZZ010512	6200	W+=   WRITE{1,'PAUSE'}
ZZZZ010512	6300	W+=   WRITE{1,'GOTO LOOP'}
ZZZZ010512	6400	W+=   WRITE{1,':OK'};
ZZZZ010512	6500	*W+=SET{WN='ECHO Y>?_TMP?Y.TXT'};
ZZZZ010512	6600	W+=WRITE{1,WN};
ZZZZ010512	6700	*W+=SET{WN='ICACLS ?_I? /GRANT:R EVERYONE:(F)'};
ZZZZ010512	6800	*W+=   +'<?_TMP?Y.TXT'};
ZZZZ010512	6900	*W-=SET{_LOWER='MV',WN.MV=_LOWER};
ZZZZ010512	7000	*W-=SET{_LOWER='CHMOD 777',WN.CHMOD=_LOWER};
ZZZZ010512	7100	*W+=WRITE{1,WN};
ZZZZ010512	7200	W+=SET{WN='EXIT'};
ZZZZ010512	7300	W+=WRITE{1,WN};
ZZZZ010512	7400	W+=WRITE_CLOSE{1};
ZZZZ010512	7500	W+=COMMAND{START "" ?_TMP??_WORK?.BAT};
ZZZZ010512	7600	W-=SET{_LOWER='MV',WN.MV=_LOWER};
ZZZZ010512	7700	W-=SET{_LOWER='CHMOD 777',WN.CHMOD=_LOWER};
ZZZZ010512	7800	W-=SET{WN='?WN.MV? ?_TMP??EXE_NAME? ?_I?'
ZZZZ010512	7900	W-=   +';?WN.CHMOD? ?_I?*.EXE'};
ZZZZ010512	8000	W-=COMMAND{?WN?};
ZZZZ010512	8100	*************************************************************
ZZZZ010512	8200	*************************************************************
ZZZZ010512	8300	=EXIT{_END};
ZZZZ010513	100	PROGRAM=NOT,&X1,?_MM?_ETC_TABLE
ZZZZ010513	200	BEGIN
ZZZZ010513	300	=SET{NEW.VERSION=@ZZZZZZ_VERSION_CHART};
ZZZZ010513	310	=SET{WC.YES_NO='NO'};
ZZZZ010513	400	*=IF{_FRAMEWORK='J'}
ZZZZ010513	411	*=   SET{WC.JAR='JAR'
ZZZZ010513	412	*=   ,EXE_NAME='?_IV?JAVA.'+WC.JAR@LOWER}JUMP{};
ZZZZ010513	422	=IF{_FRAMEWORK<>'D'}EXIT{};
ZZZZ010513	423	=IF{_OS<>'W'}EXIT{};
ZZZZ010513	424	=SET{WC.YES_NO='YES,NO'};
ZZZZ010513	500	=SET{EXE_NAME='ICHART?_OS??_FRAMEWORK?.'+_L(EXE)};
ZZZZ010513	510	=SET{EXE_NAME_D='ICHART?_OS??_FRAMEWORK?.'+_L(DLL)};
ZZZZ010513	1000	W-=SET{_LOWER='/HOME',WN.HOME=_LOWER};
ZZZZ010513	1100	=ICHART{,VERSION};
ZZZZ010513	1200	=READ_OPEN{1,?_TMP?VERSION_ICHART.TXT};
ZZZZ010513	1300	=READ_NEXT{1,MY.VERSION};READ_CLOSE{1};
ZZZZ010513	1400	FORM=
ZZZZ010513	1500	JA+FORM=ICHART...のバージョンを上げます。
ZZZZ010513	1510	JA+FORM= (注意:_FRAMEWORKが'D'[DOTNET]のみです）
ZZZZ010513	1520	JA+FORM= (注意:_OSが'W'[WINDOWS]のみです）
ZZZZ010513	1600	JA-FORM=ICHART... VERSION UP.
ZZZZ010513	1700	FORM=  ( @ )
ZZZZ010513	1800	DATA={O}EXE_NAME{25}
ZZZZ010513	1810	FORM=  ( @ )
ZZZZ010513	1820	DATA={O}EXE_NAME_D{25}
ZZZZ010513	1900	FORM=
ZZZZ010513	2000	FORM= NEW VERSION @@@@@@@
ZZZZ010513	2100	DATA={O}NEW.VERSION{7,,+,Z}
ZZZZ010513	2200	FORM=  MY VERSION @@@@@@@
ZZZZ010513	2300	DATA={O}MY.VERSION{7,,+,Z}
ZZZZ010513	2400	FORM=             YES,NO    @@@@@
ZZZZ010513	2500	DATA=YES{5,,}
ZZZZ010513	2510	CHECK=?WC.YES_NO?
ZZZZ010513	2600	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010513	2700	******************************************************
ZZZZ010513	2800	******************************************************
ZZZZ010513	2900	*****( サーバーSHAREファイル受信 TO ?_PI?_P?BIN )******
ZZZZ010513	3000	******************************************************
ZZZZ010513	3100	W+=SET{WN.OS='WINDOWS'};
ZZZZ010513	3200	W-=SET{WN.OS='LINUX'};
ZZZZ010513	3400	=SERVER_GET{?EXE_NAME?,SHARE?_P??WN.OS??_P?BIN?_IV?};
ZZZZ010513	3410	=IF{_FRAMEWORK='D'}
ZZZZ010513	3420	=  SERVER_GET{?EXE_NAME_D?,SHARE?_P??WN.OS??_P?BIN?_IV?};
ZZZZ010513	3500	W+=WRITE_OPEN{1,?_TMP??_WORK?.BAT,OT,SHIFT_JIS};
ZZZZ010513	3600	W+=WRITE{1,'@ECHO OFF'};
ZZZZ010513	3700	*W-=SET{_LOWER='#!/BIN/SH'};WRITE{1,_LOWER};
ZZZZ010513	3800	W+JA+=SET{WN='ECHO ☆処理が正常終了するとこの画面が消えるの'
ZZZZ010513	3900	W+JA+=   +'で、再度該当処理を起動して下さい。'};
ZZZZ010513	4000	W+=WRITE{1,WN};
ZZZZ010513	4100	*W+JA+=SET{WN='ECHO ◎I言語画面を全て終了してから'
ZZZZ010513	4200	*W+JA+=+'、何かキーを押して続行下さい。'};
ZZZZ010513	4300	*W+=WRITE{1,WN};
ZZZZ010513	4400	W+JA+=SET{WN='ECHO ◎「アクセスが拒否されました。」と出る時'
ZZZZ010513	4500	W+JA+=+'は、まだ全ての画面が閉じていない可能性が有ります。'};
ZZZZ010513	4600	W+=WRITE{1,WN};
ZZZZ010513	4700	*W+=WRITE{1,'PAUSE>NUL'};
ZZZZ010513	4800	W+=WRITE{1,':LOOP'};
ZZZZ010513	4900	W+=SET{WN='MOVE %SYSTEMDRIVE%'+_P+'I'+_P+'TMP'+_P+EXE_NAME
ZZZZ010513	5000	W+=   +' ?_I?'};
ZZZZ010513	5100	*W-=SET{_LOWER='/BIN/CP',WN.CP=_LOWER};
ZZZZ010513	5200	*W-=SET{WN='?WN.CP? ?WN.HOME?/I/TMP/?EXE_NAME?'
ZZZZ010513	5300	*W-=           +' ?WN.HOME?/I/BIN'};
ZZZZ010513	5400	W+=WRITE{1,WN};
ZZZZ010513	5500	W+=WRITE{1,'IF NOT ERRORLEVEL 1 GOTO OK'};
ZZZZ010513	5600	W+=WRITE{1,'PAUSE'};
ZZZZ010513	5700	W+=WRITE{1,'GOTO LOOP'};
ZZZZ010513	5800	W+=WRITE{1,':OK'};
ZZZZ010513	5810	W+=IF{_FRAMEWORK='D'}
ZZZZ010513	5812	W+=  WRITE{1,':LOOP'}
ZZZZ010513	5820	W+= SET{WN='MOVE %SYSTEMDRIVE%'+_P+'I'+_P+'TMP'+_P+EXE_NAME_D
ZZZZ010513	5830	W+=   +' ?_I?'}
ZZZZ010513	5840	W+=  WRITE{1,WN}
ZZZZ010513	5850	W+=  WRITE{1,'IF NOT ERRORLEVEL 1 GOTO OK'}
ZZZZ010513	5860	W+=  WRITE{1,'PAUSE'}
ZZZZ010513	5870	W+=  WRITE{1,'GOTO LOOP'}
ZZZZ010513	5880	W+=  WRITE{1,':OK'};
ZZZZ010513	5900	*W+=SET{WN='ECHO Y>?_TMP?Y.TXT'};
ZZZZ010513	6000	W+=WRITE{1,WN};
ZZZZ010513	6100	*W+=SET{WN='ICACLS ?_I? /GRANT:R EVERYONE:(F)'};
ZZZZ010513	6200	*W+=   +'<?_TMP?Y.TXT'};
ZZZZ010513	6300	*W-=SET{_LOWER='MV',WN.MV=_LOWER};
ZZZZ010513	6400	*W-=SET{_LOWER='CHMOD 777',WN.CHMOD=_LOWER};
ZZZZ010513	6500	*W+=WRITE{1,WN};
ZZZZ010513	6600	W+=SET{WN='EXIT'};
ZZZZ010513	6700	W+=WRITE{1,WN};
ZZZZ010513	6800	W+=WRITE_CLOSE{1};
ZZZZ010513	6900	W+=COMMAND{START "" ?_TMP??_WORK?.BAT};
ZZZZ010513	7000	W-=SET{_LOWER='MV',WN.MV=_LOWER};
ZZZZ010513	7100	W-=SET{_LOWER='CHMOD 777',WN.CHMOD=_LOWER};
ZZZZ010513	7200	W-=SET{WN='?WN.MV? ?_TMP??EXE_NAME? ?_I?'
ZZZZ010513	7300	W-=   +';?WN.CHMOD? ?_I?*.EXE'};
ZZZZ010513	7400	W-=COMMAND{?WN?};
ZZZZ010513	7500	*************************************************************
ZZZZ010513	7600	*************************************************************
ZZZZ010513	7700	=EXIT{_END};
ZZZZ010514	100	PROGRAM=,&X1,?_MM?_I_MENU_TABLE
ZZZZ010514	200	DICTIONARY=SYSTEM_JOB
ZZZZ010514	300	CONTROL=0
ZZZZ010514	400	BEGIN
ZZZZ010514	500	=SET{WN.CANCEL='Z_CANCEL='' '''};
ZZZZ010514	600	=IF{_VERSION1<7}SET{WN.CANCEL='Z_CANCEL IS NULL'};
ZZZZ010514	700	=SET{#DRIVE=};
ZZZZ010514	800	=SET{.SYSTEM_LANG=_LANG};
ZZZZ010514	900	SET=.?&SET&SYSTEM_JOB?
ZZZZ010514	910	=SET{WN.ALL=};
ZZZZ010514	920	=IF{_DATA=}SET{WN.ALL='UNION SELECT ''----'',''--'',''--'''
ZZZZ010514	930	=   +',''--'','' '','' '',?_N?''ALL JOBS''?_FROM_DUAL?'};
ZZZZ010514	1000	SET=.?&.DATA&SYSTEM_LANG?
ZZZZ010514	1100	DATA=?&.DATA&SYSTEM_MENU0?
ZZZZ010514	1200	DATA=?&.DATA&SYSTEM_MENU1?
ZZZZ010514	1300	DATA=?&.DATA&SYSTEM_MENU2?
ZZZZ010514	1400	DATA=?&.DATA&SYSTEM_MENU3?
ZZZZ010514	1500	DATA=?&.DATA&SYSTEM_TEST?
ZZZZ010514	1600	DATA=?&.DATA&SYSTEM_SECURITY?
ZZZZ010514	1700	DATA=?&.DATA&SYSTEM_MENU?
ZZZZ010514	1800	SQL=SELECT ?_1?,CASE WHEN ?_2?='00' AND ?_3?='00'
ZZZZ010514	1900	SQL=   AND ?_4?='00' THEN '--' ELSE ?_2? END,CASE
ZZZZ010514	2000	SQL=   WHEN ?_3?='00' AND ?_4?='00' THEN '--' ELSE ?_3? END
ZZZZ010514	2100	SQL=   ,CASE WHEN ?_4?='00' THEN '--' ELSE ?_4? END
ZZZZ010514	2200	SQL=   ,SYSTEM_TEST,SYSTEM_SECURITY,SYSTEM_MENU
ZZZZ010514	2300	SQL=   FROM ?_MM?_I_MENU_TABLE ?_T? WHERE
ZZZZ010514	2400	SQL=   ?_VRE&.SYSTEM_LANG? AND
ZZZZ010514	2500	SQL=   ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010514	2510	SQL=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010514	2600	SQL=   LIKE '?.SYSTEM_JOB?%' AND ?WN.CANCEL?
ZZZZ010514	2700	SQL=   UNION SELECT DISTINCT
ZZZZ010514	2710	SQL=   SYSTEM_MENU0,SYSTEM_MENU1,SYSTEM_MENU2
ZZZZ010514	2800	SQL=   ,'--',' ',' ',?_N?'PART2 JOBS' FROM ?_MM?_I_MENU_TABLE
ZZZZ010514	2900	SQL=   ?_T? WHERE
ZZZZ010514	3000	SQL=   ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010514	3010	SQL=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010514	3100	SQL=   LIKE '?.SYSTEM_JOB?%' AND ?WN.CANCEL? AND NOT
ZZZZ010514	3200	SQL=   EXISTS(SELECT SYSTEM_MENU0 FROM
ZZZZ010514	3210	SQL=   ?_MM?_I_MENU_TABLE X2
ZZZZ010514	3300	SQL=   WHERE ?_CL?X2.SYSTEM_MENU0?_C?X2.SYSTEM_MENU1
ZZZZ010514	3400	SQL=   ?_C?X2.SYSTEM_MENU?_C?X2.SYSTEM_MENU3?_CR?=
ZZZZ010514	3500	SQL=?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010514	3520	SQL=   ?_C?SYSTEM_MENU2?_C?'00'
ZZZZ010514	3600	SQL=   ?_CR? AND ?WN.CANCEL?)
ZZZZ010514	3700	SQL=UNION SELECT DISTINCT SYSTEM_MENU0
ZZZZ010514	3710	SQL=   ,SYSTEM_MENU1,'--','--'
ZZZZ010514	3800	SQL=  ,' ',' ',?_N?'PART1 JOBS' FROM  ?_MM?_I_MENU_TABLE ?_T?
ZZZZ010514	3900	SQL=   WHERE
ZZZZ010514	4000	SQL=   ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010514	4010	SQL=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010514	4100	SQL=   LIKE '?.SYSTEM_JOB?%' AND ?WN.CANCEL? AND NOT
ZZZZ010514	4200	SQL=   EXISTS(SELECT SYSTEM_MENU0 FROM
ZZZZ010514	4220	SQL=   ?_MM?_I_MENU_TABLE X2
ZZZZ010514	4300	SQL=   WHERE ?_CL?X2.SYSTEM_MENU0?_C?X2.SYSTEM_MENU1
ZZZZ010514	4400	SQL=   ?_C?X2.SYSTEM_MENU2?_C?X2.SYSTEM_MENU3?_CR?=
ZZZZ010514	4500	SQL=   ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1?_C?'0000'?_CR?
ZZZZ010514	4600	SQL=   AND ?WN.CANCEL?)
ZZZZ010514	4700	SQL=   UNION SELECT DISTINCT SYSTEM_MENU0,'--','--','--'
ZZZZ010514	4800	SQL=   ,' ',' ',?_N?'PART0 JOBS' FROM ?_MM?_I_MENU_TABLE ?_T?
ZZZZ010514	4900	SQL=   WHERE ?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1
ZZZZ010514	5000	SQL=   ?_C?SYSTEM_MENU2?_C?SYSTEM_MENU3?_CR?
ZZZZ010514	5100	SQL=   LIKE '?.SYSTEM_JOB?%' AND ?WN.CANCEL? AND NOT
ZZZZ010514	5200	SQL=   EXISTS(SELECT SYSTEM_MENU0 FROM
ZZZZ010514	5210	SQL=   ?_MM?_I_MENU_TABLE X2
ZZZZ010514	5300	SQL=   WHERE ?_CL?X2.SYSTEM_MENU0?_C?X2.SYSTEM_MENU1
ZZZZ010514	5400	SQL=   ?_C?X2.SYSTEM_MENU2?_C?X2.SYSTEM_MENU3?_CR?
ZZZZ010514	5500	SQL=   = ?_CL?SYSTEM_MENU0?_C?'000000'?_CR? AND ?WN.CANCEL?)
ZZZZ010514	5510	SQL=   ?WN.ALL?
ZZZZ010514	5600	*QL=UNION SELECT '----','--','--','--',' ',' ',?_N?'ALL JOBS'
ZZZZ010514	5700	*QL=?_FROM_DUAL? WHERE '?JOB?'=' '
ZZZZ010514	5800	SQL=   ORDER BY 1,2,3,4
ZZZZ010514	5900	PROGRAM=NOT,&X1,?_MM?_I_MENU_TABLE
ZZZZ010514	5910	CONTROL=PROGRAM
ZZZZ010514	6000	*TABLE=&X1,?_MM?_I_MENU_TABLE
ZZZZ010514	6100	BEGIN
ZZZZ010514	6200	=SET{DRIVE=#DRIVE};
ZZZZ010514	6300	=SET{WN.M0=,WN.M1=,WN.M2=,WN.M3=};
ZZZZ010514	6400	=IF{SYSTEM_MENU0!='----'}SET{WN.M0=SYSTEM_MENU0};
ZZZZ010514	6500	=IF{SYSTEM_MENU1!='--'}SET{WN.M1=SYSTEM_MENU1};
ZZZZ010514	6600	=IF{SYSTEM_MENU2!='--'}SET{WN.M2=SYSTEM_MENU2};
ZZZZ010514	6700	=IF{SYSTEM_MENU3!='--'}SET{WN.M3=SYSTEM_MENU3};
ZZZZ010514	6800	=J1:SET{JOB_FILE='I-PROGRAM-'+SYSTEM_MENU0
ZZZZ010514	6900	=   +SYSTEM_MENU1+SYSTEM_MENU2+SYSTEM_MENU3+'.TXT'};
ZZZZ010514	7000	DATA={O}$?&.DATA&SYSTEM_MENU0?
ZZZZ010514	7100	DATA={O}$?&.DATA&SYSTEM_MENU1?
ZZZZ010514	7200	DATA={O}$?&.DATA&SYSTEM_MENU2?
ZZZZ010514	7300	DATA={O}$?&.DATA&SYSTEM_MENU3?
ZZZZ010514	7400	DATA={O}$?&.DATA&SYSTEM_MENU?
ZZZZ010514	7500	DATA={O}JOB_FILE{40}
ZZZZ010514	7600	*ATA=RUN{4,1}{YES,NO}
ZZZZ010514	7700	*A+TITLE=実行
ZZZZ010514	7800	*IF{_DATA!='YES'}EXIT{_END};
ZZZZ010514	8200	W+DATA=DRIVE{1,1,Z}
ZZZZ010514	8300	W-DATA=DRIVE{10,1,,L}PATH
ZZZZ010514	8400	W+=SET{WN.PATH=_DATA+':'+_P};
ZZZZ010514	8500	W-=SET{WN.PATH=_DATA+'/'};
ZZZZ010514	8600	=IF_ERROR_DIR{?WN.PATH?}ERROR{DRIVE OR PATH ERROR};
ZZZZ010514	8700	=SET{#DRIVE=DRIVE};
ZZZZ010514	9000	DATA=RUN{4,1}{YES,NO}
ZZZZ010514	9100	JA+TITLE=実行
ZZZZ010514	9200	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010514	9300	=IF_ERROR_SQL_FILE{P.TXT,OT,,W}
ZZZZ010514	9400	=  {SELECT 'PROGRAM' ?_FROM_DUAL?}ERROR{};
ZZZZ010514	9500	=SET_TABLE{&X,?_MM?_I_PROGRAM_TABLE};
ZZZZ010514	9600	=IF_ERROR_SQL_FILE{P.TXT,ADD,,W}{SELECT ?&X.ALL?
ZZZZ010514	9700	=   FROM ?_MM?_I_PROGRAM_TABLE WHERE
ZZZZ010514	9800	=   SYSTEM_JOB LIKE '?WN.M0??WN.M1??WN.M2??WN.M3?%'
ZZZZ010514	9900	=   AND ?$WN.CANCEL? ORDER BY 1,2}ERROR{};
ZZZZ010514	10000	=IF{0=_SQL_FILE_COUNT}
ZZZZ010514	10100	=   ERASE_FILE{?_SQL_FILE?P.TXT}
ZZZZ010514	10200	=   ERROR{PROGRAM NOT FOUND};
ZZZZ010514	10300	=SET{PROG_COUNT=_SQL_FILE_COUNT};
ZZZZ010514	10400	=IF_ERROR_SQL_FILE{M.TXT,OT,,W}
ZZZZ010514	10500	=  {SELECT 'MENU' ?_FROM_DUAL?}ERROR{};
ZZZZ010514	10600	=SET_TABLE{&X,?_MM?_I_MENU_TABLE};
ZZZZ010514	10700	=IF_ERROR_SQL_FILE{M.TXT,ADD,,W}{SELECT ?&X.ALL?
ZZZZ010514	10800	=   FROM ?_MM?_I_MENU_TABLE WHERE
ZZZZ010514	10900	=   SYSTEM_MENU0 LIKE '?WN.M0?%'
ZZZZ010514	10910	=   AND SYSTEM_MENU1 LIKE '?WN.M1?%'
ZZZZ010514	11000	=   AND SYSTEM_MENU2 LIKE  '?WN.M2?%'
ZZZZ010514	11100	=   AND SYSTEM_MENU3 LIKE '?WN.M3?%' AND ?$WN.CANCEL?
ZZZZ010514	11200	=   ORDER BY 1,2,3,4,5}ERROR{};
ZZZZ010514	11300	=SET{MENU_COUNT=_SQL_FILE_COUNT};
ZZZZ010514	11400	=IF_ERROR_SQL_FILE{H.TXT,OT,,W}
ZZZZ010514	11500	=  {SELECT 'HELP' ?_FROM_DUAL?}ERROR{};
ZZZZ010514	11600	=SET_TABLE{&X,?_MM?_I_HELP_TABLE};
ZZZZ010514	11700	=IF_ERROR_SQL_FILE{H.TXT,ADD,,W}{SELECT ?&X.ALL?
ZZZZ010514	11800	=   FROM ?_MM?_I_HELP_TABLE WHERE
ZZZZ010514	11900	=   SYSTEM_JOB LIKE '?WN.M0??WN.M1??WN.M2??WN.M3?%'
ZZZZ010514	12000	=   AND ?$WN.CANCEL? ORDER BY 1,2}ERROR{};
ZZZZ010514	12100	=SET{HELP_COUNT=_SQL_FILE_COUNT};
ZZZZ010514	12200	=IF_ERROR_SQL_FILE{C.TXT,OT,,W}
ZZZZ010514	12210	=  {SELECT 'COUNT','?SYSTEM_MENU0?'
ZZZZ010514	12300	=   ,'?SYSTEM_MENU1?','?SYSTEM_MENU2?','?SYSTEM_MENU3?'
ZZZZ010514	12400	=   ,'?SYSTEM_MENU?',?HELP_COUNT?
ZZZZ010514	12500	=   ,?MENU_COUNT?,?PROG_COUNT? ?_FROM_DUAL?}ERROR{};
ZZZZ010514	12510	=IF_ERROR_WRITE_OPEN{1,?WN.PATH??JOB_FILE?,OT,,W}
ZZZZ010514	12600	=   ERROR{};
ZZZZ010514	12700	=SET{WN.F1='C',WN.F2='H',WN.F3='M',WN.F4='P'};
ZZZZ010514	12800	REPEAT=4
ZZZZ010514	12900	=READ_OPEN{1,?_TMP??_SQL_FILE??WN.F##?.TXT,};
ZZZZ010514	13000	=READ_NEXT1:READ_NEXT{1,}READ_CLOSE{1}JUMP{READ_END1};
ZZZZ010514	13100	=WRITE{1,_READ_DATA};BACK{READ_NEXT1};
ZZZZ010514	13200	=READ_END1:
ZZZZ010514	13300	REPEAT=
ZZZZ010514	13400	=WRITE_CLOSE{1};
ZZZZ010514	13410	DATA={O}PROG_COUNT{6,,+,Z}
ZZZZ010514	13420	DATA={O}MENU_COUNT{6,,+,Z}
ZZZZ010514	13430	DATA={O}HELP_COUNT{6,,+,Z}
ZZZZ010514	13500	DATA=END{3,3}{END}
ZZZZ010514	13600	=IF{_DATA='END'}EXIT{_END};
ZZZZ010515	100	MINUS=%TEST
ZZZZ010516	100	PROGRAM=NOT
ZZZZ010516	200	DICTIONARY=SYSTEM_PERMISSION,SYSTEM_KIND
ZZZZ010516	210	DICTIONARY=SYSTEM_NAME,SYSTEM_PART
ZZZZ010516	300	BEGIN
ZZZZ010516	400	=SET{DRIVE=#DRIVE,SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010516	500	=SET{SYSTEM_PERMISSION@LENGTH2=0}; 空白有効化*
ZZZZ010516	600	=SET{SYSTEM_PART@LENGTH2=0}; 空白有効化*
ZZZZ010516	700	FORM=
ZZZZ010516	800	FORM= 許可を指定すると対象許可のみ出力します。
ZZZZ010516	900	FORM= 部分を指定すると対象部分のみ出力します。
ZZZZ010516	1000	FORM=
ZZZZ010516	1100	*ORM1=      FILE= ?_IV?-OBJECT-?_DB?-(NAME).TXT
ZZZZ010516	1200	FORM=      FILE= I-OBJECT-(NAME).TXT
ZZZZ010516	1300	FORM=       許可= @
ZZZZ010516	1400	DATA={}?&DATA&SYSTEM_PERMISSION?
ZZZZ010516	1500	CHECK2=SELECT CAST(' ' AS CHAR(30))
ZZZZ010516	1510	CHECK2=  ,CAST('ALL' AS ?_SQL_NCHAR?(50)) ?_FROM_DUAL?
ZZZZ010516	1600	CHECK2=UNION ALL SELECT SYSTEM_KEY2,SYSTEM_COMMENT FROM
ZZZZ010516	1700	CHECK2= ?_MM?_ETC_TABLE WHERE SYSTEM_KEY1='ZZZZZZ_PERMISSION'
ZZZZ010516	1800	CHECK2=   AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010516	1900	=IF{_DATA!=}EXIT{};
ZZZZ010516	2000	=SET{SYSTEM_PART=};EXIT{DRIVE};
ZZZZ010516	2100	FORM=       部分= @
ZZZZ010516	2200	DATA={}?&DATA&SYSTEM_PART?
ZZZZ010516	2300	CHECK2=SELECT CAST(' ' AS CHAR(30))
ZZZZ010516	2310	CHECK2=   ,CAST('ALL' AS ?_SQL_NCHAR?(50)) ?_FROM_DUAL?
ZZZZ010516	2400	CHECK2=UNION ALL SELECT SYSTEM_KEY2,SYSTEM_COMMENT FROM
ZZZZ010516	2500	CHECK2=   ?_MM?_ETC_TABLE WHERE
ZZZZ010516	2600	CHECK2=   SYSTEM_KEY1='ZZZZZZ_PART:?SYSTEM_PERMISSION?'
ZZZZ010516	2700	CHECK2=   AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010516	2800	FORM= DRIVE/PATH= @
ZZZZ010516	2900	W+DATA=DRIVE{1,1,Z}
ZZZZ010516	3000	W-DATA=DRIVE{10,1,,L}PATH
ZZZZ010516	3100	W+=SET{WN.PATH=_DATA+':'+_P};
ZZZZ010516	3200	W-=SET{WN.PATH=_DATA+'/'};
ZZZZ010516	3300	=IF_ERROR_DIR{?WN.PATH?}ERROR{DRIVE ERROR};
ZZZZ010516	3400	=SET{#DRIVE=DRIVE};
ZZZZ010516	3500	FORM=
ZZZZ010516	3600	FORM=            RUN= @@@ {YES,NO}
ZZZZ010516	3700	DATA=RUN{3,1}{YES,NO}
ZZZZ010516	3800	=IF{_DATA='NO'}EXIT{_END};
ZZZZ010516	3900	=SET{COUNT=0};
ZZZZ010516	4000	=SQL1{SELECT SYSTEM_KIND,SYSTEM_NAME
ZZZZ010516	4010	=   FROM ?_MM?_I_OBJECT_ID_TABLE
ZZZZ010516	4100	= WHERE SYSTEM_NAME LIKE '?SYSTEM_PERMISSION??SYSTEM_PART?%'
ZZZZ010516	4200	= AND Z_CANCEL=' ' ORDER BY 1,2};
ZZZZ010516	4300	=SQL1_NEXT:SET{SYSTEM_KIND=,SYSTEM_NAME=};
ZZZZ010516	4400	=SQL1_NEXT{SYSTEM_KIND,SYSTEM_NAME}JUMP{SQL1_END};
ZZZZ010516	4500	*IF{SYSTEM_PERMISSION!='ZZZZ'}IF{SYSTEMPERMISSION!=NAME[1;4]}
ZZZZ010516	4600	*  BACK{SQL1_NEXT};
ZZZZ010516	4700	=COMPUTE{COUNT+=1};
ZZZZ010516	4800	=SET{WN.FT=WN.PATH+'I-OBJECT-'+SYSTEM_NAME+'.TXT'};
ZZZZ010516	4900	*****( *DICTIONARY* )*****
ZZZZ010516	5000	=SET{OPT='OBJECT_ID',WC.OT_ADD='OT',WN.ORDER=};
ZZZZ010516	5100	NAME=OUT
ZZZZ010516	5200	=SET_TABLE{&X0,?_MP_REAL_ZZZZ?ZZ_I_?OPT?_TABLE};
ZZZZ010516	5300	=IF_ERROR_SQL_FILE2{?WN.FT?,?WC.OT_ADD?,,W}
ZZZZ010516	5310	=  {SELECT'*?OPT?*',
ZZZZ010516	5400	=   '?&X0.WORK_KEY?','?&X0.WORK_DATA?' ?_FROM_DUAL?}ERROR{};
ZZZZ010516	5500	=IF_ERROR_SQL_FILE2{?WN.FT?,ADD,,W}{SELECT ?&X0.ALL?
ZZZZ010516	5600	=   FROM ?&X0.TABLE? X0 WHERE X0.?_VRE&SYSTEM_KIND? AND
ZZZZ010516	5700	=   X0.?_VRE&SYSTEM_NAME? AND
ZZZZ010516	5800	=   Z_CANCEL=' ' ORDER BY 1,2?WN.ORDER?}ERROR{};
ZZZZ010516	5900	=IF_ERROR_SQL_FILE2{?WN.FT?,ADD,,W}
ZZZZ010516	6000	=  {SELECT '*?OPT? END*' ?_FROM_DUAL?}ERROR{};
ZZZZ010516	6100	NAME=
ZZZZ010516	6200	=SET{OPT='OBJECT',WC.OT_ADD='ADD',WN.ORDER=',3'};
ZZZZ010516	6300	COPY=OUT
ZZZZ010516	6400	=BACK{SQL1_NEXT};
ZZZZ010516	6500	=SQL1_END:
ZZZZ010516	6600	FORM=          COUNT= @
ZZZZ010516	6700	DATA={O}COUNT{5,,+}
ZZZZ010516	6800	FORM=           SYSTEM_KIND= @
ZZZZ010516	6900	DATA={O}?&DATA&SYSTEM_KIND?
ZZZZ010516	7000	FORM=           NAME= @
ZZZZ010516	7100	DATA={O}?&DATA&SYSTEM_NAME?
ZZZZ010516	7200	FORM=            END= @
ZZZZ010516	7300	DATA=   END{3,,}{END}終了
ZZZZ010516	7400	=IF{_DATA='END'}EXIT{_END};
ZZZZ010516	7500	WORK=OPT{9}
ZZZZ010518	100	PROGRAM=NOT,&X1,?_MM?_CHART_SETTING_TABLE
ZZZZ010518	200	CONTROL=PROGRAM
ZZZZ010518	300	BEGIN
ZZZZ010518	400	=SET{_LOWER='HTTPS://MSDN.MICROSOFT.COM/JA-JP/LIBRARY/'};
ZZZZ010518	500	=SET{URL1=_LOWER};SET{_LOWER=
ZZZZ010518	600	=   'SYSTEM.WINDOWS.FORMS.DATAVISUALIZATION.CHARTING.'};
ZZZZ010518	700	=SET{                               URL21=_LOWER};
ZZZZ010518	800	=SET{_LOWER='SYSTEM.WINDOWS.FORMS.',URL22=_LOWER};
ZZZZ010518	900	=SET{_LOWER='SYSTEM.DRAWING.'      ,URL23=_LOWER};
ZZZZ010518	1000	=SET{_LOWER='(V=VS.110).ASPX',URL3=_LOWER};
ZZZZ010518	1100	=SQL_SET{W0CNT}{SELECT COUNT(*) FROM ?_TABLE? WHERE
ZZZZ010518	1200	=   Z_CANCEL=' '};
ZZZZ010518	1300	=SET{WC.TABLE='YES,NO'};IF{W0CNT=0}SET{WC.TABLE='YES'};
ZZZZ010518	1400	FORM= グラフ(チャート)セッティングテーブルを作成します。
ZZZZ010518	1500	FORM= 注意：JAVAのプログラムでは動きません。
ZZZZ010518	1600	FORM= @@@@ {テーブルにデータを入れます}
ZZZZ010518	1700	DATA=TABLE{4}
ZZZZ010518	1800	CHECK=?WC.TABLE?
ZZZZ010518	1900	FORM= @@@@ {インターネットから説明文を受信し設定します｝
ZZZZ010518	2000	DATA=URL  {4}{YES,NO}
ZZZZ010518	2100	FORM=      *(注意：説明文の受信設定は時間がかかります)*
ZZZZ010518	2200	FORM=      *(説明文が無くてもグラフは作れます)*
ZZZZ010518	2300	=IF{_DATA='NO'}IF{TABLE='NO'}EXIT{_END};
ZZZZ010518	2400	FORM= URL1  @
ZZZZ010518	2500	DATA={O}URL1{70}
ZZZZ010518	2600	FORM= URL21 @
ZZZZ010518	2700	DATA={O}URL21{70}
ZZZZ010518	2800	FORM= URL22 @
ZZZZ010518	2900	DATA={O}URL22{70}
ZZZZ010518	3000	FORM= URL23 @
ZZZZ010518	3100	DATA={O}URL23{70}
ZZZZ010518	3200	FORM= URL3  @
ZZZZ010518	3300	DATA={O}URL3{70}
ZZZZ010518	3400	FORM= @@@@ {実行します}
ZZZZ010518	3500	DATA=YES  {4}{YES,NO}
ZZZZ010518	3600	=SET{SYSTEM_CHART_SET1='CONTENTALIGNMENT'};
ZZZZ010518	3700	=SET{SYSTEM_CHART_SET1='FONTSTYLE'};
ZZZZ010518	3800	=SET{SYSTEM_CHART_SET1='STRINGALIGNMENT'};
ZZZZ010518	3900	=IF{_DATA='NO'}EXIT{_END};
ZZZZ010518	4000	*####( TABLE STEP )##########################################
ZZZZ010518	4100	=IF{TABLE='NO'}JUMP{URL_STEP};
ZZZZ010518	4200	=ICHART{,SETTING};
ZZZZ010518	4300	=IF_ERROR_READ_OPEN{1,?_TMP?SETTING_ICHART.TXT}ERROR{};
ZZZZ010518	4400	=LOOP:READ_NEXT{1,?&.WORK?}JUMP{FIN};
ZZZZ010518	4500	=PROGRAM{2E,?_TABLE?,?&.WORK_DATA?}{?&.WORK_KEY?}{};
ZZZZ010518	4600	=BACK{LOOP};
ZZZZ010518	4700	=FIN:READ_CLOSE{1};
ZZZZ010518	4800	*#####( URL STEP )#########################################
ZZZZ010518	4900	=URL_STEP:IF{URL='NO'}EXIT{FIN};
ZZZZ010518	5000	=SET{W0ERR_CNT=1};
ZZZZ010518	5100	=SET{_LOWER='="SELFLINK">',WC.START1=_LOWER};
ZZZZ010518	5200	=SET{_LOWER='/XHTML">'    ,WC.START2=_LOWER};
ZZZZ010518	5300	=SET{_LOWER='">解説</SPAN>',WC.END=_LOWER};
ZZZZ010518	5400	=SET{WC.SW=0};
ZZZZ010518	5500	=SQL1{SELECT DISTINCT
ZZZZ010518	5510	=   REPLACE(LOWER(SYSTEM_CHART_SET1),'_','')
ZZZZ010518	5600	=   FROM ?_TABLE? WHERE SYSTEM_CHART_SET_NO='4'
ZZZZ010518	5700	=   AND SYSTEM_CHART_COMMENT=' '
ZZZZ010518	5800	=   AND REPLACE(UPPER(SYSTEM_CHART_SET1),'_','') NOT IN(
ZZZZ010518	5900	=   'COLOR','CUSTOMPROPERTIES','FONT'
ZZZZ010518	6000	=    ) AND Z_CANCEL=' ' ORDER BY 1};
ZZZZ010518	6100	=SET{SQL_ALL=_SQL1_COUNT};
ZZZZ010518	6200	=SQL_NEXT:
ZZZZ010518	6300	=SQL1_NEXT{SYSTEM_CHART_SET1}JUMP{FIN};
ZZZZ010518	6400	=SET{W0ERR=0};COMPUTE{SQL_CNT+=1};
ZZZZ010518	6500	=SET{WC.URL2=URL21};
ZZZZ010518	6600	=IF{SYSTEM_CHART_SET1@UPPER='ACCESSIBLEROLE',='DOCKSTYLE'
ZZZZ010518	6700	=   ,='IMAGELAYOUT',='RIGHTTOLEFT'}SET{WC.URL2=URL22};
ZZZZ010518	6800	=IF{SYSTEM_CHART_SET1@UPPER='CONTENTALIGNMENT',='FONTSTYLE'
ZZZZ010518	6900	=   ,='STRINGALIGNMENT'}SET{WC.URL2=URL23};
ZZZZ010518	7000	=IF_FILE{?_TMP??WC.URL2??SYSTEM_CHART_SET1??URL3?}JUMP{SKIP};
ZZZZ010518	7100	=URL:IF_ERROR_URL{}{?URL1??WC.URL2??SYSTEM_CHART_SET1??URL3?}
ZZZZ010518	7200	=   JUMP{ERR};
ZZZZ010518	7300	=JUMP{SKIP};
ZZZZ010518	7400	=ERR:IF{W0ERR>3}JUMP{ERR_SET};
ZZZZ010518	7500	=COMPUTE{W0ERR+=1};BACK{URL};
ZZZZ010518	7600	=ERR_SET:SET{E?W0ERR_CNT?=SYSTEM_CHART_SET1};
ZZZZ010518	7700	=COMPUTE{W0ERR_CNT+=1};IF{W0ERR_CNT>10}SET{W0ERR_CNT=1};
ZZZZ010518	7800	=BACK{SQL_NEXT};
ZZZZ010518	7900	=SKIP:
ZZZZ010518	7910	=READ_OPEN{1,?_TMP??WC.URL2??SYSTEM_CHART_SET1??URL3?};
ZZZZ010518	8000	=SET{WC.SW=00};
ZZZZ010518	8100	=READ_NEXT1:READ_NEXT{1,WN}JUMP{READ_END1};
ZZZZ010518	8200	=SET{W0C=1};                                先頭から検索*
ZZZZ010518	8300	=SET{_FIND_STRING=WN+WC.END}; 　　　　　　　最終位置検索*
ZZZZ010518	8400	=SET{W0MAX=WN@LENGTH};                      通常は全文字*
ZZZZ010518	8500	=IF{_FIND_STRING>0}SET{W0MAX=_FIND_STRING}; 最後変更*
ZZZZ010518	8600	=LOOP:
ZZZZ010518	8700	=IF{WC.SW=2}JUMP{TAG2};             COMMENT検索中*
ZZZZ010518	8800	REPEAT=2
ZZZZ010518	8900	1+=TAG1:
ZZZZ010518	8902	2+=TAG2:
ZZZZ010518	8910	=SET{_FIND_STRING=WN[W0C]+WC.START##};   先頭位置探す*
ZZZZ010518	9000	=IF{_FIND_STRING=0,>W0MAX}BACK{READ_NEXT1};　先頭位置無し*
ZZZZ010518	9100	=COMPUTE{W0START=W0C+_FIND_STRING};         先頭位置計算*
ZZZZ010518	9200	=COMPUTE{W0START+=WC.START##@LENGTH};       先頭位置調整*
ZZZZ010518	9300	=COMPUTE{W0START-=1};                        先頭位置調整*
ZZZZ010518	9400	=SET{_FIND_CHAR=WN[W0START]+'<'};　　    　 最後位置探す*
ZZZZ010518	9500	=IF{_FIND_CHAR=0}BACK{READ_NEXT1};           最後位置無し*
ZZZZ010518	9600	=SET{W0END=_FIND_CHAR};
ZZZZ010518	9700	1+=SET{SYSTEM_CHART_SET2   =WN[W0START;W0END-1]};
ZZZZ010518	9800	2+=IF_ERROR_SET{SYSTEM_CHART_COMMENT=WN[W0START;W0END-1]}
ZZZZ010518	9900	2+=   NOP{};エラー無視*
ZZZZ010518	10000	1+=SET{WC.SW=2};                       　　 COMMENT検索指示*
ZZZZ010518	10100	=COMPUTE{W0C=W0START+W0END};               次の開始位置計算*
ZZZZ010518	10200	REPEAT=
ZZZZ010518	10300	=SQL{UPDATE ?_TABLE? SET ?_VRE&SYSTEM_CHART_COMMENT?
ZZZZ010518	10400	=   WHERE REPLACE(LOWER(SYSTEM_CHART_SET1),'_','')
ZZZZ010518	10500	=   =LOWER('?SYSTEM_CHART_SET1?')
ZZZZ010518	10600	=   AND   REPLACE(LOWER(SYSTEM_CHART_SET2),'_','')
ZZZZ010518	10700	=   =LOWER('?SYSTEM_CHART_SET2?')};
ZZZZ010518	10800	=SET{WC.SW=0};     SET2検索指示*
ZZZZ010518	10900	=BACK{LOOP};
ZZZZ010518	11000	=READ_END1:
ZZZZ010518	11100	=READ_CLOSE{1};
ZZZZ010518	11200	=BACK{SQL_NEXT};
ZZZZ010518	11300	=FIN:
ZZZZ010518	11400	FORM= ALL @  COUNT @
ZZZZ010518	11500	DATA={O}SQL_ALL{5,,+}
ZZZZ010518	11600	DATA={O}SQL_CNT{5,,+}
ZZZZ010518	11700	FORM= SET1 @ SET2 @
ZZZZ010518	11800	DATA={O}?&.DATA&SYSTEM_CHART_SET1?
ZZZZ010518	11900	DATA={O}?&.DATA&SYSTEM_CHART_SET2?
ZZZZ010518	12000	FORM= COMMENT @
ZZZZ010518	12100	DATA={O}?&.DATA&SYSTEM_CHART_COMMENT?
ZZZZ010518	12200	REPEAT=10
ZZZZ010518	12300	FORM= ERROR @
ZZZZ010518	12400	DATA={O}E##{30}
ZZZZ010518	12500	REPEAT=
ZZZZ010518	12600	FORM= @
ZZZZ010518	12700	DATA=FIN{1}
ZZZZ010518	12800	MESSAGE=正常終了しました。
ZZZZ010518	12900	=EXIT{0};
ZZZZ010520	100	PROGRAM=NOT
ZZZZ010520	200	BEGIN
ZZZZ010520	410	=SQL_SET{WC.BROWSE}{SELECT SYSTEM_ETC FROM
ZZZZ010520	420	=   ?_MP_ZZZZ?ZZ_ETC_TABLE WHERE
ZZZZ010520	430	=   SYSTEM_KEY2='ZZZZZZ_BROWSE_?_OS?'
ZZZZ010520	440	=   AND SYSTEM_KEY1='ZZZZZZ_SYSTEM' AND Z_CANCEL=' '};
ZZZZ010520	441	=IF{_SQL_SET_COUNT=0}ERROR{
ZZZZ010520	450	=   ETC 'ZZZZZZ_SYSTEM','ZZZZZZ_BROWSE_?_OS?' IS NOT FOUND};
ZZZZ010520	452	W-=SET{WC.BROWSE=WC.BROWSE@LOWER};
ZZZZ010520	600	FORM= ******************************************************
ZZZZ010520	800	FORM= RUN @
ZZZZ010520	900	FORM= ******************************************************
ZZZZ010520	1000	DATA={}NUMBER{3}
ZZZZ010520	1400	*=IF{_SERVER!=_COMPUTER}ERROR{NOT SERVER};
ZZZZ010520	1500	***=SET{WN.F='?_OS_DRIVE??_P?I?_P?FILE?_P?'
ZZZZ010520	1520	*=SET{WN.F='?_OS_DRIVE??_P?I?_P?'
ZZZZ010520	1600	*=   +'SHARE?_P?MESSAGE?_P??_IV?SRVC.TXT'};
ZZZZ010520	1910	*EXE{?WC.BROWSE?,?WN.F?};
ZZZZ010520	1920	=SERVER_GET{ISRVC.TXT,SHARE\MESSAGE};
ZZZZ010520	1930	=EXE{?WC.BROWSE?,ISRVC.TXT};
ZZZZ010520	2000	=EXIT{_END};
ZZZZ010521	100	PROGRAM=OUTPUT,&X1,?_MM?_I_TIME_TABLE
ZZZZ010521	200	CONTROL=0,SCROLL
ZZZZ010521	300	BEGIN
ZZZZ010521	510	=SQL_SET{WC.BROWSE}{SELECT SYSTEM_ETC FROM
ZZZZ010521	520	=   ?_MP_ZZZZ?ZZ_ETC_TABLE WHERE
ZZZZ010521	530	=   SYSTEM_KEY2='ZZZZZZ_BROWSE_?_OS?'
ZZZZ010521	540	=   AND SYSTEM_KEY1='ZZZZZZ_SYSTEM' AND Z_CANCEL=' '}
ZZZZ010521	541	=IF{_SQL_SET_COUNT=0}ERROR{
ZZZZ010521	550	=   ETC 'ZZZZZZ_SYSTEM','ZZZZZZ_BROWSE_?_OS?' IS NOT FOUND};
ZZZZ010521	552	W-=SET{WC.BROWSE=WC.BROWSE@LOWER};
ZZZZ010521	600	=SET{WN.T=_TODAY_TIME};
ZZZZ010521	700	=SET{WN.TODAY_YMD=WN.T[1;4]+'-'+WN.T[5;2]+'-'+WN.T[7;2]};
ZZZZ010521	800	=SET{WN.TODAY_HM=WN.T[9;2]+'-'+WN.T[11;2]};
ZZZZ010521	810	=SET{WN.TODAY_D=WN.T[7;2]};
ZZZZ010521	900	SET={,*}S_HHMM{}
ZZZZ010521	1000	=SET{_DATA@WHERE='?_CL?SYSTEM_HH?_C?SYSTEM_MIN?_CR?'
ZZZZ010521	1100	=   +' LIKE ''?S_HHMM?%'' AND SYSTEM_TEST='' '''};
ZZZZ010521	1200	JA+TITLE=時分
ZZZZ010521	1300	JA+MESSAGE=Bはトレース結果を表示します。
ZZZZ010521	1400	=IF{_DATA!='B'}EXIT{};
ZZZZ010521	1500	NAME=LIST
ZZZZ010521	1600	=SET{WN.F='_TRACE_?_COMPUTER_NAME?.TXT'};
ZZZZ010521	1700	=IF_ERROR_SERVER_GET{?WN.F?}ERROR{};
ZZZZ010521	1810	=EXE{?WC.BROWSE?,?_TMP??WN.F?};
ZZZZ010521	1900	NAME=
ZZZZ010521	2000	=SET{S_HHMM=};EXIT{S_HHMM};
ZZZZ010521	2100	DATA={C}?&.DATA&SYSTEM_REAL_STATUS?
ZZZZ010521	2200	DATA=?&.DATA&SYSTEM_HH?
ZZZZ010521	2300	DATA={A}?&.DATA&SYSTEM_MIN?
ZZZZ010521	2400	DATA=?&.DATA&SYSTEM_MENU0?
ZZZZ010521	2500	DATA=?&.DATA&SYSTEM_MENU1?
ZZZZ010521	2600	DATA=?&.DATA&SYSTEM_MENU2?
ZZZZ010521	2700	DATA=?&.DATA&SYSTEM_TIMING?
ZZZZ010521	2800	DATA=?&.DATA&SYSTEM_BEGIN_END?
ZZZZ010521	2900	DATA=?&.DATA&SYSTEM_SHIFT?
ZZZZ010521	3000	DATA=?&.DATA&SYSTEM_DOC?
ZZZZ010521	3100	COPY=@ZZZZZZ_SQL
ZZZZ010521	3200	PROGRAM=NOT
ZZZZ010521	3300	BEGIN
ZZZZ010521	3400	=SET{WC.BROWSE=$WC.BROWSE};
ZZZZ010521	3500	=SET{WN.QUEUE=};
ZZZZ010521	3600	DATA={O}$?$&.DATA&SYSTEM_HH?
ZZZZ010521	3700	=SET{WN.OPT=};
ZZZZ010521	3800	NAME=TIME_SET
ZZZZ010521	3900	=SQL_SET{WN.STATUS}{SELECT SYSTEM_REAL_STATUS FROM
ZZZZ010521	4000	=   ?_MM?_I_TIME_TABLE WHERE
ZZZZ010521	4100	=   ?_VRE&SYSTEM_HH? AND ?_VRE&SYSTEM_MIN?
ZZZZ010521	4200	=   AND SYSTEM_TEST=' ' AND Z_CANCEL=' '};
ZZZZ010521	4210	=IF{_SQL_SET_COUNT=0}SET{WN.STATUS='NOT'};
ZZZZ010521	4300	NAME=
ZZZZ010521	4400	=SET{SYSTEM_REAL_STATUS=WN.STATUS};
ZZZZ010521	4500	=SET{WXT='TIME,'};IF{SYSTEM_HH>23,SYSTEM_MIN>59}SET{WXT=};
ZZZZ010521	4600	=IF{WN.STATUS=' '}SET{WN.OPT='?WXT?RUN,CLEAR'};
ZZZZ010521	4700	=IF{WN.STATUS='ERROR'}SET{WN.OPT='CLEAR,?WXT?RUN'};
ZZZZ010521	4800	=IF{WN.STATUS='TIME'}SET{WN.OPT='CLEAR,CANCEL'};
ZZZZ010521	4900	=IF{WN.STATUS='RUN'}SET{WN.OPT='CLEAR'};
ZZZZ010521	5000	DATA={O}$?$&.DATA&SYSTEM_MIN?
ZZZZ010521	5100	DATA={O}$?$&.DATA&SYSTEM_MENU0?
ZZZZ010521	5200	DATA={O}$?$&.DATA&SYSTEM_MENU1?
ZZZZ010521	5300	DATA={O}$?$&.DATA&SYSTEM_MENU2?
ZZZZ010521	5400	DATA={O}$?$&.DATA&SYSTEM_TIMING?
ZZZZ010521	5500	DATA={O}$?$&.DATA&SYSTEM_BEGIN_END?
ZZZZ010521	5600	DATA={O}$?$&.DATA&SYSTEM_SHIFT?
ZZZZ010521	5700	DATA={O}$?$&.DATA&SYSTEM_DOC?
ZZZZ010521	5800	DATA={O}$?$&.DATA&SYSTEM_REAL_STATUS?
ZZZZ010521	5900	DATA=OPT{7,1}{?WN.OPT?,B,QUIT}
ZZZZ010521	6000	=IF{OPT='QUIT'}EXIT{_END};
ZZZZ010521	6100	=IF{OPT='B'}JUMP{LIST};
ZZZZ010521	6200	=SET{WN.AT=};
ZZZZ010521	6300	COPY=TIME_SET
ZZZZ010521	6400	=IF{OPT='CLEAR'}JUMP{CANCEL};
ZZZZ010521	6500	=IF{WN.STATUS='RUN'}ERROR{RUN};
ZZZZ010521	6600	=IF{OPT!='CANCEL'}JUMP{SKIP};
ZZZZ010521	6700	=IF{WN.STATUS='TIME',='ERROR'}JUMP{CANCEL};
ZZZZ010521	6710	=JUMP{ERR};
ZZZZ010521	6800	=SKIP:IF{WN.STATUS=' ',='ERROR'}JUMP{OK};
ZZZZ010521	6900	=ERR:ERROR{?OPT?  STATUS(?WN.STATUS?)};
ZZZZ010521	7000	=OK:
ZZZZ010521	7100	*=====( AT CHECK )======================
ZZZZ010521	7200	NAME=AT_CHECK
ZZZZ010521	7300	=SET{WN.AT=};
ZZZZ010521	7400	=SQL{UPDATE ?_MM?_I_TIME_TABLE SET SYSTEM_REAL_STATUS=' '
ZZZZ010521	7500	=   WHERE ?_VRE&SYSTEM_HH?
ZZZZ010521	7510	=   AND ?_VRE&SYSTEM_MIN?};
ZZZZ010521	7600	=SERVER_BAT{ZZZZZZETC,AT ?_WORK?.TXT};
ZZZZ010521	7700	=SERVER_GET{?_WORK?.TXT};
ZZZZ010521	7800	=SERVER_BAT{ZZZZZZETC,ERASE ?_WORK?.TXT};
ZZZZ010521	7900	=IF_ERROR_READ_OPEN{2,?_TMP??_WORK?.TXT,SHIFT_JIS}ERROR{};
ZZZZ010521	8000	*SET{WN.CHK2=':'+_P+'I'+_P+'FILE'+_P+_SYSTEM
ZZZZ010521	8010	*           +'.I'+_P+'BIN'+_P+_IV+'TIMEW.EXE'};
ZZZZ010521	8100	*SET{WN.CHK4=':'+_P+'I'+_P+'FILE'+_P+_SYSTEM
ZZZZ010521	8120	*           +'.I'+_P+'BIN'+_P+_IV+'TIMEW4.EXE'};
ZZZZ010521	8200	=READ_NEXT2:SET{WN.AT=};
ZZZZ010521	8300	=READ_NEXT{2,WN.D,WN.U}JUMP{READ_END2};
ZZZZ010521	8400	=SET{WN.1=,WN.2=,WN.3=,WN.4=,WN.5=,WN.6=};
ZZZZ010521	8500	=SET{WN.7=,WN.8=,WN.9=,WN.10=,WN.11=,WN.12=};
ZZZZ010521	8600	=IF{WN.U=}JUMP{WINDOWS};
ZZZZ010521	8610	*****( LINUX )*****************
ZZZZ010521	8700	=LINUX:SET{WN.AT=WN.D};
ZZZZ010521	8800	=SPLIT_CHAR{WN.}{WN.U}{};
ZZZZ010521	8900	=IF{WN.2@COUNT=3}SET{WN.3='0'+WN.3};
ZZZZ010521	9000	*IF{WN.1<WN.TODAY_YMD}BACK{READ_NEXT2};今日より前は無視*
ZZZZ010521	9200	=IF{WN.QUEUE!=}JUMP{SKIP};
ZZZZ010521	9300	=SQL_SET{WN.QUEUE}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ010521	9400	=   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM' AND Z_CANCEL=' '
ZZZZ010521	9500	=   AND SYSTEM_KEY2='ZZZZZZ_LINUX_AT_Q_?_REAL_TEST?'};
ZZZZ010521	9510	=IF{_SQL_SET_COUNT=0}
ZZZZ010521	9600	=  ERROR{ETC,SYSTEM,LINUX_AT_Q_?_REAL_TEST? NOT FOUND};
ZZZZ010521	9700	=SQL_SET{WN.TIME_START}
ZZZZ010521	9710	=  {SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ010521	9800	=   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM' AND Z_CANCEL=' '
ZZZZ010521	9900	=   AND SYSTEM_KEY2='ZZZZZZ_TIME_START'};
ZZZZ010521	9910	=IF{_SQL_SET_COUNT=0}
ZZZZ010521	10000	=   ERROR{ETC,SYSTEM,TIME_START NOT FOUND};
ZZZZ010521	10100	=SKIP:IF{WN.6!=WN.QUEUE}BACK{READ_NEXT2};
ZZZZ010521	10200	=SET{WN.SYSTEM_HH=WN.4[1;2],WN.MIN=WN.4[4;2]};
ZZZZ010521	10300	=IF{WN.3!=$WN.TODAY_D,WN.4[1;5]=WN.TIME_START}
ZZZZ010521	10310	=   SET{WN.SYSTEM_HH=99,WN.MIN=99};
ZZZZ010521	10400	=JUMP{SKIP};
ZZZZ010521	10410	***( WINDOWS )***********
ZZZZ010521	10500	=WINDOWS:
ZZZZ010521	10502	=IF{WN.D[1;6]!='I_?_REAL_TEST?'}BACK{READ_NEXT2};
ZZZZ010521	10504	=SPLIT_CHAR{WN.}{WN.D}{};
ZZZZ010521	10506	=IF{WN.1[14]!=_SYSTEM}BACK{READ_NEXT2};
ZZZZ010521	10508	=IF_NOT{WN.2[3;1]=':',WN.2[5;1]='/'}BACK{READ_NEXT2};
ZZZZ010521	10510	=SET{WN.AT=WN.1,WN.SYSTEM_HH=WN.1[8;2],WN.MIN=WN.1[11;2]};
ZZZZ010521	11400	=SKIP:IF{WN.SYSTEM_HH!=SYSTEM_HH,WN.MIN!=SYSTEM_MIN}
ZZZZ010521	11410	=   BACK{READ_NEXT2};
ZZZZ010521	11500	=READ_END2:
ZZZZ010521	11600	=READ_CLOSE{2};
ZZZZ010521	11700	NAME=
ZZZZ010521	11800	=IF{WN.AT!=}ERROR{AT TIME FOUND ERROR};
ZZZZ010521	11900	=IF{OPT='TIME'}JUMP{TIME};
ZZZZ010521	12000	=SET{OPT=};EXIT{+1};
ZZZZ010521	12100	=TIME:
ZZZZ010521	12200	=IF{SYSTEM_HH>23}ERROR{HH>23 NOT START};
ZZZZ010521	12300	=IF{SYSTEM_MIN>59}ERROR{MM>59 NOT START};
ZZZZ010521	12400	=SET{WDATE=_TODAY};
ZZZZ010521	12500	=SET{W0.H=WDATE[9;2],W0.M=WDATE[11;2],WN.STATUS=' '};
ZZZZ010521	12600	=COMPUTE{W0.M+=3};
ZZZZ010521	12700	=IF{W0.M>59}
ZZZZ010521	12800	=   COMPUTE{W0.M-=60,W0.H+=1}
ZZZZ010521	12900	=   IF{W0.H>23}SET{W0.H=0};
ZZZZ010521	13000	=SET{WN.H=W0.H};
ZZZZ010521	13100	=IF{WN.H@COUNT=0}SET{WN.H='0'+WN.H};
ZZZZ010521	13200	=IF{WN.H@COUNT=1}SET{WN.H='0'+WN.H};
ZZZZ010521	13300	=SET{WN.M=W0.M};
ZZZZ010521	13400	=IF{WN.M@COUNT=0}SET{WN.M='0'+WN.M};
ZZZZ010521	13500	=IF{WN.M@COUNT=1}SET{WN.M='0'+WN.M};
ZZZZ010521	13600	=IF{WN.H<SYSTEM_HH}JUMP{S1};
ZZZZ010521	13700	=IF{WN.H=SYSTEM_HH}IF{WN.M<SYSTEM_MIN}JUMP{S1};
ZZZZ010521	13800	=ERROR{START TIME < NOW};
ZZZZ010521	13900	=S1:
ZZZZ010521	14000	COPY=TIME_SET
ZZZZ010521	14100	=IF{WN.STATUS='TIME',='RUN'}ERROR{STATUS=?WN.STATUS?};
ZZZZ010521	14200	=SET{WN.QUEUE='-'};
ZZZZ010521	14300	W-=SQL_SET{WN.QUEUE}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ010521	14400	W-=   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM' AND Z_CANCEL=' '
ZZZZ010521	14500	W-=   AND SYSTEM_KEY2='ZZZZZZ_LINUX_AT_Q_?_REAL_TEST?'};
ZZZZ010521	14510	W-=IF{_SQL_SET_COUNT=0}ERROR
ZZZZ010521	14600	W-= {ETC,ZZZZZZ_SYSTEM,LINUX_AT_Q_?_REAL_TEST? NOT FOUND};
ZZZZ010521	14610	=SQL_SET{WN.JDBC}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ010521	14620	=   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM' AND Z_CANCEL=' '
ZZZZ010521	14630	=   AND SYSTEM_KEY2='ZZZZZZ_JDBC'};
ZZZZ010521	14631	=IF{_SQL_SET_COUNT=0}
ZZZZ010521	14640	=   ERROR{ETC,ZZZZZZ_SYSTEM,ZZZZZZ_JDBC NOT FOUND};
ZZZZ010521	14700	=SERVER_BAT{ZZZZZZTIME
ZZZZ010521	14800	=  ,?SYSTEM_HH? ?SYSTEM_MIN? TODAY
ZZZZ010521	14810	=   / ?WN.QUEUE? ?WN.JDBC@LOWER?};
ZZZZ010521	15000	=SQL{UPDATE ?_MM?_I_TIME_TABLE
ZZZZ010521	15100	=   SET SYSTEM_REAL_STATUS='TIME' WHERE ?_VRE&SYSTEM_HH?
ZZZZ010521	15200	=   AND ?_VRE&SYSTEM_MIN?};
ZZZZ010521	15300	=EXIT{_END};
ZZZZ010521	15400	*****( CANCEL )*****
ZZZZ010521	15500	=CANCEL:
ZZZZ010521	15600	COPY=AT_CHECK
ZZZZ010521	15700	=SERVER_BAT{ZZZZZZETC
ZZZZ010521	15800	=  ,ERASE_TIME ?SYSTEM_HH?.?SYSTEM_MIN? ?WN.AT?};
ZZZZ010521	15900	=SERVER_BAT{ZZZZZZETC,ERASE ?_WORK?.TXT};
ZZZZ010521	16000	*READ_CLOSE{2};ERASE_FILE{?_WORK?.TXT};
ZZZZ010521	16010	=ERASE_FILE{?_WORK?.TXT};
ZZZZ010521	16100	=IF{OPT='CANCEL'}IF{WN.AT=}ERROR{AT NOT FOUND};
ZZZZ010521	16200	=EXIT{_END};
ZZZZ010521	16300	*****( LIST )*****
ZZZZ010521	16400	=LIST:
ZZZZ010521	16500	COPY=LIST
ZZZZ010521	16600	=SET{OPT=};EXIT{OPT};
ZZZZ010521	16700	END
ZZZZ010521	16800	=SET{_RETURN_SQL=1};
ZZZZ010521	16900	PROGRAM=OUTPUT,&X1,?_MM?_I_MENU_TABLE
ZZZZ010521	17000	CONTROL=0
ZZZZ010521	17100	BEGIN
ZZZZ010521	17110	=SET{.SYSTEM_MENU0=$SYSTEM_MENU0};
ZZZZ010521	17120	=SET{.SYSTEM_MENU1=$SYSTEM_MENU1};
ZZZZ010521	17130	=SET{.SYSTEM_MENU2=$SYSTEM_MENU2};
ZZZZ010521	17200	START
ZZZZ010521	17300	=IF{SYSTEM_MENU3='00'}ERROR{SYSTEM_MENU3=00};
ZZZZ010521	17400	SET={O,*}.=?$&.DATA&SYSTEM_HH?
ZZZZ010521	17500	SET={O,*}.=?$&.DATA&SYSTEM_MIN?
ZZZZ010521	17600	SET={O}.?$&.DATA&SYSTEM_MENU0?
ZZZZ010521	17700	SET={O}.?$&.DATA&SYSTEM_MENU1?
ZZZZ010521	17800	SET={O}.?$&.DATA&SYSTEM_MENU2?
ZZZZ010521	17900	SET={O,*}.=?$&.DATA&SYSTEM_DOC?
ZZZZ010521	18000	=SET{_DATA@WHERE='?_T?.SYSTEM_TEST='' '''};
ZZZZ010521	18100	DATA={K}?&.DATA&SYSTEM_MENU0?
ZZZZ010521	18200	DATA={K}?&.DATA&SYSTEM_MENU1?
ZZZZ010521	18300	DATA={K}?&.DATA&SYSTEM_MENU2?
ZZZZ010521	18400	DATA={K}?&.DATA&SYSTEM_MENU3?
ZZZZ010521	18500	DATA=   ?&.DATA&SYSTEM_MENU?
ZZZZ010521	18600	COPY=@ZZZZZZ_SQL
ZZZZ010521	18700	PROGRAM=NOT
ZZZZ010521	18800	DATA={O}$?$&.DATA&SYSTEM_HH?
ZZZZ010521	18900	DATA={O}$?$&.DATA&SYSTEM_MIN?
ZZZZ010521	19000	DATA={O}$?$&.DATA&SYSTEM_MENU0?
ZZZZ010521	19100	DATA={O}$?$&.DATA&SYSTEM_MENU1?
ZZZZ010521	19200	DATA={O}$?$&.DATA&SYSTEM_MENU2?
ZZZZ010521	19300	DATA={OA}$?$&.DATA&SYSTEM_MENU3?
ZZZZ010521	19400	DATA={O}$?$&.DATA&SYSTEM_TIMING?
ZZZZ010521	19500	DATA={O}$?$&.DATA&SYSTEM_BEGIN_END?
ZZZZ010521	19600	DATA={O}$?$&.DATA&SYSTEM_SHIFT?
ZZZZ010521	19700	DATA={O}$?$&.DATA&SYSTEM_MENU?
ZZZZ010521	19800	DATA={O}?$&.DATA&SYSTEM_REAL_STATUS?
ZZZZ010521	19900	DATA=OPT{5,1}{ALL,ONE,TRACE,B,QUIT}
ZZZZ010521	20000	=IF{_DATA='QUIT'}EXIT{1};
ZZZZ010521	20100	=IF{_DATA='B'}JUMP{LIST};
ZZZZ010521	20200	COPY=TIME_SET
ZZZZ010521	20300	=IF{WN.STATUS='RUN',='TIME',='NOT'}
ZZZZ010521	20310	=   ERROR{STATUS(?WN.STATUS?)};
ZZZZ010521	20320	=SQL_SET{WN.JDBC}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ010521	20330	=   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM' AND Z_CANCEL=' '
ZZZZ010521	20340	=   AND SYSTEM_KEY2='ZZZZZZ_JDBC'};
ZZZZ010521	20342	=IF{_SQL_SET_COUNT=0}
ZZZZ010521	20350	=   ERROR{ETC,ZZZZZZ_SYSTEM,ZZZZZZ_JDBC NOT FOUND};
ZZZZ010521	20400	=SERVER_BAT{ZZZZZZTIME,?SYSTEM_HH? ?SYSTEM_MIN?
ZZZZ010521	20500	= ?SYSTEM_MENU0??.SYSTEM_MENU1??.SYSTEM_MENU2??SYSTEM_MENU3?
ZZZZ010521	20600	=   ?OPT? ?_COMPUTER_NAME? ?WN.JDBC@LOWER?};
ZZZZ010521	20700	=SET{_RETURN_SQL=1};
ZZZZ010521	20800	=SET{OPT=};EXIT{1};
ZZZZ010521	20900	=LIST:
ZZZZ010521	21000	=SET{WN.F='_TRACE_?_COMPUTER_NAME?.TXT'};
ZZZZ010521	21100	=IF_ERROR_SERVER_GET{?WN.F?}ERROR{};
ZZZZ010521	21210	=EXE{?$WC.BROESE?,?WN.F?};
ZZZZ010521	21300	=SET{OPT=};EXIT{OPT};
ZZZZ010523	100	PROGRAM=OUTPUT
ZZZZ010523	200	BEGIN_END
ZZZZ010523	300	REPEAT=_A_A
ZZZZ010523	400	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010523	500	REPEAT=
ZZZZ010523	600	BEGIN
ZZZZ010523	700	*******************************
ZZZZ010523	800	W-=SET{WN.REAL='A',WN.TEST='N'};
ZZZZ010523	900	*******************************
ZZZZ010523	1000	=SET{WN.QUEUE=};
ZZZZ010523	1100	=CREATE_TABLE2{?_WORK_TABLE?A,DAY_X,C,10
ZZZZ010523	1200	=  ,TIME_X,C,5,HH,C,2,MIN_X,C,2,AT_X,C,21}{};
ZZZZ010523	1300	SET=GO{5}
ZZZZ010523	1400	=SET{WN.T=_TODAY_TIME};
ZZZZ010523	1500	=SET{WN.TODAY_YMD=WN.T[1;4]+'-'+WN.T[5;2]+'-'+WN.T[7;2]};
ZZZZ010523	1510	=SET{WN.TODAY_YMD_W=WN.T[1;4]+'/'+WN.T[5;2]+'/'+WN.T[7;2]};
ZZZZ010523	1600	=SET{WN.TODAY_HM=WN.T[9;2]+'-'+WN.T[11;2]};
ZZZZ010523	1700	=SET{S_DATE=WN.TODAY_YMD};
ZZZZ010523	1800	SET={O}S_DATE{10,,D}
ZZZZ010523	1900	=SQL{DELETE FROM ?_WORK_TABLE?A};
ZZZZ010523	2000	=SERVER_BAT{ZZZZZZETC,AT ?_WORK?.TXT};
ZZZZ010523	2100	=SERVER_GET{?_WORK?.TXT};
ZZZZ010523	2200	=SERVER_BAT{ZZZZZZETC,ERASE ?_WORK?.TXT};
ZZZZ010523	2300	=READ_OPEN{2,?_TMP??_WORK?.TXT,SHIFT_JIS};
ZZZZ010523	2400	*=SET{WN.CHK2=':'+_P+'I'+_P+'FILE'+_P+_SYSTEM+'.I'
ZZZZ010523	2410	*=  +_P+'BIN'+_P+_IV+'TIMEW.EXE'};
ZZZZ010523	2500	*=SET{WN.CHK4=':'+_P+'I'+_P+'FILE'+_P+_SYSTEM+'.I'
ZZZZ010523	2510	*=  +_P+'BIN'+_P+_IV+'TIMEW4.EXE'};
ZZZZ010523	2600	=L1:
ZZZZ010523	2700	=READ_NEXT2:READ_NEXT{2,WN.D,WN.U}JUMP{READ_END2};
ZZZZ010523	2800	=SET{WN.1=,WN.2=,WN.3=,WN.4=,WN.5=,WN.6=};
ZZZZ010523	2900	=SET{WN.7=,WN.8=,WN.9=,WN.10=,WN.11=,WN.12=};
ZZZZ010523	3000	=IF{WN.U=}JUMP{WINDOWS};
ZZZZ010523	3010	*****( LINUX )***********************
ZZZZ010523	3100	=LINUX:SET{WN.AT_X=WN.D};
ZZZZ010523	3200	=SPLIT_CHAR{WN.}{WN.U}{};
ZZZZ010523	3300	=IF{WN.2@COUNT=4}SET{WN.2='0'+WN.2};
ZZZZ010523	3400	=IF{WN.1<WN.TODAY_YMD}BACK{READ_NEXT2};今日より前は無視*
ZZZZ010523	3500	=IF{WN.1=WN.TODAY_YMD}IF{WN.2<WN.TODAY_HM}BACK{READ_NEXT2};
ZZZZ010523	3600	=IF{WN.QUEUE!=}JUMP{SKIP};
ZZZZ010523	3700	=SQL_SET{WN.QUEUE}{SELECT ETC FROM ?_MM?_ETC_TABLE
ZZZZ010523	3800	=   WHERE KEY1='ZZZZZZ_SYSTEM' AND Z_CANCEL=' '
ZZZZ010523	3900	=   AND KEY2='ZZZZZZ_LINUX_AT_Q_?_REAL_TEST?'};
ZZZZ010523	3910	=IF{_SQL_SET_COUNT=0}ERROR
ZZZZ010523	4000	=  {ETC,ZZZZZZ_SYSTEM,LINUX_AT_Q_?_REAL_TEST? NOT FOUND};
ZZZZ010523	4100	=SQL_SET{WN.TIME_START}{SELECT ETC FROM ?_MM?_ETC_TABLE
ZZZZ010523	4200	=   WHERE KEY1='ZZZZZZ_SYSTEM' AND Z_CANCEL=' '
ZZZZ010523	4300	=   AND KEY2='ZZZZZZ_TIME_START'};
ZZZZ010523	4310	=IF{_SQL_SET_COUNT=0}
ZZZZ010523	4400	=   ERROR{ETC,SYSTEM,TIME_START NOT FOUND};
ZZZZ010523	4500	=SKIP:IF{WN.3!=WN.QUEUE}BACK{READ_NEXT2};
ZZZZ010523	4600	=SET{WN.DATE='TODAY',WN.HH=WN.2[1;2],WN.MIN=WN.2[4;2]};
ZZZZ010523	4700	=IF{WN.1!=WN.TODAY_YMD,WN.2=WN.TIME_START}
ZZZZ010523	4800	=   SET{WN.DATE='NEXT:'+WN.1[9;2],WN.HH=99,WN.MIN=99};
ZZZZ010523	4900	=SET{WN.TIME=WN.2};
ZZZZ010523	5000	=JUMP{INS};
ZZZZ010523	5010	***( WINDOWS )*************************************
ZZZZ010523	5100	=WINDOWS:
ZZZZ010523	5110	=IF{WN.D[1;6]!='I_?_REAL_TEST?'}BACK{READ_NEXT2};
ZZZZ010523	5200	=SPLIT_CHAR{WN.}{WN.D}{};
ZZZZ010523	5202	=IF{WN.1[14]!=_SYSTEM}BACK{READ_NEXT2};
ZZZZ010523	5204	=SET{WN.AT_X=WN.1,WN.HH=WN.1[8;2],WN.MIN=WN.1[11;2]};
ZZZZ010523	5206	=IF{WN.2[3;1]=':'}JUMP{XP};
ZZZZ010523	5208	=IF{WN.2[5;1]='/'}JUMP{NOT_XP};
ZZZZ010523	5210	=BACK{READ_NEXT2};
ZZZZ010523	5212	=NOT_XP:
ZZZZ010523	5214	=SET{WN.DATE=WN.2[1;10]};
ZZZZ010523	5216	=SET{WN.TIME=WN.3[1;5]};
ZZZZ010523	5218	=IF{WN.TIME[2;1]=':'}SET{WN.TIME='0'+WN.TIME[1;4]};
ZZZZ010523	5220	=JUMP{SKIP};
ZZZZ010523	5222	=XP:SET{WN.DATE=WN.3[1;10],WN.TIME=WN.2[1;5]};
ZZZZ010523	5224	=SKIP:
ZZZZ010523	5226	=IF{WN.DATE=WN.TODAY_YMD_W}SET{WN.DATE=};
ZZZZ010523	5300	*SET{WN.AT_X=WN.1};
ZZZZ010523	6110	******************************************************
ZZZZ010523	6200	=INS:SQL{INSERT INTO ?_WORK_TABLE?A
ZZZZ010523	6300	=   (DAY_X,TIME_X,HH,MIN_X,AT_X)VALUES
ZZZZ010523	6410	=   ('?WN.DATE?','?WN.TIME?','?WN.HH?','?WN.MIN?'
ZZZZ010523	6420	=   ,'?WN.AT_X?')};
ZZZZ010523	6500	=BACK{READ_NEXT2};
ZZZZ010523	6600	=READ_END2:READ_CLOSE{2};
ZZZZ010523	6700	=EXIT{};
ZZZZ010523	6800	*DATA={O}DAY{8}
ZZZZ010523	6810	DATA={O}DAY_X{10}
ZZZZ010523	6900	JA+TITLE=日
ZZZZ010523	7000	DATA={O}TIME_X{5}
ZZZZ010523	7100	JA+TITLE=起動時間
ZZZZ010523	7200	DATA={O}HH{2}
ZZZZ010523	7300	JA+TITLE=時
ZZZZ010523	7400	DATA={O}MIN_X{2}
ZZZZ010523	7500	JA+TITLE=分
ZZZZ010523	7600	*DATA={O}JOB{8}
ZZZZ010523	7700	*JA+TITLE=ジョブグループ
ZZZZ010523	7800	*DATA={0,,80}AT{9,,+}
ZZZZ010523	7810	DATA={O,,80}AT_X{21}
ZZZZ010523	7900	JA+TITLE=AT
ZZZZ010523	8000	SQL=SELECT ?_DATA_ALL_SQL? FROM ?_WORK_TABLE?A ?_T?
ZZZZ010523	8100	REPEAT=_ORDER_COUNT
ZZZZ010523	8200	SQL=?_ORDER##?
ZZZZ010523	8300	REPEAT=
ZZZZ010525	100	***( ★注意:このプログラムはDBの登録パスワード使っているので
ZZZZ010525	200	*    ジョブ名を変えると登録パスワードを正しく受け取れません、
ZZZZ010525	300	*    ZZZZ010525以外には移動しないでください。）***
ZZZZ010525	400	***( 許可の更新 )***
ZZZZ010525	500	PROGRAM=,&X1,?_MM?_ETC_TABLE
ZZZZ010525	600	CONTROL=PROGRAM,SCROLL,ERROR,WIDTH,HIGH,0
ZZZZ010525	700	TABLE=&X2,?_MM?_ETC_ID_TABLE
ZZZZ010525	800	DICTIONARY=SYSTEM_PERMISSION
ZZZZ010525	900	BEGIN
ZZZZ010525	1000	=SET{W0.PERMISSION=1};
ZZZZ010525	1100	=SET{WC.PART_K='ZZZZZZ_PART:'};
ZZZZ010525	1200	D+=SET{WN.P_PATH='?_DB_SOFT[2;1]?_?_DB_SOFT[3;1]?'};
ZZZZ010525	1300	D+W+=SET{INSTALL_PATH=_OS_DRIVE+_P+'PROGRAM FILES'+_P
ZZZZ010525	1400	D+W+=   +'FIREBIRD'+_P+'FIREBIRD_'+WN.P_PATH,WC.EXE='.EXE'};
ZZZZ010525	1500	D+W-=SET{INSTALL_PATH=_P+'USER'+_P+'LIB'+_P+'FIREBIRD'};
ZZZZ010525	1600	D+W-=SET{WC.EXE=};
ZZZZ010525	1700	D+SET={N}DUMMY{1};
ZZZZ010525	1800	D+=EXIT3{INSTALL_PATH};
ZZZZ010525	2000	D+SET={,*}INSTALL_PATH{65}
ZZZZ010525	2100	D+=SET{WC.PROGRAM=INSTALL_PATH+_P+'BIN'+_P+'GSEC?WC.EXE?'};
ZZZZ010525	2200	D+W-=SET{WC.PROGRAM=WC.PROGRAM@LOWER};
ZZZZ010525	2300	D+=IF_FILE_NOT{?WC.PROGRAM?}
ZZZZ010525	2400	D+=   ERROR{?WC.PROGRAM? FILE IS NOT FOUND};
ZZZZ010525	2500	INPUT+=SET{LOGIN_ID=_LOGIN_ID_ADMIN};
ZZZZ010525	2600	*I+W-=SET{WC.ROOT='ROOT'};
ZZZZ010525	2700	INPUT+SET={,*}LOGIN_ID{14}
ZZZZ010525	2800	INPUT+=SET{_LOGIN_ID=LOGIN_ID};
ZZZZ010525	2900	INPUT+SET={,*}PASSWORD_ADMIN{80,,!,*}ADMIN_PASWORD
ZZZZ010525	3000	=SET{.SYSTEM_KEY1='ZZZZZZ_PERMISSION'};
ZZZZ010525	3100	OUTPUT+=JUMP{SKIP_OUTPUT};
ZZZZ010525	3200	=SET{_LOGIN_PASSWORD=PASSWORD_ADMIN};
ZZZZ010525	3300	=DBO_SQL_SET{SYSTEM_COMMENT}{SELECT SYSTEM_COMMENT FROM
ZZZZ010525	3400	=   ?_MM?_ETC_ID_TABLE ?_T?
ZZZZ010525	3500	=   WHERE ?_T?.?_VRE&.SYSTEM_KEY1? AND Z_CANCEL=' '};
ZZZZ010525	3600	=IF{_SQL_SET_COUNT=0}ERROR{ETC,PERMISSION NOT FOUND};
ZZZZ010525	3700	=DBO_SQL_SET{WN.SYSTEM_ETC}
ZZZZ010525	3800	=  {SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE ?_T?
ZZZZ010525	3900	=   WHERE ?_T?.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010525	4000	=   AND ?_T?.SYSTEM_KEY2='ZZZZZZ_INSTALL_CFG1'
ZZZZ010525	4100	=   AND Z_CANCEL=' '};
ZZZZ010525	4200	=IF{_SQL_SET_COUNT=0}
ZZZZ010525	4300	=   ERROR{ETC,ZZZZZ_SYSTEM,ZZZZZZ_INSTALL_CFG1 NOT FOUND};
ZZZZ010525	4400	=SPLIT_CHAR{WN.CFG}{WN.SYSTEM_ETC}{','};
ZZZZ010525	4500	W+=SET{WN.KOR=':'};
ZZZZ010525	4600	W-=SET{WN.KOR=};
ZZZZ010525	4700	=SET{WN.VIEW1='OBJECT',WN.VIEW2='COLUMN'};
ZZZZ010525	4800	=SET{WN.VIEW3='GRANT',WN.VIEW4='INDEX'};
ZZZZ010525	4900	=SET{_LOWER='R',WN.LR=_LOWER,_LOWER='A',WN.LA=_LOWER};
ZZZZ010525	5000	=SET{_LOWER='W',WN.LW=_LOWER,_LOWER='D',WN.LD=_LOWER};
ZZZZ010525	5100	=SET{_LOWER='V',WN.LV=_LOWER};
ZZZZ010525	5200	=SET{_LOWER='R_D_ZZZZ',WN.L_R_D_ZZZZ=_LOWER};
ZZZZ010525	5300	=IF{_PERMISSION='ZZZZ'}SET{.SYSTEM_KEY2=}JUMP{};
ZZZZ010525	5400	=   SET{                   .SYSTEM_KEY2=_PERMISSION};
ZZZZ010525	5500	=SKIP_OUTPUT:
ZZZZ010525	5600	*SET={,*&X3}?&DATA&SYSTEM_PERMISSION?
ZZZZ010525	5700	SET={KO}.?&X1.DATA&SYSTEM_KEY1?
ZZZZ010525	5800	SET={O}.?&X1.DATA&SYSTEM_KEY2?
ZZZZ010525	5900	SET={O,*}    .?&.DATA&SYSTEM_COMMENT?
ZZZZ010525	6000	=IF{_PERMISSION='ZZZZ'}
ZZZZ010525	6100	=  SET{WN.SYSTEM_KEY2='(ZAAA,ZZZZ),(AAAA,VZZZ)'}JUMP{};
ZZZZ010525	6200	=  SET{WN.SYSTEM_KEY2=_PERMISSION};
ZZZZ010525	6300	START
ZZZZ010525	6400	=IF{_START=0}SET{%PERMISSION='-'}EXIT{};
ZZZZ010525	6500	=SET{%PERMISSION='+'};
ZZZZ010525	6600	=IF{_SERVER!=_COMPUTER}ERROR{_COMPUTER!='?_SERVER?'};
ZZZZ010525	6700	=IF{_PERMISSION!='ZZZZ'}ERROR{PERMISSION!='ZZZZ'};
ZZZZ010525	6800	=IF{PASSWORD_ADMIN=}ERROR{PASSWORD IS NULL};
ZZZZ010525	6900	=IF_ERROR_LOGIN_SQL{SELECT ?_NOW0? ?_FROM_DUAL?}ERROR{};
ZZZZ010525	7000	=IF{_START!=2}
ZZZZ010525	7100	=   IF{SYSTEM_KEY2='ZZZZ'}ERROR{ZZZZ IS SYSTEM RESERVER};
ZZZZ010525	7200	*IF{_START!=2}
ZZZZ010525	7300	* IF{SYSTEM_KEY2!=_PERMISSION}IF{_PERMISSION!='ZZZZ'}
ZZZZ010525	7400	* IF{_PERMISSION!='ZZZZ'}ERROR{PERMISSION NOT '?_PERMISSION?'
ZZZZ010525	7500	*   ERROR{PERMISSION NOT '?_PERMISSION?'};
ZZZZ010525	7600	=SET{.SYSTEM_KEY1='ZZZZZZ_PERMISSION'};
ZZZZ010525	7700	*=DBO_SQL_SET{SYSTEM_COMMENT}{SELECT SYSTEM_COMMENT FROM
ZZZZ010525	7800	*=   ?_MM?_ETC_ID_TABLE ?_T?
ZZZZ010525	7900	*=   WHERE ?_T?.?_VRE&SYSTEM_KEY1? AND Z_CANCEL=' '};
ZZZZ010525	8000	*=IF{_SQL_SET_COUNT=0}ERROR{ETC,PERMISSION NOT FOUND};
ZZZZ010525	8100	=DBO_SQL_SET{WN.SYSTEM_ETC}
ZZZZ010525	8200	=  {SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE ?_T?
ZZZZ010525	8300	=   WHERE ?_T?.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010525	8400	=   AND ?_T?.SYSTEM_KEY2='ZZZZZZ_INSTALL_CFG1'
ZZZZ010525	8500	=   AND Z_CANCEL=' '};
ZZZZ010525	8600	=IF{_SQL_SET_COUNT=0}
ZZZZ010525	8700	=   ERROR{ETC,ZZZZZ_SYSTEM,ZZZZZZ_INSTALL_CFG1 NOT FOUND};
ZZZZ010525	8800	=SPLIT_CHAR{WN.CFG}{WN.SYSTEM_ETC}{','};
ZZZZ010525	8900	W+=SET{WN.KOR=':'};
ZZZZ010525	9000	W-=SET{WN.KOR=};
ZZZZ010525	9100	=SET{WN.VIEW1='OBJECT',WN.VIEW2='COLUMN'};
ZZZZ010525	9200	=SET{WN.VIEW3='GRANT',WN.VIEW4='INDEX'};
ZZZZ010525	9300	=SET{_LOWER='R',WN.LR=_LOWER,_LOWER='A',WN.LA=_LOWER};
ZZZZ010525	9400	=SET{_LOWER='W',WN.LW=_LOWER,_LOWER='D',WN.LD=_LOWER};
ZZZZ010525	9500	=SET{_LOWER='V',WN.LV=_LOWER};
ZZZZ010525	9600	=SET{_LOWER='R_D_ZZZZ',WN.L_R_D_ZZZZ=_LOWER};
ZZZZ010525	9700	=SET{WN.R_T1='R',WN.R_T2='T'};
ZZZZ010525	9800	=SET{WN.REAL_TEST1='REAL',WN.REAL_TEST2='TEST'};
ZZZZ010525	9900	=SET{WN.DB_RT1=_M_REAL+'ZZ',WN.DB_RT2=_M_TEST+'ZZ'};
ZZZZ010525	10000	=IF{_START!=1}EXIT{};
ZZZZ010525	10100	=SQL_SET{}{SELECT 0 FROM ?_TABLE? WHERE
ZZZZ010525	10200	=   SYSTEM_KEY1='?WC.PART_K??SYSTEM_KEY2?'
ZZZZ010525	10300	=   AND Z_CANCEL=' '};
ZZZZ010525	10400	=IF{_SQL_SET_COUNT>0}
ZZZZ010525	10500	=   ERROR{?WC.PART_K??SYSTEM_KEY2? FOUND};
ZZZZ010525	10600	REPEAT=2
ZZZZ010525	10700	=IF_ERROR_DBO_SQL{SELECT SYSTEM_NAME FROM
ZZZZ010525	10800	=   ?WN.DB_RT##?_M_?SYSTEM_KEY2?_OBJECT_VIEW}JUMP{ERR};
ZZZZ010525	10900	=JUMP{SKIP};
ZZZZ010525	11000	=ERR:SET{WN.ERROR=_ERROR};
ZZZZ010525	11100	=IF{_DB_I_ERROR='NOT_EXIST'}JUMP{OK};
ZZZZ010525	11200	=ERROR{?WN.ERROR?};
ZZZZ010525	11300	=SKIP:DBO_SQL_SET{WN.CH}{SELECT SYSTEM_NAME FROM
ZZZZ010525	11310	=   ?WN.DB_RT##?_M_?SYSTEM_KEY2?_OBJECT_VIEW};
ZZZZ010525	11400	=IF{_SQL_SET_COUNT>0}
ZZZZ010525	11500	=   ERROR{?WN.CH?(OBJECT,?WN.REAL_TEST##?) FOUND};
ZZZZ010525	11600	=OK:
ZZZZ010525	11700	REPEAT=
ZZZZ010525	11800	L-=LOGIN_SQL1{SELECT SYSTEM_KEY2 FROM ?_MM?_ETC_TABLE WHERE
ZZZZ010525	11900	L-=   SYSTEM_KEY1='ZZZZZZ_PERMISSION'
ZZZZ010525	12000	L-=   AND Z_CANCEL=' ' ORDER BY 1 DESC};
ZZZZ010525	12100	L-=SQL1_NEXT:SQL1_NEXT{WWO}JUMP{SQL1_END};
ZZZZ010525	12200	L-REPEAT=2
ZZZZ010525	12300	L-=IF_ERROR_DBO_SQL{SELECT SYSTEM_NAME FROM
ZZZZ010525	12400	L-=   ?WN.DB_RT##?_M_?WWO?_GRANT_VIEW
ZZZZ010525	12500	L-=   WHERE SYSTEM_GRANT LIKE '%_?SYSTEM_KEY2?'}JUMP{ERR};
ZZZZ010525	12600	L-=JUMP{SKIP};
ZZZZ010525	12700	L-=ERR:SET{WN.ERROR=_ERROR};
ZZZZ010525	12800	L-=IF{_DB_I_ERROR='NOT_EXIST'}JUMP{OK};
ZZZZ010525	12900	L-=ERROR{?WN.ERROR?};
ZZZZ010525	13000	L-=SKIP:DBO_SQL_SET{WN.CH}{SELECT SYSTEM_NAME FROM
ZZZZ010525	13010	L-=   ?WN.DB_RT##?_M_?WWO?_GRANT_VIEW
ZZZZ010525	13020	L-=   WHERE SYSTEM_GRANT LIKE '%_?SYSTEM_KEY2?'};
ZZZZ010525	13100	L-=IF{_SQL_SET_COUNT>0}
ZZZZ010525	13200	L-=   ERROR{?WN.CH?(GRANT,?WN.REAL_TEST##?) FOUND};
ZZZZ010525	13300	L-=OK:
ZZZZ010525	13400	L-REPEAT=
ZZZZ010525	13500	L-=BACK{SQL1_NEXT};
ZZZZ010525	13600	L-=SQL1_END:
ZZZZ010525	13700	DATA={K}SYSTEM_KEY2{4,4,Z}KEY2
ZZZZ010525	13800	CHECK=?WN.SYSTEM_KEY2?
ZZZZ010525	13900	TITLE=許可
ZZZZ010525	14000	DATA=   ?&.DATA&SYSTEM_ETC?
ZZZZ010525	14100	DATA=   ?&.DATA&SYSTEM_COMMENT?
ZZZZ010525	14200	D+|F+|H+DATA={*}PASSWORD_LINK{14,1,I,*}
ZZZZ010525	14300	D+|F+|H+SELECT=' '
ZZZZ010525	14400	D+|F+|H+DATA={*}PASSWORD_LINK2{14,1,I,*}
ZZZZ010525	14500	D+|F+|H+SELECT=' '
ZZZZ010525	14600	D+|F+|H+=IF{_DATA!=PASSWORD_LINK}ERROR{PASSWORD NOT EQUAL};
ZZZZ010525	14700	D+|F+|H+DATA={*}PASSWORD_TEST{14,1,I,*}
ZZZZ010525	14800	D+|F+|H+SELECT=' '
ZZZZ010525	14900	D+|F+|H+DATA={*}PASSWORD_TEST2{14,1,I,*}
ZZZZ010525	15000	D+|F+|H+SELECT=' '
ZZZZ010525	15100	D+|F+|H+=IF{_DATA!=PASSWORD_TEST}ERROR{PASSWORD NOT EQUAL};
ZZZZ010525	15110	D+|F+|H+DATA={*}PASSWORD_REAL{14,1,I,*}
ZZZZ010525	15120	D+|F+|H+SELECT=' '
ZZZZ010525	15130	D+|F+|H+DATA={*}PASSWORD_REAL2{14,1,I,*}
ZZZZ010525	15140	D+|F+|H+SELECT=' '
ZZZZ010525	15150	D+|F+|H+=IF{_DATA!=PASSWORD_REAL}ERROR{PASSWORD NOT EQUAL};
ZZZZ010525	15200	STOP_AFTER
ZZZZ010525	15300	=IF{_REAL_TEST='TEST'}EXIT{};
ZZZZ010525	15400	*LOGIN_SQL_SET{WC.PASSWORD_LINK,WC.PASSWORD_TEST
ZZZZ010525	15500	*   ,WC.PASSWORD_REAL}
ZZZZ010525	15600	*  {SELECT '*LINK*','*TEST*','*REAL*' ?_FROM_DUAL?};
ZZZZ010525	15700	***********************************************************:
ZZZZ010525	15800	=PROG:
ZZZZ010525	15900	=SET{WN.REAL_TEST='REAL',WN.R_T='R',_REAL_TEST='REAL'};
ZZZZ010525	16000	=SET{.SYSTEM_KEY1='ZZZZZZ_PERMISSION'};
ZZZZ010525	16100	=PROGRAM{?_START?E,?_MM?_ETC_TABLE
ZZZZ010525	16110	=  ,SYSTEM_ETC,SYSTEM_COMMENT}
ZZZZ010525	16200	=  {.SYSTEM_KEY1,SYSTEM_KEY2}{};
ZZZZ010525	16300	=PROGRAM{?_START?E,?_MM_TEST?_ETC_TABLE
ZZZZ010525	16400	=  ,SYSTEM_ETC,SYSTEM_COMMENT}
ZZZZ010525	16410	=  {.SYSTEM_KEY1,SYSTEM_KEY2}{};
ZZZZ010525	16500	****( @,PERMISSION )*****
ZZZZ010525	16600	=ETC_PERMISSION:
ZZZZ010525	16700	=DBO_SQL_SET{W0.MAX}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ010525	16800	=   WHERE SYSTEM_KEY1='ZZZZZZ_@'
ZZZZ010525	16900	=   AND SYSTEM_KEY2='ZZZZZZ_PERMISSION_COUNT'
ZZZZ010525	17000	=   AND Z_CANCEL=' '};
ZZZZ010525	17100	=IF{_SQL_SET_COUNT=0}
ZZZZ010525	17200	=   ERROR{ETC,ZZZZZZ_@,ZZZZZZ_PERMISSON_COUNT NOT FOUND};
ZZZZ010525	17300	=LOGIN_SQL1{SELECT SYSTEM_KEY2 FROM ?_MM?_ETC_TABLE WHERE
ZZZZ010525	17400	=   SYSTEM_KEY1='ZZZZZZ_PERMISSION'
ZZZZ010525	17500	=   AND Z_CANCEL=' ' ORDER BY 1 DESC};
ZZZZ010525	17600	=SET{W0.CNT=0,W.SYSTEM_KEY1='ZZZZZZ_@',W0.NEW=0};
ZZZZ010525	17700	=SQL1_NEXT:SQL1_NEXT{W.SYSTEM_ETC}JUMP{SQL1_END};
ZZZZ010525	17800	=COMPUTE{W0.CNT+=1};
ZZZZ010525	17900	=SET{W.SYSTEM_KEY2='ZZZZZZ_PERMISSION_NO'+W0.CNT};
ZZZZ010525	18000	=PROGRAM{2E,?_MM?_ETC_TABLE,W.SYSTEM_ETC}
ZZZZ010525	18100	=  {W.SYSTEM_KEY1,W.SYSTEM_KEY2}{};
ZZZZ010525	18200	=PROGRAM{2E,?_MM_TEST?_ETC_TABLE,W.SYSTEM_ETC}
ZZZZ010525	18210	=  {W.SYSTEM_KEY1,W.SYSTEM_KEY2}{};
ZZZZ010525	18300	=COMPUTE{W0.NEW+=1};
ZZZZ010525	18400	=BACK{SQL1_NEXT};
ZZZZ010525	18500	=SQL1_END:COMPUTE{W0.CNT+=1};
ZZZZ010525	18600	=IF{W0.CNT>W0.MAX}JUMP{ETC2};
ZZZZ010525	18700	=SET{W.SYSTEM_KEY2='ZZZZZZ_PERMISSION_NO'+W0.CNT};
ZZZZ010525	18800	=PROGRAM{1E,?_MM?_ETC_TABLE}{W.SYSTEM_KEY1,W.SYSTEM_KEY2}{};
ZZZZ010525	19000	=PROGRAM{1E,?_MM_TEST?_ETC_TABLE}{W.SYSTEM_KEY1,W.SYSTEM_KEY2
ZZZZ010525	19010	=  }{};
ZZZZ010525	19100	=BACK{SQL1_END};
ZZZZ010525	19200	=ETC2:SET{W.SYSTEM_KEY2='ZZZZZZ_PERMISSION_COUNT'};
ZZZZ010525	19300	=SET{W.SYSTEM_ETC=W0.NEW};
ZZZZ010525	19400	=PROGRAM{3E,?_MM?_ETC_TABLE,W.SYSTEM_ETC}
ZZZZ010525	19500	=  {W.SYSTEM_KEY1,W.SYSTEM_KEY2}{};
ZZZZ010525	19600	=PROGRAM{3E,?_MM_TEST?_ETC_TABLE,W.SYSTEM_ETC}
ZZZZ010525	19610	=  {W.SYSTEM_KEY1,W.SYSTEM_KEY2}{};
ZZZZ010525	19700	=SET{W.SYSTEM_KEY1='ZZZZZZ_PART:'+SYSTEM_KEY2};
ZZZZ010525	19800	=PROGRAM{?_START?E,?_MM?_ETC_ID_TABLE,SYSTEM_COMMENT}
ZZZZ010525	19900	=  {W.SYSTEM_KEY1}{};
ZZZZ010525	20000	=PROGRAM{?_START?E,?_MM_TEST?_ETC_ID_TABLE,SYSTEM_COMMENT}
ZZZZ010525	20100	=  {W.SYSTEM_KEY1}{};
ZZZZ010525	20200	=********( W0.PERMISION,WC.PER$$ )**************************
ZZZZ010525	20300	=SQL1{SELECT SYSTEM_KEY2 FROM ?_TABLE? WHERE Z_CANCEL=' '
ZZZZ010525	20400	=   AND SYSTEM_KEY1='ZZZZZZ_PERMISSION' ORDER BY 1 DESC};
ZZZZ010525	20500	=SET{_COUNTER=1};
ZZZZ010525	20600	=SQL1_NEXT:SQL1_NEXT{WC.PER$$}JUMP{SQL1_END};
ZZZZ010525	20700	=COMPUTE{_COUNTER+=1};BACK{SQL1_NEXT};
ZZZZ010525	20800	=SQL1_END:COMPUTE{_COUNTER-=1};SET{W0.PERMISSION=_COUNTER};
ZZZZ010525	20900	=SET{WC.START=_START,_LOWER=_SYSTEM,WC.LSYSTEM=_LOWER};
ZZZZ010525	21000	=SQL_FILE2{?_TMP?Z_PERMISSION.CFG,OT,/}
ZZZZ010525	21100	=  {SELECT SYSTEM_KEY2 FROM ?_TABLE? WHERE Z_CANCEL=' '
ZZZZ010525	21200	=   AND SYSTEM_KEY1='ZZZZZZ_PERMISSION' ORDER BY 1 DESC};
ZZZZ010525	21300	=SERVER_PUT     {Z_PERMISSION.CFG};
ZZZZ010525	21400	=SERVER_BAT{ZZZZZZETC,PERMISSION};
ZZZZ010525	21500	=SET{%PREMISSION='+'};
ZZZZ010525	21600	=EXIT{+1};
ZZZZ010525	21700	END
ZZZZ010525	21800	=EXIT{0};
ZZZZ010525	21900	COPY=@ZZZZZZ_SQL
ZZZZ010525	22000	%PERMISSION-COMMENT_BEGIN
ZZZZ010525	22100	PROGRAM=NOT
ZZZZ010525	22200	CONTROL=BEGIN_ENTER
ZZZZ010525	22300	BEGIN
ZZZZ010525	22400	=SET{WC.PER=$SYSTEM_KEY2};
ZZZZ010525	22500	D+|F+|H+=SET{WC.PASSWORD_REAL=$PASSWORD_REAL};
ZZZZ010525	22600	D+|F+|H+=SET{WC.PASSWORD_TEST=$PASSWORD_TEST};
ZZZZ010525	22700	D+|F+|H+=SET{WC.PASSWORD_LINK=$PASSWORD_LINK};
ZZZZ010525	22800	=SET{WC.LSYSTEM=$WC.LSYSTEM};
ZZZZ010525	22900	=SET{WC.PASSWORD_ADMIN=$PASSWORD_ADMIN};
ZZZZ010525	23000	=SET{WC.LOGIN_ID=_LOGIN_ID};
ZZZZ010525	23100	REPEAT0=$W0.PERMISSION
ZZZZ010525	23200	=SET{WC.PER$$=$WC.PER$$};
ZZZZ010525	23300	REPEAT0=5
ZZZZ010525	23400	=SET{WC.DR$$=$WN.CFG$$};
ZZZZ010525	23500	REPEAT0=
ZZZZ010525	23600	DATA=DUMMY{1}
ZZZZ010526	100	PROGRAM=NOT
ZZZZ010526	200	*ONTROL=SQL_DBO
ZZZZ010526	300	BEGIN_END
ZZZZ010526	400	=DROP_TABLE{?_WORK_TABLE?A};
ZZZZ010526	500	DATA=A{4}{YES,NO}
ZZZZ010526	600	=IF{_DATA='NO'}EXIT{_END};
ZZZZ010526	700	=COPY_TABLE{?_WORK_TABLE?A,?_MM?_I_HELP_TABLE,NOT};
ZZZZ010526	800	=READ_OPEN{1,D:?_P?HARASAWA?_P?I?_P?JANIS?_P??_IV?.TXT,/};
ZZZZ010526	900	=SET{W0=10};
ZZZZ010526	1000	=READ_NEXT1:READ_NEXT{1,WN}READ_CLOSE{1}JUMP{READ_END1};
ZZZZ010526	1100	=SQL{INSERT INTO ?_WORK_TABLE?A
ZZZZ010526	1200	=   (LANG,JOB,SEQ,HELP)
ZZZZ010526	1300	=   VALUES('JA','ZZZZ010241',?W0?,?_N?'?WN?')};
ZZZZ010526	1400	=COMPUTE{W0+=10};
ZZZZ010526	1500	=BACK{READ_NEXT1};
ZZZZ010526	1600	=READ_END1:
ZZZZ010526	1700	=REPLACE_ALL{?_MM?_I_HELP_TABLE,?_WORK_TABLE?A,HELP}
ZZZZ010526	1800	=  {LANG,JOB,SEQ}{*O*.LANG='JA' AND ?_O?JOB='ZZZZ010241'}{};
ZZZZ010526	2000	DATA=B{1}
ZZZZ010527	100	PROGRAM=NOT
ZZZZ010527	200	CONTROL=PROGRAM,BEGIN_ENTER
ZZZZ010527	300	DICTIONARY=SYSTEM_PERMISSION,SYSTEM_REAL
ZZZZ010527	400	BEGIN_END
ZZZZ010527	500	REPEAT=?_A_G?
ZZZZ010527	600	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010527	700	REPEAT=
ZZZZ010527	800	BEGIN
ZZZZ010527	900	=SET{SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010527	1000	%TEST-=SET{SYSTEM_REAL='REAL'};
ZZZZ010527	1100	%TEST+=SET{SYSTEM_REAL='TEST'};
ZZZZ010527	1200	DATA={O}?&DATA&SYSTEM_REAL?
ZZZZ010527	1300	DATA={O}?&DATA&SYSTEM_PERMISSION?
ZZZZ010527	1400	%TEST-=SET{COMMENT='該当許可のみ更新します'};
ZZZZ010527	1500	%TEST+=SET{COMMENT='該当許可でTESTのみ更新します'};
ZZZZ010527	1600	%TEST-=IF{_PERMISSION='ZZZZ'}SET{COMMENT=
ZZZZ010527	1700	%TEST-='許可''ZZZZ''は該当範囲を無条件で更新します'
ZZZZ010527	1800	%TEST-=,COMMENT@COLOR='Y'};
ZZZZ010527	1900	W+DATA=DRV{2,1}{(A,Z)}DRIVE
ZZZZ010527	2000	W-DATA=DRV{10,1,,L}PATH
ZZZZ010527	2100	=DROP_TABLE{?_WORK_TABLE?A};
ZZZZ010527	2200	=CREATE_TABLE2{?_WORK_TABLE?A,SYSTEM_MENU0,C,4
ZZZZ010527	2300	=   ,SYSTEM_MENU1,C,2,SYSTEM_MENU2,C,2
ZZZZ010527	2310	=   ,SYSTEM_MENU3,C,2,DATE_TIME,C,17}
ZZZZ010527	2400	=  {SYSTEM_MENU,30,MENU_COUNT,INT,HELP_COUNT,INT
ZZZZ010527	2500	=   ,PROG_COUNT,INT};
ZZZZ010527	2600	W+=SET{WN.PATH=_DATA+':'+_P};
ZZZZ010527	2700	W-=SET{WN.PATH=_DATA+'/'};
ZZZZ010527	2800	=IF_ERROR_DIR{?WN.PATH?}JUMP{DIR_END};
ZZZZ010527	2900	=DIR_NEXT:
ZZZZ010527	3000	=DIR_NEXT{WN.FILE,WN.DATE}JUMP{DIR_END};
ZZZZ010527	3100	=IF{WN.FILE!/'I-PROGRAM-'}BACK{DIR_NEXT};
ZZZZ010527	3200	=IF{WN.FILE!%'.TXT'}BACK{DIR_NEXT};
ZZZZ010527	3300	=SQL{INSERT INTO ?_WORK_TABLE?A (SYSTEM_MENU0,SYSTEM_MENU1
ZZZZ010527	3400	=   ,SYSTEM_MENU2,SYSTEM_MENU3,DATE_TIME,SYSTEM_MENU
ZZZZ010527	3500	=   ,MENU_COUNT,HELP_COUNT,PROG_COUNT)VALUES
ZZZZ010527	3600	=   ('?WN.FILE[11;4]?','?WN.FILE[15;2]?','?WN.FILE[17;2]?'
ZZZZ010527	3700	=   ,'?WN.FILE[19;2]?','?WN.DATE?',' ',0,0,0)};
ZZZZ010527	3800	=BACK{DIR_NEXT};
ZZZZ010527	3900	=DIR_END:SQL1{SELECT SYSTEM_MENU0,SYSTEM_MENU1
ZZZZ010527	4000	=   ,SYSTEM_MENU2,SYSTEM_MENU3 FROM ?_WORK_TABLE?A};
ZZZZ010527	4100	=SQL1_NEXT{WN.SYSTEM_MENU0,WN.SYSTEM_MENU1
ZZZZ010527	4110	=   ,WN.SYSTEM_MENU2,WN.SYSTEM_MENU3}
ZZZZ010527	4200	=   ERROR{I FILE NOT FOUND};
ZZZZ010527	4300	=LOOP:SET{WN.OPEN=WN.PATH+'?_P?I-PROGRAM-'
ZZZZ010527	4400	=+WN.SYSTEM_MENU0+WN.SYSTEM_MENU1
ZZZZ010527	4410	=+WN.SYSTEM_MENU2+WN.SYSTEM_MENU3+'.TXT'};
ZZZZ010527	4500	=READ_OPEN{1,?WN.OPEN?};
ZZZZ010527	4600	=READ_NEXT{1,,,,,,WN.SYSTEM_MENU,W0.HELP_COUNT
ZZZZ010527	4700	=  ,W0.MENU_COUNT,W0.PROG_COUNT};READ_CLOSE{1};
ZZZZ010527	4800	=SQL{UPDATE ?_WORK_TABLE?A SET ?_VRE&WN.SYSTEM_MENU?
ZZZZ010527	4900	=   ,?_VRE&W0.PROG_COUNT?
ZZZZ010527	5000	=   ,?_VRE&W0.MENU_COUNT?
ZZZZ010527	5100	=   ,?_VRE&W0.HELP_COUNT?  WHERE
ZZZZ010527	5200	=   ?_VRE&WN.SYSTEM_MENU0? AND
ZZZZ010527	5210	=   ?_VRE&WN.SYSTEM_MENU1? AND
ZZZZ010527	5300	=   ?_VRE&WN.SYSTEM_MENU2? AND
ZZZZ010527	5310	=   ?_VRE&WN.SYSTEM_MENU3?};
ZZZZ010527	5400	=SQL1_NEXT{WN.SYSTEM_MENU0,WN.SYSTEM_MENU1
ZZZZ010527	5410	=   ,WN.SYSTEM_MENU2,WN.SYSTEM_MENU3}
ZZZZ010527	5500	=     JUMP{SQL1_END};
ZZZZ010527	5600	=BACK{LOOP};
ZZZZ010527	5700	=SQL1_END:
ZZZZ010527	5800	DATA={O}COMMENT{50,,N}
ZZZZ010527	5900	*****( 2 )***************************************************
ZZZZ010527	6000	PROGRAM=OUTPUT,&X1,?_MM?_I_MENU_TABLE
ZZZZ010527	6100	CONTROL=0,SCROLL
ZZZZ010527	6200	BEGIN
ZZZZ010527	6300	=SET{ORDER='YES'};
ZZZZ010527	6400	SET={O}.=?$&DATA&SYSTEM_REAL?
ZZZZ010527	6500	SET={O}.=?$&DATA&SYSTEM_PERMISSION?
ZZZZ010527	6600	SET=ORDER{3,,}{YES,NO}日付けの大きい順
ZZZZ010527	6700	=SET{WN.ORDER='5 DESC,'};IF{_DATA='NO'}SET{WN.ORDER=};
ZZZZ010527	6800	DATA=?&.DATA&SYSTEM_MENU0?
ZZZZ010527	6900	DATA=?&.DATA&SYSTEM_MENU1?
ZZZZ010527	7000	DATA=?&.DATA&SYSTEM_MENU2?
ZZZZ010527	7100	DATA=?&.DATA&SYSTEM_MENU3?
ZZZZ010527	7200	DATA=DATE_TIME{23,,T}
ZZZZ010527	7300	DATA=?&.DATA&SYSTEM_MENU?
ZZZZ010527	7400	DATA=HELP_COUNT{8,,+,Z}
ZZZZ010527	7500	DATA=MENU_COUNT{8,,+,Z}
ZZZZ010527	7600	DATA=PROG_COUNT{8,,+,Z}
ZZZZ010527	7700	SQL=SELECT ?_DATA_ALL_SQL?
ZZZZ010527	7800	SQL=FROM ?_WORK_TABLE?A ?_T? ORDER BY ?WN.ORDER?1,2,3,4
ZZZZ010527	7900	******( 3 )*************************************************
ZZZZ010527	8000	PROGRAM=NOT,X1,?_MM?_I_MENU_TABLE
ZZZZ010527	8001	CONTROL=PROGRAM
ZZZZ010527	8100	*TABLE=&X1,?_MM?_I_MENU_TABLE
ZZZZ010527	8200	BEGIN
ZZZZ010527	8300	=SET{WS=,WSP8='WS,WS,WS,WS,WS,WS,WS,WS'};
ZZZZ010527	8400	=SET_TABLE{&XP,?_MM?_I_PROGRAM_TABLE};
ZZZZ010527	8500	=SET_TABLE{&XM,?_MM?_I_MENU_TABLE};
ZZZZ010527	8600	=SET_TABLE{&XH,?_MM?_I_HELP_TABLE};
ZZZZ010527	8700	=SET{WN.OPEN=$WN.PATH+'?_P?I-PROGRAM-'+SYSTEM_MENU0
ZZZZ010527	8800	=   +SYSTEM_MENU1+SYSTEM_MENU2+SYSTEM_MENU3+'.TXT'};
ZZZZ010527	8900	=SET{WN.WHERE_MO=,WN.WHERE_JO=,WN.M0=,WN.M1=,WN.M2=,WN.M3=};
ZZZZ010527	9000	=IF{SYSTEM_MENU0!='-'}SET{WN.M0=SYSTEM_MENU0
ZZZZ010527	9100	=   ,WN.WHERE_MO='*O*.'+_VRE&SYSTEM_MENU0};
ZZZZ010527	9200	=IF{SYSTEM_MENU1!='--'}SET{WN.M1=SYSTEM_MENU1,WN.WHERE_MO
ZZZZ010527	9300	=   =WN.WHERE_MO+' AND *O*.'+_VRE&SYSTEM_MENU1};
ZZZZ010527	9400	=IF{SYSTEM_MENU2!='--'}SET{WN.M2=SYSTEM_MENU2,WN.WHERE_MO
ZZZZ010527	9500	=   =WN.WHERE_MO+' AND *O*.'+_VRE&SYSTEM_MENU2};
ZZZZ010527	9600	=IF{SYSTEM_MENU3!='--'}SET{WN.M3=SYSTEM_MENU3,WN.WHERE_MO
ZZZZ010527	9700	=   =WN.WHERE_MO+' AND *O*.'+_VRE&SYSTEM_MENU3};
ZZZZ010527	9800	=IF{SYSTEM_MENU0!='-'}SET{WN.WHERE_JO=
ZZZZ010527	9900	=   '*O*.SYSTEM_JOB LIKE '''+WN.M0+WN.M1+WN.M2+WN.M3+'%'''};
ZZZZ010527	10000	***( B=MENU,C=PROGRAM,D=HELP)*****
ZZZZ010527	10100	=DROP_TABLE{?_WORK_TABLE?B};
ZZZZ010527	10200	=DROP_TABLE{?_WORK_TABLE?C};
ZZZZ010527	10300	=DROP_TABLE{?_WORK_TABLE?D};
ZZZZ010527	10400	=COPY_TABLE{?_WORK_TABLE?B,?_MM?_I_MENU_TABLE,NOT};
ZZZZ010527	10500	=COPY_TABLE{?_WORK_TABLE?C,?_MM?_I_PROGRAM_TABLE,NOT};
ZZZZ010527	10600	=COPY_TABLE{?_WORK_TABLE?D,?_MM?_I_HELP_TABLE,NOT};
ZZZZ010527	10700	DATA={O}$?$&DATA&SYSTEM_REAL?
ZZZZ010527	10800	DATA={O}$?$&DATA&SYSTEM_PERMISSION?
ZZZZ010527	10900	W+DATA={O}$DRV{1}DRIVE
ZZZZ010527	11000	W-DATA={O}$DRV{10}PATH
ZZZZ010527	11100	DATA={O}$DATE_TIME{23,,T}
ZZZZ010527	11200	DATA={O}$?&.DATA&SYSTEM_MENU0?
ZZZZ010527	11300	DATA={O}$?&.DATA&SYSTEM_MENU1?
ZZZZ010527	11400	DATA={O}$?&.DATA&SYSTEM_MENU2?
ZZZZ010527	11500	DATA={O}$?&.DATA&SYSTEM_MENU3?
ZZZZ010527	11600	DATA={O,,80}$?&.DATA&SYSTEM_MENU?
ZZZZ010527	11700	DATA={O}$MENU_COUNT{8,,+,Z}
ZZZZ010527	11800	DATA={O}$HELP_COUNT{8,,+,Z}
ZZZZ010527	11900	DATA={O}$PROG_COUNT{8,,+,Z}
ZZZZ010527	12000	DATA={,,80}RUN{4,2}{YES,NO}
ZZZZ010527	12100	=IF{_DATA='NO'}EXIT{_END};
ZZZZ010527	12200	=SET{W0.RUN=0,W0.CNT=0};
ZZZZ010527	12300	=READ_OPEN{1,?WN.OPEN?};
ZZZZ010527	12400	=READ_NEXT{1,WN.COUNT}JUMP{READ_END1};
ZZZZ010527	12500	=READ_NEXT1:READ_NEXT{1,?&XH.WORK?}JUMP{READ_END1};
ZZZZ010527	12600	=IF{WC.SYSTEM_LANG='HELP'}BACK{READ_NEXT1};
ZZZZ010527	12700	=IF{WC.SYSTEM_LANG='MENU'}JUMP{READ_END1};
ZZZZ010527	12800	=COMPUTE{W0.RUN+=1,W0.CNT+=1};
ZZZZ010527	12900	=IF{W0.CNT=100}SET{W0.CNT=0,HELP_RUN=W0.RUN};
ZZZZ010527	13000	=INSERT{?_WORK_TABLE?D,?&XH.WORK?};
ZZZZ010527	13100	=BACK{READ_NEXT1};
ZZZZ010527	13200	=READ_END1:SET{HELP_RUN=W0.RUN};
ZZZZ010527	13300	=SET{W0.RUN=0,W0.CNT=0};
ZZZZ010527	13400	=READ_NEXT1:READ_NEXT{1,?&XM.WORK?}JUMP{READ_END1};
ZZZZ010527	13500	=IF{WC.SYSTEM_LANG='PROGRAM'}JUMP{READ_END1};
ZZZZ010527	13600	=COMPUTE{W0.RUN+=1,W0.CNT+=1};
ZZZZ010527	13700	=IF{W0.CNT=100}SET{W0.CNT=0,MENU_RUN=W0.RUN};
ZZZZ010527	13800	=INSERT{?_WORK_TABLE?B,?&XM.WORK?};
ZZZZ010527	13900	=BACK{READ_NEXT1};
ZZZZ010527	14000	=READ_END1:SET{W0.CNT=0,MENU_RUN=W0.RUN};
ZZZZ010527	14100	=SET{W0.RUN=0,W0.CNT=0};
ZZZZ010527	14200	=READ_NEXT1:READ_NEXT{1,?&XP.WORK?}JUMP{READ_END1};
ZZZZ010527	14300	=COMPUTE{W0.RUN+=1,W0.CNT+=1};
ZZZZ010527	14400	=IF{W0.CNT=100}SET{W0.CNT=0,PROG_RUN=W0.RUN};
ZZZZ010527	14500	=INSERT{?_WORK_TABLE?C,?&XP.WORK?};
ZZZZ010527	14600	=BACK{READ_NEXT1};
ZZZZ010527	14700	=READ_END1:READ_CLOSE{1};
ZZZZ010527	14800	=SET{W0.CNT=0,PROG_RUN=W0.RUN};
ZZZZ010527	14900	%TEST+=JUMP{SKIP};
ZZZZ010527	15000	=IF{_PERMISSION!='ZZZZ'}JUMP{SKIP};
ZZZZ010527	15100	=REPLACE_ALL{?_MM?_I_HELP_TABLE,?_WORK_TABLE?D,?&XH.DATA?}
ZZZZ010527	15200	=  {?&XH.KEY?}{?WN.WHERE_JO?}{};
ZZZZ010527	15300	=REPLACE_ALL{?_MM?_I_MENU_TABLE,?_WORK_TABLE?B,?&XM.DATA?}
ZZZZ010527	15400	=  {?&XM.KEY?}{?WN.WHERE_MO?}{};
ZZZZ010527	15500	=REPLACE_ALL{?_MM?_I_PROGRAM_TABLE,?_WORK_TABLE?C,?&XP.DATA?}
ZZZZ010527	15600	=  {?&XP.KEY?}{?WN.WHERE_JO?}{};
ZZZZ010527	15700	=EXIT{};
ZZZZ010527	15800	=SKIP:
ZZZZ010527	15900	***( E=MENU,F=PROGRAM,G=HELP,H=COUNT)*****
ZZZZ010527	16000	=DROP_TABLE{?_WORK_TABLE?E};
ZZZZ010527	16100	=DROP_TABLE{?_WORK_TABLE?F};
ZZZZ010527	16200	=DROP_TABLE{?_WORK_TABLE?G};
ZZZZ010527	16300	=COPY_TABLE{?_WORK_TABLE?E,?_MM?_I_MENU_TABLE,NOT};
ZZZZ010527	16400	=COPY_TABLE{?_WORK_TABLE?F,?_MM?_I_PROGRAM_TABLE,NOT};
ZZZZ010527	16500	=COPY_TABLE{?_WORK_TABLE?G,?_MM?_I_HELP_TABLE,NOT};
ZZZZ010527	16600	=SQL{INSERT INTO ?_WORK_TABLE?E SELECT * FROM ?_WORK_TABLE?B
ZZZZ010527	16700	=   XB WHERE NOT EXISTS(SELECT * FROM ?_MM?_I_MENU_TABLE X0
ZZZZ010527	16800	=   WHERE X0.?_NE&XB.SYSTEM_LANG?
ZZZZ010527	16900	=   AND X0.?_NE&XB.SYSTEM_MENU0? AND X0.?_NE&XB.SYSTEM_MENU1?
ZZZZ010527	17000	=   AND X0.?_NE&XB.SYSTEM_MENU2? AND X0.?_NE&XB.SYSTEM_MENU3?
ZZZZ010527	17010	=   AND (
ZZZZ010527	17100	%TEST+=   X0.SYSTEM_TEST<>'TEST' OR
ZZZZ010527	17200	=   X0.SYSTEM_PERMISSION<>'?_PERMISSION?')
ZZZZ010527	17300	=   AND X0.Z_CANCEL=' ')
ZZZZ010527	17400	%TEST+=   AND  XB.SYSTEM_TEST='TEST'
ZZZZ010527	17500	=   AND XB.SYSTEM_PERMISSION='?_PERMISSION?'};
ZZZZ010527	17600	=SET{MENU_RUN=_SQL_COUNT_123};
ZZZZ010527	17700	=IF{_SQL_COUNT_123=0}EXIT{+1};
ZZZZ010527	17800	=SQL{INSERT INTO ?_WORK_TABLE?G SELECT * FROM ?_WORK_TABLE?D
ZZZZ010527	17900	=   X
ZZZZ010527	18000	NAME=WHERE_EXIST
ZZZZ010527	18100	=   WHERE EXISTS(SELECT * FROM ?_WORK_TABLE?E XE WHERE
ZZZZ010527	18200	=   ?_CL?XE.SYSTEM_MENU0?_C?XE.SYSTEM_MENU1?_C?
ZZZZ010527	18300	=   XE.SYSTEM_MENU2?_C?XE.SYSTEM_MENU3?_CR?=X.SYSTEM_JOB)};
ZZZZ010527	18400	NAME=
ZZZZ010527	18500	=SET{HELP_RUN=_SQL_COUNT_123};
ZZZZ010527	18600	=SQL{INSERT INTO ?_WORK_TABLE?F SELECT * FROM ?_WORK_TABLE?C
ZZZZ010527	18700	=   X
ZZZZ010527	18800	COPY=WHERE_EXIST
ZZZZ010527	18900	=SET{PROG_RUN=_SQL_COUNT_123};
ZZZZ010527	19000	=SET{WN.WHERE_MX='EXISTS(SELECT '' '' FROM  ?_WORK_TABLE?E X'
ZZZZ010527	19100	*   +' WHERE *O*.'+_RE&X.SYSTEM_MENU0
ZZZZ010527	19101	=   +' WHERE *O*.'+_NE&X.SYSTEM_MENU0
ZZZZ010527	19200	*   +'  AND  *O*.'+_RE&X.SYSTEM_MENU1
ZZZZ010527	19201	=   +'  AND  *O*.'+_NE&X.SYSTEM_MENU1
ZZZZ010527	19300	*   +'  AND  *O*.'+_RE&X.SYSTEM_MENU2
ZZZZ010527	19301	=   +'  AND  *O*.'+_NE&X.SYSTEM_MENU2
ZZZZ010527	19400	*   +'  AND  *O*.'+_RE&X.SYSTEM_MENU3+')'};
ZZZZ010527	19410	=   +'  AND  *O*.'+_NE&X.SYSTEM_MENU3+')'};
ZZZZ010527	19500	=SET{WN.WHERE_JX='EXISTS(SELECT '' '' FROM  ?_WORK_TABLE?E X'
ZZZZ010527	19600	=   +' WHERE *O*.SYSTEM_JOB=?_CL?X.SYSTEM_MENU0?_C?'
ZZZZ010527	19700	*   +'?X.SYSTEM_MENU1??_C?X.SYSTEM_MENU2'
ZZZZ010527	19702	=   +'X.SYSTEM_MENU1?_C?X.SYSTEM_MENU2'
ZZZZ010527	19710	=   +'?_C?X.SYSTEM_MENU3?_CR?)'};
ZZZZ010527	19800	=REPLACE_ALL{?_MM?_I_HELP_TABLE,?_WORK_TABLE?G,?&XH.DATA?}
ZZZZ010527	19900	=  {?&XH.KEY?}{?WN.WHERE_JX?}{};
ZZZZ010527	20000	=REPLACE_ALL{?_MM?_I_MENU_TABLE,?_WORK_TABLE?E,?&XM.DATA?}
ZZZZ010527	20100	=  {?&XM.KEY?}{?WN.WHERE_MX?}{};
ZZZZ010527	20200	=REPLACE_ALL{?_MM?_I_PROGRAM_TABLE,?_WORK_TABLE?F,?&XP.DATA?}
ZZZZ010527	20300	=  {?&XP.KEY?}{?WN.WHERE_JX?}{};
ZZZZ010527	20400	=EXIT{+1};
ZZZZ010527	20500	DATA={O}MENU_RUN{8,,+}  MENU_RUN
ZZZZ010527	20600	DATA={O}HELP_RUN{8,,+}  HELP_RUN
ZZZZ010527	20700	DATA={O}PROG_RUN{8,,+}  PROG_RUN
ZZZZ010527	20800	DATA=END{4,3}{END}
ZZZZ010527	20900	=EXIT{-1};
ZZZZ010527	21000	PROGRAM=OUTPUT,&X1,?_WORK_TABLE?B
ZZZZ010527	21100	LEFT=&X2,?_MM?_I_MENU_TABLE
ZZZZ010527	21200	LEFT=&X3,?_WORK_TABLE?E
ZZZZ010527	21210	BEGIN
ZZZZ010527	21220	*=SET{.SYSTEM_PERMISSION=$SYSTEM_PERMISSION};
ZZZZ010527	21300	COLOR
ZZZZ010527	21400	=SET{WN.COLOR='R'};IF{STATUS='OK'}SET{WN.COLOR='B'};
ZZZZ010527	21500	=SET{STATUS@COLOR=WN.COLOR
ZZZZ010527	21502	=   ,SYSTEM_MENU0@COLOR=WN.COLOR
ZZZZ010527	21510	=   ,SYSTEM_MENU0@COLOR=WN.COLOR
ZZZZ010527	21600	=   ,SYSTEM_MENU1@COLOR=WN.COLOR
ZZZZ010527	21610	=   ,SYSTEM_MENU2@COLOR=WN.COLOR
ZZZZ010527	21700	=   ,SYSTEM_MENU3@COLOR=WN.COLOR
ZZZZ010527	21710	=   ,SYSTEM_LANG@COLOR=WN.COLOR};
ZZZZ010527	21800	=IF{SYSTEM_PERMISSION!=.SYSTEM_PERMISSION}
ZZZZ010527	21900	=   SET{SYSTEM_PERMISSION@COLOR='Y'};
ZZZZ010527	22000	=IF{X2.SYSTEM_PERMISSION!=.SYSTEM_PERMISSION}
ZZZZ010527	22100	=   SET{X2.SYSTEM_PERMISSION@COLOR='Y'};
ZZZZ010527	22200	=IF{.SYSTEM_REAL!='TEST'}EXIT{};
ZZZZ010527	22300	=IF{SYSTEM_TEST!='TEST'}SET{SYSTEM_TEST@COLOR='Y'};
ZZZZ010527	22400	=IF{X2.SYSTEM_TEST!='TEST'}SET{X2.SYSTEM_TEST@COLOR='Y'};
ZZZZ010527	22500	SET={O,*}.=?$&DATA&SYSTEM_REAL?
ZZZZ010527	22600	SET={O,*}.=?$&DATA&SYSTEM_PERMISSION?
ZZZZ010527	22700	DATA={K}?&.DATA&SYSTEM_MENU0?
ZZZZ010527	22800	DATA={K}?&.DATA&SYSTEM_MENU1?
ZZZZ010527	22900	DATA={K}?&.DATA&SYSTEM_MENU2?
ZZZZ010527	23000	DATA={K}?&.DATA&SYSTEM_MENU3?
ZZZZ010527	23100	DATA={K}?&.DATA&SYSTEM_LANG?
ZZZZ010527	23200	DATA={O}STATUS{2}
ZZZZ010527	23300	SELECT=CASE WHEN X3.SYSTEM_MENU0 IS NULL THEN 'NG'
ZZZZ010527	23310	SELECT=   ELSE 'OK' END
ZZZZ010527	23400	DATA=?&.DATA&SYSTEM_TEST?(NEW)
ZZZZ010527	23500	DATA=X2.?&.DATA&SYSTEM_TEST?(OLD)
ZZZZ010527	23600	DATA=?&.DATA&SYSTEM_PERMISSION?(NEW)
ZZZZ010527	23700	DATA=X2.?&.DATA&SYSTEM_PERMISSION?(OLD)
ZZZZ010527	23800	DATA=?&.DATA&SYSTEM_MENU?
ZZZZ010527	23900	COPY=@ZZZZZZ_SQL
ZZZZ010527	24000	END
ZZZZ010527	24100	=EXIT{-2};
ZZZZ010528	100	PROGRAM=NOT
ZZZZ010528	200	DICTIONARY=SYSTEM_REAL,SYSTEM_PERMISSION
ZZZZ010528	300	DICTIONARY=SYSTEM_NAME,SYSTEM_PUBLIC
ZZZZ010528	400	BEGIN_END
ZZZZ010528	500	REPEAT=?_A_A?
ZZZZ010528	600	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010528	700	REPEAT=
ZZZZ010528	800	BEGIN
ZZZZ010528	900	*SET{WN.CANCEL='Z_CANCEL='' '''};
ZZZZ010528	1000	*IF{_VERSION1<7}SET{WN.CANCEL='Z_CANCEL IS NULL'};
ZZZZ010528	1100	%TEST-=SET{SYSTEM_REAL='REAL'};
ZZZZ010528	1200	%TEST+=SET{SYSTEM_REAL='TEST'};
ZZZZ010528	1300	=SET{WN.FX13='I-TABLE-?SYSTEM_REAL?-'};
ZZZZ010528	1400	=SET{SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010528	1500	FORM=
ZZZZ010528	1600	FORM= 注意：テーブルが既に存在する場合は実行しません！
ZZZZ010528	1700	FORM=
ZZZZ010528	1800	FORM=       (REAL,TEST)= @@@@
ZZZZ010528	1900	FORM=        PERMISSION= @@@@
ZZZZ010528	2000	FORM=        DRIVE/PATH= @
ZZZZ010528	2100	FORM=
ZZZZ010528	2200	FORM=   FILE = I-TABLE-(REAL)-(NAME)-CREATE.TXT
ZZZZ010528	2300	FORM=
ZZZZ010528	2400	DATA={O}?&DATA&SYSTEM_REAL?
ZZZZ010528	2500	DATA={O}?&DATA&SYSTEM_PERMISSION?
ZZZZ010528	2600	W+DATA=DRV{1,1,Z}
ZZZZ010528	2700	W-DATA=DRV{10,1,,L}PATH
ZZZZ010528	2800	*SET{_TRACE=0};
ZZZZ010528	2900	W+=SET{WN.PATH=_DATA+':'+_P};
ZZZZ010528	3000	W-=SET{WN.PATH=_DATA+'/'};
ZZZZ010528	3100	=IF_ERROR_DIR{?WN.PATH?}ERROR{DRIVE OR PATH ERROR};
ZZZZ010528	3200	=DROP_TABLE{?_WORK_TABLE?A};
ZZZZ010528	3300	=CREATE_TABLE2{?_WORK_TABLE?A,SYSTEM_NAME,30}
ZZZZ010528	3400	=  {SYSTEM_COPY_DATA,C,1,
ZZZZ010528	3500	=SYSTEM_PUBLIC,*,SYSTEM_STATUS,C,10,SYSTEM_ERROR,C,80};
ZZZZ010528	3600	=DIR_NEXT:DIR_NEXT{WN.FILE,WN.DATE}JUMP{DIR_END};
ZZZZ010528	3700	=IF{WN.FILE@COUNT<19}BACK{DIR_NEXT};
ZZZZ010528	3800	=COMPUTE{W0.M24=WN.FILE@COUNT-24,W0.M10=WN.FILE@COUNT-10};
ZZZZ010528	3900	=IF{WN.FILE!/WN.FX13}BACK{DIR_NEXT};
ZZZZ010528	4000	=IF{WN.FILE[W0.M10]!='-CREATE.TXT'}BACK{DIR_NEXT};
ZZZZ010528	4100	=SET{SYSTEM_NAME=WN.FILE[14;W0.M24]};
ZZZZ010528	4200	NAME=WN.X_DB
ZZZZ010528	4300	=SET{_REAL_TEST=SYSTEM_REAL};
ZZZZ010528	4400	=SET{WN.X_DB=_MX_?SYSTEM_NAME[1;4]?};
ZZZZ010528	4500	=SET{_REAL_TEST='REAL'};
ZZZZ010528	4600	NAME=
ZZZZ010528	4700	=SET{_UPPER=SYSTEM_NAME};
ZZZZ010528	4800	=IF{_UPPER!=SYSTEM_NAME}
ZZZZ010528	4900	=   SET{SYSTEM_ERROR='TABE NAME IS NOT UPPER'}JUMP{ERR};
ZZZZ010528	5000	*COMPUTE{W0.M1=NAME@COUNT-1,W0.M5=NAME@COUNT-5};
ZZZZ010528	5100	=IF{SYSTEM_NAME%'実表',%'_TABLE'}JUMP{OK};
ZZZZ010528	5200	=SET{SYSTEM_ERROR='TABE NAME IS NOT ..._TABLE OR ...実表'};
ZZZZ010528	5300	=JUMP{ERR};
ZZZZ010528	5400	=OK:SET{WN.PERMISSION=SYSTEM_NAME[1;4]};
ZZZZ010528	5500	=SET{SYSTEM_COPY_DATA=,SYSTEM_PUBLIC=};
ZZZZ010528	5600	=SET{SYSTEM_STATUS=,SYSTEM_ERROR=};
ZZZZ010528	5700	=IF_FILE{?WN.PATH??WN.FX13??SYSTEM_NAME?-DATA.TXT}
ZZZZ010528	5800	=   SET{SYSTEM_COPY_DATA='*'};
ZZZZ010528	5900	=IF{_PERMISSION!='ZZZZ'}IF{_PERMISSION!=WN.PERMISSION}
ZZZZ010528	6000	=   JUMP{ERR_PERMISSION_UNMATCH};
ZZZZ010528	6100	*SQL_SET{}{SELECT SYSTEM_KEY2 FROM ?_MP_ZZZZ?ZZ_ETC_TABLE
ZZZZ010528	6200	*   WHERE SYSTEM_KEY1='ZZZZZZ_PERMISSION' AND
ZZZZ010528	6300	*   SYSTEM_KEY2='?WN.PERMISSION?' AND ?WN.CANCEL?};
ZZZZ010528	6400	*IF{_SQL_SET_COUNT=0}JUMP{ERR_PERMISSION_NOT_FOUND};
ZZZZ010528	6410	=PROGRAM{0,?_MP_ZZZZ?ZZ_ETC_TABLE}
ZZZZ010528	6420	=  {WC.SYSTEM_KEY1='ZZZZZZ_PERMISSION'
ZZZZ010528	6430	=   ,WC.SYSTEM_KEY2=WN.PERMISSION}{};
ZZZZ010528	6440	=IF{_PROGRAM_COUNT=0}JUMP{ERR_PERMISSION_NOT_FOUND};
ZZZZ010528	6500	=SET{SW=0};チェックのみ実行*
ZZZZ010528	6600	NAME=FILE_CHECK
ZZZZ010528	6700	***(WN.FILE 確認(NAME必要,READ_CLOSE{1}無))***
ZZZZ010528	6800	=READ_OPEN{1,?WN.PATH??WN.FILE?};
ZZZZ010528	6900	*****( DICTIONARY )*******************************
ZZZZ010528	7000	=SET{OPT='DICTIONARY'};
ZZZZ010528	7100	NAME2=CHECK
ZZZZ010528	7200	***( オプション　読み込み )*****
ZZZZ010528	7300	*SET{_TRACE=1};
ZZZZ010528	7400	=READ_NEXT{1,WN.OPT,WN.KEY,WN.DATA}JUMP{CHECK_ERR};
ZZZZ010528	7500	=IF{WN.OPT!='*?OPT?*'}JUMP{CHECK_ERR};
ZZZZ010528	7600	=SPLIT_CHAR{WN.KEY_}{WN.KEY}{','};
ZZZZ010528	7700	=SPLIT_CHAR{WN.DATA_}{WN.DATA}{','};
ZZZZ010528	7800	=SET{W0.C=1,WN.WLOW=,WN.C=,WN.WDATA=};
ZZZZ010528	7900	=IF{OPT='PERMISSION'}JUMP{CHECK_NEXT};
ZZZZ010528	8000	=CHECK_LOOP:IF{_SPLIT_CHAR_COUNT<W0.C}JUMP{CHECK_NEXT};
ZZZZ010528	8100	=SET{WN.WDATA_?W0.C?=WN.DATA_?W0.C?[1;2]+WN.DATA_?W0.C?};
ZZZZ010528	8200	=SET{WN.WDATA+=WN.C+WN.WDATA_?W0.C?,WN.C=','};
ZZZZ010528	8300	=SET{WN.X=WN.DATA_?W0.C?};SET{?WN.X?=};
ZZZZ010528	8400	=COMPUTE{W0.C+=1};
ZZZZ010528	8500	=BACK{CHECK_LOOP};
ZZZZ010528	8600	***( オプション データ　読み込み )*****
ZZZZ010528	8700	=CHECK_NEXT:
ZZZZ010528	8800	=READ_NEXT{1,?WN.KEY?,?WN.WDATA?}JUMP{CHECK_ERR};
ZZZZ010528	8900	=IF{?WN.KEY_1?='*?OPT? END*'}JUMP{CHECK_END};
ZZZZ010528	9000	*=IF{OPT='DICTIONARY'}IF{?WN.KEY_1?[1;4]!=NAME[1;4]}
ZZZZ010528	9100	*=  JUMP{CHECK_ERR_PERMISSION};
ZZZZ010528	9200	=IF{OPT!='DICTIONARY'}IF{?WN.KEY_1?!=SYSTEM_NAME}
ZZZZ010528	9300	=   JUMP{CHECK_ERR_TABLE};
ZZZZ010528	9400	=IF{OPT!='PERMISSION'}JUMP{SKIP};
ZZZZ010528	9500	=SET{WN.DATA_PERMISSION=?WN.KEY_2?};
ZZZZ010528	9600	=SQL_SET{}{SELECT ' ' FROM ?_MM?_ETC_TABLE WHERE
ZZZZ010528	9700	=   SYSTEM_KEY1='ZZZZZZ_PERMISSION'
ZZZZ010528	9800	=   AND SYSTEM_KEY2='?WN.DATA_PERMISSION?'
ZZZZ010528	9900	=   AND Z_CANCEL=' '};
ZZZZ010528	10000	=IF{_SQL_SET_COUNT=0}JUMP{CHECK_ERR_PERMISSION2};
ZZZZ010528	10100	=SKIP:
ZZZZ010528	10200	*=SET{_TRACE=0};
ZZZZ010528	10300	=IF_ERROR_PROGRAM{0,?_MM?_I_?OPT?_TABLE,?WN.DATA?}
ZZZZ010528	10310	=  {?WN.KEY?}{}JUMP{CHECK_ERR};
ZZZZ010528	10500	=IF{OPT!='DICTIONARY',_PROGRAM_COUNT=0}JUMP{CHECK_RUN};
ZZZZ010528	10600	*****( DICTIONARY 値一致判定 )*****
ZZZZ010528	10700	=SET{W0.C=1};
ZZZZ010528	10800	=CHECK_B:IF{_SPLIT_CHAR_COUNT<W0.C}JUMP{CHECK_RUN};
ZZZZ010528	10900	=SET{WN.L=WN.WDATA_?W0.C?,WN.R=WN.DATA_?W0.C?};
ZZZZ010528	11000	=IF{WN.R[4]!='ZZZZ_TEST'} ZZZZ_TESTはチェック不要*
ZZZZ010528	11100	=   IF{?WN.L?!=?WN.R?}JUMP{CHECK_ERR_UNMATCH};
ZZZZ010528	11200	=COMPUTE{W0.C+=1};
ZZZZ010528	11300	=BACK{CHECK_B};
ZZZZ010528	11400	****( 更新処理 )****************
ZZZZ010528	11500	=CHECK_RUN:
ZZZZ010528	11600	*=SET{_TRACE=0};
ZZZZ010528	11700	=SET{WN.DATA_PUBLIC=?WN.DATA_3?};
ZZZZ010528	11800	=IF{SW=0}IF{OPT='TABLE'}IF{_PROGRAM_COUNT>0}
ZZZZ010528	11900	=   SET{SYSTEM_PUBLIC=WN.DATA_PUBLIC}; PUBLIC現在値設定*
ZZZZ010528	12000	=IF{_PROGRAM_COUNT>0}BACK{CHECK_NEXT};
ZZZZ010528	12100	=SET{WN.WDATA_PUBLIC=?WN.DATA_3?};
ZZZZ010528	12200	=IF{SW=0}IF{OPT='TABLE'}SET{SYSTEM_PUBLIC=WN.WDATA_PUBLIC};
ZZZZ010528	12300	=IF{SW=1}
ZZZZ010528	12400	=   PROGRAM{2,?_MM?_I_?OPT?_TABLE,?WN.WDATA?}{?WN.KEY?}{};
ZZZZ010528	12500	=IF{SW=0,OPT!='PERMISSION'}JUMP{SKIP};
ZZZZ010528	12600	=SET{_REAL_TEST=SYSTEM_REAL};
ZZZZ010528	12700	=SET{_JOB_PERMISSION=SYSTEM_NAME[1;4]};
ZZZZ010528	12800	=SET{WN.DATA_PERMISSION=?WN.KEY_2?};
ZZZZ010528	12900	=SET{WN.DATA_USER=?WN.KEY_3?};
ZZZZ010528	13000	=IF_ERROR_DBO_GRANT_PERMISSION{?WN.X_DB??SYSTEM_NAME?
ZZZZ010528	13100	=  ,?WN.DATA_PERMISSION?,TABLE,?WN.DATA_USER?}JUMP{ERR};
ZZZZ010528	13200	=SET{_REAL_TEST='REAL'};
ZZZZ010528	13300	=SET{_JOB_PERMISSION='ZZZZ'};
ZZZZ010528	13400	=SKIP:
ZZZZ010528	13500	=BACK{CHECK_NEXT};
ZZZZ010528	13600	=CHECK_END:
ZZZZ010528	13700	NAME2=
ZZZZ010528	13800	******( TABLE )**************************
ZZZZ010528	13900	=SET{OPT='TABLE'};
ZZZZ010528	14000	COPY=CHECK
ZZZZ010528	14100	******( COLUMN )**************************
ZZZZ010528	14200	=SET{OPT='COLUMN'};
ZZZZ010528	14300	COPY=CHECK
ZZZZ010528	14400	*****(TABLE 確認 )******************************
ZZZZ010528	14500	=IF_TABLE{?WN.X_DB??SYSTEM_NAME?}JUMP{ERR_TABLE_FOUND};
ZZZZ010528	14600	%TEST+=SET{WN.X_REAL_DB=_MX_?SYSTEM_NAME[1;4]?};
ZZZZ010528	14700	%TEST+=IF_TABLE{?WN.X_REAL_DB??SYSTEM_NAME?}
ZZZZ010528	14800	%TEST+= JUMP{ERR_REAL_TABLE_FOUND};
ZZZZ010528	14900	******( CREATE_TABLE (CREATE))******************
ZZZZ010528	15000	=SET{OPT='CREATE'};
ZZZZ010528	15100	=READ_NEXT{1,WN.OPTION,WN.KEY,WN.DATA}JUMP{ERR_OPT};
ZZZZ010528	15200	=IF{WN.OPTION!='*CREATE_TABLE*'}JUMP{ERR_OPT};
ZZZZ010528	15300	=SET{_UPPER=WN.KEY,WN.KEY=_UPPER};
ZZZZ010528	15400	=SET{_UPPER=WN.DATA,WN.DATA=_UPPER};
ZZZZ010528	15500	=IF{SW=0}JUMP{INDEX};
ZZZZ010528	15600	=SET{_REAL_TEST=SYSTEM_REAL};
ZZZZ010528	15700	=SET{_JOB_PERMISSION=SYSTEM_NAME[1;4]};
ZZZZ010528	15800	=IF_ERROR_DBO_CREATE_TABLE{?WN.X_DB??SYSTEM_NAME?,?WN.KEY?}
ZZZZ010528	15900	=  {?WN.DATA?}JUMP{ERR};
ZZZZ010528	16000	=IF_ERROR_DBO_GRANT{?WN.X_DB??SYSTEM_NAME?,TABLE,
ZZZZ010528	16100	=   ?SYSTEM_PUBLIC?}JUMP{ERR};
ZZZZ010528	16200	=SET{_REAL_TEST='REAL'};
ZZZZ010528	16300	=SET{_JOB_PERMISSION='ZZZZ'};
ZZZZ010528	16400	******( CREATE_INDEX (CREATE))******************
ZZZZ010528	16500	=INDEX:
ZZZZ010528	16600	=READ_NEXT{1,WN.OPTION,WN.INDEX,WN.KEY,WN.UNIQUE}
ZZZZ010528	16700	=   JUMP{ERR_OPT};
ZZZZ010528	16800	=IF{WN.OPTION='*CREATE END*'}JUMP{PERMISSION};
ZZZZ010528	16900	=IF{WN.OPTION!='*CREATE_INDEX*'}JUMP{ERR_OPT};
ZZZZ010528	17000	=SET{_UPPER=WN.KEY,WN.KEY=_UPPER};
ZZZZ010528	17100	=IF{SW=0}BACK{INDEX};
ZZZZ010528	17200	=SET{_REAL_TEST=SYSTEM_REAL};
ZZZZ010528	17300	=SET{_JOB_PERMISSION=SYSTEM_NAME[1;4]};
ZZZZ010528	17400	=IF_ERROR_DBO_CREATE_INDEX{?WN.X_DB??SYSTEM_NAME?,
ZZZZ010528	17500	=   ?WN.INDEX?,?WN.UNIQUE?,?WN.KEY?}JUMP{ERR};
ZZZZ010528	17510	*   {?WN.INDEX?}{?WN.KEY?}{?WN.UNIQUE?}JUMP{ERR};
ZZZZ010528	17600	=SET{_REAL_TEST='REAL'};
ZZZZ010528	17700	=SET{_JOB_PERMISSION='ZZZZ'};
ZZZZ010528	17800	=BACK{INDEX};
ZZZZ010528	17900	*****( PERMISSION )********************
ZZZZ010528	18000	=PERMISSION:
ZZZZ010528	18100	=SET{OPT='PERMISSION'};
ZZZZ010528	18200	COPY=CHECK
ZZZZ010528	18300	*****( DATA )********************
ZZZZ010528	18400	=DATA:
ZZZZ010528	18500	=SET{OPT='DATA'};
ZZZZ010528	18600	=READ_NEXT{1,WN.OPTION,WN.DATAS}JUMP{ERR_OPT};
ZZZZ010528	18700	=IF{WN.OPTION!='*DATA*'}JUMP{ERR_OPT};
ZZZZ010528	18800	=SET{_REAL_TEST=SYSTEM_REAL};
ZZZZ010528	18900	=SET{_REAL_TEST='REAL'};
ZZZZ010528	19000	=SET{WC.TABLE=,WX.TABLE=};
ZZZZ010528	19100	=JUMP{CHECK_FIN};
ZZZZ010528	19200	=CHECK_ERR:
ZZZZ010528	19300	=SET{SYSTEM_ERROR='FILE FORMAT (*?OPT?*) ERROR'};
ZZZZ010528	19400	=JUMP{ERR};
ZZZZ010528	19500	=CHECK_ERR_UNMATCH:
ZZZZ010528	19600	=SET{W=?WN.KEY_1?,WW=?WN.R?+'''!='''+?WN.L?};
ZZZZ010528	19700	=SET{SYSTEM_ERROR='?OPT? UNMATCH(?W?,?WN.R[4]?) ''?WW?'''};
ZZZZ010528	19800	=JUMP{ERR};
ZZZZ010528	19900	*=CHECK_ERR_PERMISSION:
ZZZZ010528	20000	*=SET{W=?WN.KEY_1?};
ZZZZ010528	20100	*=SET{ERROR='DATA NAME ERROR(?W?) (?NAME[1;4]?..)'};
ZZZZ010528	20200	*=JUMP{ERR};
ZZZZ010528	20300	=CHECK_ERR_PERMISSION2:
ZZZZ010528	20400	=SET{SYSTEM_ERROR=
ZZZZ010528	20500	=   'PERMISSION NOT FOUND(?WN.DATA_PERMISSION?'};
ZZZZ010528	20600	=JUMP{ERR};
ZZZZ010528	20700	=CHECK_ERR_TABLE:
ZZZZ010528	20800	=SET{W=?WN.KEY_1?};
ZZZZ010528	20900	=SET{SYSTEM_ERROR='TABLE NAME ERROR(?W?) (?SYSTEM_NAME?)'};
ZZZZ010528	21000	=CHECK_FIN:
ZZZZ010528	21100	*SET{_TRACE=1};
ZZZZ010528	21200	*SET{_TRACE=0};
ZZZZ010528	21300	=JUMP{OK};
ZZZZ010528	21400	=ERR_OPT:SET{SYSTEM_ERROR='OPTION ERROR'};
ZZZZ010528	21500	=JUMP{ERR};
ZZZZ010528	21600	=ERR_TABLE_FOUND:SET{SYSTEM_ERROR='TABLE FOUND'};
ZZZZ010528	21700	=JUMP{ERR};
ZZZZ010528	21800	=ERR_REAL_TABLE_FOUND:SET{SYSTEM_ERROR='REAL TABLE FOUND'};
ZZZZ010528	21900	=JUMP{ERR};
ZZZZ010528	22000	=ERR_PERMISSION_NOT_FOUND:
ZZZZ010528	22100	=SET{SYSTEM_ERROR='PERMISSION NOT FOUND'};JUMP{ERR};
ZZZZ010528	22200	=ERR_PERMISSION_UNMATCH:SET{SYSTEM_ERROR=
ZZZZ010528	22300	= 'PERMISSION ERROR ''?WN.PERMISSION?''!=''?_PERMISSION?'''};
ZZZZ010528	22400	=JUMP{ERR};
ZZZZ010528	22500	NAME=
ZZZZ010528	22600	=ERR:SET{SYSTEM_STATUS='BAD CHECK'};
ZZZZ010528	22700	=OK:SQL{INSERT INTO ?_WORK_TABLE?A VALUES('?SYSTEM_NAME?',
ZZZZ010528	22800	=   '?SYSTEM_COPY_DATA?','?SYSTEM_PUBLIC?'
ZZZZ010528	22810	=   ,'?SYSTEM_STATUS?',
ZZZZ010528	22900	=   '?SYSTEM_ERROR?')};
ZZZZ010528	23000	=READ_CLOSE{1};
ZZZZ010528	23100	=BACK{DIR_NEXT};
ZZZZ010528	23200	=DIR_END:
ZZZZ010528	23300	FORM=
ZZZZ010528	23400	FORM=      NAME= @
ZZZZ010528	23500	DATA={O}?&DATA&SYSTEM_NAME?
ZZZZ010528	23600	WORK=SYSTEM_COPY_DATA{1}
ZZZZ010528	23700	WORK=?&DATA&SYSTEM_PUBLIC?
ZZZZ010528	23800	WORK=SYSTEM_STATUS{10}
ZZZZ010528	23900	WORK=SYSTEM_ERROR{80}
ZZZZ010528	24000	WORK=SW{1}(0=チェックのみ、1=チェックと処理）
ZZZZ010528	24100	WORK=OPT{12}(処理の名前）
ZZZZ010528	24200	*************************************************************
ZZZZ010528	24300	PROGRAM=OUTPUT,&X1,?_WORK_TABLE?A
ZZZZ010528	24400	CONTROL=BEGIN_ENTER,SCROLL
ZZZZ010528	24500	COLOR
ZZZZ010528	24600	=IF{SYSTEM_STATUS='BAD CHECK'}JUMP{Y};
ZZZZ010528	24700	=IF{SYSTEM_STATUS=}EXIT{};
ZZZZ010528	24800	=IF{SYSTEM_STATUS[1;3]='OK '}JUMP{B};
ZZZZ010528	24900	=R:SET{SYSTEM_STATUS@COLOR='R',SYSTEM_NAME@COLOR='R'};
ZZZZ010528	25000	=EXIT{};
ZZZZ010528	25100	=B:SET{SYSTEM_STATUS@COLOR='B',SYSTEM_NAME@COLOR='B'};
ZZZZ010528	25200	=EXIT{};
ZZZZ010528	25300	=Y:SET{SYSTEM_STATUS@COLOR='Y',SYSTEM_NAME@COLOR='Y'};
ZZZZ010528	25400	SET={O}.=?$&DATA&SYSTEM_REAL?
ZZZZ010528	25500	SET={O}.=?$&DATA&SYSTEM_PERMISSION?
ZZZZ010528	25600	W+SET={O}$DRV{1,1,Z}DRIVE
ZZZZ010528	25700	W-SET={O}$DRV{10,1,Z}PATH
ZZZZ010528	25800	SET={O}COUNT{5,,+}
ZZZZ010528	25900	=SQL_SET{COUNT}{SELECT COUNT(*) FROM ?_WORK_TABLE?A WHERE
ZZZZ010528	26000	=SYSTEM_STATUS=' '};
ZZZZ010528	26100	SET=RUN{6}{}{,SELECT,INPUT,INPUT}
ZZZZ010528	26200	=IF{_DATA=}EXIT{};
ZZZZ010528	26300	=SET{RUN=};
ZZZZ010528	26400	=IF{COUNT=0}ERROR{COUNT=0};
ZZZZ010528	26500	=EXIT{+1};
ZZZZ010528	26600	DATA=?&.DATA&SYSTEM_NAME?
ZZZZ010528	26700	DATA=?&.DATA&SYSTEM_COPY_DATA?
ZZZZ010528	26800	DATA=?&.DATA&SYSTEM_PUBLIC?
ZZZZ010528	26900	DATA=?&.DATA&SYSTEM_STATUS?
ZZZZ010528	27000	DATA=?&.DATA&SYSTEM_ERROR?
ZZZZ010528	27100	SQL=SELECT ?_DATA_ALL_SQL? FROM
ZZZZ010528	27200	SQL=?_WORK_TABLE?A  ?_T? ORDER BY 1
ZZZZ010528	27300	************************************************************
ZZZZ010528	27400	PROGRAM=NOT,&X1,?_WORK_TABLE?A
ZZZZ010528	27500	BEGIN
ZZZZ010528	27600	=SET{WN.PATH=$WN.PATH};
ZZZZ010528	27700	DATA={O}$?$&DATA&SYSTEM_REAL?
ZZZZ010528	27800	DATA={O}$?$&DATA&SYSTEM_PERMISSION?
ZZZZ010528	27900	W+DATA={O}$DRV{1,1,Z}DRIVE
ZZZZ010528	28000	W-DATA={O}$DRV{10,1,Z}PATH
ZZZZ010528	28100	DATA={O}$COUNT{5,,+}
ZZZZ010528	28200	DATA=RUN{3}{YES,NO}
ZZZZ010528	28300	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010528	28400	=SET{W0.SQL=1,W0.CNT=1};
ZZZZ010528	28500	=LOOP:IF{$_SQL_COUNT<W0.SQL}JUMP{FIN};
ZZZZ010528	28600	=SET{SYSTEM_NAME=$_SQL_VALUE_?W0.CNT?};
ZZZZ010528	28700	COPY=WN.X_DB
ZZZZ010528	28800	=COMPUTE{W0.CNT+=1};
ZZZZ010528	28900	=SET{SYSTEM_COPY_DATA=$_SQL_VALUE_?W0.CNT?};
ZZZZ010528	29000	=COMPUTE{W0.CNT+=1};
ZZZZ010528	29100	=SET{SYSTEM_PUBLIC=$_SQL_VALUE_?W0.CNT?};COMPUTE{W0.CNT+=1};
ZZZZ010528	29200	=SET{SYSTEM_STATUS=,SYSTEM_ERROR=};
ZZZZ010528	29300	=IF{$_SQL_VALUE_?W0.CNT?!=}JUMP{NEXT_TABLE};  STATUS*
ZZZZ010528	29400	=COMPUTE{NOWN.COUNT+=1};
ZZZZ010528	29500	=SET{WN.FILE=$WN.FX13+SYSTEM_NAME+'-CREATE.TXT'};
ZZZZ010528	29600	=SET{SW=1};DICTIONARY更新も実行*
ZZZZ010528	29700	COPY=FILE_CHECK
ZZZZ010528	29800	=OK:
ZZZZ010528	29900	=SET{SYSTEM_STATUS='OK CREATE'};
ZZZZ010528	30000	=IF{SYSTEM_COPY_DATA!='*'}JUMP{UPDATE};
ZZZZ010528	30100	=IF{WN.DATAS=}SET{SYSTEM_STATUS='OK NO DATA'}JUMP{UPDATE};
ZZZZ010528	30200	=SET{_UPPER=WN.DATAS,WN.DATAS=_UPPER};
ZZZZ010528	30300	=IF_ERROR_INSERT_FILE{?WN.X_DB??SYSTEM_NAME?
ZZZZ010528	30400	=  ,?WN.PATH??$WN.FX13??SYSTEM_NAME?-DATA.TXT,,?WN.DATAS?}
ZZZZ010528	30500	=   JUMP{ERR_COPY};
ZZZZ010528	30600	=SET{SYSTEM_STATUS='OK COPY'};
ZZZZ010528	30700	=JUMP{UPDATE};
ZZZZ010528	30800	=ERR_OPT:SET{SYSTEM_ERROR='*?OPT?* FORMAT ERROR'};
ZZZZ010528	30900	=JUMP{ERR};
ZZZZ010528	31000	=ERR_ERR:
ZZZZ010528	31100	=SPLIT_FORM{WN.SPLIT_}{_ERROR}{80};
ZZZZ010528	31200	=SET{SYSTEM_ERROR=WN.SPLIT_1};
ZZZZ010528	31300	=SET{_REAL_TEST='REAL'};
ZZZZ010528	31400	=SET{_JOB_PERMISSION='ZZZZ'};
ZZZZ010528	31500	=JUMP{ERR};
ZZZZ010528	31600	=ERR_COPY:
ZZZZ010528	31700	=SPLIT_FORM{WN.SPLIT_}{_ERROR}{80};
ZZZZ010528	31800	=SET{SYSTEM_ERROR=WN.SPLIT_1};
ZZZZ010528	31900	=SET{SYSTEM_STATUS='BAD COPY'};JUMP{UPDATE};
ZZZZ010528	32000	=ERR:SET{SYSTEM_STATUS='BAD CREATE'};
ZZZZ010528	32100	=UPDATE:SQL{UPDATE ?_WORK_TABLE?A SET ?_VRE&SYSTEM_STATUS?,
ZZZZ010528	32200	=   ?_VRE&SYSTEM_ERROR? WHERE ?_VRE&SYSTEM_NAME?};
ZZZZ010528	32300	=NEXT_TABLE:COMPUTE{W0.CNT+=2,W0.SQL+=1};
ZZZZ010528	32400	=READ_CLOSE{1};
ZZZZ010528	32500	=BACK{LOOP};
ZZZZ010528	32600	=FIN:SET{_RETURN_SQL=1};EXIT{_END};
ZZZZ010528	32700	DATA={O}?&.DATA&SYSTEM_NAME?
ZZZZ010528	32800	DATA={O}?&.DATA&SYSTEM_COPY_DATA?
ZZZZ010528	32900	DATA={O}?&.DATA&SYSTEM_PUBLIC?
ZZZZ010528	33000	DATA={O}NOWN.COUNT{5,,+}
ZZZZ010528	33100	WORK=SW{1}
ZZZZ010528	33200	WORK=OPT{12}
ZZZZ010528	33300	WORK=SYSTEM_STATUS{10}
ZZZZ010528	33400	WORK=SYSTEM_ERROR{80}
ZZZZ010529	100	PROGRAM=NOT
ZZZZ010529	200	DICTIONARY=SYSTEM_REAL,SYSTEM_PERMISSION,SYSTEM_NAME
ZZZZ010529	300	DICTIONARY=SYSTEM_PUBLIC,SYSTEM_TEST,SYSTEM_KIND
ZZZZ010529	400	BEGIN_END
ZZZZ010529	500	REPEAT=?_A_A?
ZZZZ010529	600	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010529	700	REPEAT=
ZZZZ010529	800	BEGIN
ZZZZ010529	900	*SET{_TRACE=0};
ZZZZ010529	1000	=SET{WC.CREATE_OK=' ',WC.CREATE_BAD='*'};
ZZZZ010529	1100	%TEST-=SET{SYSTEM_REAL='REAL'};
ZZZZ010529	1200	%TEST+=SET{SYSTEM_REAL='TEST',SYSTEM_TEST='TEST'};
ZZZZ010529	1300	*SET{WN.FX12='?_IV?-OBJECT-?_DB?-'};
ZZZZ010529	1400	=SET{WN.FX9='I-OBJECT-'};
ZZZZ010529	1500	=SET{SYSTEM_PERMISSION=_PERMISSION};
ZZZZ010529	1600	FORM=
ZZZZ010529	1700	FORM=  注意:I_OBJECT_TABLEにデータが有る場合処理しません!
ZZZZ010529	1800	FORM=
ZZZZ010529	1900	FORM=       (REAL,TEST)= @@@@
ZZZZ010529	2000	FORM=              TEST= @@@@
ZZZZ010529	2100	FORM=        PERMISSION= @@@@
ZZZZ010529	2200	FORM=        DRIVE/PATH= @
ZZZZ010529	2300	FORM=
ZZZZ010529	2400	*ORM1=   FILE = ?_IV?-OBJECT-?_DB?-(NAME).TXT
ZZZZ010529	2500	FORM=   FILE = I-OBJECT-(NAME).TXT
ZZZZ010529	2600	FORM=
ZZZZ010529	2700	DATA={O}?&DATA&SYSTEM_REAL?
ZZZZ010529	2800	DATA={O}?&DATA&SYSTEM_TEST?
ZZZZ010529	2900	DATA={O}?&DATA&SYSTEM_PERMISSION?
ZZZZ010529	3000	W+DATA=DRV{1,1,Z}DRIVE
ZZZZ010529	3100	W-DATA=DRV{10,1,,L}PATH
ZZZZ010529	3200	*SET{_TRACE=0};
ZZZZ010529	3300	W+=SET{WN.PATH=_DATA+':'+_P};
ZZZZ010529	3400	W-=SET{WN.PATH=_DATA+'/'};
ZZZZ010529	3500	=IF_ERROR_DIR{?WN.PATH?}ERROR{DRIVE ERROR};
ZZZZ010529	3600	=DROP_TABLE{?_WORK_TABLE?A};
ZZZZ010529	3700	=CREATE_TABLE2{?_WORK_TABLE?A,SYSTEM_KIND,*,SYSTEM_NAME,*}
ZZZZ010529	3800	=  {SYSTEM_PUBLIC,*,SYSTEM_STATUS,C,10,SYSTEM_ERROR,N,80};
ZZZZ010529	3900	=DIR_NEXT:DIR_NEXT{WN.FILE,WN.DATE}JUMP{DIR_END};
ZZZZ010529	4000	=IF{WN.FILE@COUNT<14}BACK{DIR_NEXT};
ZZZZ010529	4100	=COMPUTE{W0.M15=WN.FILE@COUNT-15,W0.M3=WN.FILE@COUNT-3};
ZZZZ010529	4200	=IF{WN.FILE[1;9]!=WN.FX9}BACK{DIR_NEXT};
ZZZZ010529	4300	=IF{WN.FILE[W0.M3]!='.TXT'}BACK{DIR_NEXT};
ZZZZ010529	4400	=SET{SYSTEM_NAME=WN.FILE[12;W0.M15]};
ZZZZ010529	4500	=SET{_UPPER=SYSTEM_NAME};
ZZZZ010529	4600	=IF{_UPPER!=SYSTEM_NAME}
ZZZZ010529	4700	=   SET{SYSTEM_ERROR='OBJECT NAME IS NOT UPPER'}JUMP{ERR};
ZZZZ010529	4800	*COMPUTE{W0.M1=SYSTEM_NAME@COUNT-1
ZZZZ010529	4900	*       ,W0.M4=SYSTEM_NAME@COUNT-4};
ZZZZ010529	5000	*COMPUTE{W0.M4=SYSTEM_NAME@COUNT-4
ZZZZ010529	5100	*       ,W0.M1=SYSTEM_NAME@COUNT-1};
ZZZZ010529	5200	*COMPUTE{W0.M5=SYSTEM_NAME@COUNT-5
ZZZZ010529	5300	*       ,W0.M2=SYSTEM_NAME@COUNT-2};
ZZZZ010529	5400	=IF_NOT{_PERMISSION='ZZZZ',SYSTEM_NAME/_PERMISSION}
ZZZZ010529	5500	=   SET{SYSTEM_ERROR='PERMISSION ERROR(?SYSTEM_NAME[1;4]?)'}
ZZZZ010529	5600	=   JUMP{ERR};
ZZZZ010529	5700	=IF{SYSTEM_NAME%'仮表',%'_VIEW'}JUMP{VIEW};
ZZZZ010529	5800	=IF{SYSTEM_NAME%'関数',%'_FUNC'}JUMP{FUNC};
ZZZZ010529	5900	=IF{SYSTEM_NAME%'手続',%'_PROC'}JUMP{PROC};
ZZZZ010529	6000	=IF{SYSTEM_NAME%'引金',%'_TRIG'}JUMP{TRIG0};
ZZZZ010529	6100	=IF{SYSTEM_NAME%'_TRIGU',%'_TRIGI',%'_TRIGD'}JUMP{TRIG};
ZZZZ010529	6200	=IF{SYSTEM_NAME%'引金U',%'引金I',%'引金D'}JUMP{TRIG};
ZZZZ010529	6300	=SET{SYSTEM_ERROR='.._TRIG,..引金,.._VIEW,..仮表,'
ZZZZ010529	6400	=   +'.._PROC,..手続,._FUNC,..関数'};JUMP{ERR};
ZZZZ010529	6500	=VIEW:SET{SYSTEM_KIND='VIEW',WN.SYSTEM_KIND='VIEW'};
ZZZZ010529	6600	=   JUMP{SKIP};
ZZZZ010529	6700	=FUNC:SET{SYSTEM_KIND='FUNC',WN.SYSTEM_KIND='FUNCTION'};
ZZZZ010529	6800	D+=SET{SYSTEM_ERROR='..._FUNC IS ERROR'};JUMP{ERR};
ZZZZ010529	6900	=JUMP{SKIP};
ZZZZ010529	7000	=PROC:SET{SYSTEM_KIND='PROC',WN.SYSTEM_KIND='PROCEDURE'};
ZZZZ010529	7100	=   JUMP{SKIP};
ZZZZ010529	7200	=TRIG0:
ZZZZ010529	7300	H+|L+=SET{SYSTEM_ERROR='.._TRIG,..引金 IS ERROR'};JUMP{ERR};
ZZZZ010529	7400	=TRIG:SET{SYSTEM_KIND='TRIG',WN.SYSTEM_KIND='TRIGGER'};
ZZZZ010529	7500	=   JUMP{SKIP};
ZZZZ010529	7600	=SKIP:
ZZZZ010529	7700	=SET{SW=0};チェックのみ実行*
ZZZZ010529	7800	NAME=FILE_CHECK
ZZZZ010529	7900	=SET{WN.PERMISSION=SYSTEM_NAME[1;4]};
ZZZZ010529	8000	=SET{SYSTEM_PUBLIC=,SYSTEM_STATUS=,SYSTEM_ERROR=};
ZZZZ010529	8100	*SQL_SET{}{SELECT SYSTEM_KEY2 FROM ?_MP_ZZZZ?ZZ_ETC_TABLE
ZZZZ010529	8200	*   WHERE SYSTEM_KEY1='ZZZZZZ_PERMISSION' AND
ZZZZ010529	8300	*   SYSTEM_KEY2='?WN.PERMISSION?' AND Z_CANCEL=' '};
ZZZZ010529	8400	*IF{_SQL_SET_COUNT=0}JUMP{ERR_PERMISSION_NOT_FOUND};
ZZZZ010529	8410	=PROGRAM{0,?_MP_ZZZZ?ZZ_ETC_TABLE}
ZZZZ010529	8420	=  {WC.SYSTEM_KEY1='ZZZZZZ_PERMISSION'
ZZZZ010529	8430	=   ,WC.SYSTEM_KEY2=WN.PERMISSION}{};
ZZZZ010529	8440	=IF{_PROGRAM_COUNT=0}JUMP{ERR_PERMISSION_NOT_FOUND};
ZZZZ010529	8500	***(WN.FILE 確認(NAME必要,READ_CLOSE{1}無))***
ZZZZ010529	8600	*( TABLE 確認 )*
ZZZZ010529	8700	=PROGRAM{0,?_MM?_I_OBJECT_ID_TABLE}
ZZZZ010529	8710	=   {SYSTEM_KIND,SYSTEM_NAME}{};
ZZZZ010529	8900	=IF{_PROGRAM_COUNT!=0}
ZZZZ010529	9000	=  SET{SYSTEM_ERROR='I_OBJECT_ID_TABLE DATA FOUND'}
ZZZZ010529	9010	=  JUMP{ERR};
ZZZZ010529	9100	=PROGRAM{0,?_MM?_I_OBJECT_TABLE}
ZZZZ010529	9102	=  {SYSTEM_KIND,SYSTEM_NAME}{};
ZZZZ010529	9200	=IF{_PROGRAM_COUNT!=0}
ZZZZ010529	9300	=   SET{SYSTEM_ERROR='I_OBJECT_TABLE DATA FOUND'}JUMP{ERR};
ZZZZ010529	9400	=READ_OPEN{1,?WN.PATH??WN.FILE?};
ZZZZ010529	9500	*****( OBJECT_ID )*******************************
ZZZZ010529	9600	=SET{OPT='OBJECT_ID'};
ZZZZ010529	9700	NAME2=CHECK
ZZZZ010529	9800	=SET{WN.OBJECT=};
ZZZZ010529	9900	%TEST-=SET{WN.OBJECT_TEST=};
ZZZZ010529	10000	*SET{_KEEP='?WN.X_DB??NAME?'}; POSTGRESQL _O_TRIG2設定用*
ZZZZ010529	10100	***( オプション　読み込み )*****
ZZZZ010529	10200	=READ_NEXT{1,WN.OPT,WN.KEY,WN.DATA}JUMP{CHECK_ERR};
ZZZZ010529	10300	=IF{WN.OPT!='*?OPT?*'}JUMP{CHECK_ERR};
ZZZZ010529	10400	=SPLIT_CHAR{WN.KEY}{WN.KEY}{','};
ZZZZ010529	10500	=SPLIT_CHAR{WN.DATA_}{WN.DATA}{','};
ZZZZ010529	10600	=SET{W0.C=1,WWN.LOW=,WN.C=,WWN.DATA=};
ZZZZ010529	10700	=CHECK_LOOP:IF{_SPLIT_CHAR_COUNT<W0.C}JUMP{CHECK_NEXT};
ZZZZ010529	10800	=SET{WWN.DATA_?W0.C?=WN.DATA_?W0.C?[1;2]+WN.DATA_?W0.C?};
ZZZZ010529	10900	=SET{WWN.DATA+=WN.C+WWN.DATA_?W0.C?,WN.C=','};
ZZZZ010529	11000	=SET{WN.X=WN.DATA_?W0.C?};SET{?WN.X?=};
ZZZZ010529	11100	=COMPUTE{W0.C+=1};
ZZZZ010529	11200	=BACK{CHECK_LOOP};
ZZZZ010529	11300	***( オプション データ　読み込み )*****
ZZZZ010529	11400	=CHECK_NEXT:
ZZZZ010529	11500	=READ_NEXT{1,?WN.KEY?,?WWN.DATA?}JUMP{CHECK_ERR};
ZZZZ010529	11600	=IF{?WN.KEY_1?='*?OPT? END*'}JUMP{CHECK_END};
ZZZZ010529	11700	=IF{?WN.KEY_1?!=SYSTEM_KIND}
ZZZZ010529	11800	=SET{SYSTEM_ERROR='?OPT? KIND ERROR(?WC.SYSTEM_KIND?)'}
ZZZZ010529	11900	=   JUMP{ERR};
ZZZZ010529	12000	=IF{?WN.KEY_2?!=SYSTEM_NAME}
ZZZZ010529	12100	=SET{SYSTEM_ERROR='?OPT? NAMEERROR(?SYSTEM_NAME?)'}
ZZZZ010529	12110	=   JUMP{ERR};
ZZZZ010529	12200	=IF{OPT='OBJECT_ID'}SET{SYSTEM_PUBLIC=WC.SYSTEM_PUBLIC
ZZZZ010529	12300	=   ,WC.SYSTEM_TEST=$SYSTEM_TEST};
ZZZZ010529	12400	=IF{OPT!='OBJECT'}JUMP{SKIP};
ZZZZ010529	12500	=SET{_REAL_TEST=SYSTEM_REAL};
ZZZZ010529	12600	=SET{_JOB_PERMISSION=WN.PERMISSION};
ZZZZ010529	12700	=IF_NAME_NOT{WCWC.SIGN}
ZZZZ010529	12800	=   ERROR{SIGN NOT FOUND [?SYSTEM_NAME?]};
ZZZZ010529	12900	=IF{WCWC.COM=' '}JUMP{USE};
ZZZZ010529	13000	=IF{WCWC.COM='*'}JUMP{NOT_USE};
ZZZZ010529	13100	=IF{WCWC.COM='?_DB?'} IF{WCWC.SIGN='+'}JUMP{USE};
ZZZZ010529	13200	=IF{WCWC.COM!='?_DB?'}IF{WCWC.SIGN='-'}JUMP{USE};
ZZZZ010529	13300	=JUMP{NOT_USE};
ZZZZ010529	13400	=USE:SET{_EDIT_ERROR=WNWN.OBJECT_X,WN.OBJECT+=_EDIT_ERROR};
ZZZZ010529	13500	%TEST-=SET{_REAL_TEST='TEST'};
ZZZZ010529	13600	%TEST-=SET{_EDIT_ERROR=WNWN.OBJECT_X
ZZZZ010529	13700	%TEST-=    ,WN.OBJECT_TEST+=_EDIT_ERROR};
ZZZZ010529	13800	=NOT_USE:
ZZZZ010529	13900	=SET{_REAL_TEST='REAL'};
ZZZZ010529	14000	=SET{_JOB_PERMISSION='ZZZZ'};
ZZZZ010529	14100	=SKIP:
ZZZZ010529	14200	****( 更新処理 )****************
ZZZZ010529	14300	=IF{SW=1}
ZZZZ010529	14400	=   PROGRAM{2,?_MM?_I_?OPT?_TABLE,?WWN.DATA?}{?WN.KEY?}{};
ZZZZ010529	14500	=BACK{CHECK_NEXT};
ZZZZ010529	14600	=CHECK_END:
ZZZZ010529	14700	NAME2=
ZZZZ010529	14800	***( *OBJECT* )*****
ZZZZ010529	14900	=SET{OPT='OBJECT'};
ZZZZ010529	15000	COPY=CHECK
ZZZZ010529	15100	********************
ZZZZ010529	15200	*SET{_TRACE=1};
ZZZZ010529	15300	*SET{_TRACE=0};
ZZZZ010529	15400	=JUMP{OK};
ZZZZ010529	15500	=CHECK_ERR:SET{SYSTEM_ERROR='OPTION ERROR'};
ZZZZ010529	15600	=JUMP{ERR};
ZZZZ010529	15700	=ERR_TABLE_FOUND:SET{SYSTEM_ERROR='TABLE FOUND'};
ZZZZ010529	15800	=JUMP{ERR};
ZZZZ010529	15900	=ERR_REAL_TABLE_FOUND:SET{SYSTEM_ERROR='REAL TABLE FOUND'};
ZZZZ010529	16000	=JUMP{ERR};
ZZZZ010529	16100	=ERR_PERMISSION_NOT_FOUND:
ZZZZ010529	16200	=SET{SYSTEM_ERROR='PERMISSION NOT FOUND'};JUMP{ERR};
ZZZZ010529	16300	=ERR_PERMISSION_UNMATCH:SET{SYSTEM_ERROR=
ZZZZ010529	16400	= 'PERMISSION ERROR ''?WN.PERMISSION?''!=''?_PERMISSION?'''};
ZZZZ010529	16500	=JUMP{ERR};
ZZZZ010529	16600	NAME=
ZZZZ010529	16700	=ERR:SET{SYSTEM_STATUS='BAD CHECK'};
ZZZZ010529	16800	=OK:SQL{INSERT INTO ?_WORK_TABLE?A VALUES('?SYSTEM_KIND?',
ZZZZ010529	16900	=   '?SYSTEM_NAME?','?SYSTEM_PUBLIC?','?SYSTEM_STATUS?',
ZZZZ010529	17000	=   '?SYSTEM_ERROR?')};
ZZZZ010529	17100	=READ_CLOSE{1};
ZZZZ010529	17200	=BACK{DIR_NEXT};
ZZZZ010529	17300	=DIR_END:
ZZZZ010529	17400	FORM=
ZZZZ010529	17500	FORM=      SYSTEM_KIND= @
ZZZZ010529	17600	DATA={O}?&DATA&SYSTEM_KIND?
ZZZZ010529	17700	FORM=      NAME= @
ZZZZ010529	17800	DATA={O}?&DATA&SYSTEM_NAME?
ZZZZ010529	17900	WORK=?&DATA&SYSTEM_PUBLIC?
ZZZZ010529	18000	WORK=SYSTEM_STATUS{10}
ZZZZ010529	18100	WORK=SYSTEM_ERROR{80}
ZZZZ010529	18200	WORK=SW{1}(0=チェックのみ、1=チェックと処理）
ZZZZ010529	18300	WORK=OPT{12}(処理の名前）
ZZZZ010529	18400	*************************************************************
ZZZZ010529	18500	PROGRAM=OUTPUT,&X1,?_WORK_TABLE?A
ZZZZ010529	18600	CONTROL=BEGIN_ENTER,SCROLL
ZZZZ010529	18700	COLOR
ZZZZ010529	18800	=IF{SYSTEM_STATUS='BAD CHECK'}JUMP{Y};
ZZZZ010529	18900	=IF{SYSTEM_STATUS=}EXIT{};
ZZZZ010529	19000	=IF{SYSTEM_STATUS[1;3]='OK '}JUMP{B};
ZZZZ010529	19100	=R:SET{SYSTEM_STATUS@COLOR='R',.SYSTEM_NAME@COLOR='R'};
ZZZZ010529	19200	=EXIT{};
ZZZZ010529	19300	=B:SET{.SYSTEM_STATUS@COLOR='B',SYSTEM_NAME@COLOR='B'};
ZZZZ010529	19400	=EXIT{};
ZZZZ010529	19500	=Y:SET{SYSTEM_STATUS@COLOR='Y',.SYSTEM_NAME@COLOR='Y'};
ZZZZ010529	19600	SET={O}.=?$&DATA&SYSTEM_REAL?
ZZZZ010529	19700	SET={O}.=?$&DATA&SYSTEM_PERMISSION?
ZZZZ010529	19800	W+SET={O}$DRV{1,1,Z}DRIVE
ZZZZ010529	19900	W-SET={O}$DRV{10,1,,L}PATH
ZZZZ010529	20000	SET={O}COUNT{5,,+}
ZZZZ010529	20100	=SQL_SET{COUNT}{SELECT COUNT(*) FROM ?_WORK_TABLE?A WHERE
ZZZZ010529	20200	=   SYSTEM_STATUS=' '};
ZZZZ010529	20300	SET=RUN{6}{}{,SELECT,INPUT,INPUT}
ZZZZ010529	20400	=IF{_DATA=}EXIT{};
ZZZZ010529	20500	=SET{RUN=};
ZZZZ010529	20600	=IF{COUNT=0}ERROR{COUNT=0};
ZZZZ010529	20700	=EXIT{+1};
ZZZZ010529	20800	DATA=?&.DATA&SYSTEM_KIND?
ZZZZ010529	20900	DATA=?&.DATA&SYSTEM_NAME?
ZZZZ010529	21000	DATA=?&.DATA&SYSTEM_PUBLIC?
ZZZZ010529	21100	DATA=?&.DATA&SYSTEM_STATUS?
ZZZZ010529	21200	DATA=?&.DATA&SYSTEM_ERROR?
ZZZZ010529	21300	SQL=SELECT ?_DATA_ALL_SQL? FROM
ZZZZ010529	21400	SQL=?_WORK_TABLE?A  ?_T? ORDER BY 1
ZZZZ010529	21500	************************************************************
ZZZZ010529	21600	PROGRAM=NOT,&X1,?_WORK_TABLE?A
ZZZZ010529	21700	BEGIN
ZZZZ010529	21800	=SET{WN.PATH=$WN.PATH};
ZZZZ010529	21900	DATA={O}$?$&DATA&SYSTEM_REAL?
ZZZZ010529	22000	DATA={O}$?$&DATA&SYSTEM_PERMISSION?
ZZZZ010529	22100	W+DATA={O}$DRV{1,1,Z}DRIVE
ZZZZ010529	22200	W-DATA={O}$DRV{10,1,,L}PATH
ZZZZ010529	22300	DATA={O}$COUNT{5,,+}
ZZZZ010529	22400	DATA=RUN{3}{YES,NO}
ZZZZ010529	22500	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010529	22600	*SET{_TRACE=1};
ZZZZ010529	22700	=SET{W0.SQL=1,W0.CNT=1};
ZZZZ010529	22800	=LOOP:IF{$_SQL_COUNT<W0.SQL}JUMP{FIN};
ZZZZ010529	22900	=SET{SYSTEM_KIND=$_SQL_VALUE_?W0.CNT?};
ZZZZ010529	23000	=COMPUTE{W0.CNT+=1};
ZZZZ010529	23100	=SET{SYSTEM_NAME=$_SQL_VALUE_?W0.CNT?};
ZZZZ010529	23200	=COMPUTE{W0.CNT+=1};
ZZZZ010529	23300	=SET{SYSTEM_PUBLIC=$_SQL_VALUE_?W0.CNT?};COMPUTE{W0.CNT+=1};
ZZZZ010529	23400	=SET{SYSTEM_STATUS=,SYSTEM_ERROR=};
ZZZZ010529	23500	=IF{$_SQL_VALUE_?W0.CNT?!=}JUMP{SKIP_ALL};
ZZZZ010529	23600	=COMPUTE{NOWN.COUNT+=1};
ZZZZ010529	23700	*SET{WN.FILE=$WN.FX12+SYSTEM_NAME+'.TXT'};
ZZZZ010529	23800	=SET{WN.FILE=$WN.FX9+SYSTEM_NAME+'.TXT'};
ZZZZ010529	23900	=SET{SW=1};  更新も実行*
ZZZZ010529	24000	COPY=FILE_CHECK
ZZZZ010529	24100	=OK:
ZZZZ010529	24200	=SET{_REAL_TEST=SYSTEM_REAL,_JOB_PERMISSION=WN.PERMISSION};
ZZZZ010529	24300	=SET{WN.X_DB=_MX_?WN.PERMISSION?};
ZZZZ010529	24400	NAME=CREATE
ZZZZ010529	24500	=SET{WN.GRANT=$WN.SYSTEM_KIND};
ZZZZ010529	24600	=IF{WN.GRANT='VIEW'}SET{WN.GRANT='SELECT'};
ZZZZ010529	24700	=IF_ERROR_DBO_CREATE_OBJECT{?WN.X_DB??SYSTEM_NAME?,
ZZZZ010529	24800	=  ?SYSTEM_KIND?,?WN.OBJECT?}JUMP{ERR_ERR};
ZZZZ010529	24900	=IF_ERROR_DBO_GRANT{?WN.X_DB??SYSTEM_NAME?,?WN.GRANT?,
ZZZZ010529	25000	=   ?SYSTEM_PUBLIC?}JUMP{ERR_ERR};
ZZZZ010529	25100	=SET{SYSTEM_STATUS='OK CREATE'};
ZZZZ010529	25200	=SET{WC.CREATE_X=$WC.CREATE_OK};
ZZZZ010529	25300	=JUMP{CREATE_END};
ZZZZ010529	25400	=ERR_OPT:SET{SYSTEM_ERROR='*?OPT?* FORMAT ERROR'};
ZZZZ010529	25500	=JUMP{ERR};
ZZZZ010529	25600	=ERR_ERR:
ZZZZ010529	25700	=SPLIT_FORM{WN.SPLIT_}{_ERROR}{80};
ZZZZ010529	25800	=SET{SYSTEM_ERROR=WN.SPLIT_1};
ZZZZ010529	25900	=ERR:SET{SYSTEM_STATUS='BAD CREATE'};
ZZZZ010529	26000	=SET{WC.CREATE_X=$WC.CREATE_BAD};
ZZZZ010529	26100	=CREATE_END:
ZZZZ010529	26200	=SET{_REAL_TEST='REAL',_JOB_PERMISSION='ZZZZ'};
ZZZZ010529	26300	NAME=
ZZZZ010529	26400	=SQL{UPDATE ?_WORK_TABLE?A SET ?_VRE&SYSTEM_STATUS?,
ZZZZ010529	26500	=   ?_VRE&SYSTEM_ERROR? WHERE ?_VRE&SYSTEM_KIND?
ZZZZ010529	26600	=   AND ?_VRE&SYSTEM_NAME?};
ZZZZ010529	26700	=PROGRAM{3,?_MM?_I_OBJECT_ID_TABLE
ZZZZ010529	26702	=  ,WC.CREATE_X,WC.SYSTEM_TEST}
ZZZZ010529	26710	=  {SYSTEM_KIND,SYSTEM_NAME}{};
ZZZZ010529	26900	%TEST-=SET{WN.X_DB=_MX_TEST_?WN.PERMISSION?};
ZZZZ010529	27000	%TEST-=SET{_REAL_TEST='TEST',WN.OBJECT=WN.OBJECT_TEST};
ZZZZ010529	27100	%TEST-COPY=CREATE
ZZZZ010529	27200	=SKIP_ALL:COMPUTE{W0.CNT+=2,W0.SQL+=1};
ZZZZ010529	27300	*=READ_CLOSE{1};
ZZZZ010529	27400	=BACK{LOOP};
ZZZZ010529	27500	=FIN:SET{_RETURN_SQL=1};EXIT{_END};
ZZZZ010529	27600	DATA={O}?&.DATA&SYSTEM_NAME?
ZZZZ010529	27700	DATA={O}?&.DATA&SYSTEM_KIND?
ZZZZ010529	27800	DATA={O}?&.DATA&SYSTEM_PUBLIC?
ZZZZ010529	27900	DATA={O}NOWN.COUNT{5,,+}
ZZZZ010529	28000	WORK=SW{1}
ZZZZ010529	28100	WORK=OPT{12}
ZZZZ010529	28200	WORK=SYSTEM_STATUS{12}
ZZZZ010529	28300	WORK=SYSTEM_ERROR{80}
ZZZZ010529	28400	%TEST-=SET{WN.OBJECT_TEST=};
ZZZZ010531	100	PROGRAM=NOT,&X1,?_MM?_ETC_TABLE
ZZZZ010531	200	COLOR
ZZZZ010531	300	=IF{OLD.VERSION2>VERSION2}
ZZZZ010531	400	=   SET{VERSION2@COLOR='R',OLD.VERSION2@COLOR='R'};
ZZZZ010531	500	=IF{OLD.VERSION2<VERSION2}
ZZZZ010531	600	=   SET{VERSION2@COLOR='G',OLD.VERSION2@COLOR='G'};
ZZZZ010531	700	=IF{OLD.VERSION2=VERSION2}
ZZZZ010531	800	=   SET{VERSION2@COLOR='L',OLD.VERSION2@COLOR='L'};
ZZZZ010531	900	=IF{ITIME_2!=VERSION2}SET{ITIME_2@COLOR='R'};
ZZZZ010531	1000	=IF{ITIME_1!=VERSION1}SET{ITIME_1@COLOR='R'};
ZZZZ010531	1100	=IF{IMENU_2!=VERSION2}SET{IMENU_2@COLOR='R'};
ZZZZ010531	1200	=IF{IMENU_1!=VERSION1}SET{IMENU_1@COLOR='R'};
ZZZZ010531	1300	FORM=
ZZZZ010531	1400	JA+FORM=IMENU...のバージョンを設定します。
ZZZZ010531	1500	JA+FORM=該当システムのサーバー上で実行下さい。
ZZZZ010531	1600	FORM= @ [ENTER]
ZZZZ010531	1700	DATA=S{1}
ZZZZ010531	1800	=IF{_SERVER<>_COMPUTER}ERROR{NOT SERVER};
ZZZZ010531	1900	*SET{WN.P1=_OS_DRIVE+_P+'I'+_P+'I.'+_SYSTEM+_P+'BIN'+_P};
ZZZZ010531	1910	=SET{WN.P1=_OS_DRIVE+_P+'I'+_P+'BIN'+_IV+_P};
ZZZZ010531	2000	=SET{WN.P2=_OS_DRIVE+_P+'I'+_P+'SHARE'+_P
ZZZZ010531	2100	W+=   +'WINDOWS'
ZZZZ010531	2200	W-=   +'LINUX'
ZZZZ010531	2300	=   +_P+'BIN'+_IV+_FRAMEWORK+_P};
ZZZZ010531	2400	=SET{WN.MT1='ITIME',WN.MT2='IMENU'};
ZZZZ010531	2500	=SET{WN.FW1=,WN.FW2=''};
ZZZZ010531	2600	REPEAT=2 TIME,MENU
ZZZZ010531	2700	=SET{?WN.MT##?_N='?WN.MT##??_OS??_FRAMEWORK?.EXE'};
ZZZZ010531	2800	=IF_ERROR_EXE_WAIT
ZZZZ010531	2900	=  {?WN.P##??WN.MT##??_OS??_FRAMEWORK?.EXE}
ZZZZ010531	3000	=  {VERSION VERSION}JUMP{E};
ZZZZ010531	3100	=IF_ERROR_READ_OPEN{1,?_TMP?VERSION_?WN.MT##?.TXT}JUMP{E2};
ZZZZ010531	3200	=READ_NEXT{1,?WN.MT##?_1,?WN.MT##?_2};
ZZZZ010531	3300	=E:READ_CLOSE{1};E2:
ZZZZ010531	3400	REPEAT=
ZZZZ010531	3500	=SET{NAME=IMENU_N};
ZZZZ010531	3600	=SET{OLD.VERSION2=@ZZZZZZ_VERSION2};
ZZZZ010531	3700	=SET{VERSION1=_VERSION1,VERSION2=_VERSION2};
ZZZZ010531	3800	=SET{WN.YES='YES,NO'};
ZZZZ010531	3900	=IF{VERSION2=OLD.VERSION2,!=ITIME_2,!=IMENU_2}
ZZZZ010531	3910	=                                           SET{WN.YES='NO'};
ZZZZ010531	4000	=IF{VERSION1!=ITIME_1,!=IMENU_1}SET{WN.YES='NO'};
ZZZZ010531	4100	FORM=     SERVER @@@@@@@@@@@@@ VERSION1 @@@@@@@ VERSION2 @
ZZZZ010531	4200	DATA={O}ITIME_N{13}
ZZZZ010531	4300	DATA={O}ITIME_1{6}
ZZZZ010531	4400	DATA={O}ITIME_2{9}
ZZZZ010531	4500	FORM=NEW INSTALL @@@@@@@@@@@@@ VERSION1 @@@@@@@ VERSION2 @
ZZZZ010531	4600	DATA={O}IMENU_N{13}
ZZZZ010531	4700	DATA={O}IMENU_1{6}
ZZZZ010531	4800	DATA={O}IMENU_2{9}
ZZZZ010531	4900	FORM=    MY      @@@@@@@@@@@@@ VERSION1 @@@@@@@ VERSION2 @
ZZZZ010531	5000	DATA={O}NAME{13}
ZZZZ010531	5100	DATA={O}VERSION1{6}
ZZZZ010531	5200	DATA={O}VERSION2{9}
ZZZZ010531	5300	FORM=    OLD SETUP                       ZZZZZZ_VERSION2 @
ZZZZ010531	5400	DATA={O}OLD.VERSION2{9}
ZZZZ010531	5500	FORM=
ZZZZ010531	5600	FORM=             YES,NO   @@@@@
ZZZZ010531	5700	DATA=YES{5,,}
ZZZZ010531	5800	CHECK=?WN.YES?
ZZZZ010531	5900	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010531	6000	=SET{WC.SYSTEM_KEY1='ZZZZZZ_@'};
ZZZZ010531	6100	=SET{WC.SYSTEM_KEY2='ZZZZZZ_VERSION2'};
ZZZZ010531	6200	=SET{WC.SYSTEM_ETC=VERSION2};
ZZZZ010531	6300	=PROGRAM{3,?_TABLE?,WC.SYSTEM_ETC}
ZZZZ010531	6400	=  {WC.SYSTEM_KEY1,WC.SYSTEM_KEY2}{};
ZZZZ010531	6500	=PROGRAM{3,?_M_TEST?ZZ_ETC_TABLE,WC.SYSTEM_ETC}
ZZZZ010531	6600	=  {WC.SYSTEM_KEY1,WC.SYSTEM_KEY2}{};
ZZZZ010531	6700	=EXIT{_END};
ZZZZ010532	100	PROGRAM=NOT,&X1,?_MM?_ETC_TABLE
ZZZZ010532	200	BEGIN
ZZZZ010532	300	=SET{NAME='IPRINT?_OS??_FRAMEWORK?.EXE'};
ZZZZ010532	400	COLOR
ZZZZ010532	500	=IF{VERSION>I_V}SET{I_V@COLOR='R',VERSION@COLOR='R'};
ZZZZ010532	600	=IF{VERSION<I_V}SET{I_V@COLOR='G',VERSION@COLOR='G'};
ZZZZ010532	700	=IF{VERSION=I_V}SET{I_V@COLOR='L',VERSION@COLOR='L'};
ZZZZ010532	800	FORM=
ZZZZ010532	900	JA+FORM=@@@@@@@@@@@@ のバージョンを設定します。
ZZZZ010532	1000	DATA={O}NAME{12}
ZZZZ010532	1100	JA+FORM=該当システムのサーバー上で実行下さい。
ZZZZ010532	1200	FORM= @ [ENTER]
ZZZZ010532	1300	DATA=S{1}
ZZZZ010532	1400	=IF{_SERVER<>_COMPUTER}ERROR{NOT SERVER};
ZZZZ010532	1500	=SET{WC.P=_OS_DRIVE+_P+'I'+_P+'SHARE'+_P
ZZZZ010532	1600	W+=   +'WINDOWS'
ZZZZ010532	1700	W-=   +'LINUX'
ZZZZ010532	1800	=   +_P+'BIN'+_IV+_FRAMEWORK+_P};
ZZZZ010532	1900	*EXE_WAIT{?_IPRINT?,?_IPRINT2? VERSION VERSION}JUMP{E};
ZZZZ010532	2000	=IPRINT{,VERSION};
ZZZZ010532	2100	=READ_OPEN{1,?_TMP?VERSION_IPRINT.TXT};
ZZZZ010532	2200	=READ_NEXT{1,I_V};E:READ_CLOSE{1};
ZZZZ010532	2300	=SET{VERSION=@ZZZZZZ_VERSION_PRINT};
ZZZZ010532	2400	=SET{WN.YES='YES,NO'};
ZZZZ010532	2500	=IF{VERSION=I_V}SET{WN.YES='NO'};
ZZZZ010532	2600	FORM=NEW INSTALL(2) VERSION @@@@@@
ZZZZ010532	2700	DATA={O}I_V{6,,+,Z}
ZZZZ010532	2800	FORM=OLD SETUP      VERSION @@@@@@
ZZZZ010532	2900	DATA={O}VERSION{6,,+,Z}
ZZZZ010532	3000	FORM=
ZZZZ010532	3100	FORM=             YES,NO   @@@@@
ZZZZ010532	3200	DATA=YES{5,,}
ZZZZ010532	3300	CHECK=?WN.YES?
ZZZZ010532	3400	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010532	3500	=SET{WC.SYSTEM_KEY1='ZZZZZZ_@'};
ZZZZ010532	3600	=SET{WC.SYSTEM_KEY2='ZZZZZZ_VERSION_PRINT'};
ZZZZ010532	3700	=SET{WC.SYSTEM_ETC=I_V};
ZZZZ010532	3800	=PROGRAM{3,?_TABLE?,WC.SYSTEM_ETC}
ZZZZ010532	3900	=  {WC.SYSTEM_KEY1,WC.SYSTEM_KEY2}{};
ZZZZ010532	4000	=PROGRAM{3,?_M_TEST?ZZ_ETC_TABLE,WC.SYSTEM_ETC}
ZZZZ010532	4100	=  {WC.SYSTEM_KEY1,WC.SYSTEM_KEY2}{};
ZZZZ010532	4200	=EXIT{_END};
ZZZZ010533	100	PROGRAM=NOT,&X1,?_MM?_ETC_TABLE
ZZZZ010533	200	BEGIN
ZZZZ010533	300	=SET{NAME='ICHART?_OS??_FRAMEWORK?.EXE'};
ZZZZ010533	400	COLOR
ZZZZ010533	500	=IF{VERSION>I_V}SET{I_V@COLOR='R',VERSION@COLOR='R'};
ZZZZ010533	600	=IF{VERSION<I_V}SET{I_V@COLOR='G',VERSION@COLOR='G'};
ZZZZ010533	700	=IF{VERSION=I_V}SET{I_V@COLOR='L',VERSION@COLOR='L'};
ZZZZ010533	800	FORM=
ZZZZ010533	900	JA+FORM=@@@@@@@@@@@@ のバージョンを設定します。
ZZZZ010533	1000	DATA={O}NAME{12}
ZZZZ010533	1100	JA+FORM=該当システムのサーバー上で実行下さい。
ZZZZ010533	1200	FORM= @ [ENTER]
ZZZZ010533	1300	DATA=S{1}
ZZZZ010533	1400	=IF{_SERVER!=_COMPUTER}ERROR{NOT SERVER};
ZZZZ010533	1410	=IF{_FRAMEWORK!='D'}ERROR{_FRAMEWORK!='D'};
ZZZZ010533	1420	=IF{_OS!='W'}ERROR{_OS!='W'};
ZZZZ010533	1500	=SET{WC.P=_OS_DRIVE+_P+'I'+_P+'SHARE'+_P
ZZZZ010533	1600	W+=   +'WINDOWS'
ZZZZ010533	1700	W-=   +'LINUX'
ZZZZ010533	1800	=   +_P+'BIN'+_IV+_FRAMEWORK+_P};
ZZZZ010533	1900	*EXE_WAIT{?_ICHART?,?_ICHART2? VERSION VERSION}JUMP{E};
ZZZZ010533	2000	=ICHART{,VERSION};
ZZZZ010533	2100	=READ_OPEN{1,?_TMP?VERSION_ICHART.TXT};
ZZZZ010533	2200	=READ_NEXT{1,I_V};E:READ_CLOSE{1};
ZZZZ010533	2300	=SET{VERSION=@ZZZZZZ_VERSION_CHART};
ZZZZ010533	2400	=SET{WN.YES='YES,NO'};
ZZZZ010533	2500	=IF{VERSION=I_V}SET{WN.YES='NO'};
ZZZZ010533	2600	FORM=NEW INSTALL(2) VERSION @@@@@@
ZZZZ010533	2700	DATA={O}I_V{6,,+,Z}
ZZZZ010533	2800	FORM=OLD SETUP      VERSION @@@@@@
ZZZZ010533	2900	DATA={O}VERSION{6,,+,Z}
ZZZZ010533	3000	FORM=
ZZZZ010533	3100	FORM=             YES,NO   @@@@@
ZZZZ010533	3200	DATA=YES{5,,}
ZZZZ010533	3300	CHECK=?WN.YES?
ZZZZ010533	3400	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010533	3500	=SET{WC.SYSTEM_KEY1='ZZZZZZ_@'
ZZZZ010533	3600	=   ,WC.SYSTEM_KEY2='ZZZZZZ_VERSION_CHART'};
ZZZZ010533	3700	=SET{WC.SYSTEM_ETC=I_V};
ZZZZ010533	3800	=PROGRAM{3,?_TABLE?,WC.SYSTEM_ETC}
ZZZZ010533	3900	=  {WC.SYSTEM_KEY1,WC.SYSTEM_KEY2}{};
ZZZZ010533	4000	=PROGRAM{3,?_M_TEST?ZZ_ETC_TABLE,WC.SYSTEM_ETC}
ZZZZ010533	4100	=  {WC.SYSTEM_KEY1,WC.SYSTEM_KEY2}{};
ZZZZ010533	4200	=EXIT{_END};
ZZZZ010534	100	MINUS=%TEST
ZZZZ010535	100	MINUS=%TEST
ZZZZ010536	100	MINUS=%TEST
ZZZZ010538	100	PROGRAM=NOT
ZZZZ010538	200	CONTROL=BEGIN_ENTER
ZZZZ010538	300	FORM=
ZZZZ010538	400	FORM=
ZZZZ010538	500	FORM=
ZZZZ010538	600	FORM=
ZZZZ010538	700	FORM=        @@ (PERMISSION=ZZZZ & SERVER)
ZZZZ010538	800	DATA=CHECK{2}
ZZZZ010538	900	=IF_ERROR_SERVER_BAT{ZZZZZZETC,NOP}ERROR{};
ZZZZ010538	1000	=IF{_PERMISSION!='ZZZZ'}ERROR{PERMISSION!='ZZZZ'};
ZZZZ010538	1100	=IF{_SERVER!=_COMPUTER}ERROR{NOT SERVER};
ZZZZ010538	1200	PROGRAM=,&X1,?_MM?_ETC_TABLE
ZZZZ010538	1300	CONTROL=0
ZZZZ010538	1400	DICTIONARY=SYSTEM_MENU0
ZZZZ010538	1500	BEGIN
ZZZZ010538	1600	=SET{.SYSTEM_KEY1='ZZZZZZ_MENU0'};
ZZZZ010538	1700	START
ZZZZ010538	1800	=IF{_START!=1}EXIT{};
ZZZZ010538	1900	=IF{SYSTEM_KEY2='ZZZZ'}
ZZZZ010538	2000	=   ERROR{NOT DELETE(DEFAULT NORMAL MENU)};
ZZZZ010538	2100	=SQL_SET{WN.SYSTEM_KEY2}{SELECT SYSTEM_KEY2 FROM ?_TABLE?
ZZZZ010538	2200	=   WHERE SYSTEM_KEY1='ZZZZZZ_INSTALL'
ZZZZ010538	2300	=   AND   SYSTEM_KEY2 LIKE '?SYSTEM_KEY2?%'
ZZZZ010538	2400	=   AND   Z_CANCEL=' ' };
ZZZZ010538	2500	=IF{_SQL_SET_COUNT>0}
ZZZZ010538	2510	=   ERROR{ZZZZZZ_INSTALL(?WN.SYSTEM_KEY2?) FOUND};
ZZZZ010538	2600	SET={KO}.?&.DATA&SYSTEM_KEY1?
ZZZZ010538	2700	DATA={*OC}COUNT{3,,+}
ZZZZ010538	2800	SELECT=(SELECT COUNT(*) FROM ?_TABLE? X2
ZZZZ010538	2900	SELECT= WHERE X2.SYSTEM_KEY1='ZZZZZZ_INSTALL'
ZZZZ010538	3000	SELECT= AND ?_SUBSTR(X2.SYSTEM_KEY2;1;4)?=?_T?.SYSTEM_KEY2
ZZZZ010538	3100	SELECT= AND X2.Z_CANCEL=' ')
ZZZZ010538	3200	*****( キー2 )*****
ZZZZ010538	3300	DATA={K }SYSTEM_KEY2?&DATA2&SYSTEM_MENU0?
ZZZZ010538	3400	CHECK=(ZAAA,ZZZZ),(AAAA,VZZZ)
ZZZZ010538	3500	*****( コメント )*****
ZZZZ010538	3600	DATA={  }?&.DATA&SYSTEM_COMMENT?
ZZZZ010538	3700	STOP_AFTER
ZZZZ010538	3800	=IF{_START=1}EXIT{};EXIT{+1};
ZZZZ010538	3900	COPY=@ZZZZZZ_SQL
ZZZZ010538	4000	END
ZZZZ010538	4100	=EXIT{0};
ZZZZ010538	4200	PROGRAM=,&X1,?_MM?_ETC_TABLE
ZZZZ010538	4300	DICTIONARY=SYSTEM_MENU0,SYSTEM_MENU,SYSTEM_LANG
ZZZZ010538	4400	CONTROL=SCROLL
ZZZZ010538	4500	BEGIN
ZZZZ010538	4600	=SET{.SYSTEM_KEY1='ZZZZZZ_INSTALL'};
ZZZZ010538	4700	=SET{.SYSTEM_KEY2=$SYSTEM_KEY2};
ZZZZ010538	4800	START
ZZZZ010538	4900	=IF{_START=2}SET{SYSTEM_MENU0=.SYSTEM_KEY2};
ZZZZ010538	5000	=IF{_START!=1}EXIT{};
ZZZZ010538	5100	=IF{SYSTEM_KEY2='ZZZZZZ-?_LANG_SYSTEM?'}
ZZZZ010538	5200	=   ERROR{NOT DELETE(DEFAULT NORMAL MENU)};
ZZZZ010538	5300	SET={KO}.?&.DATA&SYSTEM_KEY1?
ZZZZ010538	5400	SET={OL}.?&.DATA&SYSTEM_KEY2?
ZZZZ010538	5500	CONTROL=0
ZZZZ010538	5600	*****( キー2 )*****
ZZZZ010538	5700	DATA={*O}?&DATA&SYSTEM_MENU0?
ZZZZ010538	5800	=IF{_START=3}EXIT{SYSTEM_KEY2};
ZZZZ010538	5900	SELECT=?_SUBSTR(SYSTEM_KEY2;1;4)?
ZZZZ010538	6000	DATA={* }?&DATA&SYSTEM_LANG?
ZZZZ010538	6100	=SET{SYSTEM_KEY2=SYSTEM_MENU0+'-'+SYSTEM_LANG};
ZZZZ010538	6200	=IF{_START!=2}EXIT{};
ZZZZ010538	6300	=PROGRAM{0,?_TABLE?}{.SYSTEM_KEY1,SYSTEM_KEY2}{};
ZZZZ010538	6400	=IF{_PROGRAM_COUNT>0}ERROR{DATA FOUND};
ZZZZ010538	6500	SELECT= ?_SUBSTR(SYSTEM_KEY2;6;2)?
ZZZZ010538	6600	DATA={KN}?&.DATA&SYSTEM_KEY2?
ZZZZ010538	6700	=SET{.SYSTEM_ETC@TYPE1='N'};
ZZZZ010538	6800	=IF{SYSTEM_LANG!='JA'}SET{.SYSTEM_ETC@TYPE1='M'};
ZZZZ010538	6900	*****( ETCデータ )*****
ZZZZ010538	7000	DATA={  }.SYSTEM_ETC?&DATA2&SYSTEM_MENU?
ZZZZ010538	7010	=SET{W0.C=1};
ZZZZ010538	7020	=LOOP:IF{W0.C>_DATA@COUNT}JUMP{END};
ZZZZ010538	7030	=IF{_DATA[W0.C;1]='　'}ERROR{SPACE ERROR[?W0.C?;1]};
ZZZZ010538	7040	=COMPUTE{W0.C+=1};BACK{LOOP};
ZZZZ010538	7050	=END:
ZZZZ010538	7100	*****( コメント )*****
ZZZZ010538	7200	DATA={  }?&.DATA&SYSTEM_COMMENT?
ZZZZ010538	7300	COPY=@ZZZZZZ_SQL
ZZZZ010538	7400	STOP_AFTER
ZZZZ010538	7500	=SET{_RETURN_SQL=1};
ZZZZ010538	7600	=SET{WN.OP='SETUP'};IF{_START=1}SET{WN.OP='ERASE'};
ZZZZ010538	7700	=SET{WN.PATH=_OS_DRIVE+_P+'I'+_P+'SHARE'+_P};
ZZZZ010538	7800	=SET{WN.FILE=
ZZZZ010538	7810	=   'SETUP_'+_SYSTEM+'_'+SYSTEM_LANG+'_'+SYSTEM_MENU0};
ZZZZ010538	7900	=SERVER_BAT{ZZZZZZETC,?WN.OP?_CLIENT ?_DB? ?_SERVER_NAME?
ZZZZ010538	8000	=   ?_SYSTEM? ?SYSTEM_LANG?  ?_EXE_PARAM?
ZZZZ010538	8100	=   ?SYSTEM_MENU0? ?_FRAMEWORK? ?.SYSTEM_ETC?};
ZZZZ010538	8200	=SET{WN.F=WN.PATH+'WINDOWS'+_P+WN.FILE+'.BAT'};
ZZZZ010538	8300	NAME=FILE
ZZZZ010538	8400	=IF_FILE{?WN.F?}JUMP{FILE_FOUND};
ZZZZ010538	8500	=IF{_START!=1}ERROR{?WN.F? NOT FOUND};
ZZZZ010538	8510	=JUMP{FILE_SKIP};
ZZZZ010538	8600	=FILE_FOUND:IF{_START=1}ERROR{DO NOT ERASE ?WN.F?};
ZZZZ010538	8700	=FILE_SKIP:
ZZZZ010538	8800	NAME=
ZZZZ010538	8900	=SET{WN.F=WN.PATH+'LINUX'+_P+WN.FILE+'_JAVA'};
ZZZZ010538	9000	COPY=FILE
ZZZZ010538	9020	=SET{WN.F=WN.PATH+'LINUX'+_P+WN.FILE+'_MONO'};
ZZZZ010538	9030	COPY=FILE
ZZZZ010538	9100	=EXIT{};
ZZZZ010539	100	PROGRAM=NOT
ZZZZ010539	200	BEGIN
ZZZZ010539	300	=SET{ADMIN_LOGIN=_LOGIN_ID_ADMIN};
ZZZZ010539	400	DATA={O}ADMIN_LOGIN{14,1,!,}
ZZZZ010539	500	DATA=ADMIN_PASSWWORD{80,1,!,*}
ZZZZ010539	600	=IF{_SERVER!=_COMPUTER}ERROR{_COMPUTER!='?_SERVER?'};
ZZZZ010539	700	TEST-=SET{_LOGIN_PASSWORD=_DATA};
ZZZZ010539	800	TEST-=IF_ERROR_LOGIN_SQL{SELECT ?_NOW0? ?_FROM_DUAL?}ERROR{};
ZZZZ010539	900	PROGRAM=,&X1,?_MM?_ETC_TABLE
ZZZZ010539	1000	CONTROL=3,SCROLL,PROGRAM_TEST,PROGRAM
ZZZZ010539	1100	BEGIN
ZZZZ010539	1200	=SET{.SYSTEM_KEY1='ZZZZZZ_@'};
ZZZZ010539	1300	SET={KO}.?&.DATA&SYSTEM_KEY1?
ZZZZ010539	1400	SET={N,*}SET_WHERE{1}
ZZZZ010539	1500	=SET{_DATA@WHERE=
ZZZZ010539	1600	=   '?_SUBSTR(SYSTEM_KEY2;1;16)?=''ZZZZZZ_LINKNAME_'''};
ZZZZ010539	1700	DATA={KN}?&.DATA&SYSTEM_KEY2?
ZZZZ010539	1800	DATA={N}?&.DATA&SYSTEM_ETC?
ZZZZ010539	1900	DATA={N}?&.DATA&SYSTEM_COMMENT?
ZZZZ010539	2000	SELECT=?_SUBSTR((_3);3;8)?
ZZZZ010539	2100	DATA={*}LINK{8,1,N}
ZZZZ010539	2200	SELECT=?_SUBSTR((_1);17;8)?
ZZZZ010539	2300	=IF{SYSTEM=}SET{SYSTEM=_DATA};
ZZZZ010539	2400	DATA={*}DBMS{1,1}
ZZZZ010539	2500	SELECT=?_SUBSTR((_3);1;1)?
ZZZZ010539	2600	=IF{DBMS='O'}IF{INSTANCE=}SET{INSTANCE='XEPDB1'};
ZZZZ010539	2610	CHECK2=M,MSSQL,O,O?_L(RACLE)?,D,DB2,
ZZZZ010539	2620	CHECK2=P,P?_L(OSTGRE)?SQL,L,M?_L(ARIA)?DB
ZZZZ010539	2700	DATA={*}SYSTEM{8,1,N}SYSTEM
ZZZZ010539	2800	SELECT=?_SUBSTR((_3);3;8)?
ZZZZ010539	2900	DATA={*}SERVER{15,1,I}
ZZZZ010539	3000	SELECT=?_SUBSTR((_3);12;15)?
ZZZZ010539	3100	=SET{WC.INSTANCE=};
ZZZZ010539	3200	=IF{DBMS='M'}EXIT{};
ZZZZ010539	3300	=IF{DBMS!='O'}SET{INSTANCE=}EXIT{};
ZZZZ010539	3400	DATA={*}INSTANCE{15,,I}M=INSTANCE,O=DB
ZZZZ010539	3500	SELECT=?_SUBSTR((_3);28;15)?
ZZZZ010539	3600	CHECK=?WC.INSTANCE?
ZZZZ010539	3700	DATA={*}PASSWORD{14,1,I,*}LINK_PASSWORD(1/2)
ZZZZ010539	3800	SELECT=' '
ZZZZ010539	3900	=SET{WXSYSTEM=SYSTEM,WXSERVER=SERVER};
ZZZZ010539	4000	=IF{WXSYSTEM@COUNT<8} SET{WXSYSTEM+=' '}BACK{};
ZZZZ010539	4100	=IF{WXSERVER@COUNT<15}SET{WXSERVER+=' '}BACK{};
ZZZZ010539	4200	DATA={*}PASSWORD2{14,1,I,*}LINK_PASSWORD(2/2)
ZZZZ010539	4300	SELECT=' '
ZZZZ010539	4400	=IF{_DATA!=PASSWORD}ERROR{PASSWORD(1/2)!=PASSWORD(2/2)};
ZZZZ010539	4500	STOP_AFTER
ZZZZ010539	4600	=SET{WC.PROVIDER=,WC.DATASRC=,WC.PROVSTR=};
ZZZZ010539	4700	=SET{WC='_'};IF{DBMS='H'}SET{WC=};
ZZZZ010539	4800	=SET{WC.LINK='I_'+_SYSTEM+'_'+LINK};
ZZZZ010539	4900	=SET{WC.LOCATION=};
ZZZZ010539	5000	=SET{WC.PROVIDER='MSDASQL'};
ZZZZ010539	5100	=IF{DBMS!='M'}JUMP{SKIP_M};
ZZZZ010539	5200	=SET{WC.PROVIDER='MSOLEDBSQL'};
ZZZZ010539	5300	=SET{WC.DATASRC=SERVER};
ZZZZ010539	5400	=IF{INSTANCE!=}
ZZZZ010539	5500	=   SET{WC.DATASRC=WC.DATASRC+_YEN+INSTANCE};
ZZZZ010539	5600	=SKIP_M:
ZZZZ010539	5700	=IF{DBMS!='O'}JUMP{SKIP_O};
ZZZZ010539	5800	=SET{WC.PROVIDER='O?_L(RA)?OLEDB.O?_L(RACLE)?'
ZZZZ010539	5900	=   ,WC.DATASRC='(DESCRIPTION = (ADDRESS_LIST = (ADDRESS'
ZZZZ010539	6000	=  +' = (PROTOCOL = TCP)(HOST = '+SERVER
ZZZZ010539	6100	=  +')(PORT = 1521))) (CONNECT_DATA = (SERVER = DEDICATED)'
ZZZZ010539	6200	=  +' (SERVICE_NAME = ?INSTANCE?)))'};
ZZZZ010539	6300	=SKIP_O:
ZZZZ010539	6400	=IF{DBMS!='I'}JUMP{SKIP_I};
ZZZZ010539	6500	=SET{WC.PROVIDER='IBMOLEDB.DB2COPY1'};
ZZZZ010539	6600	=SET{WC.DATASRC='I_'+SYSTEM};
ZZZZ010539	6700	=SKIP_I:
ZZZZ010539	6800	=IF{DBMS!='P'}JUMP{SKIP_P};
ZZZZ010539	6900	=SET{WC.PROVSTR='D?_L(RIVER)?='
ZZZZ010539	7000	= +'{P?_L(OSTGRE)?SQL ODBC D?_L(RIVER)?(UNICODE)};'
ZZZZ010539	7100	= +'S?_L(ERVER)?='+SERVER+';D?_L(ATABASE=I_)?'+SYSTEM@LOWER
ZZZZ010539	7200	= +';'};
ZZZZ010539	7300	=SKIP_P:
ZZZZ010539	7400	=IF{DBMS!='L'}JUMP{SKIP_L};
ZZZZ010539	7500	=SET{WC.PROVSTR='D?_L(RIVER)?='
ZZZZ010539	7600	= +'{M?_L(ARIA)?DB ODBC 3.1 D?_L(RIVER)?};'
ZZZZ010539	7700	= +'S?_L(ERVER)?='+SERVER+';'};
ZZZZ010539	7800	=SKIP_L:
ZZZZ010539	7900	TEST-M+=IF_ERROR_LOGIN_SQL{EXEC SP_DROPSERVER '?WC.LINK?'
ZZZZ010539	8000	TEST-M+=,'DROPLOGINS'}IF{_DB_I_ERROR!='NOT_EXIST'}ERROR{};
ZZZZ010539	8100	=SET{WC.DATASRC_ALL=};
ZZZZ010539	8200	=IF{WC.DATASRC!=}SET{WC.DATASRC_ALL=',@DATASRC='''
ZZZZ010539	8300	=  +WC.DATASRC+''''};
ZZZZ010539	8400	=SET{WC.PROVSTR_ALL=};
ZZZZ010539	8500	=IF{WC.PROVSTR!=}SET{WC.PROVSTR_ALL=',@PROVSTR='''
ZZZZ010539	8600	=  +WC.PROVSTR+''''};
ZZZZ010539	8700	=IF{_START!=2}
ZZZZ010539	8800	=   SET{WXSYSTEM=SYSTEM,WXSERVER=SERVER}JUMP{MENTE};
ZZZZ010539	8900	TEST-M+=LOGIN_SQL{EXEC SP_ADDLINKEDSERVER @SERVER='?WC.LINK?'
ZZZZ010539	9000	TEST-M+=  ,@SRVPRODUCT='',@PROVIDER='?WC.PROVIDER?'
ZZZZ010539	9100	TEST-M+=  ?WC.DATASRC_ALL??WC.PROVSTR_ALL?
ZZZZ010539	9200	TEST-M+=  };
ZZZZ010539	9300	=MENTE:
ZZZZ010539	9400	*****( LOGIN )******************************************
ZZZZ010539	9500	REPEAT=@ZZZZZZ_PERMISSION_COUNT
ZZZZ010539	9600	=SET{WC.PERM=@ZZZZZZ_PERMISSION_NO##};
ZZZZ010539	9700	=SET{WC.RT='R'};
ZZZZ010539	9800	=LOOP:
ZZZZ010539	9900	=IF{_START!=2}JUMP{START_NOT_2};
ZZZZ010539	10000	=SET{WC.OID='O'};
ZZZZ010539	10100	NAME=SP_ADDLINKEDSRVLOGIN##
ZZZZ010539	10200	M+=SET{WC.LOGON=
ZZZZ010539	10300	M+=   'I?WC??SYSTEM??WC??WC.RT??WC?L?WC??WC.PERM?'};
ZZZZ010539	10400	M+=IF{DBMS='I'}SET{WC.LOGON= '?SYSTEM??WC.RT?L?WC.PERM?'};
ZZZZ010539	10500	TEST-M+=IF{DBMS='P'}SET{_LOWER=WC.LOGON,WC.LOGON=_LOWER};
ZZZZ010539	10600	TEST-M+=LOGIN_SQL{EXEC SP_ADDLINKEDSRVLOGIN '?WC.LINK?'
ZZZZ010539	10700	TEST-M+=  ,'FALSE','I_?_SYSTEM?_?WC.RT?_?WC.OID?_?WC.PERM?'
ZZZZ010539	10800	TEST-M+=   ,'?WC.LOGON?','?PASSWORD?'};
ZZZZ010539	10900	NAME=
ZZZZ010539	11000	=SET{WC.OID='I'};
ZZZZ010539	11100	COPY=SP_ADDLINKEDSRVLOGIN##
ZZZZ010539	11200	=SET{WC.OID='D'};
ZZZZ010539	11300	COPY=SP_ADDLINKEDSRVLOGIN##
ZZZZ010539	11400	=START_NOT_2:
ZZZZ010539	11500	******( ETC_TABLE )*************************************
ZZZZ010539	11600	=SET{SYSTEM_COMMENT=
ZZZZ010539	11700	=   DBMS+_Q+WXSYSTEM+_Q+WXSERVER+_Q+INSTANCE};
ZZZZ010539	11800	=SET{SYSTEM_KEY2='ZZZZZZ_LINK_?LINK?_?WC.RT?_?WC.PERM?'};
ZZZZ010539	11900	=SET{WC.B='.',WC.E=};
ZZZZ010539	12000	=IF{DBMS='I',='P'}SET{WC.B='I_?SYSTEM?.'};
ZZZZ010539	12100	=IF{DBMS='M'}SET{WC.B=,WC.E='DBO.'};
ZZZZ010539	12200	=SET{WC.M='M'};IF{DBMS='O',='H'}SET{WC.M='D'};
ZZZZ010539	12300	=SET{WC.W='.?WC.B?I?WC??SYSTEM??WC??WC.RT?'
ZZZZ010539	12400	=   +'?WC??WC.M??WC??WC.PERM?.?WC.E?'};
ZZZZ010539	12500	=IF{DBMS='L'}SET{WC.W=WC.W@LOWER};
ZZZZ010539	12600	=SET{SYSTEM_ETC=LINK+WC.W};
ZZZZ010539	12700	=IF{DBMS='D'}SET{SYSTEM_ETC=LINK+'...?WC.RT?D'};
ZZZZ010539	12800	NAME=PROGRAM##
ZZZZ010539	12900	=PROGRAM{?_START?E,?_MM?_ETC_TABLE
ZZZZ010539	13000	=  ,SYSTEM_ETC,SYSTEM_COMMENT}
ZZZZ010539	13100	=  {.SYSTEM_KEY1,SYSTEM_KEY2}{};
ZZZZ010539	13200	NAME=
ZZZZ010539	13300	=IF{WC.RT!='T'}SET{WC.RT='T'}BACK{LOOP};
ZZZZ010539	13400	REPEAT=
ZZZZ010539	13500	=SET{SYSTEM_KEY2='ZZZZZZ_LINKNAME_'+LINK};
ZZZZ010539	13600	=SET{SYSTEM_ETC=DBMS+'/'+SYSTEM};
ZZZZ010539	13700	COPY=PROGRAM1
ZZZZ010539	13800	=MESSAGE{OK};
ZZZZ010539	13900	=EXIT{};
ZZZZ010539	14000	=ERR:SET{WC.ERR=_ERROR};
ZZZZ010539	14100	TEST-M+=IF_ERROR_LOGIN_SQL{EXEC SP_DROPSERVER '?WC.LINK?'
ZZZZ010539	14200	TEST-M+=,'DROPLOGUSR'}NOP{};
ZZZZ010539	14300	=ERROR{?WC.ERR?};
ZZZZ010539	14400	COPY=@ZZZZZZ_SQL
ZZZZ010540	20	***( ★注意:このプログラムはDBの登録パスワード使っているので
ZZZZ010540	30	*    ジョブ名を変えると登録パスワードを正しく受け取れません、
ZZZZ010540	40	*    ZZZZ010540以外には移動しないでください。）***
ZZZZ010540	100	PROGRAM=NOT
ZZZZ010540	200	CONTROL=BEGIN_ENTER
ZZZZ010540	300	BEGIN
ZZZZ010540	400	=SET{LOGIN_ID=_LOGIN_ID_ADMIN};
ZZZZ010540	500	H+|P+|I+=SET{LOGIN_ID@TYPE2='L'};
ZZZZ010540	600	FORM=    *********************************************
ZZZZ010540	700	FORM=    ***( SERVER AND _PEROMISSION='ZZZZ' ONLY )***
ZZZZ010540	800	FORM=    *********************************************
ZZZZ010540	900	FORM=
ZZZZ010540	1000	FORM=          CHECK @@ (SERVER,PERMISSION,USER(UI))
ZZZZ010540	1100	FORM= ADMIN LOGIN_ID @@@@@@@@@@@@@@@@@@@@
ZZZZ010540	1200	DATA=CHECK{2}
ZZZZ010540	1300	=IF{_PERMISSION!='ZZZZ'}ERROR{_PERMISSION!='ZZZZ'};
ZZZZ010540	1400	=IF{_SERVER!=_COMPUTER}ERROR{_COMPUTER!='?_SERVER?'};
ZZZZ010540	1500	I+W-=SET{WC.ROOT='ROOT'};
ZZZZ010540	1600	I+W-=IF{_USER!=WC.ROOT@LOWER}ERROR{_USER!='?WC.ROOT@LOWER?'};
ZZZZ010540	1700	DATA=LOGIN_ID{14}
ZZZZ010540	1800	=SET{_LOGIN_ID=LOGIN_ID};
ZZZZ010540	1900	FORM= ADMIN PASSWORD
ZZZZ010540	2000	FORM=@
ZZZZ010540	2100	DATA=PASSWORD_ADMIN{80,,!,*}ADMIN_PASWORD
ZZZZ010540	2200	=SET{_LOGIN_PASSWORD=PASSWORD_ADMIN};
ZZZZ010540	2300	=IF_ERROR_LOGIN_SQL{SELECT ?_NOW0? ?_FROM_DUAL?}ERROR{};
ZZZZ010540	2400	FORM=         OPTION @@@@@@@@@@ {TEST,REAL,LINK}
ZZZZ010540	2500	DATA=DATA{10}{TEST,REAL,LINK}
ZZZZ010540	2600	=DBO_SQL_SET{PASSWORD}{SELECT '*?_DATA?*' ?_FROM_DUAL?};
ZZZZ010540	2700	=EXIT{DATA};
ZZZZ010540	2800	FORM=       PASSWORD @@@@@@@@@@@@@@
ZZZZ010540	2900	DATA={O}PASSWORD{14}
ZZZZ010541	10	=SET{WC.DR_11=WC.DR1};
ZZZZ010541	20	=SET{WC.DR_12=WC.DR2};
ZZZZ010541	30	=SET{WC.DR_13=WC.DR2};
ZZZZ010541	40	=SET{WC.DR_14=WC.DR2};
ZZZZ010541	50	=SET{WC.DR_15=WC.DR5};
ZZZZ010541	60	=SET{WC.DR_21=WC.DR3};
ZZZZ010541	70	=SET{WC.DR_22=WC.DR4};
ZZZZ010541	80	=SET{WC.DR_23=WC.DR4};
ZZZZ010541	90	=SET{WC.DR_24=WC.DR4};
ZZZZ010541	100	=SET{WC.DR_25=};
ZZZZ010541	110	=SET{_LOWER=_SYSTEM,WC.L_SYSTEM=_LOWER};
ZZZZ010541	120	W+=SET{WC.KORL=,WC.KORR=':'};
ZZZZ010541	130	U+=SET{WC.KORL='/',WC.KORR=};
ZZZZ010541	140	=SET{WC.DRV1=,WC.DRV2=,WC.DRV3=,WC.DRV4=,WC.DRV5=};
ZZZZ010541	150	I-=SET{WC.NAME_ADD=};
ZZZZ010541	160	I+=SET{WC.NAME_ADD='_'+_SYSTEM};
ZZZZ010541	170	=SET{WC.NAME1='DATABASE_DAT_?_DB?'+WC.NAME_ADD};
ZZZZ010541	180	=SET{WC.NAME2='DATABASE_LOG_?_DB?'+WC.NAME_ADD};
ZZZZ010541	190	=SET{WC.NAME3='BACKUP_DAT_?_DB?'+WC.NAME_ADD};
ZZZZ010541	200	=SET{WC.NAME4='BACKUP_LOG_?_DB?'+WC.NAME_ADD};
ZZZZ010541	210	=SET{WC.NAME5='BACKUP'};
ZZZZ010541	220	=SET{WC.REALTEST=};
ZZZZ010541	230	M+=SET{WC.M_USER='MSSQL$?_INSTANCE?'};
ZZZZ010541	240	M+=IF{_INSTANCE=}SET{WC.M_USER='MSSQLSERVER'};
ZZZZ010541	250	REPEAT=5
ZZZZ010541	260	REPEAT2=2 (REAL,TEST)
ZZZZ010541	270	=SET{WC.PATH_$$##=};
ZZZZ010541	280	=IF{WC.DR_$$##=}JUMP{SKIP}; 空白は無視*
ZZZZ010541	290	1+I+W+=JUMP{SKIP}; DATABASE_DAT*WINDOWS-IはDB2配下に作られる*
ZZZZ010541	300	2+M-I-=JUMP{SKIP}; DATABASE_LOG* MとI*
ZZZZ010541	310	3+$2+O+=JUMP{SKIP}; BACKUP_DAT*
ZZZZ010541	320	4+D+=JUMP{SKIP};    BACKUP_LOG* D以外。
ZZZZ010541	330	=SET{WC.DR_TOP=WC.KORL+WC.DR_$$##+WC.KORR};
ZZZZ010541	340	=SET{WC.DR_TOP_I=WC.DR_TOP+_P+'I'+_P};
ZZZZ010541	350	4+P+=SET{WC.DR_TOP_P2_I=WC.DR_TOP+_P+_P+'I'+_P+_P};
ZZZZ010541	360	=SET{WC.PATH_$$##=WC.DR_TOP_I+WC.NAME##};
ZZZZ010541	370	4+P+=SET{WC.PATH_P2_$$##=WC.DR_TOP_P2_I+WC.NAME##};
ZZZZ010541	380	=SKIP:
ZZZZ010541	390	REPEAT=
ZZZZ010541	400	=RE:
ZZZZ010541	410	=SET{WC.DDAT1=WC.PATH_11,WC.DDAT2=WC.DDAT1};
ZZZZ010541	420	=SET{WC.DDAT3=WC.PATH_21,WC.DDAT4=WC.DDAT3};
ZZZZ010541	430	=SET{WC.DLOG1=WC.PATH_12,WC.DLOG2=WC.DLOG1};
ZZZZ010541	440	=SET{WC.DLOG3=WC.PATH_22,WC.DLOG4=WC.DLOG3};
ZZZZ010541	450	=SET{WC.BDAT1=WC.PATH_13,WC.BDAT2=WC.BDAT1};
ZZZZ010541	460	=SET{WC.BDAT3=WC.PATH_23,WC.BDAT4=WC.BDAT3};
ZZZZ010541	470	=SET{WC.BLOG1=WC.PATH_14,WC.BLOG2=WC.BLOG1};
ZZZZ010541	480	=SET{WC.BLOG3=WC.PATH_24,WC.BLOG4=WC.BLOG3};
ZZZZ010541	490	=SET{WC.IS='I_'+_SYSTEM+'_'};
ZZZZ010541	500	H+|F+=SET{WC.IS='I'+_SYSTEM};
ZZZZ010541	510	=SET{WC.1='R_M',WC.2='R_W',WC.3='T_M',WC.4='T_W'};
ZZZZ010541	520	H+=SET{WC.1='RM',WC.2='RW',WC.3='TM',WC.4='TW'};
ZZZZ010541	530	=SET{WC.REAL_TEST1='REAL',WC.REAL_TEST2='TEST'};
ZZZZ010541	540	=SET{WC.R_T1='R',WC.R_T2='T'};
ZZZZ010541	550	=SET{WC.MAST_WORK1='MAST',WC.MAST_WORK2='WORK'};
ZZZZ010541	560	=SET{WC.M_W1='M',WC.M_W2='W'};
ZZZZ010541	570	=SET{WC.DIOL1='D',WC.DIOL2='I',WC.DIOL3='O',WC.DIOL4='L'};
ZZZZ010541	580	=SET{WC.RTT1='R',WC.RRT1='R'};
ZZZZ010541	590	=SET{WC.RTT2='T',WC.RRT2='R'};
ZZZZ010541	600	=SET{WC.RTT3='T',WC.RRT3='T'};
ZZZZ010541	610	=SET{_LOWER='R',WC.L_R=_LOWER,_LOWER='A',WC.L_A=_LOWER};
ZZZZ010541	620	=SET{_LOWER='W',WC.L_W=_LOWER,_LOWER='D',WC.L_D=_LOWER};
ZZZZ010541	630	=SET{_LOWER='V',WC.L_V=_LOWER,_LOWER='I',WC.L_I=_LOWER};
ZZZZ010541	640	=SET{_LOWER='O',WC.L_O=_LOWER,_LOWER='L',WC.L_L=_LOWER};
ZZZZ010541	650	=SET{_LOWER='ZZZZ',WC.L_ZZZZ=_LOWER};
ZZZZ010541	660	=JUMP{SKIP};
ZZZZ010541	670	NAME=ADD10
ZZZZ010541	680	=COMPUTE{W0+=10};SET{WC=WC.I+W0+',?_N?'};
ZZZZ010541	690	NAME=
ZZZZ010541	700	=SKIP:
ZZZZ010541	710	=IF{_JOB!='ZZZZ000000'}IF{$WC.START=1}JUMP{CANCEL_STEP};
ZZZZ010541	720	COMMENT2_BEGIN *JUMP ERROR SKIP*
ZZZZ010541	730	=CANCEL_STEP:  JUMP ERROR SKIP*
ZZZZ010541	740	COMMENT2_END   *JUMP ERROR SKIP*
ZZZZ010541	750	=IF{_DB!='M'}JUMP{M_SKIP};
ZZZZ010541	760	REPEAT0=$W0.PERMISSION
ZZZZ010541	770	REPEAT=4 (WC.DDAT##,WC.DLOG##,WC.BDAT##,WC.BLOG##)
ZZZZ010541	780	=MESSAGE{CREATE DATABASE (?WC.PER$$?)};
ZZZZ010541	790	=SET{WC.DB='?WC.IS??WC.##?_?WC.PER$$?'};
ZZZZ010541	800	=IF_ERROR_LOGIN_SQL{CREATE DATABASE ?WC.DB? ON PRIMARY(
ZZZZ010541	810	=NAME=DAT
ZZZZ010541	820	=,FILENAME='?WC.DDAT##??_P??WC.DB?_DAT.MDF'
ZZZZ010541	830	=,FILEGROWTH=1) LOG ON(NAME=LOG
ZZZZ010541	840	=,FILENAME='?WC.DLOG##??_P??WC.DB?_LOG.LDF'
ZZZZ010541	850	=,FILEGROWTH=1)}IF{_DB_I_ERROR!='EXIST'}ERROR{};
ZZZZ010541	860	=IF_ERROR_LOGIN_SQL{EXEC SP_ADDUMPDEVICE 'DISK','?WC.DB?_DAT'
ZZZZ010541	870	=,'?WC.BDAT##??_P??WC.DB?.DAT'}
ZZZZ010541	880	=  IF{_DB_I_ERROR!='EXIST'}ERROR{?_DB_ERROR? ?_ERROR?};
ZZZZ010541	890	2-4-=IF_ERROR_LOGIN_SQL{EXEC SP_ADDUMPDEVICE 'DISK'
ZZZZ010541	900	2-4-= ,'?WC.DB?_LOG','?WC.BLOG##??_P??WC.DB?.LOG'}
ZZZZ010541	910	2-4-=  IF{_DB_I_ERROR!='EXIST'}ERROR{};
ZZZZ010541	920	=IF{_DB_SOFT/'M200'}JUMP{OLD};
ZZZZ010541	930	=SET{WC.EX_DB='ALTER DATABASE ?WC.DB? SET'};
ZZZZ010541	940	=LOGIN_SQL{?WC.EX_DB? AUTO_CLOSE OFF};
ZZZZ010541	950	=LOGIN_SQL{?WC.EX_DB? AUTO_SHRINK ON};
ZZZZ010541	960	2-4-=LOGIN_SQL{?WC.EX_DB? RECOVERY FULL};
ZZZZ010541	970	1-3-=LOGIN_SQL{?WC.EX_DB? RECOVERY SIMPLE};
ZZZZ010541	980	*2-4-=LOGIN_SQL{?WC.EX_DB?,'SELECT INTO/BULKCOPY','FALSE'};
ZZZZ010541	990	*1-3-=LOGIN_SQL{?WC.EX_DB?,'SELECT INTO/BULKCOPY','TRUE'};
ZZZZ010541	1000	=JUMP{SKIP};
ZZZZ010541	1010	=OLD:
ZZZZ010541	1020	=SET{WC.EX_DB='EXEC SP_DBOPTION ''?WC.DB?'''};
ZZZZ010541	1030	=LOGIN_SQL{?WC.EX_DB?,'AUTOCLOSE','FALSE'};
ZZZZ010541	1040	=LOGIN_SQL{?WC.EX_DB?,'AUTOSHRINK','TRUE'};
ZZZZ010541	1050	2-4-=LOGIN_SQL{?WC.EX_DB?,'TRUNC. LOG ON CHKPT.','FALSE'};
ZZZZ010541	1060	1-3-=LOGIN_SQL{?WC.EX_DB?,'TRUNC. LOG ON CHKPT.','TRUE'};
ZZZZ010541	1070	2-4-=LOGIN_SQL{?WC.EX_DB?,'SELECT INTO/BULKCOPY','FALSE'};
ZZZZ010541	1080	1-3-=LOGIN_SQL{?WC.EX_DB?,'SELECT INTO/BULKCOPY','TRUE'};
ZZZZ010541	1090	=SKIP:
ZZZZ010541	1100	REPEAT0=
ZZZZ010541	1110	***********************( EXEC SP_ADDLOGIN )******************
ZZZZ010541	1120	REPEAT0=$W0.PERMISSION
ZZZZ010541	1130	REPEAT=2 (WC.R_T##)
ZZZZ010541	1140	***=SET{WC.PAS=WC.PASSWORD_?WC.REAL_TEST##?};
ZZZZ010541	1150	=SET{WC.LTR=WC.REAL_TEST##};
ZZZZ010541	1160	=SET{W0.REPEAT2CNT=0};
ZZZZ010541	1170	REPEAT2=4 (WC.DIOL--)
ZZZZ010541	1180	=COMPUTE{W0.REPEAT2CNT+=1};
ZZZZ010541	1190	=MESSAGE{EXEC SP_ADDLOGIN (?WC.REAL_TEST##?,?WC.PER$$?)};
ZZZZ010541	1200	=SET{WC.DIOL=WC.DIOL?W0.REPEAT2CNT?};
ZZZZ010541	1210	=SET{WC.USER=''};
ZZZZ010541	1220	***=IF{W0.REPEAT2CNT=4}SET{WC.PAS=WC.PASSWORD_LINK};
ZZZZ010541	1230	=IF{W0.REPEAT2CNT=4}SET{WC.LTR='LINK'};
ZZZZ010541	1240	***=IF_ERROR_LOGIN_SQL{EXEC SP_ADDLOGIN
ZZZZ010541	1250	***=          '?WC.IS??WC.R_T##?_?WC.DIOL?_?WC.PER$$?'
ZZZZ010541	1260	***=,'?WC.PAS?','?WC.IS??WC.R_T##?_M_?WC.PER$$?'}
ZZZZ010541	1270	=IF_ERROR_LOGIN_ZZ_ADDLOGIN{?WC.LTR?}
ZZZZ010541	1280	=          {?WC.IS??WC.R_T##?_?WC.DIOL?_?WC.PER$$?}
ZZZZ010541	1290	=          {?WC.IS??WC.R_T##?_M_?WC.PER$$?}
ZZZZ010541	1300	=  IF{_DB_I_ERROR!='EXIST'}ERROR{};
ZZZZ010541	1310	REPEAT0=
ZZZZ010541	1320	******************( CREATE USER )****************************
ZZZZ010541	1330	REPEAT0=$W0.PERMISSION
ZZZZ010541	1340	REPEAT=3 (WC.RTT##;WC.RRT##)
ZZZZ010541	1350	=SET{W0.REPEAT2CNT=0};
ZZZZ010541	1360	REPEAT2=$W0.PERMISSION   (WC.PER(ALL))
ZZZZ010541	1370	=COMPUTE{W0.REPEAT2CNT+=1};
ZZZZ010541	1380	=SET{WC.PER_ALL=WC.PER?W0.REPEAT2CNT?};
ZZZZ010541	1390	=MESSAGE{EXEC CREATE USER (?WC.PER$$?)};
ZZZZ010541	1400	=IF_ERROR_LOGIN_SQL{USE ?WC.IS??WC.RTT##?_M_?WC.PER_ALL?
ZZZZ010541	1410	=  CREATE USER ?WC.IS??WC.RRT##?_D_?WC.PER$$?
ZZZZ010541	1420	=  WITH DEFAULT_SCHEMA=DBO}
ZZZZ010541	1430	=  IF{_DB_I_ERROR!='EXIST'}ERROR{};
ZZZZ010541	1440	=IF_ERROR_LOGIN_SQL{USE ?WC.IS??WC.RTT##?_W_?WC.PER_ALL?
ZZZZ010541	1450	=  CREATE USER ?WC.IS??WC.RRT##?_D_?WC.PER$$?
ZZZZ010541	1460	=  WITH DEFAULT_SCHEMA=DBO}
ZZZZ010541	1470	=  IF{_DB_I_ERROR!='EXIST'}ERROR{};
ZZZZ010541	1480	=IF_ERROR_LOGIN_SQL{USE ?WC.IS??WC.RTT##?_M_?WC.PER_ALL?
ZZZZ010541	1490	=  CREATE USER ?WC.IS??WC.RRT##?_I_?WC.PER$$?
ZZZZ010541	1500	=  WITH DEFAULT_SCHEMA=DBO}
ZZZZ010541	1510	=  IF{_DB_I_ERROR!='EXIST'}ERROR{};
ZZZZ010541	1520	=IF_ERROR_LOGIN_SQL{USE ?WC.IS??WC.RTT##?_W_?WC.PER_ALL?
ZZZZ010541	1530	=  CREATE USER ?WC.IS??WC.RRT##?_I_?WC.PER$$?
ZZZZ010541	1540	=  WITH DEFAULT_SCHEMA=DBO}
ZZZZ010541	1550	=  IF{_DB_I_ERROR!='EXIST'}ERROR{};
ZZZZ010541	1560	=IF_ERROR_LOGIN_SQL{USE ?WC.IS??WC.RTT##?_M_?WC.PER_ALL?
ZZZZ010541	1570	=  CREATE USER ?WC.IS??WC.RRT##?_O_?WC.PER$$?
ZZZZ010541	1580	=  WITH DEFAULT_SCHEMA=DBO}
ZZZZ010541	1590	=  IF{_DB_I_ERROR!='EXIST'}ERROR{};
ZZZZ010541	1600	=IF_ERROR_LOGIN_SQL{USE ?WC.IS??WC.RTT##?_W_?WC.PER_ALL?
ZZZZ010541	1610	=  CREATE USER ?WC.IS??WC.RRT##?_O_?WC.PER$$?
ZZZZ010541	1620	=  WITH DEFAULT_SCHEMA=DBO}
ZZZZ010541	1630	=  IF{_DB_I_ERROR!='EXIST'}ERROR{};
ZZZZ010541	1640	=IF_ERROR_LOGIN_SQL{USE ?WC.IS??WC.RTT##?_M_?WC.PER_ALL?
ZZZZ010541	1650	=  CREATE USER ?WC.IS??WC.RRT##?_L_?WC.PER$$?
ZZZZ010541	1660	=  WITH DEFAULT_SCHEMA=DBO}
ZZZZ010541	1670	=  IF{_DB_I_ERROR!='EXIST'}ERROR{};
ZZZZ010541	1680	=IF_ERROR_LOGIN_SQL{USE ?WC.IS??WC.RTT##?_W_?WC.PER_ALL?
ZZZZ010541	1690	=  CREATE USER ?WC.IS??WC.RRT##?_L_?WC.PER$$?
ZZZZ010541	1700	=  WITH DEFAULT_SCHEMA=DBO}
ZZZZ010541	1710	=  IF{_DB_I_ERROR!='EXIST'}ERROR{};
ZZZZ010541	1720	REPEAT0=
ZZZZ010541	1730	*****************( SP_ADDROLEMEMBER )************************
ZZZZ010541	1740	REPEAT0=$W0.PERMISSION
ZZZZ010541	1750	=MESSAGE{EXEC EXEC SP_ADDROLEMEMBER (?WC.PER$$?)};
ZZZZ010541	1760	REPEAT=3 (WC.RTT##;WC.RRT##)
ZZZZ010541	1770	=SET{WC.PERX='ZZZZ'};
ZZZZ010541	1780	=SET{W0.REPEAT2CNT=0};
ZZZZ010541	1790	REPEAT2=2 (WC.PER--;(ZZZZ;自分))
ZZZZ010541	1800	=COMPUTE{W0.REPEAT2CNT+=1};
ZZZZ010541	1810	=IF{W0.REPEAT2CNT=2}SET{WC.PERX=WC.PER$$};
ZZZZ010541	1820	=LOGIN_SQL{USE ?WC.IS??WC.RTT##?_M_?WC.PER$$?
ZZZZ010541	1830	= EXEC SP_ADDROLEMEMBER 'DB_OWNER'
ZZZZ010541	1840	= ,'?WC.IS?R_D_ZZZZ'};
ZZZZ010541	1850	=LOGIN_SQL{USE ?WC.IS??WC.RTT##?_M_?WC.PER$$?
ZZZZ010541	1860	= EXEC SP_ADDROLEMEMBER 'DB_OWNER'
ZZZZ010541	1870	= ,'?WC.IS??WC.RRT##?_D_?WC.PERX?'};
ZZZZ010541	1880	=LOGIN_SQL{USE ?WC.IS??WC.RTT##?_W_?WC.PER$$?
ZZZZ010541	1890	= EXEC SP_ADDROLEMEMBER 'DB_OWNER'
ZZZZ010541	1900	= ,'?WC.IS??WC.RRT##?_D_?WC.PERX?'};
ZZZZ010541	1910	=LOGIN_SQL{USE ?WC.IS??WC.RTT##?_W_?WC.PER$$?
ZZZZ010541	1920	= EXEC SP_ADDROLEMEMBER 'DB_OWNER'
ZZZZ010541	1930	= ,'?WC.IS??WC.RRT##?_I_?WC.PERX?'};
ZZZZ010541	1940	=LOGIN_SQL{USE ?WC.IS??WC.RTT##?_W_?WC.PER$$?
ZZZZ010541	1950	= EXEC SP_ADDROLEMEMBER 'DB_OWNER'
ZZZZ010541	1960	= ,'?WC.IS??WC.RRT##?_O_?WC.PERX?'};
ZZZZ010541	1970	=IF{WC.PER$$='ZZZZ'}JUMP{SKIP};
ZZZZ010541	1980	REPEAT2=
ZZZZ010541	1990	=SKIP:
ZZZZ010541	2000	REPEAT0=
ZZZZ010541	2010	=JUMP{M_SKIP};
ZZZZ010541	2020	*********( CREATE VIEW )***********************************
ZZZZ010541	2030	*****( OBJECT_VIEW )***************************************
ZZZZ010541	2040	NAME=M_OBJECT_VIEW
ZZZZ010541	2050	=SET{WC.I=WC.INSERT+'''M'','};
ZZZZ010541	2060	COPY=ADD10
ZZZZ010541	2070	=SQL{?WC?'(SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	2080	COPY=ADD10
ZZZZ010541	2090	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME,SYSTEM_TEXT')};
ZZZZ010541	2100	COPY=ADD10
ZZZZ010541	2110	=SQL{?WC?',SYSTEM_ADD_DATE17,SYSTEM_CHANGE_DATE17)')};
ZZZZ010541	2120	COPY=ADD10
ZZZZ010541	2130	=SQL{?WC?' AS SELECT CAST(CASE O.TYPE WHEN ''U''')};
ZZZZ010541	2140	COPY=ADD10
ZZZZ010541	2150	=SQL{?WC?' THEN ''TABLE'' WHEN ''V'' THEN ''VIEW''')};
ZZZZ010541	2160	COPY=ADD10
ZZZZ010541	2170	=SQL{?WC?' WHEN ''P'' THEN ''PROC''')};
ZZZZ010541	2180	COPY=ADD10
ZZZZ010541	2190	=SQL{?WC?' WHEN ''FN'' THEN ''FUNC''')};
ZZZZ010541	2200	COPY=ADD10
ZZZZ010541	2210	=SQL{?WC?' WHEN ''TR'' THEN ''TRIG'' ELSE ''XXXXX'' END')};
ZZZZ010541	2220	COPY=ADD10
ZZZZ010541	2230	=SQL{?WC?' AS CHAR(5))')};
ZZZZ010541	2240	COPY=ADD10
ZZZZ010541	2250	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	2260	COPY=ADD10
ZZZZ010541	2270	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	2280	COPY=ADD10
ZZZZ010541	2290	=SQL{?WC?',CAST('' '' AS CHAR(1))')};
ZZZZ010541	2300	COPY=ADD10
ZZZZ010541	2310	=SQL{?WC?',CAST(O.NAME AS NCHAR(30))')};
ZZZZ010541	2320	COPY=ADD10
ZZZZ010541	2330	=SQL{?WC?',C.DEFINITION,CAST(REPLACE(REPLACE(')};
ZZZZ010541	2340	COPY=ADD10
ZZZZ010541	2350	=SQL{?WC?' REPLACE(REPLACE(CONVERT(CHAR(23)')};
ZZZZ010541	2360	COPY=ADD10
ZZZZ010541	2370	=SQL{?WC?',O.CREATE_DATE,121),''-''')};
ZZZZ010541	2380	COPY=ADD10
ZZZZ010541	2390	=SQL{?WC?',''''),'':'',''''),''.'',''''),'' '','''')')};
ZZZZ010541	2400	COPY=ADD10
ZZZZ010541	2410	=SQL{?WC?' AS CHAR(17))')};
ZZZZ010541	2420	COPY=ADD10
ZZZZ010541	2430	=SQL{?WC?',CAST(REPLACE(REPLACE(REPLACE(REPLACE(')};
ZZZZ010541	2440	COPY=ADD10
ZZZZ010541	2450	=SQL{?WC?' CONVERT(CHAR(23),O.MODIFY_DATE,121),''-''')};
ZZZZ010541	2460	COPY=ADD10
ZZZZ010541	2470	=SQL{?WC?',''''),'':'',''''),''.'',''''),'' '','''')')};
ZZZZ010541	2480	COPY=ADD10
ZZZZ010541	2490	=SQL{?WC?' AS CHAR(17)) FROM')};
ZZZZ010541	2500	COPY=ADD10
ZZZZ010541	2510	=SQL{?WC?' ?WC.M_DB?.SYS.SCHEMAS S,')};
ZZZZ010541	2520	COPY=ADD10
ZZZZ010541	2530	=SQL{?WC?' ?WC.M_DB?.SYS.OBJECTS O')};
ZZZZ010541	2540	COPY=ADD10
ZZZZ010541	2550	=SQL{?WC?' LEFT JOIN')};
ZZZZ010541	2560	COPY=ADD10
ZZZZ010541	2570	=SQL{?WC?' ?WC.M_DB?.SYS.SQL_MODULES C ')};
ZZZZ010541	2580	COPY=ADD10
ZZZZ010541	2590	=SQL{?WC?' ON C.OBJECT_ID=O.OBJECT_ID ')};
ZZZZ010541	2600	COPY=ADD10
ZZZZ010541	2610	=SQL{?WC?' WHERE S.SCHEMA_ID=O.SCHEMA_ID')};
ZZZZ010541	2620	COPY=ADD10
ZZZZ010541	2630	=SQL{?WC?' AND S.NAME=''DBO''')};
ZZZZ010541	2640	COPY=ADD10
ZZZZ010541	2650	=SQL{?WC?' AND O.TYPE IN(''U'',''V'',''P'',''TR'',''FN'')')};
ZZZZ010541	2660	COPY=ADD10
ZZZZ010541	2670	NAME=
ZZZZ010541	2680	***( COLUMN_VIEW )*******************************************
ZZZZ010541	2690	NAME=M_COLUMN_VIEW
ZZZZ010541	2700	=SET{WC.I=WC.INSERT+'''M'','};
ZZZZ010541	2710	COPY=ADD10
ZZZZ010541	2720	=SQL{?WC?'(SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	2730	COPY=ADD10
ZZZZ010541	2740	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME,SYSTEM_SEQ')};
ZZZZ010541	2750	COPY=ADD10
ZZZZ010541	2760	=SQL{?WC?',SYSTEM_DATA_NAME,SYSTEM_DEFAULT_TYPE')};
ZZZZ010541	2770	COPY=ADD10
ZZZZ010541	2780	=SQL{?WC?',SYSTEM_DEFAULT_LENGTH1')};
ZZZZ010541	2790	COPY=ADD10
ZZZZ010541	2800	=SQL{?WC?',SYSTEM_DEFAULT_LENGTH2,SYSTEM_DEFAULT')};
ZZZZ010541	2810	COPY=ADD10
ZZZZ010541	2820	=SQL{?WC?',SYSTEM_NULL)AS SELECT CAST(CASE O.TYPE')};
ZZZZ010541	2830	COPY=ADD10
ZZZZ010541	2840	=SQL{?WC?' WHEN ''U'' THEN ''TABLE''')};
ZZZZ010541	2850	COPY=ADD10
ZZZZ010541	2860	=SQL{?WC?' WHEN ''V'' THEN ''VIEW''')};
ZZZZ010541	2870	COPY=ADD10
ZZZZ010541	2880	=SQL{?WC?' ELSE ''XXXXX'' END')};
ZZZZ010541	2890	COPY=ADD10
ZZZZ010541	2900	=SQL{?WC?' AS CHAR(5))')};
ZZZZ010541	2910	COPY=ADD10
ZZZZ010541	2920	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	2930	COPY=ADD10
ZZZZ010541	2940	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	2950	COPY=ADD10
ZZZZ010541	2960	=SQL{?WC?',CAST('' '' AS CHAR(1)),CAST(O.NAME')};
ZZZZ010541	2970	COPY=ADD10
ZZZZ010541	2980	=SQL{?WC?' AS NCHAR(30))')};
ZZZZ010541	2990	COPY=ADD10
ZZZZ010541	3000	=SQL{?WC?',CAST(C.COLUMN_ID AS INT)')};
ZZZZ010541	3010	COPY=ADD10
ZZZZ010541	3020	=SQL{?WC?',CAST(C.NAME AS NCHAR(30))')};
ZZZZ010541	3030	COPY=ADD10
ZZZZ010541	3040	=SQL{?WC?',CAST(UPPER(T.NAME)AS CHAR(9))')};
ZZZZ010541	3050	COPY=ADD10
ZZZZ010541	3060	=SQL{?WC?',CAST(CASE WHEN T.NAME IN(''BINARY''')};
ZZZZ010541	3070	COPY=ADD10
ZZZZ010541	3080	=SQL{?WC?',''CHAR'',''VARCHAR'',''DECIMAL''')};
ZZZZ010541	3090	COPY=ADD10
ZZZZ010541	3100	=SQL{?WC?',''NCHAR'',''NVARCHAR''')};
ZZZZ010541	3110	COPY=ADD10
ZZZZ010541	3120	=SQL{?WC?',''NUMERIC'') THEN CASE C.PRECISION')};
ZZZZ010541	3130	COPY=ADD10
ZZZZ010541	3140	=SQL{?WC?' WHEN 0 THEN CASE WHEN C.MAX_LENGTH<=0')};
ZZZZ010541	3150	COPY=ADD10
ZZZZ010541	3160	=SQL{?WC?' THEN 4000 ELSE CASE WHEN T.NAME')};
ZZZZ010541	3170	COPY=ADD10
ZZZZ010541	3180	=SQL{?WC?' IN(''NCHAR'',''NVARCHAR'') THEN')};
ZZZZ010541	3190	COPY=ADD10
ZZZZ010541	3200	=SQL{?WC?' C.MAX_LENGTH/2 ELSE C.MAX_LENGTH')};
ZZZZ010541	3210	COPY=ADD10
ZZZZ010541	3220	=SQL{?WC?' END END ELSE C.PRECISION END')};
ZZZZ010541	3230	COPY=ADD10
ZZZZ010541	3240	=SQL{?WC?' WHEN T.NAME=''DATETIME'' THEN 17')};
ZZZZ010541	3250	COPY=ADD10
ZZZZ010541	3260	=SQL{?WC?' WHEN T.NAME=''DATE'' THEN 8')};
ZZZZ010541	3270	COPY=ADD10
ZZZZ010541	3280	=SQL{?WC?' WHEN T.NAME=''TEXT'' THEN 4000')};
ZZZZ010541	3290	COPY=ADD10
ZZZZ010541	3300	=SQL{?WC?' ELSE 9 END AS INT),CAST(CASE')};
ZZZZ010541	3310	COPY=ADD10
ZZZZ010541	3320	=SQL{?WC?' WHEN T.NAME IN(''DECIMAL'',''NUMERIC'')')};
ZZZZ010541	3330	=COMPUTE{ W0+=100};SET{WC=WC.I+W0+',?_N?'};
ZZZZ010541	3340	=SQL{?WC?' THEN C.SCALE ELSE 0 END AS INT)')};
ZZZZ010541	3350	COPY=ADD10
ZZZZ010541	3360	=SQL{?WC?',CAST(CASE WHEN D.DEFINITION')};
ZZZZ010541	3370	COPY=ADD10
ZZZZ010541	3380	=SQL{?WC?' IS NULL THEN NULL WHEN')};
ZZZZ010541	3390	COPY=ADD10
ZZZZ010541	3400	=SQL{?WC?' DATALENGTH(RTRIM(D.DEFINITION))<3 THEN ')};
ZZZZ010541	3410	COPY=ADD10
ZZZZ010541	3420	=SQL{?WC?' D.DEFINITION ')};
ZZZZ010541	3430	COPY=ADD10
ZZZZ010541	3440	=SQL{?WC?' ELSE SUBSTRING(D.DEFINITION,2')};
ZZZZ010541	3450	COPY=ADD10
ZZZZ010541	3460	=SQL{?WC?',DATALENGTH(CONVERT(')};
ZZZZ010541	3470	COPY=ADD10
ZZZZ010541	3480	=SQL{?WC?' VARCHAR,D.DEFINITION))-2) END')};
ZZZZ010541	3490	COPY=ADD10
ZZZZ010541	3500	=SQL{?WC?' AS NCHAR(30))')};
ZZZZ010541	3510	COPY=ADD10
ZZZZ010541	3520	=SQL{?WC?',CAST(CASE WHEN C.IS_NULLABLE=''1''')};
ZZZZ010541	3530	COPY=ADD10
ZZZZ010541	3540	=SQL{?WC?' THEN ''1'' ELSE ''0'' END AS CHAR(1))')};
ZZZZ010541	3550	COPY=ADD10
ZZZZ010541	3560	=SQL{?WC?' FROM')};
ZZZZ010541	3570	COPY=ADD10
ZZZZ010541	3580	=SQL{?WC?' ?WC.M_DB?.SYS.COLUMNS C JOIN')};
ZZZZ010541	3590	COPY=ADD10
ZZZZ010541	3600	=SQL{?WC?' ?WC.M_DB?.SYS.OBJECTS O')};
ZZZZ010541	3610	COPY=ADD10
ZZZZ010541	3620	=SQL{?WC?' ON C.OBJECT_ID=O.OBJECT_ID AND O.TYPE')};
ZZZZ010541	3630	COPY=ADD10
ZZZZ010541	3640	=SQL{?WC?' IN(''U'',''V'')JOIN')};
ZZZZ010541	3650	COPY=ADD10
ZZZZ010541	3660	=SQL{?WC?' ?WC.M_DB?.SYS.SCHEMAS S')};
ZZZZ010541	3670	COPY=ADD10
ZZZZ010541	3680	=SQL{?WC?' ON S.SCHEMA_ID=O.SCHEMA_ID')};
ZZZZ010541	3690	COPY=ADD10
ZZZZ010541	3700	=SQL{?WC?' AND S.NAME=''DBO'' JOIN')};
ZZZZ010541	3710	COPY=ADD10
ZZZZ010541	3720	=SQL{?WC?' ?WC.M_DB?.SYS.TYPES T')};
ZZZZ010541	3730	COPY=ADD10
ZZZZ010541	3740	=SQL{?WC?' ON C.USER_TYPE_ID=T.USER_TYPE_ID ')};
ZZZZ010541	3750	COPY=ADD10
ZZZZ010541	3760	=SQL{?WC?' AND C.SYSTEM_TYPE_ID=T.SYSTEM_TYPE_ID')};
ZZZZ010541	3770	COPY=ADD10
ZZZZ010541	3780	=SQL{?WC?' LEFT JOIN')};
ZZZZ010541	3790	COPY=ADD10
ZZZZ010541	3800	=SQL{?WC?' ?WC.M_DB?.SYS')};
ZZZZ010541	3810	COPY=ADD10
ZZZZ010541	3820	=SQL{?WC?'.DEFAULT_CONSTRAINTS')};
ZZZZ010541	3830	COPY=ADD10
ZZZZ010541	3840	=SQL{?WC?' D ON D.OBJECT_ID=C.DEFAULT_OBJECT_ID')};
ZZZZ010541	3850	*****( INDEX_VIEW )******************************************
ZZZZ010541	3860	NAME=M_INDEX_VIEW
ZZZZ010541	3870	=SET{WC.I=WC.INSERT+'''M'','};
ZZZZ010541	3880	COPY=ADD10
ZZZZ010541	3890	=SQL{?WC?'(SYSTEM_REAL,SYSTEM_WORK,SYSTEM_USER_X')};
ZZZZ010541	3900	COPY=ADD10
ZZZZ010541	3910	=SQL{?WC?',SYSTEM_NAME,SYSTEM_DATA_NAME,SYSTEM_IX')};
ZZZZ010541	3920	COPY=ADD10
ZZZZ010541	3930	=SQL{?WC?',SYSTEM_NO)AS SELECT')};
ZZZZ010541	3940	COPY=ADD10
ZZZZ010541	3950	=SQL{?WC?' CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	3960	COPY=ADD10
ZZZZ010541	3970	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	3980	COPY=ADD10
ZZZZ010541	3990	=SQL{?WC?',CAST('' '' AS CHAR(1))')};
ZZZZ010541	4000	COPY=ADD10
ZZZZ010541	4010	=SQL{?WC?',CAST(O.NAME AS NCHAR(30))')};
ZZZZ010541	4020	COPY=ADD10
ZZZZ010541	4030	=SQL{?WC?',CAST(C.NAME AS NCHAR(30))')};
ZZZZ010541	4040	COPY=ADD10
ZZZZ010541	4050	=SQL{?WC?',CAST(RIGHT(I.NAME,1) AS CHAR(1))')};
ZZZZ010541	4060	COPY=ADD10
ZZZZ010541	4070	=SQL{?WC?',CAST(K.KEY_ORDINAL-I.IS_UNIQUE AS INT)FROM')};
ZZZZ010541	4080	COPY=ADD10
ZZZZ010541	4090	=SQL{?WC?' ?WC.M_DB?.SYS.INDEXES I JOIN')};
ZZZZ010541	4100	COPY=ADD10
ZZZZ010541	4110	=SQL{?WC?' ?WC.M_DB?.SYS.INDEX_COLUMNS K')};
ZZZZ010541	4120	COPY=ADD10
ZZZZ010541	4130	=SQL{?WC?' ON I.INDEX_ID=K.INDEX_ID')};
ZZZZ010541	4140	COPY=ADD10
ZZZZ010541	4150	=SQL{?WC?' AND I.OBJECT_ID=K.OBJECT_ID JOIN')};
ZZZZ010541	4160	COPY=ADD10
ZZZZ010541	4170	=SQL{?WC?' ?WC.M_DB?.SYS.OBJECTS O')};
ZZZZ010541	4180	COPY=ADD10
ZZZZ010541	4190	=SQL{?WC?' ON O.OBJECT_ID=I.OBJECT_ID  ')};
ZZZZ010541	4200	COPY=ADD10
ZZZZ010541	4210	=SQL{?WC?' AND I.NAME IN(O.NAME+''0'',O.NAME+''1''')};
ZZZZ010541	4220	COPY=ADD10
ZZZZ010541	4230	=SQL{?WC?',O.NAME+''2'',O.NAME+''3'',O.NAME+''4''')};
ZZZZ010541	4240	COPY=ADD10
ZZZZ010541	4250	=SQL{?WC?',O.NAME+''5'',O.NAME+''6'',O.NAME+''7''')};
ZZZZ010541	4260	COPY=ADD10
ZZZZ010541	4270	=SQL{?WC?',O.NAME+''8'',O.NAME+''9'')')};
ZZZZ010541	4280	COPY=ADD10
ZZZZ010541	4290	=SQL{?WC?' AND O.TYPE IN(''U'',''V'') JOIN')};
ZZZZ010541	4300	COPY=ADD10
ZZZZ010541	4310	=SQL{?WC?' ?WC.M_DB?.SYS.COLUMNS C')};
ZZZZ010541	4320	COPY=ADD10
ZZZZ010541	4330	=SQL{?WC?' ON C.OBJECT_ID=I.OBJECT_ID')};
ZZZZ010541	4340	COPY=ADD10
ZZZZ010541	4350	=SQL{?WC?' AND C.COLUMN_ID=K.COLUMN_ID JOIN')};
ZZZZ010541	4360	COPY=ADD10
ZZZZ010541	4370	=SQL{?WC?' ?WC.M_DB?.SYS.SCHEMAS S')};
ZZZZ010541	4380	COPY=ADD10
ZZZZ010541	4390	=SQL{?WC?' ON S.SCHEMA_ID=O.SCHEMA_ID')};
ZZZZ010541	4400	COPY=ADD10
ZZZZ010541	4410	=SQL{?WC?' AND S.NAME=''DBO''')};
ZZZZ010541	4420	*****( GRANT_VIEW )******************************************
ZZZZ010541	4430	NAME=M_GRANT_VIEW
ZZZZ010541	4440	=SET{WC.I=WC.INSERT+'''M'','};
ZZZZ010541	4450	COPY=ADD10
ZZZZ010541	4460	=SQL{?WC?'(SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	4470	COPY=ADD10
ZZZZ010541	4480	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME,SYSTEM_GRANT')};
ZZZZ010541	4490	COPY=ADD10
ZZZZ010541	4500	=SQL{?WC?',SYSTEM_SELECT,SYSTEM_INSERT')};
ZZZZ010541	4510	COPY=ADD10
ZZZZ010541	4520	=SQL{?WC?',SYSTEM_UPDATE,SYSTEM_DELETE')};
ZZZZ010541	4530	COPY=ADD10
ZZZZ010541	4540	=SQL{?WC?',SYSTEM_EXECUTE)AS SELECT CAST(CASE O.TYPE ')};
ZZZZ010541	4550	COPY=ADD10
ZZZZ010541	4560	=SQL{?WC?' WHEN ''U'' THEN ''TABLE''')};
ZZZZ010541	4570	COPY=ADD10
ZZZZ010541	4580	=SQL{?WC?' WHEN ''V'' THEN ''VIEW''')};
ZZZZ010541	4590	COPY=ADD10
ZZZZ010541	4600	=SQL{?WC?' WHEN ''P'' THEN ''PROC''')};
ZZZZ010541	4610	COPY=ADD10
ZZZZ010541	4620	=SQL{?WC?' WHEN ''FN'' THEN ''FUNC''')};
ZZZZ010541	4630	COPY=ADD10
ZZZZ010541	4640	=SQL{?WC?' WHEN ''TR'' THEN ''TRIG''')};
ZZZZ010541	4650	COPY=ADD10
ZZZZ010541	4660	=SQL{?WC?' ELSE ''XXXXX'' END AS CHAR(5))')};
ZZZZ010541	4670	COPY=ADD10
ZZZZ010541	4680	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	4690	COPY=ADD10
ZZZZ010541	4700	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	4710	COPY=ADD10
ZZZZ010541	4720	=SQL{?WC?',CAST('' '' AS CHAR(1))')};
ZZZZ010541	4730	COPY=ADD10
ZZZZ010541	4740	=SQL{?WC?',CAST(O.NAME AS NCHAR(30))')};
ZZZZ010541	4750	COPY=ADD10
ZZZZ010541	4760	=SQL{?WC?',CAST(UPPER(RIGHT(U0.NAME,6)) AS CHAR(6))')};
ZZZZ010541	4770	COPY=ADD10
ZZZZ010541	4780	=SQL{?WC?',CAST(CASE SUBSTRING(P0.TYPE,1,1)')};
ZZZZ010541	4790	COPY=ADD10
ZZZZ010541	4800	=SQL{?WC?' WHEN ''S'' THEN ''S'' ')};
ZZZZ010541	4810	COPY=ADD10
ZZZZ010541	4820	=SQL{?WC?' ELSE '' '' END AS CHAR(1))')};
ZZZZ010541	4830	COPY=ADD10
ZZZZ010541	4840	=SQL{?WC?',CAST(SUBSTRING(P1.TYPE,1,1) AS CHAR(1))')};
ZZZZ010541	4850	COPY=ADD10
ZZZZ010541	4860	=SQL{?WC?',CAST(SUBSTRING(P2.TYPE,1,1) AS CHAR(1))')};
ZZZZ010541	4870	COPY=ADD10
ZZZZ010541	4880	=SQL{?WC?',CAST(SUBSTRING(P3.TYPE,1,1) AS CHAR(1))')};
ZZZZ010541	4890	COPY=ADD10
ZZZZ010541	4900	=SQL{?WC?',CAST(CASE SUBSTRING(P0.TYPE,1,1)')};
ZZZZ010541	4910	COPY=ADD10
ZZZZ010541	4920	=SQL{?WC?' WHEN ''E'' THEN ''E'' ')};
ZZZZ010541	4930	COPY=ADD10
ZZZZ010541	4940	=SQL{?WC?' ELSE '' '' END AS CHAR(1)) FROM')};
ZZZZ010541	4950	COPY=ADD10
ZZZZ010541	4960	=SQL{?WC?' ?WC.M_DB?.SYS.OBJECTS O JOIN')};
ZZZZ010541	4970	COPY=ADD10
ZZZZ010541	4980	=SQL{?WC?' ?WC.M_DB?.SYS')};
ZZZZ010541	4990	COPY=ADD10
ZZZZ010541	5000	=SQL{?WC?'.DATABASE_PERMISSIONS')};
ZZZZ010541	5010	COPY=ADD10
ZZZZ010541	5020	=SQL{?WC?' P0 ON O.OBJECT_ID=P0.MAJOR_ID')};
ZZZZ010541	5030	COPY=ADD10
ZZZZ010541	5040	=SQL{?WC?' AND (P0.TYPE=''SL'' ')};
ZZZZ010541	5050	COPY=ADD10
ZZZZ010541	5060	=SQL{?WC?' AND O.TYPE IN(''U'',''V'')')};
ZZZZ010541	5070	COPY=ADD10
ZZZZ010541	5080	=SQL{?WC?' OR P0.TYPE=''EX'' ')};
ZZZZ010541	5090	COPY=ADD10
ZZZZ010541	5100	=SQL{?WC?' AND O.TYPE IN(''P'',''FN''))JOIN')};
ZZZZ010541	5110	COPY=ADD10
ZZZZ010541	5120	=SQL{?WC?' ?WC.M_DB?.SYS')};
ZZZZ010541	5130	COPY=ADD10
ZZZZ010541	5140	=SQL{?WC?'.DATABASE_PRINCIPALS')};
ZZZZ010541	5150	COPY=ADD10
ZZZZ010541	5160	=SQL{?WC?' U0 ON (U0.NAME LIKE ')};
ZZZZ010541	5170	COPY=ADD10
ZZZZ010541	5180	=SQL{?WC?' ''?_Q?_DB_HEADER?_Q?%''')};
ZZZZ010541	5190	COPY=ADD10
ZZZZ010541	5200	=SQL{?WC?' OR U0.NAME=LOWER(''PUBLIC''))')};
ZZZZ010541	5210	COPY=ADD10
ZZZZ010541	5220	=SQL{?WC?' AND P0.GRANTEE_PRINCIPAL_ID')};
ZZZZ010541	5230	COPY=ADD10
ZZZZ010541	5240	=SQL{?WC?'=U0.PRINCIPAL_ID LEFT JOIN')};
ZZZZ010541	5250	COPY=ADD10
ZZZZ010541	5260	=SQL{?WC?' ?WC.M_DB?.SYS')};
ZZZZ010541	5270	COPY=ADD10
ZZZZ010541	5280	=SQL{?WC?'.DATABASE_PERMISSIONS')};
ZZZZ010541	5290	COPY=ADD10
ZZZZ010541	5300	=SQL{?WC?' P1 ON O.OBJECT_ID=P1.MAJOR_ID AND')};
ZZZZ010541	5310	COPY=ADD10
ZZZZ010541	5320	=SQL{?WC?' P0.GRANTOR_PRINCIPAL_ID')};
ZZZZ010541	5330	COPY=ADD10
ZZZZ010541	5340	=SQL{?WC?'=P1.GRANTOR_PRINCIPAL_ID')};
ZZZZ010541	5350	COPY=ADD10
ZZZZ010541	5360	=SQL{?WC?' AND P1.TYPE=''IN'' AND ')};
ZZZZ010541	5370	COPY=ADD10
ZZZZ010541	5380	=SQL{?WC?' P0.GRANTEE_PRINCIPAL_ID')};
ZZZZ010541	5390	COPY=ADD10
ZZZZ010541	5400	=SQL{?WC?'=P1.GRANTEE_PRINCIPAL_ID LEFT JOIN')};
ZZZZ010541	5410	COPY=ADD10
ZZZZ010541	5420	=SQL{?WC?' ?WC.M_DB?.SYS')};
ZZZZ010541	5430	COPY=ADD10
ZZZZ010541	5440	=SQL{?WC?'.DATABASE_PRINCIPALS')};
ZZZZ010541	5450	COPY=ADD10
ZZZZ010541	5460	=SQL{?WC?' U1 ON U0.NAME=U1.NAME ')};
ZZZZ010541	5470	COPY=ADD10
ZZZZ010541	5480	=SQL{?WC?' AND P1.GRANTEE_PRINCIPAL_ID')};
ZZZZ010541	5490	COPY=ADD10
ZZZZ010541	5500	=SQL{?WC?'=U1.PRINCIPAL_ID LEFT JOIN')};
ZZZZ010541	5510	COPY=ADD10
ZZZZ010541	5520	=SQL{?WC?' ?WC.M_DB?.SYS')};
ZZZZ010541	5530	COPY=ADD10
ZZZZ010541	5540	=SQL{?WC?'.DATABASE_PERMISSIONS')};
ZZZZ010541	5550	COPY=ADD10
ZZZZ010541	5560	=SQL{?WC?' P2 ON O.OBJECT_ID=P2.MAJOR_ID AND')};
ZZZZ010541	5570	COPY=ADD10
ZZZZ010541	5580	=SQL{?WC?' P0.GRANTOR_PRINCIPAL_ID')};
ZZZZ010541	5590	COPY=ADD10
ZZZZ010541	5600	=SQL{?WC?'=P2.GRANTOR_PRINCIPAL_ID')};
ZZZZ010541	5610	COPY=ADD10
ZZZZ010541	5620	=SQL{?WC?' AND P2.TYPE=''UP'' AND ')};
ZZZZ010541	5630	COPY=ADD10
ZZZZ010541	5640	=SQL{?WC?' P0.GRANTEE_PRINCIPAL_ID')};
ZZZZ010541	5650	COPY=ADD10
ZZZZ010541	5660	=SQL{?WC?'=P2.GRANTEE_PRINCIPAL_ID LEFT JOIN')};
ZZZZ010541	5670	COPY=ADD10
ZZZZ010541	5680	=SQL{?WC?' ?WC.M_DB?.SYS')};
ZZZZ010541	5690	COPY=ADD10
ZZZZ010541	5700	=SQL{?WC?'.DATABASE_PRINCIPALS')};
ZZZZ010541	5710	COPY=ADD10
ZZZZ010541	5720	=SQL{?WC?' U2 ON U0.NAME=U2.NAME AND ')};
ZZZZ010541	5730	COPY=ADD10
ZZZZ010541	5740	=SQL{?WC?' P2.GRANTEE_PRINCIPAL_ID')};
ZZZZ010541	5750	COPY=ADD10
ZZZZ010541	5760	=SQL{?WC?'=U2.PRINCIPAL_ID LEFT JOIN ')};
ZZZZ010541	5770	COPY=ADD10
ZZZZ010541	5780	=SQL{?WC?' ?WC.M_DB?.SYS')};
ZZZZ010541	5790	COPY=ADD10
ZZZZ010541	5800	=SQL{?WC?'.DATABASE_PERMISSIONS')};
ZZZZ010541	5810	COPY=ADD10
ZZZZ010541	5820	=SQL{?WC?' P3 ON O.OBJECT_ID=P3.MAJOR_ID AND')};
ZZZZ010541	5830	COPY=ADD10
ZZZZ010541	5840	=SQL{?WC?' P0.GRANTOR_PRINCIPAL_ID')};
ZZZZ010541	5850	COPY=ADD10
ZZZZ010541	5860	=SQL{?WC?'=P3.GRANTOR_PRINCIPAL_ID')};
ZZZZ010541	5870	COPY=ADD10
ZZZZ010541	5880	=SQL{?WC?' AND P3.TYPE=''DE'' AND')};
ZZZZ010541	5890	COPY=ADD10
ZZZZ010541	5900	=SQL{?WC?' P0.GRANTEE_PRINCIPAL_ID')};
ZZZZ010541	5910	COPY=ADD10
ZZZZ010541	5920	=SQL{?WC?'=P3.GRANTEE_PRINCIPAL_ID LEFT JOIN')};
ZZZZ010541	5930	COPY=ADD10
ZZZZ010541	5940	=SQL{?WC?' ?WC.M_DB?.SYS')};
ZZZZ010541	5950	COPY=ADD10
ZZZZ010541	5960	=SQL{?WC?'.DATABASE_PRINCIPALS')};
ZZZZ010541	5970	COPY=ADD10
ZZZZ010541	5980	=SQL{?WC?' U3 ON U0.NAME=U3.NAME AND')};
ZZZZ010541	5990	COPY=ADD10
ZZZZ010541	6000	=SQL{?WC?' P3.GRANTEE_PRINCIPAL_ID')};
ZZZZ010541	6010	COPY=ADD10
ZZZZ010541	6020	=SQL{?WC?'=U3.PRINCIPAL_ID')};
ZZZZ010541	6030	NAME=
ZZZZ010541	6040	*************************************************************
ZZZZ010541	6050	=M_SKIP:
ZZZZ010541	6060	=IF{_DB!='P'}JUMP{P_SKIP};
ZZZZ010541	6070	*********( SET )*************************************
ZZZZ010541	6080	REPEAT0=$W0.PERMISSION
ZZZZ010541	6090	=SET{_LOWER=WC.PER$$,WC.PER$$=_LOWER};
ZZZZ010541	6100	REPEAT0=4
ZZZZ010541	6110	=SET{_LOWER=WC.DIOL$$,WC.DIOL$$=_LOWER};
ZZZZ010541	6120	REPEAT0=3
ZZZZ010541	6130	=SET{_LOWER=WC.RTT$$,WC.RTT$$=_LOWER};
ZZZZ010541	6140	=SET{_LOWER=WC.RRT$$,WC.RRT$$=_LOWER};
ZZZZ010541	6150	REPEAT0=2
ZZZZ010541	6160	=SET{_LOWER=WC.R_T$$,WC.R_T$$=_LOWER};
ZZZZ010541	6170	=SET{_LOWER=WC.M_W$$,WC.M_W$$=_LOWER};
ZZZZ010541	6180	REPEAT0=
ZZZZ010541	6190	=SET{_LOWER=WC.IS,WC.IS=_LOWER};
ZZZZ010541	6200	*********( CREATE USER )*************************************
ZZZZ010541	6210	=MESSAGE{CREATE USER};
ZZZZ010541	6220	REPEAT0=$W0.PERMISSION
ZZZZ010541	6230	REPEAT=2 (WC.REAL_TEST##)
ZZZZ010541	6240	***=SET{WC.PAS=WC.PASSWORD_?WC.REAL_TEST##?};
ZZZZ010541	6250	=SET{WC.LTR=WC.REAL_TEST##};
ZZZZ010541	6260	*=SET{WC.CU='CREATEDB CREATEUSER'}; VER21.1*
ZZZZ010541	6270	=SET{WC.CU='CREATEDB'}; VER21.1*
ZZZZ010541	6280	=SET{W0.REPEAT2CNT=0};
ZZZZ010541	6290	REPEAT2=4 (WC.DIOL--)
ZZZZ010541	6300	=COMPUTE{W0.REPEAT2CNT+=1};
ZZZZ010541	6310	=SET{WC.DIOL=WC.DIOL?W0.REPEAT2CNT?};
ZZZZ010541	6320	***=IF{W0.REPEAT2CNT=4}SET{WC.PAS=WC.PASSWORD_LINK};
ZZZZ010541	6330	=IF{W0.REPEAT2CNT=4}SET{WC.LTR='LINK'};
ZZZZ010541	6340	=IF{W0.REPEAT2CNT=2}SET{WC.CU=};
ZZZZ010541	6350	*=LOGIN_SQL{BEGIN TRANSACTION};
ZZZZ010541	6360	***=IF_ERROR_LOGIN_SQL{
ZZZZ010541	6370	***=  CREATE USER ?WC.IS??WC.R_T##?_?WC.DIOL?_?WC.PER$$?
ZZZZ010541	6380	***=   WITH ?WC.CU? PASSWORD '?WC.PAS?'}
ZZZZ010541	6390	=IF_ERROR_LOGIN_ZZ_ADDLOGIN{?WC.LTR?}
ZZZZ010541	6400	=  {?WC.IS??WC.R_T##?_?WC.DIOL?_?WC.PER$$?}{?WC.CU?}
ZZZZ010541	6410	=  IF{_DB_I_ERROR!='EXIST'}ERROR{LOGIN_SQL ?_DB_ERROR?};
ZZZZ010541	6420	*=LOGIN_SQL{COMMIT TRANSACTION};
ZZZZ010541	6430	REPEAT0=
ZZZZ010541	6440	*********( REVOKE PUBLIC )***********************************
ZZZZ010541	6450	=LOGIN_SQL{REVOKE ALL ON SCHEMA public from public};
ZZZZ010541	6460	*********( CREATE SCEMA )************************************
ZZZZ010541	6470	=MESSAGE{CREATE SCHEMA};
ZZZZ010541	6480	=SET{_LOWER='D',WC.D_L=_LOWER};
ZZZZ010541	6490	REPEAT0=$W0.PERMISSION
ZZZZ010541	6500	REPEAT=2  (WC.R_T##=R;T)
ZZZZ010541	6510	=SET{W0.REPEAT2CNT=0};
ZZZZ010541	6520	REPEAT2=2 (WC.M_W--=M;W)
ZZZZ010541	6530	=COMPUTE{W0.REPEAT2CNT+=1};
ZZZZ010541	6540	=SET{WC.M_W=WC.M_W?W0.REPEAT2CNT?};
ZZZZ010541	6550	=IF_ERROR_LOGIN_SQL{
ZZZZ010541	6560	= CREATE SCHEMA ?WC.IS??WC.R_T##?_?WC.M_W?_?WC.PER$$?
ZZZZ010541	6570	=   AUTHORIZATION ?WC.IS??WC.R_T##?_?WC.D_L?_?WC.PER$$?}
ZZZZ010541	6580	=  IF{_DB_I_ERROR!='EXIST'}ERROR{?_DB_ERROR? ?_ERROR?};
ZZZZ010541	6590	=LOGIN_SQL{GRANT USAGE ON SCHEMA
ZZZZ010541	6600	=  ?WC.IS??WC.R_T##?_?WC.M_W?_?WC.PER$$? TO PUBLIC};
ZZZZ010541	6610	REPEAT0=
ZZZZ010541	6620	*************( GRANT ALL )***********************************
ZZZZ010541	6630	=SET{_LOWER='R_D_ZZZZ',WC.R_D_ZZZZ_L=_LOWER};
ZZZZ010541	6640	REPEAT0=$W0.PERMISSION
ZZZZ010541	6650	=MESSAGE{GRANT ...(?WC.PER$$?)};
ZZZZ010541	6660	REPEAT=3
ZZZZ010541	6670	=SET{_LOWER='ZZZZ',WC.PERX=_LOWER,WC.ZZZZ=_LOWER};
ZZZZ010541	6680	=SET{W0.REPEAT2CNT=0};
ZZZZ010541	6690	REPEAT2=2 (WC.PER--;ZZZZ;自分))
ZZZZ010541	6700	=COMPUTE{W0.REPEAT2CNT+=1};
ZZZZ010541	6710	=IF{W0.REPEAT2CNT=2}SET{_LOWER=WC.PER$$,WC.PERX=_LOWER};
ZZZZ010541	6720	=SET{WC.G
ZZZZ010541	6730	= ='GRANT ALL PRIVILEGES ON SCHEMA ?WC.IS??WC.RTT##?'};
ZZZZ010541	6740	=LOGIN_SQL{?WC.G?_M_?WC.PER$$? TO ?WC.IS??WC.R_D_ZZZZ_L?};
ZZZZ010541	6750	=LOGIN_SQL{?WC.G?_M_?WC.PER$$? TO
ZZZZ010541	6760	= ?WC.IS??WC.RRT##?_D_?WC.PERX?};
ZZZZ010541	6770	=LOGIN_SQL{?WC.G?_W_?WC.PER$$? TO
ZZZZ010541	6780	= ?WC.IS??WC.RRT##?_D_?WC.PERX?};
ZZZZ010541	6790	=LOGIN_SQL{?WC.G?_W_?WC.PER$$? TO
ZZZZ010541	6800	= ?WC.IS??WC.RRT##?_I_?WC.PERX?};
ZZZZ010541	6810	=LOGIN_SQL{?WC.G?_W_?WC.PER$$? TO
ZZZZ010541	6820	= ?WC.IS??WC.RRT##?_O_?WC.PERX?};
ZZZZ010541	6830	=IF{WC.PER$$=WC.ZZZZ}JUMP{SKIP};
ZZZZ010541	6840	REPEAT2=
ZZZZ010541	6850	=SKIP:
ZZZZ010541	6860	REPEAT0=
ZZZZ010541	6870	REPEAT0=2
ZZZZ010541	6880	=SET{_UPPER=WC.R_T$$,WC.R_T$$=_UPPER};
ZZZZ010541	6890	=SET{_UPPER=WC.M_W$$,WC.M_W$$=_UPPER};
ZZZZ010541	6900	REPEAT0=
ZZZZ010541	6910	=IF{_DB_SOFT>='P15'}JUMP{P15};
ZZZZ010541	6920	=LOGIN_SQL{GRANT EXECUTE ON FUNCTION PG_START_BACKUP
ZZZZ010541	6930	=  TO ?WC.IS??_L(R_D_ZZZZ)?};
ZZZZ010541	6940	=LOGIN_SQL{GRANT EXECUTE ON FUNCTION PG_STOP_BACKUP()
ZZZZ010541	6950	=  TO ?WC.IS??_L(R_D_ZZZZ)?};
ZZZZ010541	6960	=JUMP{P_SKIP};
ZZZZ010541	6970	=P15:
ZZZZ010541	6980	=LOGIN_SQL{GRANT EXECUTE ON FUNCTION PG_BACKUP_START
ZZZZ010541	6990	=  TO ?WC.IS??_L(R_D_ZZZZ)?};
ZZZZ010541	7000	=LOGIN_SQL{GRANT EXECUTE ON FUNCTION PG_BACKUP_STOP
ZZZZ010541	7010	=  TO ?WC.IS??_L(R_D_ZZZZ)?};
ZZZZ010541	7020	=JUMP{P_SKIP};
ZZZZ010541	7030	********( CREATE VIEW )**************************************
ZZZZ010541	7040	*****( OBJECT_VIEW )*****************************************
ZZZZ010541	7050	NAME=P_OBJECT_VIEW
ZZZZ010541	7060	=SET{WC.ADSRC='D.ADSRC'};
ZZZZ010541	7070	=IF_NOT{_DB_SOFT/'P9'}IF{_DB_SOFT>='P12'}
ZZZZ010541	7080	=   SET{WC.ADSRC='PG_GET_EXPR(D.ADBIN,D.ADRELID)'};
ZZZZ010541	7090	=SET{WC.I=WC.INSERT+'''P'','};
ZZZZ010541	7100	COPY=ADD10
ZZZZ010541	7110	=SQL{?WC?'(SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	7120	COPY=ADD10
ZZZZ010541	7130	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME,SYSTEM_TEXT')};
ZZZZ010541	7140	COPY=ADD10
ZZZZ010541	7150	=SQL{?WC?',SYSTEM_ADD_DATE17,SYSTEM_CHANGE_DATE17')};
ZZZZ010541	7160	COPY=ADD10
ZZZZ010541	7170	=SQL{?WC?',TYPES) AS SELECT')};
ZZZZ010541	7180	COPY=ADD10
ZZZZ010541	7190	=SQL{?WC?' CAST(''TABLE''  AS CHAR(5))')};
ZZZZ010541	7200	COPY=ADD10
ZZZZ010541	7210	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	7220	COPY=ADD10
ZZZZ010541	7230	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	7240	COPY=ADD10
ZZZZ010541	7250	=SQL{?WC?',CAST(UPPER(SUBSTR(TABLEOWNER')};
ZZZZ010541	7260	COPY=ADD10
ZZZZ010541	7270	=SQL{?WC?',LENGTH(TABLEOWNER)-5,1)) AS CHAR(1))')};
ZZZZ010541	7280	COPY=ADD10
ZZZZ010541	7290	=SQL{?WC?',CAST(UPPER(TABLENAME) AS CHAR(30))')};
ZZZZ010541	7300	COPY=ADD10
ZZZZ010541	7310	=SQL{?WC?',CAST('' '' AS VARCHAR(4000))')};
ZZZZ010541	7320	COPY=ADD10
ZZZZ010541	7330	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	7340	COPY=ADD10
ZZZZ010541	7350	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	7360	COPY=ADD10
ZZZZ010541	7370	=SQL{?WC?',CAST('' '' AS VARCHAR(4000))')};
ZZZZ010541	7380	COPY=ADD10
ZZZZ010541	7390	=SQL{?WC?' FROM PG_TABLES WHERE ')};
ZZZZ010541	7400	COPY=ADD10
ZZZZ010541	7410	=SQL{?WC?' SCHEMANAME')};
ZZZZ010541	7420	COPY=ADD10
ZZZZ010541	7430	=SQL{?WC?'=LOWER(''?WC.P_DB?'')')};
ZZZZ010541	7440	COPY=ADD10
ZZZZ010541	7450	=SQL{?WC?' UNION SELECT')};
ZZZZ010541	7460	COPY=ADD10
ZZZZ010541	7470	=SQL{?WC?' CAST(''VIEW''  AS CHAR(5))')};
ZZZZ010541	7480	COPY=ADD10
ZZZZ010541	7490	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	7500	COPY=ADD10
ZZZZ010541	7510	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	7520	COPY=ADD10
ZZZZ010541	7530	=SQL{?WC?',CAST(UPPER(SUBSTR(VIEWOWNER')};
ZZZZ010541	7540	COPY=ADD10
ZZZZ010541	7550	=SQL{?WC?',LENGTH(VIEWOWNER)-5,1)) AS CHAR(1))')};
ZZZZ010541	7560	COPY=ADD10
ZZZZ010541	7570	=SQL{?WC?',CAST(UPPER(VIEWNAME) AS CHAR(30))')};
ZZZZ010541	7580	COPY=ADD10
ZZZZ010541	7590	=SQL{?WC?',CAST(DEFINITION AS VARCHAR(4000))')};
ZZZZ010541	7600	COPY=ADD10
ZZZZ010541	7610	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	7620	COPY=ADD10
ZZZZ010541	7630	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	7640	COPY=ADD10
ZZZZ010541	7650	=SQL{?WC?',CAST('' '' AS VARCHAR(4000))')};
ZZZZ010541	7660	COPY=ADD10
ZZZZ010541	7670	=SQL{?WC?' FROM PG_VIEWS WHERE')};
ZZZZ010541	7680	COPY=ADD10
ZZZZ010541	7690	=SQL{?WC?' SCHEMANAME')};
ZZZZ010541	7700	COPY=ADD10
ZZZZ010541	7710	=SQL{?WC?'=LOWER(''?WC.P_DB?'')')};
ZZZZ010541	7720	COPY=ADD10
ZZZZ010541	7730	=SQL{?WC?' UNION SELECT CAST(''FUNC''  AS CHAR(5))')};
ZZZZ010541	7740	COPY=ADD10
ZZZZ010541	7750	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	7760	COPY=ADD10
ZZZZ010541	7770	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	7780	COPY=ADD10
ZZZZ010541	7790	=SQL{?WC?',CAST(UPPER(SUBSTR(USENAME')};
ZZZZ010541	7800	COPY=ADD10
ZZZZ010541	7810	=SQL{?WC?',LENGTH(USENAME)-5,1)) AS CHAR(1))')};
ZZZZ010541	7820	COPY=ADD10
ZZZZ010541	7830	=SQL{?WC?',CAST(UPPER(PRONAME) AS CHAR(30))')};
ZZZZ010541	7840	COPY=ADD10
ZZZZ010541	7850	=SQL{?WC?',CAST(PROSRC AS VARCHAR(4000))')};
ZZZZ010541	7860	COPY=ADD10
ZZZZ010541	7870	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	7880	COPY=ADD10
ZZZZ010541	7890	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	7900	COPY=ADD10
ZZZZ010541	7910	=SQL{?WC?',CAST( UPPER(''(''||CASE')};
ZZZZ010541	7920	COPY=ADD10
ZZZZ010541	7930	=SQL{?WC?' WHEN PRONARGS=0 THEN '''' ELSE')};
ZZZZ010541	7940	COPY=ADD10
ZZZZ010541	7950	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	7960	COPY=ADD10
ZZZZ010541	7970	=SQL{?WC?' OID=PROARGTYPES[0])END')};
ZZZZ010541	7980	COPY=ADD10
ZZZZ010541	7990	=SQL{?WC?'||CASE WHEN PRONARGS<2 THEN ''''')};
ZZZZ010541	8000	COPY=ADD10
ZZZZ010541	8010	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	8020	COPY=ADD10
ZZZZ010541	8030	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	8040	COPY=ADD10
ZZZZ010541	8050	=SQL{?WC?' OID=PROARGTYPES[1])END')};
ZZZZ010541	8060	COPY=ADD10
ZZZZ010541	8070	=SQL{?WC?'||CASE WHEN PRONARGS<3 THEN ''''')};
ZZZZ010541	8080	COPY=ADD10
ZZZZ010541	8090	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	8100	COPY=ADD10
ZZZZ010541	8110	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	8120	COPY=ADD10
ZZZZ010541	8130	=SQL{?WC?' OID=PROARGTYPES[2])END')};
ZZZZ010541	8140	COPY=ADD10
ZZZZ010541	8150	=SQL{?WC?'||CASE WHEN PRONARGS<4 THEN ''''')};
ZZZZ010541	8160	COPY=ADD10
ZZZZ010541	8170	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	8180	COPY=ADD10
ZZZZ010541	8190	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE')};
ZZZZ010541	8200	COPY=ADD10
ZZZZ010541	8210	=SQL{?WC?' WHERE OID=PROARGTYPES[3])END')};
ZZZZ010541	8220	COPY=ADD10
ZZZZ010541	8230	=SQL{?WC?'||CASE WHEN PRONARGS<5 THEN ''''')};
ZZZZ010541	8240	COPY=ADD10
ZZZZ010541	8250	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	8260	COPY=ADD10
ZZZZ010541	8270	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	8280	COPY=ADD10
ZZZZ010541	8290	=SQL{?WC?' OID=PROARGTYPES[4])END')};
ZZZZ010541	8300	COPY=ADD10
ZZZZ010541	8310	=SQL{?WC?'||CASE WHEN PRONARGS<6 THEN ''''')};
ZZZZ010541	8320	COPY=ADD10
ZZZZ010541	8330	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	8340	COPY=ADD10
ZZZZ010541	8350	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	8360	COPY=ADD10
ZZZZ010541	8370	=SQL{?WC?' OID=PROARGTYPES[5])END')};
ZZZZ010541	8380	COPY=ADD10
ZZZZ010541	8390	=SQL{?WC?'||CASE WHEN PRONARGS<7 THEN ''''')};
ZZZZ010541	8400	COPY=ADD10
ZZZZ010541	8410	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	8420	COPY=ADD10
ZZZZ010541	8430	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	8440	COPY=ADD10
ZZZZ010541	8450	=SQL{?WC?' OID=PROARGTYPES[6])END')};
ZZZZ010541	8460	COPY=ADD10
ZZZZ010541	8470	=SQL{?WC?'||CASE WHEN PRONARGS<8 THEN ''''')};
ZZZZ010541	8480	COPY=ADD10
ZZZZ010541	8490	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	8500	COPY=ADD10
ZZZZ010541	8510	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	8520	COPY=ADD10
ZZZZ010541	8530	=SQL{?WC?' OID=PROARGTYPES[7])END')};
ZZZZ010541	8540	COPY=ADD10
ZZZZ010541	8550	=SQL{?WC?'||CASE WHEN PRONARGS<9 THEN ''''')};
ZZZZ010541	8560	COPY=ADD10
ZZZZ010541	8570	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	8580	COPY=ADD10
ZZZZ010541	8590	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	8600	COPY=ADD10
ZZZZ010541	8610	=SQL{?WC?' OID=PROARGTYPES[8])END')};
ZZZZ010541	8620	COPY=ADD10
ZZZZ010541	8630	=SQL{?WC?'||CASE WHEN PRONARGS<10 THEN ''''')};
ZZZZ010541	8640	COPY=ADD10
ZZZZ010541	8650	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	8660	COPY=ADD10
ZZZZ010541	8670	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	8680	COPY=ADD10
ZZZZ010541	8690	=SQL{?WC?' OID=PROARGTYPES[9])END')};
ZZZZ010541	8700	COPY=ADD10
ZZZZ010541	8710	=SQL{?WC?'||CASE WHEN PRONARGS<11 THEN ''''')};
ZZZZ010541	8720	COPY=ADD10
ZZZZ010541	8730	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	8740	COPY=ADD10
ZZZZ010541	8750	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	8760	COPY=ADD10
ZZZZ010541	8770	=SQL{?WC?' OID=PROARGTYPES[10])END')};
ZZZZ010541	8780	COPY=ADD10
ZZZZ010541	8790	=SQL{?WC?'||CASE WHEN PRONARGS<12 THEN ''''')};
ZZZZ010541	8800	COPY=ADD10
ZZZZ010541	8810	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	8820	COPY=ADD10
ZZZZ010541	8830	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	8840	COPY=ADD10
ZZZZ010541	8850	=SQL{?WC?' OID=PROARGTYPES[11])END')};
ZZZZ010541	8860	COPY=ADD10
ZZZZ010541	8870	=SQL{?WC?'||CASE WHEN PRONARGS<13 THEN ''''')};
ZZZZ010541	8880	COPY=ADD10
ZZZZ010541	8890	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	8900	COPY=ADD10
ZZZZ010541	8910	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	8920	COPY=ADD10
ZZZZ010541	8930	=SQL{?WC?' OID=PROARGTYPES[12])END')};
ZZZZ010541	8940	COPY=ADD10
ZZZZ010541	8950	=SQL{?WC?'||CASE WHEN PRONARGS<14 THEN ''''')};
ZZZZ010541	8960	COPY=ADD10
ZZZZ010541	8970	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	8980	COPY=ADD10
ZZZZ010541	8990	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	9000	COPY=ADD10
ZZZZ010541	9010	=SQL{?WC?' OID=PROARGTYPES[13])END')};
ZZZZ010541	9020	COPY=ADD10
ZZZZ010541	9030	=SQL{?WC?'||CASE WHEN PRONARGS<15 THEN ''''')};
ZZZZ010541	9040	COPY=ADD10
ZZZZ010541	9050	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	9060	COPY=ADD10
ZZZZ010541	9070	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	9080	COPY=ADD10
ZZZZ010541	9090	=SQL{?WC?' OID=PROARGTYPES[14])END')};
ZZZZ010541	9100	COPY=ADD10
ZZZZ010541	9110	=SQL{?WC?'||CASE WHEN PRONARGS<16 THEN ''''')};
ZZZZ010541	9120	COPY=ADD10
ZZZZ010541	9130	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	9140	COPY=ADD10
ZZZZ010541	9150	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	9160	COPY=ADD10
ZZZZ010541	9170	=SQL{?WC?' OID=PROARGTYPES[15])END')};
ZZZZ010541	9180	COPY=ADD10
ZZZZ010541	9190	=SQL{?WC?'||CASE WHEN PRONARGS<17 THEN ''''')};
ZZZZ010541	9200	COPY=ADD10
ZZZZ010541	9210	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	9220	COPY=ADD10
ZZZZ010541	9230	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	9240	COPY=ADD10
ZZZZ010541	9250	=SQL{?WC?' OID=PROARGTYPES[16])END')};
ZZZZ010541	9260	COPY=ADD10
ZZZZ010541	9270	=SQL{?WC?'||CASE WHEN PRONARGS<18 THEN ''''')};
ZZZZ010541	9280	COPY=ADD10
ZZZZ010541	9290	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	9300	COPY=ADD10
ZZZZ010541	9310	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	9320	COPY=ADD10
ZZZZ010541	9330	=SQL{?WC?' OID=PROARGTYPES[17])END')};
ZZZZ010541	9340	COPY=ADD10
ZZZZ010541	9350	=SQL{?WC?'||CASE WHEN PRONARGS<19 THEN ''''')};
ZZZZ010541	9360	COPY=ADD10
ZZZZ010541	9370	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	9380	COPY=ADD10
ZZZZ010541	9390	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	9400	COPY=ADD10
ZZZZ010541	9410	=SQL{?WC?' OID=PROARGTYPES[18])END')};
ZZZZ010541	9420	COPY=ADD10
ZZZZ010541	9430	=SQL{?WC?'||CASE WHEN PRONARGS<20 THEN ''''')};
ZZZZ010541	9440	COPY=ADD10
ZZZZ010541	9450	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	9460	COPY=ADD10
ZZZZ010541	9470	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	9480	COPY=ADD10
ZZZZ010541	9490	=SQL{?WC?' OID=PROARGTYPES[19])END')};
ZZZZ010541	9500	COPY=ADD10
ZZZZ010541	9510	=SQL{?WC?'||CASE WHEN PRONARGS<21 THEN ''''')};
ZZZZ010541	9520	COPY=ADD10
ZZZZ010541	9530	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	9540	COPY=ADD10
ZZZZ010541	9550	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	9560	COPY=ADD10
ZZZZ010541	9570	=SQL{?WC?' OID=PROARGTYPES[20])END')};
ZZZZ010541	9580	COPY=ADD10
ZZZZ010541	9590	=SQL{?WC?'||CASE WHEN PRONARGS<22 THEN ''''')};
ZZZZ010541	9600	COPY=ADD10
ZZZZ010541	9610	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	9620	COPY=ADD10
ZZZZ010541	9630	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	9640	COPY=ADD10
ZZZZ010541	9650	=SQL{?WC?' OID=PROARGTYPES[21])END')};
ZZZZ010541	9660	COPY=ADD10
ZZZZ010541	9670	=SQL{?WC?'||CASE WHEN PRONARGS<23 THEN ''''')};
ZZZZ010541	9680	COPY=ADD10
ZZZZ010541	9690	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	9700	COPY=ADD10
ZZZZ010541	9710	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	9720	COPY=ADD10
ZZZZ010541	9730	=SQL{?WC?' OID=PROARGTYPES[22])END')};
ZZZZ010541	9740	COPY=ADD10
ZZZZ010541	9750	=SQL{?WC?'||CASE WHEN PRONARGS<24 THEN ''''')};
ZZZZ010541	9760	COPY=ADD10
ZZZZ010541	9770	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	9780	COPY=ADD10
ZZZZ010541	9790	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	9800	COPY=ADD10
ZZZZ010541	9810	=SQL{?WC?' OID=PROARGTYPES[23])END')};
ZZZZ010541	9820	COPY=ADD10
ZZZZ010541	9830	=SQL{?WC?'||CASE WHEN PRONARGS<25 THEN ''''')};
ZZZZ010541	9840	COPY=ADD10
ZZZZ010541	9850	=SQL{?WC?' ELSE '',''||')};
ZZZZ010541	9860	COPY=ADD10
ZZZZ010541	9870	=SQL{?WC?'(SELECT TYPNAME FROM PG_TYPE WHERE')};
ZZZZ010541	9880	COPY=ADD10
ZZZZ010541	9890	=SQL{?WC?' OID=PROARGTYPES[24])END')};
ZZZZ010541	9900	COPY=ADD10
ZZZZ010541	9910	=SQL{?WC?'||'')'') AS VARCHAR(4000))')};
ZZZZ010541	9920	COPY=ADD10
ZZZZ010541	9930	=SQL{?WC?' FROM PG_PROC P')};
ZZZZ010541	9940	COPY=ADD10
ZZZZ010541	9950	=SQL{?WC?' ,PG_USER U WHERE PROOWNER=USESYSID')};
ZZZZ010541	9960	COPY=ADD10
ZZZZ010541	9970	=SQL{?WC?' AND USENAME')};
ZZZZ010541	9980	COPY=ADD10
ZZZZ010541	9990	=SQL{?WC?' ?WC.P_OWNER1?')};
ZZZZ010541	10000	COPY=ADD10
ZZZZ010541	10010	=SQL{?WC?' ?WC.P_OWNER2?')};
ZZZZ010541	10020	*****( COLUMN_VIEW )*****************************************
ZZZZ010541	10030	NAME=P_COLUMN_VIEW
ZZZZ010541	10040	=SET{WC.I=WC.INSERT+'''P'','};
ZZZZ010541	10050	COPY=ADD10
ZZZZ010541	10060	=SQL{?WC?'(SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	10070	COPY=ADD10
ZZZZ010541	10080	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME,SYSTEM_SEQ')};
ZZZZ010541	10090	COPY=ADD10
ZZZZ010541	10100	=SQL{?WC?',SYSTEM_DATA_NAME,SYSTEM_DEFAULT_TYPE')};
ZZZZ010541	10110	COPY=ADD10
ZZZZ010541	10120	=SQL{?WC?',SYSTEM_DEFAULT_LENGTH1,SYSTEM_DEFAULT_LENGTH2')};
ZZZZ010541	10130	COPY=ADD10
ZZZZ010541	10140	=SQL{?WC?',SYSTEM_DEFAULT,SYSTEM_NULL)')};
ZZZZ010541	10150	COPY=ADD10
ZZZZ010541	10160	=SQL{?WC?' AS SELECT CAST(''TABLE'' AS CHAR(5))')};
ZZZZ010541	10170	COPY=ADD10
ZZZZ010541	10180	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	10190	COPY=ADD10
ZZZZ010541	10200	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	10210	COPY=ADD10
ZZZZ010541	10220	=SQL{?WC?',CAST(UPPER(SUBSTR(TABLEOWNER')};
ZZZZ010541	10230	COPY=ADD10
ZZZZ010541	10240	=SQL{?WC?',LENGTH(TABLEOWNER)-5,1)) AS CHAR(1))')};
ZZZZ010541	10250	NAME2=P_COLUMN
ZZZZ010541	10260	COPY=ADD10
ZZZZ010541	10270	=SQL{?WC?',CAST(UPPER(C.RELNAME) AS CHAR(30))')};
ZZZZ010541	10280	COPY=ADD10
ZZZZ010541	10290	=SQL{?WC?',A.ATTNUM,CAST(UPPER(A.ATTNAME) AS CHAR(30))')};
ZZZZ010541	10300	COPY=ADD10
ZZZZ010541	10310	=SQL{?WC?',CAST(CASE UPPER(TYPNAME)')};
ZZZZ010541	10320	COPY=ADD10
ZZZZ010541	10330	=SQL{?WC?' WHEN ''NUMERIC'' THEN CHAR ''DECIMAL''')};
ZZZZ010541	10340	COPY=ADD10
ZZZZ010541	10350	=SQL{?WC?' WHEN ''INT4'' THEN CHAR ''INT''')};
ZZZZ010541	10360	COPY=ADD10
ZZZZ010541	10370	=SQL{?WC?' WHEN ''INT2'' THEN CHAR ''INT''')};
ZZZZ010541	10380	COPY=ADD10
ZZZZ010541	10390	=SQL{?WC?' WHEN ''FLOAT8'' THEN CHAR ''FLOAT''')};
ZZZZ010541	10400	COPY=ADD10
ZZZZ010541	10410	=SQL{?WC?' WHEN ''TIMESTAMP'' THEN CHAR ''DATETIME''')};
ZZZZ010541	10420	COPY=ADD10
ZZZZ010541	10430	=SQL{?WC?' WHEN  ''VARCHAR'' THEN ')};
ZZZZ010541	10440	COPY=ADD10
ZZZZ010541	10450	=SQL{?WC?' CASE SYSTEM_DEFAULT_TYPE')};
ZZZZ010541	10460	COPY=ADD10
ZZZZ010541	10470	=SQL{?WC?' WHEN ''NVARCHAR'' THEN ''NVARCHAR''')};
ZZZZ010541	10480	COPY=ADD10
ZZZZ010541	10490	=SQL{?WC?' ELSE ''VARCHAR'' END')};
ZZZZ010541	10500	COPY=ADD10
ZZZZ010541	10510	=SQL{?WC?' ELSE')};
ZZZZ010541	10520	COPY=ADD10
ZZZZ010541	10530	=SQL{?WC?' CASE WHEN  UPPER(TYPNAME)')};
ZZZZ010541	10540	COPY=ADD10
ZZZZ010541	10550	=SQL{?WC?' IN(''BPCHAR'',''CHAR'') THEN')};
ZZZZ010541	10560	COPY=ADD10
ZZZZ010541	10570	=SQL{?WC?' CASE SYSTEM_DEFAULT_TYPE')};
ZZZZ010541	10580	COPY=ADD10
ZZZZ010541	10590	=SQL{?WC?' WHEN ''NCHAR'' THEN ''NCHAR''')};
ZZZZ010541	10600	COPY=ADD10
ZZZZ010541	10610	=SQL{?WC?' ELSE ''CHAR'' END')};
ZZZZ010541	10620	COPY=ADD10
ZZZZ010541	10630	=SQL{?WC?' ELSE UPPER(TYPNAME) END')};
ZZZZ010541	10640	COPY=ADD10
ZZZZ010541	10650	=SQL{?WC?' END AS CHAR(9))')};
ZZZZ010541	10660	COPY=ADD10
ZZZZ010541	10670	=SQL{?WC?',CAST(CASE WHEN UPPER(TYPNAME)')};
ZZZZ010541	10680	COPY=ADD10
ZZZZ010541	10690	=SQL{?WC?' IN(''BPCHAR'',''VARCHAR'')')};
ZZZZ010541	10700	COPY=ADD10
ZZZZ010541	10710	=SQL{?WC?' THEN A.ATTTYPMOD-4 ')};
ZZZZ010541	10720	COPY=ADD10
ZZZZ010541	10730	=SQL{?WC?' ELSE CASE UPPER(TYPNAME)')};
ZZZZ010541	10740	COPY=ADD10
ZZZZ010541	10750	=SQL{?WC?' WHEN ''NUMERIC''')};
ZZZZ010541	10760	COPY=ADD10
ZZZZ010541	10770	=SQL{?WC?' THEN (A.ATTTYPMOD-4)/65536 ')};
ZZZZ010541	10780	COPY=ADD10
ZZZZ010541	10790	=SQL{?WC?' WHEN ''TIMESTAMP'' THEN 17')};
ZZZZ010541	10800	COPY=ADD10
ZZZZ010541	10810	=SQL{?WC?' WHEN ''DATE'' THEN 8')};
ZZZZ010541	10820	COPY=ADD10
ZZZZ010541	10830	=SQL{?WC?' WHEN ''TEXT'' THEN 4000')};
ZZZZ010541	10840	COPY=ADD10
ZZZZ010541	10850	=SQL{?WC?' ELSE 9 END END AS INT)')};
ZZZZ010541	10860	COPY=ADD10
ZZZZ010541	10870	=SQL{?WC?',CAST(CASE UPPER(TYPNAME)')};
ZZZZ010541	10880	COPY=ADD10
ZZZZ010541	10890	=SQL{?WC?' WHEN ''NUMERIC''')};
ZZZZ010541	10900	COPY=ADD10
ZZZZ010541	10910	=SQL{?WC?' THEN (A.ATTTYPMOD-4)%65536')};
ZZZZ010541	10920	COPY=ADD10
ZZZZ010541	10930	=SQL{?WC?' ELSE 0 END AS INT)')};
ZZZZ010541	10940	COPY=ADD10
ZZZZ010541	10950	=SQL{?WC?',CAST(REPLACE(REPLACE(REPLACE')};
ZZZZ010541	10960	COPY=ADD10
ZZZZ010541	10970	=SQL{?WC?'(UPPER(?WC.ADSRC?),''::BPCHAR'','''')')};
ZZZZ010541	10980	COPY=ADD10
ZZZZ010541	10990	=SQL{?WC?',''::CHARACTER VARYING'','''')')};
ZZZZ010541	11000	COPY=ADD10
ZZZZ010541	11010	=SQL{?WC?',''(''''NOW''''::TEXT)::DATE''')};
ZZZZ010541	11020	COPY=ADD10
ZZZZ010541	11030	=SQL{?WC?',''CURRENT_DATE'') AS CHAR(30))')};
ZZZZ010541	11040	COPY=ADD10
ZZZZ010541	11050	=SQL{?WC?',CAST(CASE WHEN A.ATTNOTNULL')};
ZZZZ010541	11060	COPY=ADD10
ZZZZ010541	11070	=SQL{?WC?' THEN ''0'' ELSE ''1'' END')};
ZZZZ010541	11080	COPY=ADD10
ZZZZ010541	11090	=SQL{?WC?' AS CHAR(1)) FROM PG_CLASS C JOIN ')};
ZZZZ010541	11100	NAME2=
ZZZZ010541	11110	COPY=ADD10
ZZZZ010541	11120	=SQL{?WC?' PG_TABLES T')};
ZZZZ010541	11130	COPY=ADD10
ZZZZ010541	11140	=SQL{?WC?' ON C.RELNAME=T.TABLENAME')};
ZZZZ010541	11150	COPY=ADD10
ZZZZ010541	11160	=SQL{?WC?' AND C.RELKIND=LOWER(''R'') AND')};
ZZZZ010541	11170	COPY=ADD10
ZZZZ010541	11180	=SQL{?WC?' T.SCHEMANAME')};
ZZZZ010541	11190	COPY=ADD10
ZZZZ010541	11200	=SQL{?WC?'=LOWER(''?WC.P_DB?'')')};
ZZZZ010541	11210	COPY=ADD10
ZZZZ010541	11220	=SQL{?WC?' JOIN PG_USER U')};
ZZZZ010541	11230	COPY=ADD10
ZZZZ010541	11240	=SQL{?WC?' ON U.USENAME=T.TABLEOWNER')};
ZZZZ010541	11250	NAME2=P_COLUMN_JOIN
ZZZZ010541	11260	COPY=ADD10
ZZZZ010541	11270	=SQL{?WC?' AND C.RELOWNER=U.USESYSID')};
ZZZZ010541	11280	COPY=ADD10
ZZZZ010541	11290	=SQL{?WC?' JOIN PG_ATTRIBUTE A')};
ZZZZ010541	11300	COPY=ADD10
ZZZZ010541	11310	=SQL{?WC?' ON C.OID=A.ATTRELID')};
ZZZZ010541	11320	COPY=ADD10
ZZZZ010541	11330	=SQL{?WC?' AND A.ATTNUM>0')};
ZZZZ010541	11340	COPY=ADD10
ZZZZ010541	11350	=SQL{?WC?' JOIN PG_TYPE TY')};
ZZZZ010541	11360	COPY=ADD10
ZZZZ010541	11370	=SQL{?WC?' ON A.ATTTYPID=TY.OID')};
ZZZZ010541	11380	COPY=ADD10
ZZZZ010541	11390	=SQL{?WC?' LEFT JOIN PG_ATTRDEF D')};
ZZZZ010541	11400	COPY=ADD10
ZZZZ010541	11410	=SQL{?WC?' ON C.OID=D.ADRELID')};
ZZZZ010541	11420	COPY=ADD10
ZZZZ010541	11430	=SQL{?WC?' AND A.ATTNUM=D.ADNUM LEFT JOIN')};
ZZZZ010541	11440	COPY=ADD10
ZZZZ010541	11450	=SQL{?WC?' I_?_Q?_SYSTEM?_Q?_R_M_ZZZZ')};
ZZZZ010541	11460	COPY=ADD10
ZZZZ010541	11470	=SQL{?WC?'.ZZZZZZ_I_DICTIONARY_TABLE')};
ZZZZ010541	11480	COPY=ADD10
ZZZZ010541	11490	=SQL{?WC?' ON UPPER(A.ATTNAME)')};
ZZZZ010541	11500	COPY=ADD10
ZZZZ010541	11510	=SQL{?WC?'=SYSTEM_DATA_NAME')};
ZZZZ010541	11520	COPY=ADD10
ZZZZ010541	11530	=SQL{?WC?' AND SYSTEM_PERMISSION=''?WC.PER?''')};
ZZZZ010541	11540	COPY=ADD10
ZZZZ010541	11550	=SQL{?WC?' AND SYSTEM_LANG=''?_LANG_SYSTEM?''')};
ZZZZ010541	11560	NAME2=
ZZZZ010541	11570	COPY=ADD10
ZZZZ010541	11580	=SQL{?WC?' UNION SELECT')};
ZZZZ010541	11590	COPY=ADD10
ZZZZ010541	11600	=SQL{?WC?' CAST(''VIEW'' AS CHAR(5))')};
ZZZZ010541	11610	COPY=ADD10
ZZZZ010541	11620	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?''')};
ZZZZ010541	11630	COPY=ADD10
ZZZZ010541	11640	=SQL{?WC?' AS CHAR(4))')};
ZZZZ010541	11650	COPY=ADD10
ZZZZ010541	11660	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	11670	COPY=ADD10
ZZZZ010541	11680	=SQL{?WC?',CAST(UPPER(SUBSTR(VIEWOWNER')};
ZZZZ010541	11690	COPY=ADD10
ZZZZ010541	11700	=SQL{?WC?',LENGTH(VIEWOWNER)-5,1)) AS CHAR(1))')};
ZZZZ010541	11710	COPY=P_COLUMN
ZZZZ010541	11720	COPY=ADD10
ZZZZ010541	11730	=SQL{?WC?' PG_VIEWS T')};
ZZZZ010541	11740	COPY=ADD10
ZZZZ010541	11750	=SQL{?WC?' ON C.RELNAME=T.VIEWNAME')};
ZZZZ010541	11760	COPY=ADD10
ZZZZ010541	11770	=SQL{?WC?' AND C.RELKIND=LOWER(''V'') AND')};
ZZZZ010541	11780	COPY=ADD10
ZZZZ010541	11790	=SQL{?WC?' T.SCHEMANAME')};
ZZZZ010541	11800	COPY=ADD10
ZZZZ010541	11810	=SQL{?WC?'=LOWER(''?WC.P_DB?'')')};
ZZZZ010541	11820	COPY=ADD10
ZZZZ010541	11830	=SQL{?WC?' JOIN PG_USER U')};
ZZZZ010541	11840	COPY=ADD10
ZZZZ010541	11850	=SQL{?WC?' ON U.USENAME=T.VIEWOWNER')};
ZZZZ010541	11860	COPY=P_COLUMN_JOIN
ZZZZ010541	11870	*****( INDEX_VIEW )******************************************
ZZZZ010541	11880	NAME=P_INDEX_VIEW
ZZZZ010541	11890	=SET{WC.I=WC.INSERT+'''P'','};
ZZZZ010541	11900	COPY=ADD10
ZZZZ010541	11910	=SQL{?WC?'(SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	11920	COPY=ADD10
ZZZZ010541	11930	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME')};
ZZZZ010541	11940	COPY=ADD10
ZZZZ010541	11950	=SQL{?WC?',SYSTEM_DATA_NAME,SYSTEM_IX,SYSTEM_NO)')};
ZZZZ010541	11960	COPY=ADD10
ZZZZ010541	11970	=SQL{?WC?'AS SELECT')};
ZZZZ010541	11980	NAME2=P_SQL1
ZZZZ010541	11990	COPY=ADD10
ZZZZ010541	12000	=SQL{?WC?' CAST(''?_Q?_REAL_TEST?_Q?''')};
ZZZZ010541	12010	COPY=ADD10
ZZZZ010541	12020	=SQL{?WC?' AS CHAR(4))')};
ZZZZ010541	12030	COPY=ADD10
ZZZZ010541	12040	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	12050	COPY=ADD10
ZZZZ010541	12060	=SQL{?WC?',CAST(UPPER(SUBSTR(TABLEOWNER')};
ZZZZ010541	12070	COPY=ADD10
ZZZZ010541	12080	=SQL{?WC?',LENGTH(TABLEOWNER)-5,1)) AS CHAR(1))')};
ZZZZ010541	12090	COPY=ADD10
ZZZZ010541	12100	=SQL{?WC?',CAST(UPPER(I.TABLENAME) AS CHAR(30)),')};
ZZZZ010541	12110	NAME2=P_SPLIT
ZZZZ010541	12120	COPY=ADD10
ZZZZ010541	12130	=SQL{?WC?'CAST(TRIM(UPPER(TRIM(SPLIT_PART(')};
ZZZZ010541	12140	COPY=ADD10
ZZZZ010541	12150	=SQL{?WC?'SUBSTRING(INDEXDEF')};
ZZZZ010541	12160	COPY=ADD10
ZZZZ010541	12170	=SQL{?WC?',POSITION(''('' IN INDEXDEF)+1')};
ZZZZ010541	12180	COPY=ADD10
ZZZZ010541	12190	=SQL{?WC?',POSITION('')'' IN INDEXDEF)')};
ZZZZ010541	12200	COPY=ADD10
ZZZZ010541	12210	=SQL{?WC?'-POSITION(''('' IN INDEXDEF)-1)')};
ZZZZ010541	12220	COPY=ADD10
ZZZZ010541	12230	=SQL{?WC?','','',')};
ZZZZ010541	12240	NAME2=
ZZZZ010541	12250	COPY=ADD10
ZZZZ010541	12260	=SQL{?WC?' 1))),''"'') AS CHAR(30)),')};
ZZZZ010541	12270	NAME2=P_SQL2
ZZZZ010541	12280	COPY=ADD10
ZZZZ010541	12290	=SQL{?WC?' CAST(SUBSTRING(INDEXNAME')};
ZZZZ010541	12300	COPY=ADD10
ZZZZ010541	12310	=SQL{?WC?',LENGTH(TRIM(INDEXNAME)),1)')};
ZZZZ010541	12320	COPY=ADD10
ZZZZ010541	12330	=SQL{?WC?' AS CHAR(1))')};
ZZZZ010541	12340	COPY=ADD10
ZZZZ010541	12350	=SQL{?WC?',CAST(CASE WHEN INDEXDEF LIKE')};
ZZZZ010541	12360	COPY=ADD10
ZZZZ010541	12370	=SQL{?WC?' ''CREATE UNIQUE %'' THEN')};
ZZZZ010541	12380	NAME2=
ZZZZ010541	12390	COPY=ADD10
ZZZZ010541	12400	=SQL{?WC?' ''0'' ELSE ''1''')};
ZZZZ010541	12410	NAME2=P_SQL3
ZZZZ010541	12420	COPY=ADD10
ZZZZ010541	12430	=SQL{?WC?' END AS INT) FROM PG_INDEXES I')};
ZZZZ010541	12440	COPY=ADD10
ZZZZ010541	12450	=SQL{?WC?',PG_TABLES T')};
ZZZZ010541	12460	COPY=ADD10
ZZZZ010541	12470	=SQL{?WC?' WHERE I.TABLENAME=T.TABLENAME')};
ZZZZ010541	12480	COPY=ADD10
ZZZZ010541	12490	=SQL{?WC?' AND I.SCHEMANAME=T.SCHEMANAME AND')};
ZZZZ010541	12500	COPY=ADD10
ZZZZ010541	12510	=SQL{?WC?' I.SCHEMANAME')};
ZZZZ010541	12520	COPY=ADD10
ZZZZ010541	12530	=SQL{?WC?'=LOWER(''?WC.P_DB?'')')};
ZZZZ010541	12540	COPY=ADD10
ZZZZ010541	12550	=SQL{?WC?' AND TRIM('' '')<>')};
ZZZZ010541	12560	NAME2=
ZZZZ010541	12570	COPY=P_SPLIT
ZZZZ010541	12580	COPY=ADD10
ZZZZ010541	12590	=SQL{?WC?' 1))),''"'')')};
ZZZZ010541	12600	COPY=ADD10
ZZZZ010541	12610	=SQL{?WC?' AS CHAR(30)) ')};
ZZZZ010541	12620	**************************************************
ZZZZ010541	12630	=SET{W0.REPEAT2CNT=0};
ZZZZ010541	12640	*REPEAT2=8
ZZZZ010541	12650	=P_SQLX:
ZZZZ010541	12660	=COMPUTE{W0.REPEAT2CNT+=1
ZZZZ010541	12670	=  ,W0.REPEAT2CNT_P1=W0.REPEAT2CNT+1};
ZZZZ010541	12680	**************************************************
ZZZZ010541	12690	COPY=ADD10
ZZZZ010541	12700	=SQL{?WC?' UNION SELECT')};
ZZZZ010541	12710	COPY=P_SQL1
ZZZZ010541	12720	COPY=P_SPLIT
ZZZZ010541	12730	COPY=ADD10
ZZZZ010541	12740	=SQL{?WC?' ?W0.REPEAT2CNT_P1?))),''"'')')};
ZZZZ010541	12750	COPY=ADD10
ZZZZ010541	12760	=SQL{?WC?' AS CHAR(30)),')};
ZZZZ010541	12770	COPY=P_SQL2
ZZZZ010541	12780	COPY=ADD10
ZZZZ010541	12790	=SQL{?WC?' ''?W0.REPEAT2CNT?''')};
ZZZZ010541	12800	COPY=ADD10
ZZZZ010541	12810	=SQL{?WC?' ELSE ''?W0.REPEAT2CNT_P1?''')};
ZZZZ010541	12820	COPY=P_SQL3
ZZZZ010541	12830	COPY=P_SPLIT
ZZZZ010541	12840	COPY=ADD10
ZZZZ010541	12850	=SQL{?WC?' ?W0.REPEAT2CNT_P1?))),''"'')')};
ZZZZ010541	12860	COPY=ADD10
ZZZZ010541	12870	=SQL{?WC?' AS CHAR(30))')};
ZZZZ010541	12880	**************************************************
ZZZZ010541	12890	=IF{W0.REPEAT2CNT<8}BACK{P_SQLX};
ZZZZ010541	12900	**************************************************
ZZZZ010541	12910	COPY=ADD10
ZZZZ010541	12920	=SQL{?WC?' UNION SELECT')};
ZZZZ010541	12930	COPY=P_SQL1
ZZZZ010541	12940	COPY=P_SPLIT
ZZZZ010541	12950	COPY=ADD10
ZZZZ010541	12960	=SQL{?WC?' 10))),''"'') AS CHAR(30)),')};
ZZZZ010541	12970	COPY=P_SQL2
ZZZZ010541	12980	COPY=ADD10
ZZZZ010541	12990	=SQL{?WC?' ''9'' ELSE ''0''')};
ZZZZ010541	13000	COPY=P_SQL3
ZZZZ010541	13010	COPY=P_SPLIT
ZZZZ010541	13020	COPY=ADD10
ZZZZ010541	13030	=SQL{?WC?' 10))),''"'') AS CHAR(30))')};
ZZZZ010541	13040	*****( GRANT_VIEW )******************************************
ZZZZ010541	13050	NAME=P_GRANT_VIEW
ZZZZ010541	13060	=SET{WC.P_GRANT_SW=0};
ZZZZ010541	13070	=SET{WC.I=WC.INSERT+'''P'','};
ZZZZ010541	13080	COPY=ADD10
ZZZZ010541	13090	=SQL{?WC?'(SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	13100	COPY=ADD10
ZZZZ010541	13110	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME,SYSTEM_GRANT')};
ZZZZ010541	13120	COPY=ADD10
ZZZZ010541	13130	=SQL{?WC?',SYSTEM_SELECT,SYSTEM_INSERT,SYSTEM_UPDATE')};
ZZZZ010541	13140	COPY=ADD10
ZZZZ010541	13150	=SQL{?WC?',SYSTEM_DELETE,SYSTEM_EXECUTE)AS')};
ZZZZ010541	13160	=SET{W0.L8=WC.L_SYSTEM@LENGTH};COMPUTE{W0.L8+=8};
ZZZZ010541	13170	=SET{WC.UNION=,WC.SQL=};
ZZZZ010541	13180	=SET{WC.GRANT='PUBLIC',WC.GRANTX=};
ZZZZ010541	13190	=SET{WC.DBD='/?_Q?_DB_HEADER?_Q?_D_'};
ZZZZ010541	13200	*=======NAME=GRANT$$===============================
ZZZZ010541	13210	=P_GRANT_LOOP:
ZZZZ010541	13220	COPY=ADD10
ZZZZ010541	13230	=SQL{?WC?' ?WC.UNION?')};
ZZZZ010541	13240	COPY=ADD10
ZZZZ010541	13250	=SQL{?WC?' SELECT CAST(''TABLE'' AS CHAR(5))')};
ZZZZ010541	13260	COPY=ADD10
ZZZZ010541	13270	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	13280	COPY=ADD10
ZZZZ010541	13290	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	13300	COPY=ADD10
ZZZZ010541	13310	=SQL{?WC?',CAST(UPPER(SUBSTR(TABLEOWNER')};
ZZZZ010541	13320	COPY=ADD10
ZZZZ010541	13330	=SQL{?WC?',LENGTH(TABLEOWNER)-5,1)) AS CHAR(1))')};
ZZZZ010541	13340	******
ZZZZ010541	13350	NAME2=GRANT_SUB_A
ZZZZ010541	13360	COPY=ADD10
ZZZZ010541	13370	=SQL{?WC?',CAST(UPPER(C.RELNAME) AS CHAR(30))')};
ZZZZ010541	13380	COPY=ADD10
ZZZZ010541	13390	=SQL{?WC?',CAST(''?WC.GRANT?'' AS CHAR(6))')};
ZZZZ010541	13400	COPY=ADD10
ZZZZ010541	13410	=SQL{?WC?',CAST(CASE WHEN ACLCONTAINS(RELACL,LOWER(')};
ZZZZ010541	13420	COPY=ADD10
ZZZZ010541	13430	=SQL{?WC?'''?WC.GRANTX?=R?WC.DBD?ZZZZ'')')};
ZZZZ010541	13440	COPY=ADD10
ZZZZ010541	13450	=SQL{?WC?'::ACLITEM) OR ACLCONTAINS(RELACL,LOWER(')};
ZZZZ010541	13460	COPY=ADD10
ZZZZ010541	13470	=SQL{?WC?'''?WC.GRANTX?=R?WC.DBD??WC.PER?'')')};
ZZZZ010541	13480	COPY=ADD10
ZZZZ010541	13490	=SQL{?WC?'::ACLITEM) THEN CHAR ''S'' ELSE CHAR '' ''')};
ZZZZ010541	13500	COPY=ADD10
ZZZZ010541	13510	=SQL{?WC?' END AS CHAR(1))')};
ZZZZ010541	13520	COPY=ADD10
ZZZZ010541	13530	=SQL{?WC?',CAST(CASE WHEN ACLCONTAINS(RELACL,LOWER(')};
ZZZZ010541	13540	COPY=ADD10
ZZZZ010541	13550	=SQL{?WC?'''?WC.GRANTX?=A?WC.DBD?ZZZZ'')')};
ZZZZ010541	13560	COPY=ADD10
ZZZZ010541	13570	=SQL{?WC?'::ACLITEM) OR ACLCONTAINS(RELACL,LOWER(')};
ZZZZ010541	13580	COPY=ADD10
ZZZZ010541	13590	=SQL{?WC?'''?WC.GRANTX?=A?WC.DBD??WC.PER?'')')};
ZZZZ010541	13600	COPY=ADD10
ZZZZ010541	13610	=SQL{?WC?'::ACLITEM) THEN CHAR ''I'' ELSE CHAR '' ''')};
ZZZZ010541	13620	COPY=ADD10
ZZZZ010541	13630	=SQL{?WC?' END AS CHAR(1))')};
ZZZZ010541	13640	COPY=ADD10
ZZZZ010541	13650	=SQL{?WC?',CAST(CASE WHEN ACLCONTAINS(RELACL,LOWER(')};
ZZZZ010541	13660	COPY=ADD10
ZZZZ010541	13670	=SQL{?WC?'''?WC.GRANTX?=W?WC.DBD?ZZZZ'')')};
ZZZZ010541	13680	COPY=ADD10
ZZZZ010541	13690	=SQL{?WC?'::ACLITEM) OR ACLCONTAINS(RELACL,LOWER(')};
ZZZZ010541	13700	COPY=ADD10
ZZZZ010541	13710	=SQL{?WC?'''?WC.GRANTX?=W?WC.DBD??WC.PER?'')')};
ZZZZ010541	13720	COPY=ADD10
ZZZZ010541	13730	=SQL{?WC?'::ACLITEM) THEN CHAR ''U'' ELSE CHAR '' ''')};
ZZZZ010541	13740	COPY=ADD10
ZZZZ010541	13750	=SQL{?WC?' END AS CHAR(1))')};
ZZZZ010541	13760	COPY=ADD10
ZZZZ010541	13770	=SQL{?WC?',CAST(CASE WHEN ACLCONTAINS(RELACL,LOWER(')};
ZZZZ010541	13780	COPY=ADD10
ZZZZ010541	13790	=SQL{?WC?'''?WC.GRANTX?=D?WC.DBD?ZZZZ'')')};
ZZZZ010541	13800	COPY=ADD10
ZZZZ010541	13810	=SQL{?WC?'::ACLITEM) OR ACLCONTAINS(RELACL,LOWER(')};
ZZZZ010541	13820	COPY=ADD10
ZZZZ010541	13830	=SQL{?WC?'''?WC.GRANTX?=D?WC.DBD??WC.PER?'')')};
ZZZZ010541	13840	COPY=ADD10
ZZZZ010541	13850	=SQL{?WC?'::ACLITEM) THEN CHAR ''D'' ELSE CHAR '' ''')};
ZZZZ010541	13860	COPY=ADD10
ZZZZ010541	13870	=SQL{?WC?' END AS CHAR(1))')};
ZZZZ010541	13880	COPY=ADD10
ZZZZ010541	13890	=SQL{?WC?',CAST('' ''AS CHAR(1))')};
ZZZZ010541	13900	COPY=ADD10
ZZZZ010541	13910	=SQL{?WC?' FROM PG_CLASS C,PG_USER U')};
ZZZZ010541	13920	NAME2=
ZZZZ010541	13930	COPY=ADD10
ZZZZ010541	13940	=SQL{?WC?',PG_TABLES T WHERE')};
ZZZZ010541	13950	COPY=ADD10
ZZZZ010541	13960	=SQL{?WC?' C.RELNAME=T.TABLENAME AND')};
ZZZZ010541	13970	COPY=ADD10
ZZZZ010541	13980	=SQL{?WC?' T.SCHEMANAME')};
ZZZZ010541	13990	COPY=ADD10
ZZZZ010541	14000	=SQL{?WC?'=LOWER(''?WC.P_DB?'')')};
ZZZZ010541	14010	COPY=ADD10
ZZZZ010541	14020	=SQL{?WC?' AND U.USENAME=T.TABLEOWNER')};
ZZZZ010541	14030	COPY=ADD10
ZZZZ010541	14040	=SQL{?WC?' AND C.RELKIND=LOWER(''R'')')};
ZZZZ010541	14050	NAME2=GRANT_SUB_B
ZZZZ010541	14060	COPY=ADD10
ZZZZ010541	14070	=SQL{?WC?' AND C.RELOWNER=U.USESYSID')};
ZZZZ010541	14080	COPY=ADD10
ZZZZ010541	14090	=SQL{?WC?' AND(ACLCONTAINS(RELACL,LOWER(')};
ZZZZ010541	14100	COPY=ADD10
ZZZZ010541	14110	=SQL{?WC?'''?WC.GRANTX?=R?WC.DBD?ZZZZ'')')};
ZZZZ010541	14120	COPY=ADD10
ZZZZ010541	14130	=SQL{?WC?'::ACLITEM) OR  ACLCONTAINS(RELACL,LOWER(')};
ZZZZ010541	14140	COPY=ADD10
ZZZZ010541	14150	=SQL{?WC?'''?WC.GRANTX?=R?WC.DBD??WC.PER?'')')};
ZZZZ010541	14160	COPY=ADD10
ZZZZ010541	14170	=SQL{?WC?'::ACLITEM))')};
ZZZZ010541	14180	NAME2=
ZZZZ010541	14190	COPY=ADD10
ZZZZ010541	14200	=SQL{?WC?' UNION SELECT ')};
ZZZZ010541	14210	COPY=ADD10
ZZZZ010541	14220	=SQL{?WC?' CAST(''VIEW'' AS CHAR(5))')};
ZZZZ010541	14230	COPY=ADD10
ZZZZ010541	14240	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	14250	COPY=ADD10
ZZZZ010541	14260	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	14270	COPY=ADD10
ZZZZ010541	14280	=SQL{?WC?',CAST(UPPER(SUBSTR(VIEWOWNER')};
ZZZZ010541	14290	COPY=ADD10
ZZZZ010541	14300	=SQL{?WC?',LENGTH(VIEWOWNER)-5,1)) AS CHAR(1))')};
ZZZZ010541	14310	COPY=GRANT_SUB_A
ZZZZ010541	14320	COPY=ADD10
ZZZZ010541	14330	=SQL{?WC?',PG_VIEWS V WHERE')};
ZZZZ010541	14340	COPY=ADD10
ZZZZ010541	14350	=SQL{?WC?' C.RELNAME=V.VIEWNAME AND')};
ZZZZ010541	14360	COPY=ADD10
ZZZZ010541	14370	=SQL{?WC?' V.SCHEMANAME')};
ZZZZ010541	14380	COPY=ADD10
ZZZZ010541	14390	=SQL{?WC?'=LOWER(''?WC.P_DB?'')')};
ZZZZ010541	14400	COPY=ADD10
ZZZZ010541	14410	=SQL{?WC?' AND U.USENAME=V.VIEWOWNER')};
ZZZZ010541	14420	COPY=ADD10
ZZZZ010541	14430	=SQL{?WC?' AND C.RELKIND=LOWER(''V'')')};
ZZZZ010541	14440	COPY=GRANT_SUB_B
ZZZZ010541	14450	=IF{WC.P_GRANT_SW=1}JUMP{P_GRANT1};
ZZZZ010541	14460	=IF{WC.P_GRANT_SW=2}JUMP{P_GRANT2};
ZZZZ010541	14470	=IF{WC.P_GRANT_SW=3}JUMP{P_GRANT3};
ZZZZ010541	14480	=IF{WC.P_GRANT_SW=4}JUMP{P_GRANT4};
ZZZZ010541	14490	*======================================================
ZZZZ010541	14500	=SET{WC.UNION=' UNION'};
ZZZZ010541	14510	=SET{W0.REPEAT2CNT=0};
ZZZZ010541	14520	=SET{W0._P_PER_COUNT=1};
ZZZZ010541	14530	=P_PER_LOOP:
ZZZZ010541	14540	=COMPUTE{W0.REPEAT2CNT+=1};
ZZZZ010541	14550	=SET{WC.PERX=WC.PERMISSION?W0.REPEAT2CNT?};
ZZZZ010541	14560	=SET{WC.GRANT='D_'+WC.PERX};
ZZZZ010541	14570	=SET{WC.GRANTX='?_Q?_DB_HEADER?_Q?_D_?WC.PERX?'};
ZZZZ010541	14580	=SET{WC.P_GRANT_SW=1};BACK{P_GRANT_LOOP};
ZZZZ010541	14590	=P_GRANT1:
ZZZZ010541	14600	=SET{_UPPER=WC.PERX,WC.GRANT='I_'+_UPPER};
ZZZZ010541	14610	=SET{WC.GRANTX='?_Q?_DB_HEADER?_Q?_I_?WC.PERX?'};
ZZZZ010541	14620	=SET{WC.P_GRANT_SW=2};BACK{P_GRANT_LOOP};
ZZZZ010541	14630	=P_GRANT2:
ZZZZ010541	14640	=SET{_UPPER=WC.PERX,WC.GRANT='O_'+_UPPER};
ZZZZ010541	14650	=SET{WC.GRANTX='?_Q?_DB_HEADER?_Q?_O_?WC.PERX?'};
ZZZZ010541	14660	=SET{WC.P_GRANT_SW=3};BACK{P_GRANT_LOOP};
ZZZZ010541	14670	=P_GRANT3:
ZZZZ010541	14680	=SET{_UPPER=WC.PERX,WC.GRANT='L_'+_UPPER};
ZZZZ010541	14690	=SET{WC.GRANTX='?_Q?_DB_HEADER?_Q?_L_?WC.PERX?'};
ZZZZ010541	14700	=SET{WC.P_GRANT_SW=4};BACK{P_GRANT_LOOP};
ZZZZ010541	14710	=P_GRANT4:
ZZZZ010541	14720	=COMPUTE{W0._P_PER_COUNT+=1};
ZZZZ010541	14730	=IF{W0._P_PER_COUNT<=W0.PER_MAX}BACK{P_PER_LOOP};
ZZZZ010541	14740	NAME=
ZZZZ010541	14750	*************************************************************
ZZZZ010541	14760	=P_SKIP:
ZZZZ010541	14770	=SET{_REAL_TEST='REAL'};
ZZZZ010541	14780	=IF{_DB!='O'}JUMP{O_SKIP};
ZZZZ010541	14790	=MESSAGE{CREATE TABLESPACE};
ZZZZ010541	14800	REPEAT0=$W0.PERMISSION
ZZZZ010541	14810	REPEAT=4
ZZZZ010541	14820	=IF_ERROR_LOGIN_SQL{CREATE TABLESPACE
ZZZZ010541	14830	= ?WC.IS??WC.##?_?WC.PER$$?
ZZZZ010541	14840	= DATAFILE '?WC.DDAT##??_P??WC.IS??WC.##?_?WC.PER$$?.ORA'
ZZZZ010541	14850	= SIZE 7M AUTOEXTEND ON NEXT 1M DEFAULT STORAGE
ZZZZ010541	14860	= (INITIAL 7M NEXT 1M PCTINCREASE 0) ONLINE}
ZZZZ010541	14870	=   IF{_DB_I_ERROR!='EXIST'}ERROR{?_DB_ERROR??_ERROR?};
ZZZZ010541	14880	REPEAT0=
ZZZZ010541	14890	**********( CREATE USER )*****************
ZZZZ010541	14900	=MESSAGE{CREATE USER};
ZZZZ010541	14910	REPEAT0=$W0.PERMISSION
ZZZZ010541	14920	REPEAT=2 (WC.REAL_TEST##)
ZZZZ010541	14930	***=SET{WC.PAS=WC.PASSWORD_?WC.REAL_TEST##?};
ZZZZ010541	14940	=SET{WC.LTR=WC.REAL_TEST##};
ZZZZ010541	14950	=SET{WC.M_W='M'};
ZZZZ010541	14960	=SET{W0.REPEAT2CNT=0};
ZZZZ010541	14970	REPEAT2=4 (WC.DIOL--)
ZZZZ010541	14980	=COMPUTE{W0.REPEAT2CNT+=1};
ZZZZ010541	14990	=MESSAGE{CREATE USER (?WC.PER$$?)};
ZZZZ010541	15000	=SET{WC.DIOL=WC.DIOL?W0.REPEAT2CNT?};
ZZZZ010541	15010	***=IF{W0.REPEAT2CNT=4}SET{WC.PAS=WC.PASSWORD_LINK};
ZZZZ010541	15020	=IF{W0.REPEAT2CNT=4}SET{WC.LTR='LINK'};
ZZZZ010541	15030	=SET{WC.USER='?WC.IS??WC.R_T##?_?WC.DIOL?_?WC.PER$$?'};
ZZZZ010541	15040	***=IF_ERROR_LOGIN_SQL{CREATE USER ?WC.USER? IDENTIFIED BY
ZZZZ010541	15050	***= ?WC.PAS? DEFAULT TABLESPACE
ZZZZ010541	15060	***= ?WC.IS??WC.R_T##?_?WC.M_W?_?WC.PER$$?}
ZZZZ010541	15070	=IF_ERROR_LOGIN_ZZ_ADDLOGIN{?WC.LTR?}{?WC.USER?}
ZZZZ010541	15080	=  {?WC.IS??WC.R_T##?_?WC.M_W?_?WC.PER$$?}
ZZZZ010541	15090	=  IF{_DB_I_ERROR!='EXIST'}ERROR{?_DB_ERROR??_ERROR?};
ZZZZ010541	15100	=IF_ERROR_LOGIN_SQL{GRANT CONNECT,RESOURCE,UNLIMITED
ZZZZ010541	15110	= TABLESPACE TO ?WC.USER?}ERROR{?_DB_ERROR??_ERROR?};
ZZZZ010541	15120	=IF_ERROR_LOGIN_SQL{GRANT CREATE VIEW TO ?WC.USER?}
ZZZZ010541	15130	=  ERROR{?_DB_ERROR??_ERROR?};
ZZZZ010541	15140	=SET{WC.M_W='W'};
ZZZZ010541	15150	REPEAT0=
ZZZZ010541	15160	*****( GRANT USER )******************************************
ZZZZ010541	15170	=MESSAGE{GRANT DBA};
ZZZZ010541	15180	=IF_ERROR_LOGIN_SQL{GRANT DBA TO ?WC.IS?R_D_ZZZZ}
ZZZZ010541	15190	=  ERROR{?_DB_ERROR??_ERROR?};
ZZZZ010541	15200	=JUMP{O_SKIP};
ZZZZ010541	15210	*******( CREATE VIEW )***************************************
ZZZZ010541	15220	*****( OBJECT_VIEW )*****************************************
ZZZZ010541	15230	NAME=O_OBJECT_VIEW
ZZZZ010541	15240	=SET{WC.I=WC.INSERT+'''O'','};
ZZZZ010541	15250	COPY=ADD10
ZZZZ010541	15260	=SQL{?WC?'(SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	15270	COPY=ADD10
ZZZZ010541	15280	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME,SYSTEM_TEXT')};
ZZZZ010541	15290	COPY=ADD10
ZZZZ010541	15300	=SQL{?WC?',SYSTEM_ADD_DATE17,SYSTEM_CHANGE_DATE17)')};
ZZZZ010541	15310	COPY=ADD10
ZZZZ010541	15320	=SQL{?WC?' AS SELECT CAST(''TABLE'' AS CHAR(5))')};
ZZZZ010541	15330	COPY=ADD10
ZZZZ010541	15340	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	15350	COPY=ADD10
ZZZZ010541	15360	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	15370	COPY=ADD10
ZZZZ010541	15380	=SQL{?WC?',CAST(SUBSTR(T.OWNER,LENGTH(T.OWNER)-5,1)')};
ZZZZ010541	15390	COPY=ADD10
ZZZZ010541	15400	=SQL{?WC?' AS CHAR(1))')};
ZZZZ010541	15410	COPY=ADD10
ZZZZ010541	15420	=SQL{?WC?',CAST(T.TABLE_NAME AS NCHAR(30))')};
ZZZZ010541	15430	COPY=ADD10
ZZZZ010541	15440	=SQL{?WC?',CAST(NULL AS NVARCHAR2(2000))')};
ZZZZ010541	15450	COPY=ADD10
ZZZZ010541	15460	=SQL{?WC?',CAST(TO_CHAR(CREATED,''YYYYMMDDHH24MISS'')')};
ZZZZ010541	15470	COPY=ADD10
ZZZZ010541	15480	=SQL{?WC?'||''000''  AS CHAR(17))')};
ZZZZ010541	15490	COPY=ADD10
ZZZZ010541	15500	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	15510	COPY=ADD10
ZZZZ010541	15520	=SQL{?WC?' FROM ALL_ALL_TABLES T,ALL_OBJECTS O')};
ZZZZ010541	15530	COPY=ADD10
ZZZZ010541	15540	=SQL{?WC?' WHERE T.OWNER IN')};
ZZZZ010541	15550	COPY=ADD10
ZZZZ010541	15560	=SQL{?WC?'(?WC.O_OWNER?)')};
ZZZZ010541	15570	COPY=ADD10
ZZZZ010541	15580	=SQL{?WC?' AND T.OWNER=O.OWNER')};
ZZZZ010541	15590	COPY=ADD10
ZZZZ010541	15600	=SQL{?WC?' AND T.TABLE_NAME=OBJECT_NAME')};
ZZZZ010541	15610	COPY=ADD10
ZZZZ010541	15620	=SQL{?WC?' AND T.TABLE_NAME NOT LIKE ''BIN$%''')};
ZZZZ010541	15630	COPY=ADD10
ZZZZ010541	15640	=SQL{?WC?' UNION SELECT CAST(''VIEW'' AS CHAR(5))')};
ZZZZ010541	15650	COPY=ADD10
ZZZZ010541	15660	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	15670	COPY=ADD10
ZZZZ010541	15680	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	15690	COPY=ADD10
ZZZZ010541	15700	=SQL{?WC?',CAST(SUBSTR(O.OWNER,LENGTH(O.OWNER)-5,1)')};
ZZZZ010541	15710	COPY=ADD10
ZZZZ010541	15720	=SQL{?WC?' AS CHAR(1))')};
ZZZZ010541	15730	COPY=ADD10
ZZZZ010541	15740	=SQL{?WC?',CAST(VIEW_NAME AS NCHAR(30))')};
ZZZZ010541	15750	COPY=ADD10
ZZZZ010541	15760	=IF{_DB_SOFT>='O12'}
ZZZZ010541	15770	=   SQL{?WC?',CAST(TEXT_VC AS NVARCHAR2(2000))')}JUMP{};
ZZZZ010541	15780	=SQL{   ?WC?',CAST(NULL    AS NVARCHAR2(2000))')};
ZZZZ010541	15790	COPY=ADD10
ZZZZ010541	15800	=SQL{?WC?',CAST(TO_CHAR(O.CREATED,''YYYYMMDDHH24MISS'')')};
ZZZZ010541	15810	COPY=ADD10
ZZZZ010541	15820	=SQL{?WC?'||''000'' AS CHAR(17))')};
ZZZZ010541	15830	COPY=ADD10
ZZZZ010541	15840	=SQL{?WC?',CAST('' '' AS CHAR(17)) FROM ALL_VIEWS V')};
ZZZZ010541	15850	COPY=ADD10
ZZZZ010541	15860	=SQL{?WC?',ALL_OBJECTS O WHERE V.OWNER IN')};
ZZZZ010541	15870	COPY=ADD10
ZZZZ010541	15880	=SQL{?WC?'(?WC.O_OWNER?)')};
ZZZZ010541	15890	COPY=ADD10
ZZZZ010541	15900	=SQL{?WC?' AND V.OWNER=O.OWNER')};
ZZZZ010541	15910	COPY=ADD10
ZZZZ010541	15920	=SQL{?WC?' AND V.VIEW_NAME=O.OBJECT_NAME')};
ZZZZ010541	15930	COPY=ADD10
ZZZZ010541	15940	=SQL{?WC?' UNION SELECT CAST(SUBSTR(S.TYPE,1,4)')};
ZZZZ010541	15950	COPY=ADD10
ZZZZ010541	15960	=SQL{?WC?' AS CHAR(5))')};
ZZZZ010541	15970	COPY=ADD10
ZZZZ010541	15980	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	15990	COPY=ADD10
ZZZZ010541	16000	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	16010	COPY=ADD10
ZZZZ010541	16020	=SQL{?WC?',CAST(SUBSTR(S.OWNER,LENGTH(S.OWNER)-5,1)')};
ZZZZ010541	16030	COPY=ADD10
ZZZZ010541	16040	=SQL{?WC?' AS CHAR(1))')};
ZZZZ010541	16050	COPY=ADD10
ZZZZ010541	16060	=SQL{?WC?',CAST(S.NAME  AS NCHAR(30))')};
ZZZZ010541	16070	COPY=ADD10
ZZZZ010541	16080	=SQL{?WC?',CAST(S.TEXT AS NVARCHAR2(2000))')};
ZZZZ010541	16090	COPY=ADD10
ZZZZ010541	16100	=SQL{?WC?',CAST(TO_CHAR(O.CREATED,''YYYYMMDDHH24MISS'')')};
ZZZZ010541	16110	COPY=ADD10
ZZZZ010541	16120	=SQL{?WC?'||''000'' AS CHAR(17))')};
ZZZZ010541	16130	COPY=ADD10
ZZZZ010541	16140	=SQL{?WC?',CAST('' '' AS CHAR(17)) FROM')};
ZZZZ010541	16150	COPY=ADD10
ZZZZ010541	16160	=SQL{?WC?' ALL_SOURCE S,ALL_OBJECTS O')};
ZZZZ010541	16170	COPY=ADD10
ZZZZ010541	16180	=SQL{?WC?' WHERE S.OWNER IN')};
ZZZZ010541	16190	COPY=ADD10
ZZZZ010541	16200	=SQL{?WC?'(?WC.O_OWNER?)')};
ZZZZ010541	16210	COPY=ADD10
ZZZZ010541	16220	=SQL{?WC?' AND S.OWNER=O.OWNER')};
ZZZZ010541	16230	COPY=ADD10
ZZZZ010541	16240	=SQL{?WC?' AND S.NAME=O.OBJECT_NAME')};
ZZZZ010541	16250	COPY=ADD10
ZZZZ010541	16260	=SQL{?WC?' AND S.TYPE IN(''PROCEDURE'',''FUNCTION''')};
ZZZZ010541	16270	COPY=ADD10
ZZZZ010541	16280	=SQL{?WC?',''TRIGGER'')')};
ZZZZ010541	16290	*****( COLUMN_VIEW )*****************************************
ZZZZ010541	16300	NAME=O_COLUMN_VIEW
ZZZZ010541	16310	=SET{WC.I=WC.INSERT+'''O'','};
ZZZZ010541	16320	COPY=ADD10
ZZZZ010541	16330	=SQL{?WC?'(SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	16340	COPY=ADD10
ZZZZ010541	16350	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME,SYSTEM_SEQ')};
ZZZZ010541	16360	COPY=ADD10
ZZZZ010541	16370	=SQL{?WC?',SYSTEM_DATA_NAME,SYSTEM_DEFAULT_TYPE')};
ZZZZ010541	16380	COPY=ADD10
ZZZZ010541	16390	=SQL{?WC?',SYSTEM_DEFAULT_LENGTH1')};
ZZZZ010541	16400	COPY=ADD10
ZZZZ010541	16410	=SQL{?WC?',SYSTEM_DEFAULT_LENGTH2,SYSTEM_DEFAULT')};
ZZZZ010541	16420	COPY=ADD10
ZZZZ010541	16430	=SQL{?WC?',SYSTEM_NULL)AS SELECT')};
ZZZZ010541	16440	COPY=ADD10
ZZZZ010541	16450	=SQL{?WC?' CAST(CASE G.OBJECT_TYPE')};
ZZZZ010541	16460	COPY=ADD10
ZZZZ010541	16470	=SQL{?WC?' WHEN ''TABLE'' THEN ''TABLE''')};
ZZZZ010541	16480	COPY=ADD10
ZZZZ010541	16490	=SQL{?WC?' ELSE SUBSTR(G.OBJECT_TYPE,1,4)END')};
ZZZZ010541	16500	COPY=ADD10
ZZZZ010541	16510	=SQL{?WC?' AS CHAR(5))')};
ZZZZ010541	16520	COPY=ADD10
ZZZZ010541	16530	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	16540	COPY=ADD10
ZZZZ010541	16550	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	16560	COPY=ADD10
ZZZZ010541	16570	=SQL{?WC?',CAST(SUBSTR(C.OWNER,LENGTH(C.OWNER)-5,1)')};
ZZZZ010541	16580	COPY=ADD10
ZZZZ010541	16590	=SQL{?WC?' AS CHAR(1))')};
ZZZZ010541	16600	COPY=ADD10
ZZZZ010541	16610	=SQL{?WC?',CAST(C.TABLE_NAME AS NCHAR(30))')};
ZZZZ010541	16620	COPY=ADD10
ZZZZ010541	16630	=SQL{?WC?',CAST(C.COLUMN_ID AS INT)')};
ZZZZ010541	16640	COPY=ADD10
ZZZZ010541	16650	=SQL{?WC?',CAST(C.COLUMN_NAME AS NCHAR(30))')};
ZZZZ010541	16660	COPY=ADD10
ZZZZ010541	16670	=SQL{?WC?',CAST(CASE C.DATA_TYPE WHEN ''NUMBER''')};
ZZZZ010541	16680	COPY=ADD10
ZZZZ010541	16690	=SQL{?WC?' THEN CASE WHEN C.DATA_PRECISION IS NULL')};
ZZZZ010541	16700	COPY=ADD10
ZZZZ010541	16710	=SQL{?WC?' THEN ''INT'' ELSE ''DECIMAL'' END')};
ZZZZ010541	16720	COPY=ADD10
ZZZZ010541	16730	=SQL{?WC?' WHEN ''VARCHAR2''  THEN ''VARCHAR''')};
ZZZZ010541	16740	COPY=ADD10
ZZZZ010541	16750	=SQL{?WC?' WHEN ''NVARCHAR2'' THEN ''NVARCHAR''')};
ZZZZ010541	16760	COPY=ADD10
ZZZZ010541	16770	=SQL{?WC?' ELSE CASE WHEN C.DATA_TYPE LIKE')};
ZZZZ010541	16780	COPY=ADD10
ZZZZ010541	16790	=SQL{?WC?' ''TIMESTAMP%'' THEN ''DATETIME''')};
ZZZZ010541	16800	COPY=ADD10
ZZZZ010541	16810	=SQL{?WC?' ELSE SUBSTR(C.DATA_TYPE,1,9) END END')};
ZZZZ010541	16820	COPY=ADD10
ZZZZ010541	16830	=SQL{?WC?' AS CHAR(9))')};
ZZZZ010541	16840	COPY=ADD10
ZZZZ010541	16850	=SQL{?WC?',CAST(CASE WHEN C.DATA_TYPE=''NUMBER''')};
ZZZZ010541	16860	COPY=ADD10
ZZZZ010541	16870	=SQL{?WC?' AND C.DATA_PRECISION IS NOT NULL')};
ZZZZ010541	16880	COPY=ADD10
ZZZZ010541	16890	=SQL{?WC?' OR C.DATA_TYPE IN(''CHAR'',''VARCHAR2''')};
ZZZZ010541	16900	COPY=ADD10
ZZZZ010541	16910	=SQL{?WC?',''NCHAR'',''NVARCHAR2'')')};
ZZZZ010541	16920	COPY=ADD10
ZZZZ010541	16930	=SQL{?WC?' THEN CASE WHEN C.DATA_PRECISION IS NULL')};
ZZZZ010541	16940	COPY=ADD10
ZZZZ010541	16950	=SQL{?WC?' THEN CASE WHEN C.DATA_TYPE')};
ZZZZ010541	16960	COPY=ADD10
ZZZZ010541	16970	=SQL{?WC?' IN(''NCHAR'',''NVARCHAR2'')')};
ZZZZ010541	16980	COPY=ADD10
ZZZZ010541	16990	=SQL{?WC?' THEN C.DATA_LENGTH/2')};
ZZZZ010541	17000	COPY=ADD10
ZZZZ010541	17010	=SQL{?WC?' ELSE C.DATA_LENGTH END')};
ZZZZ010541	17020	COPY=ADD10
ZZZZ010541	17030	=SQL{?WC?' ELSE C.DATA_PRECISION END')};
ZZZZ010541	17040	COPY=ADD10
ZZZZ010541	17050	=SQL{?WC?' WHEN C.DATA_TYPE LIKE ''TIMESTAMP%''')};
ZZZZ010541	17060	COPY=ADD10
ZZZZ010541	17070	=SQL{?WC?' THEN 17')};
ZZZZ010541	17080	COPY=ADD10
ZZZZ010541	17090	=SQL{?WC?' WHEN C.DATA_TYPE=''DATE'' THEN 8')};
ZZZZ010541	17100	COPY=ADD10
ZZZZ010541	17110	=SQL{?WC?' WHEN C.DATA_TYPE=''TEXT'' THEN 4000')};
ZZZZ010541	17120	COPY=ADD10
ZZZZ010541	17130	=SQL{?WC?' ELSE 9 END AS INT)')};
ZZZZ010541	17140	COPY=ADD10
ZZZZ010541	17150	=SQL{?WC?',CAST(CASE C.DATA_TYPE WHEN ''NUMBER''')};
ZZZZ010541	17160	COPY=ADD10
ZZZZ010541	17170	=SQL{?WC?' THEN CASE WHEN C.DATA_SCALE IS NULL')};
ZZZZ010541	17180	COPY=ADD10
ZZZZ010541	17190	=SQL{?WC?' THEN 0 ELSE C.DATA_SCALE END')};
ZZZZ010541	17200	COPY=ADD10
ZZZZ010541	17210	=SQL{?WC?' ELSE 0 END AS INT),DATA_DEFAULT')};
ZZZZ010541	17220	COPY=ADD10
ZZZZ010541	17230	=SQL{?WC?',CAST(CASE NULLABLE WHEN ''N''')};
ZZZZ010541	17240	COPY=ADD10
ZZZZ010541	17250	=SQL{?WC?' THEN ''0'' ELSE ''1'' END')};
ZZZZ010541	17260	COPY=ADD10
ZZZZ010541	17270	=SQL{?WC?' AS CHAR(1))')};
ZZZZ010541	17280	COPY=ADD10
ZZZZ010541	17290	=SQL{?WC?' FROM ALL_TAB_COLUMNS C')};
ZZZZ010541	17300	COPY=ADD10
ZZZZ010541	17310	=SQL{?WC?',ALL_OBJECTS G WHERE')};
ZZZZ010541	17320	COPY=ADD10
ZZZZ010541	17330	=SQL{?WC?' C.OWNER IN')};
ZZZZ010541	17340	COPY=ADD10
ZZZZ010541	17350	=SQL{?WC?'(?WC.O_OWNER?)')};
ZZZZ010541	17360	COPY=ADD10
ZZZZ010541	17370	=SQL{?WC?' AND C.OWNER=G.OWNER')};
ZZZZ010541	17380	COPY=ADD10
ZZZZ010541	17390	=SQL{?WC?' AND C.TABLE_NAME=G.OBJECT_NAME')};
ZZZZ010541	17400	COPY=ADD10
ZZZZ010541	17410	=SQL{?WC?' AND C.TABLE_NAME NOT LIKE ''BIN$%''')};
ZZZZ010541	17420	COPY=ADD10
ZZZZ010541	17430	*****( INDEX_VIEW )******************************************
ZZZZ010541	17440	NAME=O_INDEX_VIEW
ZZZZ010541	17450	=SET{WC.I=WC.INSERT+'''O'','};
ZZZZ010541	17460	COPY=ADD10
ZZZZ010541	17470	=SQL{?WC?'(SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	17480	COPY=ADD10
ZZZZ010541	17490	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME')};
ZZZZ010541	17500	COPY=ADD10
ZZZZ010541	17510	=SQL{?WC?',SYSTEM_DATA_NAME,SYSTEM_IX')};
ZZZZ010541	17520	COPY=ADD10
ZZZZ010541	17530	=SQL{?WC?',SYSTEM_NO)AS SELECT')};
ZZZZ010541	17540	COPY=ADD10
ZZZZ010541	17550	=SQL{?WC?' CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	17560	COPY=ADD10
ZZZZ010541	17570	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	17580	COPY=ADD10
ZZZZ010541	17590	=SQL{?WC?',CAST(SUBSTR(K.TABLE_OWNER')};
ZZZZ010541	17600	COPY=ADD10
ZZZZ010541	17610	=SQL{?WC?',LENGTH(K.TABLE_OWNER)-5,1)')};
ZZZZ010541	17620	COPY=ADD10
ZZZZ010541	17630	=SQL{?WC?'   AS CHAR(1))')};
ZZZZ010541	17640	COPY=ADD10
ZZZZ010541	17650	=SQL{?WC?',CAST(K.TABLE_NAME AS NCHAR(30))')};
ZZZZ010541	17660	COPY=ADD10
ZZZZ010541	17670	=SQL{?WC?',CAST(K.COLUMN_NAME AS NCHAR(30))')};
ZZZZ010541	17680	COPY=ADD10
ZZZZ010541	17690	=SQL{?WC?',CAST(SUBSTR(I.INDEX_NAME')};
ZZZZ010541	17700	COPY=ADD10
ZZZZ010541	17710	=SQL{?WC?',LENGTH(RTRIM(I.TABLE_NAME))+1,1)')};
ZZZZ010541	17720	COPY=ADD10
ZZZZ010541	17730	=SQL{?WC?' AS CHAR(1))')};
ZZZZ010541	17740	COPY=ADD10
ZZZZ010541	17750	=SQL{?WC?',CAST(TO_CHAR(K.COLUMN_POSITION-CASE')};
ZZZZ010541	17760	COPY=ADD10
ZZZZ010541	17770	=SQL{?WC?' I.UNIQUENESS WHEN')};
ZZZZ010541	17780	COPY=ADD10
ZZZZ010541	17790	=SQL{?WC?' ''UNIQUE'' THEN 1 ELSE 0 END) AS INT)')};
ZZZZ010541	17800	COPY=ADD10
ZZZZ010541	17810	=SQL{?WC?' FROM ALL_INDEXES I,ALL_IND_COLUMNS K')};
ZZZZ010541	17820	COPY=ADD10
ZZZZ010541	17830	=SQL{?WC?' WHERE I.TABLE_NAME=K.TABLE_NAME')};
ZZZZ010541	17840	COPY=ADD10
ZZZZ010541	17850	=SQL{?WC?' AND I.INDEX_NAME=K.INDEX_NAME ')};
ZZZZ010541	17860	COPY=ADD10
ZZZZ010541	17870	=SQL{?WC?' AND I.INDEX_NAME IN(I.TABLE_NAME||''0''')};
ZZZZ010541	17880	COPY=ADD10
ZZZZ010541	17890	=SQL{?WC?',I.TABLE_NAME||''1'',I.TABLE_NAME||''2''')};
ZZZZ010541	17900	COPY=ADD10
ZZZZ010541	17910	=SQL{?WC?',I.TABLE_NAME||''3'',I.TABLE_NAME||''4''')};
ZZZZ010541	17920	COPY=ADD10
ZZZZ010541	17930	=SQL{?WC?',I.TABLE_NAME||''5'',I.TABLE_NAME||''6''')};
ZZZZ010541	17940	COPY=ADD10
ZZZZ010541	17950	=SQL{?WC?',I.TABLE_NAME||''7'',I.TABLE_NAME||''8''')};
ZZZZ010541	17960	COPY=ADD10
ZZZZ010541	17970	=SQL{?WC?',I.TABLE_NAME||''9'') AND K.TABLE_OWNER IN')};
ZZZZ010541	17980	COPY=ADD10
ZZZZ010541	17990	=SQL{?WC?'(?WC.O_OWNER?)')};
ZZZZ010541	18000	COPY=ADD10
ZZZZ010541	18010	=SQL{?WC?' AND K.TABLE_OWNER=I.TABLE_OWNER')};
ZZZZ010541	18020	*****( GRANT_VIEW )******************************************
ZZZZ010541	18030	NAME=O_GRANT_VIEW
ZZZZ010541	18040	=SET{WC.I=WC.INSERT+'''O'','};
ZZZZ010541	18050	COPY=ADD10
ZZZZ010541	18060	=SQL{?WC?'(SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	18070	COPY=ADD10
ZZZZ010541	18080	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME,SYSTEM_GRANT')};
ZZZZ010541	18090	COPY=ADD10
ZZZZ010541	18100	=SQL{?WC?',SYSTEM_SELECT,SYSTEM_INSERT')};
ZZZZ010541	18110	COPY=ADD10
ZZZZ010541	18120	=SQL{?WC?',SYSTEM_UPDATE,SYSTEM_DELETE')};
ZZZZ010541	18130	COPY=ADD10
ZZZZ010541	18140	=SQL{?WC?',SYSTEM_EXECUTE)AS SELECT')};
ZZZZ010541	18150	COPY=ADD10
ZZZZ010541	18160	=SQL{?WC?' CAST(CASE G.OBJECT_TYPE')};
ZZZZ010541	18170	COPY=ADD10
ZZZZ010541	18180	=SQL{?WC?' WHEN ''TABLE'' THEN ''TABLE''')};
ZZZZ010541	18190	COPY=ADD10
ZZZZ010541	18200	=SQL{?WC?' ELSE SUBSTR(G.OBJECT_TYPE,1,4) END')};
ZZZZ010541	18210	COPY=ADD10
ZZZZ010541	18220	=SQL{?WC?' AS CHAR(5))')};
ZZZZ010541	18230	COPY=ADD10
ZZZZ010541	18240	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	18250	COPY=ADD10
ZZZZ010541	18260	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	18270	COPY=ADD10
ZZZZ010541	18280	=SQL{?WC?',CAST(SUBSTR(G.OWNER,LENGTH(G.OWNER)-5,1)')};
ZZZZ010541	18290	COPY=ADD10
ZZZZ010541	18300	=SQL{?WC?' AS CHAR(1))')};
ZZZZ010541	18310	COPY=ADD10
ZZZZ010541	18320	=SQL{?WC?',CAST(G.OBJECT_NAME  AS NCHAR(30))')};
ZZZZ010541	18330	COPY=ADD10
ZZZZ010541	18340	=SQL{?WC?',CAST(CASE WHEN LENGTH(RTRIM(G0.GRANTEE))')};
ZZZZ010541	18350	COPY=ADD10
ZZZZ010541	18360	=SQL{?WC?'>6 THEN SUBSTR(G0.GRANTEE')};
ZZZZ010541	18370	COPY=ADD10
ZZZZ010541	18380	=SQL{?WC?',LENGTH(RTRIM(G0.GRANTEE))-5)')};
ZZZZ010541	18390	COPY=ADD10
ZZZZ010541	18400	=SQL{?WC?' ELSE G0.GRANTEE END AS CHAR(6))')};
ZZZZ010541	18410	COPY=ADD10
ZZZZ010541	18420	=SQL{?WC?',CAST(CASE G0.PRIVILEGE')};
ZZZZ010541	18430	COPY=ADD10
ZZZZ010541	18440	=SQL{?WC?' WHEN ''SELECT''')};
ZZZZ010541	18450	COPY=ADD10
ZZZZ010541	18460	=SQL{?WC?' THEN ''S'' ELSE '' '' END AS CHAR(1))')};
ZZZZ010541	18470	COPY=ADD10
ZZZZ010541	18480	=SQL{?WC?',CAST(SUBSTR(G1.PRIVILEGE,1,1)')};
ZZZZ010541	18490	COPY=ADD10
ZZZZ010541	18500	=SQL{?WC?' AS CHAR(1))')};
ZZZZ010541	18510	COPY=ADD10
ZZZZ010541	18520	=SQL{?WC?',CAST(SUBSTR(G2.PRIVILEGE,1,1)')};
ZZZZ010541	18530	COPY=ADD10
ZZZZ010541	18540	=SQL{?WC?' AS CHAR(1))')};
ZZZZ010541	18550	COPY=ADD10
ZZZZ010541	18560	=SQL{?WC?',CAST(SUBSTR(G3.PRIVILEGE,1,1)')};
ZZZZ010541	18570	COPY=ADD10
ZZZZ010541	18580	=SQL{?WC?' AS CHAR(1))')};
ZZZZ010541	18590	COPY=ADD10
ZZZZ010541	18600	=SQL{?WC?',CAST(CASE G0.PRIVILEGE')};
ZZZZ010541	18610	COPY=ADD10
ZZZZ010541	18620	=SQL{?WC?' WHEN ''EXECUTE'' THEN ''E''')};
ZZZZ010541	18630	COPY=ADD10
ZZZZ010541	18640	=SQL{?WC?' ELSE '' '' END AS CHAR(1))')};
ZZZZ010541	18650	COPY=ADD10
ZZZZ010541	18660	=SQL{?WC?' FROM ALL_OBJECTS G')};
ZZZZ010541	18670	COPY=ADD10
ZZZZ010541	18680	=SQL{?WC?' INNER JOIN ALL_TAB_PRIVS G0')};
ZZZZ010541	18690	COPY=ADD10
ZZZZ010541	18700	=SQL{?WC?' ON G0.PRIVILEGE')};
ZZZZ010541	18710	COPY=ADD10
ZZZZ010541	18720	=SQL{?WC?' IN(''SELECT'',''EXECUTE'')')};
ZZZZ010541	18730	COPY=ADD10
ZZZZ010541	18740	=SQL{?WC?' AND G0.GRANTOR=G.OWNER')};
ZZZZ010541	18750	COPY=ADD10
ZZZZ010541	18760	=SQL{?WC?' AND G0.TABLE_NAME=G.OBJECT_NAME')};
ZZZZ010541	18770	COPY=ADD10
ZZZZ010541	18780	=SQL{?WC?' LEFT JOIN ALL_TAB_PRIVS G1')};
ZZZZ010541	18790	COPY=ADD10
ZZZZ010541	18800	=SQL{?WC?' ON G1.PRIVILEGE=''INSERT''')};
ZZZZ010541	18810	COPY=ADD10
ZZZZ010541	18820	=SQL{?WC?' AND G1.GRANTOR=G.OWNER')};
ZZZZ010541	18830	COPY=ADD10
ZZZZ010541	18840	=SQL{?WC?' AND G1.TABLE_NAME=G.OBJECT_NAME')};
ZZZZ010541	18850	COPY=ADD10
ZZZZ010541	18860	=SQL{?WC?' AND G1.GRANTEE=G0.GRANTEE')};
ZZZZ010541	18870	COPY=ADD10
ZZZZ010541	18880	=SQL{?WC?' LEFT JOIN ALL_TAB_PRIVS G2')};
ZZZZ010541	18890	COPY=ADD10
ZZZZ010541	18900	=SQL{?WC?' ON G2.PRIVILEGE=''UPDATE''')};
ZZZZ010541	18910	COPY=ADD10
ZZZZ010541	18920	=SQL{?WC?' AND G2.GRANTOR=G.OWNER')};
ZZZZ010541	18930	COPY=ADD10
ZZZZ010541	18940	=SQL{?WC?' AND G2.TABLE_NAME=G.OBJECT_NAME ')};
ZZZZ010541	18950	COPY=ADD10
ZZZZ010541	18960	=SQL{?WC?' AND G2.GRANTEE=G0.GRANTEE')};
ZZZZ010541	18970	COPY=ADD10
ZZZZ010541	18980	=SQL{?WC?' LEFT JOIN ALL_TAB_PRIVS G3')};
ZZZZ010541	18990	COPY=ADD10
ZZZZ010541	19000	=SQL{?WC?' ON G3.PRIVILEGE=''DELETE''')};
ZZZZ010541	19010	COPY=ADD10
ZZZZ010541	19020	=SQL{?WC?' AND G3.GRANTOR=G.OWNER')};
ZZZZ010541	19030	COPY=ADD10
ZZZZ010541	19040	=SQL{?WC?' AND G3.TABLE_NAME=G.OBJECT_NAME')};
ZZZZ010541	19050	COPY=ADD10
ZZZZ010541	19060	=SQL{?WC?' AND G3.GRANTEE=G0.GRANTEE')};
ZZZZ010541	19070	COPY=ADD10
ZZZZ010541	19080	=SQL{?WC?' WHERE G.OWNER IN')};
ZZZZ010541	19090	COPY=ADD10
ZZZZ010541	19100	=SQL{?WC?'(?WC.O_OWNER?)')};
ZZZZ010541	19110	COPY=ADD10
ZZZZ010541	19120	=SQL{?WC?' AND (OBJECT_TYPE')};
ZZZZ010541	19130	COPY=ADD10
ZZZZ010541	19140	=SQL{?WC?' IN(''TABLE'',''VIEW'')')};
ZZZZ010541	19150	COPY=ADD10
ZZZZ010541	19160	=SQL{?WC?' AND G0.PRIVILEGE=''SELECT''')};
ZZZZ010541	19170	COPY=ADD10
ZZZZ010541	19180	=SQL{?WC?' OR OBJECT_TYPE')};
ZZZZ010541	19190	COPY=ADD10
ZZZZ010541	19200	=SQL{?WC?' IN(''PROCEDURE'',''TRIGGER'')')};
ZZZZ010541	19210	COPY=ADD10
ZZZZ010541	19220	=SQL{?WC?' AND G0.PRIVILEGE=''EXECUTE'')')};
ZZZZ010541	19230	COPY=ADD10
ZZZZ010541	19240	=SQL{?WC?' AND (G0.GRANTEE LIKE')};
ZZZZ010541	19250	COPY=ADD10
ZZZZ010541	19260	=SQL{?WC?' ''?_Q?_DB_HEADER?_Q?%''')};
ZZZZ010541	19270	COPY=ADD10
ZZZZ010541	19280	=SQL{?WC?' OR G0.GRANTEE =''PUBLIC'')')};
ZZZZ010541	19290	COPY=ADD10
ZZZZ010541	19300	=SQL{?WC?' AND G.OBJECT_NAME NOT LIKE ''BIN$%'' ')};
ZZZZ010541	19310	NAME=
ZZZZ010541	19320	*************************************************************
ZZZZ010541	19330	=O_SKIP:
ZZZZ010541	19340	=SET{_REAL_TEST='REAL'};
ZZZZ010541	19350	=IF{_DB!='I'}JUMP{I_SKIP};
ZZZZ010541	19360	=WRITE_OPEN{1,?_TMP?SETUP_?_SYSTEM?.BAT,OT,SHIFT_JIS};
ZZZZ010541	19370	W+=WRITE{1,'@ECHO OFF'};
ZZZZ010541	19380	=SET{WREAL_TEST='REAL'};
ZZZZ010541	19390	**************( NET USER )***********************************
ZZZZ010541	19400	=IF{_DB!='I'}JUMP{I_SKIP};
ZZZZ010541	19410	REPEAT0=$W0.PERMISSION
ZZZZ010541	19420	REPEAT=2 (WC.M_W##)
ZZZZ010541	19430	****=SET{WC.PAS=WC.PASSWORD_?WC.REAL_TEST##?};
ZZZZ010541	19440	=SET{WC.LTR=WC.REAL_TEST##};
ZZZZ010541	19450	=SET{W0.REPEAT2CNT=0};
ZZZZ010541	19460	REPEAT2=4 (WC.DIOL--)
ZZZZ010541	19470	=COMPUTE{W0.REPEAT2CNT+=1};
ZZZZ010541	19480	=MESSAGE{NET USER (?WC.REAL_TEST##?,?WC.PER$$?)};
ZZZZ010541	19490	***=IF{W0.REPEAT2CNT=4}SET{WC.PAS=WC.PASSWORD_LINK};
ZZZZ010541	19500	=IF{W0.REPEAT2CNT=4}SET{WC.LTR='LINK'};
ZZZZ010541	19510	=SET{WC.DIOL=WC.DIOL?W0.REPEAT2CNT?};
ZZZZ010541	19520	=SET{WC.USER='?_SYSTEM??WC.R_T##??WC.DIOL??WC.PER$$?'};
ZZZZ010541	19530	=SET{WC.USER=WC.USER@LOWER};
ZZZZ010541	19540	**W+=SET{WC='NET USER ?WC.USER? ?WC.PAS? /ADD /EXPIRES:NEVER'
ZZZZ010541	19550	***W+=     +' /PASSWORDCHG:NO'};
ZZZZ010541	19560	***W+=WRITE{1,WC};
ZZZZ010541	19570	*** VER37.8.0.12 ***
ZZZZ010541	19580	=IF_ERROR_LOGIN_ZZ_ADDLOGIN{?WC.LTR?}{?WC.USER?}{}NOP{};
ZZZZ010541	19590	*W-=SET{WC='CUT -D: -F1 /ETC/PASSWD|GREP ?WC.USER?>/DEV/NULL'
ZZZZ010541	19600	***W-=};WRITE{1,WC@LOWER};
ZZZZ010541	19610	**W-=SET{WC='IF TEST $?_Q? != 0 ;THEN'};WRITE{1,WC@LOWER};
ZZZZ010541	19620	***W-=SET{_LOWER='   USERADD -G DB2USERS -D /HOME'};
ZZZZ010541	19630	***W-=SET{WC=_LOWER+'/I ?WC.USER?'};WRITE{1,WC};
ZZZZ010541	19640	***W-=SET{WC='   PASSWD ?WC.USER?<<END'};WRITE{1,WC@LOWER};
ZZZZ010541	19650	***W-=SET{WC='?WC.PAS?'};WRITE{1,WC};
ZZZZ010541	19660	***W-=SET{WC='?WC.PAS?'};WRITE{1,WC};
ZZZZ010541	19670	***W-=SET{WC='END'};WRITE{1,WC@LOWER};
ZZZZ010541	19680	***W-=SET{WC='FI'};WRITE{1,WC@LOWER};
ZZZZ010541	19690	W+=SET{WC='NET LOCALGROUP DB2USERS ?WC.USER? /ADD'};
ZZZZ010541	19700	W+=WRITE{1,WC};
ZZZZ010541	19710	W+=SET{WC='NET LOCALGROUP USERS ?WC.USER? /DELETE'};
ZZZZ010541	19720	W+=WRITE{1,WC};
ZZZZ010541	19730	W+=SET{WC='WMIC USERACCOUNT WHERE (NAME="?WC.USER?")'
ZZZZ010541	19740	W+=     +' SET PASSWORDEXPIRES=FALSE'};
ZZZZ010541	19750	W+=WRITE{1,WC};
ZZZZ010541	19760	REPEAT0=
ZZZZ010541	19770	W+=SET{WC='@ECHO OFF'};WRITE{1,WC};
ZZZZ010541	19780	=WRITE_CLOSE{1};
ZZZZ010541	19790	*W+=EXE_WAIT{?_I?IROOT?_OS??_FRAMEWORK?.EXE,
ZZZZ010541	19800	*W+=  ?_TMP?SETUP_?_SYSTEM?.BAT};
ZZZZ010541	19810	W+=COMMAND{CALL ?_I?IROOT?_OS??_FRAMEWORK?.EXE
ZZZZ010541	19820	W+=  ?_TMP?SETUP_?_SYSTEM?.BAT};
ZZZZ010541	19830	W-=SET{WC.CHMOD='CHMOD'};
ZZZZ010541	19840	W-=COMMAND{?WC.CHMOD@LOWER? 777 ?_TMP?SETUP_?_SYSTEM?.BAT};
ZZZZ010541	19850	W-=COMMAND{?_TMP?SETUP_?_SYSTEM?.BAT};
ZZZZ010541	19860	=SKIP:
ZZZZ010541	19870	=ERASE_FILE{SETUP_?_SYSTEM?.BAT};
ZZZZ010541	19880	=MESSAGE{CREATE SCHEMA};
ZZZZ010541	19890	****( CREATE SCHEMA )****************************************
ZZZZ010541	19900	REPEAT0=$W0.PERMISSION
ZZZZ010541	19910	REPEAT=2  (WC.R_T##=R;T)
ZZZZ010541	19920	=SET{W0.REPEAT2CNT=0};
ZZZZ010541	19930	REPEAT2=2 (WC.M_W=M;W)
ZZZZ010541	19940	=COMPUTE{W0.REPEAT2CNT+=1};
ZZZZ010541	19950	=SET{WC.M_W=WC.M_W?W0.REPEAT2CNT?};
ZZZZ010541	19960	=SET{WC.SCHEMA='?WC.IS??WC.R_T##?_?WC.M_W?_?WC.PER$$?'};
ZZZZ010541	19970	=SET{WC.AUTH='?_SYSTEM??WC.R_T##?D?WC.PER$$?'};
ZZZZ010541	19980	=SET{WC.AUTH =WC.AUTH@LOWER};
ZZZZ010541	19990	=IF_ERROR_LOGIN_SQL{
ZZZZ010541	20000	=   CREATE SCHEMA ?WC.SCHEMA? AUTHORIZATION ?WC.AUTH?}
ZZZZ010541	20010	=  IF{_DB_I_ERROR!='EXIST'}ERROR{?_DB_ERROR? ?_ERROR?};
ZZZZ010541	20020	REPEAT0=
ZZZZ010541	20030	*************************************************************
ZZZZ010541	20040	=MESSAGE{GRANT ...};
ZZZZ010541	20050	REPEAT0=$W0.PERMISSION
ZZZZ010541	20060	REPEAT=3
ZZZZ010541	20070	=SET{W0.REPEAT2CNT=0};
ZZZZ010541	20080	REPEAT2=2 (WC.PER--(ZZZZ;自分))
ZZZZ010541	20090	=COMPUTE{W0.REPEAT2CNT+=1};
ZZZZ010541	20100	=SET{WC.PERX=WC.PER?W0.REPEAT2CNT?};
ZZZZ010541	20110	=SET{WC.G='GRANT ALTERIN,CREATEIN,DROPIN ON SCHEMA'
ZZZZ010541	20120	=        +' ?WC.IS??WC.RTT##?_'};
ZZZZ010541	20130	=SET{_LOWER='?_SYSTEM?RDZZZZ',WC.USER=_LOWER};
ZZZZ010541	20140	=LOGIN_SQL{?WC.G?M_?WC.PER$$? TO USER ?WC.USER?};
ZZZZ010541	20150	=SET{_LOWER='?_SYSTEM??WC.RRT##?D?WC.PERX?',WC.USER=_LOWER};
ZZZZ010541	20160	=LOGIN_SQL{?WC.G?M_?WC.PER$$? TO USER ?WC.USER?};
ZZZZ010541	20170	=LOGIN_SQL{?WC.G?W_?WC.PER$$? TO USER ?WC.USER?};
ZZZZ010541	20180	=SET{_LOWER='?_SYSTEM??WC.RRT##?I?WC.PERX?',WC.USER=_LOWER};
ZZZZ010541	20190	=LOGIN_SQL{?WC.G?W_?WC.PER$$? TO USER ?WC.USER?};
ZZZZ010541	20200	=SET{_LOWER='?_SYSTEM??WC.RRT##?O?WC.PERX?',WC.USER=_LOWER};
ZZZZ010541	20210	=LOGIN_SQL{?WC.G?W_?WC.PER$$? TO USER ?WC.USER?};
ZZZZ010541	20220	=SET{WC.G='GRANT CONNECT ON DATABASE TO USER'};
ZZZZ010541	20230	=SET{_LOWER='?_SYSTEM??WC.RRT##?L?WC.PERX?',WC.USER=_LOWER};
ZZZZ010541	20240	=LOGIN_SQL{?WC.G? ?WC.USER?};
ZZZZ010541	20250	=IF{WC.PER$$='ZZZZ'}JUMP{SKIP};
ZZZZ010541	20260	REPEAT2=
ZZZZ010541	20270	=SKIP:
ZZZZ010541	20280	REPEAT0=
ZZZZ010541	20290	=JUMP{I_SKIP};
ZZZZ010541	20300	********( OBJECT_VIEW )**************************************
ZZZZ010541	20310	NAME=I_OBJECT_VIEW
ZZZZ010541	20320	=SET{WC.I=WC.INSERT+'''I'','};
ZZZZ010541	20330	COPY=ADD10
ZZZZ010541	20340	=SQL{?WC?'(SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	20350	COPY=ADD10
ZZZZ010541	20360	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME,SYSTEM_TEXT')};
ZZZZ010541	20370	COPY=ADD10
ZZZZ010541	20380	=SQL{?WC?',SYSTEM_ADD_DATE17,SYSTEM_CHANGE_DATE17)')};
ZZZZ010541	20390	COPY=ADD10
ZZZZ010541	20400	=SQL{?WC?' AS SELECT CAST(''TABLE'' AS CHAR(5))')};
ZZZZ010541	20410	COPY=ADD10
ZZZZ010541	20420	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	20430	COPY=ADD10
ZZZZ010541	20440	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	20450	COPY=ADD10
ZZZZ010541	20460	=SQL{?WC?',CAST(SUBSTR(DEFINER,LENGTH(DEFINER)-4,1)')};
ZZZZ010541	20470	COPY=ADD10
ZZZZ010541	20480	=SQL{?WC?' AS CHAR(1))')};
ZZZZ010541	20490	COPY=ADD10
ZZZZ010541	20500	=SQL{?WC?',CAST(NAME AS CHAR(90))')};
ZZZZ010541	20510	COPY=ADD10
ZZZZ010541	20520	=SQL{?WC?',CAST(NULL AS VARCHAR(12000))')};
ZZZZ010541	20530	COPY=ADD10
ZZZZ010541	20540	=SQL{?WC?',CAST(REPLACE(REPLACE(CHAR(CTIME)')};
ZZZZ010541	20550	COPY=ADD10
ZZZZ010541	20560	=SQL{?WC?',''-'',''''),''.'','''') AS CHAR(17))')};
ZZZZ010541	20570	COPY=ADD10
ZZZZ010541	20580	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	20590	COPY=ADD10
ZZZZ010541	20600	=SQL{?WC?' FROM SYSIBM.SYSTABLES')};
ZZZZ010541	20610	COPY=ADD10
ZZZZ010541	20620	=SQL{?WC?' WHERE CREATOR=''?WC.I_DB?''')};
ZZZZ010541	20630	COPY=ADD10
ZZZZ010541	20640	=SQL{?WC?' AND TYPE=''T''')};
ZZZZ010541	20650	COPY=ADD10
ZZZZ010541	20660	=SQL{?WC?' UNION ALL SELECT CAST(''VIEW'' AS CHAR(5))')};
ZZZZ010541	20670	COPY=ADD10
ZZZZ010541	20680	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	20690	COPY=ADD10
ZZZZ010541	20700	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	20710	COPY=ADD10
ZZZZ010541	20720	=SQL{?WC?',CAST(SUBSTR(T.DEFINER,LENGTH(T.DEFINER)-4,1)')};
ZZZZ010541	20730	COPY=ADD10
ZZZZ010541	20740	=SQL{?WC?' AS CHAR(1))')};
ZZZZ010541	20750	COPY=ADD10
ZZZZ010541	20760	=SQL{?WC?',CAST(V.NAME AS CHAR(90))')};
ZZZZ010541	20770	COPY=ADD10
ZZZZ010541	20780	=SQL{?WC?',CAST(V.TEXT AS VARCHAR(12000))')};
ZZZZ010541	20790	COPY=ADD10
ZZZZ010541	20800	=SQL{?WC?',CAST(REPLACE(REPLACE(CHAR(T.CTIME)')};
ZZZZ010541	20810	COPY=ADD10
ZZZZ010541	20820	=SQL{?WC?',''-'',''''),''.'','''') AS CHAR(17))')};
ZZZZ010541	20830	COPY=ADD10
ZZZZ010541	20840	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	20850	COPY=ADD10
ZZZZ010541	20860	=SQL{?WC?' FROM SYSIBM.SYSVIEWS V')};
ZZZZ010541	20870	COPY=ADD10
ZZZZ010541	20880	=SQL{?WC?',SYSIBM.SYSTABLES T WHERE')};
ZZZZ010541	20890	COPY=ADD10
ZZZZ010541	20900	=SQL{?WC?' V.CREATOR=''?WC.I_DB?''')};
ZZZZ010541	20910	COPY=ADD10
ZZZZ010541	20920	=SQL{?WC?' AND V.NAME=T.NAME')};
ZZZZ010541	20930	COPY=ADD10
ZZZZ010541	20940	=SQL{?WC?' AND T.CREATOR=''?WC.I_DB?''')};
ZZZZ010541	20950	COPY=ADD10
ZZZZ010541	20960	=SQL{?WC?' UNION ALL SELECT CAST(''FUNC'' AS CHAR(5))')};
ZZZZ010541	20970	COPY=ADD10
ZZZZ010541	20980	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	20990	COPY=ADD10
ZZZZ010541	21000	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	21010	COPY=ADD10
ZZZZ010541	21020	=SQL{?WC?',CAST(SUBSTR(DEFINER,LENGTH(DEFINER)-4,1)')};
ZZZZ010541	21030	COPY=ADD10
ZZZZ010541	21040	=SQL{?WC?' AS CHAR(1))')};
ZZZZ010541	21050	COPY=ADD10
ZZZZ010541	21060	=SQL{?WC?',CAST(NAME AS CHAR(90))')};
ZZZZ010541	21070	COPY=ADD10
ZZZZ010541	21080	=SQL{?WC?',CAST(BODY AS VARCHAR(12000))')};
ZZZZ010541	21090	COPY=ADD10
ZZZZ010541	21100	=SQL{?WC?',CAST(REPLACE(REPLACE(CHAR(CREATE_TIME)')};
ZZZZ010541	21110	COPY=ADD10
ZZZZ010541	21120	=SQL{?WC?',''-'',''''),''.'','''') AS CHAR(17))')};
ZZZZ010541	21130	COPY=ADD10
ZZZZ010541	21140	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	21150	COPY=ADD10
ZZZZ010541	21160	=SQL{?WC?' FROM SYSIBM.SYSFUNCTIONS')};
ZZZZ010541	21170	COPY=ADD10
ZZZZ010541	21180	=SQL{?WC?' WHERE SCHEMA=''?WC.I_DB?''')};
ZZZZ010541	21190	COPY=ADD10
ZZZZ010541	21200	=SQL{?WC?' UNION ALL SELECT CAST(''PROC'' AS CHAR(5))')};
ZZZZ010541	21210	COPY=ADD10
ZZZZ010541	21220	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	21230	COPY=ADD10
ZZZZ010541	21240	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	21250	COPY=ADD10
ZZZZ010541	21260	=SQL{?WC?',CAST(SUBSTR(DEFINER,LENGTH(DEFINER)-4,1)')};
ZZZZ010541	21270	COPY=ADD10
ZZZZ010541	21280	=SQL{?WC?' AS CHAR(1))')};
ZZZZ010541	21290	COPY=ADD10
ZZZZ010541	21300	=SQL{?WC?',CAST(PROCNAME AS CHAR(90))')};
ZZZZ010541	21310	COPY=ADD10
ZZZZ010541	21320	=SQL{?WC?',CAST(TEXT AS VARCHAR(12000))')};
ZZZZ010541	21330	COPY=ADD10
ZZZZ010541	21340	=SQL{?WC?',CAST(REPLACE(REPLACE(CHAR(CREATE_TIME)')};
ZZZZ010541	21350	COPY=ADD10
ZZZZ010541	21360	=SQL{?WC?',''-'',''''),''.'','''') AS CHAR(17))')};
ZZZZ010541	21370	COPY=ADD10
ZZZZ010541	21380	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	21390	COPY=ADD10
ZZZZ010541	21400	=SQL{?WC?' FROM  SYSIBM.SYSPROCEDURES')};
ZZZZ010541	21410	COPY=ADD10
ZZZZ010541	21420	=SQL{?WC?' WHERE PROCSCHEMA=''?WC.I_DB?'' ')};
ZZZZ010541	21430	COPY=ADD10
ZZZZ010541	21440	=SQL{?WC?' UNION ALL SELECT CAST(''TRIG'' AS CHAR(5))')};
ZZZZ010541	21450	COPY=ADD10
ZZZZ010541	21460	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	21470	COPY=ADD10
ZZZZ010541	21480	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	21490	COPY=ADD10
ZZZZ010541	21500	=SQL{?WC?',CAST(SUBSTR(DEFINER,LENGTH(DEFINER)-4,1)')};
ZZZZ010541	21510	COPY=ADD10
ZZZZ010541	21520	=SQL{?WC?' AS CHAR(1))')};
ZZZZ010541	21530	COPY=ADD10
ZZZZ010541	21540	=SQL{?WC?',CAST(NAME AS CHAR(90))')};
ZZZZ010541	21550	COPY=ADD10
ZZZZ010541	21560	=SQL{?WC?',CAST(TEXT AS VARCHAR(12000))')};
ZZZZ010541	21570	COPY=ADD10
ZZZZ010541	21580	=SQL{?WC?',CAST(REPLACE(REPLACE(CHAR(CREATE_TIME)')};
ZZZZ010541	21590	COPY=ADD10
ZZZZ010541	21600	=SQL{?WC?',''-'',''''),''.'','''') AS CHAR(17))')};
ZZZZ010541	21610	COPY=ADD10
ZZZZ010541	21620	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	21630	COPY=ADD10
ZZZZ010541	21640	=SQL{?WC?' FROM SYSIBM.SYSTRIGGERS')};
ZZZZ010541	21650	COPY=ADD10
ZZZZ010541	21660	=SQL{?WC?' WHERE SCHEMA=''?WC.I_DB?'' ')};
ZZZZ010541	21670	*****( COLUMN_VIEW )*****************************************
ZZZZ010541	21680	NAME=I_COLUMN_VIEW
ZZZZ010541	21690	=SET{WC.I=WC.INSERT+'''I'','};
ZZZZ010541	21700	COPY=ADD10
ZZZZ010541	21710	=SQL{?WC?'(SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	21720	COPY=ADD10
ZZZZ010541	21730	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME,SYSTEM_SEQ')};
ZZZZ010541	21740	COPY=ADD10
ZZZZ010541	21750	=SQL{?WC?',SYSTEM_DATA_NAME,SYSTEM_DEFAULT_TYPE')};
ZZZZ010541	21760	COPY=ADD10
ZZZZ010541	21770	=SQL{?WC?',SYSTEM_DEFAULT_LENGTH1')};
ZZZZ010541	21780	COPY=ADD10
ZZZZ010541	21790	=SQL{?WC?',SYSTEM_DEFAULT_LENGTH2,SYSTEM_DEFAULT')};
ZZZZ010541	21800	COPY=ADD10
ZZZZ010541	21810	=SQL{?WC?',SYSTEM_NULL)AS SELECT')};
ZZZZ010541	21820	COPY=ADD10
ZZZZ010541	21830	=SQL{?WC?' CAST(CASE T.TYPE WHEN ''V''')};
ZZZZ010541	21840	COPY=ADD10
ZZZZ010541	21850	=SQL{?WC?' THEN ''VIEW'' ELSE ''TABLE'' END AS CHAR(5))')};
ZZZZ010541	21860	COPY=ADD10
ZZZZ010541	21870	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	21880	COPY=ADD10
ZZZZ010541	21890	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	21900	COPY=ADD10
ZZZZ010541	21910	=SQL{?WC?',CAST(SUBSTR(DEFINER,LENGTH(DEFINER)-4,1)')};
ZZZZ010541	21920	COPY=ADD10
ZZZZ010541	21930	=SQL{?WC?' AS CHAR(1))')};
ZZZZ010541	21940	COPY=ADD10
ZZZZ010541	21950	=SQL{?WC?',CAST(C.TBNAME AS CHAR(90))')};
ZZZZ010541	21960	COPY=ADD10
ZZZZ010541	21970	=SQL{?WC?',COLNO+1,CAST(C.NAME AS CHAR(90))')};
ZZZZ010541	21980	COPY=ADD10
ZZZZ010541	21990	=SQL{?WC?',CAST(CASE C.COLTYPE')};
ZZZZ010541	22000	COPY=ADD10
ZZZZ010541	22010	=SQL{?WC?' WHEN ''INTEGER'' THEN ''INT''')};
ZZZZ010541	22020	COPY=ADD10
ZZZZ010541	22030	=SQL{?WC?' WHEN ''SMALLINT'' THEN ''INT''')};
ZZZZ010541	22040	COPY=ADD10
ZZZZ010541	22050	=SQL{?WC?' WHEN ''TIMESTMP'' THEN ''DATETIME''')};
ZZZZ010541	22060	COPY=ADD10
ZZZZ010541	22070	=SQL{?WC?' WHEN ''DOUBLE'' THEN ''FLOAT''')};
ZZZZ010541	22080	COPY=ADD10
ZZZZ010541	22090	=SQL{?WC?' WHEN ''CHAR''    THEN')};
ZZZZ010541	22100	COPY=ADD10
ZZZZ010541	22110	=SQL{?WC?' CASE SYSTEM_DEFAULT_TYPE')};
ZZZZ010541	22120	COPY=ADD10
ZZZZ010541	22130	=SQL{?WC?' WHEN ''NCHAR''    THEN ''NCHAR''')};
ZZZZ010541	22140	COPY=ADD10
ZZZZ010541	22150	=SQL{?WC?' ELSE C.COLTYPE END')};
ZZZZ010541	22160	COPY=ADD10
ZZZZ010541	22170	=SQL{?WC?' WHEN ''VARCHAR''  THEN ')};
ZZZZ010541	22180	COPY=ADD10
ZZZZ010541	22190	=SQL{?WC?' CASE SYSTEM_DEFAULT_TYPE')};
ZZZZ010541	22200	COPY=ADD10
ZZZZ010541	22210	=SQL{?WC?' WHEN ''NVARCHAR'' THEN ''NVARCHAR''')};
ZZZZ010541	22220	COPY=ADD10
ZZZZ010541	22230	=SQL{?WC?' ELSE C.COLTYPE END')};
ZZZZ010541	22240	COPY=ADD10
ZZZZ010541	22250	=SQL{?WC?' ELSE C.COLTYPE END AS CHAR(9))')};
ZZZZ010541	22260	COPY=ADD10
ZZZZ010541	22270	=SQL{?WC?',CAST(CASE C.COLTYPE')};
ZZZZ010541	22280	COPY=ADD10
ZZZZ010541	22290	=SQL{?WC?' WHEN ''DECIMAL'' THEN C.LENGTH ')};
ZZZZ010541	22300	COPY=ADD10
ZZZZ010541	22310	=SQL{?WC?' WHEN ''CHAR''    THEN')};
ZZZZ010541	22320	COPY=ADD10
ZZZZ010541	22330	=SQL{?WC?' CASE SYSTEM_DEFAULT_TYPE')};
ZZZZ010541	22340	COPY=ADD10
ZZZZ010541	22350	=SQL{?WC?' WHEN ''NCHAR''')};
ZZZZ010541	22360	COPY=ADD10
ZZZZ010541	22370	=SQL{?WC?' THEN C.LENGTH/?_UTF8_SET?')};
ZZZZ010541	22380	COPY=ADD10
ZZZZ010541	22390	=SQL{?WC?' ELSE C.LENGTH END')};
ZZZZ010541	22400	COPY=ADD10
ZZZZ010541	22410	=SQL{?WC?' WHEN ''VARCHAR'' THEN')};
ZZZZ010541	22420	COPY=ADD10
ZZZZ010541	22430	=SQL{?WC?' CASE SYSTEM_DEFAULT_TYPE')};
ZZZZ010541	22440	COPY=ADD10
ZZZZ010541	22450	=SQL{?WC?' WHEN ''NVARCHAR''')};
ZZZZ010541	22460	COPY=ADD10
ZZZZ010541	22470	=SQL{?WC?' THEN C.LENGTH/?_UTF8_SET?')};
ZZZZ010541	22480	COPY=ADD10
ZZZZ010541	22490	=SQL{?WC?' ELSE C.LENGTH END')};
ZZZZ010541	22500	COPY=ADD10
ZZZZ010541	22510	=SQL{?WC?' WHEN ''TEXT'' THEN 4000')};
ZZZZ010541	22520	COPY=ADD10
ZZZZ010541	22530	=SQL{?WC?' WHEN ''CLOB'' THEN 4000 ')};
ZZZZ010541	22540	COPY=ADD10
ZZZZ010541	22550	=SQL{?WC?' WHEN ''TIMESTMP'' THEN 17')};
ZZZZ010541	22560	COPY=ADD10
ZZZZ010541	22570	=SQL{?WC?' WHEN ''DATE'' THEN 8')};
ZZZZ010541	22580	COPY=ADD10
ZZZZ010541	22590	=SQL{?WC?' ELSE 9 END AS INT)')};
ZZZZ010541	22600	COPY=ADD10
ZZZZ010541	22610	=SQL{?WC?',CAST(CASE C.COLTYPE')};
ZZZZ010541	22620	COPY=ADD10
ZZZZ010541	22630	=SQL{?WC?' WHEN ''DECIMAL'' THEN C.SCALE')};
ZZZZ010541	22640	COPY=ADD10
ZZZZ010541	22650	=SQL{?WC?' ELSE 0 END AS INT)')};
ZZZZ010541	22660	COPY=ADD10
ZZZZ010541	22670	=SQL{?WC?',CAST(C.DEFAULT AS CHAR(90))')};
ZZZZ010541	22680	COPY=ADD10
ZZZZ010541	22690	=SQL{?WC?',CAST(CASE C.NULLS WHEN ''N'' ')};
ZZZZ010541	22700	COPY=ADD10
ZZZZ010541	22710	=SQL{?WC?' THEN ''0'' ELSE ''1'' END AS CHAR(1))')};
ZZZZ010541	22720	COPY=ADD10
ZZZZ010541	22730	=SQL{?WC?' FROM SYSIBM.SYSCOLUMNS C')};
ZZZZ010541	22740	COPY=ADD10
ZZZZ010541	22750	=SQL{?WC?' INNER JOIN SYSIBM.SYSTABLES T')};
ZZZZ010541	22760	COPY=ADD10
ZZZZ010541	22770	=SQL{?WC?' ON C.TBNAME=T.NAME')};
ZZZZ010541	22780	COPY=ADD10
ZZZZ010541	22790	=SQL{?WC?' AND C.TBCREATOR=T.CREATOR')};
ZZZZ010541	22800	COPY=ADD10
ZZZZ010541	22810	=SQL{?WC?' LEFT OUTER JOIN')};
ZZZZ010541	22820	COPY=ADD10
ZZZZ010541	22830	=SQL{?WC?' I_?_Q?_SYSTEM?_Q?_R_M_ZZZZ')};
ZZZZ010541	22840	COPY=ADD10
ZZZZ010541	22850	=SQL{?WC?'.ZZZZZZ_I_DICTIONARY_TABLE')};
ZZZZ010541	22860	COPY=ADD10
ZZZZ010541	22870	=SQL{?WC?' ON C.NAME=SYSTEM_DATA_NAME')};
ZZZZ010541	22880	COPY=ADD10
ZZZZ010541	22890	=SQL{?WC?' AND SYSTEM_PERMISSION=''?WC.PER?''')};
ZZZZ010541	22900	COPY=ADD10
ZZZZ010541	22910	=SQL{?WC?' AND SYSTEM_LANG=''?_LANG_SYSTEM?''')};
ZZZZ010541	22920	COPY=ADD10
ZZZZ010541	22930	=SQL{?WC?' WHERE C.TBCREATOR=''?WC.I_DB?''')};
ZZZZ010541	22940	*****( INDEX_VIEW )***************************************
ZZZZ010541	22950	NAME=I_INDEX_VIEW
ZZZZ010541	22960	=SET{WC.I=WC.INSERT+'''I'','};
ZZZZ010541	22970	COPY=ADD10
ZZZZ010541	22980	=SQL{?WC?'(SYSTEM_REAL,SYSTEM_WORK,SYSTEM_USER_X')};
ZZZZ010541	22990	COPY=ADD10
ZZZZ010541	23000	=SQL{?WC?',SYSTEM_NAME,SYSTEM_DATA_NAME')};
ZZZZ010541	23010	COPY=ADD10
ZZZZ010541	23020	=SQL{?WC?',SYSTEM_IX,SYSTEM_NO)AS SELECT')};
ZZZZ010541	23030	COPY=ADD10
ZZZZ010541	23040	=SQL{?WC?' CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	23050	COPY=ADD10
ZZZZ010541	23060	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	23070	COPY=ADD10
ZZZZ010541	23080	=SQL{?WC?',CAST(SUBSTR(DEFINER,LENGTH(DEFINER)-4,1)')};
ZZZZ010541	23090	COPY=ADD10
ZZZZ010541	23100	=SQL{?WC?' AS CHAR(1))')};
ZZZZ010541	23110	COPY=ADD10
ZZZZ010541	23120	=SQL{?WC?',CAST(TBNAME AS CHAR(90))')};
ZZZZ010541	23130	COPY=ADD10
ZZZZ010541	23140	=SQL{?WC?',CAST(COLNAME AS CHAR(90))')};
ZZZZ010541	23150	COPY=ADD10
ZZZZ010541	23160	=SQL{?WC?',CAST(SUBSTR(NAME,2,1) AS CHAR(1))')};
ZZZZ010541	23170	COPY=ADD10
ZZZZ010541	23180	=SQL{?WC?',CAST(COLSEQ-CASE WHEN UNIQUERULE<>''D''')};
ZZZZ010541	23190	COPY=ADD10
ZZZZ010541	23200	=SQL{?WC?' THEN 1 ELSE 0 END AS INT)')};
ZZZZ010541	23210	COPY=ADD10
ZZZZ010541	23220	=SQL{?WC?' FROM SYSIBM.SYSINDEXES')};
ZZZZ010541	23230	COPY=ADD10
ZZZZ010541	23240	=SQL{?WC?' INNER JOIN SYSIBM.SYSINDEXCOLUSE')};
ZZZZ010541	23250	COPY=ADD10
ZZZZ010541	23260	=SQL{?WC?' ON NAME=INDNAME')};
ZZZZ010541	23270	COPY=ADD10
ZZZZ010541	23280	=SQL{?WC?' AND CREATOR=INDSCHEMA')};
ZZZZ010541	23290	COPY=ADD10
ZZZZ010541	23300	=SQL{?WC?' LEFT JOIN SYSIBM.SYSCONSTDEP')};
ZZZZ010541	23310	COPY=ADD10
ZZZZ010541	23320	=SQL{?WC?' ON NAME=BNAME')};
ZZZZ010541	23330	COPY=ADD10
ZZZZ010541	23340	=SQL{?WC?' AND CREATOR=BCREATOR')};
ZZZZ010541	23350	COPY=ADD10
ZZZZ010541	23360	=SQL{?WC?' AND DTBCREATOR=''?WC.I_DB?''')};
ZZZZ010541	23370	COPY=ADD10
ZZZZ010541	23380	=SQL{?WC?' WHERE SUBSTR(NAME,1,2)')};
ZZZZ010541	23390	COPY=ADD10
ZZZZ010541	23400	=SQL{?WC?' IN(''X0'',''X1'',''X2'',''X3'',''X4''')};
ZZZZ010541	23410	COPY=ADD10
ZZZZ010541	23420	=SQL{?WC?',''X5'',''X6'',''X7'',''X8'',''X9'')')};
ZZZZ010541	23430	COPY=ADD10
ZZZZ010541	23440	=SQL{?WC?' AND TBCREATOR=''?WC.I_DB?''')};
ZZZZ010541	23450	*****( GRANT_VIEW )***************************************
ZZZZ010541	23460	NAME=I_GRANT_VIEW
ZZZZ010541	23470	=SET{WC.I=WC.INSERT+'''I'','};
ZZZZ010541	23480	COPY=ADD10
ZZZZ010541	23490	=SQL{?WC?'(SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	23500	COPY=ADD10
ZZZZ010541	23510	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME,SYSTEM_GRANT')};
ZZZZ010541	23520	COPY=ADD10
ZZZZ010541	23530	=SQL{?WC?',SYSTEM_SELECT,SYSTEM_INSERT')};
ZZZZ010541	23540	COPY=ADD10
ZZZZ010541	23550	=SQL{?WC?',SYSTEM_UPDATE,SYSTEM_DELETE')};
ZZZZ010541	23560	COPY=ADD10
ZZZZ010541	23570	=SQL{?WC?',SYSTEM_EXECUTE)AS SELECT')};
ZZZZ010541	23580	COPY=ADD10
ZZZZ010541	23590	=SQL{?WC?' CAST(CASE T.TYPE')};
ZZZZ010541	23600	COPY=ADD10
ZZZZ010541	23610	=SQL{?WC?' WHEN ''V'' THEN ''VIEW''')};
ZZZZ010541	23620	COPY=ADD10
ZZZZ010541	23630	=SQL{?WC?' ELSE ''TABLE'' END AS CHAR(5))')};
ZZZZ010541	23640	COPY=ADD10
ZZZZ010541	23650	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	23660	COPY=ADD10
ZZZZ010541	23670	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	23680	COPY=ADD10
ZZZZ010541	23690	=SQL{?WC?',CAST(SUBSTR(DEFINER,LENGTH(DEFINER)-4,1)')};
ZZZZ010541	23700	COPY=ADD10
ZZZZ010541	23710	=SQL{?WC?' AS CHAR(1))')};
ZZZZ010541	23720	COPY=ADD10
ZZZZ010541	23730	=SQL{?WC?',CAST(T.NAME AS CHAR(90))')};
ZZZZ010541	23740	COPY=ADD10
ZZZZ010541	23750	=SQL{?WC?',CAST(CASE WHEN LENGTH(RTRIM(G.GRANTEE))')};
ZZZZ010541	23760	COPY=ADD10
ZZZZ010541	23770	=SQL{?WC?' >6 THEN SUBSTR(G.GRANTEE')};
ZZZZ010541	23780	COPY=ADD10
ZZZZ010541	23790	=SQL{?WC?',LENGTH(RTRIM(G.GRANTEE))-4,1)')};
ZZZZ010541	23800	COPY=ADD10
ZZZZ010541	23810	=SQL{?WC?'||''_''||SUBSTR(G.GRANTEE')};
ZZZZ010541	23820	COPY=ADD10
ZZZZ010541	23830	=SQL{?WC?',LENGTH(RTRIM(G.GRANTEE))-3)')};
ZZZZ010541	23840	COPY=ADD10
ZZZZ010541	23850	=SQL{?WC?' ELSE G.GRANTEE END AS CHAR(6))')};
ZZZZ010541	23860	COPY=ADD10
ZZZZ010541	23870	=SQL{?WC?',CAST(CASE G.SELECTAUTH WHEN ''N''')};
ZZZZ010541	23880	COPY=ADD10
ZZZZ010541	23890	=SQL{?WC?' THEN '' '' ELSE ''S'' END AS CHAR(1))')};
ZZZZ010541	23900	COPY=ADD10
ZZZZ010541	23910	=SQL{?WC?',CAST(CASE G.INSERTAUTH WHEN ''N''')};
ZZZZ010541	23920	COPY=ADD10
ZZZZ010541	23930	=SQL{?WC?' THEN '' '' ELSE ''I'' END AS CHAR(1))')};
ZZZZ010541	23940	COPY=ADD10
ZZZZ010541	23950	=SQL{?WC?',CAST(CASE G.UPDATEAUTH WHEN ''N''')};
ZZZZ010541	23960	COPY=ADD10
ZZZZ010541	23970	=SQL{?WC?' THEN '' '' ELSE ''U'' END AS CHAR(1))')};
ZZZZ010541	23980	COPY=ADD10
ZZZZ010541	23990	=SQL{?WC?',CAST(CASE G.DELETEAUTH WHEN ''N''')};
ZZZZ010541	24000	COPY=ADD10
ZZZZ010541	24010	=SQL{?WC?' THEN '' '' ELSE ''D'' END AS CHAR(1))')};
ZZZZ010541	24020	COPY=ADD10
ZZZZ010541	24030	=SQL{?WC?',CAST('' '' AS CHAR(1))')};
ZZZZ010541	24040	COPY=ADD10
ZZZZ010541	24050	=SQL{?WC?' FROM SYSIBM.SYSTABLES T')};
ZZZZ010541	24060	COPY=ADD10
ZZZZ010541	24070	=SQL{?WC?',SYSIBM.SYSTABAUTH G')};
ZZZZ010541	24080	COPY=ADD10
ZZZZ010541	24090	=SQL{?WC?' WHERE T.CREATOR=''?WC.I_DB?''')};
ZZZZ010541	24100	COPY=ADD10
ZZZZ010541	24110	=SQL{?WC?' AND (G.GRANTEE LIKE')};
ZZZZ010541	24120	COPY=ADD10
ZZZZ010541	24130	=SQL{?WC?' ''?_Q?_SYSTEM?_Q??_Q?_REAL_TEST[1;1]?_Q?%''')};
ZZZZ010541	24140	COPY=ADD10
ZZZZ010541	24150	=SQL{?WC?' OR G.GRANTEE=''PUBLIC'')')};
ZZZZ010541	24160	COPY=ADD10
ZZZZ010541	24170	=SQL{?WC?' AND G.TCREATOR=''?WC.I_DB?''')};
ZZZZ010541	24180	COPY=ADD10
ZZZZ010541	24190	=SQL{?WC?' AND T.NAME=G.TTNAME')};
ZZZZ010541	24200	NAME=
ZZZZ010541	24210	*************************************************************
ZZZZ010541	24220	=I_SKIP:
ZZZZ010541	24230	=SET{WC.HOST1='@''%''',WC.HOST2='@''?_SERVER_NAME?'''
ZZZZ010541	24240	=,WC.HOST3='@''LOCALHOST'''};
ZZZZ010541	24250	=IF{_DB!='L'}JUMP{L_SKIP};
ZZZZ010541	24260	=SET{_LOWER='MYSQL',WC.MYSQL_L=_LOWER};
ZZZZ010541	24270	REPEAT0=$W0.PERMISSION
ZZZZ010541	24280	REPEAT=2 (WC.REAL_TEST##)
ZZZZ010541	24290	***=SET{WC.PAS=WC.PASSWORD_?WC.REAL_TEST##?};
ZZZZ010541	24300	=SET{WC.LTR=WC.REAL_TEST##};
ZZZZ010541	24310	=SET{W0.REPEAT2CNT=0};
ZZZZ010541	24320	REPEAT2=4 (WC.DIOL--)
ZZZZ010541	24330	=COMPUTE{W0.REPEAT2CNT+=1};
ZZZZ010541	24340	***=IF{W0.REPEAT2CNT=4}SET{WC.PAS=WC.PASSWORD_LINK};
ZZZZ010541	24350	=IF{W0.REPEAT2CNT=4}SET{WC.LTR='LINK'};
ZZZZ010541	24360	=SET{WC.DIOL=WC.DIOL?W0.REPEAT2CNT?};
ZZZZ010541	24370	=SET{WC.USER='?WC.IS??WC.R_T##?_?WC.DIOL?_?WC.PER$$?'};
ZZZZ010541	24380	***=IF_ERROR_LOGIN_SQL{
ZZZZ010541	24390	***=     CREATE USER ?WC.USER? IDENTIFIED BY '?WC.PAS?'}
ZZZZ010541	24400	=IF_ERROR_LOGIN_ZZ_ADDLOGIN{?WC.LTR?}{?WC.USER?}{}
ZZZZ010541	24410	=  IF{_DB_I_ERROR!='EXIST'}ERROR{?_DB_ERROR? ?_ERROR?};
ZZZZ010541	24420	=LOGIN_SQL{GRANT SELECT ON ?WC.MYSQL_L?.*  TO ?WC.USER?@'%'};
ZZZZ010541	24430	=LOGIN_SQL{GRANT REFERENCES ON        *.*  TO ?WC.USER?@'%'};
ZZZZ010541	24440	***=IF_ERROR_LOGIN_SQL{CREATE USER ?WC.USER??WC.HOST2?
ZZZZ010541	24450	***= IDENTIFIED BY '?WC.PAS?'}
ZZZZ010541	24460	=IF_ERROR_LOGIN_ZZ_ADDLOGIN{?WC.LTR?}{?WC.USER?}
ZZZZ010541	24470	=   {?_SERVER_NAME?}
ZZZZ010541	24480	=   IF{_DB_I_ERROR!='EXIST'}ERROR{?_DB_ERROR? ?_ERROR?};
ZZZZ010541	24490	=LOGIN_SQL{GRANT SELECT     ON ?WC.MYSQL_L?.*  TO
ZZZZ010541	24500	= ?WC.USER??WC.HOST2?};
ZZZZ010541	24510	=LOGIN_SQL{GRANT REFERENCES ON           *.*  TO
ZZZZ010541	24520	= ?WC.USER??WC.HOST2?};
ZZZZ010541	24530	***=IF_ERROR_LOGIN_SQL{CREATE USER ?WC.USER??WC.HOST3?
ZZZZ010541	24540	***= IDENTIFIED BY '?WC.PAS?'}
ZZZZ010541	24550	*ERR*=IF_ERROR_LOGIN_ZZ_ADDLOGIN{?WC.LTR?}{?WC.USER?}
ZZZZ010541	24560	*ERR*=  {LOCALHOST}
ZZZZ010541	24570	*ERR*=  IF{_DB_I_ERROR!='EXIST'}ERROR{?_DB_ERROR? ?_ERROR?};
ZZZZ010541	24580	*ERR*=LOGIN_SQL{GRANT SELECT     ON ?WC.MYSQL_L?.*  TO
ZZZZ010541	24590	*ERR*= ?WC.USER??WC.HOST3?};
ZZZZ010541	24600	*ERR*=LOGIN_SQL{GRANT REFERENCES ON           *.*  TO
ZZZZ010541	24610	*ERR*= ?WC.USER??WC.HOST3?};
ZZZZ010541	24620	REPEAT0=
ZZZZ010541	24630	*********( CREATE SCEMA )************************************
ZZZZ010541	24640	=MESSAGE{CREATE SCHEMA};
ZZZZ010541	24650	REPEAT0=$W0.PERMISSION
ZZZZ010541	24660	REPEAT=2  (WC.R_T##=R;T)
ZZZZ010541	24670	=SET{W0.REPEAT2CNT=0};
ZZZZ010541	24680	REPEAT2=2 (WC.M_W=M;W)
ZZZZ010541	24690	=COMPUTE{W0.REPEAT2CNT+=1};
ZZZZ010541	24700	=SET{WC.M_W=WC.M_W?W0.REPEAT2CNT?};
ZZZZ010541	24710	=SET{_LOWER='?WC.IS??WC.R_T##?_?WC.M_W?_?WC.PER$$?'
ZZZZ010541	24720	=  ,WC.SCHEMA=_LOWER};
ZZZZ010541	24730	=IF_ERROR_LOGIN_SQL{CREATE SCHEMA
ZZZZ010541	24740	=          IF NOT EXISTS ?WC.SCHEMA? CHARACTER SET utf8mb4}
ZZZZ010541	24750	=  ERROR{?_DB_ERROR? ?_ERROR?};
ZZZZ010541	24760	REPEAT0=
ZZZZ010541	24770	*************( GRANT ALL )***********************************
ZZZZ010541	24780	REPEAT0=$W0.PERMISSION
ZZZZ010541	24790	=MESSAGE{GRANT ...(?WC.PER$$?)};
ZZZZ010541	24800	REPEAT=3
ZZZZ010541	24810	=SET{WC.PERX='ZZZZ'};
ZZZZ010541	24820	=SET{W0.REPEAT2CNT=0};
ZZZZ010541	24830	REPEAT2=2 (WC.PER--;ZZZZ;自分))
ZZZZ010541	24840	=COMPUTE{W0.REPEAT2CNT+=1};
ZZZZ010541	24850	=IF{W0.REPEAT2CNT=2}SET{WC.PERX=WC.PER$$};
ZZZZ010541	24860	=SET{_LOWER='?WC.IS??WC.RTT##?_M_?WC.PER$$?'
ZZZZ010541	24870	=  ,WC.SCHEMA_M_L=_LOWER};
ZZZZ010541	24880	=SET{_LOWER='?WC.IS??WC.RTT##?_W_?WC.PER$$?'
ZZZZ010541	24890	=  ,WC.SCHEMA_W_L=_LOWER};
ZZZZ010541	24900	=LOGIN_SQL{GRANT ALL PRIVILEGES ON ?WC.SCHEMA_M_L?.* TO
ZZZZ010541	24910	=   ?WC.IS?R_D_ZZZZ@'%' WITH GRANT OPTION};
ZZZZ010541	24920	=LOGIN_SQL{GRANT ALL PRIVILEGES ON ?WC.SCHEMA_M_L?.* TO
ZZZZ010541	24930	=   ?WC.IS??WC.RRT##?_D_?WC.PERX?@'%' WITH GRANT OPTION};
ZZZZ010541	24940	=LOGIN_SQL{GRANT ALL PRIVILEGES ON ?WC.SCHEMA_W_L?.* TO
ZZZZ010541	24950	=   ?WC.IS??WC.RRT##?_D_?WC.PERX?@'%' WITH GRANT OPTION};
ZZZZ010541	24960	=LOGIN_SQL{GRANT ALL PRIVILEGES ON ?WC.SCHEMA_W_L?.* TO
ZZZZ010541	24970	=   ?WC.IS??WC.RRT##?_I_?WC.PERX?@'%' WITH GRANT OPTION};
ZZZZ010541	24980	=LOGIN_SQL{GRANT ALL PRIVILEGES ON ?WC.SCHEMA_W_L?.* TO
ZZZZ010541	24990	=   ?WC.IS??WC.RRT##?_O_?WC.PERX?@'%' WITH GRANT OPTION};
ZZZZ010541	25000	=LOGIN_SQL{GRANT ALL PRIVILEGES ON ?WC.SCHEMA_M_L?.* TO
ZZZZ010541	25010	=   ?WC.IS?R_D_ZZZZ?WC.HOST2? WITH GRANT OPTION};
ZZZZ010541	25020	=LOGIN_SQL{GRANT ALL PRIVILEGES ON ?WC.SCHEMA_M_L?.* TO
ZZZZ010541	25030	= ?WC.IS??WC.RRT##?_D_?WC.PERX??WC.HOST2?
ZZZZ010541	25040	= WITH GRANT OPTION};
ZZZZ010541	25050	=LOGIN_SQL{GRANT ALL PRIVILEGES ON ?WC.SCHEMA_W_L?.* TO
ZZZZ010541	25060	=   ?WC.IS??WC.RRT##?_D_?WC.PERX??WC.HOST2?
ZZZZ010541	25070	= WITH GRANT OPTION};
ZZZZ010541	25080	=LOGIN_SQL{GRANT ALL PRIVILEGES ON ?WC.SCHEMA_W_L?.* TO
ZZZZ010541	25090	=   ?WC.IS??WC.RRT##?_I_?WC.PERX??WC.HOST2?
ZZZZ010541	25100	= WITH GRANT OPTION};
ZZZZ010541	25110	=LOGIN_SQL{GRANT ALL PRIVILEGES ON ?WC.SCHEMA_W_L?.* TO
ZZZZ010541	25120	=   ?WC.IS??WC.RRT##?_O_?WC.PERX??WC.HOST2?
ZZZZ010541	25130	= WITH GRANT OPTION};
ZZZZ010541	25140	*ERR*=LOGIN_SQL{GRANT ALL PRIVILEGES ON ?WC.SCHEMA_M_L?.* TO
ZZZZ010541	25150	*ERR*=   ?WC.IS?R_D_ZZZZ?WC.HOST3? WITH GRANT OPTION};
ZZZZ010541	25160	*ERR*=LOGIN_SQL{GRANT ALL PRIVILEGES ON ?WC.SCHEMA_M_L?.* TO
ZZZZ010541	25170	*ERR*=   ?WC.IS??WC.RRT##?_D_?WC.PERX??WC.HOST3?
ZZZZ010541	25180	*ERR*= WITH GRANT OPTION};
ZZZZ010541	25190	*ERR*=LOGIN_SQL{GRANT ALL PRIVILEGES ON ?WC.SCHEMA_W_L?.* TO
ZZZZ010541	25200	*ERR*=   ?WC.IS??WC.RRT##?_D_?WC.PERX??WC.HOST3?
ZZZZ010541	25210	*ERR*= WITH GRANT OPTION};
ZZZZ010541	25220	*ERR*=LOGIN_SQL{GRANT ALL PRIVILEGES ON ?WC.SCHEMA_W_L?.* TO
ZZZZ010541	25230	*ERR*=   ?WC.IS??WC.RRT##?_I_?WC.PERX??WC.HOST3?
ZZZZ010541	25240	*ERR*= WITH GRANT OPTION};
ZZZZ010541	25250	*ERR*=LOGIN_SQL{GRANT ALL PRIVILEGES ON ?WC.SCHEMA_W_L?.* TO
ZZZZ010541	25260	*ERR*=   ?WC.IS??WC.RRT##?_O_?WC.PERX??WC.HOST3?
ZZZZ010541	25270	*ERR*= WITH GRANT OPTION};
ZZZZ010541	25280	=IF{WC.PER$$='ZZZZ'}JUMP{SKIP};
ZZZZ010541	25290	REPEAT2=
ZZZZ010541	25300	=SKIP:
ZZZZ010541	25310	REPEAT0=
ZZZZ010541	25320	=JUMP{L_SKIP};
ZZZZ010541	25330	*****( OBJECT_VIEW )*****************************************
ZZZZ010541	25340	NAME=L_OBJECT_VIEW
ZZZZ010541	25350	=SET{WC.I=WC.INSERT+'''L'','};
ZZZZ010541	25360	COPY=ADD10
ZZZZ010541	25370	=SQL{?WC?'(SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	25380	COPY=ADD10
ZZZZ010541	25390	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME,SYSTEM_TEXT')};
ZZZZ010541	25400	COPY=ADD10
ZZZZ010541	25410	=SQL{?WC?',SYSTEM_ADD_DATE17,SYSTEM_CHANGE_DATE17')};
ZZZZ010541	25420	COPY=ADD10
ZZZZ010541	25430	=SQL{?WC?')AS SELECT  CAST(CASE')};
ZZZZ010541	25440	COPY=ADD10
ZZZZ010541	25450	=SQL{?WC?' WHEN V.TABLE_NAME IS NULL THEN ''TABLE''')};
ZZZZ010541	25460	COPY=ADD10
ZZZZ010541	25470	=SQL{?WC?' ELSE ''VIEW'' END AS CHAR(5))')};
ZZZZ010541	25480	COPY=ADD10
ZZZZ010541	25490	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	25500	COPY=ADD10
ZZZZ010541	25510	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	25520	COPY=ADD10
ZZZZ010541	25530	=SQL{?WC?',CAST('' '' AS CHAR(1))')};
ZZZZ010541	25540	COPY=ADD10
ZZZZ010541	25550	=SQL{?WC?',CAST(UPPER(T.TABLE_NAME) AS CHAR(30))')};
ZZZZ010541	25560	COPY=ADD10
ZZZZ010541	25570	=SQL{?WC?',CASE WHEN VIEW_DEFINITION IS NULL')};
ZZZZ010541	25580	COPY=ADD10
ZZZZ010541	25590	=SQL{?WC?' THEN '' '' ELSE VIEW_DEFINITION END')};
ZZZZ010541	25600	COPY=ADD10
ZZZZ010541	25610	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	25620	COPY=ADD10
ZZZZ010541	25630	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	25640	COPY=ADD10
ZZZZ010541	25650	=SQL{?WC?' FROM INFORMATION_SCHEMA.TABLES T')};
ZZZZ010541	25660	COPY=ADD10
ZZZZ010541	25670	=SQL{?WC?' LEFT JOIN INFORMATION_SCHEMA.VIEWS V')};
ZZZZ010541	25680	COPY=ADD10
ZZZZ010541	25690	=SQL{?WC?' ON T.TABLE_SCHEMA=V.TABLE_SCHEMA')};
ZZZZ010541	25700	COPY=ADD10
ZZZZ010541	25710	=SQL{?WC?' AND T.TABLE_NAME=V.TABLE_NAME')};
ZZZZ010541	25720	COPY=ADD10
ZZZZ010541	25730	=SQL{?WC?' WHERE T.TABLE_SCHEMA')};
ZZZZ010541	25740	COPY=ADD10
ZZZZ010541	25750	=SQL{?WC?'=LOWER(''?WC.L_DB?'') ')};
ZZZZ010541	25760	COPY=ADD10
ZZZZ010541	25770	=SQL{?WC?' UNION SELECT')};
ZZZZ010541	25780	COPY=ADD10
ZZZZ010541	25790	=SQL{?WC?' CAST(LEFT(ROUTINE_TYPE,4) AS CHAR(5))')};
ZZZZ010541	25800	COPY=ADD10
ZZZZ010541	25810	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	25820	COPY=ADD10
ZZZZ010541	25830	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	25840	COPY=ADD10
ZZZZ010541	25850	=SQL{?WC?',CAST('' '' AS CHAR(1))')};
ZZZZ010541	25860	COPY=ADD10
ZZZZ010541	25870	=SQL{?WC?',CAST(ROUTINE_NAME AS CHAR(30))')};
ZZZZ010541	25880	COPY=ADD10
ZZZZ010541	25890	=SQL{?WC?',ROUTINE_DEFINITION')};
ZZZZ010541	25900	COPY=ADD10
ZZZZ010541	25910	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	25920	COPY=ADD10
ZZZZ010541	25930	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	25940	COPY=ADD10
ZZZZ010541	25950	=SQL{?WC?' FROM INFORMATION_SCHEMA.ROUTINES ')};
ZZZZ010541	25960	COPY=ADD10
ZZZZ010541	25970	=SQL{?WC?' WHERE ROUTINE_SCHEMA')};
ZZZZ010541	25980	COPY=ADD10
ZZZZ010541	25990	=SQL{?WC?'=LOWER(''?WC.L_DB?'') ')};
ZZZZ010541	26000	COPY=ADD10
ZZZZ010541	26010	=SQL{?WC?' UNION SELECT CAST(''TRIG''  AS CHAR(5))')};
ZZZZ010541	26020	COPY=ADD10
ZZZZ010541	26030	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	26040	COPY=ADD10
ZZZZ010541	26050	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	26060	COPY=ADD10
ZZZZ010541	26070	=SQL{?WC?',CAST('' '' AS CHAR(1))')};
ZZZZ010541	26080	COPY=ADD10
ZZZZ010541	26090	=SQL{?WC?',CAST(TRIGGER_NAME AS CHAR(30))')};
ZZZZ010541	26100	COPY=ADD10
ZZZZ010541	26110	=SQL{?WC?',ACTION_STATEMENT')};
ZZZZ010541	26120	COPY=ADD10
ZZZZ010541	26130	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	26140	COPY=ADD10
ZZZZ010541	26150	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	26160	COPY=ADD10
ZZZZ010541	26170	=SQL{?WC?' FROM INFORMATION_SCHEMA.TRIGGERS')};
ZZZZ010541	26180	COPY=ADD10
ZZZZ010541	26190	=SQL{?WC?' WHERE TRIGGER_SCHEMA')};
ZZZZ010541	26200	COPY=ADD10
ZZZZ010541	26210	=SQL{?WC?'=LOWER(''?WC.L_DB?'')')};
ZZZZ010541	26220	*****( COLUMN_VIEW )*****************************************
ZZZZ010541	26230	NAME=L_COLUMN_VIEW
ZZZZ010541	26240	=SET{WC.I=WC.INSERT+'''L'','};
ZZZZ010541	26250	=SET{_LOWER=' I_'+_SYSTEM+'_R_M_ZZZZ',WC.SCHEMA=_LOWER};
ZZZZ010541	26260	COPY=ADD10
ZZZZ010541	26270	=SQL{?WC?'(SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	26280	COPY=ADD10
ZZZZ010541	26290	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME,SYSTEM_SEQ')};
ZZZZ010541	26300	COPY=ADD10
ZZZZ010541	26310	=SQL{?WC?',SYSTEM_DATA_NAME,SYSTEM_DEFAULT_TYPE')};
ZZZZ010541	26320	COPY=ADD10
ZZZZ010541	26330	=SQL{?WC?',SYSTEM_DEFAULT_LENGTH1')};
ZZZZ010541	26340	COPY=ADD10
ZZZZ010541	26350	=SQL{?WC?',SYSTEM_DEFAULT_LENGTH2,SYSTEM_DEFAULT')};
ZZZZ010541	26360	COPY=ADD10
ZZZZ010541	26370	=SQL{?WC?',SYSTEM_NULL)AS SELECT')};
ZZZZ010541	26380	COPY=ADD10
ZZZZ010541	26390	=SQL{?WC?' CAST(''TABLE'' AS CHAR(5))')};
ZZZZ010541	26400	COPY=ADD10
ZZZZ010541	26410	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	26420	COPY=ADD10
ZZZZ010541	26430	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	26440	COPY=ADD10
ZZZZ010541	26450	=SQL{?WC?',CAST('' '' AS CHAR(1))')};
ZZZZ010541	26460	COPY=ADD10
ZZZZ010541	26470	=SQL{?WC?',CAST(UPPER(TABLE_NAME) AS CHAR(30))')};
ZZZZ010541	26480	COPY=ADD10
ZZZZ010541	26490	=SQL{?WC?',CAST(ORDINAL_POSITION AS SIGNED)')};
ZZZZ010541	26500	COPY=ADD10
ZZZZ010541	26510	=SQL{?WC?',CAST(COLUMN_NAME AS CHAR(30))')};
ZZZZ010541	26520	COPY=ADD10
ZZZZ010541	26530	=SQL{?WC?',CAST(CASE')};
ZZZZ010541	26540	COPY=ADD10
ZZZZ010541	26550	=SQL{?WC?' WHEN UPPER(DATA_TYPE)=''BIGINT''')};
ZZZZ010541	26560	COPY=ADD10
ZZZZ010541	26570	=SQL{?WC?' THEN ''INT''')};
ZZZZ010541	26580	COPY=ADD10
ZZZZ010541	26590	=SQL{?WC?' WHEN UPPER(DATA_TYPE)=''TIMESTAMP''')};
ZZZZ010541	26600	COPY=ADD10
ZZZZ010541	26610	=SQL{?WC?' THEN ''DATETIME''')};
ZZZZ010541	26620	COPY=ADD10
ZZZZ010541	26630	=SQL{?WC?' WHEN UPPER(DATA_TYPE)')};
ZZZZ010541	26640	COPY=ADD10
ZZZZ010541	26650	=SQL{?WC?' IN(''CHAR'',''VARCHAR'',''LONGTEXT'')')};
ZZZZ010541	26660	COPY=ADD10
ZZZZ010541	26670	=SQL{?WC?' THEN CASE SYSTEM_DEFAULT_TYPE')};
ZZZZ010541	26680	COPY=ADD10
ZZZZ010541	26690	=SQL{?WC?' WHEN ''NCHAR'' THEN ''NCHAR''')};
ZZZZ010541	26700	COPY=ADD10
ZZZZ010541	26710	=SQL{?WC?' WHEN ''NVARCHAR'' THEN ''NVARCHAR''')};
ZZZZ010541	26720	COPY=ADD10
ZZZZ010541	26730	=SQL{?WC?' WHEN ''CHAR''  THEN ''CHAR''')};
ZZZZ010541	26740	COPY=ADD10
ZZZZ010541	26750	=SQL{?WC?' WHEN ''VARCHAR''  THEN ''VARCHAR''')};
ZZZZ010541	26760	COPY=ADD10
ZZZZ010541	26770	=SQL{?WC?' ELSE UPPER(DATA_TYPE) END ')};
ZZZZ010541	26780	COPY=ADD10
ZZZZ010541	26790	=SQL{?WC?' ELSE UPPER(DATA_TYPE) END AS CHAR(9))')};
ZZZZ010541	26800	COPY=ADD10
ZZZZ010541	26810	=SQL{?WC?',CAST(CASE UPPER(DATA_TYPE)')};
ZZZZ010541	26820	COPY=ADD10
ZZZZ010541	26830	=SQL{?WC?' WHEN ''DECIMAL'' THEN NUMERIC_PRECISION')};
ZZZZ010541	26840	COPY=ADD10
ZZZZ010541	26850	=SQL{?WC?' WHEN ''DATETIME'' THEN 17')};
ZZZZ010541	26860	COPY=ADD10
ZZZZ010541	26870	=SQL{?WC?' WHEN ''TIMESTAMP'' THEN 17')};
ZZZZ010541	26880	COPY=ADD10
ZZZZ010541	26890	=SQL{?WC?' WHEN ''DATE'' THEN 8  ')};
ZZZZ010541	26900	COPY=ADD10
ZZZZ010541	26910	=SQL{?WC?' ELSE CASE')};
ZZZZ010541	26920	COPY=ADD10
ZZZZ010541	26930	=SQL{?WC?' WHEN CHARACTER_MAXIMUM_LENGTH IS NULL THEN 9 ')};
ZZZZ010541	26940	COPY=ADD10
ZZZZ010541	26950	=SQL{?WC?' WHEN CHARACTER_MAXIMUM_LENGTH>4000 THEN 4000')};
ZZZZ010541	26960	COPY=ADD10
ZZZZ010541	26970	=SQL{?WC?' ELSE CHARACTER_MAXIMUM_LENGTH END END')};
ZZZZ010541	26980	COPY=ADD10
ZZZZ010541	26990	=SQL{?WC?' AS SIGNED)')};
ZZZZ010541	27000	COPY=ADD10
ZZZZ010541	27010	=SQL{?WC?',CAST(CASE UPPER(DATA_TYPE)')};
ZZZZ010541	27020	COPY=ADD10
ZZZZ010541	27030	=SQL{?WC?' WHEN ''DECIMAL'' THEN NUMERIC_SCALE')};
ZZZZ010541	27040	COPY=ADD10
ZZZZ010541	27050	=SQL{?WC?' ELSE 0 END AS SIGNED)')};
ZZZZ010541	27060	COPY=ADD10
ZZZZ010541	27070	=SQL{?WC?',CAST(CASE')};
ZZZZ010541	27080	COPY=ADD10
ZZZZ010541	27090	=SQL{?WC?' WHEN COLUMN_DEFAULT IS NULL THEN '' ''')};
ZZZZ010541	27100	COPY=ADD10
ZZZZ010541	27110	=SQL{?WC?' WHEN COLUMN_DEFAULT='' ''')};
ZZZZ010541	27120	COPY=ADD10
ZZZZ010541	27130	=SQL{?WC?' THEN '''''' ''''''')};
ZZZZ010541	27140	COPY=ADD10
ZZZZ010541	27150	=SQL{?WC?' ELSE COLUMN_DEFAULT END AS CHAR(30))')};
ZZZZ010541	27160	COPY=ADD10
ZZZZ010541	27170	=SQL{?WC?',CAST(CASE IS_NULLABLE')};
ZZZZ010541	27180	COPY=ADD10
ZZZZ010541	27190	=SQL{?WC?' WHEN ''NO'' THEN ''0''')};
ZZZZ010541	27200	COPY=ADD10
ZZZZ010541	27210	=SQL{?WC?' ELSE ''1'' END AS CHAR(1))')};
ZZZZ010541	27220	COPY=ADD10
ZZZZ010541	27230	=SQL{?WC?' FROM INFORMATION_SCHEMA.COLUMNS')};
ZZZZ010541	27240	COPY=ADD10
ZZZZ010541	27250	=SQL{?WC?' LEFT OUTER JOIN')};
ZZZZ010541	27260	COPY=ADD10
ZZZZ010541	27270	=SQL{?WC?' ?WC.SCHEMA?')};
ZZZZ010541	27280	COPY=ADD10
ZZZZ010541	27290	=SQL{?WC?'.ZZZZZZ_I_DICTIONARY_TABLE')};
ZZZZ010541	27300	COPY=ADD10
ZZZZ010541	27310	=SQL{?WC?' ON COLUMN_NAME=SYSTEM_DATA_NAME')};
ZZZZ010541	27320	COPY=ADD10
ZZZZ010541	27330	=SQL{?WC?' AND SYSTEM_PERMISSION=''?WC.PER?''')};
ZZZZ010541	27340	COPY=ADD10
ZZZZ010541	27350	=SQL{?WC?' AND SYSTEM_LANG=''?_LANG_SYSTEM?''')};
ZZZZ010541	27360	COPY=ADD10
ZZZZ010541	27370	=SQL{?WC?' WHERE TABLE_SCHEMA')};
ZZZZ010541	27380	COPY=ADD10
ZZZZ010541	27390	=SQL{?WC?'=LOWER(''?WC.L_DB?'') ')};
ZZZZ010541	27400	*****( INDEX_VIEW )******************************************
ZZZZ010541	27410	NAME=L_INDEX_VIEW
ZZZZ010541	27420	=SET{WC.I=WC.INSERT+'''L'','};
ZZZZ010541	27430	COPY=ADD10
ZZZZ010541	27440	=SQL{?WC?'(SYSTEM_REAL,SYSTEM_WORK,SYSTEM_USER_X')};
ZZZZ010541	27450	COPY=ADD10
ZZZZ010541	27460	=SQL{?WC?',SYSTEM_NAME,SYSTEM_DATA_NAME,SYSTEM_IX')};
ZZZZ010541	27470	COPY=ADD10
ZZZZ010541	27480	=SQL{?WC?',SYSTEM_NO)AS SELECT')};
ZZZZ010541	27490	COPY=ADD10
ZZZZ010541	27500	=SQL{?WC?' CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	27510	COPY=ADD10
ZZZZ010541	27520	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	27530	COPY=ADD10
ZZZZ010541	27540	=SQL{?WC?',CAST('' '' AS CHAR(1))')};
ZZZZ010541	27550	COPY=ADD10
ZZZZ010541	27560	=SQL{?WC?',CAST(UPPER(TABLE_NAME) AS CHAR(30))')};
ZZZZ010541	27570	COPY=ADD10
ZZZZ010541	27580	=SQL{?WC?',CAST(COLUMN_NAME AS CHAR(30))')};
ZZZZ010541	27590	COPY=ADD10
ZZZZ010541	27600	=SQL{?WC?',CAST(CASE INDEX_NAME')};
ZZZZ010541	27610	COPY=ADD10
ZZZZ010541	27620	=SQL{?WC?' WHEN ''PRIMARY'' THEN ''0''')};
ZZZZ010541	27630	COPY=ADD10
ZZZZ010541	27640	=SQL{?WC?' ELSE RIGHT(INDEX_NAME,1) END AS CHAR(1))')};
ZZZZ010541	27650	COPY=ADD10
ZZZZ010541	27660	=SQL{?WC?',CAST(CASE NON_UNIQUE WHEN 0')};
ZZZZ010541	27670	COPY=ADD10
ZZZZ010541	27680	=SQL{?WC?' THEN SEQ_IN_INDEX-1')};
ZZZZ010541	27690	COPY=ADD10
ZZZZ010541	27700	=SQL{?WC?' ELSE SEQ_IN_INDEX END AS SIGNED) ')};
ZZZZ010541	27710	COPY=ADD10
ZZZZ010541	27720	=SQL{?WC?' FROM INFORMATION_SCHEMA.STATISTICS')};
ZZZZ010541	27730	COPY=ADD10
ZZZZ010541	27740	=SQL{?WC?' WHERE TABLE_SCHEMA')};
ZZZZ010541	27750	COPY=ADD10
ZZZZ010541	27760	=SQL{?WC?'=LOWER(''?WC.L_DB?'')')};
ZZZZ010541	27770	*****( GRANT_VIEW )******************************************
ZZZZ010541	27780	NAME=L_GRANT_VIEW
ZZZZ010541	27790	=SET{WC.I=WC.INSERT+'''L'','};
ZZZZ010541	27800	COPY=ADD10
ZZZZ010541	27810	=SQL{?WC?'(SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	27820	COPY=ADD10
ZZZZ010541	27830	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME,SYSTEM_GRANT')};
ZZZZ010541	27840	COPY=ADD10
ZZZZ010541	27850	=SQL{?WC?',SYSTEM_SELECT,SYSTEM_INSERT')};
ZZZZ010541	27860	COPY=ADD10
ZZZZ010541	27870	=SQL{?WC?',SYSTEM_UPDATE,SYSTEM_DELETE')};
ZZZZ010541	27880	COPY=ADD10
ZZZZ010541	27890	=SQL{?WC?',SYSTEM_EXECUTE)AS SELECT')};
ZZZZ010541	27900	COPY=ADD10
ZZZZ010541	27910	=SQL{?WC?' DISTINCT CAST(''TABLE'' AS CHAR(5))')};
ZZZZ010541	27920	COPY=ADD10
ZZZZ010541	27930	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	27940	COPY=ADD10
ZZZZ010541	27950	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	27960	COPY=ADD10
ZZZZ010541	27970	=SQL{?WC?',CAST('' '' AS CHAR(1))')};
ZZZZ010541	27980	COPY=ADD10
ZZZZ010541	27990	=SQL{?WC?',CAST(UPPER(X2.TABLE_NAME) AS CHAR(30))')};
ZZZZ010541	28000	COPY=ADD10
ZZZZ010541	28010	=SQL{?WC?',CAST(CASE X2.USER')};
ZZZZ010541	28020	COPY=ADD10
ZZZZ010541	28030	=SQL{?WC?' WHEN ''PUBLIC'' THEN X2.USER')};
ZZZZ010541	28040	COPY=ADD10
ZZZZ010541	28050	=SQL{?WC?' ELSE RIGHT(X2.USER,6) END AS CHAR(6))')};
ZZZZ010541	28060	COPY=ADD10
ZZZZ010541	28070	=SQL{?WC?',CAST(CASE')};
ZZZZ010541	28080	COPY=ADD10
ZZZZ010541	28090	=SQL{?WC?' FIND_IN_SET(''SELECT'',UPPER(X2.TABLE_PRIV))')};
ZZZZ010541	28100	COPY=ADD10
ZZZZ010541	28110	=SQL{?WC?' WHEN 0 THEN '' '' ELSE ''S'' END AS CHAR(1))')};
ZZZZ010541	28120	COPY=ADD10
ZZZZ010541	28130	=SQL{?WC?',CAST(CASE')};
ZZZZ010541	28140	COPY=ADD10
ZZZZ010541	28150	=SQL{?WC?' FIND_IN_SET(''INSERT'',UPPER(X2.TABLE_PRIV))')};
ZZZZ010541	28160	COPY=ADD10
ZZZZ010541	28170	=SQL{?WC?' WHEN 0 THEN '' '' ELSE ''I'' END AS CHAR(1))')};
ZZZZ010541	28180	COPY=ADD10
ZZZZ010541	28190	=SQL{?WC?',CAST(CASE')};
ZZZZ010541	28200	COPY=ADD10
ZZZZ010541	28210	=SQL{?WC?' FIND_IN_SET(''UPDATE'',UPPER(X2.TABLE_PRIV))')};
ZZZZ010541	28220	COPY=ADD10
ZZZZ010541	28230	=SQL{?WC?' WHEN 0 THEN '' '' ELSE ''U'' END AS CHAR(1))')};
ZZZZ010541	28240	COPY=ADD10
ZZZZ010541	28250	=SQL{?WC?',CAST(CASE')};
ZZZZ010541	28260	COPY=ADD10
ZZZZ010541	28270	=SQL{?WC?' FIND_IN_SET(''DELETE'',UPPER(X2.TABLE_PRIV))')};
ZZZZ010541	28280	COPY=ADD10
ZZZZ010541	28290	=SQL{?WC?' WHEN 0 THEN '' '' ELSE ''D'' END AS CHAR(1))')};
ZZZZ010541	28300	COPY=ADD10
ZZZZ010541	28310	=SQL{?WC?',CAST('' '' AS CHAR(1))')};
ZZZZ010541	28320	=SET{WC.TABLES_PRIV='MYSQL.TABLES_PRIV'};
ZZZZ010541	28330	COPY=ADD10
ZZZZ010541	28340	=SQL{?WC?' FROM ?WC.TABLES_PRIV@LOWER? X2')};
ZZZZ010541	28350	COPY=ADD10
ZZZZ010541	28360	=SQL{?WC?' LEFT OUTER JOIN ?WC.TABLES_PRIV@LOWER? X3')};
ZZZZ010541	28370	COPY=ADD10
ZZZZ010541	28380	=SQL{?WC?' ON X2.DB=X3.DB')};
ZZZZ010541	28390	COPY=ADD10
ZZZZ010541	28400	=SQL{?WC?' AND X2.TABLE_NAME=X3.TABLE_NAME')};
ZZZZ010541	28410	COPY=ADD10
ZZZZ010541	28420	=SQL{?WC?' AND X3.USER=''PUBLIC''')};
ZZZZ010541	28430	COPY=ADD10
ZZZZ010541	28440	=SQL{?WC?' WHERE  X2.DB')};
ZZZZ010541	28450	COPY=ADD10
ZZZZ010541	28460	=SQL{?WC?'=LOWER(''?WC.L_DB?'')')};
ZZZZ010541	28470	COPY=ADD10
ZZZZ010541	28480	=SQL{?WC?' AND (X2.USER=''PUBLIC''')};
ZZZZ010541	28490	COPY=ADD10
ZZZZ010541	28500	=SQL{?WC?' OR LEFT(X2.USER,CHAR_LENGTH(X2.USER)-6)')};
ZZZZ010541	28510	COPY=ADD10
ZZZZ010541	28520	=SQL{?WC?'=UPPER(LEFT(X2.DB,CHAR_LENGTH(X2.DB)-6)) ')};
ZZZZ010541	28530	COPY=ADD10
ZZZZ010541	28540	=SQL{?WC?' AND (X3.USER IS NULL OR RIGHT(X2.USER,4)')};
ZZZZ010541	28550	COPY=ADD10
ZZZZ010541	28560	=SQL{?WC?'=UPPER(RIGHT(X2.DB,4))')};
ZZZZ010541	28570	COPY=ADD10
ZZZZ010541	28580	=SQL{?WC?' AND SUBSTRING(X2.USER')};
ZZZZ010541	28590	COPY=ADD10
ZZZZ010541	28600	=SQL{?WC?',CHAR_LENGTH(X2.USER)-5,1)<>''L''')};
ZZZZ010541	28610	COPY=ADD10
ZZZZ010541	28620	=SQL{?WC?' OR UPPER(X2.TABLE_PRIV)<>''SELECT''))')};
ZZZZ010541	28630	COPY=ADD10
ZZZZ010541	28640	=SQL{?WC?' UNION DISTINCT SELECT ')};
ZZZZ010541	28650	COPY=ADD10
ZZZZ010541	28660	=SQL{?WC?' CAST(LEFT(X2.ROUTINE_TYPE,4) AS CHAR(5))')};
ZZZZ010541	28670	COPY=ADD10
ZZZZ010541	28680	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	28690	COPY=ADD10
ZZZZ010541	28700	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	28710	COPY=ADD10
ZZZZ010541	28720	=SQL{?WC?',CAST('' '' AS CHAR(1))')};
ZZZZ010541	28730	COPY=ADD10
ZZZZ010541	28740	=SQL{?WC?',CAST(UPPER(X2.ROUTINE_NAME) AS CHAR(30))')};
ZZZZ010541	28750	COPY=ADD10
ZZZZ010541	28760	=SQL{?WC?',CAST(CASE X2.USER')};
ZZZZ010541	28770	COPY=ADD10
ZZZZ010541	28780	=SQL{?WC?' WHEN ''PUBLIC'' THEN X2.USER')};
ZZZZ010541	28790	COPY=ADD10
ZZZZ010541	28800	=SQL{?WC?' ELSE RIGHT(X2.USER,6) END AS CHAR(6))')};
ZZZZ010541	28810	COPY=ADD10
ZZZZ010541	28820	=SQL{?WC?',CAST('' '' AS CHAR(1))')};
ZZZZ010541	28830	COPY=ADD10
ZZZZ010541	28840	=SQL{?WC?',CAST('' '' AS CHAR(1))')};
ZZZZ010541	28850	COPY=ADD10
ZZZZ010541	28860	=SQL{?WC?',CAST('' '' AS CHAR(1))')};
ZZZZ010541	28870	COPY=ADD10
ZZZZ010541	28880	=SQL{?WC?',CAST('' '' AS CHAR(1))')};
ZZZZ010541	28890	COPY=ADD10
ZZZZ010541	28900	=SQL{?WC?',CAST(CASE UPPER(X2.PROC_PRIV)')};
ZZZZ010541	28910	COPY=ADD10
ZZZZ010541	28920	=SQL{?WC?' WHEN ''EXECUTE'' THEN ''E''')};
ZZZZ010541	28930	COPY=ADD10
ZZZZ010541	28940	=SQL{?WC?' ELSE '' '' END AS CHAR(1))')};
ZZZZ010541	28950	=SET{WC.PROCS_PRIV='MYSQL.PROCS_PRIV'};
ZZZZ010541	28960	COPY=ADD10
ZZZZ010541	28970	=SQL{?WC?' FROM ?WC.PROCS_PRIV@LOWER? X2')};
ZZZZ010541	28980	COPY=ADD10
ZZZZ010541	28990	=SQL{?WC?' LEFT OUTER JOIN ?WC.PROCS_PRIV@LOWER? X3')};
ZZZZ010541	29000	COPY=ADD10
ZZZZ010541	29010	=SQL{?WC?' ON X2.DB=X3.DB')};
ZZZZ010541	29020	COPY=ADD10
ZZZZ010541	29030	=SQL{?WC?' AND X2.ROUTINE_NAME=X3.ROUTINE_NAME')};
ZZZZ010541	29040	COPY=ADD10
ZZZZ010541	29050	=SQL{?WC?' AND X3.USER=''PUBLIC'' ')};
ZZZZ010541	29060	COPY=ADD10
ZZZZ010541	29070	=SQL{?WC?' WHERE  X2.DB')};
ZZZZ010541	29080	COPY=ADD10
ZZZZ010541	29090	=SQL{?WC?'=LOWER(''?WC.L_DB?'')')};
ZZZZ010541	29100	COPY=ADD10
ZZZZ010541	29110	=SQL{?WC?' AND (X2.USER=''PUBLIC''')};
ZZZZ010541	29120	COPY=ADD10
ZZZZ010541	29130	=SQL{?WC?' OR (LEFT(X2.USER,CHAR_LENGTH(X2.USER)-6)')};
ZZZZ010541	29140	COPY=ADD10
ZZZZ010541	29150	=SQL{?WC?'=UPPER(LEFT(X2.DB,CHAR_LENGTH(X2.DB)-6))')};
ZZZZ010541	29160	COPY=ADD10
ZZZZ010541	29170	=SQL{?WC?' AND (X3.USER IS NULL  OR RIGHT(X2.USER,4)')};
ZZZZ010541	29180	COPY=ADD10
ZZZZ010541	29190	=SQL{?WC?'=UPPER(RIGHT(X2.DB,4))')};
ZZZZ010541	29200	COPY=ADD10
ZZZZ010541	29210	=SQL{?WC?' AND SUBSTRING(X2.USER')};
ZZZZ010541	29220	COPY=ADD10
ZZZZ010541	29230	=SQL{?WC?',CHAR_LENGTH(X2.USER)-5,1)<>''L'')))')};
ZZZZ010541	29240	NAME=
ZZZZ010541	29250	*************************************************************
ZZZZ010541	29260	=SET{_REAL_TEST='REAL'};
ZZZZ010541	29270	=L_SKIP:
ZZZZ010541	29280	=IF{_DB!='D'}JUMP{D_SKIP};
ZZZZ010541	29290	W+=SET{WC.Q='"'};
ZZZZ010541	29300	W-=SET{WC.Q=};
ZZZZ010541	29310	=MESSAGE{CREATE USER};
ZZZZ010541	29320	=WRITE_OPEN{1,?_TMP?SETUP_?_SYSTEM?.BAT,OT,/};
ZZZZ010541	29330	=SET{WC.ECHO='ECHO'};
ZZZZ010541	29340	W+=WRITE{1,'@ECHO OFF'};
ZZZZ010541	29350	=SET{WN='?$WC.ECHO? ★注意★この処理は時間がかかります、'
ZZZZ010541	29360	=   +'そのままお待ちください。'};
ZZZZ010541	29370	=WRITE{1,WN};
ZZZZ010541	29380	=SET{WC='?WC.ECHO@LOWER? LOG >?_TMP?SETUP_?_SYSTEM?.LOG'};
ZZZZ010541	29390	=WRITE{1,WC};
ZZZZ010541	29400	REPEAT0=$W0.PERMISSION
ZZZZ010541	29410	REPEAT=2 (WC.REAL_TEST##)
ZZZZ010541	29420	=SET{W0.REPEAT2CNT=0};
ZZZZ010541	29430	=SET{WC.PAS=WC.PASSWORD_?WC.REAL_TEST##?};
ZZZZ010541	29440	=SET{WC.CU='CREATEDB CREATEUSER'};
ZZZZ010541	29450	REPEAT2=4 (WC.DIOL__)
ZZZZ010541	29460	=COMPUTE{W0.REPEAT2CNT+=1};
ZZZZ010541	29470	=SET{WC.DIOL=WC.DIOL?W0.REPEAT2CNT?};
ZZZZ010541	29480	=IF{W0.REPEAT2CNT=4}SET{WC.PAS=WC.PASSWORD_LINK};
ZZZZ010541	29490	=IF{W0.REPEAT2CNT=2}SET{WC.CU=};
ZZZZ010541	29500	=SET{WC.COMMAND='-user ?WC.LOGIN_ID?'
ZZZZ010541	29510	=   +' -pass ?WC.PASSWORD_ADMIN?  -add'
ZZZZ010541	29520	=   +' ?WC.IS??WC.R_T##?_?WC.DIOL?_?WC.PER$$? -pw ?WC.PAS?'};
ZZZZ010541	29530	=SET{WC='?WC.Q??WC.PROGRAM??WC.Q?'
ZZZZ010541	29540	=+' ?WC.COMMAND? 2>>?_TMP?SETUP_?_SYSTEM?.LOG'};
ZZZZ010541	29550	=WRITE{1,WC};
ZZZZ010541	29560	REPEAT0=
ZZZZ010541	29570	=WRITE_CLOSE{1};
ZZZZ010541	29580	W-=SET{WC.CHMOD='CHMOD'};
ZZZZ010541	29590	W-=COMMAND{?WC.CHMOD@LOWER? 777 ?_TMP?SETUP_?_SYSTEM?.BAT};
ZZZZ010541	29600	=COMMAND{?_TMP?SETUP_?_SYSTEM?.BAT}NOP{};
ZZZZ010541	29610	=ERASE_FILE{SETUP_?_SYSTEM?.BAT};
ZZZZ010541	29620	=JUMP{D_SKIP};
ZZZZ010541	29630	*****( OBJECT_VIEW )****************************************
ZZZZ010541	29640	NAME=D_OBJECT_VIEW
ZZZZ010541	29650	=SET{WC.I=WC.INSERT+'''D'','};
ZZZZ010541	29660	COPY=ADD10
ZZZZ010541	29670	=SQL{?WC?'(SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	29680	COPY=ADD10
ZZZZ010541	29690	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME,SYSTEM_TEXT')};
ZZZZ010541	29700	COPY=ADD10
ZZZZ010541	29710	=SQL{?WC?',SYSTEM_ADD_DATE17,SYSTEM_CHANGE_DATE17)')};
ZZZZ010541	29720	COPY=ADD10
ZZZZ010541	29730	=SQL{?WC?' AS SELECT CAST(CASE T.RDB$RELATION_TYPE')};
ZZZZ010541	29740	COPY=ADD10
ZZZZ010541	29750	=SQL{?WC?' WHEN 0 THEN ''TABLE''')};
ZZZZ010541	29760	COPY=ADD10
ZZZZ010541	29770	=SQL{?WC?' ELSE ''VIEW'' END AS CHAR(5))')};
ZZZZ010541	29780	COPY=ADD10
ZZZZ010541	29790	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	29800	COPY=ADD10
ZZZZ010541	29810	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	29820	COPY=ADD10
ZZZZ010541	29830	=SQL{?WC?',CAST(SUBSTRING(T.RDB$RELATION_NAME')};
ZZZZ010541	29840	COPY=ADD10
ZZZZ010541	29850	=SQL{?WC?' FROM 2 FOR 1)AS CHAR(1))')};
ZZZZ010541	29860	COPY=ADD10
ZZZZ010541	29870	=SQL{?WC?',CAST(SUBSTRING(T.RDB$RELATION_NAME')};
ZZZZ010541	29880	COPY=ADD10
ZZZZ010541	29890	=SQL{?WC?' FROM 3 FOR')};
ZZZZ010541	29900	COPY=ADD10
ZZZZ010541	29910	=SQL{?WC?' CHAR_LENGTH(TRIM(T.RDB$RELATION_NAME))-2)')};
ZZZZ010541	29920	COPY=ADD10
ZZZZ010541	29930	=SQL{?WC?' AS CHAR(30))')};
ZZZZ010541	29940	COPY=ADD10
ZZZZ010541	29950	=SQL{?WC?',CAST(T.RDB$VIEW_SOURCE AS VARCHAR(4000))')};
ZZZZ010541	29960	COPY=ADD10
ZZZZ010541	29970	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	29980	COPY=ADD10
ZZZZ010541	29990	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	30000	COPY=ADD10
ZZZZ010541	30010	=SQL{?WC?' FROM RDB$RELATIONS T  ')};
ZZZZ010541	30020	COPY=ADD10
ZZZZ010541	30030	=SQL{?WC?' WHERE (T.RDB$RELATION_NAME LIKE')};
ZZZZ010541	30040	COPY=ADD10
ZZZZ010541	30050	=SQL{?WC?' ''?WC.D_OWNER1?%''')};
ZZZZ010541	30060	COPY=ADD10
ZZZZ010541	30070	=SQL{?WC?'  OR T.RDB$RELATION_NAME LIKE')};
ZZZZ010541	30080	COPY=ADD10
ZZZZ010541	30090	=SQL{?WC?' ''?WC.D_OWNER2?%'')')};
ZZZZ010541	30100	COPY=ADD10
ZZZZ010541	30110	=SQL{?WC?' UNION SELECT')};
ZZZZ010541	30120	COPY=ADD10
ZZZZ010541	30130	=SQL{?WC?' CAST(''PROC'' AS CHAR(5))')};
ZZZZ010541	30140	COPY=ADD10
ZZZZ010541	30150	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	30160	COPY=ADD10
ZZZZ010541	30170	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	30180	COPY=ADD10
ZZZZ010541	30190	=SQL{?WC?',CAST(SUBSTRING(T.RDB$PROCEDURE_NAME')};
ZZZZ010541	30200	COPY=ADD10
ZZZZ010541	30210	=SQL{?WC?' FROM 2 FOR 1) AS CHAR(1))')};
ZZZZ010541	30220	COPY=ADD10
ZZZZ010541	30230	=SQL{?WC?',CAST(SUBSTRING(T.RDB$PROCEDURE_NAME')};
ZZZZ010541	30240	COPY=ADD10
ZZZZ010541	30250	=SQL{?WC?' FROM 3 FOR')};
ZZZZ010541	30260	COPY=ADD10
ZZZZ010541	30270	=SQL{?WC?' CHAR_LENGTH(TRIM(T.RDB$PROCEDURE_NAME))-2)')};
ZZZZ010541	30280	COPY=ADD10
ZZZZ010541	30290	=SQL{?WC?' AS CHAR(30))')};
ZZZZ010541	30300	COPY=ADD10
ZZZZ010541	30310	=SQL{?WC?',CAST(T.RDB$PROCEDURE_SOURCE')};
ZZZZ010541	30320	COPY=ADD10
ZZZZ010541	30330	=SQL{?WC?' AS VARCHAR(4000))')};
ZZZZ010541	30340	COPY=ADD10
ZZZZ010541	30350	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	30360	COPY=ADD10
ZZZZ010541	30370	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	30380	COPY=ADD10
ZZZZ010541	30390	=SQL{?WC?' FROM RDB$PROCEDURES T')};
ZZZZ010541	30400	COPY=ADD10
ZZZZ010541	30410	=SQL{?WC?' WHERE (T.RDB$PROCEDURE_NAME LIKE')};
ZZZZ010541	30420	COPY=ADD10
ZZZZ010541	30430	=SQL{?WC?' ''?WC.D_OWNER1?%''')};
ZZZZ010541	30440	COPY=ADD10
ZZZZ010541	30450	=SQL{?WC?'  OR T.RDB$PROCEDURE_NAME LIKE')};
ZZZZ010541	30460	COPY=ADD10
ZZZZ010541	30470	=SQL{?WC?' ''?WC.D_OWNER2?%'')  ')};
ZZZZ010541	30480	COPY=ADD10
ZZZZ010541	30490	=SQL{?WC?' UNION SELECT')};
ZZZZ010541	30500	COPY=ADD10
ZZZZ010541	30510	=SQL{?WC?' CAST(''PROC'' AS CHAR(5))')};
ZZZZ010541	30520	COPY=ADD10
ZZZZ010541	30530	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	30540	COPY=ADD10
ZZZZ010541	30550	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	30560	COPY=ADD10
ZZZZ010541	30570	=SQL{?WC?',CAST(SUBSTRING(T.RDB$TRIGGER_NAME')};
ZZZZ010541	30580	COPY=ADD10
ZZZZ010541	30590	=SQL{?WC?' FROM 2 FOR 1) AS CHAR(1))')};
ZZZZ010541	30600	COPY=ADD10
ZZZZ010541	30610	=SQL{?WC?',CAST(SUBSTRING(T.RDB$TRIGGER_NAME')};
ZZZZ010541	30620	COPY=ADD10
ZZZZ010541	30630	=SQL{?WC?' FROM 3 FOR')};
ZZZZ010541	30640	COPY=ADD10
ZZZZ010541	30650	=SQL{?WC?' CHAR_LENGTH(TRIM(T.RDB$TRIGGER_NAME))-2)')};
ZZZZ010541	30660	COPY=ADD10
ZZZZ010541	30670	=SQL{?WC?' AS CHAR(30))')};
ZZZZ010541	30680	COPY=ADD10
ZZZZ010541	30690	=SQL{?WC?',CAST(T.RDB$TRIGGER_SOURCE AS VARCHAR(4000))')};
ZZZZ010541	30700	COPY=ADD10
ZZZZ010541	30710	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	30720	COPY=ADD10
ZZZZ010541	30730	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	30740	COPY=ADD10
ZZZZ010541	30750	=SQL{?WC?' FROM RDB$TRIGGERS T')};
ZZZZ010541	30760	COPY=ADD10
ZZZZ010541	30770	=SQL{?WC?' WHERE (T.RDB$TRIGGER_NAME LIKE')};
ZZZZ010541	30780	COPY=ADD10
ZZZZ010541	30790	=SQL{?WC?' ''?WC.D_OWNER1?%''')};
ZZZZ010541	30800	COPY=ADD10
ZZZZ010541	30810	=SQL{?WC?'  OR T.RDB$TRIGGER_NAME LIKE')};
ZZZZ010541	30820	COPY=ADD10
ZZZZ010541	30830	=SQL{?WC?' ''?WC.D_OWNER2?%'')')};
ZZZZ010541	30840	*****( COLUMN_VIEW )****************************************
ZZZZ010541	30850	NAME=D_COLUMN_VIEW
ZZZZ010541	30860	=SET{WC.I=WC.INSERT+'''D'','};
ZZZZ010541	30870	COPY=ADD10
ZZZZ010541	30880	=SQL{?WC?'(SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	30890	COPY=ADD10
ZZZZ010541	30900	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME,SYSTEM_SEQ')};
ZZZZ010541	30910	COPY=ADD10
ZZZZ010541	30920	=SQL{?WC?',SYSTEM_DATA_NAME,SYSTEM_DEFAULT_TYPE')};
ZZZZ010541	30930	COPY=ADD10
ZZZZ010541	30940	=SQL{?WC?',SYSTEM_DEFAULT_LENGTH1')};
ZZZZ010541	30950	COPY=ADD10
ZZZZ010541	30960	=SQL{?WC?',SYSTEM_DEFAULT_LENGTH2')};
ZZZZ010541	30970	COPY=ADD10
ZZZZ010541	30980	=SQL{?WC?',SYSTEM_DEFAULT,SYSTEM_NULL)AS SELECT')};
ZZZZ010541	30990	COPY=ADD10
ZZZZ010541	31000	=SQL{?WC?' CAST(CASE T.RDB$RELATION_TYPE')};
ZZZZ010541	31010	COPY=ADD10
ZZZZ010541	31020	=SQL{?WC?' WHEN 0 THEN ''TABLE''')};
ZZZZ010541	31030	COPY=ADD10
ZZZZ010541	31040	=SQL{?WC?' ELSE ''VIEW'' END AS CHAR(5))')};
ZZZZ010541	31050	COPY=ADD10
ZZZZ010541	31060	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	31070	COPY=ADD10
ZZZZ010541	31080	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	31090	COPY=ADD10
ZZZZ010541	31100	=SQL{?WC?',CAST(SUBSTRING(T.RDB$RELATION_NAME')};
ZZZZ010541	31110	COPY=ADD10
ZZZZ010541	31120	=SQL{?WC?' FROM 2 FOR 1)AS CHAR(1))')};
ZZZZ010541	31130	COPY=ADD10
ZZZZ010541	31140	=SQL{?WC?',CAST(SUBSTRING(T.RDB$RELATION_NAME')};
ZZZZ010541	31150	COPY=ADD10
ZZZZ010541	31160	=SQL{?WC?' FROM 3 FOR')};
ZZZZ010541	31170	COPY=ADD10
ZZZZ010541	31180	=SQL{?WC?' CHAR_LENGTH(TRIM(T.RDB$RELATION_NAME))-2)')};
ZZZZ010541	31190	COPY=ADD10
ZZZZ010541	31200	=SQL{?WC?' AS CHAR(30)?_SQL_CHAR_SET?)')};
ZZZZ010541	31210	COPY=ADD10
ZZZZ010541	31220	=SQL{?WC?',CAST(C.RDB$FIELD_POSITION+1 AS INT)')};
ZZZZ010541	31230	COPY=ADD10
ZZZZ010541	31240	=SQL{?WC?',CAST(C.RDB$FIELD_NAME')};
ZZZZ010541	31250	COPY=ADD10
ZZZZ010541	31260	=SQL{?WC?' AS CHAR(30)?_SQL_CHAR_SET?) ')};
ZZZZ010541	31270	COPY=ADD10
ZZZZ010541	31280	=SQL{?WC?',CAST(CASE TY.RDB$TYPE_NAME ')};
ZZZZ010541	31290	COPY=ADD10
ZZZZ010541	31300	=SQL{?WC?' WHEN ''TEXT''    THEN')};
ZZZZ010541	31310	COPY=ADD10
ZZZZ010541	31320	=SQL{?WC?' CASE S.RDB$CHARACTER_SET_NAME')};
ZZZZ010541	31330	COPY=ADD10
ZZZZ010541	31340	=SQL{?WC?' WHEN ''NONE'' THEN ''CHAR''')};
ZZZZ010541	31350	COPY=ADD10
ZZZZ010541	31360	=SQL{?WC?' ELSE ''NCHAR'' END')};
ZZZZ010541	31370	COPY=ADD10
ZZZZ010541	31380	=SQL{?WC?' WHEN ''VARYING'' THEN')};
ZZZZ010541	31390	COPY=ADD10
ZZZZ010541	31400	=SQL{?WC?' CASE S.RDB$CHARACTER_SET_NAME')};
ZZZZ010541	31410	COPY=ADD10
ZZZZ010541	31420	=SQL{?WC?' WHEN ''NONE'' THEN ''VARCHAR''')};
ZZZZ010541	31430	COPY=ADD10
ZZZZ010541	31440	=SQL{?WC?' ELSE ''NVARCHAR'' END ')};
ZZZZ010541	31450	COPY=ADD10
ZZZZ010541	31460	=SQL{?WC?' WHEN ''SHORT'' THEN ''INT''')};
ZZZZ010541	31470	COPY=ADD10
ZZZZ010541	31480	=SQL{?WC?' WHEN ''TIMESTAMP'' THEN ''DATETIME''')};
ZZZZ010541	31490	COPY=ADD10
ZZZZ010541	31500	=SQL{?WC?' WHEN ''INT64'' THEN ''DECIMAL''')};
ZZZZ010541	31510	COPY=ADD10
ZZZZ010541	31520	=SQL{?WC?' WHEN ''LONG'' THEN')};
ZZZZ010541	31530	COPY=ADD10
ZZZZ010541	31540	=SQL{?WC?' CASE WHEN F.RDB$FIELD_PRECISION=0 OR ')};
ZZZZ010541	31550	COPY=ADD10
ZZZZ010541	31560	=SQL{?WC?' F.RDB$FIELD_PRECISION IS NULL THEN ''INT''')};
ZZZZ010541	31570	COPY=ADD10
ZZZZ010541	31580	=SQL{?WC?' ELSE ''DECIMAL'' END ')};
ZZZZ010541	31590	COPY=ADD10
ZZZZ010541	31600	=SQL{?WC?' ELSE  TY.RDB$TYPE_NAME END AS CHAR(9))')};
ZZZZ010541	31610	COPY=ADD10
ZZZZ010541	31620	=SQL{?WC?',CAST(CASE WHEN F.RDB$FIELD_PRECISION>0')};
ZZZZ010541	31630	COPY=ADD10
ZZZZ010541	31640	=SQL{?WC?' THEN F.RDB$FIELD_PRECISION ELSE')};
ZZZZ010541	31650	COPY=ADD10
ZZZZ010541	31660	=SQL{?WC?' CASE TY.RDB$TYPE_NAME')};
ZZZZ010541	31670	COPY=ADD10
ZZZZ010541	31680	=SQL{?WC?' WHEN ''LONG'' THEN 9')};
ZZZZ010541	31690	COPY=ADD10
ZZZZ010541	31700	=SQL{?WC?' WHEN ''SHORT'' THEN 9')};
ZZZZ010541	31710	COPY=ADD10
ZZZZ010541	31720	=SQL{?WC?' WHEN ''FLOAT'' THEN 9 ')};
ZZZZ010541	31730	COPY=ADD10
ZZZZ010541	31740	=SQL{?WC?' WHEN ''DATE''  THEN 8')};
ZZZZ010541	31750	COPY=ADD10
ZZZZ010541	31760	=SQL{?WC?' WHEN ''TIMESTAMP'' THEN 17 ')};
ZZZZ010541	31770	COPY=ADD10
ZZZZ010541	31780	=SQL{?WC?' ELSE CASE S.RDB$CHARACTER_SET_NAME ')};
ZZZZ010541	31790	COPY=ADD10
ZZZZ010541	31800	=SQL{?WC?' WHEN ''NONE'' THEN F.RDB$FIELD_LENGTH')};
ZZZZ010541	31810	COPY=ADD10
ZZZZ010541	31820	=SQL{?WC?' ELSE F.RDB$FIELD_LENGTH/?_UTF8_GET?')};
ZZZZ010541	31830	COPY=ADD10
ZZZZ010541	31840	=SQL{?WC?' END END END AS INT)')};
ZZZZ010541	31850	COPY=ADD10
ZZZZ010541	31860	=SQL{?WC?',CAST(CASE WHEN F.RDB$FIELD_PRECISION>0')};
ZZZZ010541	31870	COPY=ADD10
ZZZZ010541	31880	=SQL{?WC?' THEN 0-F.RDB$FIELD_SCALE ELSE 0 END AS INT)')};
ZZZZ010541	31890	COPY=ADD10
ZZZZ010541	31900	=SQL{?WC?',CAST(SUBSTRING(C.RDB$DEFAULT_SOURCE')};
ZZZZ010541	31910	COPY=ADD10
ZZZZ010541	31920	=SQL{?WC?' FROM 9 FOR')};
ZZZZ010541	31930	COPY=ADD10
ZZZZ010541	31940	=SQL{?WC?' CHAR_LENGTH(TRIM(C.RDB$DEFAULT_SOURCE))-8)')};
ZZZZ010541	31950	COPY=ADD10
ZZZZ010541	31960	=SQL{?WC?' AS CHAR(30)?_SQL_CHAR_SET?)')};
ZZZZ010541	31970	COPY=ADD10
ZZZZ010541	31980	=SQL{?WC?',CAST(CASE C.RDB$NULL_FLAG')};
ZZZZ010541	31990	COPY=ADD10
ZZZZ010541	32000	=SQL{?WC?' WHEN 1 THEN ''0'' ELSE ''1'' END AS CHAR(1))')};
ZZZZ010541	32010	COPY=ADD10
ZZZZ010541	32020	=SQL{?WC?' FROM RDB$RELATIONS T')};
ZZZZ010541	32030	COPY=ADD10
ZZZZ010541	32040	=SQL{?WC?' INNER JOIN RDB$RELATION_FIELDS C')};
ZZZZ010541	32050	COPY=ADD10
ZZZZ010541	32060	=SQL{?WC?' ON C.RDB$RELATION_NAME=T.RDB$RELATION_NAME')};
ZZZZ010541	32070	COPY=ADD10
ZZZZ010541	32080	=SQL{?WC?' INNER JOIN RDB$FIELDS F')};
ZZZZ010541	32090	COPY=ADD10
ZZZZ010541	32100	=SQL{?WC?' ON F.RDB$FIELD_NAME=C.RDB$FIELD_SOURCE')};
ZZZZ010541	32110	COPY=ADD10
ZZZZ010541	32120	=SQL{?WC?' INNER JOIN RDB$TYPES TY')};
ZZZZ010541	32130	COPY=ADD10
ZZZZ010541	32140	=SQL{?WC?' ON TY.RDB$TYPE=F.RDB$FIELD_TYPE')};
ZZZZ010541	32150	COPY=ADD10
ZZZZ010541	32160	=SQL{?WC?' AND TY.RDB$FIELD_NAME=''RDB$FIELD_TYPE''')};
ZZZZ010541	32170	COPY=ADD10
ZZZZ010541	32180	=SQL{?WC?' INNER JOIN RDB$CHARACTER_SETS S')};
ZZZZ010541	32190	COPY=ADD10
ZZZZ010541	32200	=SQL{?WC?' ON (S.RDB$CHARACTER_SET_ID')};
ZZZZ010541	32210	COPY=ADD10
ZZZZ010541	32220	=SQL{?WC?'=F.RDB$CHARACTER_SET_ID')};
ZZZZ010541	32230	COPY=ADD10
ZZZZ010541	32240	=SQL{?WC?' OR  S.RDB$CHARACTER_SET_ID=0')};
ZZZZ010541	32250	COPY=ADD10
ZZZZ010541	32260	=SQL{?WC?' AND F.RDB$CHARACTER_SET_ID IS NULL)')};
ZZZZ010541	32270	COPY=ADD10
ZZZZ010541	32280	=SQL{?WC?' WHERE (T.RDB$RELATION_NAME LIKE')};
ZZZZ010541	32290	COPY=ADD10
ZZZZ010541	32300	=SQL{?WC?' ''?WC.D_OWNER1?%''')};
ZZZZ010541	32310	COPY=ADD10
ZZZZ010541	32320	=SQL{?WC?'  OR T.RDB$RELATION_NAME LIKE')};
ZZZZ010541	32330	COPY=ADD10
ZZZZ010541	32340	=SQL{?WC?' ''?WC.D_OWNER2?%'')')};
ZZZZ010541	32350	*****( INDEX_VIEW )*****************************************
ZZZZ010541	32360	NAME=D_INDEX_VIEW
ZZZZ010541	32370	=SET{WC.I=WC.INSERT+'''D'','};
ZZZZ010541	32380	COPY=ADD10
ZZZZ010541	32390	=SQL{?WC?'(SYSTEM_REAL,SYSTEM_WORK,SYSTEM_USER_X')};
ZZZZ010541	32400	COPY=ADD10
ZZZZ010541	32410	=SQL{?WC?',SYSTEM_NAME,SYSTEM_DATA_NAME,SYSTEM_IX')};
ZZZZ010541	32420	COPY=ADD10
ZZZZ010541	32430	=SQL{?WC?',SYSTEM_NO)AS SELECT ')};
ZZZZ010541	32440	COPY=ADD10
ZZZZ010541	32450	=SQL{?WC?' CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	32460	COPY=ADD10
ZZZZ010541	32470	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	32480	COPY=ADD10
ZZZZ010541	32490	=SQL{?WC?',CAST(SUBSTRING(T.RDB$RELATION_NAME')};
ZZZZ010541	32500	COPY=ADD10
ZZZZ010541	32510	=SQL{?WC?' FROM 2 FOR 1)AS CHAR(1))')};
ZZZZ010541	32520	COPY=ADD10
ZZZZ010541	32530	=SQL{?WC?',CAST(SUBSTRING(T.RDB$RELATION_NAME')};
ZZZZ010541	32540	COPY=ADD10
ZZZZ010541	32550	=SQL{?WC?' FROM 3 FOR')};
ZZZZ010541	32560	COPY=ADD10
ZZZZ010541	32570	=SQL{?WC?' CHAR_LENGTH(TRIM(T.RDB$RELATION_NAME))-2)')};
ZZZZ010541	32580	COPY=ADD10
ZZZZ010541	32590	=SQL{?WC?' AS CHAR(30)?_SQL_CHAR_SET?)')};
ZZZZ010541	32600	COPY=ADD10
ZZZZ010541	32610	=SQL{?WC?',CAST(C.RDB$FIELD_NAME')};
ZZZZ010541	32620	COPY=ADD10
ZZZZ010541	32630	=SQL{?WC?' AS CHAR(30)?_SQL_CHAR_SET?)')};
ZZZZ010541	32640	COPY=ADD10
ZZZZ010541	32650	=SQL{?WC?',CAST(RIGHT(TRIM(T.RDB$INDEX_NAME),1)')};
ZZZZ010541	32660	COPY=ADD10
ZZZZ010541	32670	=SQL{?WC?' AS CHAR(1))')};
ZZZZ010541	32680	COPY=ADD10
ZZZZ010541	32690	=SQL{?WC?',CAST(C.RDB$FIELD_POSITION')};
ZZZZ010541	32700	COPY=ADD10
ZZZZ010541	32710	=SQL{?WC?'+CASE RDB$UNIQUE_FLAG')};
ZZZZ010541	32720	COPY=ADD10
ZZZZ010541	32730	=SQL{?WC?' WHEN 1 THEN 0 ELSE 1 END AS INT)')};
ZZZZ010541	32740	COPY=ADD10
ZZZZ010541	32750	=SQL{?WC?' FROM RDB$INDICES T')};
ZZZZ010541	32760	COPY=ADD10
ZZZZ010541	32770	=SQL{?WC?' INNER JOIN RDB$INDEX_SEGMENTS C')};
ZZZZ010541	32780	COPY=ADD10
ZZZZ010541	32790	=SQL{?WC?' ON C.RDB$INDEX_NAME=T.RDB$INDEX_NAME')};
ZZZZ010541	32800	COPY=ADD10
ZZZZ010541	32810	=SQL{?WC?' WHERE (T.RDB$RELATION_NAME LIKE')};
ZZZZ010541	32820	COPY=ADD10
ZZZZ010541	32830	=SQL{?WC?' ''?WC.D_OWNER1?%''')};
ZZZZ010541	32840	COPY=ADD10
ZZZZ010541	32850	=SQL{?WC?' OR T.RDB$RELATION_NAME LIKE')};
ZZZZ010541	32860	COPY=ADD10
ZZZZ010541	32870	=SQL{?WC?' ''?WC.D_OWNER2?%'')')};
ZZZZ010541	32880	*****( GRANT_VIEW )*****************************************
ZZZZ010541	32890	NAME=D_GRANT_VIEW
ZZZZ010541	32900	=SET{WC.I=WC.INSERT+'''D'','};
ZZZZ010541	32910	COPY=ADD10
ZZZZ010541	32920	=SQL{?WC?'(SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	32930	COPY=ADD10
ZZZZ010541	32940	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME,SYSTEM_GRANT')};
ZZZZ010541	32950	COPY=ADD10
ZZZZ010541	32960	=SQL{?WC?',SYSTEM_SELECT,SYSTEM_INSERT')};
ZZZZ010541	32970	COPY=ADD10
ZZZZ010541	32980	=SQL{?WC?',SYSTEM_UPDATE,SYSTEM_DELETE')};
ZZZZ010541	32990	COPY=ADD10
ZZZZ010541	33000	=SQL{?WC?',SYSTEM_EXECUTE)AS SELECT')};
ZZZZ010541	33010	COPY=ADD10
ZZZZ010541	33020	=SQL{?WC?' CAST(CASE T.RDB$RELATION_TYPE ')};
ZZZZ010541	33030	COPY=ADD10
ZZZZ010541	33040	=SQL{?WC?' WHEN 0 THEN ''TABLE''')};
ZZZZ010541	33050	COPY=ADD10
ZZZZ010541	33060	=SQL{?WC?' ELSE ''VIEW'' END AS CHAR(5))')};
ZZZZ010541	33070	COPY=ADD10
ZZZZ010541	33080	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	33090	COPY=ADD10
ZZZZ010541	33100	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	33110	COPY=ADD10
ZZZZ010541	33120	=SQL{?WC?',CAST(SUBSTRING(T.RDB$RELATION_NAME FROM')};
ZZZZ010541	33130	COPY=ADD10
ZZZZ010541	33140	=SQL{?WC?' 2 FOR 1)AS CHAR(1))')};
ZZZZ010541	33150	COPY=ADD10
ZZZZ010541	33160	=SQL{?WC?',CAST(SUBSTRING(T.RDB$RELATION_NAME')};
ZZZZ010541	33170	COPY=ADD10
ZZZZ010541	33180	=SQL{?WC?' FROM 3 FOR')};
ZZZZ010541	33190	COPY=ADD10
ZZZZ010541	33200	=SQL{?WC?' CHAR_LENGTH(TRIM(T.RDB$RELATION_NAME))-2)')};
ZZZZ010541	33210	COPY=ADD10
ZZZZ010541	33220	=SQL{?WC?' AS CHAR(30)?_SQL_CHAR_SET?)')};
ZZZZ010541	33230	COPY=ADD10
ZZZZ010541	33240	=SQL{?WC?',CAST(CASE GS.RDB$USER')};
ZZZZ010541	33250	COPY=ADD10
ZZZZ010541	33260	=SQL{?WC?' WHEN ''PUBLIC'' THEN ''PUBLIC'' ')};
ZZZZ010541	33270	COPY=ADD10
ZZZZ010541	33280	=SQL{?WC?' ELSE RIGHT(TRIM(GS.RDB$USER),6)')};
ZZZZ010541	33290	COPY=ADD10
ZZZZ010541	33300	=SQL{?WC?' END AS CHAR(6))')};
ZZZZ010541	33310	COPY=ADD10
ZZZZ010541	33320	=SQL{?WC?',CAST(CASE GS.RDB$PRIVILEGE')};
ZZZZ010541	33330	COPY=ADD10
ZZZZ010541	33340	=SQL{?WC?' WHEN ''S'' THEN ''S'' ')};
ZZZZ010541	33350	COPY=ADD10
ZZZZ010541	33360	=SQL{?WC?' ELSE '' '' END AS CHAR(1))')};
ZZZZ010541	33370	COPY=ADD10
ZZZZ010541	33380	=SQL{?WC?',CAST(CASE GI.RDB$PRIVILEGE')};
ZZZZ010541	33390	COPY=ADD10
ZZZZ010541	33400	=SQL{?WC?' WHEN ''I'' THEN ''I'' ')};
ZZZZ010541	33410	COPY=ADD10
ZZZZ010541	33420	=SQL{?WC?' ELSE '' '' END AS CHAR(1))')};
ZZZZ010541	33430	COPY=ADD10
ZZZZ010541	33440	=SQL{?WC?',CAST(CASE GU.RDB$PRIVILEGE')};
ZZZZ010541	33450	COPY=ADD10
ZZZZ010541	33460	=SQL{?WC?' WHEN ''U'' THEN ''U'' ')};
ZZZZ010541	33470	COPY=ADD10
ZZZZ010541	33480	=SQL{?WC?' ELSE '' '' END AS CHAR(1))')};
ZZZZ010541	33490	COPY=ADD10
ZZZZ010541	33500	=SQL{?WC?',CAST(CASE GD.RDB$PRIVILEGE')};
ZZZZ010541	33510	COPY=ADD10
ZZZZ010541	33520	=SQL{?WC?' WHEN ''D'' THEN ''D'' ')};
ZZZZ010541	33530	COPY=ADD10
ZZZZ010541	33540	=SQL{?WC?' ELSE '' '' END AS CHAR(1))')};
ZZZZ010541	33550	COPY=ADD10
ZZZZ010541	33560	=SQL{?WC?',CAST('' ''  AS CHAR(1))')};
ZZZZ010541	33570	COPY=ADD10
ZZZZ010541	33580	=SQL{?WC?' FROM RDB$RELATIONS T')};
ZZZZ010541	33590	COPY=ADD10
ZZZZ010541	33600	=SQL{?WC?' INNER JOIN RDB$USER_PRIVILEGES GS ')};
ZZZZ010541	33610	COPY=ADD10
ZZZZ010541	33620	=SQL{?WC?' ON GS.RDB$RELATION_NAME')};
ZZZZ010541	33630	COPY=ADD10
ZZZZ010541	33640	=SQL{?WC?'=T.RDB$RELATION_NAME')};
ZZZZ010541	33650	COPY=ADD10
ZZZZ010541	33660	=SQL{?WC?' AND GS.RDB$PRIVILEGE=''S'' ')};
ZZZZ010541	33670	COPY=ADD10
ZZZZ010541	33680	=SQL{?WC?' LEFT OUTER JOIN RDB$USER_PRIVILEGES GI ')};
ZZZZ010541	33690	COPY=ADD10
ZZZZ010541	33700	=SQL{?WC?' ON GI.RDB$RELATION_NAME')};
ZZZZ010541	33710	COPY=ADD10
ZZZZ010541	33720	=SQL{?WC?'=T.RDB$RELATION_NAME')};
ZZZZ010541	33730	COPY=ADD10
ZZZZ010541	33740	=SQL{?WC?' AND GS.RDB$PRIVILEGE=''S''')};
ZZZZ010541	33750	COPY=ADD10
ZZZZ010541	33760	=SQL{?WC?' AND GI.RDB$PRIVILEGE=''I''')};
ZZZZ010541	33770	COPY=ADD10
ZZZZ010541	33780	=SQL{?WC?' AND GI.RDB$USER=GS.RDB$USER')};
ZZZZ010541	33790	COPY=ADD10
ZZZZ010541	33800	=SQL{?WC?' LEFT OUTER JOIN RDB$USER_PRIVILEGES GU ')};
ZZZZ010541	33810	COPY=ADD10
ZZZZ010541	33820	=SQL{?WC?' ON GU.RDB$RELATION_NAME')};
ZZZZ010541	33830	COPY=ADD10
ZZZZ010541	33840	=SQL{?WC?'=T.RDB$RELATION_NAME')};
ZZZZ010541	33850	COPY=ADD10
ZZZZ010541	33860	=SQL{?WC?' AND GS.RDB$PRIVILEGE=''S''')};
ZZZZ010541	33870	COPY=ADD10
ZZZZ010541	33880	=SQL{?WC?' AND GU.RDB$PRIVILEGE=''U''')};
ZZZZ010541	33890	COPY=ADD10
ZZZZ010541	33900	=SQL{?WC?' AND GU.RDB$USER=GS.RDB$USER')};
ZZZZ010541	33910	COPY=ADD10
ZZZZ010541	33920	=SQL{?WC?' LEFT OUTER JOIN RDB$USER_PRIVILEGES GD ')};
ZZZZ010541	33930	COPY=ADD10
ZZZZ010541	33940	=SQL{?WC?' ON GD.RDB$RELATION_NAME')};
ZZZZ010541	33950	COPY=ADD10
ZZZZ010541	33960	=SQL{?WC?'=T.RDB$RELATION_NAME')};
ZZZZ010541	33970	COPY=ADD10
ZZZZ010541	33980	=SQL{?WC?' AND GS.RDB$PRIVILEGE=''S''')};
ZZZZ010541	33990	COPY=ADD10
ZZZZ010541	34000	=SQL{?WC?' AND GD.RDB$PRIVILEGE=''D''')};
ZZZZ010541	34010	COPY=ADD10
ZZZZ010541	34020	=SQL{?WC?' AND GD.RDB$USER=GS.RDB$USER')};
ZZZZ010541	34030	COPY=ADD10
ZZZZ010541	34040	=SQL{?WC?' WHERE (T.RDB$RELATION_NAME LIKE')};
ZZZZ010541	34050	COPY=ADD10
ZZZZ010541	34060	=SQL{?WC?' ''?WC.D_OWNER1?%''')};
ZZZZ010541	34070	COPY=ADD10
ZZZZ010541	34080	=SQL{?WC?'  OR T.RDB$RELATION_NAME LIKE')};
ZZZZ010541	34090	COPY=ADD10
ZZZZ010541	34100	=SQL{?WC?' ''?WC.D_OWNER2?%'') ')};
ZZZZ010541	34110	COPY=ADD10
ZZZZ010541	34120	=SQL{?WC?' AND (GS.RDB$USER=''PUBLIC'' OR')};
ZZZZ010541	34130	COPY=ADD10
ZZZZ010541	34140	=SQL{?WC?' SUBSTRING(GS.RDB$USER  FROM ')};
ZZZZ010541	34150	COPY=ADD10
ZZZZ010541	34160	=SQL{?WC?' CHAR_LENGTH(TRIM(GS.RDB$USER))-7 FOR 1)')};
ZZZZ010541	34170	COPY=ADD10
ZZZZ010541	34180	=SQL{?WC?'=SUBSTRING(T.RDB$RELATION_NAME')};
ZZZZ010541	34190	COPY=ADD10
ZZZZ010541	34200	=SQL{?WC?' FROM 1 FOR 1))')};
ZZZZ010541	34210	NAME=
ZZZZ010541	34220	****************************************************
ZZZZ010541	34230	=D_SKIP:
ZZZZ010541	34240	=IF{_DB!='H'}JUMP{H_SKIP};
ZZZZ010541	34250	*********( CREATE USER )*************************************
ZZZZ010541	34260	=SET{WC.CONNECT='DBA'};
ZZZZ010541	34270	REPEAT0=$W0.PERMISSION
ZZZZ010541	34280	=MESSAGE{CREATE USER};
ZZZZ010541	34290	REPEAT=2 (WC.REAL_TEST##)
ZZZZ010541	34300	=SET{WC.PAS=WC.PASSWORD_?WC.REAL_TEST##?};
ZZZZ010541	34310	=SET{W0.REPEAT2CNT=0};
ZZZZ010541	34320	REPEAT2=4 (WC.DIOL--)
ZZZZ010541	34330	=COMPUTE{W0.REPEAT2CNT+=1};
ZZZZ010541	34340	=SET{WC.DIOL=WC.DIOL?W0.REPEAT2CNT?};
ZZZZ010541	34350	=IF{W0.REPEAT2CNT=4}SET{WC.PAS=WC.PASSWORD_LINK};
ZZZZ010541	34360	=LOGIN_SQL{GRANT ?WC.CONNECT? TO
ZZZZ010541	34370	= ?WC.IS??WC.R_T##??WC.DIOL??WC.PER$$?
ZZZZ010541	34380	= IDENTIFIED BY "?WC.PAS?"};
ZZZZ010541	34390	=SET{WC.CONNECT='CONNECT'};
ZZZZ010541	34400	REPEAT0=
ZZZZ010541	34410	*********( CREATE SCEMA )************************************
ZZZZ010541	34420	=MESSAGE{CREATE SCHEMA};
ZZZZ010541	34430	REPEAT0=$W0.PERMISSION
ZZZZ010541	34440	REPEAT=2  (WC.REAL_TEST##=REAL;TEST)
ZZZZ010541	34450	=SET{W0.REPEAT2CNT=0};
ZZZZ010541	34460	REPEAT2=3 (WC.DIOL--=D;I;O)
ZZZZ010541	34470	=COMPUTE{W0.REPEAT2CNT+=1};
ZZZZ010541	34480	=SET{WC.DIOL=WC.DIOL?W0.REPEAT2CNT?};
ZZZZ010541	34490	=SET{WC.SCHEMA='?WC.IS??WC.R_T##??WC.DIOL??WC.PER$$?'};
ZZZZ010541	34500	=IF_ERROR_LOGIN_SQL{CREATE SCHEMA AUTHORIZATION ?WC.SCHEMA?}
ZZZZ010541	34510	=  IF{_DB_I_ERROR!='EXIST'}ERROR{?_DB_ERROR? ?_ERROR?};
ZZZZ010541	34520	REPEAT0=
ZZZZ010541	34530	=JUMP{H_SKIP};
ZZZZ010541	34540	*****( OBJECT_VIEW )********************************
ZZZZ010541	34550	NAME=H_OBJECT_VIEW
ZZZZ010541	34560	=SET{WC.I=WC.INSERT+'''H'','};
ZZZZ010541	34570	COPY=ADD10
ZZZZ010541	34580	=SQL{?WC?'(SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	34590	COPY=ADD10
ZZZZ010541	34600	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME,SYSTEM_TEXT')};
ZZZZ010541	34610	COPY=ADD10
ZZZZ010541	34620	=SQL{?WC?',SYSTEM_ADD_DATE17,SYSTEM_CHANGE_DATE17')};
ZZZZ010541	34630	COPY=ADD10
ZZZZ010541	34640	=SQL{?WC?',SYSTEM_TYPES)AS SELECT')};
ZZZZ010541	34650	COPY=ADD10
ZZZZ010541	34660	=SQL{?WC?' CAST(''TABLE''  AS CHAR(5))')};
ZZZZ010541	34670	COPY=ADD10
ZZZZ010541	34680	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	34690	COPY=ADD10
ZZZZ010541	34700	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	34710	COPY=ADD10
ZZZZ010541	34720	=SQL{?WC?',CAST(SUBSTR(TABLE_SCHEMA')};
ZZZZ010541	34730	COPY=ADD10
ZZZZ010541	34740	=SQL{?WC?',LENGTH(TABLE_SCHEMA)-4,1) AS CHAR(1))')};
ZZZZ010541	34750	COPY=ADD10
ZZZZ010541	34760	=SQL{?WC?',CAST(TABLE_NAME AS MCHAR(30))')};
ZZZZ010541	34770	COPY=ADD10
ZZZZ010541	34780	=SQL{?WC?',CAST('' '' AS MVARCHAR(4000))')};
ZZZZ010541	34790	COPY=ADD10
ZZZZ010541	34800	=SQL{?WC?',CAST(CREATE_TIME AS CHAR(17))')};
ZZZZ010541	34810	COPY=ADD10
ZZZZ010541	34820	=SQL{?WC?',CAST(CHANGE_TIME AS CHAR(17))')};
ZZZZ010541	34830	COPY=ADD10
ZZZZ010541	34840	=SQL{?WC?',CAST('' '' AS VARCHAR(4000))')};
ZZZZ010541	34850	COPY=ADD10
ZZZZ010541	34860	=SQL{?WC?' FROM MASTER.SQL_TABLES WHERE ')};
ZZZZ010541	34870	COPY=ADD10
ZZZZ010541	34880	=SQL{?WC?' TABLE_SCHEMA IN')};
ZZZZ010541	34890	COPY=ADD10
ZZZZ010541	34900	=SQL{?WC?'(?WC.H_OWNER?)')};
ZZZZ010541	34910	COPY=ADD10
ZZZZ010541	34920	=SQL{?WC?' AND TABLE_TYPE=''BASE TABLE''')};
ZZZZ010541	34930	COPY=ADD10
ZZZZ010541	34940	=SQL{?WC?' UNION SELECT CAST(''VIEW''  AS CHAR(5))')};
ZZZZ010541	34950	COPY=ADD10
ZZZZ010541	34960	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	34970	COPY=ADD10
ZZZZ010541	34980	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	34990	COPY=ADD10
ZZZZ010541	35000	=SQL{?WC?',CAST(SUBSTR(VIEW_SCHEMA')};
ZZZZ010541	35010	COPY=ADD10
ZZZZ010541	35020	=SQL{?WC?',LENGTH(VIEW_SCHEMA)-4,1)AS CHAR(1))')};
ZZZZ010541	35030	COPY=ADD10
ZZZZ010541	35040	=SQL{?WC?',CAST(VIEW_NAME AS MCHAR(30))')};
ZZZZ010541	35050	COPY=ADD10
ZZZZ010541	35060	=SQL{?WC?',CAST(VIEW_DEFINITION AS MVARCHAR(4000))')};
ZZZZ010541	35070	COPY=ADD10
ZZZZ010541	35080	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	35090	COPY=ADD10
ZZZZ010541	35100	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	35110	COPY=ADD10
ZZZZ010541	35120	=SQL{?WC?',CAST('' '' AS VARCHAR(4000))')};
ZZZZ010541	35130	COPY=ADD10
ZZZZ010541	35140	=SQL{?WC?' FROM MASTER.SQL_VIEWS')};
ZZZZ010541	35150	COPY=ADD10
ZZZZ010541	35160	=SQL{?WC?' WHERE VIEW_SCHEMA IN')};
ZZZZ010541	35170	COPY=ADD10
ZZZZ010541	35180	=SQL{?WC?'(?WC.H_OWNER?) ')};
ZZZZ010541	35190	COPY=ADD10
ZZZZ010541	35200	=SQL{?WC?' UNION SELECT')};
ZZZZ010541	35210	COPY=ADD10
ZZZZ010541	35220	=SQL{?WC?' CAST(CASE R.ROUTINE_TYPE')};
ZZZZ010541	35230	COPY=ADD10
ZZZZ010541	35240	=SQL{?WC?' WHEN ''F'' THEN ''FUNC'' ')};
ZZZZ010541	35250	COPY=ADD10
ZZZZ010541	35260	=SQL{?WC?' ELSE ''PROC'' END AS CHAR(5))')};
ZZZZ010541	35270	COPY=ADD10
ZZZZ010541	35280	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	35290	COPY=ADD10
ZZZZ010541	35300	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	35310	COPY=ADD10
ZZZZ010541	35320	=SQL{?WC?',CAST(SUBSTR(R.ROUTINE_SCHEMA')};
ZZZZ010541	35330	COPY=ADD10
ZZZZ010541	35340	=SQL{?WC?',LENGTH(R.ROUTINE_SCHEMA)-4,1)AS CHAR(1))')};
ZZZZ010541	35350	COPY=ADD10
ZZZZ010541	35360	=SQL{?WC?',CAST(R.ROUTINE_NAME AS MCHAR(30))')};
ZZZZ010541	35370	COPY=ADD10
ZZZZ010541	35380	=SQL{?WC?',CAST('' '' AS MVARCHAR(4000))')};
ZZZZ010541	35390	COPY=ADD10
ZZZZ010541	35400	=SQL{?WC?',CAST(R.CREATE_TIME AS CHAR(17))')};
ZZZZ010541	35410	COPY=ADD10
ZZZZ010541	35420	=SQL{?WC?',CAST('' '' AS CHAR(17)),CAST(''(''||')};
ZZZZ010541	35430	COPY=ADD10
ZZZZ010541	35440	=SQL{?WC?' CASE WHEN  P1.DATA_TYPE IS NULL THEN ''''')};
ZZZZ010541	35450	COPY=ADD10
ZZZZ010541	35460	=SQL{?WC?' ELSE  RTRIM(P1.DATA_TYPE) END||')};
ZZZZ010541	35470	COPY=ADD10
ZZZZ010541	35480	=SQL{?WC?' CASE  WHEN P2.DATA_TYPE IS NULL THEN ''''')};
ZZZZ010541	35490	COPY=ADD10
ZZZZ010541	35500	=SQL{?WC?' ELSE '',''||RTRIM(P2.DATA_TYPE) END||')};
ZZZZ010541	35510	COPY=ADD10
ZZZZ010541	35520	=SQL{?WC?' CASE WHEN  P3.DATA_TYPE IS NULL THEN ''''')};
ZZZZ010541	35530	COPY=ADD10
ZZZZ010541	35540	=SQL{?WC?' ELSE '',''||RTRIM(P3.DATA_TYPE) END||')};
ZZZZ010541	35550	COPY=ADD10
ZZZZ010541	35560	=SQL{?WC?' CASE WHEN  P4.DATA_TYPE IS NULL THEN ''''')};
ZZZZ010541	35570	COPY=ADD10
ZZZZ010541	35580	=SQL{?WC?' ELSE '',''||RTRIM(P4.DATA_TYPE) END||')};
ZZZZ010541	35590	COPY=ADD10
ZZZZ010541	35600	=SQL{?WC?' CASE WHEN  P5.DATA_TYPE IS NULL THEN ''''')};
ZZZZ010541	35610	COPY=ADD10
ZZZZ010541	35620	=SQL{?WC?' ELSE '',''||RTRIM(P5.DATA_TYPE) END||')};
ZZZZ010541	35630	COPY=ADD10
ZZZZ010541	35640	=SQL{?WC?' CASE WHEN  P6.DATA_TYPE IS NULL THEN ''''')};
ZZZZ010541	35650	COPY=ADD10
ZZZZ010541	35660	=SQL{?WC?' ELSE '',''||RTRIM(P6.DATA_TYPE) END||')};
ZZZZ010541	35670	COPY=ADD10
ZZZZ010541	35680	=SQL{?WC?' CASE WHEN  P7.DATA_TYPE IS NULL THEN ''''')};
ZZZZ010541	35690	COPY=ADD10
ZZZZ010541	35700	=SQL{?WC?' ELSE '',''||RTRIM(P7.DATA_TYPE) END||')};
ZZZZ010541	35710	COPY=ADD10
ZZZZ010541	35720	=SQL{?WC?' CASE WHEN  P8.DATA_TYPE IS NULL THEN ''''')};
ZZZZ010541	35730	COPY=ADD10
ZZZZ010541	35740	=SQL{?WC?' ELSE '',''||RTRIM(P8.DATA_TYPE) END||')};
ZZZZ010541	35750	COPY=ADD10
ZZZZ010541	35760	=SQL{?WC?' CASE WHEN  P9.DATA_TYPE IS NULL THEN ''''')};
ZZZZ010541	35770	COPY=ADD10
ZZZZ010541	35780	=SQL{?WC?' ELSE '',''||RTRIM(P9.DATA_TYPE) END||')};
ZZZZ010541	35790	COPY=ADD10
ZZZZ010541	35800	=SQL{?WC?' CASE WHEN  P10.DATA_TYPE IS NULL THEN ''''')};
ZZZZ010541	35810	COPY=ADD10
ZZZZ010541	35820	=SQL{?WC?' ELSE '',''||RTRIM(P10.DATA_TYPE) END||')};
ZZZZ010541	35830	COPY=ADD10
ZZZZ010541	35840	=SQL{?WC?''')'' AS VARCHAR(4000))')};
ZZZZ010541	35850	COPY=ADD10
ZZZZ010541	35860	=SQL{?WC?' FROM MASTER.SQL_ROUTINES R LEFT OUTER JOIN')};
ZZZZ010541	35870	COPY=ADD10
ZZZZ010541	35880	=SQL{?WC?' MASTER.SQL_ROUTINE_PARAMS P1')};
ZZZZ010541	35890	COPY=ADD10
ZZZZ010541	35900	=SQL{?WC?' ON R.ROUTINE_NAME=P1.ROUTINE_NAME')};
ZZZZ010541	35910	COPY=ADD10
ZZZZ010541	35920	=SQL{?WC?' AND P1.PARAMETER_NO=1 ')};
ZZZZ010541	35930	COPY=ADD10
ZZZZ010541	35940	=SQL{?WC?' AND R.ROUTINE_SCHEMA=P1.ROUTINE_SCHEMA')};
ZZZZ010541	35950	COPY=ADD10
ZZZZ010541	35960	=SQL{?WC?' LEFT OUTER JOIN MASTER.SQL_ROUTINE_PARAMS P2')};
ZZZZ010541	35970	COPY=ADD10
ZZZZ010541	35980	=SQL{?WC?' ON  R.ROUTINE_NAME=P2.ROUTINE_NAME')};
ZZZZ010541	35990	COPY=ADD10
ZZZZ010541	36000	=SQL{?WC?' AND P2.PARAMETER_NO=2')};
ZZZZ010541	36010	COPY=ADD10
ZZZZ010541	36020	=SQL{?WC?' AND R.ROUTINE_SCHEMA=P2.ROUTINE_SCHEMA ')};
ZZZZ010541	36030	COPY=ADD10
ZZZZ010541	36040	=SQL{?WC?' LEFT OUTER JOIN MASTER.SQL_ROUTINE_PARAMS P3')};
ZZZZ010541	36050	COPY=ADD10
ZZZZ010541	36060	=SQL{?WC?' ON  R.ROUTINE_NAME=P3.ROUTINE_NAME')};
ZZZZ010541	36070	COPY=ADD10
ZZZZ010541	36080	=SQL{?WC?' AND P3.PARAMETER_NO=3')};
ZZZZ010541	36090	COPY=ADD10
ZZZZ010541	36100	=SQL{?WC?' AND R.ROUTINE_SCHEMA=P3.ROUTINE_SCHEMA ')};
ZZZZ010541	36110	COPY=ADD10
ZZZZ010541	36120	=SQL{?WC?' LEFT OUTER JOIN MASTER.SQL_ROUTINE_PARAMS P4')};
ZZZZ010541	36130	COPY=ADD10
ZZZZ010541	36140	=SQL{?WC?' ON  R.ROUTINE_NAME=P4.ROUTINE_NAME')};
ZZZZ010541	36150	COPY=ADD10
ZZZZ010541	36160	=SQL{?WC?' AND P4.PARAMETER_NO=4')};
ZZZZ010541	36170	COPY=ADD10
ZZZZ010541	36180	=SQL{?WC?' AND R.ROUTINE_SCHEMA=P4.ROUTINE_SCHEMA ')};
ZZZZ010541	36190	COPY=ADD10
ZZZZ010541	36200	=SQL{?WC?' LEFT OUTER JOIN MASTER.SQL_ROUTINE_PARAMS P5')};
ZZZZ010541	36210	COPY=ADD10
ZZZZ010541	36220	=SQL{?WC?' ON R.ROUTINE_NAME=P5.ROUTINE_NAME')};
ZZZZ010541	36230	COPY=ADD10
ZZZZ010541	36240	=SQL{?WC?' AND P5.PARAMETER_NO=5')};
ZZZZ010541	36250	COPY=ADD10
ZZZZ010541	36260	=SQL{?WC?' AND R.ROUTINE_SCHEMA=P5.ROUTINE_SCHEMA ')};
ZZZZ010541	36270	COPY=ADD10
ZZZZ010541	36280	=SQL{?WC?' LEFT OUTER JOIN MASTER.SQL_ROUTINE_PARAMS P6')};
ZZZZ010541	36290	COPY=ADD10
ZZZZ010541	36300	=SQL{?WC?' ON R.ROUTINE_NAME=P6.ROUTINE_NAME')};
ZZZZ010541	36310	COPY=ADD10
ZZZZ010541	36320	=SQL{?WC?' AND P6.PARAMETER_NO=6')};
ZZZZ010541	36330	COPY=ADD10
ZZZZ010541	36340	=SQL{?WC?' AND R.ROUTINE_SCHEMA=P6.ROUTINE_SCHEMA ')};
ZZZZ010541	36350	COPY=ADD10
ZZZZ010541	36360	=SQL{?WC?' LEFT OUTER JOIN MASTER.SQL_ROUTINE_PARAMS P7')};
ZZZZ010541	36370	COPY=ADD10
ZZZZ010541	36380	=SQL{?WC?' ON R.ROUTINE_NAME=P7.ROUTINE_NAME')};
ZZZZ010541	36390	COPY=ADD10
ZZZZ010541	36400	=SQL{?WC?' AND P7.PARAMETER_NO=7')};
ZZZZ010541	36410	COPY=ADD10
ZZZZ010541	36420	=SQL{?WC?' AND R.ROUTINE_SCHEMA=P7.ROUTINE_SCHEMA ')};
ZZZZ010541	36430	COPY=ADD10
ZZZZ010541	36440	=SQL{?WC?' LEFT OUTER JOIN MASTER.SQL_ROUTINE_PARAMS P8')};
ZZZZ010541	36450	COPY=ADD10
ZZZZ010541	36460	=SQL{?WC?' ON  R.ROUTINE_NAME=P8.ROUTINE_NAME')};
ZZZZ010541	36470	COPY=ADD10
ZZZZ010541	36480	=SQL{?WC?' AND  P8.PARAMETER_NO=8')};
ZZZZ010541	36490	COPY=ADD10
ZZZZ010541	36500	=SQL{?WC?' AND R.ROUTINE_SCHEMA=P8.ROUTINE_SCHEMA ')};
ZZZZ010541	36510	COPY=ADD10
ZZZZ010541	36520	=SQL{?WC?' LEFT OUTER JOIN MASTER.SQL_ROUTINE_PARAMS P9')};
ZZZZ010541	36530	COPY=ADD10
ZZZZ010541	36540	=SQL{?WC?' ON R.ROUTINE_NAME=P9.ROUTINE_NAME')};
ZZZZ010541	36550	COPY=ADD10
ZZZZ010541	36560	=SQL{?WC?' AND  P9.PARAMETER_NO=9')};
ZZZZ010541	36570	COPY=ADD10
ZZZZ010541	36580	=SQL{?WC?' AND R.ROUTINE_SCHEMA=P9.ROUTINE_SCHEMA')};
ZZZZ010541	36590	COPY=ADD10
ZZZZ010541	36600	=SQL{?WC?' LEFT OUTER JOIN MASTER.SQL_ROUTINE_PARAMS P10')};
ZZZZ010541	36610	COPY=ADD10
ZZZZ010541	36620	=SQL{?WC?' ON R.ROUTINE_NAME=P10.ROUTINE_NAME')};
ZZZZ010541	36630	COPY=ADD10
ZZZZ010541	36640	=SQL{?WC?' AND P10.PARAMETER_NO=10 ')};
ZZZZ010541	36650	COPY=ADD10
ZZZZ010541	36660	=SQL{?WC?' AND R.ROUTINE_SCHEMA=P10.ROUTINE_SCHEMA')};
ZZZZ010541	36670	COPY=ADD10
ZZZZ010541	36680	=SQL{?WC?' WHERE R.ROUTINE_SCHEMA IN')};
ZZZZ010541	36690	COPY=ADD10
ZZZZ010541	36700	=SQL{?WC?'(?WC.H_OWNER?) ')};
ZZZZ010541	36710	COPY=ADD10
ZZZZ010541	36720	=SQL{?WC?' UNION SELECT CAST(''TRIG'' AS CHAR(5))')};
ZZZZ010541	36730	COPY=ADD10
ZZZZ010541	36740	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	36750	COPY=ADD10
ZZZZ010541	36760	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	36770	COPY=ADD10
ZZZZ010541	36780	=SQL{?WC?',CAST(SUBSTR(T.TRIGGER_SCHEMA')};
ZZZZ010541	36790	COPY=ADD10
ZZZZ010541	36800	=SQL{?WC?',LENGTH(T.TRIGGER_SCHEMA)-4,1) AS CHAR(1))')};
ZZZZ010541	36810	COPY=ADD10
ZZZZ010541	36820	=SQL{?WC?',CAST(T.TRIGGER_NAME AS MCHAR(30))')};
ZZZZ010541	36830	COPY=ADD10
ZZZZ010541	36840	=SQL{?WC?',CAST(SUBSTR(D.DEF_SOURCE,1,4000)')};
ZZZZ010541	36850	COPY=ADD10
ZZZZ010541	36860	=SQL{?WC?' AS MVARCHAR(4000))')};
ZZZZ010541	36870	COPY=ADD10
ZZZZ010541	36880	=SQL{?WC?',CAST(T.CREATE_TIME AS CHAR(17))')};
ZZZZ010541	36890	COPY=ADD10
ZZZZ010541	36900	=SQL{?WC?',CAST('' '' AS CHAR(17))')};
ZZZZ010541	36910	COPY=ADD10
ZZZZ010541	36920	=SQL{?WC?',CAST('' '' AS VARCHAR(4000))')};
ZZZZ010541	36930	COPY=ADD10
ZZZZ010541	36940	=SQL{?WC?' FROM MASTER.SQL_TRIGGERS T')};
ZZZZ010541	36950	COPY=ADD10
ZZZZ010541	36960	=SQL{?WC?' INNER JOIN MASTER.SQL_TRIGGER_DEF_SOURCE D')};
ZZZZ010541	36970	COPY=ADD10
ZZZZ010541	36980	=SQL{?WC?' ON T.TRIGGER_SCHEMA=D.TRIGGER_SCHEMA')};
ZZZZ010541	36990	COPY=ADD10
ZZZZ010541	37000	=SQL{?WC?' AND T.TRIGGER_NAME=D.TRIGGER_NAME')};
ZZZZ010541	37010	COPY=ADD10
ZZZZ010541	37020	=SQL{?WC?' WHERE T.TRIGGER_SCHEMA IN')};
ZZZZ010541	37030	COPY=ADD10
ZZZZ010541	37040	=SQL{?WC?'(?WC.H_OWNER?) ')};
ZZZZ010541	37050	*****( COLUMN_VIEW )**************************************
ZZZZ010541	37060	NAME=H_COLUMN_VIEW
ZZZZ010541	37070	=SET{WC.I=WC.INSERT+'''H'','};
ZZZZ010541	37080	COPY=ADD10
ZZZZ010541	37090	=SQL{?WC?'(SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	37100	COPY=ADD10
ZZZZ010541	37110	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME,SYSTEM_SEQ')};
ZZZZ010541	37120	COPY=ADD10
ZZZZ010541	37130	=SQL{?WC?',SYSTEM_DATA_NAME,SYSTEM_DEFAULT_TYPE')};
ZZZZ010541	37140	COPY=ADD10
ZZZZ010541	37150	=SQL{?WC?',SYSTEM_DEFAULT_LENGTH1')};
ZZZZ010541	37160	COPY=ADD10
ZZZZ010541	37170	=SQL{?WC?',SYSTEM_DEFAULT_LENGTH2')};
ZZZZ010541	37180	COPY=ADD10
ZZZZ010541	37190	=SQL{?WC?',SYSTEM_DEFAULT,SYSTEM_NULL)AS SELECT')};
ZZZZ010541	37200	COPY=ADD10
ZZZZ010541	37210	=SQL{?WC?' CAST(CASE WHEN C.TABLE_NAME IS NULL')};
ZZZZ010541	37220	COPY=ADD10
ZZZZ010541	37230	=SQL{?WC?' THEN ''VIEW''')};
ZZZZ010541	37240	COPY=ADD10
ZZZZ010541	37250	=SQL{?WC?' ELSE ''TABLE'' END AS CHAR(5))')};
ZZZZ010541	37260	COPY=ADD10
ZZZZ010541	37270	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	37280	COPY=ADD10
ZZZZ010541	37290	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	37300	COPY=ADD10
ZZZZ010541	37310	=SQL{?WC?',CAST(SUBSTR(C.TABLE_SCHEMA')};
ZZZZ010541	37320	COPY=ADD10
ZZZZ010541	37330	=SQL{?WC?',LENGTH(C.TABLE_SCHEMA)-4,1) AS CHAR(1))')};
ZZZZ010541	37340	COPY=ADD10
ZZZZ010541	37350	=SQL{?WC?',CAST(C.TABLE_NAME AS MCHAR(30))')};
ZZZZ010541	37360	COPY=ADD10
ZZZZ010541	37370	=SQL{?WC?',C.COLUMN_ID')};
ZZZZ010541	37380	COPY=ADD10
ZZZZ010541	37390	=SQL{?WC?',CAST(C.COLUMN_NAME AS MCHAR(30))')};
ZZZZ010541	37400	COPY=ADD10
ZZZZ010541	37410	=SQL{?WC?',CAST(CASE C.DATA_TYPE')};
ZZZZ010541	37420	COPY=ADD10
ZZZZ010541	37430	=SQL{?WC?' WHEN ''MCHAR'' THEN ''NCHAR''')};
ZZZZ010541	37440	COPY=ADD10
ZZZZ010541	37450	=SQL{?WC?' WHEN ''MVARCHAR'' THEN ''NVARCHAR''')};
ZZZZ010541	37460	COPY=ADD10
ZZZZ010541	37470	=SQL{?WC?' WHEN ''TIMESTAMP'' THEN ''DATETIME'' ')};
ZZZZ010541	37480	COPY=ADD10
ZZZZ010541	37490	=SQL{?WC?' WHEN ''INTEGER'' THEN ''INT''')};
ZZZZ010541	37500	COPY=ADD10
ZZZZ010541	37510	=SQL{?WC?' WHEN ''SMALLINT'' THEN ''INT''')};
ZZZZ010541	37520	COPY=ADD10
ZZZZ010541	37530	=SQL{?WC?' ELSE C.DATA_TYPE END AS CHAR(9))')};
ZZZZ010541	37540	COPY=ADD10
ZZZZ010541	37550	=SQL{?WC?',CAST(CASE C.DATA_TYPE')};
ZZZZ010541	37560	COPY=ADD10
ZZZZ010541	37570	=SQL{?WC?' WHEN ''DECIMAL'' THEN ')};
ZZZZ010541	37580	COPY=ADD10
ZZZZ010541	37590	=SQL{?WC?' SUBSTR(C.DATA_LENGTH,2,2)')};
ZZZZ010541	37600	COPY=ADD10
ZZZZ010541	37610	=SQL{?WC?' WHEN ''FLOAT'' THEN ''9'' ')};
ZZZZ010541	37620	COPY=ADD10
ZZZZ010541	37630	=SQL{?WC?' WHEN ''INTEGER'' THEN ''9''')};
ZZZZ010541	37640	COPY=ADD10
ZZZZ010541	37650	=SQL{?WC?' WHEN ''SMALLINT'' THEN ''9''')};
ZZZZ010541	37660	COPY=ADD10
ZZZZ010541	37670	=SQL{?WC?' WHEN ''TIMESTAMP'' THEN ''17''')};
ZZZZ010541	37680	COPY=ADD10
ZZZZ010541	37690	=SQL{?WC?' WHEN ''DATE'' THEN ''8''')};
ZZZZ010541	37700	COPY=ADD10
ZZZZ010541	37710	=SQL{?WC?' ELSE C.DATA_LENGTH END AS INT)')};
ZZZZ010541	37720	COPY=ADD10
ZZZZ010541	37730	=SQL{?WC?',CAST(CASE C.DATA_TYPE')};
ZZZZ010541	37740	COPY=ADD10
ZZZZ010541	37750	=SQL{?WC?' WHEN ''DECIMAL'' THEN ')};
ZZZZ010541	37760	COPY=ADD10
ZZZZ010541	37770	=SQL{?WC?' SUBSTR(C.DATA_LENGTH,5,2)')};
ZZZZ010541	37780	COPY=ADD10
ZZZZ010541	37790	=SQL{?WC?' ELSE ''0'' END AS INT)')};
ZZZZ010541	37800	COPY=ADD10
ZZZZ010541	37810	=SQL{?WC?',CAST(C.DEFAULT_VALUE AS CHAR(30))')};
ZZZZ010541	37820	COPY=ADD10
ZZZZ010541	37830	=SQL{?WC?',CAST(CASE C.IS_NULLABLE')};
ZZZZ010541	37840	COPY=ADD10
ZZZZ010541	37850	=SQL{?WC?' WHEN ''NO'' THEN ''0''')};
ZZZZ010541	37860	COPY=ADD10
ZZZZ010541	37870	=SQL{?WC?' ELSE ''1'' END AS CHAR(1))')};
ZZZZ010541	37880	COPY=ADD10
ZZZZ010541	37890	=SQL{?WC?' FROM MASTER.SQL_COLUMNS C ')};
ZZZZ010541	37900	COPY=ADD10
ZZZZ010541	37910	=SQL{?WC?' LEFT JOIN MASTER.SQL_TABLES T ')};
ZZZZ010541	37920	COPY=ADD10
ZZZZ010541	37930	=SQL{?WC?' ON C.TABLE_SCHEMA=T.TABLE_SCHEMA')};
ZZZZ010541	37940	COPY=ADD10
ZZZZ010541	37950	=SQL{?WC?' AND C.TABLE_NAME=T.TABLE_NAME ')};
ZZZZ010541	37960	COPY=ADD10
ZZZZ010541	37970	=SQL{?WC?' WHERE C.TABLE_SCHEMA IN')};
ZZZZ010541	37980	COPY=ADD10
ZZZZ010541	37990	=SQL{?WC?'(?WC.H_OWNER?)')};
ZZZZ010541	38000	*****( INDEX_VIEW )******************************************
ZZZZ010541	38010	NAME=H_INDEX_VIEW
ZZZZ010541	38020	=SET{WC.I=WC.INSERT+'''H'','};
ZZZZ010541	38030	COPY=ADD10
ZZZZ010541	38040	=SQL{?WC?'(SYSTEM_REAL,SYSTEM_WORK,SYSTEM_USER_X')};
ZZZZ010541	38050	COPY=ADD10
ZZZZ010541	38060	=SQL{?WC?',SYSTEM_NAME,SYSTEM_DATA_NAME')};
ZZZZ010541	38070	COPY=ADD10
ZZZZ010541	38080	=SQL{?WC?',SYSTEM_IX,SYSTEM_NO)AS SELECT')};
ZZZZ010541	38090	COPY=ADD10
ZZZZ010541	38100	=SQL{?WC?' CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	38110	COPY=ADD10
ZZZZ010541	38120	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	38130	COPY=ADD10
ZZZZ010541	38140	=SQL{?WC?',CAST(SUBSTR(C.TABLE_SCHEMA')};
ZZZZ010541	38150	COPY=ADD10
ZZZZ010541	38160	=SQL{?WC?',LENGTH(C.TABLE_SCHEMA)-4,1) AS CHAR(1))')};
ZZZZ010541	38170	COPY=ADD10
ZZZZ010541	38180	=SQL{?WC?',CAST(C.TABLE_NAME AS MCHAR(30))')};
ZZZZ010541	38190	COPY=ADD10
ZZZZ010541	38200	=SQL{?WC?',CAST(C.COLUMN_NAME AS MCHAR(30))')};
ZZZZ010541	38210	COPY=ADD10
ZZZZ010541	38220	=SQL{?WC?',CAST(CASE SUBSTR(I.INDEX_NAME')};
ZZZZ010541	38230	COPY=ADD10
ZZZZ010541	38240	=SQL{?WC?',LENGTH(I.INDEX_NAME),1) ')};
ZZZZ010541	38250	COPY=ADD10
ZZZZ010541	38260	=SQL{?WC?' WHEN '')'' THEN ''0'' ELSE ')};
ZZZZ010541	38270	COPY=ADD10
ZZZZ010541	38280	=SQL{?WC?' SUBSTR(I.INDEX_NAME')};
ZZZZ010541	38290	COPY=ADD10
ZZZZ010541	38300	=SQL{?WC?',LENGTH(I.INDEX_NAME),1) END AS CHAR(1))')};
ZZZZ010541	38310	COPY=ADD10
ZZZZ010541	38320	=SQL{?WC?',CAST(C.INDEX_ORDER-CASE I.UNIQUE_TYPE')};
ZZZZ010541	38330	COPY=ADD10
ZZZZ010541	38340	=SQL{?WC?' WHEN ''U'' THEN 1')};
ZZZZ010541	38350	COPY=ADD10
ZZZZ010541	38360	=SQL{?WC?' ELSE 0 END AS INT)')};
ZZZZ010541	38370	COPY=ADD10
ZZZZ010541	38380	=SQL{?WC?' FROM MASTER.SQL_INDEX_COLINF C ')};
ZZZZ010541	38390	COPY=ADD10
ZZZZ010541	38400	=SQL{?WC?' INNER JOIN MASTER.SQL_INDEXES I')};
ZZZZ010541	38410	COPY=ADD10
ZZZZ010541	38420	=SQL{?WC?' ON C.TABLE_SCHEMA=I.TABLE_SCHEMA')};
ZZZZ010541	38430	COPY=ADD10
ZZZZ010541	38440	=SQL{?WC?' AND C.TABLE_NAME=I.TABLE_NAME')};
ZZZZ010541	38450	COPY=ADD10
ZZZZ010541	38460	=SQL{?WC?' AND C.INDEX_NAME=I.INDEX_NAME')};
ZZZZ010541	38470	COPY=ADD10
ZZZZ010541	38480	=SQL{?WC?' WHERE C.TABLE_SCHEMA IN')};
ZZZZ010541	38490	COPY=ADD10
ZZZZ010541	38500	=SQL{?WC?'(?WC.H_OWNER?)')};
ZZZZ010541	38510	*****( GRANT_VIEW )******************************************
ZZZZ010541	38520	NAME=H_GRANT_VIEW
ZZZZ010541	38530	=SET{WC.I=WC.INSERT+'''H'','};
ZZZZ010541	38540	COPY=ADD10
ZZZZ010541	38550	=SQL{?WC?'(SYSTEM_KIND,SYSTEM_REAL,SYSTEM_WORK')};
ZZZZ010541	38560	COPY=ADD10
ZZZZ010541	38570	=SQL{?WC?',SYSTEM_USER_X,SYSTEM_NAME,SYSTEM_GRANT')};
ZZZZ010541	38580	COPY=ADD10
ZZZZ010541	38590	=SQL{?WC?',SYSTEM_SELECT,SYSTEM_INSERT')};
ZZZZ010541	38600	COPY=ADD10
ZZZZ010541	38610	=SQL{?WC?',SYSTEM_UPDATE,SYSTEM_DELETE')};
ZZZZ010541	38620	COPY=ADD10
ZZZZ010541	38630	=SQL{?WC?',SYSTEM_EXECUTE)AS SELECT')};
ZZZZ010541	38640	COPY=ADD10
ZZZZ010541	38650	=SQL{?WC?' CAST(''TABLE'' AS CHAR(5))')};
ZZZZ010541	38660	COPY=ADD10
ZZZZ010541	38670	=SQL{?WC?',CAST(''?_Q?_REAL_TEST?_Q?'' AS CHAR(4))')};
ZZZZ010541	38680	COPY=ADD10
ZZZZ010541	38690	=SQL{?WC?',CAST(''?WC.MAST_WORK?'' AS CHAR(4))')};
ZZZZ010541	38700	COPY=ADD10
ZZZZ010541	38710	=SQL{?WC?',CAST(SUBSTR(TABLE_SCHEMA')};
ZZZZ010541	38720	COPY=ADD10
ZZZZ010541	38730	=SQL{?WC?',LENGTH(TABLE_SCHEMA)-4,1) AS CHAR(1))')};
ZZZZ010541	38740	COPY=ADD10
ZZZZ010541	38750	=SQL{?WC?',CAST(TABLE_NAME AS MCHAR(30))')};
ZZZZ010541	38760	COPY=ADD10
ZZZZ010541	38770	=SQL{?WC?',CAST(CASE GRANTEE')};
ZZZZ010541	38780	COPY=ADD10
ZZZZ010541	38790	=SQL{?WC?' WHEN ''PUBLIC'' THEN GRANTEE ELSE')};
ZZZZ010541	38800	COPY=ADD10
ZZZZ010541	38810	=SQL{?WC?' SUBSTR(GRANTEE,4,1)||''_''')};
ZZZZ010541	38820	COPY=ADD10
ZZZZ010541	38830	=SQL{?WC?'||SUBSTR(GRANTEE,5,4)  END AS CHAR(6))')};
ZZZZ010541	38840	COPY=ADD10
ZZZZ010541	38850	=SQL{?WC?',CAST(CASE SELECT_PRIVILEGE')};
ZZZZ010541	38860	COPY=ADD10
ZZZZ010541	38870	=SQL{?WC?' WHEN ''Y'' THEN ''S''')};
ZZZZ010541	38880	COPY=ADD10
ZZZZ010541	38890	=SQL{?WC?' ELSE '' '' END AS CHAR(1))')};
ZZZZ010541	38900	COPY=ADD10
ZZZZ010541	38910	=SQL{?WC?',CAST(CASE INSERT_PRIVILEGE')};
ZZZZ010541	38920	COPY=ADD10
ZZZZ010541	38930	=SQL{?WC?' WHEN ''Y'' THEN ''I''')};
ZZZZ010541	38940	COPY=ADD10
ZZZZ010541	38950	=SQL{?WC?' ELSE '' '' END AS CHAR(1))')};
ZZZZ010541	38960	COPY=ADD10
ZZZZ010541	38970	=SQL{?WC?',CAST(CASE UPDATE_PRIVILEGE')};
ZZZZ010541	38980	COPY=ADD10
ZZZZ010541	38990	=SQL{?WC?' WHEN ''Y'' THEN ''U''')};
ZZZZ010541	39000	COPY=ADD10
ZZZZ010541	39010	=SQL{?WC?' ELSE '' '' END AS CHAR(1))')};
ZZZZ010541	39020	COPY=ADD10
ZZZZ010541	39030	=SQL{?WC?',CAST(CASE DELETE_PRIVILEGE')};
ZZZZ010541	39040	COPY=ADD10
ZZZZ010541	39050	=SQL{?WC?' WHEN ''Y'' THEN ''D''')};
ZZZZ010541	39060	COPY=ADD10
ZZZZ010541	39070	=SQL{?WC?' ELSE '' '' END AS CHAR(1))')};
ZZZZ010541	39080	COPY=ADD10
ZZZZ010541	39090	=SQL{?WC?',CAST('' '' AS CHAR(1))')};
ZZZZ010541	39100	COPY=ADD10
ZZZZ010541	39110	=SQL{?WC?' FROM MASTER.SQL_TABLE_PRIVILEGES ')};
ZZZZ010541	39120	COPY=ADD10
ZZZZ010541	39130	=SQL{?WC?' WHERE TABLE_SCHEMA IN')};
ZZZZ010541	39140	COPY=ADD10
ZZZZ010541	39150	=SQL{?WC?'(?WC.H_OWNER?)')};
ZZZZ010541	39160	COPY=ADD10
ZZZZ010541	39170	=SQL{?WC?' AND (SUBSTR(TABLE_SCHEMA,1,3)')};
ZZZZ010541	39180	COPY=ADD10
ZZZZ010541	39190	=SQL{?WC?'=SUBSTR(GRANTEE,1,3)')};
ZZZZ010541	39200	COPY=ADD10
ZZZZ010541	39210	=SQL{?WC?' OR GRANTEE=''PUBLIC'') ')};
ZZZZ010541	39220	NAME=
ZZZZ010541	39230	***********************
ZZZZ010541	39240	=SET{_REAL_TEST='REAL'};
ZZZZ010541	39250	=H_SKIP:
ZZZZ010541	39260	O+=IF{_DB_SOFT/'O21'}WRITE_OPEN{W,ORACLE_GRANT_VIEW.SQL,OT}
ZZZZ010541	39270	O+=  WRITE{W,'ALTER SESSION SET CONTAINER = ?_INSTANCE?;'};
ZZZZ010541	39280	=MESSAGE{CREATE TABLE};
ZZZZ010541	39290	=SET{WN.OBJECT_TABLE='?_MP_REAL_ZZZZ?ZZ_I_OBJECT_TABLE'};
ZZZZ010541	39300	=SQL_REPEAT{WC.PERMISSION}
ZZZZ010541	39310	={SELECT SYSTEM_KEY2 FROM ?_MP_REAL_ZZZZ?ZZ_ETC_TABLE
ZZZZ010541	39320	=  WHERE SYSTEM_KEY1='ZZZZZZ_PERMISSION'
ZZZZ010541	39330	= AND Z_CANCEL=' ' ORDER BY 1 DESC};
ZZZZ010541	39340	=SET{W0.PER_COUNT=1,W0.VC=1,W0.PER_MAX=_SQL_REPEAT_COUNT};
ZZZZ010541	39350	=VIEW_PER_LOOP:
ZZZZ010541	39360	=SET{WC.PER=WC.PERMISSION?W0.PER_COUNT?
ZZZZ010541	39370	=   ,WC.PER_L=WC.PER@LOWER};
ZZZZ010541	39380	=MESSAGE{CREATE VIEW};
ZZZZ010541	39390	REPEAT2=2 (M,W)
ZZZZ010541	39400	=SET{_LOWER='I_',WC.I_L=_LOWER};
ZZZZ010541	39410	=SET{WC.M_DB='?_Q?_DB_HEADER?_Q?_?WC.M_W$$?_?WC.PER?'};
ZZZZ010541	39420	=SET{WC.I_DB=WC.M_DB,WC.P_DB=WC.M_DB,WC.L_DB=WC.M_DB};
ZZZZ010541	39430	=SET{WC.H_DB='?_Q?_DB_HEADER?_Q??WC.M_W$$??WC.PER?'};
ZZZZ010541	39440	=SET{WC.D_DB='?_Q?_DB_HEADER?_Q??WC.M_W$$??WC.PER?'};
ZZZZ010541	39450	$1+=SET{WC.MAST_WORK='MAST'};
ZZZZ010541	39460	$2+=SET{WC.MAST_WORK='WORK'};
ZZZZ010541	39470	$1+=SET{WC.O_OWNER='''?_Q?_DB_HEADER?_Q?_D_?WC.PER?'''};
ZZZZ010541	39480	$2+=SET{WC.O_OWNER='''?_Q?_DB_HEADER?_Q?_I_?WC.PER?'''
ZZZZ010541	39490	$2+=            +',''?_Q?_DB_HEADER?_Q?_O_?WC.PER?'''};
ZZZZ010541	39500	$1+=SET{WC.H_OWNER='''?_Q?_DB_HEADER?_Q?D?WC.PER?'''};
ZZZZ010541	39510	$2+=SET{WC.H_OWNER='''?_Q?_DB_HEADER?_Q?I?WC.PER?'''
ZZZZ010541	39520	$2+=            +',''?_Q?_DB_HEADER?_Q?O?WC.PER?'''};
ZZZZ010541	39530	$1+=SET{WC.P_OWNER1=
ZZZZ010541	39540	$1+=' IN(LOWER(''?_Q?_DB_HEADER?_Q?_D_?WC.PER?''))'};
ZZZZ010541	39550	$1+=SET{WC.P_OWNER2=};
ZZZZ010541	39560	$2+=SET{WC.P_OWNER1=
ZZZZ010541	39570	$2+=' IN(LOWER(''?_Q?_DB_HEADER?_Q?_I_?WC.PER?'')'};
ZZZZ010541	39580	$2+=SET{WC.P_OWNER2=
ZZZZ010541	39590	$2+=   ',LOWER(''?_Q?_DB_HEADER?_Q?_O_?WC.PER?''))'};
ZZZZ010541	39600	$1+=SET{WC.D_OWNER1='?_Q?_DB_HEADER?_Q?D?WC.PER?'};
ZZZZ010541	39610	$1+=SET{WC.D_OWNER2='?_Q?_DB_HEADER?_Q?D?WC.PER?'};
ZZZZ010541	39620	$2+=SET{WC.D_OWNER1='?_Q?_DB_HEADER?_Q?I?WC.PER?'};
ZZZZ010541	39630	$2+=SET{WC.D_OWNER2='?_Q?_DB_HEADER?_Q?O?WC.PER?'};
ZZZZ010541	39640	=IF{_JOB!='ZZZZ000000'}IF{WC.PER='ZZZZ'}
ZZZZ010541	39650	=        JUMP{ZZZ_OBJECT_COLUMN_INDEX_SKIP};
ZZZZ010541	39660	=SET{WC.VIEW?W0.VC?
ZZZZ010541	39670	=   ='ZZZZZZ_?WC.M_W$$?_?WC.PER?_OBJECT_VIEW'};
ZZZZ010541	39680	NAME=VIEW_BEGIN##$$
ZZZZ010541	39690	=SET{W0=0};
ZZZZ010541	39700	=SET{WN.SYSTEM_NAME=WC.VIEW?W0.VC?};COMPUTE{W0.VC+=1};
ZZZZ010541	39710	=DBO_SQL{DELETE FROM ?WN.OBJECT_TABLE? WHERE
ZZZZ010541	39720	= ?_VRE&WN.SYSTEM_NAME?};
ZZZZ010541	39730	=SET{WC.INSERT='INSERT INTO ?WN.OBJECT_TABLE?'
ZZZZ010541	39740	=+'(?_Z_INSERT_NAME?,SYSTEM_KIND,SYSTEM_NAME'
ZZZZ010541	39750	=+',SYSTEM_SIGN,SYSTEM_COM,SYSTEM_SEQ'
ZZZZ010541	39760	=+',SYSTEM_OBJECT)VALUES(?_Z_INSERT_VALUE?,''VIEW'''
ZZZZ010541	39770	=+',?_N?''?WN.SYSTEM_NAME?'',''+'','};
ZZZZ010541	39780	NAME=
ZZZZ010541	39790	*****COPY=D_OBJECT_VIEW
ZZZZ010541	39800	*****COPY=H_OBJECT_VIEW
ZZZZ010541	39810	COPY=I_OBJECT_VIEW
ZZZZ010541	39820	COPY=L_OBJECT_VIEW
ZZZZ010541	39830	COPY=M_OBJECT_VIEW
ZZZZ010541	39840	COPY=O_OBJECT_VIEW
ZZZZ010541	39850	COPY=P_OBJECT_VIEW
ZZZZ010541	39860	NAME=CREATE_VIEW##$$
ZZZZ010541	39870	=SET{WN.OBJECTS=};
ZZZZ010541	39880	=SQL1{SELECT SYSTEM_OBJECT FROM
ZZZZ010541	39890	= ?_MP_ZZZZ?ZZ_I_OBJECT_TABLE
ZZZZ010541	39900	= WHERE SYSTEM_KIND='VIEW'
ZZZZ010541	39910	= AND SYSTEM_NAME='?WN.SYSTEM_NAME?'
ZZZZ010541	39920	= AND(SYSTEM_COM=' '
ZZZZ010541	39930	= OR SYSTEM_COM='?_DB?' AND SYSTEM_SIGN='+'
ZZZZ010541	39940	= OR SYSTEM_COM NOT IN(' ','*','?_DB?')
ZZZZ010541	39950	= AND SYSTEM_SIGN='-')
ZZZZ010541	39960	= AND Z_CANCEL=' ' ORDER BY SYSTEM_SEQ};
ZZZZ010541	39970	=SQL1_NEXT{WN.OBJECT}
ZZZZ010541	39980	=   ERROR{VIEW(?WN.SYSTEM_NAME?)NOT FOUND};
ZZZZ010541	39990	=LOOP:SET{WN.OBJECTS+=WN.OBJECT};
ZZZZ010541	40000	=SQL1_NEXT{WN.OBJECT}JUMP{FIN};BACK{LOOP};
ZZZZ010541	40010	=FIN:IF_ERROR_SET{_EDIT=WN.OBJECTS,WN.OBJECTS_REAL=_EDIT}
ZZZZ010541	40020	=  ERROR{VIEW(?WN.SYSTEM_NAME?)?_ERROR?};
ZZZZ010541	40030	=SET{_REAL_TEST='TEST'};
ZZZZ010541	40040	=IF_ERROR_SET{_EDIT=WN.OBJECTS,WN.OBJECTS_TEST=_EDIT}
ZZZZ010541	40050	=  ERROR{VIEW(?WN.SYSTEM_NAME?)?_ERROR?};
ZZZZ010541	40060	=SET{_REAL_TEST='REAL'};
ZZZZ010541	40070	=SET{WC.XX=_MX_REAL_ZZZZ};
ZZZZ010541	40080	***P+=SQL{BEGIN TRANSACTION};
ZZZZ010541	40090	=DBO_DROP_OBJECT{?WC.XX??WN.SYSTEM_NAME?}{VIEW};
ZZZZ010541	40100	***P+=SQL{COMMIT TRANSACTION};
ZZZZ010541	40110	=IF_ERROR_DBO_CREATE_OBJECT{?WC.XX??WN.SYSTEM_NAME?,VIEW,
ZZZZ010541	40120	=   ?WN.OBJECTS_REAL?}ERROR{};
ZZZZ010541	40130	=IF_NOT{_DB_SOFT/'O21'}
ZZZZ010541	40140	=  DBO_GRANT{?WC.XX??WN.SYSTEM_NAME?,SELECT,PUBLIC};
ZZZZ010541	40150	O+=IF{_DB_SOFT/'O21'}WRITE{W,
ZZZZ010541	40160	O+= 'GRANT SELECT ON ?WC.XX??WN.SYSTEM_NAME? TO PUBLIC;'};
ZZZZ010541	40170	D-=SET{_REAL_TEST='TEST'};
ZZZZ010541	40180	=SET{WC.XX=_MX_TEST_ZZZZ};
ZZZZ010541	40190	***P+=SQL{BEGIN TRANSACTION};
ZZZZ010541	40200	=DBO_DROP_OBJECT{?WC.XX??WN.SYSTEM_NAME?}{VIEW};
ZZZZ010541	40210	***P+=SQL{COMMIT TRANSACTION};
ZZZZ010541	40220	=IF_ERROR_DBO_CREATE_OBJECT{?WC.XX??WN.SYSTEM_NAME?,VIEW,
ZZZZ010541	40230	=   ?WN.OBJECTS_TEST?}ERROR{};
ZZZZ010541	40240	I+=SET{_REAL_TEST='REAL'};
ZZZZ010541	40250	=IF_NOT{_DB_SOFT/'O21'}
ZZZZ010541	40260	=  DBO_GRANT{?WC.XX??WN.SYSTEM_NAME?,SELECT,PUBLIC};
ZZZZ010541	40270	O+=IF{_DB_SOFT/'O21'}WRITE{W,
ZZZZ010541	40280	O+= 'GRANT SELECT ON ?WC.XX??WN.SYSTEM_NAME? TO PUBLIC;'};
ZZZZ010541	40290	=SET{_REAL_TEST='REAL'};
ZZZZ010541	40300	NAME=
ZZZZ010541	40310	=SET{WC.VIEW?W0.VC?
ZZZZ010541	40320	=   ='ZZZZZZ_?WC.M_W$$?_?WC.PER?_COLUMN_VIEW'};
ZZZZ010541	40330	COPY=VIEW_BEGIN##$$
ZZZZ010541	40340	*****COPY=D_COLUMN_VIEW
ZZZZ010541	40350	*****COPY=H_COLUMN_VIEW
ZZZZ010541	40360	COPY=I_COLUMN_VIEW
ZZZZ010541	40370	COPY=L_COLUMN_VIEW
ZZZZ010541	40380	COPY=M_COLUMN_VIEW
ZZZZ010541	40390	COPY=O_COLUMN_VIEW
ZZZZ010541	40400	COPY=P_COLUMN_VIEW
ZZZZ010541	40410	COPY=CREATE_VIEW##$$
ZZZZ010541	40420	=SET{WC.VIEW?W0.VC?
ZZZZ010541	40430	=   ='ZZZZZZ_?WC.M_W$$?_?WC.PER?_INDEX_VIEW'};
ZZZZ010541	40440	COPY=VIEW_BEGIN##$$
ZZZZ010541	40450	*****COPY=D_INDEX_VIEW
ZZZZ010541	40460	*****COPY=H_INDEX_VIEW
ZZZZ010541	40470	COPY=I_INDEX_VIEW
ZZZZ010541	40480	COPY=L_INDEX_VIEW
ZZZZ010541	40490	COPY=M_INDEX_VIEW
ZZZZ010541	40500	COPY=O_INDEX_VIEW
ZZZZ010541	40510	COPY=P_INDEX_VIEW
ZZZZ010541	40520	COPY=CREATE_VIEW##$$
ZZZZ010541	40530	=ZZZ_OBJECT_COLUMN_INDEX_SKIP:
ZZZZ010541	40540	=SET{WC.VIEW?W0.VC?
ZZZZ010541	40550	=   ='ZZZZZZ_?WC.M_W$$?_?WC.PER?_GRANT_VIEW'};
ZZZZ010541	40560	COPY=VIEW_BEGIN##$$
ZZZZ010541	40570	*****COPY=D_GRANT_VIEW
ZZZZ010541	40580	*****COPY=H_GRANT_VIEW
ZZZZ010541	40590	COPY=I_GRANT_VIEW
ZZZZ010541	40600	COPY=L_GRANT_VIEW
ZZZZ010541	40610	COPY=M_GRANT_VIEW
ZZZZ010541	40620	COPY=O_GRANT_VIEW
ZZZZ010541	40630	COPY=P_GRANT_VIEW
ZZZZ010541	40640	COPY=CREATE_VIEW##$$
ZZZZ010541	40650	REPEAT2=
ZZZZ010541	40660	=COMPUTE{W0.PER_COUNT+=1};
ZZZZ010541	40670	=IF{W0.PER_COUNT<=W0.PER_MAX}BACK{VIEW_PER_LOOP};
ZZZZ010541	40680	O+=IF{_DB_SOFT/'O21'}WRITE{W,'EXIT'}WRITE_CLOSE{W}
ZZZZ010541	40690	O+= COMMAND{
ZZZZ010541	40700	O+= ?_L(SQLPLUS)? / AS SYSDBA @?_TMP?ORACLE_GRANT_VIEW.SQL};
ZZZZ010541	40710	=TEST_VIEW_SKIP:
ZZZZ010542	110	L+=MESSAGE{GRANT SELECT ON ... TO PUBLIC};
ZZZZ010542	200	L+=SET{_REAL_TEST='REAL'};
ZZZZ010542	300	L+NAME=GRANT_VIEW
ZZZZ010542	310	L+REPEAT=2 (WC.M_W##)
ZZZZ010542	400	L+=SET{W0.PER_COUNT=1};
ZZZZ010542	402	L+=GRANT_VIEWN.LOOP:
ZZZZ010542	410	L+=SET{WC.PER=WC.PERMISSION?W0.PER_COUNT?};
ZZZZ010542	600	L+=SET{WN.M= _M+'ZZ_?WC.M_W##?_?WC.PER?'};
ZZZZ010542	1400	L+=SET{WN.MWX=_?WC.M_W##?X_?WC.PER?};
ZZZZ010542	1500	L+=SQL1{SELECT G.SYSTEM_NAME,G.SYSTEM_KIND
ZZZZ010542	1502	L+=   FROM ?WN.M?_GRANT_VIEW G,
ZZZZ010542	1510	L+=   ?WN.M?_OBJECT_VIEW O WHERE G.SYSTEM_NAME=O.SYSTEM_NAME
ZZZZ010542	1610	L+=  AND G.SYSTEM_KIND=O.SYSTEM_KIND
ZZZZ010542	1612	L+=  AND SYSTEM_GRANT='PUBLIC' ORDER BY 1};
ZZZZ010542	1700	L+=SQL1_NEXT:SQL1_NEXT{WN.NAME,WN.SYSTEM_KIND}JUMP{SQL1_END};
ZZZZ010542	1800	L+=DBO_GRANT{?WN.MWX??WN.NAME?,?WN.SYSTEM_KIND?,PUBLIC};
ZZZZ010542	1900	L+=BACK{SQL1_NEXT};
ZZZZ010542	2000	L+=SQL1_END:
ZZZZ010542	2010	L+=COMPUTE{W0.PER_COUNT+=1};
ZZZZ010542	2100	L+=IF{W0.PER_COUNT<=W0.PER_MAX}BACK{GRANT_VIEWN.LOOP};
ZZZZ010542	2110	L+REPEAT=
ZZZZ010542	2200	L+NAME=
ZZZZ010542	2300	L+=SET{_REAL_TEST='TEST'};
ZZZZ010542	2500	L+COPY=GRANT_VIEW
ZZZZ010542	2600	L+=SET{_REAL_TEST='REAL'};
ZZZZ010542	2700	=EXIT{_END};
ZZZZ010542	2800	****( CANCEL )***********************************************
ZZZZ010542	2900	=CANCEL_STEP:
ZZZZ010542	3000	M+=MESSAGE{EXEC SP_DROPUSER};
ZZZZ010542	3100	M+=B:
ZZZZ010542	3200	M+REPEAT=3  (WC.RTT##;WC.RRT##)
ZZZZ010542	3300	M+=SET{W0.REPEAT2CNT=0};
ZZZZ010542	3400	M+REPEAT2=$W0.PERMISSION   (WC.PER(ALL))
ZZZZ010542	3500	M+=COMPUTE{W0.REPEAT2CNT+=1};
ZZZZ010542	3600	M+=SET{WC.PER_ALL=WC.PER?W0.REPEAT2CNT?};
ZZZZ010542	3700	M+=IF_ERROR_LOGIN_SQL{USE ?WC.IS??WC.RTT##?_M_?WC.PER_ALL?
ZZZZ010542	3800	M+=   EXEC SP_DROPUSER '?WC.IS??WC.RRT##?_D_?WC.PER?'}
ZZZZ010542	3900	M+=   IF{_DB_I_ERROR!='NOT_EXIST'}ERROR{};
ZZZZ010542	4000	M+=IF_ERROR_LOGIN_SQL{USE ?WC.IS??WC.RTT##?_W_?WC.PER_ALL?
ZZZZ010542	4100	M+=   EXEC SP_DROPUSER '?WC.IS??WC.RRT##?_D_?WC.PER?'}
ZZZZ010542	4200	M+=   IF{_DB_I_ERROR!='NOT_EXIST'}ERROR{};
ZZZZ010542	4300	M+=IF_ERROR_LOGIN_SQL{USE ?WC.IS??WC.RTT##?_M_?WC.PER_ALL?
ZZZZ010542	4400	M+=   EXEC SP_DROPUSER '?WC.IS??WC.RRT##?_I_?WC.PER?'}
ZZZZ010542	4500	M+=   IF{_DB_I_ERROR!='NOT_EXIST'}ERROR{};
ZZZZ010542	4600	M+=IF_ERROR_LOGIN_SQL{USE ?WC.IS??WC.RTT##?_W_?WC.PER_ALL?
ZZZZ010542	4700	M+=   EXEC SP_DROPUSER '?WC.IS??WC.RRT##?_I_?WC.PER?'}
ZZZZ010542	4800	M+=   IF{_DB_I_ERROR!='NOT_EXIST'}ERROR{};
ZZZZ010542	4900	M+=IF_ERROR_LOGIN_SQL{USE ?WC.IS??WC.RTT##?_M_?WC.PER_ALL?
ZZZZ010542	5000	M+=   EXEC SP_DROPUSER '?WC.IS??WC.RRT##?_O_?WC.PER?'}
ZZZZ010542	5100	M+=   IF{_DB_I_ERROR!='NOT_EXIST'}ERROR{};
ZZZZ010542	5200	M+=IF_ERROR_LOGIN_SQL{USE ?WC.IS??WC.RTT##?_W_?WC.PER_ALL?
ZZZZ010542	5300	M+=   EXEC SP_DROPUSER '?WC.IS??WC.RRT##?_O_?WC.PER?'}
ZZZZ010542	5400	M+=   IF{_DB_I_ERROR!='NOT_EXIST'}ERROR{};
ZZZZ010542	5500	M+=IF_ERROR_LOGIN_SQL{USE ?WC.IS??WC.RTT##?_M_?WC.PER_ALL?
ZZZZ010542	5600	M+=   EXEC SP_DROPUSER '?WC.IS??WC.RRT##?_L_?WC.PER?'}
ZZZZ010542	5700	M+=   IF{_DB_I_ERROR!='NOT_EXIST'}ERROR{};
ZZZZ010542	5800	M+=IF_ERROR_LOGIN_SQL{USE ?WC.IS??WC.RTT##?_W_?WC.PER_ALL?
ZZZZ010542	5900	M+=   EXEC SP_DROPUSER '?WC.IS??WC.RRT##?_L_?WC.PER?'}
ZZZZ010542	6000	M+=   IF{_DB_I_ERROR!='NOT_EXIST'}ERROR{};
ZZZZ010542	6100	M+REPEAT=
ZZZZ010542	6200	=MESSAGE{DROP VIEW};
ZZZZ010542	6300	=SET{WN.V1='OBJECT',WN.V2='COLUMN'
ZZZZ010542	6310	=   ,WN.V3='INDEX',WN.V4='GRANT'};
ZZZZ010542	6400	=SET{WN.REAL_TEST='REAL',_REAL_TEST='REAL'};
ZZZZ010542	6500	NAME=DROP_VIEW
ZZZZ010542	6600	=SET{WN.M=_M_?WN.REAL_TEST?+'ZZ'};
ZZZZ010542	6700	REPEAT=2 (WC.M_W##)
ZZZZ010542	6800	REPEAT2=4 (WN.V$$)
ZZZZ010542	6900	=DBO_DROP_OBJECT{?WN.M?_?WC.M_W##?_?WC.PER?_?WN.V$$?_VIEW}
ZZZZ010542	6910	=   {VIEW};
ZZZZ010542	7000	REPEAT=
ZZZZ010542	7100	NAME=
ZZZZ010542	7200	=SET{WN.REAL_TEST='TEST'};
ZZZZ010542	7300	I-D-=SET{_REAL_TEST='TEST'};
ZZZZ010542	7400	COPY=DROP_VIEW
ZZZZ010542	7500	=SET{WN.REAL_TEST='REAL',_REAL_TEST='REAL'};
ZZZZ010542	7600	*+=COMMAND{@ECHO ON&
ZZZZ010542	7700	*(1=REAL,MAST,2=REAL,WORK,3=TEST,MAST,4=TEST,WORK)
ZZZZ010542	7800	M+=MESSAGE{DROP DATABASE};
ZZZZ010542	7900	M-=MESSAGE{DROP SCHEMA};
ZZZZ010542	8000	REPEAT=4 (WC.##)
ZZZZ010542	8100	M+=IF_ERROR_LOGIN_SQL{DROP DATABASE ?WC.IS??WC.##?_?WC.PER?}
ZZZZ010542	8200	M+=   IF{_DB_I_ERROR!='NOT_EXIST'}ERROR{};
ZZZZ010542	8300	M+=IF_ERROR_LOGIN_SQL{EXEC SP_DROPDEVICE
ZZZZ010542	8310	M+=   '?WC.IS??WC.##?_?WC.PER?_DAT'
ZZZZ010542	8400	M+=   ,'DELFILE'}IF{_DB_I_ERROR!='NOT_EXIST'}ERROR{};
ZZZZ010542	8500	M+=IF_ERROR_LOGIN_SQL{EXEC SP_DROPDEVICE
ZZZZ010542	8510	M+=   '?WC.IS??WC.##?_?WC.PER?_LOG'
ZZZZ010542	8600	M+=   ,'DELFILE'}IF{_DB_I_ERROR!='NOT_EXIST'}ERROR{};
ZZZZ010542	8700	P+|I+|L+=IF_ERROR_LOGIN_SQL{DROP SCHEMA
ZZZZ010542	8710	P+|I+|L+=   ?WC.IS??WC.##?_?WC.PER?
ZZZZ010542	8800	I+=RESTRICT
ZZZZ010542	8900	P+|I+|L+=  }IF{_DB_I_ERROR!='NOT_EXIST'}ERROR{};
ZZZZ010542	9000	O+=IF_ERROR_LOGIN_SQL{DROP TABLESPACE
ZZZZ010542	9010	O+=   ?WC.IS??WC.##?_?WC.PER?
ZZZZ010542	9100	O+=   INCLUDING CONTENTS  AND DATAFILES  CASCADE CONSTRAINTS}
ZZZZ010542	9200	O+=   IF{_DB_I_ERROR!='NOT_EXIST'}ERROR{};
ZZZZ010542	9300	REPEAT=
ZZZZ010542	9400	I+=WRITE_OPEN{1,?_TMP??_WORK?.BAT,OT,/};
ZZZZ010542	9500	I+W+=WRITE{1,'@ECHO ON'};
ZZZZ010542	9600	=MESSAGE{DROP USER};
ZZZZ010542	9700	REPEAT=2 (WC.R_T##)
ZZZZ010542	9800	REPEAT2=4 (WC.DIOL$$)
ZZZZ010542	9810	P+=SQL{BEGIN TRANSACTION};
ZZZZ010542	9900	M+=IF_ERROR_LOGIN_SQL{EXEC
ZZZZ010542	10000	M+=   SP_DROPLOGIN '?WC.IS??WC.R_T##?_?WC.DIOL$$?_?WC.PER?'
ZZZZ010542	10010	I+=SET{WC.USER='?_SYSTEM??WC.R_T##??WC.DIOL$$??WC.PER?'};
ZZZZ010542	10020	I+=SET{WC.USER=WC.USER@LOWER};
ZZZZ010542	10100	I+W+=SET{WC='NET USER ?WC.USER? /DELETE'};WRITE{1,WC};
ZZZZ010542	10102	I+W-=SET{WC=
ZZZZ010542	10103	I+W-=   'CUT -D: -F1 /ETC/PASSWD|GREP ?WC.USER?>/DEV/NULL'};
ZZZZ010542	10104	I+W-=WRITE{1,WC@LOWER};
ZZZZ010542	10105	I+W-=SET{WC='IF TEST $?_Q? = 0 ;THEN'};WRITE{1,WC@LOWER};
ZZZZ010542	10106	I+W-=SET{WC='   USERDEL ?WC.USER?'};WRITE{1,WC@LOWER};
ZZZZ010542	10109	I+W-=SET{WC='FI'};WRITE{1,WC@LOWER};
ZZZZ010542	10300	M-I-H-=IF_ERROR_LOGIN_SQL{
ZZZZ010542	10310	M-I-H-=   DROP USER ?WC.IS??WC.R_T##?_?WC.DIOL$$?_?WC.PER?
ZZZZ010542	10400	O+=   CASCADE
ZZZZ010542	10500	I-H-=  }IF{_DB_I_ERROR!='NOT_EXIST'}ERROR{};
ZZZZ010542	10600	D+=SET{WN.CMD='-USER ?WC.LOGIN_ID? -PASS ?WC.PASSWORD_ADMIN?'
ZZZZ010542	10700	D+=   +' -DELETE ?WC.IS??WC.R_T##?_?WC.DIOL$$?_?WC.PER?'};
ZZZZ010542	10800	D+=COMMAND{"?$WC.PROGRAM?" ?WN.CMD?};
ZZZZ010542	11100	$4-H+=IF_ERROR_LOGIN_SQL{DROP SCHEMA AUTHORIZATION
ZZZZ010542	11110	$4-H+=   ?WC.IS??WC.R_T##??WC.DIOL$$??WC.PER?}
ZZZZ010542	11200	$4-H+=   IF{_DB_I_ERROR!='NOT_EXIST'}ERROR{};
ZZZZ010542	11210	H+=LOGIN_SQL{REVOKE CONNECT FROM
ZZZZ010542	11220	H+=   ?WC.IS??WC.R_T##??WC.DIOL$$??WC.PER?};
ZZZZ010542	11222	P+=SQL{COMMIT TRANSACTION};
ZZZZ010542	11300	REPEAT=
ZZZZ010542	11500	*I+=WRITE{1,'PAUSE'};WRITE_CLOSE{1};
ZZZZ010542	11600	I+=WRITE_CLOSE{1};
ZZZZ010542	11610	I+W+=SET{WC.PATH='?_OS_DRIVE??_P?I?_P?BIN?_IV??_P?'};
ZZZZ010542	11700	*I+W+=EXE_WAIT{?WC.PATH??_IV?ROOT?_OS??_FRAMEWORK?.EXE,
ZZZZ010542	11900	*I+W+=    ?_TMP??_WORK?.BAT};
ZZZZ010542	11902	I+W+=COMMAND{CALL ?WC.PATH?IROOT?_OS??_FRAMEWORK?.EXE
ZZZZ010542	11903	I+W+=    ?_TMP??_WORK?.BAT};
ZZZZ010542	11910	I+W-=SET{WC.CHMOD='CHMOD'};
ZZZZ010542	11912	I+W-=COMMAND{?WC.CHMOD@LOWER? 777 ?_TMP??_WORK?.BAT};
ZZZZ010542	11920	I+W-=COMMAND{?_TMP??_WORK?.BAT};
ZZZZ010542	12000	I+=ERASE_FILE{?_WORK?.BAT};
ZZZZ010542	12100	=EXIT{_END};
ZZZZ010542	12200	*END
ZZZZ010542	12300	*=EXIT{1};
ZZZZ010543	100	%PERMISSION-COMMENT_END
ZZZZ010543	200	***( 部分の更新 )***
ZZZZ010543	300	PROGRAM=,&X1,?_MM?_ETC_TABLE
ZZZZ010543	302	BEGIN
ZZZZ010543	310	=SET{WC.TABLE_K='ZZZZZZ_PART2:'};
ZZZZ010543	400	TABLE=&X2,?_MM?_ETC_TABLE
ZZZZ010543	500	DICTIONARY=SYSTEM_PART,SYSTEM_PERMISSION
ZZZZ010543	600	*CONTROL=PROGRAM_TEST,0,BEGIN_ENTER
ZZZZ010543	610	CONTROL=PROGRAM_TEST,BEGIN_ENTER
ZZZZ010543	700	BEGIN
ZZZZ010543	800	=SET{.SYSTEM_KEY1=WC.PART_K+$SYSTEM_KEY2};
ZZZZ010543	900	=SET{.SYSTEM_PERMISSION=$SYSTEM_KEY2};
ZZZZ010543	1000	SET={KO}.?&.SET&SYSTEM_KEY1?
ZZZZ010543	1100	SET={O,*}.?&DATA&SYSTEM_PERMISSION?
ZZZZ010543	1200	START
ZZZZ010543	1300	=IF{_START!=1}EXIT{};
ZZZZ010543	1310	=SQL_SET{}{SELECT 0 FROM ?_TABLE? WHERE
ZZZZ010543	1320	= SYSTEM_KEY1='?WC.TABLE_K??.SYSTEM_PERMISSION??SYSTEM_PART?'
ZZZZ010543	1330	=   AND Z_CANCEL=' '};
ZZZZ010543	1340	=IF{_SQL_SET_COUNT>0}
ZZZZ010543	1350	= ERROR{?WC.TABLE_K??.SYSTEM_PERMISSION??SYSTEM_PART? FOUND};
ZZZZ010543	1360	=PROGRAM{00,?_MM?_I_MENU_TABLE}
ZZZZ010543	1362	=  {.SYSTEM_PERMISSION,SYSTEM_PART}{};
ZZZZ010543	1363	=IF{_PROGRAM_COUNT>0}ERROR{MENU USE};
ZZZZ010543	1400	*****( キー1 )*****
ZZZZ010543	1500	*****( キー2 )*****
ZZZZ010543	1600	DATA={KN}?&.DATA&SYSTEM_KEY2?
ZZZZ010543	1700	DATA={*}?&DATA&SYSTEM_PART?
ZZZZ010543	1800	SELECT=?_T?.SYSTEM_KEY2
ZZZZ010543	1900	=SET{SYSTEM_KEY2=_DATA};
ZZZZ010543	2000	*****( ETCデータ )*****
ZZZZ010543	2100	*DATA={}.?&.DATA&ETC?
ZZZZ010543	2200	*****( コメント )*****
ZZZZ010543	2300	DATA={}?&.DATA&SYSTEM_COMMENT?
ZZZZ010543	2400	COPY=@ZZZZZZ_SQL
ZZZZ010543	2410	COMMENT_BEGIN
ZZZZ010543	2500	***( テーブル略称の更新 )***
ZZZZ010543	2600	PROGRAM=,&X1,?_MM?_ETC_TABLE
ZZZZ010543	2700	DICTIONARY=SYSTEM_PART,SYSTEM_PERMISSION
ZZZZ010543	2800	CONTROL=PROGRAM_TEST
ZZZZ010543	2900	*=SET{.SYSTEM_PERMISSION=$.SYSTEM_PERMISSION};
ZZZZ010543	3000	*=SET{SYSTEM_PART=$SYSTEM_PART};
ZZZZ010543	3200	=SET{
ZZZZ010543	3210	=   .SYSTEM_KEY1=$WC.TABLE_K+.SYSTEM_PERMISSION+SYSTEM_PART};
ZZZZ010543	3300	SET={KO}.?&.DATA&SYSTEM_KEY1?
ZZZZ010543	3360	*PROGRAM{0,?_MM?I_MENU_TABLE}{WC.SYSTEM_PERMISSION=.SYSTEM
ZZZZ010543	3400	SET={O,*}$.?&DATA&SYSTEM_PERMISSION?
ZZZZ010543	3500	SET={O,*}.=?&DATA&SYSTEM_PART?
ZZZZ010543	3600	DATA={K}?&.DATA&SYSTEM_KEY2?
ZZZZ010543	3700	TITLE=テーブル略称
ZZZZ010543	3800	DATA={N}?&.DATA&SYSTEM_ETC?
ZZZZ010543	3900	DATA={*}?&DATA&SYSTEM_PERMISSION?
ZZZZ010543	4000	SELECT=?_SUBSTR(.SYSTEM_ETC;1;4)?
ZZZZ010543	4100	=IF{.SYSTEM_PERMISSION=_DATA}SET{WC.WHERE=
ZZZZ010543	4200	=   'AND SYSTEM_KEY2<>''?.SYSTEM_PART?'''}JUMP{};
ZZZZ010543	4300	=   SET{WC.WHERE=};
ZZZZ010543	4400	CHECK2=SELECT SYSTEM_KEY2,SYSTEM_ETC FROM ?_TABLE? WHERE
ZZZZ010543	4500	CHECK2=.SYSTEM_KEY1='ZZZZZZ_PERMISSION'
ZZZZ010543	4600	CHECK2=AND Z_CANCEL=' 'ORDER BY 1
ZZZZ010543	4700	DATA={*}?&DATA&SYSTEM_PART?
ZZZZ010543	4800	SELECT=?_SUBSTR(.SYSTEM_ETC;5;2)?
ZZZZ010543	4900	CHECK2=SELECT SYSTEM_KEY2,SYSTEM_COMMENT FROM ?_TABLE? WHERE
ZZZZ010543	5000	CHECK2=.SYSTEM_KEY1='ZZZZZZ_PART:?SYSTEM_PERMISSION?'
ZZZZ010543	5100	CHECK2=?WC.WHERE?
ZZZZ010543	5200	CHECK2=AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010543	5300	=SET{.SYSTEM_ETC=SYSTEM_PERMISSION+.SYSTEM_PART};
ZZZZ010543	5400	COPY=@ZZZZZZ_SQL
ZZZZ010543	5500	STOP_AFTER
ZZZZ010543	5600	=IF{_START!=1}JUMP{J};
ZZZZ010543	5700	=PROGRAM{00,?_MM?_ETC_TABLE}{SYSTEM_KEY1}{};
ZZZZ010543	5800	=IF{_PROGRAM_COUNT>0}EXIT{}; 明細有りは削除せず*
ZZZZ010543	5900	=J:PROGRAM{?_START?E,?_MM?_ETC_ID_TABLE}{SYSTEM_KEY1}{};
ZZZZ010543	6000	TEST-=PROGRAM{?_START?E,?_MM_TEST?_ETC_ID_TABLE}
ZZZZ010543	6100	TEST-=   {SYSTEM_KEY1}{};
ZZZZ010543	6200	COMMENT_END
ZZZZ010601	100	PROGRAM=NOT
ZZZZ010601	200	CONTROL=BEGIN_ENTER
ZZZZ010601	300	BEGIN
ZZZZ010601	400	=SET{LOGIN_ID=_LOGIN_ID_ADMIN};
ZZZZ010601	500	H+|P+|I+=SET{LOGIN_ID@TYPE2='L'};
ZZZZ010601	600	W+=SET{WC.DQ='"'};
ZZZZ010601	700	W-=SET{WC.DQ=};
ZZZZ010601	800	BEGIN_END
ZZZZ010601	900	NAME=DROP_TABLE_WORK
ZZZZ010601	1000	REPEAT=?_A_B?
ZZZZ010601	1100	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010601	1200	REPEAT= (?_A_B?)
ZZZZ010601	1300	NAME= (DROP_TABLE_WORK)
ZZZZ010601	1400	BEGIN
ZZZZ010601	1500	=CREATE_TABLE{?_WORK_TABLE?A
ZZZZ010601	1600	D-I-=  }
ZZZZ010601	1700	D+|I+=  ,SYSTEM_KEY1,C,20,SYSTEM_KEY2,C,30}
ZZZZ010601	1800	=  {FILE_X,70};
ZZZZ010601	1900	=CREATE_TABLE{?_WORK_TABLE?B,
ZZZZ010601	1910	=  SYSTEM_KEY1,C,20,SYSTEM_KEY2,C,30}{DB,70};
ZZZZ010601	2100	O+|P+FORM= ★注意★このRDBMSは動きません！！！
ZZZZ010601	2200	FORM=  バックアップを別のデータベース名でリストアします。
ZZZZ010601	2300	FORM=    *********************************************
ZZZZ010601	2400	FORM=    ***( SERVER AND _PEROMISSION='ZZZZ' ONLY )***
ZZZZ010601	2500	FORM=    *********************************************
ZZZZ010601	2600	FORM=
ZZZZ010601	2700	FORM=          CHECK @@ (SERVER,PERMISSION,USER(UI))
ZZZZ010601	2800	FORM= ADMIN LOGIN_ID @@@@@@@@@@@@@@@@@@@@
ZZZZ010601	2900	DATA=CHECK{2}
ZZZZ010601	3000	=IF{_PERMISSION!='ZZZZ'}ERROR{_PERMISSION!='ZZZZ'};
ZZZZ010601	3100	=IF{_SERVER!=_COMPUTER}ERROR{_COMPUTER!='?_SERVER?'};
ZZZZ010601	3200	I+W-=SET{WC.ROOT='ROOT'};
ZZZZ010601	3300	I+W-=IF{_USER!=WC.ROOT@LOWER}ERROR{_USER!='?WC.ROOT@LOWER?'};
ZZZZ010601	3400	DATA=LOGIN_ID{14}
ZZZZ010601	3500	=SET{_LOGIN_ID=LOGIN_ID};
ZZZZ010601	3600	FORM= ADMIN PASSWORD
ZZZZ010601	3700	FORM=@
ZZZZ010601	3800	DATA=PASSWORD_ADMIN{80,,!,*}ADMIN_PASWORD
ZZZZ010601	3900	=SET{_LOGIN_PASSWORD=PASSWORD_ADMIN};
ZZZZ010601	4000	=IF_ERROR_LOGIN_SQL{SELECT ?_NOW0? ?_FROM_DUAL?}ERROR{};
ZZZZ010601	4100	******( INSTALL_PATH 抜き出し )**************
ZZZZ010601	4200	*SQL_SET{WC.DATA}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ010601	4300	*   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010601	4310	*   AND SYSTEM_KEY2='ZZZZZZ_INSTALL_PATH'
ZZZZ010601	4400	*   AND Z_CANCEL=' '};
ZZZZ010601	4500	*IF{_SQL_SET_COUNT=0}
ZZZZ010601	4510	*   ERROR{ETC,ZZZZZZ_SYSTEM,ZZZZZZ_INSTALL_PATH};
ZZZZ010601	4600	*SET{WC.INSTALL_PATH=WC.DATA};
ZZZZ010601	4700	******( DRIVE 抜き出し )**************
ZZZZ010601	4800	*SQL_SET{WC.DATA}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ010601	4900	*   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010601	4910	*   AND SYSTEM_KEY2='ZZZZZZ_INSTALL_CFG1'
ZZZZ010601	5000	*   AND Z_CANCEL=' '};
ZZZZ010601	5100	*IF{_SQL_SET_COUNT=0}
ZZZZ010601	5110	*   ERROR{ETC,ZZZZZZ_SYSTEM,ZZZZZZ_INSTALL_CFG1};
ZZZZ010601	5200	*SPLIT_CHAR{WC.SPLIT}{WC.DATA}{','};
ZZZZ010601	5300	*IF{_SPLIT_CHAR_COUNT<5}ERROR{INSTALL_CFG1};
ZZZZ010601	5302	=SPLIT_CHAR{WC.ETC}{'PATH,CFG1'}{','};
ZZZZ010601	5310	REPEAT=2 (INSTALL_PATH,INSTALL_CFG1)
ZZZZ010601	5312	=PROGRAM{0,?_MM?_ETC_TABLE,WN.SYSTEM_ETC=}
ZZZZ010601	5313	=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010601	5314	=   ,WC.SYSTEM_KEY2='ZZZZZZ_INSTALL_?WC.ETC##?'}{};
ZZZZ010601	5315	=IF{_PROGRAM_COUNT=0}
ZZZZ010601	5316	=   ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? NOT FOUND};
ZZZZ010601	5350	1+=SET{WC.INSTALL_PATH=WN.SYSTEM_ETC};
ZZZZ010601	5360	2+=SPLIT_CHAR{WC.SPLIT}{WN.SYSTEM_ETC}{','};
ZZZZ010601	5370	2+=IF{_SPLIT_CHAR_COUNT<5}
ZZZZ010601	5372	2+=   ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? COUNT<5};
ZZZZ010601	5399	REPEAT=  (INSTALL_PATH,INSTALL_CFG1)
ZZZZ010601	5400	REPEAT=5
ZZZZ010601	5500	*1+I+|M+=JUMP{DRV_SET};
ZZZZ010601	5600	*5+=JUMP{DRV_SET};
ZZZZ010601	5700	*M-=JUMP{DRV_SKIP};
ZZZZ010601	5800	*=DRV_SET:
ZZZZ010601	5900	=SET{WC.DRV##=WC.SPLIT##};
ZZZZ010601	6000	5+=IF{WC.DRV##=}ERROR{INSTALL_CFG1-## IS NULL};
ZZZZ010601	6100	*=DRV_SKIP:
ZZZZ010601	6200	REPEAT=
ZZZZ010601	6300	=SERVER_BAT{ZZZZZZBACKUP,DIR ?WC.DRV5? I?_P?BACKUP};
ZZZZ010601	6400	=SERVER_GET{?_WORK?.TXT};
ZZZZ010601	6500	=SQL{DELETE FROM ?_WORK_TABLE?A};
ZZZZ010601	6600	=SET{WC.SYSTEM_KEY1='ZZZZZZ_RESTORE'};
ZZZZ010601	6700	=READ_OPEN{1,?_TMP??_WORK?.TXT,/};
ZZZZ010601	6800	=LOOP:READ_NEXT{1,}JUMP{FIN};
ZZZZ010601	6810	=SPLIT_CHAR{WC.}{_READ_DATA}{_P};
ZZZZ010601	6820	=SET{WC.FILE_X=WC.?_SPLIT_CHAR_COUNT?};
ZZZZ010601	6900	=IF_NOT{WC.FILE_X/'I.BACKUP.?_SYSTEM?'}BACK{LOOP};
ZZZZ010601	7000	D+|I+=SPLIT_CHAR{WC.}{WC.FILE_X}{'_.'};
ZZZZ010601	7100	D+|I+=SET{WC.SYSTEM_KEY2=WC.6+WC.7};
ZZZZ010601	7200	=INSERT{?_WORK_TABLE?A,
ZZZZ010601	7300	D+|I+=   WC.SYSTEM_KEY1,WC.SYSTEM_KEY2,
ZZZZ010601	7400	=   WC.FILE_X};
ZZZZ010601	7500	=BACK{LOOP};
ZZZZ010601	7600	=FIN:READ_CLOSE{1};
ZZZZ010601	7700	=SERVER_BAT{ZZZZZZETC,ERASE ?_WORK?.TXT};
ZZZZ010601	7800	PROGRAM=OUTPUT,&X1,?_WORK_TABLE?A
ZZZZ010601	7900	D+|I+LEFT=&X2,?_MM?_ETC_TABLE,,0
ZZZZ010601	8000	CONTROL=0
ZZZZ010601	8100	START
ZZZZ010601	8200	D-I-=JUMP{ETC_SET_SKIP};
ZZZZ010601	8300	NAME=ETC_SET
ZZZZ010601	8400	=IF{X2.SYSTEM_ETC!=}ERROR{X2.SYSTEM_ETC IS NOT SPACE};
ZZZZ010601	8500	=SET{X2.SYSTEM_ETC=1001};
ZZZZ010601	8600	=LOOP:SQL_SET{}{SELECT 0 FROM ?&X2.TABLE? WHERE
ZZZZ010601	8700	=   SYSTEM_KEY1='?$WC.SYSTEM_KEY1?' AND ?_VRE&X2.SYSTEM_ETC?
ZZZZ010601	8800	=   AND Z_CANCEL=' '};
ZZZZ010601	8900	=IF{_SQL_SET_COUNT!=0}COMPUTE{X2.SYSTEM_ETC+=1}BACK{LOOP};
ZZZZ010601	9000	NAME= (ETC_SET)
ZZZZ010601	9100	=ETC_SET_SKIP:
ZZZZ010601	9200	***( BACKUPをTMPディレクトリにコピー）
ZZZZ010601	9300	=SERVER_BAT{ZZZZZZBACKUP,COPY_BACKUP ?$WC.DRV5? ?.FILE_X?};
ZZZZ010601	9400	=ZIP{?.FILE_X?}; 解凍実施*
ZZZZ010601	9500	=SPLIT_CHAR{WC.}{.FILE_X}{'.'};
ZZZZ010601	9600	=SET{WC.DATE_TIME=WC.6+WC.7};
ZZZZ010601	9700	=SQL{DELETE FROM ?_WORK_TABLE?B};
ZZZZ010601	9800	=SET{WC.SYSTEM_KEY1=$WC.SYSTEM_KEY1};
ZZZZ010601	9900	=SET{WC.BACKUP=.FILE_X[1;.FILE_X@LENGTH-4]};
ZZZZ010601	10000	=SET{WC.BACKUP_DAT=WC.BACKUP+_P+'BACKUP_DAT'};
ZZZZ010601	10100	M+=DIR{?_TMP??WC.BACKUP_DAT?};
ZZZZ010601	10200	M+=LOOP:DIR_NEXT{WC.DB}JUMP{FIN};
ZZZZ010601	10300	L+=SET{_TRACE=0};
ZZZZ010601	10400	L+=READ_OPEN{1,?_TMP??WC.BACKUP_DAT??_P?BACKUP_DAT};
ZZZZ010601	10500	L+=LOOP:READ_NEXT{1,}JUMP{FIN};
ZZZZ010601	10600	L+=IF_NOT{_READ_DATA/'CREATE DATABASE '}BACK{LOOP};
ZZZZ010601	10700	L+=SPLIT_CHAR{WC.}{_READ_DATA}{'`'};
ZZZZ010601	10800	L+=SET{WC.DB=WC.2@UPPER};
ZZZZ010601	10900	L+=IF_NOT{WC.DB/'I_?_SYSTEM?_'}BACK{LOOP};
ZZZZ010601	11000	L+|M+=SPLIT_CHAR{WC.}{WC.DB}{'_.'};
ZZZZ010601	11100	L+|M+=SET{WC.SYSTEM_KEY2=WC.DATE_TIME+WC.3+WC.4+WC.5};
ZZZZ010601	11200	=SET{WC.DRV_DAT=$WC.DRV1,WC.DRV_LOG=$WC.DRV2};
ZZZZ010601	11300	M+=IF{WC.3='T'}SET{WC.DRV_DAT=$WC.DRV3,WC.DRV_LOG=$WC.DRV4};
ZZZZ010601	11400	W+=SET{WC.DRV_DAT+=':',WC.DRV_LOG+=':'};
ZZZZ010601	11500	W-=SET{WC.DRV_DAT='/'+WC.DRV_DAT,WC.DRV_LOG='/'+WC.DRV_LOG};
ZZZZ010601	11600	D-I-=INSERT{?_WORK_TABLE?B,
ZZZZ010601	11610	D-I-=   WC.SYSTEM_KEY1,WC.SYSTEM_KEY2,WC.DB};
ZZZZ010601	11700	D-I-=BACK{LOOP};
ZZZZ010601	11800	=FIN:
ZZZZ010601	11900	L+=READ_CLOSE{1};
ZZZZ010601	12000	D+|I+=SET{.SYSTEM_KEY2=WC.DATE_TIME};
ZZZZ010601	12100	D+|I+WORK=.SYSTEM_KEY2{30}
ZZZZ010601	12200	D+|I+=SET{.DB='I_'+_SYSTEM};
ZZZZ010601	12300	D+|I+WORK=.DB{23}
ZZZZ010601	12400	END
ZZZZ010601	12500	=IF_NAME{WC.BACKUP}ERASE_DIR{?WC.BACKUP?};
ZZZZ010601	12510	=SET{WC.ZIP='ZIP'};
ZZZZ010601	12512	=IF_NAME{WC.BACKUP}ERASE_FILE{?WC.BACKUP?.?WC.ZIP@LOWER?};
ZZZZ010601	12600	DATA={D}.FILE_X{70}
ZZZZ010601	12700	D+|I+DATA=X2.SYSTEM_ETC{4}
ZZZZ010601	12800	COPY=@ZZZZZZ_SQL
ZZZZ010601	12900	D+|I+COMMENT_BEGIN
ZZZZ010601	13000	PROGRAM=OUTPUT,&X1,?_WORK_TABLE?B
ZZZZ010601	13100	LEFT=&X2,?_MM?_ETC_TABLE,,0
ZZZZ010601	13200	CONTROL=0
ZZZZ010601	13300	BEGIN
ZZZZ010601	13400	SET={O,*}$.FILE_X{70}
ZZZZ010601	13500	START
ZZZZ010601	13600	COPY=ETC_SET
ZZZZ010601	13700	DATA=.DB{23}
ZZZZ010601	13800	DATA=.SYSTEM_KEY2{20}
ZZZZ010601	13900	DATA=X2.SYSTEM_ETC{4}
ZZZZ010601	14000	COPY=@ZZZZZZ_SQL
ZZZZ010601	14100	D+|I+COMMENT_END
ZZZZ010601	14200	PROGRAM=NOT
ZZZZ010601	14300	BEGIN
ZZZZ010601	14400	=SET{NEW_DB='I_'+_SYSTEM
ZZZZ010601	14500	D-I-=   +'_'+.SYSTEM_KEY2[15;1]+'_'+.SYSTEM_KEY2[16;1]+'_'
ZZZZ010601	14600	=   +X2.SYSTEM_ETC};
ZZZZ010601	14700	DATA={O}$.FILE_X{70}
ZZZZ010601	14800	DATA={O}$.DB{23}
ZZZZ010601	14900	DATA={O}NEW_DB{23}
ZZZZ010601	15000	DATA={O}$WC.SYSTEM_KEY1{20}
ZZZZ010601	15100	DATA={O}$.SYSTEM_KEY2{20}
ZZZZ010601	15200	DATA={O}$X2.SYSTEM_ETC{4}
ZZZZ010601	15300	DATA=YES{4}{YES,NO}
ZZZZ010601	15400	MESSAGE=該当データベースをリストアします。
ZZZZ010601	15500	=IF{_DATA='NO'}EXIT{_END};
ZZZZ010601	15600	D+=SET{WC.CMD=$WC.DQ+$WC.INSTALL_PATH+_P+'GBAK'+$WC.DQ
ZZZZ010601	15700	D+=                 +' -C -USER '};
ZZZZ010601	15800	D+=SET{_LOWER=' -PASSWORD ',WC.PASSWORD=_LOWER};
ZZZZ010601	15900	D+=SET{WC.CMD=WC.CMD@LOWER+$LOGIN_ID+WC.PASSWORD
ZZZZ010601	16000	D+=   +$PASSWORD_ADMIN+' '+_TMP+$WC.BACKUP_DAT+_P+
ZZZZ010601	16010	D+=   +'BACKUP_DAT_'+_SYSTEM+' '+$WC.DRV_DAT
ZZZZ010601	16100	D+=   +_P+'I'+_P+'DATABASE_DAT_D'+_P+NEW_DB+'.FDB'};
ZZZZ010601	16200	D+=COMMAND{?WC.CMD?};
ZZZZ010601	16300	I+W+=SET{WC.DB2='DB2CMD -I -C -W DB2 -F',WC.DB2_END=};
ZZZZ010601	16400	I+W+=SET{WC.USR='DB2'};
ZZZZ010601	16500	I+W-=SET{_LOWER='SU - DB2INST1 -C ''DB2 -F',WC.DB2=_LOWER};
ZZZZ010601	16600	I+W-=SET{WC.DB2_END='''',_LOWER='DB2INST1',WC.USR=_LOWER};
ZZZZ010601	16700	I+=SET{_LOWER='MKDIR',WC.MKDIR=_LOWER};
ZZZZ010601	16800	=SET{_LOWER='CHMOD',WC.CHMOD=_LOWER};
ZZZZ010601	16900	*I+=SET{_LOWER='CHGRP',WC.CHGRP=_LOWER};
ZZZZ010601	17000	I+=SET{WC.I=$WC.DRV_DAT
ZZZZ010601	17100	I+W-=   +_P+'I'+_P+'DATABASE_DAT_I_'+_SYSTEM
ZZZZ010601	17200	I+=   };
ZZZZ010601	17300	I+=SET{WC.LOG=_TMP+_WORK+'.LOG'};
ZZZZ010601	17400	I+=IF_ERROR_COMMAND{?WC.MKDIR? ?WC.LOG?}NOP{};
ZZZZ010601	17500	I+W-=COMMAND{?WC.CHMOD? 777 ?WC.LOG?};
ZZZZ010601	17600	I+=WRITE_OPEN{1,?_TMP??_WORK?.TXT,OT,/};
ZZZZ010601	17700	I+W+=WRITE{1,'ECHO この処理は時間がかかります。'};
ZZZZ010601	17800	I+=SET{WC='RESTORE DATABASE '+.DB+' FROM "'
ZZZZ010601	17900	I+=   +_TMP+$WC.BACKUP_DAT+'" ON "'+WC.I+'" INTO '+NEW_DB
ZZZZ010601	18000	I+=   +' LOGTARGET "?WC.LOG?" NEWLOGPATH DEFAULT'
ZZZZ010601	18100	I+=   +' WITHOUT PROMPTING'};
ZZZZ010601	18200	I+=WRITE{1,WC};
ZZZZ010601	18300	I+=SET{WC='ROLLFORWARD DATABASE ?NEW_DB? '
ZZZZ010601	18400	I+=   +' TO END OF LOGS AND STOP'
ZZZZ010601	18500	I+=   +' OVERFLOW LOG PATH (?WC.LOG?)'};
ZZZZ010601	18600	I+=WRITE{1,WC};
ZZZZ010601	18700	I+=WRITE_CLOSE{1};
ZZZZ010601	18710	I+W-=COMMAND{?WC.CHMOD? 777 ?_TMP??_WORK?.TXT};
ZZZZ010601	18800	I+=WRITE_OPEN{1,?_TMP??_WORK?.BAT,OT,/};
ZZZZ010601	18900	I+W+=WRITE{1,'@ECHO OFF'};
ZZZZ010601	19000	I+=WRITE{1,'?WC.DB2? ?_TMP??_WORK?.TXT ?WC.DB2_END?'};
ZZZZ010601	19100	I+W+=WRITE{1,'ECHO エラーを確認後[ENTER]を押してください。'};
ZZZZ010601	19200	I+W+=WRITE{1,'PAUSE'};
ZZZZ010601	19300	I+=WRITE_CLOSE{1};
ZZZZ010601	19400	I+W-=COMMAND{?WC.CHMOD? 777 ?_TMP??_WORK?.BAT};
ZZZZ010601	19500	I+=COMMAND{?_TMP??_WORK?.BAT};
ZZZZ010601	19600	I+=ERASE_DIR{?_WORK?.LOG};
ZZZZ010601	19610	L+=SET{NEW_DB=NEW_DB@LOWER};
ZZZZ010601	19700	L+=READ_OPEN{1,?_TMP??$WC.BACKUP_DAT??_P?BACKUP_DAT};
ZZZZ010601	19710	L+=SET{WC.SW=0};
ZZZZ010601	19800	L+=WRITE_OPEN{1,?_TMP??$.SYSTEM_KEY2?.TXT,OT};
ZZZZ010601	19900	L+=WRITE{1,'CREATE DATABASE ?NEW_DB?;'};
ZZZZ010601	20000	L+=WRITE{1,'USE ?NEW_DB?;'};
ZZZZ010601	20100	L+=LOOP:READ_NEXT{1,}JUMP{FIN};
ZZZZ010601	20200	L+=IF{_READ_DATA/'USE `'}JUMP{USE};
ZZZZ010601	20300	L+=IF{WC.SW=1}WRITE{1,_READ_DATA};
ZZZZ010601	20400	L+=BACK{LOOP};
ZZZZ010601	20500	L+=USE:
ZZZZ010601	20600	L+=SPLIT_CHAR{WC.}{_READ_DATA}{'`'};
ZZZZ010601	20700	L+=IF{WC.2@UPPER=.DB}SET{WC.SW=1}BACK{LOOP};
ZZZZ010601	20800	L+=SET{WC.SW=0};
ZZZZ010601	20900	L+=BACK{LOOP};
ZZZZ010601	21000	L+=FIN:WRITE_CLOSE{1};READ_CLOSE{1};
ZZZZ010601	21100	L+=SET{_TRACE=1};
ZZZZ010601	21200	L+W+=SET{WC.CMD=$WC.DQ+$WC.INSTALL_PATH+_P+'BIN'+_P+'MYSQL'
ZZZZ010601	21300	L+W+=+$WC.DQ};
ZZZZ010601	21400	L+W-=SET{_LOWER='MYSQL',WC.CMD=_LOWER};
ZZZZ010601	21500	L+=WRITE_OPEN{1,?_TMP??_WORK?.BAT,OT,/};
ZZZZ010601	21600	L+W+=WRITE{1,'@ECHO OFF'};
ZZZZ010601	21700	L+W+=WRITE{1,'ECHO この処理は時間が掛かります.'};
ZZZZ010601	21800	L+=SET{_LOWER=' -U',WC.U=_LOWER,_LOWER=' -P',WC.P=_LOWER};
ZZZZ010601	21900	L+=SET{_LOWER=' --DEFAULT-CHARACTER-SET=UTF8',WC.D=_LOWER};
ZZZZ010601	22000	L+=SET{WN=WC.CMD+WC.U+$LOGIN_ID+WC.P+$PASSWORD_ADMIN+WC.D
ZZZZ010601	22100	L+=   +' < '+_TMP+.SYSTEM_KEY2+'.TXT 2> '+_TMP+_WORK+'.TMP'};
ZZZZ010601	22200	L+=WRITE{1,WN};WRITE_CLOSE{1};
ZZZZ010601	22300	L+W-=COMMAND{?WC.CHMOD? 777 ?_TMP??_WORK?.BAT};
ZZZZ010601	22400	L+=COMMAND{?_TMP??_WORK?.BAT};
ZZZZ010601	22500	L+=ERASE_FILE{   ?_WORK?.BAT};
ZZZZ010601	22600	M+=SET{WC.DAT=$WC.DRV_DAT+_P+'I'+_P+'DATABASE_DAT_'+_DB+_P
ZZZZ010601	22700	M+=   +NEW_DB+'.MDF'};
ZZZZ010601	22800	M+=SET{WC.LOG=$WC.DRV_LOG+_P+'I'+_P+'DATABASE_LOG_'+_DB+_P
ZZZZ010601	22900	M+=   +NEW_DB+'.LDF'};
ZZZZ010601	23000	M+=LOGIN_SQL{RESTORE
ZZZZ010601	23100	M+=   DATABASE ?NEW_DB?
ZZZZ010601	23200	M+=   FROM DISK='?_TMP??$WC.BACKUP_DAT??_P??.DB?'
ZZZZ010601	23300	M+=   WITH RECOVERY,MOVE 'DAT' TO '?WC.DAT?'
ZZZZ010601	23400	M+=   ,MOVE 'LOG' TO '?WC.LOG?'};
ZZZZ010601	23500	=PROGRAM{2E,?_MM?_ETC_TABLE,X2.SYSTEM_ETC}
ZZZZ010601	23510	=  {WC.SYSTEM_KEY1,.SYSTEM_KEY2}{};
ZZZZ010601	23700	DATA=END{1}
ZZZZ010601	23800	MESSAGE=正常にリストアされました。
ZZZZ010601	23900	=EXIT{0};
ZZZZ010602	100	PROGRAM=NOT
ZZZZ010602	200	CONTROL=BEGIN_ENTER
ZZZZ010602	300	BEGIN
ZZZZ010602	400	=SET{LOGIN_ID=_LOGIN_ID_ADMIN};
ZZZZ010602	500	H+|P+|I+=SET{LOGIN_ID@TYPE2='L'};
ZZZZ010602	600	W+=SET{WC.DQ='"'};
ZZZZ010602	700	W-=SET{WC.DQ=};
ZZZZ010602	800	O+|P+FORM= ★注意★このRDBMSは動きません！！！
ZZZZ010602	900	FORM=  リストアデータベースを削除じます。
ZZZZ010602	1000	FORM=    *********************************************
ZZZZ010602	1100	FORM=    ***( SERVER AND _PEROMISSION='ZZZZ' ONLY )***
ZZZZ010602	1200	FORM=    *********************************************
ZZZZ010602	1300	FORM=
ZZZZ010602	1400	FORM=          CHECK @@ (SERVER,PERMISSION,USER(UI))
ZZZZ010602	1500	FORM= ADMIN LOGIN_ID @@@@@@@@@@@@@@@@@@@@
ZZZZ010602	1600	DATA=CHECK{2}
ZZZZ010602	1700	=IF{_PERMISSION!='ZZZZ'}ERROR{_PERMISSION!='ZZZZ'};
ZZZZ010602	1800	=IF{_SERVER!=_COMPUTER}ERROR{_COMPUTER!='?_SERVER?'};
ZZZZ010602	1900	I+W-=SET{WC.ROOT='ROOT'};
ZZZZ010602	2000	I+W-=IF{_USER!=WC.ROOT@LOWER}ERROR{_USER!='?WC.ROOT@LOWER?'};
ZZZZ010602	2100	DATA=LOGIN_ID{14}
ZZZZ010602	2200	=SET{_LOGIN_ID=LOGIN_ID};
ZZZZ010602	2300	FORM= ADMIN PASSWORD
ZZZZ010602	2400	FORM=@
ZZZZ010602	2500	DATA=PASSWORD_ADMIN{80,,!,*}ADMIN_PASWORD
ZZZZ010602	2600	=SET{_LOGIN_PASSWORD=PASSWORD_ADMIN};
ZZZZ010602	2700	=IF_ERROR_LOGIN_SQL{SELECT ?_NOW0? ?_FROM_DUAL?}ERROR{};
ZZZZ010602	2800	PROGRAM=,&X1,?_MM?_ETC_TABLE
ZZZZ010602	2900	CONTROL=PROGRAM_TEST,SCROLL,2,3
ZZZZ010602	3000	BEGIN
ZZZZ010602	3100	=SET{.SYSTEM_KEY1='ZZZZZZ_RESTORE'};
ZZZZ010602	3200	START
ZZZZ010602	3300	=SET{WC.SW=0};
ZZZZ010602	3400	SET={KO}.?&.SET&SYSTEM_KEY1?
ZZZZ010602	3500	DATA={K}?&.DATA&SYSTEM_KEY2?
ZZZZ010602	3600	DATA=   .SYSTEM_ETC{4}
ZZZZ010602	3700	COPY=@ZZZZZZ_SQL
ZZZZ010602	3800	STOP_BEFORE
ZZZZ010602	3900	=IF{WC.SW=1}EXIT{};SET{WC.SW=1}; １回のみ実行。*
ZZZZ010602	4000	******( DRIVE 抜き出し )**************
ZZZZ010602	4100	*D+=SQL_SET{WC.DATA}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ010602	4200	*D+=   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010602	4210	*D+=   AND SYSTEM_KEY2='ZZZZZZ_INSTALL_CFG1'
ZZZZ010602	4300	*D+=   AND Z_CANCEL=' '};
ZZZZ010602	4400	*D+=IF{_SQL_SET_COUNT=0}ERROR{ETC,SYSTEM,INSTALL_CFG1};
ZZZZ010602	4500	*D+=SPLIT_CHAR{WC.}{WC.DATA}{','};
ZZZZ010602	4510	D+=PROGRAM{0,?_MM?_ETC_TABLE,WN.SYSTEM_ETC=}
ZZZZ010602	4520	D+=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010602	4530	D+=   ,WC.SYSTEM_KEY2='ZZZZZZ_INSTALL_CFG1'}{};
ZZZZ010602	4545	D+=IF{_PROGRAM_COUNT=0}
ZZZZ010602	4546	D+=  ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY12? NOT FOUND};
ZZZZ010602	4547	D+=SPLIT_CHAR{WC.}{WN.SYSTEM_ETC}{','};
ZZZZ010602	4600	D+=IF{WC.1=}ERROR{INSTALL_CFG1-1 IS NULL};
ZZZZ010602	4700	D+W+=SET{WC.DRV1=WC.1+':'};
ZZZZ010602	4800	D+W-=SET{WC.DRV1='/'+WC.1};
ZZZZ010602	4900	D+=SET{WC.DAT=WC.DRV1+_P+'I'+_P+'DATABASE_DAT_D'};
ZZZZ010602	5000	L-M-=SET{WC.DB='I_'+_SYSTEM+.SYSTEM_ETC};
ZZZZ010602	5100	D+W+=SET{WC.RM='ERASE'};
ZZZZ010602	5200	D+W-=SET{_LOWER='RM',WC.RM=_LOWER};
ZZZZ010602	5300	D+=COMMAND{?WC.RM? ?WC.DAT??_P??WC.DB?.FDB};
ZZZZ010602	5400	L+|M+=SET{WC.DB='I_'+_SYSTEM+'_'+SYSTEM_KEY2[15;1]+'_'
ZZZZ010602	5500	L+|M+=   +SYSTEM_KEY2[16;1]+'_'+.SYSTEM_ETC};
ZZZZ010602	5600	L+|M+=IF_ERROR_LOGIN_SQL{DROP DATABASE ?WC.DB?}ERROR{};
ZZZZ010602	5700	I+W+=SET{WC.DB2='DB2CMD -I -C -W DB2',WC.DB2_END=};
ZZZZ010602	5710	I+W-=SET{_LOWER='SU - DB2INST1 -C ''DB2'};
ZZZZ010602	5800	I+W-=SET{WC.DB2=_LOWER,WC.DB2_END=''''};
ZZZZ010602	5900	I+=WRITE_OPEN{1,?_TMP??_WORK?.TXT,OT,/};
ZZZZ010602	6000	I+=WRITE{1,'CONNECT TO ?WC.DB?'};
ZZZZ010602	6100	I+=WRITE{1,'UNQUIESCE DATABASE'};
ZZZZ010602	6200	I+=WRITE{1,'QUIESCE DATABASE IMMEDIATE FORCE CONNECTIONS'};
ZZZZ010602	6300	I+=WRITE{1,'UNQUIESCE DATABASE'};
ZZZZ010602	6400	I+=WRITE{1,'CONNECT RESET'};
ZZZZ010602	6500	I+=WRITE{1,'DROP DATABASE ?WC.DB?'};
ZZZZ010602	6600	I+=WRITE_CLOSE{1};
ZZZZ010602	6700	I+=WRITE_OPEN{1,?_TMP??_WORK?.BAT,OT,/};
ZZZZ010602	6800	I+W+=WRITE{1,'@ECHO OFF'};
ZZZZ010602	6900	I+=WRITE{1,'?WC.DB2? -F ?_TMP??_WORK?.TXT ?WC.DB2_END?'};
ZZZZ010602	7000	I+W+=WRITE{1,'ECHO エラー確認後,[ENTER]を押して下さい。'};
ZZZZ010602	7100	I+W+=WRITE{1,'PAUSE'};
ZZZZ010602	7200	I+=WRITE_CLOSE{1};
ZZZZ010602	7300	I+W-=SET{_LOWER='CHMOD',WC.CHMOD=_LOWER};
ZZZZ010602	7400	I+W-=COMMAND{?WC.CHMOD? 777 ?_TMP??_WORK?.BAT};
ZZZZ010602	7500	I+=IF_ERROR_COMMAND{?_TMP??_WORK?.BAT}NOP{};エラー回避*
ZZZZ010603	100	PROGRAM=NOT
ZZZZ010603	200	CONTROL=BEGIN_ENTER
ZZZZ010603	300	BEGIN
ZZZZ010603	400	=SET{LOGIN_ID=_LOGIN_ID_ADMIN};
ZZZZ010603	500	H+|P+|I+=SET{LOGIN_ID@TYPE2='L'};
ZZZZ010603	600	W+=SET{WC.DQ='"'};
ZZZZ010603	700	W-=SET{WC.DQ=};
ZZZZ010603	800	O+|P+FORM= ★注意★このRDBMSは動きません！！！
ZZZZ010603	900	*FORM=          CHECK @@ (SERVER,PERMISSION,USER(UI))
ZZZZ010603	1000	*FORM= ADMIN LOGIN_ID @@@@@@@@@@@@@@@@@@@@
ZZZZ010603	1100	*DATA=CHECK{2}
ZZZZ010603	1200	*=IF{_PERMISSION!='ZZZZ'}ERROR{_PERMISSION!='ZZZZ'};
ZZZZ010603	1300	*=IF{_SERVER!=_COMPUTER}ERROR{_COMPUTER!='?_SERVER?'};
ZZZZ010603	1400	I+W-=SET{WC.ROOT='ROOT'};
ZZZZ010603	1500	I+W-=IF{_USER!=WC.ROOT@LOWER}ERROR{_USER!='?WC.ROOT@LOWER?'};
ZZZZ010603	1600	DATA=LOGIN_ID{14}
ZZZZ010603	1700	=SET{_LOGIN_ID=LOGIN_ID};
ZZZZ010603	1800	FORM= ADMIN PASSWORD
ZZZZ010603	1900	FORM=@
ZZZZ010603	2000	DATA=PASSWORD_ADMIN{80,,!,*}ADMIN_PASWORD
ZZZZ010603	2100	=SET{_LOGIN_PASSWORD=PASSWORD_ADMIN};
ZZZZ010603	2200	=IF_ERROR_LOGIN_SQL{SELECT ?_NOW0? ?_FROM_DUAL?}ERROR{};
ZZZZ010603	2300	PROGRAM=,&X1,?_MM?_ETC_TABLE
ZZZZ010603	2400	CONTROL=SCROLL,0,SQL_LOGIN
ZZZZ010603	2500	BEGIN
ZZZZ010603	2600	=SET{.SYSTEM_KEY1='ZZZZZZ_RESTORE'};
ZZZZ010603	2700	START
ZZZZ010603	2900	=SET{WC.DB='I_'+_SYSTEM
ZZZZ010603	3000	D-I-= +'_'+SYSTEM_KEY2[15;1]+'_'+SYSTEM_KEY2[16;1]+'_'
ZZZZ010603	3010	=   };
ZZZZ010603	3200	=SET{WC.D2=WC.DB
ZZZZ010603	3400	D-I-=   +SYSTEM_KEY2[17]
ZZZZ010603	3600	=   +'('+SYSTEM_KEY2[1;4]+'-'+SYSTEM_KEY2[5;2]+'-'
ZZZZ010603	3700	=   +SYSTEM_KEY2[7;2] +' '+SYSTEM_KEY2[9;2]+':'
ZZZZ010603	3800	=   +SYSTEM_KEY2[11;2]+':'+SYSTEM_KEY2[13;2]+')'};
ZZZZ010603	3810	=SET{WC.DB+=.SYSTEM_ETC};
ZZZZ010603	3820	L+=SET{WC.DB=WC.DB@LOWER};
ZZZZ010603	3900	=SET{WC.SYSTEM_PERMISSION=SYSTEM_KEY2[17]};
ZZZZ010603	4000	=IF{WC.SYSTEM_PERMISSION!='ZZZZ'}
ZZZZ010603	4100	=   IF{WC.SYSTEM_PERMISSION!=_PERMISSION}
ZZZZ010603	4200	=   IF{_PERSON!='ZZZZZZZZ'}
ZZZZ010603	4300	=   ERROR{_PERMISSION!='?WC.SYSTEM_PERMISSION?'};
ZZZZ010603	4400	SET={KO}.?&.SET&SYSTEM_KEY1?
ZZZZ010603	4500	DATA={K}?&.DATA&SYSTEM_KEY2?
ZZZZ010603	4600	DATA=   .SYSTEM_ETC{4}
ZZZZ010603	4700	COPY=@ZZZZZZ_SQL
ZZZZ010603	4800	PROGRAM=OUTPUT
ZZZZ010603	4900	*DICTIONARY=PERMISSION,WORK_X
ZZZZ010603	4910	*DICTIONARY=KIND,NAME,USER_X
ZZZZ010603	4920	DICTIONARY=SYSTEM_NAME
ZZZZ010603	5000	CONTROL=0,2,3,PROGRAM,SCROLL,SQL_LOGIN,RESTORE_DB
ZZZZ010603	5100	*JOB_PERMISSION=?$WC.PERMISSION?
ZZZZ010603	5200	BEGIN
ZZZZ010603	5300	=SET{_RESTORE_DB=$.SYSTEM_ETC};
ZZZZ010603	5400	*=SET{PERMISSION=$WC.PERMISSION};
ZZZZ010603	5500	=SET{DB=$WC.DB,D2=$WC.D2};
ZZZZ010603	5600	=SET{XX.COUNT=1000,XX.Z='C',XX.SCROLL='SCROLL'};
ZZZZ010603	5700	*%TEST+=SET{WN.REAL='TEST'};
ZZZZ010603	5800	*%TEST-=SET{WN.REAL='REAL'};
ZZZZ010603	5900	*=SET{WDBX=_M_?WN.REAL?+'ZZ'};
ZZZZ010603	6000	*=SET{WN.M_W1='M',WN.M_W2='W'};
ZZZZ010603	6100	SET={O,*}DB{19}
ZZZZ010603	6200	SET={O,*}D2{50}
ZZZZ010603	6300	SET=.SYSTEM_NAME{70}
ZZZZ010603	6400	*SET={O,*}?&DATA&PERMISSION?
ZZZZ010603	6700	*CHECK2=AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010603	6800	SET={,*}XX.Z{1,1}Z_DISPLAY
ZZZZ010603	6900	JA+TITLE=Z_表示
ZZZZ010603	7000	CHECK2=C,Z_CANCEL ONLY,N,Z.. NOT,Y,Z_...ALL DISPLAY
ZZZZ010603	7100	SET={,*}XX.SCROLL{6,}{,SCROLL};
ZZZZ010603	7200	SET={,*,80}XX.COUNT{5,,+}
ZZZZ010603	7300	JA+TITLE=件数
ZZZZ010603	7400	SET={,*}XX.PSQL1{}
ZZZZ010603	7500	JA+TITLE=SQL+
ZZZZ010603	7600	SET={,*}XX.PSQL2{}
ZZZZ010603	7700	JA+TITLE=SQL+
ZZZZ010603	7800	SET={,*}XX.PSQL3{}
ZZZZ010603	7900	JA+TITLE=SQL+
ZZZZ010603	8000	START
ZZZZ010603	8100	*SET{%XX.Z='+'};IF{XX.Z='Y'}SET{%XX.Z='-'};
ZZZZ010603	8200	*SET{%C='+'};IF{XX.Z='C',='Y'}SET{%C='-'};
ZZZZ010603	8300	=SET{WN.SYSTEM_NAME=
ZZZZ010603	8400	D-I-=   $WC.DB
ZZZZ010603	8500	D-I+=   .SCHEMA
ZZZZ010603	8600	D-M+=   +'.DBO'
ZZZZ010603	8700	D-=   +'.'+
ZZZZ010603	8710	=   SYSTEM_NAME};
ZZZZ010603	8800	*=SET{WN.DBO_INP_USR='SQL_DBO'};
ZZZZ010603	8900	*=IF{.WORK_X='MAST'}
ZZZZ010603	9100	*=  JUMP{OK};
ZZZZ010603	9200	*=SET{WN.INP_OUT='INP'};
ZZZZ010603	9300	*=IF{.USER_X='O'}SET{WN.INP_OUT='O'};
ZZZZ010603	9400	*=IF{.USER_X!=}  SET{WN.DBO_INP_USR='SQL_'+.USER_X};
ZZZZ010603	9500	*=IF{.USER_X='I'}SET{WN.DBO_INP_USR=};
ZZZZ010603	9600	*=SET{_REAL_TEST=WN.REAL};
ZZZZ010603	9800	*=SET{_REAL_TEST='REAL'};
ZZZZ010603	9900	*=OK:IF{_START=1}JUMP{DROP};
ZZZZ010603	10000	*=SET{WDB=_M_?WN.REAL?};
ZZZZ010603	10200	=RESTORE_DB_LOGIN_SQL_REPEAT{WN.COL,WC.LEN,WC.LEN2,WC.TYPE}
ZZZZ010603	10210	=  {SELECT
ZZZZ010603	10300	M+=   ?_T?.NAME
ZZZZ010603	10310	M+=   ,CAST(CASE WHEN X3.NAME IN('BINARY','CHAR'
ZZZZ010603	10400	M+=   ,'VARCHAR','DECIMAL','NCHAR','NVARCHAR'
ZZZZ010603	10500	M+=   ,'NUMERIC') THEN CASE ?_T?.PRECISION WHEN 0 THEN CASE
ZZZZ010603	10600	M+=   WHEN ?_T?.MAX_LENGTH<=0 THEN 4000 ELSE CASE WHEN
ZZZZ010603	10700	M+=   X3.NAME IN('NCHAR','NVARCHAR')
ZZZZ010603	10710	M+=   THEN ?_T?.MAX_LENGTH/2
ZZZZ010603	10800	M+=   ELSE ?_T?.MAX_LENGTH END END ELSE ?_T?.PRECISION+1 END
ZZZZ010603	10900	M+=   WHEN X3.NAME='DATETIME' THEN 17
ZZZZ010603	10910	M+=   WHEN X3.NAME='DATE'
ZZZZ010603	11000	M+=   THEN 8 WHEN X3.NAME='TEXT' THEN 4000
ZZZZ010603	11010	M+=   ELSE 9 END AS INT)
ZZZZ010603	11100	M+=   ,CAST(CASE WHEN X3.NAME IN('DECIMAL','NUMERIC')
ZZZZ010603	11200	M+=    THEN ?_T?.SCALE ELSE 0 END AS INT)
ZZZZ010603	11300	M+=   ,CASE WHEN X3.NAME IN('INT','DECIMAL','NUMERIC')
ZZZZ010603	11400	M+=   THEN '-' ELSE ' ' END
ZZZZ010603	11500	M+=   FROM ?$WC.DB?.SYS.COLUMNS ?_T?
ZZZZ010603	11600	M+=   INNER JOIN ?$WC.DB?.SYS.OBJECTS X2
ZZZZ010603	11700	M+=   ON X2.OBJECT_ID=?_T?.OBJECT_ID
ZZZZ010603	11800	M+=   INNER JOIN ?$WC.DB?.SYS.TYPES X3
ZZZZ010603	11900	M+=   ON X3.USER_TYPE_ID=?_T?.USER_TYPE_ID
ZZZZ010603	12000	M+=   WHERE X2.NAME='?SYSTEM_NAME?'
ZZZZ010603	12100	M+=   ORDER BY COLUMN_ID
ZZZZ010603	12200	L+=   UPPER(COLUMN_NAME),CAST(CASE UPPER(DATA_TYPE)
ZZZZ010603	12300	L+=   WHEN 'DECIMAL' THEN NUMERIC_PRECISION
ZZZZ010603	12400	L+=   WHEN 'DATETIME' THEN 17  WHEN 'TIMESTAMP' THEN 17
ZZZZ010603	12500	L+=   WHEN 'DATE' THEN 8 ELSE CASE
ZZZZ010603	12600	L+=   WHEN CHARACTER_MAXIMUM_LENGTH IS NULL THEN 9
ZZZZ010603	12800	L+=   WHEN CHARACTER_MAXIMUM_LENGTH>4000 THEN 4000
ZZZZ010603	12900	L+=   ELSE CHARACTER_MAXIMUM_LENGTH END END AS SIGNED)
ZZZZ010603	13000	L+=   ,CAST(CASE UPPER(DATA_TYPE)
ZZZZ010603	13100	L+=   WHEN 'DECIMAL' THEN NUMERIC_SCALE ELSE 0 END AS SIGNED)
ZZZZ010603	13200	L+=   ,CAST(CASE WHEN UPPER(DATA_TYPE) IN('DECIMAL','INT')
ZZZZ010603	13300	L+=   THEN '-' ELSE ' ' END AS CHAR(1))
ZZZZ010603	13400	L+=   FROM INFORMATION_SCHEMA.COLUMNS
ZZZZ010603	13500	L+=   WHERE TABLE_SCHEMA=LOWER('?$WC.DB?')
ZZZZ010603	13600	L+=   AND UPPER(TABLE_NAME)='?SYSTEM_NAME?'
ZZZZ010603	13700	L+=   ORDER BY ORDINAL_POSITION
ZZZZ010603	13800	I+=   NAME
ZZZZ010603	13810	I+=   ,CAST(CASE COLTYPE WHEN 'DECIMAL' THEN LENGTH
ZZZZ010603	13900	I+=   WHEN 'CHAR'    THEN  LENGTH
ZZZZ010603	14100	I+=   WHEN 'VARCHAR' THEN  LENGTH
ZZZZ010603	14300	I+=   WHEN 'TEXT' THEN 4000 WHEN 'CLOB' THEN 40000
ZZZZ010603	14400	I+=   WHEN 'TIMESTMP' THEN 17 WHEN 'DATE' THEN 8 ELSE 9 END
ZZZZ010603	14410	I+=   AS INT)
ZZZZ010603	14600	I+=   ,CAST(CASE COLTYPE WHEN 'DECIMAL' THEN SCALE
ZZZZ010603	14610	I+=     ELSE 0 END AS INT)
ZZZZ010603	14900	I+=   ,CAST(CASE WHEN COLTYPE IN('DECIMAL','INT')
ZZZZ010603	15000	I+=   THEN '-' ELSE ' ' END AS CHAR(1))
ZZZZ010603	15100	I+=   FROM SYSIBM.SYSCOLUMNS
ZZZZ010603	15200	I+=   WHERE TBCREATOR='?.SCHEMA?'
ZZZZ010603	15300	I+=   AND TBNAME='?.SYSTM_NAME?'
ZZZZ010603	15400	I+=   ORDER BY COLNO
ZZZZ010603	15407	D+=   C.RDB$FIELD_NAME,CAST(CASE WHEN F.RDB$FIELD_PRECISION>
ZZZZ010603	15414	D+=   0 THEN F.RDB$FIELD_PRECISION ELSE CASE RDB$TYPE_NAME
ZZZZ010603	15421	D+=   WHEN 'LONG' THEN 9 WHEN 'SHORT' THEN 9
ZZZZ010603	15428	D+=   WHEN 'FLOAT' THEN 9 WHEN 'DATE'  THEN 8
ZZZZ010603	15435	D+=   WHEN 'TIMESTAMP' THEN 17 ELSE CASE
ZZZZ010603	15442	D+=   RDB$CHARACTER_SET_NAME WHEN 'NONE' THEN
ZZZZ010603	15443	D+=   F.RDB$FIELD_LENGTH ELSE F.RDB$FIELD_LENGTH/4 END END
ZZZZ010603	15444	D+=   END AS INT)
ZZZZ010603	15449	D+=   ,CAST(CASE WHEN F.RDB$FIELD_PRECISION>0 THEN
ZZZZ010603	15456	D+=   0-F.RDB$FIELD_SCALE ELSE 0 END AS INT)
ZZZZ010603	15463	D+=   ,CAST(CASE WHEN RDB$TYPE_NAME IN('LONG','SHORT')
ZZZZ010603	15470	D+=   THEN '-' ELSE ' ' END AS CHAR(1))
ZZZZ010603	15477	D+=   FROM RDB$RELATION_FIELDS C
ZZZZ010603	15478	D+=   INNER JOIN RDB$FIELDS F ON
ZZZZ010603	15479	D+=   F.RDB$FIELD_NAME=C.RDB$FIELD_SOURCE
ZZZZ010603	15480	D+=   INNER JOIN RDB$TYPES TY ON
ZZZZ010603	15481	D+=   TY.RDB$TYPE=F.RDB$FIELD_TYPE
ZZZZ010603	15482	D+=   AND TY.RDB$FIELD_NAME='RDB$FIELD_TYPE'
ZZZZ010603	15483	D+=   INNER JOIN RDB$CHARACTER_SETS S ON
ZZZZ010603	15484	D+=   (S.RDB$CHARACTER_SET_ID=F.RDB$CHARACTER_SET_ID OR
ZZZZ010603	15485	D+=    S.RDB$CHARACTER_SET_ID=0
ZZZZ010603	15486	D+=    AND F.RDB$CHARACTER_SET_ID IS NULL)
ZZZZ010603	15491	D+=   WHERE RDB$RELATION_NAME='?SYSTEM_NAME?'
ZZZZ010603	15498	D+=   ORDER BY RDB$FIELD_POSITION
ZZZZ010603	15500	=   };
ZZZZ010603	15600	=IF{_SQL_REPEAT_COUNT=0}ERROR{COLUMN NOT FOUND};
ZZZZ010603	15700	=SET{W0.COUNT=_SQL_REPEAT_COUNT};
ZZZZ010603	15800	*=IF{&X.Z_CANCEL=0}SET{%XX.Z='+',%C='+'};
ZZZZ010603	15900	*=SET{W0.C=1};
ZZZZ010603	16000	*=LOOP:IF{W0.C>&X.ALL_COUNT}JUMP{END};
ZZZZ010603	16100	*=SET{WN=&X.ALL_?W0.C?};
ZZZZ010603	16200	*=SET{WN.DATA?W0.C?=&X.DATA&?WN?,WN.K?W0.C?=&X.KEY&?WN?};
ZZZZ010603	16300	*=SET{WN.NAME?W0.C?=WN};
ZZZZ010603	16400	*=COMPUTE{W0.C+=1};BACK{LOOP};
ZZZZ010603	16500	*=END:
ZZZZ010603	16600	*=IF{.USER_X!=}  SET{WN.DBO_INP_USR='SQL_'+.USER_X};
ZZZZ010603	16700	*=IF{.USER_X='I'}SET{WN.DBO_INP_USR=};
ZZZZ010603	16800	*=EXIT{};
ZZZZ010603	16900	*=DROP:
ZZZZ010603	17000	*=IF{.KIND!='TABLE'}ERROR{DROP ERROR(NOT TABLE)};
ZZZZ010603	17100	*=IF{.WORK_X!='WORK'}ERROR{DROP ERROR(NOT WORK)};
ZZZZ010603	17200	*=IF{_PERMISSION!=PERMISSION}
ZZZZ010603	17300	*=  IF{_PERMISSION!='ZZZZ'}ERROR{DROP ERROR(PERMISSION)};
ZZZZ010603	17400	DATA=?&DATA&SYSTEM_NAME?
ZZZZ010603	17500	I+DATA=.SCHEMA{19}
ZZZZ010603	17600	*DATA=.?&DATA&KIND?
ZZZZ010603	17700	*DATA=.?&DATA&WORK_X?
ZZZZ010603	17800	*DATA={A}.?&DATA&USER_X?
ZZZZ010603	17900	*DATA=.ADD_DATE17{23,,T}
ZZZZ010603	18000	*JA+TITLE=作成日
ZZZZ010603	18100	*DATA=.CHANGE_DATE17{23,,T}
ZZZZ010603	18200	*JA+TITLE=変更日
ZZZZ010603	18300	SQL=SELECT
ZZZZ010603	18400	M+SQL=   NAME FROM ?$WC.DB?.SYS.SYSOBJECTS
ZZZZ010603	18500	L+SQL=   UPPER(TABLE_NAME) FROM INFORMATION_SCHEMA.TABLES
ZZZZ010603	18600	I+SQL=   NAME,CREATOR FROM SYSIBM.SYSTABLES
ZZZZ010603	18610	D+SQL=   RDB$RELATION_NAME FROM RDB$RELATIONS
ZZZZ010603	18700	REPEAT=_WHERE_COUNT
ZZZZ010603	18800	SQL=   ?_WHERE##?
ZZZZ010603	18900	REPEAT=
ZZZZ010603	19000	M+SQL=   ?_WHERE_AND? XTYPE='U'
ZZZZ010603	19100	L+SQL=   ?_WHERE_AND? TABLE_SCHEMA=LOWER('?$WC.DB?')
ZZZZ010603	19200	I+SQL=   ?_WHERE_AND? CREATOR LIKE 'I_?_SYSTEM?%'
ZZZZ010603	19220	D+SQL=   ?_WHERE_AND? RDB$RELATION_NAME NOT LIKE '%$%'
ZZZZ010603	19300	SQL=   ORDER BY 1
ZZZZ010603	19400	I+SQL=   ,2
ZZZZ010603	19500	PROGRAM=OUTPUT
ZZZZ010603	19600	*CONTROL=ERROR_SQL,ERROR,?$XX.SCROLL?,?$WN.DBO_INP_USR?
ZZZZ010603	19700	CONTROL=ERROR_SQL,ERROR,?$XX.SCROLL?,SQL_LOGIN,RESTORE_DB
ZZZZ010603	19800	*%TEST+CONTROL=SQL_TEST
ZZZZ010603	19900	*JOB_PERMISSION=?_PERMISSION?
ZZZZ010603	20000	*JOB_PERMISSION=?$WC.PERMISSION?
ZZZZ010603	20100	BEGIN
ZZZZ010603	20110	=SET{.SYSTEM_NAME=$SYSTEM_NAME};
ZZZZ010603	20200	=SET{_RESTORE_DB=$.SYSTEM_ETC};
ZZZZ010603	20300	=SET{_SQL_LIMIT=XX.COUNT};
ZZZZ010603	20400	REPEAT=?$W0.COUNT?
ZZZZ010603	20500	*=IF{?$WN.NAME##?@TYPE2='*'}
ZZZZ010603	20600	*=   SET{?$WN.NAME##?@TYPE2=}; 非表示無視*
ZZZZ010603	20700	REPEAT=
ZZZZ010603	20800	SET={O}$XX.COUNT{5,,+}
ZZZZ010603	20900	JA+TITLE=件数
ZZZZ010603	21000	*SET={O,S0}$.?$&SET&WORK_X?
ZZZZ010603	21100	SET={O,S0,80}.?$&SET&SYSTEM_NAME?
ZZZZ010603	21200	SET=$XX.PSQL1{}
ZZZZ010603	21300	JA+TITLE=SQL+
ZZZZ010603	21400	SET=$XX.PSQL2{}
ZZZZ010603	21500	JA+TITLE=SQL+
ZZZZ010603	21600	SET=$XX.PSQL3{}
ZZZZ010603	21700	JA+TITLE=SQL+
ZZZZ010603	21800	*%C-DATA=Z_CANCEL{17,,T}
ZZZZ010603	21900	*%XX.Z-DATA=Z_CANCEL_PERSON{8}
ZZZZ010603	22000	*%XX.Z-DATA=Z_CHANGE{17,,T}
ZZZZ010603	22100	*%XX.Z-DATA=Z_CHANGE_PERSON{8}
ZZZZ010603	22200	*%XX.Z-DATA=Z_ADD{17,,T}
ZZZZ010603	22300	*%XX.Z-DATA=Z_ADD_PERSON{8}
ZZZZ010603	22400	*%XX.Z-DATA=Z_LAST_JOB{10}
ZZZZ010603	22500	*%XX.Z-DATA=Z_LAST_COMPUTER{15}
ZZZZ010603	22600	REPEAT=?$W0.COUNT?
ZZZZ010603	22700	DATA=?$WN.COL##?{?$WC.LEN##?,?$WC.LEN2##?,?$WC.TYPE##?}
ZZZZ010603	22800	REPEAT=
ZZZZ010603	22900	SQL=SELECT ?_DATA_ALL_SQL? FROM ?$WN.SYSTEM_NAME? ?_T?
ZZZZ010603	23000	SQL=   ?XX.PSQL1? ?XX.PSQL2? ?XX.PSQL3?
ZZZZ010614	100	PROGRAM=NOT
ZZZZ010614	200	BEGIN_END
ZZZZ010614	300	NAME=DROP_TABLE_WORK
ZZZZ010614	400	REPEAT=?_A_A?
ZZZZ010614	500	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010614	600	REPEAT=
ZZZZ010614	700	NAME= (DROP_TABLE_WORK)
ZZZZ010614	800	BEGIN
ZZZZ010614	900	=CREATE_TABLE0{?_WORK_TABLE?A,PERMISSION,C,4,REAL_TEST,C,4}
ZZZZ010614	1000	=   {DBO,C,3,INP,C,3,OUT,C,3};
ZZZZ010614	1100	FORM= @ パスワードが正しいか確認のための接続テストをします。
ZZZZ010614	1200	FORM= ( 注意:リンクパスワードは確認出来ません）
ZZZZ010614	1300	DATA=A{}
ZZZZ010614	1310	=SQL{DELETE FROM ?_WORK_TABLE?A};
ZZZZ010614	1400	=SET{WN.SQL='SELECT 0 ?_FROM_DUAL?'};
ZZZZ010614	1500	REPEAT0=@ZZZZZZ_PERMISSION_COUNT
ZZZZ010614	1600	=SET{WC.PERMISSION=@ZZZZZZ_PERMISSION_NO$$};
ZZZZ010614	1700	=SET{WC.REAL_TEST='REAL'};
ZZZZ010614	1800	REPEAT=2
ZZZZ010614	1900	=SET{_JOB_PERMISSION=WC.PERMISSION};
ZZZZ010614	2000	=SET{_REAL_TEST=WC.REAL_TEST};
ZZZZ010614	2100	=SET{WC.DBO='OK',WC.INP='OK',WC.OUT='OK'};
ZZZZ010614	2200	=IF_ERROR_DBO_SQL{?WN.SQL?}SET{WC.DBO='ERR'};
ZZZZ010614	2300	=IF_ERROR_SQL{    ?WN.SQL?}SET{WC.INP='ERR'};
ZZZZ010614	2400	=IF_ERROR_OUT_SQL{?WN.SQL?}SET{WC.OUT='ERR'};
ZZZZ010614	2500	=SET{_JOB_PERMISSION='ZZZZ',_REAL_TEST='REAL'};
ZZZZ010614	2600	=PROGRAM{2,?_WORK_TABLE?A,WC.DBO,WC.INP,WC.OUT}
ZZZZ010614	2700	=  {WC.PERMISSION,WC.REAL_TEST}{};
ZZZZ010614	2800	=SET{WC.REAL_TEST='TEST'};
ZZZZ010614	2900	REPEAT0=
ZZZZ010614	3000	PROGRAM=INPUT,&X1,?_WORK_TABLE?A
ZZZZ010614	3100	DATA=?&.DATA&PERMISSION?
ZZZZ010614	3200	DATA=?&.DATA&REAL_TEST?
ZZZZ010614	3300	DATA=?&.DATA&DBO?
ZZZZ010614	3400	DATA=?&.DATA&INP?INPUT
ZZZZ010614	3500	DATA=?&.DATA&OUT?OUTPUT
ZZZZ010614	3600	COPY=@ZZZZZZ_SQL
ZZZZ010614	3700	=IF{DBO='ERR'}SET{DBO@COLOR='R'};
ZZZZ010614	3800	=IF{INP='ERR'}SET{INP@COLOR='R'};
ZZZZ010614	3900	=IF{OUT='ERR'}SET{OUT@COLOR='R'};
ZZZZ010616	100	PROGRAM=OUTPUT
ZZZZ010616	200	BEGIN_END
ZZZZ010616	300	NAME=DROP_TABLE_WORK
ZZZZ010616	400	REPEAT=?_A_A?
ZZZZ010616	500	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010616	600	REPEAT=
ZZZZ010616	700	NAME= (DROP_TABLE_WORK)
ZZZZ010616	800	BEGIN
ZZZZ010616	900	=CREATE_TABLE{?_WORK_TABLE?A,KEY1,23}{};
ZZZZ010616	1000	=SET{WN=_ENCODE,W0=1};
ZZZZ010616	1100	=SPLIT_CHAR{WN}{WN}{','};
ZZZZ010616	1200	=LOOP:SET{WN.KEY1=WN?W0?};
ZZZZ010616	1300	=PROGRAM{2E,?_WORK_TABLE?A}{WN.KEY1}{};
ZZZZ010616	1400	=IF{W0<_SPLIT_CHAR_COUNT}COMPUTE{W0+=1}BACK{LOOP};
ZZZZ010616	1500	DATA=KEY1{23}エンコード
ZZZZ010616	1600	SQL=SELECT KEY1 FROM ?_WORK_TABLE?A ORDER BY 1
ZZZZ010618	100	PROGRAM=,&X1,?_MM?_PACKAGE_DEFAULT_TABLE
ZZZZ010618	102	TABLE=&X2,?_MM?_ETC_TABLE
ZZZZ010618	110	SET={K,#&X2}.?&.DATA&SYSTEM_PERMISSION?
ZZZZ010618	200	SET={}.?&.SET&SYSTEM_PACKAGE?
ZZZZ010618	300	SET={}.?&.SET&SYSTEM_NAME?
ZZZZ010618	400	SET={}.?&.SET&SYSTEM_LANG?
ZZZZ010618	500	DATA={K }?&.DATA&SYSTEM_PACKAGE?
ZZZZ010618	600	DATA={K }?&.DATA&SYSTEM_NAME?
ZZZZ010618	700	DATA={K }?&.DATA&SYSTEM_LANG?
ZZZZ010618	800	DATA={  }?&.DATA&SYSTEM_TITLE?
ZZZZ010618	900	DATA={  }?&.DATA&SYSTEM_DEFAULT_TYPE?
ZZZZ010618	1000	DATA={  }?&.DATA&SYSTEM_DEFAULT_LENGTH1?
ZZZZ010618	1100	DATA={  }?&.DATA&SYSTEM_DEFAULT_LENGTH2?
ZZZZ010618	1200	DATA={  }?&.DATA&SYSTEM_TYPE1?
ZZZZ010618	1300	DATA={  }?&.DATA&SYSTEM_LENGTH1?
ZZZZ010618	1400	DATA={  }?&.DATA&SYSTEM_LENGTH2?
ZZZZ010618	1500	COPY=@ZZZZZZ_SQL
ZZZZ010620	100	MINUS=%GRAMMAR_CHECK
ZZZZ010620	200	PROGRAM=NOT
ZZZZ010620	300	BEGIN
ZZZZ010620	400	=SET{_TRACE=0};
ZZZZ010620	500	=SET{BEGIN.SYSTEM_JOB='ZZZZ010101'};
ZZZZ010620	600	=SET{  END.SYSTEM_JOB='ZZZZ999999'};
ZZZZ010620	610	*SET{WC.COMMA_SW=0}; エラー回避*
ZZZZ010620	700	FORM=プログラムの文法を確認します。
ZZZZ010620	800	FORM=処理に時間ががかかります。
ZZZZ010620	900	FORM=(部分的な文法確認で動作を保証する物ではありません）
ZZZZ010620	1000	FORM= 開始ジョブ名 @
ZZZZ010620	1100	DATA=BEGIN.SYSTEM_JOB{10};
ZZZZ010620	1200	FORM= 終了ジョブ名 @
ZZZZ010620	1300	DATA=END.SYSTEM_JOB{10};
ZZZZ010621	100	PROGRAM=NOT
ZZZZ010621	200	BEGIN
ZZZZ010621	300	=SET{SSID=!ZZZZZZ_SSID};
ZZZZ010621	400	=IF{SSID=}SET{SSID=_COMPUTER_NAME};
ZZZZ010621	500	FORM=PCを無線LANの親機に設定します。
ZZZZ010621	600	FORM=★注意★再起動すると設定が消えてしまうので、再実行する
ZZZZ010621	700	FORM2=必要があります。
ZZZZ010621	800	FORM=★依頼★
ZZZZ010621	900	FORM= [ユーザーアカウント]の[この不明な発行元からのア
ZZZZ010621	1000	FORM2=プリがPCに加えることを許可しますか？]
ZZZZ010621	1100	FORM= [プログラム名:　IROOT?_OS?4.EXE]を[はい]で
ZZZZ010621	1200	FORM2=許可してください。
ZZZZ010621	1300	FORM=     SSID @ [A-Z_]
ZZZZ010621	1400	DATA=SSID{20,1,N,}
ZZZZ010621	1500	=SET{!ZZZZZZ_SSID=SSID};
ZZZZ010621	1600	FORM= START は開始　STOPは停止します。　@
ZZZZ010621	1700	DATA=START_STOP{6}{START,STOP}
ZZZZ010621	1800	=IF{_DATA='STOP'}EXIT{RUN};
ZZZZ010621	1900	FORM=PASSWORD1 @ [?_L(A-Z)?_](８文字以上,英字は小文字を使えま
ZZZZ010621	1920	FORM2=す)
ZZZZ010621	2000	DATA=PASSWORD1{32,8,N,#}
ZZZZ010621	2100	FORM=PASSWORD2 @
ZZZZ010621	2200	DATA=PASSWORD2{32,8,N,#}
ZZZZ010621	2300	=IF{_DATA!=PASSWORD1}ERROR{PASSWORD1!=PASSWORD2};
ZZZZ010621	2400	FORM=[ENTER]で実行します。@
ZZZZ010621	2500	DATA=RUN{1}
ZZZZ010621	2600	=IF_ERROR_WRITE_OPEN{1,?_TMP??_WORK?_1.BAT,OT,/}ERROR{};
ZZZZ010621	2700	=WRITE{1,'@ECHO OFF'};
ZZZZ010621	2800	=IF{START_STOP='STOP'}JUMP{STOP};
ZZZZ010621	2900	=SET{WC='NETSH WLAN SET HOSTEDNETWORK MODE=ALLOW SSID='
ZZZZ010621	3000	=   +SSID+' KEY='};
ZZZZ010621	3100	=WRITE{1,'ECHO ?WC?********'};
ZZZZ010621	3200	=WRITE{1,'?WC??PASSWORD1?'};
ZZZZ010621	3300	=STOP:
ZZZZ010621	3400	=SET{WC='NETSH WLAN ?START_STOP? HOSTEDNETWORK'};
ZZZZ010621	3500	=WRITE{1,'ECHO ?WC?'};
ZZZZ010621	3600	=WRITE{1,WC};
ZZZZ010621	3700	=WRITE{1,'ECHO エラーを確認し[ENTER]を押してください。'};
ZZZZ010621	3800	=WRITE{1,'PAUSE >NUL'};
ZZZZ010621	3900	=WRITE_CLOSE{1};
ZZZZ010621	3910	*=IF_ERROR_WRITE_OPEN{2,?_TMP??_WORK?_2.BAT,OT,/}ERROR{};
ZZZZ010621	3912	*=SET{W='?_I??_IV?ROOT?_OS??_FRAMEWORK?.EXE'
ZZZZ010621	3913	*=   +' ?_TMP??_WORK?_1.BAT'};
ZZZZ010621	3914	*=WRITE{2,W};WRITE_CLOSE{2};
ZZZZ010621	4000	*=COMMAND{?_TMP??_WORK?_2.BAT};
ZZZZ010621	4010	=COMMAND{CALL ?_I?IROOT?_OS??_FRAMEWORK?.EXE
ZZZZ010621	4020	=   ?_TMP??_WORK?_1.BAT};
ZZZZ010621	4200	=ERASE_FILE{?_WORK?.BAT};
ZZZZ010621	4300	FORM=PCが無線LAN親機となりましたが,このままではインターネット
ZZZZ010621	4400	FORM2=  には繋がりません。
ZZZZ010621	4500	FORM=PCがインターネットに繋がっている場合は繋がっている
ZZZZ010621	4600	FORM2=ネットワークで
ZZZZ010621	4700	FORM=  新しいネットワークへの共有を設定します。
ZZZZ010621	4800	FORM= 尚、この設定は再起動しても再実行する必要は有りません。
ZZZZ010621	4900	FORM= 1 [スタート]上で右クリックします。
ZZZZ010621	5000	FORM= 2 [コントロールパネル]をクリックします。
ZZZZ010621	5100	FORM= 3 [ネットワークの状態とタスクの表示]クリックします。
ZZZZ010621	5200	FORM= 4 今回登録したSSIDを持つネットワークの接続の右の名前を
ZZZZ010621	5300	FORM=   記憶します。
ZZZZ010621	5400	FORM= 5 [アクセスの種類]が[インターネット]となっている
ZZZZ010621	5500	FORM=   ネットワークの[接続]の右の名前をクリックします。
ZZZZ010621	5600	FORM= 6 [プロパティ]で[共有]をクリックします。
ZZZZ010621	5700	FORM= 7 [ネットワークの他のユーザーに、...]にレ印を付け
ZZZZ010621	5800	FORM=   [ホームネットワーク接続]で記憶した接続名を選びます。
ZZZZ010621	5900	FORM= 8 該当のネットワークの[アクセスの種類]が[インターネット
ZZZZ010621	6000	FORM2=]になっていれば成功です。
ZZZZ010621	6100	FORM= "END"[ENTER]で終了します。@
ZZZZ010621	6200	DATA=END{4}{END,}
ZZZZ010621	6300	=IF{_DATA='END'}EXIT{0};
ZZZZ010621	6400	=EXIT{END};
ZZZZ010623	100	PROGRAM=NOT
ZZZZ010623	200	FORM=★注意★WINDOWSのみ動きます。
ZZZZ010623	300	FORM=I言語を動かすサーバーはIPが変動すると問題が出る場合が
ZZZZ010623	400	FORM2=有るので、
ZZZZ010623	500	FORM=  IPアドレスを固定化する事をお勧めします。
ZZZZ010623	600	FORM=1.[ENER]で準備処理を実行します。@
ZZZZ010623	700	DATA=INIT{1}
ZZZZ010623	800	=COMMAND{IPCONFIG /ALL > ?_TMP??_WORK?.TXT};
ZZZZ010623	900	=IF_ERROR_READ_OPEN{1,?_TMP??_WORK?.TXT,/}ERROR{};
ZZZZ010623	1000	=SET{W0.CNT=0,WC.SW=,WN.FIX=};
ZZZZ010623	1100	=READ_NEXT:READ_NEXT{1,}JUMP{READ_END};
ZZZZ010623	1200	=SPLIT_CHAR{WC}{_READ_DATA}{':'};
ZZZZ010623	1300	=IF{_READ_DATA/'イーサネット アダプター'}
ZZZZ010623	1310	=   SET{W0.LEN=14}JUMP{ST};
ZZZZ010623	1320	=IF{_READ_DATA@UPPER/'WIRELESS LAN ADAPTER'}
ZZZZ010623	1330	=   SET{W0.LEN=21}JUMP{ST};
ZZZZ010623	1400	=IF{WN.FIX=}BACK{READ_NEXT};
ZZZZ010623	1500	=SPLIT_CHAR{WC}{_READ_DATA}{':'};
ZZZZ010623	1600	=SET{WN=WC?_SPLIT_CHAR_COUNT?@TRIM};
ZZZZ010623	1700	=IF{_READ_DATA@UPPER/'   IPV4 アドレス'}JUMP{IP};
ZZZZ010623	1800	=IF{_READ_DATA/'   サブネット マスク'}
ZZZZ010623	1900	=   SET{WC.SUB=WN}BACK{READ_NEXT};
ZZZZ010623	2000	=IF{_READ_DATA/'   デフォルト ゲートウェイ'}
ZZZZ010623	2100	=   SET{WC.SW='GTW'}JUMP{SP};
ZZZZ010623	2200	=IF{_READ_DATA/'   DNS サーバー'} SET{WC.SW='DNS1'}JUMP{SP};
ZZZZ010623	2300	=IF{_READ_DATA/'   DHCP 有効'}JUMP{DHCP};
ZZZZ010623	2400	=IF{_READ_DATA/'                                 '}JUMP{SP};
ZZZZ010623	2500	=SET{WC.SW=};
ZZZZ010623	2600	=BACK{READ_NEXT};
ZZZZ010623	2700	=ST:
ZZZZ010623	2800	NAME=SET
ZZZZ010623	2900	=IF{WN.FIX=}JUMP{NEXT};
ZZZZ010623	3000	=IF{WC.IP=}JUMP{NEXT};
ZZZZ010623	3100	=COMPUTE{W0.CNT+=1};
ZZZZ010623	3200	=SET{WN.LAN?W0.CNT?=WN.LAN,WC.IP?W0.CNT?=WC.IP};
ZZZZ010623	3300	=SET{WC.GTW?W0.CNT?=WC.GTW,WC.SUB?W0.CNT?=WC.SUB};
ZZZZ010623	3400	=SET{WC.DNS1?W0.CNT?=WC.DNS1,WC.DNS2?W0.CNT?=WC.DNS2};
ZZZZ010623	3500	=SET{WN.FIX?W0.CNT?=WN.FIX};
ZZZZ010623	3600	=NEXT:
ZZZZ010623	3700	NAME= (SET)
ZZZZ010623	3800	=SET{WN.FIX='固定'};
ZZZZ010623	4100	=SPLIT_CHAR{WN}{_READ_DATA[W0.LEN]}{':'};
ZZZZ010623	4210	=SET{WN.LAN@LENGTH1=27};
ZZZZ010623	4220	=IF_ERROR_SET{WN.LAN=WN1}NOP{};
ZZZZ010623	4300	=SET{WC.IP=,WC.DNS1=,WC.DNS2=,WC.GTW=,WC.SUB=};
ZZZZ010623	4400	=BACK{READ_NEXT};
ZZZZ010623	4500	=IP:
ZZZZ010623	4600	=SPLIT_CHAR{WN.X}{WN}{'('};SET{WC.IP=WN.X1};
ZZZZ010623	4700	=BACK{READ_NEXT};
ZZZZ010623	4800	=SP:
ZZZZ010623	4900	=IF{WC.SW=}BACK{READ_NEXT};
ZZZZ010623	5000	=SET{_FIND_CHAR=WN+'.'};
ZZZZ010623	5100	=IF{_FIND_CHAR=0}BACK{READ_NEXT};
ZZZZ010623	5200	=SET{WC.?WC.SW?=WN};
ZZZZ010623	5300	=IF{WC.SW='DNS1'}SET{WC.SW='DNS2'}JUMP{};
ZZZZ010623	5400	=SET{WC.SW=};
ZZZZ010623	5500	=BACK{READ_NEXT};
ZZZZ010623	5600	=DHCP:
ZZZZ010623	5700	=IF{WN='はい'}SET{WN.FIX='変動'};
ZZZZ010623	5800	=BACK{READ_NEXT};
ZZZZ010623	5900	=READ_END:READ_CLOSE{1};
ZZZZ010623	6000	COPY=SET
ZZZZ010623	6100	=IF{W0.CNT=0}ERROR{固定対象IPは有りません。}
ZZZZ010623	6200	PROGRAM=NOT
ZZZZ010623	6300	REPEAT=$W0.CNT
ZZZZ010623	6400	FORM=##. LAN @@@@@@@@@@@@@@@@@@@@@@@@@@@ IP   @ SUBNETMASK @
ZZZZ010623	6500	FORM=     @@@@ GATEWAY @@@@@@@@@@@@@@@@ DNS1 @ DNS2       @
ZZZZ010623	6600	DATA={O}$WN.LAN##{27}
ZZZZ010623	6700	DATA={O}$WC.IP##{16}
ZZZZ010623	6800	DATA={O}$WC.SUB##{16}
ZZZZ010623	6900	DATA={O}$WN.FIX##{4}
ZZZZ010623	6910	=IF{WN.FIX##='固定'}SET{WN.FIX##@COLOR='B'}JUMP{};
ZZZZ010623	6920	=                   SET{WN.FIX##@COLOR='Y'};
ZZZZ010623	7000	DATA={O}$WC.GTW##{16}
ZZZZ010623	7100	DATA={O}$WC.DNS1##{16}
ZZZZ010623	7200	DATA={O}$WC.DNS2##{16}
ZZZZ010623	7300	REPEAT=
ZZZZ010623	7400	FORM= 設定する番号を入力 @
ZZZZ010623	7500	DATA=NO{2,0,+,}{(1,?$W0.CNT?)};
ZZZZ010623	7600	=SET{WC.IP=WC.IP?NO?,WN.LAN=WN.LAN?NO?};
ZZZZ010623	7700	=SET{WC.GTW=WC.GTW?NO?,WC.SUB=WC.SUB?NO?};
ZZZZ010623	7800	=SET{WC.DNS1=WC.DNS1?NO?,WC.DNS2=WC.DNS2?NO?};
ZZZZ010623	7900	=IF{WC.SUB?NO?='255.255.255.0'}
ZZZZ010623	8000	=   SET{IP=254,W0.MAX=254}JUMP{};
ZZZZ010623	8100	=   SET{IP=255,W0.MAX=255};
ZZZZ010623	8200	=IF{WN.FIX?NO?='固定'}SET{WC.DHCP=',0'}JUMP{};
ZZZZ010623	8300	=   SET{                  WC.DHCP=};
ZZZZ010623	8312	FORM=★依頼★
ZZZZ010623	8313	FORM= [ユーザーアカウント]の[この不明な発行元からのア
ZZZZ010623	8320	FORM2=プリがPCに加えることを許可しますか？]
ZZZZ010623	8340	FORM= [プログラム名:　IROOT?_OS??_FRAMEWORK?.EXE]
ZZZZ010623	8350	FORM2=を[はい]で許可してください。
ZZZZ010623	8400	FORM= 固定IPを入力       @@@ (0は変動IPにします）
ZZZZ010623	8500	DATA=IP{3,0,+,}{(1,?W0.MAX?)?WC.DHCP?}
ZZZZ010623	8600	=SPLIT_CHAR{WC}{WC.IP}{'.'};
ZZZZ010623	8700	=SET{WC.NEW_IP=WC1+'.'+WC2+'.'+WC3+'.'+IP};
ZZZZ010623	8800	=IF{IP!=0}IF{WC.NEW_IP=WC.IP}ERROR{旧IPと同じです。};
ZZZZ010623	8900	=IF{IP!=0}IF{WC.NEW_IP=WC.GTW}ERROR{ゲートウエイと同じです};
ZZZZ010623	9000	=IF_ERROR_WRITE_OPEN{1,?_TMP??_WORK?_1.BAT,OT,/}ERROR{};
ZZZZ010623	9100	=IF{IP=0}SET{WC='NETSH INTERFACE IP SET ADDRESS "'+WN.LAN
ZZZZ010623	9200	=   +'" DHCP >'+_TMP+_WORK+'.TMP 2>&1'}WRITE{1,WC}JUMP{BAT};
ZZZZ010623	9300	=SET{WC.NEW_IP=WC1+'.'+WC2+'.'+WC3+'.'+IP};
ZZZZ010623	9400	=SET{WC='NETSH INTERFACE IP SET ADDRESS "'+WN.LAN+'" STATIC '
ZZZZ010623	9500	=   +WC.NEW_IP+' '+WC.SUB+' '+WC.GTW
ZZZZ010623	9600	=   +' > '+_TMP+_WORK+'.TMP 2>&1'};WRITE{1,WC};
ZZZZ010623	9700	=IF{WC.DNS1!=}SET{WC='NETSH INTERFACE IP SET DNS "'+WN.LAN
ZZZZ010623	9800	=  +'" STATIC '+WC.DNS1+' PRIMARY >>'+_TMP+_WORK+'.TMP 2>&1'}
ZZZZ010623	9900	=   WRITE{1,WC};
ZZZZ010623	10000	=IF{WC.DNS2!=}
ZZZZ010623	10100	=   SET{WC='NETSH INTERFACE IP SET DNS "'+WN.LAN+'" '+
ZZZZ010623	10200	=    WC.DNS2+' >>'+_TMP+_WORK+'.TMP 2>&1'}WRITE{1,WC};
ZZZZ010623	10300	=BAT:
ZZZZ010623	10310	=WRITE{1,'IPCONFIG /RENEW'};
ZZZZ010623	10400	=WRITE_CLOSE{1};
ZZZZ010623	10530	=COMMAND{CALL ?_I?IROOT?_OS??_FRAMEWORK?.EXE
ZZZZ010623	10531	=        ?_TMP??_WORK?_1.BAT};
ZZZZ010623	10600	=IF_ERROR_READ_OPEN{1,?_TMP??_WORK?.TMP,/}ERROR{};
ZZZZ010623	10700	=SET{W0.CNT=0};
ZZZZ010623	10800	=READ_NEXT:READ_NEXT{1,}JUMP{READ_END};
ZZZZ010623	10900	=COMPUTE{W0.CNT+=1};
ZZZZ010623	11000	=SET{WN.COM?W0.CNT?=,WN.COM?W0.CNT?@LENGTH1=80};
ZZZZ010623	11100	=IF_ERROR_SET{WN.COM?W0.CNT?=_READ_DATA}NOP{};
ZZZZ010623	11200	=BACK{READ_NEXT};
ZZZZ010623	11300	=READ_END:READ_CLOSE{1};
ZZZZ010623	11400	PROGRAM=NOT
ZZZZ010623	11410	FORM=コメント 開始
ZZZZ010623	11500	REPEAT=$W0.CNT
ZZZZ010623	11600	FORM=@
ZZZZ010623	11700	DATA={O}$WN.COM##{80}
ZZZZ010623	11800	REPEAT= ($W0.CNT)
ZZZZ010623	11829	FORM=コメント 終了
ZZZZ010623	11900	FORM= ★注意★
ZZZZ010623	12000	FORM=[構成された DNS サーバーが正しくないか、存在しません。]
ZZZZ010623	12100	FORM= のエラーが出ても設定値に問題が無ければOKです。
ZZZZ010623	12200	FORM=@@@ コメントを確認しエラーが無ければ完了です。
ZZZZ010623	12300	DATA=END{3}{END,}
ZZZZ010623	12400	=IF{_DATA='END'}EXIT{0};
ZZZZ010624	100	PROGRAM=NOT
ZZZZ010624	200	BEGIN
ZZZZ010624	300	=SET{W0.CNT=1,WC.TODAY=_TODAY};
ZZZZ010624	400	=SET{DIR=
ZZZZ010624	500	W+=   _OS_DRIVE+_P+'W'+_L(INDOWS)+_P
ZZZZ010624	600	W+=   +'S'+_L(YSTEM32)+_P+_L(DRIVERS)+
ZZZZ010624	700	=   _P+_L(ETC)+_P};
ZZZZ010624	800	=LOOP:SET{COPY_FILE=_L(HOSTS.)+WC.TODAY+'_'+W0.CNT};
ZZZZ010624	900	=IF_FILE_NOT{?DIR??COPY_FILE?}JUMP{OK};
ZZZZ010624	1000	=COMPUTE{W0.CNT+=1};
ZZZZ010624	1100	=IF{W0.CNT<10}BACK{LOOP};
ZZZZ010624	1200	=ERROR{OLD FILE 9 OVER};
ZZZZ010624	1300	=OK:
ZZZZ010624	1400	FORM=コピーファイル名 @
ZZZZ010624	1500	FORM= ディレクトリ    @
ZZZZ010624	1600	DATA={O}COPY_FILE{16}
ZZZZ010624	1700	DATA={O}DIR{35}
ZZZZ010624	1800	FORM=★依頼★
ZZZZ010624	1900	W+FORM= [ユーザーアカウント]の[この不明な発行元からのア
ZZZZ010624	2000	W+FORM2=プリがPCに加えることを許可しますか？]
ZZZZ010624	2100	W+FORM= [プログラム名:　IROOT?_OS??_FRAMEWORK?.EXE]
ZZZZ010624	2200	W+FORM2=を[はい]で許可してください。
ZZZZ010624	2300	U+FORM=必ず?_L(ROOT)?ユーザーで実行してください。
ZZZZ010624	2400	FORM=@ [ENRER]でコピー後テキストエディターが起動します。
ZZZZ010624	2500	DATA=GO{3}{GO}
ZZZZ010624	2600	U+=IF{_USER@UPPER!='ROOT'}
ZZZZ010624	2700	U+=   ERROR{?_L(ROOT)?ユーザーで実行してください。};
ZZZZ010624	2800	=PROGRAM{0,?_MP_ZZZZ?ZZ_ETC_TABLE,WN.BROWSE.SYSTEM_ETC=}
ZZZZ010624	2900	=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010624	3000	=   ,WC.SYSTEM_KEY2='ZZZZZZ_BROWSE_?_OS?'}{};
ZZZZ010624	3100	=IF{_PROGRAM_COUNT=0}
ZZZZ010624	3200	=   ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? NOT FOUND};
ZZZZ010624	3300	W+=SET{WC.BROWSE=WN.BROWSE.SYSTEM_ETC};
ZZZZ010624	3400	W-=SET{WC.BROWSE=WN.BROWSE.SYSTEM_ETC@LOWER};
ZZZZ010624	3600	W+=IF_ERROR_WRITE_OPEN{1,?_TMP??_WORK?_1.BAT,OT,/}ERROR{};
ZZZZ010624	3700	W+=SET{WC='COPY /Y '+DIR+_L(HOSTS)+' '+DIR+COPY_FILE};
ZZZZ010624	3800	W+=WRITE{1,WC};
ZZZZ010624	3900	W+=WRITE{1,'@ECHO OFF'};
ZZZZ010624	4000	W+=WRITE{1,'ECHO エラーを確認し[ENTER]を押してください。'};
ZZZZ010624	4100	W+=WRITE{1,'PAUSE > NUL'};
ZZZZ010624	4200	W+=SET{WC='START "" '+WC.BROWSE+' '+DIR+_L(HOSTS)};
ZZZZ010624	4300	W+=WRITE{1,WC};WRITE_CLOSE{1};
ZZZZ010624	4520	W+=COMMAND{CALL ?_I?IROOT?_OS??_FRAMEWORK?.EXE
ZZZZ010624	4530	W+=    ?_TMP??_WORK?_1.BAT};
ZZZZ010624	4600	U+=COMMAND{?_L(CP)? ?DIR??_L(HOSTS)? ?DIR??COPY_FILE?};
ZZZZ010624	4700	U+=IF_ERROR_EXE_WAIT{?WC.BROWSE?,?DIR??_L(HOSTS)?}ERROR{};
ZZZZ010624	4800	=EXIT{0};
ZZZZ010626	100	PROGRAM=NOT
ZZZZ010626	200	BEGIN
ZZZZ010626	300	=SET{WC.APPCMD=_OS_DRIVE+_P+'WINDOWS'+_P+'SYSTEM32'+_P
ZZZZ010626	400	=   +'INETSRV'+_P+'APPCMD.EXE'};
ZZZZ010626	500	FORM=IISの設定情報を表示します。
ZZZZ010626	600	FORM= @
ZZZZ010626	700	DATA=GO{3}{GO}
ZZZZ010626	710	=PROGRAM{0,?_MP_ZZZZ?ZZ_ETC_TABLE,WN.BROWSE.SYSTEM_ETC=}
ZZZZ010626	720	=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010626	730	=   ,WC.SYSTEM_KEY2='ZZZZZZ_BROWSE_?_OS?'}{};
ZZZZ010626	740	=IF{_PROGRAM_COUNT=0}
ZZZZ010626	750	=   ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? NOT FOUND};
ZZZZ010626	760	W+=SET{WC.BROWSE=WN.BROWSE.SYSTEM_ETC};
ZZZZ010626	770	W-=SET{WC.BROWSE=WN.BROWSE.SYSTEM_ETC@LOWER};
ZZZZ010626	1400	=SET{WC.CMD1='LIST SITE'};
ZZZZ010626	1500	=SET{WC.CMD2='LIST VDIR'};
ZZZZ010626	1600	=SET{WC.CMD3='LIST CONFIG /SECTION:HANDLERS'};
ZZZZ010626	1601	=IF_ERROR_WRITE_OPEN{1,?_WORK?.BAT,OT,/}ERROR{};
ZZZZ010626	1649	=WRITE{1,'@ECHO OFF'};
ZZZZ010626	1650	=WRITE{1,'ECHO IIS 情報 > ?_TMP??_WORK?.TXT'};
ZZZZ010626	1900	REPEAT=3
ZZZZ010626	2000	=WRITE{1,'?WC.APPCMD? ?WC.CMD##?  >> ?_TMP??_WORK?.TXT'};
ZZZZ010626	2100	REPEAT=
ZZZZ010626	2190	=WRITE_CLOSE{1};
ZZZZ010626	2191	=COMMAND{CALL ?_I?IROOT?_OS??_FRAMEWORK?.EXE
ZZZZ010626	2192	=                                         ?_TMP??_WORK?.BAT};
ZZZZ010626	2300	=EXE{?WC.BROWSE?,?_TMP??_WORK?.TXT};
ZZZZ010626	2400	=EXIT{_END};
ZZZZ010627	100	PROGRAM=NOT
ZZZZ010627	200	FORM=IISはインターネットインフォメーションサービスでホーム
ZZZZ010627	300	FORM2=ページを公開できます。
ZZZZ010627	400	FORM=CGIを設定する事でI言語のプログラムをIISから実行出来るよ
ZZZZ010627	500	FORM2=うになります。
ZZZZ010627	600	FORM=1   IISとCGIを有効化します。
ZZZZ010627	700	FORM=1.1 [ENER]で[プログラムと機能]を立ち上げます。@
ZZZZ010627	800	DATA=APPWIZ{3}{GO}
ZZZZ010627	900	=COMMAND{CALL APPWIZ.CPL};
ZZZZ010627	1000	FORM=1.2 左の[W?_L(INDOWS)?の有効化または無効化]
ZZZZ010627	1100	FORM2=をクリックします。
ZZZZ010627	1200	FORM=1.3 [W?_L(INDOWS)?の機能]の[インターネット
ZZZZ010627	1300	FORM2= インフォメーシヨン サービス]
ZZZZ010627	1400	FORM=    の左の□をクリックし■を付けます。
ZZZZ010627	1500	FORM=1.4 左の[+]をクリックして[W?_L(ORLD)? W?_L(IDE)?
ZZZZ010627	1600	FORM2= W?_L(EB)? サービス]の[+]をクリックします。
ZZZZ010627	1700	FORM=1.5 [アプリケーション開発機能]の[+]をクリックます。
ZZZZ010627	1800	FORM=1.6 [CGI]の左の□をクリックしレ印を付けます。
ZZZZ010627	1900	FORM=1.7 [OK]で処理が開始され[必要な変更が完了しました]と
ZZZZ010627	2000	FORM=    出れば[閉じる]でIISとCGIの有効化が完了です。
ZZZZ010627	2100	FORM=2   CGIでI言語が動くようにします。
ZZZZ010627	2200	FORM=2.1 [ENER]で[インターネット インフォメーシヨン サービス]
ZZZZ010627	2300	FORM2=  を立ち上げます。@
ZZZZ010627	2400	DATA=INETMGR{3}{GO}
ZZZZ010627	2410	=COMMAND{CALL ?_I?IROOT?_OS??_FRAMEWORK?.EXE
ZZZZ010627	2500	=          ?_OS_DRIVE?\WINDOWS\SYSTEM32\INETSRV\INETMGR.EXE};
ZZZZ010627	2600	FORM=2.2 [ハンドラー マッピング]のアイコン
ZZZZ010627	2700	FORM2=をダブルクリックします。
ZZZZ010627	2800	FORM=2.3 右の[スクリプト マップの追加]をクリックします。
ZZZZ010627	2900	FORM=2.4 [要求パス]に"*.?_L(I)?1"を入れます。(まだ未設定の物)
ZZZZ010627	3000	FORM=2.5 実行ファイルに"?_OS_DRIVE?\I\BIN?_IV?\ITIMEWD.EXE"
ZZZZ010627	3200	FORM=2.6 [名前]に"?_L(I)?1"を入れます。
ZZZZ010627	3300	FORM=2.7 [OK]と[はい]で一覧に追加されれば完了です。
ZZZZ010627	3400	FORM=2.8 "END"[ENTER]で終了です。@
ZZZZ010627	3410	FORM=
ZZZZ010627	3500	DATA=END{4}{END,}
ZZZZ010627	3600	=IF{_DATA='END'}EXIT{0};
ZZZZ010627	3700	=EXIT{END};
ZZZZ010628	100	PROGRAM=NOT
ZZZZ010628	200	BEGIN
ZZZZ010628	300	*SET{_TRACE=0};
ZZZZ010628	400	*IF{_FRAMEWORK='J'}SET{%NOT_JAVA='-'};
ZZZZ010628	500	=SET{WC.TOP='SSL'+_TODAY};
ZZZZ010628	600	W+=SET{OPENSSL_PATH=_OS_DRIVE+_P+'OPENSSL-WIN64'};
ZZZZ010628	700	W+=SET{WC.X='.EXE',WC.COPY='COPY /Y '};
ZZZZ010628	800	U+=SET{OPENSSL_PATH=_L(/USR),WC.X=,WC.COPY=_L(CP )};
ZZZZ010628	900	W+=SET{WC.PATH1=_OS_DRIVE+_P+_L(INETPUB)};
ZZZZ010628	1000	U+=SET{WC.PATH1=_L(/VAR/WWW)};
ZZZZ010628	1100	=SET{WC.PATH2=WC.PATH1+_P+_L(HTTPS),WC.X2='_'};
ZZZZ010628	1200	=SET{WC.PATH3=WC.PATH2+_L(-SERVER) ,WC.X3='-'};
ZZZZ010628	1300	*=SET{WC.PATH4=WC.PATH1+_P+_L(CGI-BIN)};
ZZZZ010628	1400	FORM= IISにO?_L(PEN)?SSLを使って自前で認証設定をします。
ZZZZ010628	1500	FORM2=(W?_L(INDOWS)?用)
ZZZZ010628	1600	FORM= 自前なので使用する全クライアントに証明書のインストが
ZZZZ010628	1700	FORM2=必要です。
ZZZZ010628	1800	FORM=1.O?_L(PEN)?SSLを使うのでインストールして[ENTER]します。
ZZZZ010628	1900	FORM= @
ZZZZ010628	2000	DATA=OPENSSL_PATH{20,,,R}
ZZZZ010628	2100	=IF{_COMPUTER!=_SERVER}ERROR{サーバーで実行して下さい。};
ZZZZ010628	2200	=SET{WC.OPENSSL=OPENSSL_PATH+_P+_L(BIN)+_P+_L(OPENSSL)+WC.X};
ZZZZ010628	2300	=IF_FILE_NOT{?WC.OPENSSL?}
ZZZZ010628	2400	= ERROR{O?_L(PEN)?SSLのインストールファイルが見つかりません};
ZZZZ010628	2500	=SET{WC.CONF_DIR1=_L(/ETC/HTTPD/CONF.D/)};
ZZZZ010628	2600	=SET{WC.CONF_IN11=_L(SSL.I)};
ZZZZ010628	2700	=SET{WC.CONF_IN12=_L(SSL.CONF)};
ZZZZ010628	2800	=SET{WC.CONF_OUT1=_L(SSL)};
ZZZZ010628	2900	=SET{WC.CONF_DIR2=_L(/ETC/APACHE2/VHOSTS.D/)};
ZZZZ010628	3000	=SET{WC.CONF_IN21=_L(VHOST-SSL.TEMPLATE)};
ZZZZ010628	3100	=SET{WC.CONF_IN22=};
ZZZZ010628	3200	=SET{WC.CONF_OUT2=_L(VHOST-SSL)};
ZZZZ010628	3300	=SET{WC.CONF_DIR3=_L(/ETC/APACHE2/SITES-AVAILABLE/)};
ZZZZ010628	3400	=SET{WC.CONF_IN31=_L(DEFAULT-SSL.I)};
ZZZZ010628	3500	=SET{WC.CONF_IN32=_L(DEFAULT-SSL.CONF)};
ZZZZ010628	3600	=SET{WC.CONF_OUT3=_L(DEFAULT-SSL)};
ZZZZ010628	3700	U+REPEAT=3
ZZZZ010628	3800	U+=SET{WC.CONF_DIR=WC.CONF_DIR##};
ZZZZ010628	3900	U+=IF_ERROR_DIR{?WC.CONF_DIR?}JUMP{BAD_CONF};
ZZZZ010628	4000	U+=SET{WC.CONF=WC.CONF_DIR+WC.CONF_IN##1,WC.CONF_MOVE=};
ZZZZ010628	4100	U+=SET{WC.CONF_OUT=WC.CONF_OUT##};
ZZZZ010628	4200	U+=IF_FILE{?WC.CONF?}JUMP{OK_CONF};
ZZZZ010628	4300	U+=IF{WC.CONF_IN##2!=}
ZZZZ010628	4400	U+=   SET{WC.CONF=WC.CONF_DIR+WC.CONF_IN##2}
ZZZZ010628	4500	U+=   SET{WC.CONF_MOVE=WC.CONF_DIR+WC.CONF_IN##1}
ZZZZ010628	4600	U+=   IF_FILE{?WC.CONF?}JUMP{OK_CONF};
ZZZZ010628	4700	U+=ERROR{?WC.CONF?が有りませんSSL関連ソフト
ZZZZ010628	4800	U+=   ?_L(MOD_SSL)?をインストールして下さい!};
ZZZZ010628	4900	U+=BAD_CONF:
ZZZZ010628	5000	U+REPEAT= (3)
ZZZZ010628	5100	U+=ERROR{SSLのCONFファイルが有りませんSL関連ソフト
ZZZZ010628	5200	U+=   ?_L(MOD_SSL)?をインストールして下さい!};
ZZZZ010628	5300	U+=OK_CONF:
ZZZZ010628	5400	*****( WN.LAN## TO WC.DOMAIN## を W0.CNT分設定)**************
ZZZZ010628	5500	=IF_ERROR_WRITE_OPEN{1,?_TMP??_WORK?.BAT,OT,/}ERROR{};
ZZZZ010628	5600	=SET{WC=_L(HOSTNAME)+' > '+_TMP+_WORK+'.TXT'};WRITE{1,WC};
ZZZZ010628	5700	W+=SET{WC='IPCONFIG /ALL >> '+_TMP+_WORK+'.TXT'};
ZZZZ010628	5800	***( LINUX は中止 )***********************************
ZZZZ010628	5900	***U+=SET{WC=_L(/BIN/IP ADDR SHOW)+' >> '+_TMP+_WORK+'.TXT'};
ZZZZ010628	6000	=WRITE{1,WC};WRITE_CLOSE{1};
ZZZZ010628	6100	U+=COMMAND{?_L(CHMOD)? 777 ?_TMP??_WORK?.BAT};
ZZZZ010628	6200	=COMMAND{?_TMP??_WORK?.BAT};
ZZZZ010628	6300	=IF_ERROR_READ_OPEN{1,?_TMP??_WORK?.TXT,/}ERROR{};
ZZZZ010628	6400	=SET{W0.CNT=0,WC.SW=,WN.FIX=};
ZZZZ010628	6500	=READ_NEXT:READ_NEXT{1,}JUMP{READ_END};
ZZZZ010628	6600	=SPLIT_CHAR{WC}{_READ_DATA}{':'};
ZZZZ010628	6700	=IF{W0.CNT=0}
ZZZZ010628	6800	=   COMPUTE{W0.CNT+=1}SET{WN.LAN?W0.CNT?='コンピュータ名'
ZZZZ010628	6900	=   ,WC.DOMAIN?W0.CNT?=_READ_DATA@TRIM
ZZZZ010628	7000	=   ,WC.BINDINGINFORMATION?W0.CNT?='*:443:'+WC.DOMAIN?W0.CNT?
ZZZZ010628	7100	=   ,WC.VIRTUALHOST?W0.CNT?='*:443'}
ZZZZ010628	7200	=   BACK{READ_NEXT};
ZZZZ010628	7300	W+=J:IF{_READ_DATA/'イーサネット アダプター'}
ZZZZ010628	7400	W+=   SET{W0.LEN=14}JUMP{ST};
ZZZZ010628	7500	W+=IF{_READ_DATA@UPPER/'WIRELESS LAN ADAPTER'}
ZZZZ010628	7600	W+=   SET{W0.LEN=21}JUMP{ST};
ZZZZ010628	7700	W+=IF{WN.FIX=}BACK{READ_NEXT};
ZZZZ010628	7800	W+=SPLIT_CHAR{WC}{_READ_DATA}{':'};
ZZZZ010628	7900	W+=SET{WN=WC?_SPLIT_CHAR_COUNT?@TRIM};
ZZZZ010628	8000	W+=IF{_READ_DATA@UPPER/'   IPV4 アドレス'}JUMP{IP};
ZZZZ010628	8100	W+=IF{_READ_DATA/'   DHCP 有効'}JUMP{DHCP};
ZZZZ010628	8200	W+=IF{_READ_DATA/'                               '}JUMP{SP};
ZZZZ010628	8300	W+=SET{WC.SW=};
ZZZZ010628	8400	U+COMMENT_BEGIN (中止)********
ZZZZ010628	8500	U+=IF{_READ_DATA[2;1]=':'}SET{WN.LAN=WC2@TRIM}
ZZZZ010628	8600	U+=   BACK{READ_NEXT};
ZZZZ010628	8700	U+=SPLIT_CHAR{WC}{_READ_DATA}{};
ZZZZ010628	8800	U+=IF{WC1!=_L(INET)}BACK{READ_NEXT};
ZZZZ010628	8900	U+=SPLIT_CHAR{WCC}{WC2}{'/'};
ZZZZ010628	9000	U+=IF{WCC1='127.0.0.1'}BACK{READ_NEXT};
ZZZZ010628	9100	U+=IF{WC7=_L(DYNAMIC)}BACK{READ_NEXT};
ZZZZ010628	9200	U+=COMPUTE{W0.CNT+=1};SET{WN.LAN?W0.CNT?=WN.LAN
ZZZZ010628	9300	U+=,WC.DOMAIN?W0.CNT?=WCC1
ZZZZ010628	9400	U+=,WC.BINDINGINFORMATION?W0.CNT?=WC.DOMAIN?W0.CNT?+':443:'
ZZZZ010628	9500	U+=,WC.VIRTUALHOST?W0.CNT?=WC.DOMAIN?W0.CNT?+':443'};
ZZZZ010628	9600	U+COMMENT_END (中止)********
ZZZZ010628	9700	=BACK{READ_NEXT};
ZZZZ010628	9800	=ST:
ZZZZ010628	9900	NAME=SET
ZZZZ010628	10000	=IF{WN.FIX!='固定'}JUMP{NEXT};
ZZZZ010628	10100	=IF{WC.DOMAIN=}JUMP{NEXT};
ZZZZ010628	10200	=COMPUTE{W0.CNT+=1};
ZZZZ010628	10300	=SET{WN.LAN?W0.CNT?=WN.LAN,WC.DOMAIN?W0.CNT?=WC.DOMAIN
ZZZZ010628	10400	=   ,WC.BINDINGINFORMATION?W0.CNT?=WC.DOMAIN?W0.CNT?+':443:'}
ZZZZ010628	10500	=NEXT:
ZZZZ010628	10600	NAME= (SET)
ZZZZ010628	10700	=SET{WN.FIX='固定'};
ZZZZ010628	10800	=SPLIT_CHAR{WN}{_READ_DATA[W0.LEN]}{':'};
ZZZZ010628	10900	=SET{WN.LAN@LENGTH1=27};
ZZZZ010628	11000	=IF_ERROR_SET{WN.LAN=WN1}NOP{};
ZZZZ010628	11100	=SET{WC.DOMAIN=};
ZZZZ010628	11200	=BACK{READ_NEXT};
ZZZZ010628	11300	=IP:
ZZZZ010628	11400	=SPLIT_CHAR{WN.X}{WN}{'('};SET{WC.DOMAIN=WN.X1};
ZZZZ010628	11500	=BACK{READ_NEXT};
ZZZZ010628	11600	=SP:
ZZZZ010628	11700	=IF{WC.SW=}BACK{READ_NEXT};
ZZZZ010628	11800	=SET{_FIND_CHAR=WN+'.'};
ZZZZ010628	11900	=IF{_FIND_CHAR=0}BACK{READ_NEXT};
ZZZZ010628	12000	=SET{WC.?WC.SW?=WN};
ZZZZ010628	12100	=SET{WC.SW=};
ZZZZ010628	12200	=BACK{READ_NEXT};
ZZZZ010628	12300	=DHCP:
ZZZZ010628	12400	=IF{WN='はい'}SET{WN.FIX='変動'};
ZZZZ010628	12500	=BACK{READ_NEXT};
ZZZZ010628	12600	=READ_END:READ_CLOSE{1};
ZZZZ010628	12700	PROGRAM=NOT
ZZZZ010628	12800	BEGIN
ZZZZ010628	12900	=SET{EXTENSION=1,GO1='GO'};
ZZZZ010628	13000	REPEAT=$W0.CNT
ZZZZ010628	13100	FORM=##. @ @
ZZZZ010628	13200	DATA={O}$WN.LAN##{30}
ZZZZ010628	13300	DATA={O}$WC.DOMAIN##{30}
ZZZZ010628	13400	=SET{WC.FILE##=     WC.TOP+'_'+$WC.DOMAIN##};
ZZZZ010628	13500	=SET{WC.FILE_SERVER##=WC.TOP+'-'+$WC.DOMAIN##};
ZZZZ010628	13600	REPEAT= ($W0.CNT)
ZZZZ010628	13700	*************************************************************
ZZZZ010628	13800	FORM=バッチ処理ではP?_L(ASWORD)?:で入力待ちになるので
ZZZZ010628	13900	FORM=  そのつど「[ENTER]」を入れます。@
ZZZZ010628	14000	DATA=GO1{5}{GO,SKIP}
ZZZZ010628	14100	=SET{_TRACE=1};
ZZZZ010628	14200	=IF{_DATA='SKIP'}EXIT{};
ZZZZ010628	14300	*****( SSL1.BAT 作成 )***************************************
ZZZZ010628	14400	=IF_ERROR_WRITE_OPEN{1,?_TMP?SSL1.BAT,OT,/}ERROR{};
ZZZZ010628	14500	W+=WRITE{1,'@ECHO OFF'};
ZZZZ010628	14600	***( OPENSSL 実行 )***
ZZZZ010628	14700	=SET{WC=WC.OPENSSL+_L( GENRSA )
ZZZZ010628	14800	=   +_L( -OUT )+_TMP+WC.TOP+_L(-.KEY)};WRITE{1,WC};
ZZZZ010628	14900	REPEAT=$W0.CNT
ZZZZ010628	15000	=SET{WC=WC.OPENSSL+_L( REQ -NEW -X509 -DAYS 36500 )
ZZZZ010628	15100	=   +_L( -KEY )+_TMP+WC.TOP+_L(-.KEY)
ZZZZ010628	15200	= +_L( -SUBJ )+'"/C=JP/ST=I/L=I/O=I/OU=I/CN='+WC.DOMAIN##+'"'
ZZZZ010628	15300	=  +_L( -OUT )+_TMP+WC.FILE##+_L(.CRT)};WRITE{1,WC};
ZZZZ010628	15400	=SET{WC=WC.OPENSSL+_L( PKCS12 -EXPORT )
ZZZZ010628	15500	=   +_L( -INKEY )+_TMP+WC.TOP+_L(-.KEY)
ZZZZ010628	15600	=   +_L( -IN )   +_TMP+WC.FILE##+_L(.CRT)
ZZZZ010628	15700	=   +_L( -OUT )  +_TMP+WC.FILE_SERVER##+_L(.PFX)
ZZZZ010628	15800	=   +_L( -NAME )  +'"'+WC.FILE##+'"'};
ZZZZ010628	15900	=WRITE{1,WC};
ZZZZ010628	16000	=SET{WC=WC.OPENSSL+_L( X509 )
ZZZZ010628	16100	=   +_L( -INFORM  PEM -IN ) +_TMP+WC.FILE##+_L(.CRT)
ZZZZ010628	16200	=   +_L( -OUTFORM DER -OUT )+_TMP+WC.FILE##+_L(.DER)};
ZZZZ010628	16300	=WRITE{1,WC};
ZZZZ010628	16400	*SET{WC=WC.OPENSSL+_L( X509 )
ZZZZ010628	16500	*   +_L( -INFORM  DER -IN ) +_TMP+WC.FILE##+_L(.DER)
ZZZZ010628	16600	*   +_L( -OUTFORM PEM -OUT )+_TMP+WC.FILE##+_L(.CRT)};
ZZZZ010628	16700	*   WRITE{1,WC};
ZZZZ010628	16800	REPEAT= ($W0.CNT)
ZZZZ010628	16901	=WRITE{1,'?_L(ECHO)? エラーを確認し[ENTER]を押してください.'}
ZZZZ010628	16902	=;
ZZZZ010628	17000	W+=WRITE{1,'PAUSE > NUL'};
ZZZZ010628	17100	U+=WRITE{1,_L(READ PAUSE)};
ZZZZ010628	17200	=WRITE{1,_L(EXIT)};
ZZZZ010628	17300	=WRITE_CLOSE{1};
ZZZZ010628	17400	*****( SSL2.BAT END )****************************************
ZZZZ010628	17500	U+=COMMAND{?_L(CHMOD)? 777 ?_TMP?SSL1.BAT};
ZZZZ010628	17600	U-=IF{_FRAMEWORK!='J'}COMMAND{?_TMP?SSL1.BAT};
ZZZZ010628	17700	U+FORM=TERMINALで[?_TMP?SSL1.BAT]を実行して下さい。
ZZZZ010628	17800	*U-%NOT_JAVA-FORM=コマンドプロンプトで
ZZZZ010628	17900	*U+|%NOT_JAVA-FORM2=[?_TMP?SSL.BAT]を実行して下さい。
ZZZZ010628	18000	FORM=[ENTER]でファイルを確認し続行します。@
ZZZZ010628	18100	DATA=GO2{3}{GO}
ZZZZ010628	18200	REPEAT=$W0.CNT
ZZZZ010628	18300	=SET{WC.FILE=_TMP+WC.FILE##+_L(.CRT)};
ZZZZ010628	18400	=IF_FILE_NOT{?WC.FILE?}
ZZZZ010628	18500	=   ERROR{?WC.FILE?ファイルが見つかりません};
ZZZZ010628	18600	REPEAT= ($W0.CNT)
ZZZZ010628	18700	W+FORM=★依頼★
ZZZZ010628	18800	W+FORM= [ユーザーアカウント]の[この不明な発行元からのア
ZZZZ010628	18900	W+FORM2=プリがPCに加えることを許可しますか？]
ZZZZ010628	19000	W+FORM= [プログラム名:　IROOT?_OS??_FRAMEWORK?.EXE]
ZZZZ010628	19100	W+FORM2=を[はい]で許可
ZZZZ010628	19200	FORM= CGI拡張子名 @
ZZZZ010628	19300	DATA=EXTENSION{1,1,9}
ZZZZ010628	19400	*****( CGI SCRIPT 作成　)*********************************
ZZZZ010628	19500	=SET{WC.TEST1=_L(TEST),WC.TEST2=_L(REAL)};
ZZZZ010628	19600	U+=SET{WC.PATH=_L(/HOME)+_P+'I'+_P+'I.$_SYSTEM'+_P+'BIN'+_P};
ZZZZ010628	19700	*U+=SQL_SET{WC.JAVA}{SELECT LOWER(SYSTEM_ETC)
ZZZZ010628	19800	*U+= FROM ?_MM?_ETC_TABLE WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010628	19900	*U+=  AND SYSTEM_KEY2='ZZZZZZ_JDBC' AND Z_CANCEL=' '};
ZZZZ010628	20000	*U+=IF{_SQL_SET_COUNT!=1}ERROR{ETC,SYSTEM,JDBC ERROR};
ZZZZ010628	20010	U+=PROGRAM{0,?_MM?_ETC_TABLE,WN.SYSTEM_ETC=}
ZZZZ010628	20020	U+=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010628	20030	U+=   ,WC.SYSTEM_KEY2='ZZZZZZ_JDBC'}{};
ZZZZ010628	20040	U+=IF{_PROGRAM_COUNT=0}
ZZZZ010628	20050	U+=   ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? NOT FOUND};
ZZZZ010628	20051	U+=SET{WC.JAVA=WN.SYSTEM_ETC@LOWER};
ZZZZ010628	20100	U+=IF{_FRAMEWORK='J'}SET{WC.COM1=   ,WC.COM2='#'}JUMP{};
ZZZZ010628	20200	U+=   SET{               WC.COM1='#',WC.COM2=};
ZZZZ010628	20300	REPEAT=2 (TEST,REAL)
ZZZZ010628	20400	=IF_ERROR_WRITE_OPEN{1,
ZZZZ010628	20500	=   ?_TMP??WC.TEST##??_L(_JA_ZZZZ800000.I)??EXTENSION?,OT}
ZZZZ010628	20600	=   ERROR{};
ZZZZ010628	20700	U+=SET{WC='#!'+_L(/BIN/SH)};WRITE{1,WC};
ZZZZ010628	20800	U+=SET{WC='_SYSTEM='+_SYSTEM};WRITE{1,WC};
ZZZZ010628	20900	U+=SET{WC=WC.COM1+_L(JAVA -CP )+WC.PATH+WC.JAVA+':'
ZZZZ010628	21000	U+=   +WC.PATH+_IV+'JAVA'+_L(.JAR ITIME_L )+'$_SYSTEM $0'};
ZZZZ010628	21100	U+=WRITE{1,WC};
ZZZZ010628	21200	U+=SET{WC=WC.COM2+_L(MONO )+WC.PATH
ZZZZ010628	21300	U+=   +_IV+'TIMEU4.EXE $_SYSTEM $0'};
ZZZZ010628	21400	U+=WRITE{1,WC};
ZZZZ010628	21500	=WRITE_CLOSE{1};
ZZZZ010628	21600	REPEAT= (2) (TEST,REAL)
ZZZZ010628	21700	*****( INDEX.HTML 作成 )*************************************
ZZZZ010628	21800	=IF_ERROR_WRITE_OPEN{1,?_TMP??WC.TOP??_L(_INDEX.HTML)?,OT}
ZZZZ010628	21900	=   ERROR{};
ZZZZ010628	22000	=SET{WC='<!DOCTYPE'
ZZZZ010628	22100	=   +_L( HTML><HTML LANG="JA"><HEAD><META) CHARSET=")
ZZZZ010628	22200	=   +'UTF-8">'};WRITE{1,WC};
ZZZZ010628	22300	=SET{WC=_L(<TITLE>INDEX</TITLE></HEAD><BODY>)};WRITE{1,WC};
ZZZZ010628	22400	=SET{WC=_L(<FORM ACTION=")
ZZZZ010628	22500	U+=   +_L(/CGI-BIN/)
ZZZZ010628	22600	=   +_L(TEST_JA_ZZZZ800000.I)+EXTENSION
ZZZZ010628	22700	=   +_L(" METHOD="POST">)};WRITE{1,WC};
ZZZZ010628	22800	=SET{WC=_L((TEST_JA_ZZZZ800000.I)+EXTENSION
ZZZZ010628	22900	=   +_L() _JOB<INPUT TYPE="INPUT" NAME="_JOB")
ZZZZ010628	23000	=   +_L( VALUE="ZZZZ800101" SIZE="10" MAXLENGTH="10">)};
ZZZZ010628	23100	=WRITE{1,WC};
ZZZZ010628	23200	=SET{WC=_L(<INPUT TYPE="SUBMIT" VALUE=)+'"EXECUTION">'};
ZZZZ010628	23300	=WRITE{1,WC};
ZZZZ010628	23400	=SET{WC=_L(</FORM></BODY></HTML>)};WRITE{1,WC};
ZZZZ010628	23500	REPEAT=$W0.CNT
ZZZZ010628	23600	=WRITE{1,'<BR><BR>'};
ZZZZ010628	23700	=SET{WC=_L(<A HREF=")+WC.TOP+'_'+$WC.DOMAIN##+_L(.DER)+'">'
ZZZZ010628	23800	=   +WC.TOP+'_'+$WC.DOMAIN##+_L(.DER)+_L(</A>)};WRITE{1,WC};
ZZZZ010628	23900	=SET{WC=' ['+_P(WINDOWS E.T.C)
ZZZZ010628	24000	=   +',DE'+_P(RENCODED BINARY)+' X.509]'};WRITE{1,WC};
ZZZZ010628	24100	=WRITE{1,'<BR>'};
ZZZZ010628	24200	=SET{WC=_L(<A HREF=")+WC.TOP+'_'+$WC.DOMAIN##+_L(.CRT)+'">'
ZZZZ010628	24300	=   +WC.TOP+'_'+$WC.DOMAIN##+_L(.CRT)+_L(</A>)};WRITE{1,WC};
ZZZZ010628	24400	=SET{WC=' ['+_P(ANDROID E.T.C)
ZZZZ010628	24500	=   +','+_P(BASE 64 ENCODED)+' X.509]'};WRITE{1,WC};
ZZZZ010628	24600	REPEAT= ($W0.CNT)
ZZZZ010628	24700	=SET{WC=_L(</BODY></HTML>)};WRITE{1,WC};
ZZZZ010628	24800	=WRITE_CLOSE{1};
ZZZZ010628	24900	*****( SSL2.BAT 作成 )***************************************
ZZZZ010628	25000	=IF_ERROR_WRITE_OPEN{1,?_TMP?SSL2.BAT,OT,/} ERROR{};
ZZZZ010628	25100	W+=SET{WC.MOVE='MOVE /Y '};
ZZZZ010628	25200	U+=SET{WC.MOVE=_L(MV -F )};
ZZZZ010628	25300	U+=SET{WC=_L(IF TEST `WHOAMI` != )+''''+_L(ROOT)+''''
ZZZZ010628	25400	U+=   +_L( ;THEN SU -C $0;EXIT 0;FI)};WRITE{1,WC};
ZZZZ010628	25500	**REPEAT=4 (MKDIR)
ZZZZ010628	25600	REPEAT=3 (MKDIR)
ZZZZ010628	25700	W+=SET{WC='IF NOT EXIST '
ZZZZ010628	25800	U+=SET{WC=_L(IF TEST ! -D )
ZZZZ010628	25900	=   +WC.PATH##
ZZZZ010628	26000	U+=   +_L( ; THEN )
ZZZZ010628	26100	=   +_L( MKDIR )+WC.PATH##
ZZZZ010628	26200	U+=   +_L( ; CHMOD 755 )+WC.PATH##+_L( ; FI )
ZZZZ010628	26300	=  };
ZZZZ010628	26400	=WRITE{1,WC};
ZZZZ010628	26500	W+=SET{WC='ICACLS '+WC.PATH##+' /GRANT:R SYSTEM:(OI)(CI)(F)'
ZZZZ010628	26510	W+=+' /GRANT:R IIS_IUSRS:(OI)(CI)(R)'};
ZZZZ010628	26600	W+=WRITE{1,WC};
ZZZZ010628	26700	1-4-=SET{WC=WC.COPY+_TMP+WC.TOP+WC.X##+'* '+WC.PATH##};
ZZZZ010628	26800	1-4-=WRITE{1,WC};
ZZZZ010628	26900	REPEAT= (3)
ZZZZ010628	27000	=SET{WC=WC.COPY+WC.PATH2+_P+WC.TOP+_L(_INDEX.HTML )
ZZZZ010628	27100	=   +WC.PATH2+_P+_L(INDEX.HTML)};WRITE{1,WC};
ZZZZ010628	27101	=WRITE{1,'?_L(ECHO)? エラーを確認し[ENTER]を押してください.'}
ZZZZ010628	27102	=;
ZZZZ010628	27200	W+=SET{WC.APPCMD=_OS_DRIVE+_P+'WINDOWS'+_P+'SYSTEM32'+_P
ZZZZ010628	27300	W+=   +'INETSRV'+_P+'APPCMD.EXE'};
ZZZZ010628	27400	W+=SET{WC=WC.APPCMD+_L( ADD SITE /NAME:HTTPS /PHYSICAL)+
ZZZZ010628	27500	W+=   +_P(PATH:)+WC.PATH2};WRITE{1,WC};
ZZZZ010628	27600	U+=SET{WC.WELCOME=WC.CONF_DIR+_L(WELCOME.)};
ZZZZ010628	27700	U+=SET{WC=_L(IF TEST -F )+WC.WELCOME+_L(CONF ; THEN MV -F )
ZZZZ010628	27800	U+=    +WC.WELCOME+_L(CONF)+' '+WC.WELCOME+_L(I ; FI)};
ZZZZ010628	27900	U+=WRITE{1,WC};
ZZZZ010628	28000	U+=IF{WC.CONF_MOVE!=}
ZZZZ010628	28100	U+=   SET{WC=WC.MOVE+WC.CONF+' '+WC.CONF_MOVE}WRITE{1,WC};
ZZZZ010628	28200	REPEAT=$W0.CNT
ZZZZ010628	28300	W+=SET{WC=WC.APPCMD+_L( SET SITE /SITE.NAME:HTTPS /)+'+'
ZZZZ010628	28400	W+=  +_L(BINDINGS)+'.['+_L(PROTOCOL=)+''''+_L(HTTPS)+''','
ZZZZ010628	28500	W+=  +_L(BINDING)+_P(INFORMATION=)+''''
ZZZZ010628	28600	W+=  +WC.BINDINGINFORMATION##+''']'};
ZZZZ010628	28700	W+=WRITE{1,WC};
ZZZZ010628	28800	U+=SET{WC.SW=};
ZZZZ010628	28900	U+=IF_ERROR_READ_OPEN{2,?WC.CONF?}ERROR{};
ZZZZ010628	29000	U+=IF_ERROR_WRITE_OPEN{2,
ZZZZ010628	29100	U+=   ?_TMP??WC.TOP?-?WC.DOMAIN##??_L(_SSL.CONF)?,OT}
ZZZZ010628	29200	U+=   READ_CLOSE{2}ERROR{};
ZZZZ010628	29300	U+=READ_NEXT2:READ_NEXT{2,}JUMP{READ_END2};
ZZZZ010628	29400	U+=IF{_READ_DATA[1;1]=0X09}SET{WN.R=_READ_DATA[2]}JUMP{};
ZZZZ010628	29500	U+=   SET{                      WN.R=_READ_DATA};
ZZZZ010628	29600	U+=IF{WN.R[1;1]=0X09}SET{WN.R=WN.R[2]};
ZZZZ010628	29700	U+=SET{W.R=WN.R@TRIM};
ZZZZ010628	29800	U+=IF{WC.SW=}JUMP{SKIP};
ZZZZ010628	29900	U+=IF{WN.R@UPPER/'</FILE',/'</DIRECTORY'}SET{WC.SW=};
ZZZZ010628	30000	U+=BACK{READ_NEXT2};
ZZZZ010628	30100	*U+=SKIP:IF{WN.R@UPPER/'<DIRECTORY',/'<FILE'}
ZZZZ010628	30200	U+=SKIP:IF{WN.R@UPPER/'<FILE'}
ZZZZ010628	30300	U+=   SET{WC.SW=1}BACK{READ_NEXT2};
ZZZZ010628	30400	U+=IF_NOT{WN.R@UPPER/'<DIRECTORY'}JUMP{J};
ZZZZ010628	30500	U+=SPLIT_CHAR{WN}{WN.R}{};
ZZZZ010628	30600	U+=SPLIT_CHAR{WN}{WN2}{'">'};
ZZZZ010628	30700	U+=SET{CGI_PATH=WN1};
ZZZZ010628	30800	U+=J:IF{WN.R@UPPER/'SSLCERTIFICATEKEYFILE'}
ZZZZ010628	30900	U+=   SET{WC='SSL'+_P(CERTIFICATE)+_P(KEY)+_P(FILE )
ZZZZ010628	31000	U+=   +WC.PATH3+_P+WC.TOP+_L(-.KEY)}
ZZZZ010628	31100	U+=   WRITE{2,WC}BACK{READ_NEXT2};
ZZZZ010628	31200	U+=IF{WN.R@UPPER/'SSLCERTIFICATEFILE'}
ZZZZ010628	31300	U+=   SET{WC='SSL'+_P(CERTIFICATE)+_P(FILE    )
ZZZZ010628	31400	U+=   +WC.PATH2+_P+WC.FILE##+_L(.CRT)}
ZZZZ010628	31500	U+=   WRITE{2,WC}BACK{READ_NEXT2};
ZZZZ010628	31600	U+=IF{WN.R@UPPER/'DOCUMENTROOT',/'SERVERNAME'}
ZZZZ010628	31700	U+=   BACK{READ_NEXT2};
ZZZZ010628	31800	U+=IF{WN.R@UPPER/'<VIRTUALHOST'}
ZZZZ010628	31900	U+=   SET{WC='<'+_P(VIRTUAL)+_P(HOST )+WC.VIRTUALHOST##+'>'}
ZZZZ010628	32000	U+=   WRITE{2,WC}
ZZZZ010628	32100	U+=   SET{WC=_P(DOCUMENT)+_P(ROOT ")+WC.PATH2+'"'}
ZZZZ010628	32200	U+=   WRITE{2,WC}
ZZZZ010628	32300	U+=   BACK{READ_NEXT2};
ZZZZ010628	32400	U+=IF{WN.R@UPPER/'</VIRTUALHOST>'}
ZZZZ010628	32500	*U+=   SET{WC='<'+_P(FILES)+_P(MATCH ")+0X5C+'.('+_L(I)
ZZZZ010628	32600	*U+=   +'[0-9]|'+_L(CGI|SHTML|PHTML|PHP3)+_Q+_L(|PL)+')$">'}
ZZZZ010628	32700	*U+=   WRITE{2,WC}
ZZZZ010628	32800	*U+=   SET{WC=_P(OPTIONS )+_P(EXEC)+'CGI'}WRITE{2,WC}
ZZZZ010628	32900	*U+=   SET{WC=_P(SET)+_P(HANDLER CGI-SCRIPT)}WRITE{2,WC}
ZZZZ010628	33000	*U+= SET{WC='#SSL'+_P(OPTIONS)+' +'+_P(STD)+_P(ENV)+_P(VARS)}
ZZZZ010628	33100	*U+=   WRITE{2,WC}
ZZZZ010628	33200	*U+=   SET{WC='</'+_P(FILES)+_P(MATCH>)}WRITE{2,WC}
ZZZZ010628	33300	**U+=   SET{WC='<'+_P(DIRECTORY ")+WC.PATH4+'">'}WRITE{2,WC}
ZZZZ010628	33400	*U+=   SET{WC=_P(OPTIONS )+_P(EXEC)+'CGI'}WRITE{2,WC}
ZZZZ010628	33500	*U+=   SET{WC=_P(SET)+_P(HANDLER CGI-SCRIPT)}WRITE{2,WC}
ZZZZ010628	33600	**U+= SET{WC='SSL'+_P(OPTIONS)+' +'+_P(STD)+_P(ENV)+_P(VARS)}
ZZZZ010628	33700	**U+=   WRITE{2,WC}
ZZZZ010628	33800	**U+=   SET{WC='</'+_P(DIRECTORY>)}WRITE{2,WC};
ZZZZ010628	33900	U+=IF_NOT{WN.R@TRIM/'#',=''}WRITE{2,WN.R};
ZZZZ010628	34000	U+=BACK{READ_NEXT2};
ZZZZ010628	34100	=READ_END2:WRITE_CLOSE{2};READ_CLOSE{2};
ZZZZ010628	34200	U+=SET{WC=WC.COPY+WC.PATH3+_P+WC.FILE_SERVER##+_L(_SSL.CONF )
ZZZZ010628	34300	U+=    +WC.CONF_DIR+WC.CONF_OUT+_L(.CONF)};
ZZZZ010628	34400	U+=WRITE{1,WC};
ZZZZ010628	34500	REPEAT= ($W0.CNT)
ZZZZ010628	34600	U+=SET{WC=WC.COPY+_TMP+_L(*_ZZZZ800000.*)+' '
ZZZZ010628	34700	**U+=  +WC.PATH4};WRITE{1,WC};
ZZZZ010628	34800	U+=  +CGI_PATH};WRITE{1,WC};
ZZZZ010628	34900	W+=SET{WC=WC.APPCMD+_L( SET CONFIG /SECTION:HANDLERS /)+'+'
ZZZZ010628	35000	W+=  +'['+_L(NAME=)+''''+_L(I)
ZZZZ010628	35100	W+=  +EXTENSION+''','+_L(PATH=)+''''+_L(*.I)
ZZZZ010628	35200	W+=  +EXTENSION+''','+_L(VERB=)+''''+'*'+''','+_L(MODULES=)
ZZZZ010628	35300	W+=  +''''+_P(CGI)+_P(MODULE)+''','+_L(SCRIPT)+'P'
ZZZZ010628	35400	W+=  +_L(ROCESSOR=)+''''+_OS_DRIVE+_P+'I'+_P+'I.'+_SYSTEM
ZZZZ010628	35500	W+=+_P+'BIN'+_P+_IV+'TIME'+_OS+'4.EXE'+''','+_L(RESOURCE)
ZZZZ010628	35600	W+=  +_P(TYPE=)+''''+_P(FILE)+''']'};
ZZZZ010628	35700	W+=WRITE{1,WC};
ZZZZ010628	35800	W+=WRITE{1,'@ECHO OFF'};
ZZZZ010628	35900	**U+=SET{WC=_L(CHMOD 755 )+WC.PATH4+_P+_L(*.I)+EXTENSION};
ZZZZ010628	36000	U+=SET{WC=_L(CHMOD 755 )+CGI_PATH+_P+_L(*.I)+EXTENSION};
ZZZZ010628	36100	U+=WRITE{1,WC};
ZZZZ010628	36200	U+=IF{WC.CONF_OUT=_L(DEFAULT-SSL)}
ZZZZ010628	36300	U+=   WRITE{1,'?_L(A2ENSITE )? ?WC.CONF_OUT?'}
ZZZZ010628	36400	U+=   WRITE{1,_L(A2ENMOD SSL)}
ZZZZ010628	36500	U+=   WRITE{1,_L(A2ENMOD USERDIR)}
ZZZZ010628	36600	U+=   WRITE{1,_L(A2ENMOD CGID)};
ZZZZ010628	36700	U+=IF{WC.CONF_DIR/_L(/ETC/APACHE2/)}
ZZZZ010628	36800	U+=   WRITE{1,_L(A2ENFLAG SSL)}
ZZZZ010628	36900	U+=   WRITE{1,_L(SERVICE APACHE2 RESTART)}JUMP{};
ZZZZ010628	37000	U+=   WRITE{1,_L(HTTPD -K RESTART)};
ZZZZ010628	37200	W+=WRITE{1,'PAUSE >NUL'};
ZZZZ010628	37300	U+=WRITE{1,_L(READ PAUSE)};
ZZZZ010628	37400	=WRITE{1,_L(EXIT)};
ZZZZ010628	37500	=WRITE_CLOSE{1};
ZZZZ010628	37600	*****( SSL2.BAT END )****************************************
ZZZZ010628	37700	U+=COMMAND{?_L(CHMOD)? 777 ?_TMP?SSL2.BAT};
ZZZZ010628	37920	W+=COMMAND{CALL ?_I?IROOT?_OS??_FRAMEWORK?.EXE
ZZZZ010628	37930	W+=      ?_TMP?SSL2.BAT};
ZZZZ010628	38000	U+FORM=TERMINALで[?_L(SU)?]でROOTユーザーになり
ZZZZ010628	38100	U+FORM2={?_TMP?SSL2.BAT}を実行して下さい。
ZZZZ010628	38200	FORM=4  [ENTER]で認証関連情報を設定します。@
ZZZZ010628	38300	DATA=GO3{3}{GO}
ZZZZ010628	38400	=SET{WC.FILE=WC.PATH2+_P+WC.TOP+_L(_INDEX.HTML)};
ZZZZ010628	38500	=IF_FILE_NOT{?WC.FILE?}
ZZZZ010628	38600	=   ERROR{?WC.FILE?ファイルが見つかりません。};
ZZZZ010628	38700	W+=EXE{?_OS_DRIVE?\WINDOWS\SYSTEM32\INETSRV\INETMGR.EXE};
ZZZZ010628	38800	W+FORM=4.1[インターネットインフォメーションサービス]
ZZZZ010628	38900	W+FORM2=を起動します。
ZZZZ010628	39000	W+FORM=4.2[サーバー証明書]のアイコンをダブルククリックします.
ZZZZ010628	39100	W+FORM=4.3右の[操作]の[インポート]クリックします。
ZZZZ010628	39200	W+FORM=4.4[証明書ファイル]の右のボタンで[
ZZZZ010628	39300	W+FORM2=?_TMP?ドメイン名?_L(.PFX)?]を探し選びます。
ZZZZ010628	39400	W+FORM=4.5[OK]をクリックします。
ZZZZ010628	39500	W+FORM=4.6全てのドメインを登録します。
ZZZZ010628	39600	W+FORM=5 HTTPS接続を可能にします。
ZZZZ010628	39700	W+FORM=5.1左の[サイト]をクリックします。
ZZZZ010628	39800	W+FORM=5.2中央の[HTTPS]をクリックします。
ZZZZ010628	39900	W+FORM=5.3右の[バインド]をクリックします。
ZZZZ010628	40000	W+FORM=5.4[サイトバインド]の最初の行をクリックします。
ZZZZ010628	40100	W+FORM=5.5右の[編集をクリックします。
ZZZZ010628	40200	W+FORM=5.6[SSL 証明書]でホスト名かIPアドレスが同じ物を選択し
ZZZZ010628	40300	W+FORM2=ます。
ZZZZ010628	40400	W+FORM=5.7[OK]で1件完成で全ての行を編集すれば設定は完了です.
ZZZZ010628	40500	W+FORM=5.6右の[開始]をクリックし開始すれば完了です。
ZZZZ010628	40600	U+FORM=HTMLは ?$WC.PATH2? に作ります。
ZZZZ010628	40700	U+FORM=CGI は @@@@@@@@@@@@@@@@ に作ります。
ZZZZ010628	40800	U+FORM=注意：CGI実行でSE?P(LINUX)?による[?_P(PERMISSION)?
ZZZZ010628	40810	U+FORM= ?_P(DENIED)?]
ZZZZ010628	40900	U+FORM=      対策は行っていないので注意して下さい。
ZZZZ010628	41000	U+DATA={O}CGI_PATH{16}
ZZZZ010628	41100	W+FORM=6 [ENTER}で証明書のインストールを実行します。@
ZZZZ010628	41200	W+DATA=GO4{3}{GO}
ZZZZ010628	41300	W+=EXE{?_L(HTTPS)?://?$WC.DOMAIN1?/?_L(INDEX.HTML)?};
ZZZZ010628	41400	W+FORM=6.1[この WEB サイトのセキュリティ証明書には
ZZZZ010628	41500	W+FORM2=問題があります]と出ます。
ZZZZ010628	41600	W+FORM=   これはまだ証明書のインストールをしてない為でます。
ZZZZ010628	41700	W+FORM=  [この WEB ページの閲覧を続ける (推奨されません)]で
ZZZZ010628	41800	W+FORM2=続行します。
ZZZZ010628	41900	W+FORM=6.1[証明書のインストール]をクリックします。
ZZZZ010628	42000	W+FORM=6.2[保管場所]を[ローカルコンピュータ]にし[次へ]を
ZZZZ010628	42100	W+FORM2=クリックします。
ZZZZ010628	42200	W+FORM=6.3[ユーザーアカウント制御]で[はい]をクリックします。
ZZZZ010628	42300	W+FORM=6.3[証明書を全て次のストアに配置する]を選びます。
ZZZZ010628	42400	W+FORM=6.4[参照]をクリックして[証明されたルート認証機関]を
ZZZZ010628	42500	W+FORM2=選んで[OK]クリックします。
ZZZZ010628	42600	W+FORM=6.5[次へ]を[完了]をクリックします。
ZZZZ010628	42700	W+FORM=6.6タブレット等にインストール出来るファイルを作る為
ZZZZ010628	42800	W+FORM2=[詳細]をクリックします。
ZZZZ010628	42900	W+FORM=6.7[ファイルにコピー]をクリックします。
ZZZZ010628	43000	W+FORM=6.8[証明書のエキスポートウイザードの開始]で[次へ]を
ZZZZ010628	43100	W+FORM2=クリックします。
ZZZZ010628	43200	W+FORM=9.9[DER]のファイル形式のままで[次へ]をクリックします。
ZZZZ010628	43300	W+FORM=9.10[ファイル名]拡張子を[.?_L(DER)?で[保存]します。
ZZZZ010628	43400	FORM= 完了です。[ENTER]で終了します。
ZZZZ010628	43500	DATA=GO5{3}{GO}
ZZZZ010628	43600	=EXIT{0};
ZZZZ010636	100	PROGRAM=NOT
ZZZZ010636	110	BEGIN
ZZZZ010636	120	=SET{WC.DIR='D:\HARASAWA\I\?_IV?_SRC'};
ZZZZ010636	200	=SET{WC='CALL,CHAR,CHECK,CLASS,COMMENT,COUNT,CREATE,DATE'
ZZZZ010636	300	= +',DECIMAL,DEFAULT,DELETE,EXECUTE,GRANT,GROUP,INDEX,INSERT'
ZZZZ010636	400	= +',INT,KEEP,MIN,NO,NULL,OBJECT,PACKAGE,PART,PASSWORD,PRINT'
ZZZZ010636	500	= +',PROGRAM,PUBLIC,REAL,SECURITY,SELECT,TIME,UPDATE,USE'
ZZZZ010636	600	= +',USER,WORK,YEAR_MONTH'};
ZZZZ010636	700	=SPLIT_CHAR{WC.}{WC}{','};
ZZZZ010636	800	DATA=A{1}
ZZZZ010636	900	=IF_ERROR_DIR{?WC.DIR?}ERROR{};
ZZZZ010636	1000	=DIR_NEXT:DIR_NEXT{WN.FILE,}JUMP{DIR_END};
ZZZZ010636	1100	=IF{WN.FILE@UPPER/'README'}BACK{DIR_NEXT};
ZZZZ010636	1200	=IF{WN.FILE@UPPER%'.TXT',%'.SRC'}JUMP{OPEN};
ZZZZ010636	1300	=BACK{DIR_NEXT};
ZZZZ010636	1400	=OPEN:SET{WC.SW=0};
ZZZZ010636	1500	=IF_ERROR_READ_OPEN{1,?WC.DIR?\?WN.FILE?}ERROR{};
ZZZZ010636	1600	=IF_ERROR_WRITE_OPEN{1,?WC.DIR?\?WN.FILE?.NEW,OT}ERROR{};
ZZZZ010636	1800	=READ_NEXT1:READ_NEXT{1,}JUMP{READ_END1};
ZZZZ010636	1900	=SET{WN=_READ_DATA,W0C=1};
ZZZZ010636	2000	=LOOP:
ZZZZ010636	2010	*IF{WN[W0C;3]='?_TILDE?+_'}JUMP{CHECK};
ZZZZ010636	2020	=IF{WN[W0C;7]='ZZZZZZ_'}JUMP{CHECK};
ZZZZ010636	2030	=JUMP{NEXT};
ZZZZ010636	2040	=CHECK:
ZZZZ010636	2100	REPEAT=37
ZZZZ010636	2200	=SET{W0LEN=WC.##@LENGTH};
ZZZZ010636	2300	=COMPUTE{W0LEN7=W0LEN+7,W0LEN3=W0LEN+3};
ZZZZ010636	2400	*IF{WN[W0C;W0LEN3]='?_TILDE?+_?WC.##?'}
ZZZZ010636	2500	*           COMPUTE{W0C2=W0C+W0LEN3}JUMP{J};
ZZZZ010636	2600	=IF{WN[W0C;W0LEN7]='ZZZZZZ_?WC.##?'}COMPUTE{W0C2=W0C+W0LEN7}
ZZZZ010636	2700	=                                                    JUMP{J};
ZZZZ010636	2800	=JUMP{REPEAT};
ZZZZ010636	2900	=J:SET{WNN=WN[1;W0C-1]+WC.##+'_X'+WN[W0C2],WN=WNN};
ZZZZ010636	2902	=JUMP{NEXT};
ZZZZ010636	2910	=REPEAT:
ZZZZ010636	3000	REPEAT=
ZZZZ010636	3100	*IF{WN[W0C;3]='?_TILDE?+_'}COMPUTE{W0C2=W0C+3}JUMP{J};
ZZZZ010636	3200	=IF{WN[W0C;7]='ZZZZZZ_'}COMPUTE{W0C2=W0C+7}JUMP{J};
ZZZZ010636	3300	=JUMP{NEXT};
ZZZZ010636	3400	=J:SET{WNN=WN[1;W0C-1]+WN[W0C2],WN=WNN};
ZZZZ010636	3500	=NEXT:
ZZZZ010636	3600	=COMPUTE{W0C+=1};
ZZZZ010636	3700	=IF{W0C<WN@LENGTH}BACK{LOOP};
ZZZZ010636	3800	=WRITE{1,WN};
ZZZZ010636	3900	=BACK{READ_NEXT1};
ZZZZ010636	4000	=READ_END1:READ_CLOSE{1};
ZZZZ010636	4100	=WRITE_CLOSE{1};
ZZZZ010636	4200	=BACK{DIR_NEXT};
ZZZZ010636	4300	=DIR_END:
ZZZZ010636	4400	DATA=B{1}
ZZZZ010638	100	PROGRAM=NOT
ZZZZ010638	300	BEGIN_END
ZZZZ010638	400	NAME=DROP_TABLE_WORK
ZZZZ010638	500	REPEAT=?_A_A?
ZZZZ010638	600	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010638	700	REPEAT=
ZZZZ010638	800	NAME= (DROP_TABLE_WORK)
ZZZZ010638	900	BEGIN
ZZZZ010638	1300	DATA=A{1}
ZZZZ010638	1700	COPY=DROP_TABLE_WORK
ZZZZ010638	1800	=COPY_TABLE{?_WORK_TABLE?A,?_MM?_ETC_TABLE,NOT};
ZZZZ010638	1900	=IF_ERROR_READ_OPEN{1,?_TMP?予約語.TXT}ERROR{};
ZZZZ010638	2100	=READ_NEXT1:READ_NEXT{1,WC.SYSTEM_KEY2,WN.SYSTEM_ETC}
ZZZZ010638	2110	=   JUMP{READ_END1};
ZZZZ010638	2200	=IF{WC.SYSTEM_KEY2[1;1]='*'}
ZZZZ010638	2210	=   SET{WN.SYSTEM_COMMENT=WC.SYSTEM_KEY2[2]}
ZZZZ010638	2300	=   BACK{READ_NEXT1};
ZZZZ010638	2400	=IF{WC.SYSTEM_KEY2@LENGTH>30,=0}BACK{READ_NEXT1};
ZZZZ010638	2500	=SET{WC.SYSTEM_KEY1='ZZZZZZ_RESERVED'
ZZZZ010638	2510	=   ,WC.SYSTEM_KEY2=WC.SYSTEM_KEY2@UPPER};
ZZZZ010638	2600	=IF{WN.SYSTEM_ETC=}SET{WN.SYSTEM_ETC=WC.SYSTEM_KEY2};
ZZZZ010638	2900	=PROGRAM{2N,?_MM?_ETC_TABLE,WN.SYSTEM_ETC,WN.SYSTEM_COMMENT}
ZZZZ010638	2910	=  {WC.SYSTEM_KEY1,WC.SYSTEM_KEY2}{};
ZZZZ010638	3100	=BACK{READ_NEXT1};
ZZZZ010638	3200	=READ_END1:READ_CLOSE{1};
ZZZZ010639	100	PROGRAM=NOT
ZZZZ010639	200	DATA=START{3}{YES,NO}
ZZZZ010639	9000	DATA=STOP{3}
ZZZZ010640	100	PROGRAM=NOT
ZZZZ010640	200	BEGIN_END
ZZZZ010640	300	NAME=DROP_TABLE_WORK
ZZZZ010640	400	REPEAT=?_A_A?
ZZZZ010640	500	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010640	600	REPEAT=
ZZZZ010640	700	NAME= (DROP_TABLE_WORK)
ZZZZ010640	800	BEGIN
ZZZZ010640	900	*SET{_TRACE=0};
ZZZZ010640	1000	REPEAT=?_A_A?
ZZZZ010640	1100	*SET{_TRACE=0};
ZZZZ010640	1200	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010640	1300	=SET{YES='YES'};
ZZZZ010640	1400	DATA={N}DUMMY{1}
ZZZZ010640	1500	=IF{#?_PP?_ARG_SLEEP!=}EXIT3{YES};
ZZZZ010640	1600	DATA=YES{4}{YES,NO}
ZZZZ010640	1700	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010640	1800	WORK=WN.SYSTEM_COMMENT{40};
ZZZZ010640	1900	WORK=WC.C_NEW{10};
ZZZZ010640	2000	WORK=WC.URL{100};
ZZZZ010640	2100	COPY=DROP_TABLE_WORK
ZZZZ010640	2200	=CREATE_TABLE{?_WORK_TABLE?A,C_KEY,C,3}
ZZZZ010640	2300	=  {C_OLD,C,15,C_NEW,C,15,SYSTEM_COMMENT,N,40,URL,C,100};
ZZZZ010640	2400	=SQL1{SELECT T1.SYSTEM_KEY2,T1.SYSTEM_ETC,T1.SYSTEM_COMMENT
ZZZZ010640	2500	=   ,T2.SYSTEM_ETC,T2.SYSTEM_COMMENT
ZZZZ010640	2600	=   ,T3.SYSTEM_ETC,T3.SYSTEM_COMMENT FROM
ZZZZ010640	2700	=   ?_MM?_ETC_TABLE T1 LEFT OUTER JOIN
ZZZZ010640	2800	=   ?_MM?_ETC_TABLE T2 ON T2.SYSTEM_KEY1=T1.SYSTEM_KEY1
ZZZZ010640	2900	=    AND T2.SYSTEM_KEY2=RTRIM(T1.SYSTEM_KEY2)?_C?'++'
ZZZZ010640	3000	=    AND T2.Z_CANCEL=' '  LEFT OUTER JOIN
ZZZZ010640	3100	=   ?_MM?_ETC_TABLE T3 ON T3.SYSTEM_KEY1=T1.SYSTEM_KEY1
ZZZZ010640	3200	=    AND T3.SYSTEM_KEY2=RTRIM(T1.SYSTEM_KEY2)?_C?'--'
ZZZZ010640	3300	=    AND T3.Z_CANCEL=' '
ZZZZ010640	3400	=    WHERE T1.SYSTEM_KEY1='ZZZZZZ_URL_VERSION'
ZZZZ010640	3500	=    AND ?_LEN(T1.SYSTEM_KEY2)?<4
ZZZZ010640	3600	=    AND T1.Z_CANCEL=' ' ORDER BY 2};
ZZZZ010640	3700	=SET{WC.URL_OLD=};
ZZZZ010640	3800	=SQL1_NEXT:SQL1_NEXT{WC.C_KEY,WC.ETC,WC.COM,WC.ETC2,WC.COM2
ZZZZ010640	3900	=    ,WC.CUT0,WC.CUT1}JUMP{SQL1_END};
ZZZZ010640	3910	=SET{WC.CUT2=,WC.CUT3=};SPLIT_CHAR{WC.CUT}{WC.CUT1}{','};
ZZZZ010640	4000	=IF{WC.ETC/'*'}BACK{SQL1_NEXT};VER35*
ZZZZ010640	4100	=SET{WC=WC.ETC+WC.COM+WC.ETC2+WC.COM2};
ZZZZ010640	4200	=SPLIT_CHAR{WC.}{WC}{','};
ZZZZ010640	4300	=SET{WC.URL=WC.1};
ZZZZ010640	4400	=SET{WC.C_OLD=WC.?_SPLIT_CHAR_COUNT?};
ZZZZ010640	4500	=SET{W0.ETC_CNT=_SPLIT_CHAR_COUNT};
ZZZZ010640	4600	=SET{W0CNT=0,WC.C_NEW=,WN.SYSTEM_COMMENT='BAD'};
ZZZZ010640	4700	=IF{WC.URL_OLD=WC.URL}JUMP{SKIP_URL};
ZZZZ010640	4800	=SET{WC.URL_OLD=WC.URL};
ZZZZ010640	4900	=URL:IF_ERROR_URL{}{?WC.URL?}JUMP{URL_ERR};
ZZZZ010640	5000	=SKIP_URL:
ZZZZ010640	5100	=IF_ERROR_READ_OPEN{1,?_URL?}JUMP{ERROR};
ZZZZ010640	5200	=READ_NEXT1:READ_NEXT{1,}JUMP{READ_END1};
ZZZZ010640	5300	=SET{_FIND_STRING=_READ_DATA+'?WC.2?'};
ZZZZ010640	5400	=IF{_FIND_STRING=0}BACK{READ_NEXT1};
ZZZZ010640	5500	=COMPUTE{W0C=_FIND_STRING+WC.2@LENGTH};
ZZZZ010640	5600	=BACK:IF{W0.ETC_CNT<4}JUMP{SPLIT_SKIP};
ZZZZ010640	5700	=SET{_FIND_STRING=_READ_DATA[W0C]+'?WC.3?'};
ZZZZ010640	5800	=COMPUTE{W0C+=_FIND_STRING,+=WC.3@LENGTH,-=1};
ZZZZ010640	5900	=SPLIT_SKIP:
ZZZZ010640	6000	=SET{WN=_READ_DATA[W0C]};
ZZZZ010640	6100	=IF{WC.CUT0<>}IF{WN@TRIM/WC.CUT0}JUMP{CUT};
ZZZZ010640	6200	=IF{WC.CUT1<>}IF{WN@TRIM/WC.CUT1}JUMP{CUT};
ZZZZ010640	6220	=IF{WC.CUT2<>}IF{WN@TRIM/WC.CUT2}JUMP{CUT};
ZZZZ010640	6230	=IF{WC.CUT3<>}IF{WN@TRIM/WC.CUT3}JUMP{CUT};
ZZZZ010640	6300	=JUMP{CUT_NOT};
ZZZZ010640	6400	=CUT:
ZZZZ010640	6500	=SET{_FIND_STRING=_READ_DATA[W0C]+'?WC.2?'};
ZZZZ010640	6600	=IF{0<_FIND_STRING}
ZZZZ010640	6700	=   COMPUTE{W0C+=_FIND_STRING,-=1,+=WC.2@LENGTH}
ZZZZ010640	6800	=   BACK{BACK};
ZZZZ010640	6900	=BACK{READ_NEXT1};
ZZZZ010640	7000	=CUT_NOT:
ZZZZ010640	7100	=IF{WN@TRIM/WC.C_OLD}
ZZZZ010640	7200	=   SET{WN.SYSTEM_COMMENT='OK'}JUMP{READ_END1};
ZZZZ010640	7300	=IF{WN@TRIM<WC.C_OLD}BACK{READ_NEXT1};
ZZZZ010640	7400	=IF_ERROR_SET{WC.C_NEW=_READ_DATA[W0C]}NOP{};
ZZZZ010640	7500	=SET{WN.SYSTEM_COMMENT='OLD!=NEW'};
ZZZZ010640	7600	=READ_END1:READ_CLOSE{1};
ZZZZ010640	7700	=JUMP{PROGRAM};
ZZZZ010640	7800	=URL_ERR:IF{W0CNT<3}COMPUTE{W0CNT+=1}BACK{URL};
ZZZZ010640	7900	=ERROR:IF_ERROR_SET{WN.SYSTEM_COMMENT=_ERROR}NOP{};
ZZZZ010640	8000	=PROGRAM:
ZZZZ010640	8100	=PROGRAM{2E,?_WORK_TABLE?A
ZZZZ010640	8200	=  ,WC.C_OLD,WC.C_NEW,WN.SYSTEM_COMMENT,WC.URL}
ZZZZ010640	8300	=  {WC.C_KEY}{};
ZZZZ010640	8400	=BACK{SQL1_NEXT};
ZZZZ010640	8500	=SQL1_END:
ZZZZ010640	8600	PROGRAM=,&X1,?_WORK_TABLE?A
ZZZZ010640	8700	CONTROL=SCROLL,0
ZZZZ010640	8800	BEGIN
ZZZZ010640	8900	=SET{_TRACE=1};
ZZZZ010640	9000	COLOR
ZZZZ010640	9100	=IF{C_NEW!=}SET{C_NEW@COLOR='R'};
ZZZZ010640	9200	=IF{SYSTEM_COMMENT!='OK'}SET{SYSTEM_COMMENT@COLOR='R'};
ZZZZ010640	9300	START
ZZZZ010640	9400	=WEB{?URL?};  VER36*
ZZZZ010640	9500	DATA={K}?&.DATA&C_KEY?
ZZZZ010640	9600	DATA=?&.DATA&C_OLD?
ZZZZ010640	9700	DATA=?&.DATA&C_NEW?
ZZZZ010640	9800	DATA=?&.DATA&SYSTEM_COMMENT?
ZZZZ010640	9900	DATA=?&.DATA&URL?
ZZZZ010640	10000	COPY=@ZZZZZZ_SQL
ZZZZ010640	10100	END
ZZZZ010640	10200	=EXIT{0};
ZZZZ010701	20	PROGRAM=NOT
ZZZZ010701	30	DATA={N}DUMMY{1}
ZZZZ010701	40	=IF_TABLE{?_MM?_MODEL_TEL_TABLE}EXIT{+1};
ZZZZ010701	50	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010701	60	DATA={O}MESSAGE{50}
ZZZZ010701	70	DATA=YES{3}{YES,NO}
ZZZZ010701	80	=IF{_DATA='YES'}EXE_I{ZZZZ010740};
ZZZZ010701	90	=EXIT{_END}
ZZZZ010701	100	MINUS=%NOT_ENTER
ZZZZ010701	200	PROGRAM=NOT,&X1,?_MM?_MODEL_TEL_TABLE
ZZZZ010701	300	CONTROL=SCROLL,PROGRAM
ZZZZ010701	400	DATA={,}?&.SET&MODEL_TEL_KEY1?
ZZZZ010701	500	CHECK2=SELECT ?_NAME_SQL? FROM ?_TABLE? ?_T?
ZZZZ010701	510	CHECK2=   WHERE Z_CANCEL=' '
ZZZZ010701	600	CHECK2=UNION SELECT ?_N?' ' ?_FROM_DUAL?
ZZZZ010701	700	CHECK2=ORDER BY 1
ZZZZ010701	800	DATA={,}?&.SET&MODEL_TEL_KEY2?
ZZZZ010701	900	CHECK2=SELECT ?_NAME_SQL? FROM ?_TABLE? ?_T?
ZZZZ010701	910	CHECK2=   WHERE Z_CANCEL=' '
ZZZZ010701	1000	CHECK2=AND ?_LR&MODEL_TEL_KEY1?
ZZZZ010701	1100	CHECK2=UNION SELECT ?_N?' ' ?_FROM_DUAL?
ZZZZ010701	1200	CHECK2=ORDER BY 1
ZZZZ010701	1300	DATA={,}?&.SET&MODEL_TEL_KEY3?
ZZZZ010701	1310	CHECK2=SELECT ?_NAME_SQL? FROM ?_TABLE? ?_T?
ZZZZ010701	1320	CHECK2=   WHERE Z_CANCEL=' '
ZZZZ010701	1330	CHECK2=AND ?_LR&MODEL_TEL_KEY1?
ZZZZ010701	1340	CHECK2=AND ?_LR&MODEL_TEL_KEY2?
ZZZZ010701	1350	CHECK2=UNION SELECT ?_N?' ' ?_FROM_DUAL?
ZZZZ010701	1360	CHECK2=ORDER BY 1
ZZZZ010701	1400	DATA={,}?&.SET&MODEL_TEL?
ZZZZ010701	1500	DATA={,}?&.SET&MODEL_TEL_COMMENT?
ZZZZ010701	1600	END
ZZZZ010701	1700	=EXIT{0};
ZZZZ010703	100	PROGRAM=NOT
ZZZZ010703	200	DATA={N}DUMMY{1}
ZZZZ010703	300	=IF_TABLE{?_MM?_MODEL_RES_ID_TABLE}EXIT{+1};
ZZZZ010703	400	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010703	500	DATA={O}MESSAGE{50}
ZZZZ010703	600	DATA=YES{3}{YES,NO}
ZZZZ010703	700	=IF{_DATA='YES'}EXE_I{ZZZZ010740};
ZZZZ010703	800	=EXIT{_END}
ZZZZ010703	900	PROGRAM=NOT,&X1,?_MM?_MODEL_RES_ID_TABLE
ZZZZ010703	1000	TABLE=&X2,?_MM?_MODEL_RES_TABLE
ZZZZ010703	1100	MINUS=%NOT_ENTER
ZZZZ010703	1200	CONTROL=SCROLL,PROGRAM
ZZZZ010703	1300	BEGIN
ZZZZ010703	1400	=SET{X2.MODEL_RES_BEGIN_DATE=_TODAY};
ZZZZ010703	1500	NAME=COLOR
ZZZZ010703	1600	*SQL_SET{WN.SYSTEM_HOLIDAY}{SELECT SYSTEM_HOLIDAY FROM
ZZZZ010703	1700	*?_MP_ZZZZ?ZZ_CALENDAR_TABLE WHERE
ZZZZ010703	1800	* SYSTEM_DATE='?X2.MODEL_RES_BEGIN_DATE?'};
ZZZZ010703	1900	*IF{_SQL_SET_COUNT=0}JUMP{C_Y};
ZZZZ010703	2000	=PROGRAM{0,?_MP_ZZZZ?ZZ_CALENDAR_TABLE,WN.SYSTEM_HOLIDAY=}
ZZZZ010703	2100	=  {WC.SYSTEM_DATE=X2.MODEL_RES_BEGIN_DATE}{};
ZZZZ010703	2300	=IF{_PROGRAM_COUNT=0}JUMP{C_Y};
ZZZZ010703	2400	=IF{WN.SYSTEM_HOLIDAY=1}JUMP{C_R};
ZZZZ010703	2500	=C_W:SET{X2.MODEL_RES_BEGIN_DATE@COLOR='W'};JUMP{SKIP};
ZZZZ010703	2600	=C_R:SET{X2.MODEL_RES_BEGIN_DATE@COLOR='R'};JUMP{SKIP};
ZZZZ010703	2700	=C_Y:SET{X2.MODEL_RES_BEGIN_DATE@COLOR='Y'};JUMP{SKIP};
ZZZZ010703	2800	=SKIP:
ZZZZ010703	2900	NAME=
ZZZZ010703	3000	DATA={,}?&.SET&MODEL_RES_KEY1?
ZZZZ010703	3100	CHECK2=SELECT DISTINCT ?_NAME_SQL? FROM ?_TABLE? ?_T?
ZZZZ010703	3200	CHECK2=  WHERE Z_CANCEL=' '
ZZZZ010703	3300	CHECK2=ORDER BY 1
ZZZZ010703	3400	DATA={,}?&.SET&MODEL_RES_KEY2?
ZZZZ010703	3500	CHECK2=SELECT DISTINCT ?_NAME_SQL? FROM ?_TABLE? ?_T?
ZZZZ010703	3600	CHECK2=WHERE Z_CANCEL=' '
ZZZZ010703	3700	CHECK2=AND ?_VE&MODEL_RES_KEY1?
ZZZZ010703	3800	CHECK2=ORDER BY 1
ZZZZ010703	3900	DATA={,}X2.?&X2.DATA&MODEL_RES_BEGIN_DATE?
ZZZZ010703	4000	COPY=COLOR
ZZZZ010703	4100	END
ZZZZ010703	4200	=EXIT{0};
ZZZZ010703	4300	PROGRAM=OUTPUT,&X1,?_MM?_MODEL_RES_ID_TABLE
ZZZZ010703	4400	TABLE=&X2,?_MM?_MODEL_RES_TABLE
ZZZZ010703	4500	CONTROL=0,SCROLL
ZZZZ010703	4600	BEGIN
ZZZZ010703	4700	=SET{WN.MIN1='00',WN.MIN2='30'};
ZZZZ010703	4800	COPY=COLOR
ZZZZ010703	4900	SET={KO}.=?&.DATA&MODEL_RES_KEY1?
ZZZZ010703	5000	SET={KO}.=?&.DATA&MODEL_RES_KEY2?
ZZZZ010703	5100	SET={KO,*}$X2.?&X2.DATA&MODEL_RES_BEGIN_DATE?
ZZZZ010703	5200	*****( 予約小分類 )*****
ZZZZ010703	5300	DATA={K }?&.DATA&MODEL_RES_KEY3?
ZZZZ010703	5400	DATA={O}R{48}
ZZZZ010703	5500	TITLE=0 1 2 3 4 5 6 7 8 9 1011121314151617181920212223
ZZZZ010703	5600	REPEAT=
ZZZZ010703	5700	*****( 予約備考 )*****
ZZZZ010703	5800	DATA={  }?&.DATA&MODEL_RES_COMMENT?
ZZZZ010703	5900	SQL=?_SELECT1?,?_CL?
ZZZZ010703	6000	REPEAT=24
ZZZZ010703	6100	REPEAT2=2
ZZZZ010703	6200	1-|$1-SQL=   ?_C?
ZZZZ010703	6300	SQL=   CASE WHEN (SELECT COUNT(*) FROM ?&X2.TABLE? X2 WHERE
ZZZZ010703	6400	H-SQL=   X2.?_VRE&.MODEL_RES_KEY1?
ZZZZ010703	6500	H-SQL=   AND X2.?_VRE&.MODEL_RES_KEY2?
ZZZZ010703	6600	H-SQL=   AND X2.?_NE&MODEL_RES_KEY3?
ZZZZ010703	6700	H-SQL=   AND ?_VE&X2.MODEL_RES_BEGIN_DATE?
ZZZZ010703	6800	H-SQL=   AND X2.MODEL_RES_BEGIN_TIME
ZZZZ010703	6900	H-SQL=   IN('0#-?WN.MIN$$?','#-?WN.MIN$$?')
ZZZZ010703	7000	H-SQL=   AND X2.Z_CANCEL=' ')>0 THEN '#'
ZZZZ010703	7100	H-SQL=   WHEN (SELECT COUNT(*) FROM ?&X2.TABLE? X2 WHERE
ZZZZ010703	7200	SQL=   X2.?_VRE&.MODEL_RES_KEY1?
ZZZZ010703	7300	SQL=   AND X2.?_VRE&.MODEL_RES_KEY2?
ZZZZ010703	7400	SQL=   AND X2.?_NE&MODEL_RES_KEY3?
ZZZZ010703	7500	SQL=   AND ?_CL?X2.MODEL_RES_BEGIN_DATE
ZZZZ010703	7600	SQL=   ?_C?X2.MODEL_RES_BEGIN_TIME?_CR?
ZZZZ010703	7700	SQL=   <=CASE WHEN 10>#-
ZZZZ010703	7800	SQL=   THEN '?X2.MODEL_RES_BEGIN_DATE?0#-?WN.MIN$$?'
ZZZZ010703	7900	SQL=   ELSE '?X2.MODEL_RES_BEGIN_DATE?#-?WN.MIN$$?' END
ZZZZ010703	8000	SQL=   AND ?_CL?X2.MODEL_RES_END_DATE
ZZZZ010703	8100	SQL=   ?_C?X2.MODEL_RES_END_TIME?_CR?
ZZZZ010703	8200	SQL=   >CASE WHEN 10>#-
ZZZZ010703	8300	SQL=   THEN '?X2.MODEL_RES_BEGIN_DATE?0#-?WN.MIN$$?'
ZZZZ010703	8400	SQL=   ELSE '?X2.MODEL_RES_BEGIN_DATE?#-?WN.MIN$$?' END
ZZZZ010703	8500	SQL=   AND X2.Z_CANCEL=' ')>0 THEN '*' ELSE ' ' END
ZZZZ010703	8600	REPEAT=
ZZZZ010703	8700	SQL=   ?_CR?
ZZZZ010703	8800	REPEAT=_DATA_COUNT,_DATA_COUNT
ZZZZ010703	8900	SQL=   ,?_##?
ZZZZ010703	9000	REPEAT=
ZZZZ010703	9100	MINUS=%ZZZZZZ_SQL_SELECT
ZZZZ010703	9200	COPY=@ZZZZZZ_SQL
ZZZZ010703	9300	PROGRAM=,&X1,?_MM?_MODEL_RES_TABLE
ZZZZ010703	9400	LEFT=&X2,?_MP_ZZZZ?ZZ_I_SECURITY_TABLE,,*
ZZZZ010703	9500	JOIN_ON=?_T?.Z_ADD_PERSON=X2.SYSTEM_PERSON
ZZZZ010703	9600	DICTIONARY=Z_ADD_PERSON
ZZZZ010703	9700	CONTROL=SCROLL,BEGIN_ENTER
ZZZZ010703	9800	COLOR
ZZZZ010703	9900	*SQL_SET{WN.SYSTEM_HOLIDAY}{SELECT SYSTEM_HOLIDAY FROM
ZZZZ010703	10000	*?_MP_ZZZZ?ZZ_CALENDAR_TABLE WHERE
ZZZZ010703	10100	* SYSTEM_DATE='?MODEL_RES_BEGIN_DATE?'}
ZZZZ010703	10200	*IF{_SQL_SET_COUNT=0}JUMP{C_Y};
ZZZZ010703	10300	=PROGRAM{0,?_MP_ZZZZ?ZZ_CALENDAR_TABLE,WN.SYSTEM_HOLIDAY=}
ZZZZ010703	10400	=  {WC.SYSTEM_DATE=X2.MODEL_RES_BEGIN_DATE}{};
ZZZZ010703	10600	=IF{_PROGRAM_COUNT=0}JUMP{C_Y};
ZZZZ010703	10700	=IF{WN.SYSTEM_HOLIDAY=1}JUMP{C_R};
ZZZZ010703	10800	=C_W:SET{X2.MODEL_RES_BEGIN_DATE@COLOR='W'};JUMP{SKIP};
ZZZZ010703	10900	=C_R:SET{X2.MODEL_RES_BEGIN_DATE@COLOR='R'};JUMP{SKIP};
ZZZZ010703	11000	=C_Y:SET{X2.MODEL_RES_BEGIN_DATE@COLOR='Y'};JUMP{SKIP};
ZZZZ010703	11100	=SKIP:
ZZZZ010703	11200	*SQL_SET{WN.SYSTEM_HOLIDAY}{SELECT SYSTEM_HOLIDAY FROM
ZZZZ010703	11300	*?_MP_ZZZZ?ZZ_CALENDAR_TABLE WHERE
ZZZZ010703	11400	* SYSTEM_DATE='?MODEL_RES_END_DATE?'};
ZZZZ010703	11500	*IF{_SQL_SET_COUNT=0}JUMP{C_Y};
ZZZZ010703	11600	=PROGRAM{0,?_MP_ZZZZ?ZZ_CALENDAR_TABLE,WN.SYSTEM_HOLIDAY=}
ZZZZ010703	11700	=  {WC.SYSTEM_DATE=MODEL_RES_END_DATE}{};
ZZZZ010703	11900	=IF{_PROGRAM_COUNT=0}JUMP{C_Y};
ZZZZ010703	12000	=IF{WN.SYSTEM_HOLIDAY=1}JUMP{C_R};
ZZZZ010703	12100	=C_W:SET{MODEL_RES_END_DATE@COLOR='W'};JUMP{SKIP};
ZZZZ010703	12200	=C_R:SET{MODEL_RES_END_DATE@COLOR='R'};JUMP{SKIP};
ZZZZ010703	12300	=C_Y:SET{MODEL_RES_END_DATE@COLOR='Y'};JUMP{SKIP};
ZZZZ010703	12400	=SKIP:
ZZZZ010703	12500	BEGIN
ZZZZ010703	12600	COPY=COLOR
ZZZZ010703	12700	SET={KO,}$.?&.DATA&MODEL_RES_KEY1?
ZZZZ010703	12800	SET={KO,}$.?&.DATA&MODEL_RES_KEY2?
ZZZZ010703	12900	SET={KO,}.=?&.DATA&MODEL_RES_KEY3?
ZZZZ010703	13000	SET={,*}$X2.?&.DATA&MODEL_RES_BEGIN_DATE?
ZZZZ010703	13100	=SET{_DATA@WHERE='(?_T?.?_VRGE&X2.MODEL_RES_BEGIN_DATE?'
ZZZZ010703	13200	=   +' OR  ?_T?.MODEL_RES_END_DATE'
ZZZZ010703	13300	=   +' >=''?X2.MODEL_RES_BEGIN_DATE?'')'};
ZZZZ010703	13400	COPY=COLOR
ZZZZ010703	13500	START
ZZZZ010703	13600	=IF{_START=2}JUMP{ADD};
ZZZZ010703	13700	=IF{_SECURITY='ADMN'}EXIT{};
ZZZZ010703	13800	=IF{_PERSON!=Z_ADD_PERSON}IF{_SECURITY!='ADMN'}
ZZZZ010703	13900	=   ERROR{PERSON!=?Z_ADD_PERSON? AND NOT ADMIN};
ZZZZ010703	14000	=EXIT{};
ZZZZ010703	14100	=ADD:IF{MODEL_RES_BEGIN_DATE=}
ZZZZ010703	14200	=SET{MODEL_RES_BEGIN_DATE=X2.MODEL_RES_BEGIN_DATE};
ZZZZ010703	14300	*****( 予約開始年月日 )*****
ZZZZ010703	14400	DATA={K }?&.DATA&MODEL_RES_BEGIN_DATE?
ZZZZ010703	14500	=IF{MODEL_RES_END_DATE=}
ZZZZ010703	14600	=  SET{MODEL_RES_END_DATE=MODEL_RES_BEGIN_DATE};
ZZZZ010703	14700	*****( 予約開始時分 )*****
ZZZZ010703	14800	DATA={K }?&.DATA&MODEL_RES_BEGIN_TIME?
ZZZZ010703	14900	CHECK=0000,0030
ZZZZ010703	15000	REPEAT=9
ZZZZ010703	15100	CHECK=,0##00,0##30
ZZZZ010703	15200	REPEAT=
ZZZZ010703	15300	REPEAT=23,10
ZZZZ010703	15400	CHECK=,##00,##30
ZZZZ010703	15500	REPEAT=
ZZZZ010703	15600	NAME=BEGIN_ERROR1
ZZZZ010703	15700	=SET{WN.MODEL_RES_END_DATE=,WN.MODEL_RES_END_TIME=};
ZZZZ010703	15800	=SET{WN.BEGIN=MODEL_RES_BEGIN_DATE+MODEL_RES_BEGIN_TIME};
ZZZZ010703	15900	=SQL_SET{WN.MODEL_RES_END_DATE,WN.MODEL_RES_END_TIME}
ZZZZ010703	16000	=  {SELECT MODEL_RES_END_DATE,MODEL_RES_END_TIME
ZZZZ010703	16100	=   FROM ?_TABLE?
ZZZZ010703	16200	=   WHERE ?_VRE&.MODEL_RES_KEY1?
ZZZZ010703	16300	=   AND   ?_VRE&.MODEL_RES_KEY2?
ZZZZ010703	16400	=   AND  ?_VRE&.MODEL_RES_KEY3?
ZZZZ010703	16500	=   AND ?_CL?MODEL_RES_BEGIN_DATE
ZZZZ010703	16600	=   ?_C?MODEL_RES_BEGIN_TIME?_CR?<='?WN.BEGIN?'
ZZZZ010703	16700	=   AND ?_CL?MODEL_RES_END_DATE
ZZZZ010703	16800	=   ?_C?MODEL_RES_END_TIME?_CR?>'?WN.BEGIN?'
ZZZZ010703	16900	=   AND Z_CANCEL=' '
ZZZZ010703	17000	NAME=BEGIN_ERROR2
ZZZZ010703	17100	=  };
ZZZZ010703	17200	=IF{WN.MODEL_RES_END_DATE!=}
ZZZZ010703	17300	=   ERROR{BEGIN ?WN.MODEL_RES_END_DATE?
ZZZZ010703	17400	=   ?WN.MODEL_RES_END_TIME?};
ZZZZ010703	17500	NAME=
ZZZZ010703	17600	=IF{MODEL_RES_END_TIME=}
ZZZZ010703	17700	=   SET{MODEL_RES_END_TIME=MODEL_RES_BEGIN_TIME};
ZZZZ010703	17800	*****( 予約終了年月日 )*****
ZZZZ010703	17900	DATA={K }?&.DATA&MODEL_RES_END_DATE?
ZZZZ010703	18000	=IF{_DATA<MODEL_RES_BEGIN_DATE}ERROR{<BEGIN_DATE};
ZZZZ010703	18100	*****( 予約終了時分 )*****
ZZZZ010703	18200	DATA={K }?&.DATA&MODEL_RES_END_TIME?
ZZZZ010703	18300	CHECK=0030
ZZZZ010703	18400	REPEAT=9
ZZZZ010703	18500	CHECK=,0##00,0##30
ZZZZ010703	18600	REPEAT=
ZZZZ010703	18700	REPEAT=23,10
ZZZZ010703	18800	CHECK=,##00,##30
ZZZZ010703	18900	REPEAT=
ZZZZ010703	19000	CHECK=,2400
ZZZZ010703	19100	=IF{MODEL_RES_BEGIN_DATE=MODEL_RES_END_DATE}
ZZZZ010703	19200	=   IF{MODEL_RES_BEGIN_TIME>=MODEL_RES_END_TIME}
ZZZZ010703	19300	=   ERROR{<=BEGIN_TIME};
ZZZZ010703	19400	NAME=END_ERROR1
ZZZZ010703	19500	=SET{WN.MODEL_RES_BEGIN_DATE=,WN.MODEL_RES_BEGIN_TIME=};
ZZZZ010703	19600	=SET{WN.END=MODEL_RES_END_DATE+MODEL_RES_END_TIME};
ZZZZ010703	19700	=SQL_SET{WN.MODEL_RES_BEGIN_DATE,WN.MODEL_RES_BEGIN_TIME}
ZZZZ010703	19900	={SELECT MODEL_RES_BEGIN_DATE,MODEL_RES_BEGIN_TIME
ZZZZ010703	20000	=   FROM ?_TABLE?
ZZZZ010703	20100	=   WHERE ?_VRE&.MODEL_RES_KEY1?
ZZZZ010703	20200	=   AND   ?_VRE&.MODEL_RES_KEY2?
ZZZZ010703	20300	=   AND   ?_VRE&.MODEL_RES_KEY3?
ZZZZ010703	20400	=   AND ?_CL?MODEL_RES_BEGIN_DATE
ZZZZ010703	20500	=       ?_C?MODEL_RES_BEGIN_TIME?_CR?
ZZZZ010703	20600	=       <'?WN.END?'
ZZZZ010703	20700	=   AND ?_CL?MODEL_RES_END_DATE
ZZZZ010703	20800	=       ?_C?MODEL_RES_END_TIME?_CR?
ZZZZ010703	20900	=       >='?WN.END?'
ZZZZ010703	21000	=   AND Z_CANCEL=' '
ZZZZ010703	21100	NAME=END_ERROR2
ZZZZ010703	21200	=};
ZZZZ010703	21300	=IF{WN.MODEL_RES_BEGIN_DATE!=}
ZZZZ010703	21400	=   ERROR{END ?WN.MODEL_RES_BEGIN_DATE?
ZZZZ010703	21500	=  ?WN.MODEL_RES_BEGIN_TIME?};
ZZZZ010703	21600	*******************************************************
ZZZZ010703	21700	NAME=ERROR1
ZZZZ010703	21800	=SET{WN.BEGIN=MODEL_RES_BEGIN_DATE+MODEL_RES_BEGIN_TIME};
ZZZZ010703	21900	=SET{WN.END=MODEL_RES_END_DATE+MODEL_RES_END_TIME};
ZZZZ010703	22000	=SQL_SET{WN.MODEL_RES_BEGIN_DATE,WN.MODEL_RES_BEGIN_TIME}
ZZZZ010703	22100	=  {SELECT MODEL_RES_BEGIN_DATE,MODEL_RES_BEGIN_TIME
ZZZZ010703	22200	=   FROM ?_TABLE?
ZZZZ010703	22300	=   WHERE ?_VRE&.MODEL_RES_KEY1?
ZZZZ010703	22400	=   AND ?_VRE&.MODEL_RES_KEY2?
ZZZZ010703	22500	=   AND ?_VRE&.MODEL_RES_KEY3? AND
ZZZZ010703	22600	=   ?_CL?MODEL_RES_BEGIN_DATE
ZZZZ010703	22700	=   ?_C?MODEL_RES_BEGIN_TIME?_CR?>='?WN.BEGIN?'
ZZZZ010703	22800	=   AND ?_CL?MODEL_RES_BEGIN_DATE
ZZZZ010703	22900	=   ?_C?MODEL_RES_BEGIN_TIME?_CR? < '?WN.END?'
ZZZZ010703	23000	=   AND Z_CANCEL=' '
ZZZZ010703	23100	NAME=ERROR2
ZZZZ010703	23200	=   };
ZZZZ010703	23300	=IF{WN.MODEL_RES_BEGIN_DATE!=}
ZZZZ010703	23400	=   ERROR{BEGIN2 ?WN.MODEL_RES_BEGIN_DATE?
ZZZZ010703	23500	=   ?WN.MODEL_RES_BEGIN_TIME?};
ZZZZ010703	23600	NAME=
ZZZZ010703	23700	*****( 予約備考 )*****
ZZZZ010703	23800	DATA={  }?&.DATA&MODEL_RES_COMMENT?
ZZZZ010703	23900	*SQL_SET{W0.C}{SELECT COUNT(*) FROM ?_TABLE? ?_T?
ZZZZ010703	24000	*EPEAT=_SET_COUNT
ZZZZ010703	24100	*?_WHERE##?
ZZZZ010703	24200	*EPEAT=
ZZZZ010703	24300	*EPEAT=
ZZZZ010703	24400	*AND .Z_CANCEL=' '};
ZZZZ010703	24500	=IF{_START!=2}EXIT{};
ZZZZ010703	24600	COPY=BEGIN_ERROR1
ZZZZ010703	24700	COPY=BEGIN_ERROR2
ZZZZ010703	24800	COPY=END_ERROR1
ZZZZ010703	24900	COPY=END_ERROR2
ZZZZ010703	25000	COPY=ERROR1
ZZZZ010703	25100	COPY=ERROR2
ZZZZ010703	25200	DATA={*O}?&DATA&Z_ADD_PERSON?
ZZZZ010703	25300	DATA={*O}X2.?&X2.DATA&SYSTEM_PERSON_NAME?
ZZZZ010703	25400	STOP_AFTER
ZZZZ010703	25500	=IF{_START!=2}EXIT{};
ZZZZ010703	25600	COPY=BEGIN_ERROR1
ZZZZ010703	25700	NAME=MY
ZZZZ010703	25800	=   AND NOT
ZZZZ010703	25900	=   (?_VRE&MODEL_RES_BEGIN_DATE?
ZZZZ010703	26000	=   AND ?_VRE&MODEL_RES_BEGIN_TIME?
ZZZZ010703	26100	=   AND ?_VRE&MODEL_RES_END_DATE?
ZZZZ010703	26200	=   AND ?_VRE&MODEL_RES_END_TIME?
ZZZZ010703	26300	=   AND ?_VRE&MODEL_RES_COMMENT?
ZZZZ010703	26400	=   AND Z_ADD_PERSON='?_PERSON?')
ZZZZ010703	26500	NAME=
ZZZZ010703	26600	COPY=BEGIN_ERROR2
ZZZZ010703	26700	COPY=END_ERROR1
ZZZZ010703	26800	COPY=MY
ZZZZ010703	26900	COPY=END_ERROR2
ZZZZ010703	27000	COPY=ERROR1
ZZZZ010703	27100	COPY=MY
ZZZZ010703	27200	COPY=ERROR2
ZZZZ010703	27300	COPY=@ZZZZZZ_SQL
ZZZZ010703	27400	END
ZZZZ010703	27500	=SET{_RETURN_SQL=1};
ZZZZ010705	20	PROGRAM=NOT
ZZZZ010705	30	DATA={N}DUMMY{1}
ZZZZ010705	40	=IF_TABLE{?_MM?_MODEL_POST_TABLE}EXIT{+1};
ZZZZ010705	50	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010705	60	DATA={O}MESSAGE{50}
ZZZZ010705	70	DATA=YES{3}{YES,NO}
ZZZZ010705	80	=IF{_DATA='YES'}EXE_I{ZZZZ010740};
ZZZZ010705	90	=EXIT{_END}
ZZZZ010705	100	PROGRAM=,&X1,?_MM?_MODEL_POST_TABLE
ZZZZ010705	200	CONTROL=SCROLL
ZZZZ010705	300	SET={}.?&.SET&MODEL_ADD_NO?
ZZZZ010705	400	*SET={}?&.SET&MODEL_ADD_REPEAT?
ZZZZ010705	500	SET={}.?&.SET&MODEL_ADD_ADDRESS1?
ZZZZ010705	600	SET={}.?&.SET&MODEL_ADD_ADDRESS2?
ZZZZ010705	700	SET={}.?&.SET&MODEL_ADD_ADDRESS3?
ZZZZ010705	800	*****( 郵便番号 )*****
ZZZZ010705	900	DATA={K}?&.DATA&MODEL_ADD_NO?
ZZZZ010705	1000	*****( 郵便番号重複 )*****
ZZZZ010705	1100	DATA={K}?&.DATA&MODEL_ADD_REPEAT?
ZZZZ010705	1200	*****( 住所１ )*****
ZZZZ010705	1300	DATA={}?&.DATA&MODEL_ADD_ADDRESS1?
ZZZZ010705	1400	*****( 住所２ )*****
ZZZZ010705	1500	DATA={}?&.DATA&MODEL_ADD_ADDRESS2?
ZZZZ010705	1600	*****( 住所３ )*****
ZZZZ010705	1700	DATA={}?&.DATA&MODEL_ADD_ADDRESS3?
ZZZZ010705	1800	COPY=@ZZZZZZ_SQL
ZZZZ010705	1900	END
ZZZZ010705	2000	=EXIT{0};
ZZZZ010708	100	PROGRAM=NOT
ZZZZ010708	200	FORM=[ENTER]でTIMER処理を１０回繰り返します @
ZZZZ010708	300	CONTROL=PROGRAM
ZZZZ010708	400	DATA=A{10}
ZZZZ010708	500	=TIMER{1};
ZZZZ010708	600	REPEAT=10
ZZZZ010708	700	FORM= @ ##
ZZZZ010708	800	DATA=A##{10}
ZZZZ010708	900	10-=TIMER{1};
ZZZZ010708	1000	REPEAT=
ZZZZ010708	1100	FORM=@
ZZZZ010708	1200	DATA=B{1}
ZZZZ010710	100	PROGRAM=NOT
ZZZZ010710	200	DATA={N}DUMMY{1}
ZZZZ010710	300	=IF_TABLE{?_MM?_MODEL_ALL1_USE_TABLE}EXIT{+1};
ZZZZ010710	400	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010710	500	DATA={O}MESSAGE{50}
ZZZZ010710	600	DATA=YES{3}{YES,NO}
ZZZZ010710	700	=IF{_DATA='YES'}EXE_I{ZZZZ010740};
ZZZZ010710	800	=EXIT{_END}
ZZZZ010710	900	PROGRAM=NOT,&X1,?_MM?_MODEL_ALL1_USE_TABLE
ZZZZ010710	1000	CONTROL=PROGRAM,BEGIN_ENTER
ZZZZ010710	1100	*TABLE=&X1,?_MM?_MODEL_ALL1_USE_TABLE
ZZZZ010710	1200	TABLE=&X2,?_MM?_MODEL_ALL2_USE_TABLE
ZZZZ010710	1300	DICTIONARY=MODEL_ALL_COST
ZZZZ010710	1400	DICTIONARY=MODEL_ALL_COST_SUM
ZZZZ010710	1500	BEGIN_END
ZZZZ010710	1600	REPEAT=?_A_B?
ZZZZ010710	1700	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010710	1800	REPEAT=
ZZZZ010710	1900	BEGIN
ZZZZ010710	2000	***( 当月使用情報作成 ETC )*************
ZZZZ010710	2100	=SET{WN.TODAY=_TODAY,WN.YM=WN.TODAY[1;4]};
ZZZZ010710	2200	=COPY_TABLE{?_WORK_TABLE?A,?_MM?_MODEL_ALL1_ORG_TABLE,
ZZZZ010710	2300	=   WHERE I.MODEL_ALL_YM=
ZZZZ010710	2400	=   (SELECT MAX(X3.MODEL_ALL_YM) FROM
ZZZZ010710	2500	=   ?_MM?_MODEL_ALL1_ORG_TABLE X3
ZZZZ010710	2600	=   WHERE I.?_NE&X3.MODEL_ALL_KIND?
ZZZZ010710	2700	=   AND  X3.MODEL_ALL_YM<='?WN.YM?'
ZZZZ010710	2800	=   AND  X3.Z_CANCEL=' ') AND I.Z_CANCEL=' '};
ZZZZ010710	2900	=SQL{UPDATE ?_WORK_TABLE?A SET MODEL_ALL_YM='?WN.YM?'};
ZZZZ010710	3000	=REPLACE_ALL{?&.TABLE?,?_WORK_TABLE?A,?&.DATA?}{?&.KEY?}
ZZZZ010710	3100	=  {*O*.MODEL_ALL_YM='?WN.YM?'}{};
ZZZZ010710	3200	***( 当月使用情報作成 STA )*************
ZZZZ010710	3300	=COPY_TABLE{?_WORK_TABLE?B,?_MM?_MODEL_ALL2_ORG_TABLE,
ZZZZ010710	3400	=   WHERE I.MODEL_ALL_YM=
ZZZZ010710	3500	=   (SELECT MAX(X3.MODEL_ALL_YM) FROM
ZZZZ010710	3600	=   ?_MM?_MODEL_ALL2_ORG_TABLE X3
ZZZZ010710	3700	=   WHERE I.?_NE&X3.MODEL_ALL_PAY_M?
ZZZZ010710	3800	=   AND   I.?_NE&X3.MODEL_ALL_DIVISION?
ZZZZ010710	3900	=   AND  X3.MODEL_ALL_YM<='?WN.YM?'
ZZZZ010710	4000	=   AND  X3.Z_CANCEL=' ') AND I.Z_CANCEL=' '};
ZZZZ010710	4100	=SQL{UPDATE ?_WORK_TABLE?B SET MODEL_ALL_YM='?WN.YM?'};
ZZZZ010710	4200	=REPLACE_ALL{?&X2.TABLE?,?_WORK_TABLE?B,?&X2.DATA?}
ZZZZ010710	4300	=  {?&X2.KEY?}{*O*.MODEL_ALL_YM='?WN.YM?'}{};
ZZZZ010710	4400	*****( 初期値設定 )*********************
ZZZZ010710	4500	=SET{基本給=!MODEL_ALL_基本給};
ZZZZ010710	4600	=SET{手当=!MODEL_ALL_手当};
ZZZZ010710	4700	=SET{通勤内容=!MODEL_ALL_通勤内容};
ZZZZ010710	4800	=SET{報酬月額=!MODEL_ALL_PAY_M};
ZZZZ010710	4900	=SET{健康保険=!MODEL_ALL_健康保険};
ZZZZ010710	5000	=SET{通勤費=!MODEL_ALL_通勤費};
ZZZZ010710	5100	=SET{生年月日=!MODEL_ALL_生年月日};
ZZZZ010710	5200	=SET{住民税=!MODEL_ALL_住民税};
ZZZZ010710	5300	=SET{雇用保険個人=!MODEL_ALL_雇用保険個人};
ZZZZ010710	5400	=SET{他所得控除=!MODEL_ALL_他所得控除};
ZZZZ010710	5500	=SET{WN.CL='CAST(',WN.CR=' AS DECIMAL(15,0))'};
ZZZZ010710	5600	FORM= CHECK @ 労働日数 @@@  労働時間 @@@ / @@@
ZZZZ010710	5700	DATA=CKECK{1}
ZZZZ010710	5800	=SET{WN.内容='労働日数'};
ZZZZ010710	5900	NAME=SQL_SET2
ZZZZ010710	6000	=SQL_SET{?WN.内容?分子,?WN.内容?分母}
ZZZZ010710	6100	=  {SELECT ?_T?.MODEL_ALL_NUMERATOR
ZZZZ010710	6200	=   ,?_T?.MODEL_ALL_DENOMINATOR
ZZZZ010710	6300	=   FROM ?&.TABLE? ?_T?
ZZZZ010710	6400	=   WHERE ?_T?.MODEL_ALL_KIND=?_N?'?WN.内容?'
ZZZZ010710	6500	=   AND ?_T?.MODEL_ALL_YM='?WN.YM?'};
ZZZZ010710	6600	=IF{_SQL_SET_COUNT=0}ERROR{'?WN.内容?' 無し};
ZZZZ010710	6700	NAME=
ZZZZ010710	6800	=SET{WN.内容='労働時間'};
ZZZZ010710	6900	COPY=SQL_SET2
ZZZZ010710	7000	=SET{WN.内容='割増時間外'};
ZZZZ010710	7100	COPY=SQL_SET2
ZZZZ010710	7200	=SET{WN.内容='割増休日'};
ZZZZ010710	7300	COPY=SQL_SET2
ZZZZ010710	7400	=SET{WN.内容='割増深夜'};
ZZZZ010710	7500	COPY=SQL_SET2
ZZZZ010710	7600	=IF{割増深夜分母<>割増休日分母,<>割増時間外分母}
ZZZZ010710	7700	=   ERROR{割増深夜分母不一致};
ZZZZ010710	7800	=SET{割増時間外深夜分母=割増時間外分母};
ZZZZ010710	7900	=SET{割増休日深夜分母=割増時間外分母};
ZZZZ010710	8000	=COMPUTE{割増時間外深夜分子=割増深夜分子+割増時間外分子};
ZZZZ010710	8100	=COMPUTE{割増休日深夜分子  =割増深夜分子+割増休日分子};
ZZZZ010710	8200	DATA={O}労働日数分子{3,,+,Z}
ZZZZ010710	8300	DATA={N}労働日数分母{3,,+,Z}
ZZZZ010710	8400	DATA={O}労働時間分子{3,,+,Z}
ZZZZ010710	8500	DATA={O}労働時間分母{3,,+,Z}
ZZZZ010710	8600	FORM=基本給       @@@@@@@@@@ 基礎単価 @@@@@@@@@
ZZZZ010710	8700	DATA=基本給?&DATA2&MODEL_ALL_COST?
ZZZZ010710	8800	=IF{_DATA=0}ERROR{=0};
ZZZZ010710	8900	=SQL_SET{基礎単価}{SELECT ?WN.CL??WN.CL??基本給??WN.CR?
ZZZZ010710	9000	= /(?WN.CL??労働日数分子??WN.CR?*?WN.CL??労働時間分子??WN.CR?
ZZZZ010710	9100	=   /?WN.CL??労働時間分母??WN.CR?/?WN.CL?12?WN.CR?)?WN.CR?
ZZZZ010710	9200	=   ?_FROM_DUAL?};
ZZZZ010710	9300	=SET{!MODEL_ALL_?_NAME?=_DATA};
ZZZZ010710	9400	DATA={O}基礎単価?&DATA2&MODEL_ALL_COST?
ZZZZ010710	9500	FORM=手当         @@@@@@@@@
ZZZZ010710	9600	DATA=手当?&DATA2&MODEL_ALL_COST?
ZZZZ010710	9700	=SET{!MODEL_ALL_?_NAME?=_DATA};
ZZZZ010710	9800	FORM=通勤費       @@@@@@@@@ 内容 @@@@@@@@ 非課税額(元) @
ZZZZ010710	9900	DATA=通勤費?&DATA2&MODEL_ALL_COST?
ZZZZ010710	10000	=SET{!MODEL_ALL_?_NAME?=_DATA};
ZZZZ010710	10100	=IF{_DATA>0}EXIT{};
ZZZZ010710	10200	=SET{通勤内容=,非課税額元=,非課税通勤費=};EXIT{時間外時間};
ZZZZ010710	10300	DATA=通勤内容{12,,N}
ZZZZ010710	10400	NAME=CHECK2
ZZZZ010710	10500	CHECK2=SELECT REPLACE(MODEL_ALL_KIND,'?_NAME?','')
ZZZZ010710	10600	CHECK2=FROM ?&.TABLE? WHERE MODEL_ALL_YM='?WN.YM?'
ZZZZ010710	10700	CHECK2=AND MODEL_ALL_KIND LIKE '?_NAME?%'
ZZZZ010710	10800	CHECK2=AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010710	10900	NAME=
ZZZZ010710	11000	=SQL_SET{非課税額元}{SELECT ?_T?.MODEL_ALL_NUMERATOR FROM
ZZZZ010710	11100	=   ?&.TABLE? ?_T?
ZZZZ010710	11200	=   WHERE MODEL_ALL_KIND=?_N?'通勤内容?_DATA?'
ZZZZ010710	11300	=   AND ?_T?.MODEL_ALL_YM='?WN.YM?'};
ZZZZ010710	11400	=IF{_SQL_SET_COUNT=0}ERROR{プログラムミス};
ZZZZ010710	11500	=SET{!MODEL_ALL_?_NAME?=_DATA};
ZZZZ010710	11600	=IF{非課税額元>通勤費}SET{非課税通勤費=通勤費};
ZZZZ010710	11700	=IF{非課税額元<通勤費}SET{非課税通勤費=非課税額元};
ZZZZ010710	11800	DATA={O}非課税額元?&DATA2&MODEL_ALL_COST?
ZZZZ010710	11900	FORM=時間外     @@@@@@@@@ @@@@@@ 割増 @@ / @@@
ZZZZ010710	12000	DATA={O}時間外?&DATA2&MODEL_ALL_COST_SUM?
ZZZZ010710	12100	DATA={}時間外時間{5,2,+,Z}
ZZZZ010710	12200	=SET{WN='時間外'};
ZZZZ010710	12300	NAME=COMPUTE
ZZZZ010710	12400	=COMPUTE{W0.H=?WN?時間*100};
ZZZZ010710	12500	=SET{W0.S=割増?WN?分子,W0.B=割増?WN?分母};
ZZZZ010710	12600	=SQL_SET{?WN?}{SELECT ?WN.CL??WN.CL??基礎単価??WN.CR?
ZZZZ010710	12700	=   *?WN.CL??W0.H??WN.CR?*(?WN.CL??W0.B?+?W0.S??WN.CR?)
ZZZZ010710	12800	=   /(?WN.CL??W0.B?*100?WN.CR?)?WN.CR? ?_FROM_DUAL?};
ZZZZ010710	12900	NAME=
ZZZZ010710	13000	DATA={O}割増時間外分子{2,,+,Z}
ZZZZ010710	13100	DATA={O}割増時間外分母{3,,+,Z}
ZZZZ010710	13200	FORM=休日　     @@@@@@@@@ @@@@@@ 割増 @@ / @@@
ZZZZ010710	13300	DATA={O}休日?&DATA2&MODEL_ALL_COST_SUM?
ZZZZ010710	13400	DATA={}休日時間{5,2,+,Z}
ZZZZ010710	13500	=SET{WN='休日'};
ZZZZ010710	13600	COPY=COMPUTE
ZZZZ010710	13700	DATA={O}割増休日分子{2,,+,Z}
ZZZZ010710	13800	DATA={O}割増休日分母{3,,+,Z}
ZZZZ010710	13900	FORM=時間外深夜 @@@@@@@@@ @@@@@@
ZZZZ010710	14000	DATA={O}時間外深夜?&DATA2&MODEL_ALL_COST_SUM?
ZZZZ010710	14100	DATA={}時間外深夜時間{5,2,+,Z}
ZZZZ010710	14200	=SET{WN='時間外深夜'};
ZZZZ010710	14300	COPY=COMPUTE
ZZZZ010710	14400	FORM2= 割増 @@ / @@@ 割増深夜 @@ / @@@
ZZZZ010710	14500	DATA={O}割増時間外深夜分子{2,,+,Z}
ZZZZ010710	14600	DATA={O}割増時間外深夜分母{3,,+,Z}
ZZZZ010710	14700	DATA={O}割増深夜分子{2,,+,Z}
ZZZZ010710	14800	DATA={O}割増深夜分母{3,,+,Z}
ZZZZ010710	14900	FORM=休日深夜   @@@@@@@@@ @@@@@@ 割増 @@ / @@@
ZZZZ010710	15000	DATA={O}休日深夜?&DATA2&MODEL_ALL_COST_SUM?
ZZZZ010710	15100	DATA={}休日深夜時間{5,2,+,Z}
ZZZZ010710	15200	=SET{WN='休日深夜'};
ZZZZ010710	15300	COPY=COMPUTE
ZZZZ010710	15400	=SQL_SET{総支給額}{SELECT ?WN.CL??基本給??WN.CR?
ZZZZ010710	15500	=   +?WN.CL??手当??WN.CR?+?WN.CL??通勤費??WN.CR?
ZZZZ010710	15600	=   +?WN.CL??時間外??WN.CR?+?WN.CL??休日??WN.CR?
ZZZZ010710	15700	=   +?WN.CL??時間外深夜??WN.CR?+?WN.CL??休日深夜??WN.CR?
ZZZZ010710	15800	=   ?_FROM_DUAL?};
ZZZZ010710	15900	DATA={O}割増休日深夜分子{2,,+,Z}
ZZZZ010710	16000	DATA={O}割増休日深夜分母{3,,+,Z}
ZZZZ010710	16100	FORM=総支給額   @@@@@@@@@ 非課税通勤費 @@@@@@@@@@
ZZZZ010710	16200	DATA={O}総支給額?&DATA2&MODEL_ALL_COST_SUM?
ZZZZ010710	16300	FORM2= 課税対象額 @@@@@@@@@@@@@
ZZZZ010710	16400	DATA={O}非課税通勤費?&DATA2&MODEL_ALL_COST?
ZZZZ010710	16500	DATA={O}課税対象額{10,,+,Z}
ZZZZ010710	16600	=SQL_SET{W0.課税対象額}{SELECT
ZZZZ010710	16700	=   ?WN.CL??総支給額??WN.CR? - ?WN.CL??非課税通勤費??WN.CR?
ZZZZ010710	16800	=   ?_FROM_DUAL?};
ZZZZ010710	16900	=IF{W0.課税対象額<0}ERROR{課税対象額<0};
ZZZZ010710	17000	=SET{課税対象額=W0.課税対象額};
ZZZZ010710	17100	FORM=            年額換算 @@@@@@@@@@@@@
ZZZZ010710	17200	DATA={O}年額換算{10,,+,Z}
ZZZZ010710	17300	=SQL_SET{年額換算}{SELECT
ZZZZ010710	17400	= ?WN.CL??WN.CL??課税対象額??WN.CR? * ?WN.CL?12?WN.CR??WN.CR?
ZZZZ010710	17500	=   ?_FROM_DUAL?};
ZZZZ010710	17600	=SET{WN.KUBUN='控'};
ZZZZ010710	17700	=SQL_SET{W0.所得額,給与控除額,控除率}
ZZZZ010710	17800	NAME=RITU
ZZZZ010710	17900	=  {SELECT X2.MODEL_ALL_PAY_M
ZZZZ010710	18000	=   ,X2.MODEL_ALL_STANDARD_M
ZZZZ010710	18100	=   ,X2.MODEL_ALL_TAX_RATE FROM ?&X2.TABLE? X2
ZZZZ010710	18200	=   WHERE X2.MODEL_ALL_YM='?WN.YM?'
ZZZZ010710	18300	=   AND X2.MODEL_ALL_DIVISION='?WN.KUBUN?'
ZZZZ010710	18400	=   AND X2.MODEL_ALL_PAY_M=(SELECT
ZZZZ010710	18500	=   MAX(X3.MODEL_ALL_PAY_M) FROM ?&X2.TABLE? X3
ZZZZ010710	18600	=   WHERE X3.MODEL_ALL_PAY_M<?WN.CL??_DATA??WN.CR?
ZZZZ010710	18700	=   AND X3.MODEL_ALL_DIVISION='?WN.KUBUN?'
ZZZZ010710	18800	=   AND X3.MODEL_ALL_YM='?WN.YM?' AND X3.Z_CANCEL=' ')
ZZZZ010710	18900	=   AND X2.Z_CANCEL=' '};
ZZZZ010710	19000	NAME=
ZZZZ010710	19100	=SQL_SET{給与所得控除}{SELECT ?WN.CL??WN.CL??_DATA??WN.CR?
ZZZZ010710	19200	=   *?WN.CL??控除率??WN.CR?/?WN.CL?100?WN.CR??WN.CR?
ZZZZ010710	19300	=   ?_FROM_DUAL?};
ZZZZ010710	19400	=IF{W0.所得額=0}JUMP{ZERO};
ZZZZ010710	19500	=SQL_SET{給与所得控除}{SELECT ?WN.CL??給与所得控除??WN.CR?
ZZZZ010710	19600	=   +?WN.CL??給与控除額??WN.CR? ?_FROM_DUAL?};
ZZZZ010710	19700	=EXIT{};
ZZZZ010710	19800	=ZERO:
ZZZZ010710	19900	=IF{給与所得控除<給与控除額}SET{給与所得控除=給与控除額};
ZZZZ010710	20000	FORM=給与所得控除(概算)   @@@@@@@@@@
ZZZZ010710	20100	DATA={O}給与所得控除{10,,+,Z}
ZZZZ010710	20200	FORM2=  控除率(%)   @@ 給与控除額(+) @
ZZZZ010710	20300	DATA={O}控除率{2,,+,Z}
ZZZZ010710	20400	DATA={O}給与控除額?&DATA2&MODEL_ALL_COST?
ZZZZ010710	20500	FORM=給与所得控除後(概算) @@@@@@@@@@ 報酬月額 @@@@@@@@@
ZZZZ010710	20600	DATA={O}給与所得控除後{10,,+,Z}
ZZZZ010710	20700	=SQL_SET{W0.給与所得控除後}{SELECT
ZZZZ010710	20800	=   ?WN.CL??年額換算??WN.CR? - ?WN.CL??給与所得控除??WN.CR?
ZZZZ010710	20900	=   ?_FROM_DUAL?};
ZZZZ010710	21000	=IF{W0.給与所得控除後<0}SET{W0.給与所得控除後=0};
ZZZZ010710	21100	*IF{W0.給与所得控除後<0}ERROR{給与所得控除後<0};
ZZZZ010710	21200	=SET{給与所得控除後=W0.給与所得控除後};
ZZZZ010710	21300	DATA=報酬月額?&DATA2&MODEL_ALL_COST?
ZZZZ010710	21400	=IF{_DATA=0}ERROR{=0};
ZZZZ010710	21500	=SET{!MODEL_ALL_?_NAME?=_DATA};
ZZZZ010710	21600	=SET{WN.KUBUN='厚'};
ZZZZ010710	21700	=SQL_SET{標準月額厚生年金}
ZZZZ010710	21800	NAME=NENKIN
ZZZZ010710	21900	=  {SELECT X2.MODEL_ALL_STANDARD_M FROM
ZZZZ010710	22000	=   ?&X2.TABLE? X2 WHERE X2.MODEL_ALL_YM='?WN.YM?'
ZZZZ010710	22100	=   AND X2.MODEL_ALL_DIVISION IN(?_N?' ',?_N?'?WN.KUBUN?')
ZZZZ010710	22200	=   AND X2.MODEL_ALL_PAY_M=(SELECT
ZZZZ010710	22300	=   MAX(X3.MODEL_ALL_PAY_M)
ZZZZ010710	22400	=   FROM ?&X2.TABLE? X3 WHERE
ZZZZ010710	22500	=   X3.MODEL_ALL_PAY_M<=?_DATA?
ZZZZ010710	22600	=   AND X3.MODEL_ALL_DIVISION IN(?_N?' ',?_N?'?WN.KUBUN?')
ZZZZ010710	22700	=   AND X3.Z_CANCEL=' ') AND X2.Z_CANCEL=' '};
ZZZZ010710	22800	=IF{_SQL_SET_COUNT=0}ERROR{プログラムミス};
ZZZZ010710	22900	NAME=
ZZZZ010710	23000	=SET{WN.KUBUN='健'};
ZZZZ010710	23100	=SQL_SET{標準月額健康保険}
ZZZZ010710	23200	COPY=NENKIN
ZZZZ010710	23300	=SET{WN='厚生年金元',WN.DATA=};
ZZZZ010710	23400	NAME=SQL_SET_W
ZZZZ010710	23500	=SQL_SET{?WN?分子,?WN?分母}
ZZZZ010710	23600	=  {SELECT ?_T?.MODEL_ALL_NUMERATOR
ZZZZ010710	23700	=   ,?_T?.MODEL_ALL_DENOMINATOR FROM ?&.TABLE? ?_T?
ZZZZ010710	23800	=   WHERE MODEL_ALL_KIND=?_N?'?WN??WN.DATA?'
ZZZZ010710	23900	=   AND ?_T?.MODEL_ALL_YM='?WN.YM?'};
ZZZZ010710	24000	=IF{_SQL_SET_COUNT=0}ERROR{プログラムミス};
ZZZZ010710	24100	NAME=
ZZZZ010710	24200	=SET{WN='厚生年金免除',WN.DATA=};
ZZZZ010710	24300	COPY=SQL_SET_W
ZZZZ010710	24400	=COMPUTE{厚生年金分子=厚生年金元分子-厚生年金免除分子};
ZZZZ010710	24500	=IF{厚生年金免除分母<>厚生年金元分母}
ZZZZ010710	24600	=   ERROR{厚生年金免除分母<>厚生年金元分母};
ZZZZ010710	24700	=SET{厚生年金分母=厚生年金元分母};
ZZZZ010710	24800	=SET{WN='厚生年金',W0.COST=標準月額厚生年金};
ZZZZ010710	24900	NAME=全額
ZZZZ010710	25000	=SET{W0.分子=?WN?分子,W0.分母=?WN?分母};
ZZZZ010710	25100	=SQL_SET{?WN?全額}{SELECT ?WN.CL??WN.CL??W0.COST??WN.CR?
ZZZZ010710	25200	=   *?WN.CL??W0.分子??WN.CR?/?WN.CL??W0.分母??WN.CR??WN.CR?
ZZZZ010710	25300	=   ?_FROM_DUAL?};
ZZZZ010710	25400	NAME=個人
ZZZZ010710	25500	=COMPUTE{?WN?個人=?WN?全額/2};
ZZZZ010710	25600	NAME=
ZZZZ010710	25700	FORM=          標準月額(厚) @@@@@@@@@ (健) @@@@@@@@@@
ZZZZ010710	25800	DATA={O}標準月額厚生年金?&DATA2&MODEL_ALL_COST?
ZZZZ010710	25900	DATA={O}標準月額健康保険?&DATA2&MODEL_ALL_COST?
ZZZZ010710	26000	FORM2= 厚生年金元 @@@@@@ / @@@@@@@
ZZZZ010710	26100	DATA={O}厚生年金元分子{5,,+,Z}
ZZZZ010710	26200	DATA={O}厚生年金元分母{6,,+,Z}
ZZZZ010710	26300	FORM=                        生年月日 @@@@@@@@
ZZZZ010710	26400	DATA=生年月日{8,1,D}
ZZZZ010710	26500	=IF{_DATA>=WN.TODAY}ERROR{>=?WN.TODAY?};
ZZZZ010710	26600	=SET{!MODEL_ALL_?_NAME?=_DATA};
ZZZZ010710	26700	=COMPUTE{年齢介護=WN.TODAY[1;4]-生年月日[1;4]};
ZZZZ010710	26800	=SET{年齢雇用=年齢介護};
ZZZZ010710	26900	=IF{WN.TODAY[5;2]<生年月日[5;2]}COMPUTE{年齢介護-=1};
ZZZZ010710	27000	=IF{'04'         <生年月日[5;2]}COMPUTE{年齢雇用-=1};
ZZZZ010710	27100	FORM2=      厚生年金免除 @@@@@@ / @@@@@@@
ZZZZ010710	27200	DATA={O}厚生年金免除分子{5,,+,Z}
ZZZZ010710	27300	DATA={O}厚生年金免除分母{6,,+,Z}
ZZZZ010710	27400	FORM=厚生年金   @@@@@@@@@@@@ 全額 @@@@@@@@@
ZZZZ010710	27500	DATA={O}厚生年金個人?&DATA2&MODEL_ALL_COST_SUM?
ZZZZ010710	27600	DATA={O}厚生年金全額?&DATA2&MODEL_ALL_COST_SUM?
ZZZZ010710	27700	FORM2=                 比率 @@@@@@ / @@@@@@@
ZZZZ010710	27800	DATA={O}厚生年金分子{5,,+,Z}
ZZZZ010710	27900	DATA={O}厚生年金分母{6,,+,Z}
ZZZZ010710	28000	FORM=健康保険   @@@@@@@@@@@@ 全額 @@@@@@@@@
ZZZZ010710	28100	DATA={O}健康保険個人?&DATA2&MODEL_ALL_COST_SUM?
ZZZZ010710	28200	DATA={O}健康保険全額?&DATA2&MODEL_ALL_COST_SUM?
ZZZZ010710	28300	FORM2= 県 @@@@@@@@   比率    @@@ /  @@@@@@
ZZZZ010710	28400	DATA=健康保険{8,,N}
ZZZZ010710	28500	COPY=CHECK2
ZZZZ010710	28600	=SET{WN='健康保険',WN.DATA=_DATA,W0.COST=標準月額健康保険};
ZZZZ010710	28700	COPY=SQL_SET_W
ZZZZ010710	28800	=SET{!MODEL_ALL_?_NAME?=_DATA};
ZZZZ010710	28900	COPY=全額
ZZZZ010710	29000	COPY=個人
ZZZZ010710	29100	DATA={O}健康保険分子{3,,+,Z}
ZZZZ010710	29200	DATA={O}健康保険分母{5,,+,Z}
ZZZZ010710	29300	FORM=介護保険   @@@@@@@@@@@@ 全額 @@@@@@@@@
ZZZZ010710	29400	DATA={O}介護保険個人?&DATA2&MODEL_ALL_COST_SUM?
ZZZZ010710	29500	DATA={O}介護保険全額?&DATA2&MODEL_ALL_COST_SUM?
ZZZZ010710	29600	FORM2= 年齢 @@@      比率    @@@ /  @@@@@@
ZZZZ010710	29700	DATA={O}年齢介護{3,,+,Z}
ZZZZ010710	29800	=SET{!MODEL_ALL_?_NAME?=_DATA};
ZZZZ010710	29900	=IF{年齢介護>=40}IF{年齢介護<65}JUMP{COMPUTE};
ZZZZ010710	30000	=SET{介護保険個人=,介護保険全額=};EXIT{};
ZZZZ010710	30100	=COMPUTE:
ZZZZ010710	30200	=SET{WN='介護保険',WN.DATA=,W0.COST=標準月額健康保険};
ZZZZ010710	30300	COPY=SQL_SET_W
ZZZZ010710	30400	COPY=全額
ZZZZ010710	30500	COPY=個人
ZZZZ010710	30600	DATA={O}介護保険分子{3,,+,Z}
ZZZZ010710	30700	DATA={O}介護保険分母{5,,+,Z}
ZZZZ010710	30800	FORM=雇用保険   @@@@@@@@@@@@ 全額 @@@@@@@@@@@
ZZZZ010710	30900	DATA={O}雇用保険個人全額?&DATA2&MODEL_ALL_COST_SUM?
ZZZZ010710	31000	DATA={O}雇用保険全額?&DATA2&MODEL_ALL_COST_SUM?
ZZZZ010710	31100	FORM2= 業種 @@@@@@@@ 比率    @@@ /  @@@@@@
ZZZZ010710	31200	DATA=雇用保険個人{8,,N}
ZZZZ010710	31300	=IF{年齢雇用<64}JUMP{COMPUTE};
ZZZZ010710	31400	=SET{雇用保険個人全額=,雇用保険全額=};
ZZZZ010710	31500	=JUMP{END};
ZZZZ010710	31600	=COMPUTE:
ZZZZ010710	31700	COPY=CHECK2
ZZZZ010710	31800	=SET{WN='雇用保険',WN.DATA=_DATA,W0.COST=総支給額};
ZZZZ010710	31900	COPY=SQL_SET_W
ZZZZ010710	32000	COPY=全額
ZZZZ010710	32100	=SET{WN='雇用保険個人'};
ZZZZ010710	32200	COPY=SQL_SET_W
ZZZZ010710	32300	COPY=全額
ZZZZ010710	32400	=END:SET{!MODEL_ALL_?_NAME?=_DATA};
ZZZZ010710	32500	DATA={O}雇用保険分子{3,,+,Z}
ZZZZ010710	32600	DATA={O}雇用保険分母{5,,+,Z}
ZZZZ010710	32700	FORM=          年換算 @@@@@@@@@@ 年齢(4/1現在) @@@
ZZZZ010710	32800	*ORM1=年換算     @@@@@@@@@@        年齢(4/1現在) @@@
ZZZZ010710	32900	DATA={O}年換算?&DATA2&MODEL_ALL_COST_SUM?
ZZZZ010710	33000	=SQL_SET{W0.年換算}{SELECT ?WN.CL?(
ZZZZ010710	33100	=   + ?WN.CL??厚生年金個人??WN.CR?
ZZZZ010710	33200	=   + ?WN.CL??健康保険個人??WN.CR?
ZZZZ010710	33300	=   + ?WN.CL??介護保険個人??WN.CR?
ZZZZ010710	33400	=   + ?WN.CL??雇用保険個人全額??WN.CR?)
ZZZZ010710	33500	=   * ?WN.CL?12?WN.CR? ?WN.CR?
ZZZZ010710	33600	=   ?_FROM_DUAL?};
ZZZZ010710	33700	=IF{W0.年換算<0}ERROR{年換算<0};
ZZZZ010710	33800	=SET{年換算=W0.年換算};
ZZZZ010710	33900	DATA={O}年齢雇用{3,,+,Z}
ZZZZ010710	34000	FORM2= 雇用個人比率    @@@ /  @@@@@@
ZZZZ010710	34100	DATA={O}雇用保険個人分子{3,,+,Z}
ZZZZ010710	34200	DATA={O}雇用保険個人分母{5,,+,Z}
ZZZZ010710	34300	FORM=        他所得控除 @@@@@@@@@@ 全控除後 @
ZZZZ010710	34400	DATA={}他所得控除?&DATA2&MODEL_ALL_COST?
ZZZZ010710	34500	=SET{!MODEL_ALL_?_NAME?=_DATA};
ZZZZ010710	34600	DATA={O}全控除後?&DATA2&MODEL_ALL_COST_SUM?
ZZZZ010710	34700	=SQL_SET{W0.全控除後}{SELECT
ZZZZ010710	34800	=   ?WN.CL??給与所得控除後??WN.CR? - ?WN.CL??年換算??WN.CR?
ZZZZ010710	34900	=   - ?WN.CL??他所得控除??WN.CR?
ZZZZ010710	35000	=   ?_FROM_DUAL?};
ZZZZ010710	35100	=IF{W0.全控除後<0}SET{W0.全控除後=0};
ZZZZ010710	35200	*IF{W0.全控除後<0}ERROR{全控除後<0};
ZZZZ010710	35300	=SET{全控除後=W0.全控除後};
ZZZZ010710	35400	=SET{WN.KUBUN='所'};
ZZZZ010710	35500	=SQL_SET{W0.所得額,所得控除額,所得税率}
ZZZZ010710	35600	COPY=RITU
ZZZZ010710	35700	FORM=年間所得税(概算) @
ZZZZ010710	35800	DATA={O}年間所得税?&DATA2&MODEL_ALL_COST_SUM?
ZZZZ010710	35900	=SQL_SET{W0.年間所得税}{SELECT ?WN.CL?
ZZZZ010710	36000	=   ?WN.CL??全控除後??WN.CR? * ?WN.CL??所得税率??WN.CR?
ZZZZ010710	36100	=   / ?WN.CL?100?WN.CR? - ?WN.CL??所得控除額??WN.CR? ?WN.CR?
ZZZZ010710	36200	=   ?_FROM_DUAL?};
ZZZZ010710	36300	=IF{W0.年間所得税<0}ERROR{年間所得税<0};
ZZZZ010710	36400	=SET{年間所得税=W0.年間所得税};
ZZZZ010710	36500	FORM2= 所得税率(%) @@ 所得控除額(-) @
ZZZZ010710	36600	DATA={O}所得税率{2,,+,Z}
ZZZZ010710	36700	DATA={O}所得控除額?&DATA2&MODEL_ALL_COST?
ZZZZ010710	36800	FORM=所得税     @@@@@@@@@@@@ (概算)
ZZZZ010710	36900	DATA={O}所得税?&DATA2&MODEL_ALL_COST_SUM?
ZZZZ010710	37000	=SQL_SET{所得税}{SELECT
ZZZZ010710	37100	= ?WN.CL??WN.CL??年間所得税??WN.CR? / ?WN.CL?12?WN.CR??WN.CR?
ZZZZ010710	37200	=   ?_FROM_DUAL?};
ZZZZ010710	37300	FORM=住民税       @@@@@@@@@@
ZZZZ010710	37400	DATA=住民税?&DATA2&MODEL_ALL_COST?
ZZZZ010710	37500	=SET{!MODEL_ALL_?_NAME?=_DATA};
ZZZZ010710	37600	FORM=差引支給額 @@@@@@@@@@@@     @
ZZZZ010710	37700	DATA={O}差引支給額{10,,-,Z}
ZZZZ010710	37800	=SQL_SET{W0.差引支給額}{SELECT
ZZZZ010710	37900	=   ?WN.CL??総支給額??WN.CR?
ZZZZ010710	38000	=   - ?WN.CL??厚生年金個人??WN.CR?
ZZZZ010710	38100	=   - ?WN.CL??健康保険個人??WN.CR?
ZZZZ010710	38200	=   - ?WN.CL??介護保険個人??WN.CR?
ZZZZ010710	38300	=   - ?WN.CL??雇用保険個人全額??WN.CR?
ZZZZ010710	38400	=   - ?WN.CL??所得税??WN.CR?
ZZZZ010710	38500	=   - ?WN.CL??住民税??WN.CR?
ZZZZ010710	38600	=   ?_FROM_DUAL?};
ZZZZ010710	38700	*IF{W0.差引支給額<0}ERROR{差引支給額=W0.差引支給額};
ZZZZ010710	38800	=SET{差引支給額=W0.差引支給額};
ZZZZ010710	38900	DATA=END{1}
ZZZZ010710	39000	END
ZZZZ010710	39100	=EXIT{0};
ZZZZ010711	100	PROGRAM=NOT
ZZZZ010711	200	DATA={N}DUMMY{1}
ZZZZ010711	300	=IF_TABLE{?_MM?_MODEL_ALL1_ORG_TABLE}EXIT{+1};
ZZZZ010711	400	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010711	500	DATA={O}MESSAGE{50}
ZZZZ010711	600	DATA=YES{3}{YES,NO}
ZZZZ010711	700	=IF{_DATA='YES'}EXE_I{ZZZZ010740};
ZZZZ010711	800	=EXIT{_END}
ZZZZ010711	900	PROGRAM=,&X1,?_MM?_MODEL_ALL1_ORG_TABLE
ZZZZ010711	1000	%CK+CONTROL=MAX
ZZZZ010711	1100	BEGIN
ZZZZ010711	1200	=SET{WN.YM=_TODAY[1;6],表示='以上'};
ZZZZ010711	1300	=SET{WN.USE_YM='(SELECT MAX(X2.MODEL_ALL_YM) FROM'
ZZZZ010711	1400	=   +' ?_TABLE? X2  WHERE X2.?_NE&MODEL_ALL_KIND?'
ZZZZ010711	1500	=   +' AND X2.MODEL_ALL_YM<=''?WN.YM?'''
ZZZZ010711	1600	=   +' AND X2.Z_CANCEL='' '')'};
ZZZZ010711	1700	SET={,*}表示{4,,/}{該当,以上,全部}
ZZZZ010711	1800	=IF{_DATA='全部'}EXIT{};
ZZZZ010711	1900	=SET{WN.G=};IF{_DATA='以上'}SET{WN.G='>'};
ZZZZ010711	2000	=SET{_DATA@WHERE='?_T?.MODEL_ALL_YM?WN.G?=?WN.USE_YM?'};
ZZZZ010711	2100	SET={}.?&.SET&MODEL_ALL_KIND?
ZZZZ010711	2200	SET={}.?&.SET&MODEL_ALL_YM?
ZZZZ010711	2300	*SET={}?&.SET&MODEL_ALL_NUMERATOR?
ZZZZ010711	2400	*SET={}?&.SET&MODEL_ALL_DENOMINATOR?
ZZZZ010711	2500	START
ZZZZ010711	2600	%CK+=IF{_START=1}JUMP{CHK1};
ZZZZ010711	2700	%CK+=IF{_START=3}JUMP{CHK3};
ZZZZ010711	2800	=EXIT{};
ZZZZ010711	2900	=CHK1:
ZZZZ010711	3000	=SQL_SET{}{SELECT 'A' FROM ?_TABLE? ?_T? WHERE
ZZZZ010711	3100	=    ?_VE&MODEL_ALL_KIND?
ZZZZ010711	3200	=    AND '?MODEL_ALL_YM?'=?WN.USE_YM?
ZZZZ010711	3300	=    AND  .Z_CANCEL=' '};
ZZZZ010711	3400	=IF{_SQL_SET_COUNT>0}ERROR{使用中};
ZZZZ010711	3500	=EXIT{};
ZZZZ010711	3600	=CHK3:
ZZZZ010711	3700	=IF{MODEL_ALL_YM<WN.YM}ERROR{<'?WN.YM?'};
ZZZZ010711	3800	*****( 内容 )*****
ZZZZ010711	3900	%CK+DATA={KO}?&.DATA&MODEL_ALL_KIND?
ZZZZ010711	4000	%CK-DATA={K }?&.DATA&MODEL_ALL_KIND?
ZZZZ010711	4100	*****( 年月 )*****
ZZZZ010711	4200	DATA={K}?&.DATA&MODEL_ALL_YM?
ZZZZ010711	4300	=IF{_DATA@LENGTH<>6}ERROR{LENGTH(?_DATA@LENGTH?!=6)};
ZZZZ010711	4400	=IF{_DATA[5;2]<'01'}ERROR{月<'01'};
ZZZZ010711	4500	=IF{_DATA[5;2]>'12'}ERROR{月>'12'};
ZZZZ010711	4600	=IF{MODEL_ALL_YM<WN.YM}ERROR{<'?WN.YM?'};
ZZZZ010711	4700	*****( 分子 )*****
ZZZZ010711	4800	DATA={}?&.DATA&MODEL_ALL_NUMERATOR?
ZZZZ010711	4900	=IF{MODEL_ALL_KIND='介護保険'}IF{_DATA>999}ERROR{>999};
ZZZZ010711	5000	=IF{MODEL_ALL_KIND[1;2]='割増'}IF{_DATA>99}ERROR{>99};
ZZZZ010711	5100	=IF{MODEL_ALL_KIND='割増休日'}IF{_DATA<35}ERROR{<35};
ZZZZ010711	5200	=IF{MODEL_ALL_KIND='割増時間外',='割増深夜'}
ZZZZ010711	5300	=   IF{_DATA<25}ERROR{<25};
ZZZZ010711	5400	=IF{MODEL_ALL_KIND[1;4]='健康保険'}IF{_DATA>999}ERROR{>999};
ZZZZ010711	5500	=IF{MODEL_ALL_KIND='厚生年金元'}
ZZZZ010711	5600	=   IF{_DATA>99999}ERROR{>99999};
ZZZZ010711	5700	=IF{MODEL_ALL_KIND='厚生年金元'}IF{_DATA<9999}ERROR{<9999};
ZZZZ010711	5800	=IF{MODEL_ALL_KIND='厚生年金免除'}
ZZZZ010711	5900	=   IF{_DATA>9999}ERROR{>9999};
ZZZZ010711	6000	=IF{MODEL_ALL_KIND<>'通勤内容02KM未満'}IF{_DATA=0}ERROR{=0};
ZZZZ010711	6100	=IF{MODEL_ALL_KIND='労働時間'}IF{_DATA>800}ERROR{>800};
ZZZZ010711	6200	=IF{MODEL_ALL_KIND='労働日数'}IF{_DATA>313}ERROR{>313};
ZZZZ010711	6300	*****( 分母 )*****
ZZZZ010711	6400	%CK+DATA={O}?&.DATA&MODEL_ALL_DENOMINATOR?
ZZZZ010711	6500	%CK-DATA={ }?&.DATA&MODEL_ALL_DENOMINATOR?
ZZZZ010711	6600	*****( USE  )*****
ZZZZ010711	6700	DATA={*N}USE{1}
ZZZZ010711	6800	SELECT=CASE WHEN ?_T?.MODEL_ALL_YM=?WN.USE_YM? THEN
ZZZZ010711	6900	SELECT=1 ELSE 0 END
ZZZZ010711	7000	COLOR
ZZZZ010711	7100	=IF{USE=1}SET{MODEL_ALL_NUMERATOR@COLOR='B'
ZZZZ010711	7200	=   ,MODEL_ALL_YM@COLOR='B'};
ZZZZ010711	7300	COPY=@ZZZZZZ_SQL
ZZZZ010711	7400	END
ZZZZ010711	7500	=EXIT{0};
ZZZZ010712	100	PROGRAM=NOT
ZZZZ010712	200	DATA={N}DUMMY{1}
ZZZZ010712	300	=IF_TABLE{?_MM?_MODEL_ALL2_ORG_TABLE}EXIT{+1};
ZZZZ010712	400	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010712	500	DATA={O}MESSAGE{50}
ZZZZ010712	600	DATA=YES{3}{YES,NO}
ZZZZ010712	700	=IF{_DATA='YES'}EXE_I{ZZZZ010740};
ZZZZ010712	800	=EXIT{_END}
ZZZZ010712	900	PROGRAM=,&X1,?_MM?_MODEL_ALL2_ORG_TABLE
ZZZZ010712	1000	BEGIN
ZZZZ010712	1100	=SET{WN.YM=_TODAY[1;6],表示='以上'};
ZZZZ010712	1200	=SET{WN.USE_YM='(SELECT MAX(X2.MODEL_ALL_YM) FROM'
ZZZZ010712	1300	=   +' ?_TABLE? X2  WHERE X2.?_NE&MODEL_ALL_PAY_M?'
ZZZZ010712	1400	=   +' AND X2.?_NE&MODEL_ALL_DIVISION?'
ZZZZ010712	1500	=   +' AND X2.MODEL_ALL_YM<=''?WN.YM?'''
ZZZZ010712	1600	=   +' AND X2.Z_CANCEL='' '')'};
ZZZZ010712	1700	SET={,*}表示{4,,/}{該当,以上,全部}
ZZZZ010712	1800	=IF{_DATA='全部'}EXIT{};
ZZZZ010712	1900	=SET{WN.G=};IF{_DATA='以上'}SET{WN.G='>'};
ZZZZ010712	2000	=SET{_DATA@WHERE='?_T?.MODEL_ALL_YM?WN.G?=?WN.USE_YM?'};
ZZZZ010712	2100	SET={}.?&.SET&MODEL_ALL_PAY_M?
ZZZZ010712	2200	SET={}.?&.SET&MODEL_ALL_DIVISION?
ZZZZ010712	2300	SET={}.?&.SET&MODEL_ALL_YM?
ZZZZ010712	2400	*SET={}?&.SET&MODEL_ALL_STANDARD_M?
ZZZZ010712	2500	START
ZZZZ010712	2600	%CK+=IF{_START=1}JUMP{CHK1};
ZZZZ010712	2700	%CK+=IF{_START=3}JUMP{CHK3};
ZZZZ010712	2800	=EXIT{};
ZZZZ010712	2900	=CHK1:
ZZZZ010712	3000	=SQL_SET{}{SELECT 'A' FROM ?_TABLE? WHERE
ZZZZ010712	3100	=   ?_VRE&MODEL_ALL_PAY_M?
ZZZZ010712	3200	=   ?_VRE&MODEL_ALL_DIVISION?
ZZZZ010712	3300	=   AND '?MODEL_ALL_YM?'=?WN.USE_YM?
ZZZZ010712	3400	=   AND  Z_CANCEL=' '};
ZZZZ010712	3500	=IF{_SQL_SET_COUNT>0}ERROR{使用中};
ZZZZ010712	3600	=EXIT{};
ZZZZ010712	3700	=CHK3:
ZZZZ010712	3800	=IF{MODEL_ALL_YM<WN.YM}ERROR{<'?WN.YM?'};
ZZZZ010712	3900	*****( 報酬月額 )*****
ZZZZ010712	4000	DATA={K}?&.DATA&MODEL_ALL_PAY_M?
ZZZZ010712	4100	*****( 区分 )*****
ZZZZ010712	4200	DATA={K}?&.DATA&MODEL_ALL_DIVISION?
ZZZZ010712	4300	*****( 年月 )*****
ZZZZ010712	4400	DATA={K}?&.DATA&MODEL_ALL_YM?
ZZZZ010712	4500	*****( 標準月額 )*****
ZZZZ010712	4600	DATA={}?&.DATA&MODEL_ALL_STANDARD_M?
ZZZZ010712	4700	=IF{_DATA<.MODEL_ALL_PAY_M}ERROR{?_DATA?<?.MODEL_ALL_PAY_M?};
ZZZZ010712	4800	*****( 所得税率 )*****
ZZZZ010712	4900	DATA={}?&.DATA&MODEL_ALL_TAX_RATE?
ZZZZ010712	5000	COPY=@ZZZZZZ_SQL
ZZZZ010712	5100	END
ZZZZ010712	5200	=EXIT{0};
ZZZZ010713	100	PROGRAM=NOT
ZZZZ010713	200	DATA={N}DUMMY{1}
ZZZZ010713	300	=IF_TABLE{?_MM?_MODEL_ALL1_USE_TABLE}EXIT{+1};
ZZZZ010713	400	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010713	500	DATA={O}MESSAGE{50}
ZZZZ010713	600	DATA=YES{3}{YES,NO}
ZZZZ010713	700	=IF{_DATA='YES'}EXE_I{ZZZZ010740};
ZZZZ010713	800	=EXIT{_END}
ZZZZ010713	900	PROGRAM=,&X1,?_MM?_MODEL_ALL1_USE_TABLE
ZZZZ010713	1000	BEGIN
ZZZZ010713	1100	=SET{.MODEL_ALL_YM=_TODAY[1;6]};
ZZZZ010713	1200	SET={,*}.?&.SET&MODEL_ALL_YM?
ZZZZ010713	1300	=SET{_DATA@WHERE='?_NAME_SQL?'
ZZZZ010713	1400	=   +'=(SELECT MAX(X2.MODEL_ALL_YM) FROM '+_TABLE
ZZZZ010713	1500	=   +' X2 WHERE '+_VLE&.MODEL_ALL_YM
ZZZZ010713	1600	=   +' AND X2.'+_NE&MODEL_ALL_KIND
ZZZZ010713	1700	=   +' AND X2.Z_CANCEL='' '')'};
ZZZZ010713	1800	SET={}.?&.SET&MODEL_ALL_KIND?
ZZZZ010713	1900	*SET={}?&.SET&MODEL_ALL_NUMERATOR?
ZZZZ010713	2000	*SET={}?&.SET&MODEL_ALL_DENOMINATOR?
ZZZZ010713	2100	*****( 年月 )*****
ZZZZ010713	2200	DATA={K}?&.DATA&MODEL_ALL_YM?
ZZZZ010713	2300	*****( 内容 )*****
ZZZZ010713	2400	DATA={K}?&.DATA&MODEL_ALL_KIND?
ZZZZ010713	2500	*****( 分子 )*****
ZZZZ010713	2600	DATA={}?&.DATA&MODEL_ALL_NUMERATOR?
ZZZZ010713	2700	*****( 分母 )*****
ZZZZ010713	2800	DATA={}?&.DATA&MODEL_ALL_DENOMINATOR?
ZZZZ010713	2900	COPY=@ZZZZZZ_SQL
ZZZZ010713	3000	END
ZZZZ010713	3100	=EXIT{0};
ZZZZ010714	100	PROGRAM=NOT
ZZZZ010714	200	DATA={N}DUMMY{1}
ZZZZ010714	300	=IF_TABLE{?_MM?_MODEL_ALL2_USE_TABLE}EXIT{+1};
ZZZZ010714	400	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010714	500	DATA={O}MESSAGE{50}
ZZZZ010714	600	DATA=YES{3}{YES,NO}
ZZZZ010714	700	=IF{_DATA='YES'}EXE_I{ZZZZ010740};
ZZZZ010714	800	=EXIT{_END}
ZZZZ010714	900	PROGRAM=,&X1,?_MM?_MODEL_ALL2_USE_TABLE
ZZZZ010714	1000	BEGIN
ZZZZ010714	1100	=SET{.MODEL_ALL_YM=_TODAY[1;6]};
ZZZZ010714	1200	SET={,*}.?&.SET&MODEL_ALL_YM?
ZZZZ010714	1300	=SET{_DATA@WHERE=_NAME_SQL
ZZZZ010714	1400	=   +'=(SELECT MAX(X2.MODEL_ALL_YM) FROM '+_TABLE+' X2'
ZZZZ010714	1500	=   +' WHERE  '+_VLE&.MODEL_ALL_YM
ZZZZ010714	1600	=   +' AND X2.'+_NE&MODEL_ALL_PAY_M
ZZZZ010714	1700	=   +' AND X2.'+_NE&MODEL_ALL_DIVISION
ZZZZ010714	1800	=   +' AND X2.Z_CANCEL='' '')'};
ZZZZ010714	1900	SET={}.?&.SET&MODEL_ALL_PAY_M?
ZZZZ010714	2000	SET={}.?&.SET&MODEL_ALL_DIVISION?
ZZZZ010714	2100	*SET={}?&.SET&MODEL_ALL_STANDARD_M?
ZZZZ010714	2200	*****( 年月 )*****
ZZZZ010714	2300	DATA={K}?&.DATA&MODEL_ALL_YM?
ZZZZ010714	2400	*****( 報酬月額 )*****
ZZZZ010714	2500	DATA={K}?&.DATA&MODEL_ALL_PAY_M?
ZZZZ010714	2600	*****( 区分 )*****
ZZZZ010714	2700	DATA={K}?&.DATA&MODEL_ALL_DIVISION?
ZZZZ010714	2800	*****( 標準月額 )*****
ZZZZ010714	2900	DATA={}?&.DATA&MODEL_ALL_STANDARD_M?
ZZZZ010714	3000	*****( 所得税率 )*****
ZZZZ010714	3100	DATA={}?&.DATA&MODEL_ALL_TAX_RATE?
ZZZZ010714	3200	COPY=@ZZZZZZ_SQL
ZZZZ010714	3300	END
ZZZZ010714	3400	=EXIT{0};
ZZZZ010716	100	PROGRAM=OUTPUT
ZZZZ010716	200	CONTROL=0
ZZZZ010716	300	BEGIN
ZZZZ010716	600	=PROGRAM{0,?_MP_ZZZZ?ZZ_ETC_TABLE
ZZZZ010716	700	=,WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010716	800	=,WC.SYSTEM_KEY2='ZZZZZZ_REGISTRY_PROXY'}
ZZZZ010716	900	={WC.SYSTEM_ETC=,WC.SYSTEM_COMMENT=}{};
ZZZZ010716	1000	=IF{_PROGRAM_COUNT=0}JUMP{SKIP};
ZZZZ010716	1100	=SET{WC.REGSTRY=WC.SYSTEM_ETC+WC.SYSTEM_COMMENT};
ZZZZ010716	1200	=IF_ERROR_SET{_REGISTRY=WC.REGSTRY+'',PROXY=_REGISTRY[2]}
ZZZZ010716	1300	=   NOP{};
ZZZZ010716	1400	=SKIP:
ZZZZ010716	1500	=SET{JSON_XML='JSON',WC.SW=0};
ZZZZ010716	1600	=SPLIT_CHAR{WN}{'北海道,青森県,岩手県,宮城県,秋田県,山形県'
ZZZZ010716	1700	=,',福島県,茨城県,栃木県,群馬県,埼玉県,千葉県,東京都'
ZZZZ010716	1800	=,',神奈川県,新潟県,富山県,石川県,福井県,山梨県,長野県'
ZZZZ010716	1900	=,',岐阜県,静岡県,愛知県,三重県,滋賀県,京都府,大阪府'
ZZZZ010716	2000	=,',兵庫県,奈良県,和歌山県,鳥取県,島根県,岡山県,広島県'
ZZZZ010716	2100	=,',山口県,徳島県,香川県,愛媛県,高知県,福岡県,佐賀県'
ZZZZ010716	2200	=,',長崎県,熊本県,大分県,宮崎県,鹿児島県,沖縄県'}{','};
ZZZZ010716	2300	SET={,*}JSON_XML{4}{JSON,XML}
ZZZZ010716	2400	=IF{WC.SW=1}EXIT{};
ZZZZ010716	2500	REPEAT=47
ZZZZ010716	2600	=OUTPUT{'##',WN##};
ZZZZ010716	2700	REPEAT=
ZZZZ010716	2800	=SET{WC.SW=1};
ZZZZ010716	2900	SET={}PROXY{25}
ZZZZ010716	3000	DATA=CD{5}
ZZZZ010716	3100	DATA=NAME{8}
ZZZZ010716	3200	REPEAT0=2
ZZZZ010716	3300	PROGRAM=OUTPUT
ZZZZ010716	3400	$1+CONTROL=0
ZZZZ010716	3500	BEGIN
ZZZZ010716	3501	SET={O}DUMMY{1}
ZZZZ010716	3502	=EXIT3{};
ZZZZ010716	3503	SET={}DUMMY1{1}
ZZZZ010716	3800	=SET{WC.URL=_L(HTTP://WWW.EKIDATA.JP/API/),WC.SW=0};
ZZZZ010716	3900	=SET{CDS=$CD,NAMES=$NAME};
ZZZZ010716	4000	$1+=SET{WC.URL2=_L(P)};
ZZZZ010716	4100	$1+=SET{WC.NAMES='WN.LINE_CD,WN.LINE_NAME'};
ZZZZ010716	4200	$2+=SET{WC.URL2=_L(L)};
ZZZZ010716	4300	$2+=SET{WC.NAMES='WN.STATION_CD,WN.STATION_NAME'};
ZZZZ010716	4400	=IF_ERROR_URL{?_WORK?}
ZZZZ010716	4500	=   {?WC.URL??WC.URL2?/?CDS?.?$JSON_XML@LOWER?}ERROR{};
ZZZZ010716	4600	=READ_OPEN{F1,?_TMP??_WORK?};
ZZZZ010716	4700	=READ_NEXT:READ_NEXT{F1}JUMP{READ_END};
ZZZZ010716	4800	=JUMP{?JSON_XML?};
ZZZZ010716	4900	=XML:IF{WC.SW=0}SET{WC.SW=1}
ZZZZ010716	5000	=   XML_BEGIN{_READ_DATA,?WC.NAMES?}JUMP{};
ZZZZ010716	5100	=   XML_CONTINUE{_READ_DATA};
ZZZZ010716	5200	=XML1:XML{};
ZZZZ010716	5300	=IF{_XML!=1}BACK{READ_NEXT};
ZZZZ010716	5400	=OUTPUT{?WC.NAMES?};
ZZZZ010716	5500	=BACK{XML1};
ZZZZ010716	5600	=JSON:IF{WC.SW=0}SET{WC.SW=1}
ZZZZ010716	5700	=     JSON_BEGIN{_READ_DATA,?WC.NAMES?}JUMP{};
ZZZZ010716	5800	=     JSON_CONTINUE{_READ_DATA};
ZZZZ010716	5900	=JSON1:JSON{};
ZZZZ010716	6000	=IF{_JSON!=1}BACK{READ_NEXT};
ZZZZ010716	6100	=OUTPUT{?WC.NAMES?};
ZZZZ010716	6200	=BACK{JSON1};
ZZZZ010716	6300	=READ_END:READ_CLOSE{F1};XML_END{};
ZZZZ010716	6400	SET={O,*}WC.URL{28}
ZZZZ010716	6500	SET={O,*}CDS{7}
ZZZZ010716	6600	SET={O,*}NAMES{25}
ZZZZ010716	6700	DATA=CD{7}
ZZZZ010716	6800	DATA=NAME{25}
ZZZZ010716	6900	REPEAT0=
ZZZZ010717	100	REPEAT=4
ZZZZ010717	200	PROGRAM=OUTPUT
ZZZZ010717	300	CONTROL=0
ZZZZ010717	400	BEGIN
ZZZZ010717	500	=SET{WC.URL_ORG=_L(HTTP://KOSOKU.JP)};
ZZZZ010717	600	=SET{WC.END=_L(A HREF=\)};
ZZZZ010717	700	1+=SET{WC.O='O'};
ZZZZ010717	800	1+=PROGRAM{0,?_MP_ZZZZ?ZZ_ETC_TABLE
ZZZZ010717	900	1+=   ,WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010717	1000	1+=   ,WC.SYSTEM_KEY2='ZZZZZZ_REGISTRY_PROXY'}
ZZZZ010717	1100	1+=   {WC.SYSTEM_ETC=,WC.SYSTEM_COMMENT=}{};
ZZZZ010717	1200	1+=IF{_PROGRAM_COUNT=0}JUMP{SKIP};
ZZZZ010717	1300	1+=SET{WC.REGSTRY=WC.SYSTEM_ETC+WC.SYSTEM_COMMENT};
ZZZZ010717	1400	*+=IF_ERROR_SET{_REGISTRY=WC.REGSTRY+'',PROXY=_REGISTRY[2]}
ZZZZ010717	1410	1+=IF_ERROR_SET{_REGISTRY=WC.REGSTRY+''}
ZZZZ010717	1500	1+=   NOP{};
ZZZZ010717	1600	1+=SKIP:
ZZZZ010717	1700	1+|3+=SET{WC.URL=WC.URL_ORG};
ZZZZ010717	1800	1+|3+=SET{WC.IF=_L(PREF.PHP)+_Q+_L(P=)};
ZZZZ010717	1900	2+|4+=SET{WC.URL=WC.URL_ORG+'/'+$URL};
ZZZZ010717	2000	2+|4+=SET{WC.IF=_L(IC.PHP)+_Q+_L(IC=)};
ZZZZ010717	2100	=IF_ERROR_URL{?_WORK?}{?WC.URL?}ERROR{};
ZZZZ010717	2200	=READ_OPEN{F1,?_WORK?};
ZZZZ010717	2300	=READ_NEXT:READ_NEXT{F1}JUMP{READ_END};
ZZZZ010717	2400	=SPLIT_CHAR{WN.}{_READ_DATA}{'<>"'};
ZZZZ010717	2500	=SET{W0=1};
ZZZZ010717	2600	=B:IF{W0>_SPLIT_CHAR_COUNT}BACK{READ_NEXT};
ZZZZ010717	2700	=IF_NOT{WN.?W0?/WC.IF}COMPUTE{W0+=1}BACK{B};
ZZZZ010717	2800	=COMPUTE{W0.P2=W0+2,W0.M1=W0-1};
ZZZZ010717	2900	=IF{WN.?W0.M1?=WC.END}JUMP{READ_END};
ZZZZ010717	3000	=OUTPUT{WN.?W0.P2?,WN.?W0?};
ZZZZ010717	3100	1+|3+=IF{WN.?W0.P2?='沖縄'}JUMP{READ_END};
ZZZZ010717	3200	=SET{W0=W0.P2};
ZZZZ010717	3300	=BACK{B};
ZZZZ010717	3400	=BACK{READ_NEXT};
ZZZZ010717	3500	=READ_END:READ_CLOSE{F1};
ZZZZ010717	3600	*ET={?$WC.O?}$PROXY{25,}
ZZZZ010717	3700	4+START
ZZZZ010717	3800	4+=IF{F=T}ERROR{入口と同じ};
ZZZZ010717	3900	1+DATA=都道府県入口{8}
ZZZZ010717	4000	2+DATA=F{25}インター入口
ZZZZ010717	4100	3+DATA=都道府県出口{8}
ZZZZ010717	4200	4+DATA=T{25}インター出口
ZZZZ010717	4300	DATA={N}URL{80}
ZZZZ010717	4400	REPEAT=
ZZZZ010717	4500	PROGRAM=NOT
ZZZZ010717	4600	=SET{WC.URL=_L(HTTP://KOSOKU.JP/API/ROUTE.PHP)+_Q+_L(F=)};
ZZZZ010717	4700	=SET{C='普通車',S='距離'};
ZZZZ010717	4800	=PROGRAM{0,?_MP_ZZZZ?ZZ_ETC_TABLE
ZZZZ010717	4900	=   ,WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ010717	5000	=   ,WC.SYSTEM_KEY2='ZZZZZZ_REGISTRY_PROXY'}
ZZZZ010717	5100	=   {WC.SYSTEM_ETC=,WC.SYSTEM_COMMENT=}{};
ZZZZ010717	5200	=IF{_PROGRAM_COUNT=0}JUMP{SKIP};
ZZZZ010717	5300	=SET{WC.REGSTRY=WC.SYSTEM_ETC+WC.SYSTEM_COMMENT};
ZZZZ010717	5400	*IF_ERROR_SET{_REGISTRY=WC.REGSTRY+'',PROXY=_REGISTRY[2]}
ZZZZ010717	5410	=IF_ERROR_SET{_REGISTRY=WC.REGSTRY+''}
ZZZZ010717	5500	=   NOP{};
ZZZZ010717	5600	=SKIP:
ZZZZ010717	5700	FORM=★注意:ルートが無い場合は次の画面を表示しません。
ZZZZ010717	5800	*ORM=プロキシ      @
ZZZZ010717	5900	*ATA={O}$PROXY{25,}
ZZZZ010717	6000	FORM= インター入口 @
ZZZZ010717	6100	DATA={O}$F{25,1,J}
ZZZZ010717	6200	FORM= インター出口 @
ZZZZ010717	6300	DATA={O}$T{25,1,J}
ZZZZ010717	6400	*IF{_DATA=F}ERROR{出発IC名=到達IC名};
ZZZZ010717	6500	FORM= 車種　　 @
ZZZZ010717	6600	DATA=C{10,1,J}{軽自動車等,普通車,中型車,大型車,特大車}
ZZZZ010717	6700	FORM= 順序　　 @
ZZZZ010717	6800	DATA=S{4,1,J}{距離,料金}
ZZZZ010717	6900	=SET{WC=WC.URL+F+_L(&T=)+T+_L(&C=)+C+_L(&SORT)+_P(BY=)+S};
ZZZZ010717	7000	*IF_ERROR_URL{?_WORK?,?PROXY?,?WC?}ERROR{};
ZZZZ010717	7010	=IF_ERROR_URL{?_WORK?}{?WC?}ERROR{};
ZZZZ010717	7100	*=SET{WC.FILE=_URL};
ZZZZ010717	7200	*SET{WC.FILE='INDEX.HTML'};
ZZZZ010717	7300	PROGRAM=OUTPUT
ZZZZ010717	7400	COLOR
ZZZZ010717	7500	=IF{D1!=}SET{D6@COLOR='B',D7@COLOR='B',D8@COLOR='B'};
ZZZZ010717	7600	BEGIN
ZZZZ010717	7700	=SET{WC.OUTPUT_SW=0};
ZZZZ010717	7800	=SET{WN1='WN.ROUTENO,WN.TOTALTOLL,WN.TOTALTIME'
ZZZZ010717	7900	=   +',WN.TOTALLENGTH,WN.DETAILS'};
ZZZZ010717	8000	=SPLIT_CHAR{WN1}{WN1}{','};
ZZZZ010717	8100	=SET{WN2='WN.ORDER,WN.FROM,WN.TO,WN.LENGTH'
ZZZZ010717	8200	=    +',WN.SUBSECTIONS,WN.TOLLS,WN.TIME'};
ZZZZ010717	8300	=SPLIT_CHAR{WN2}{WN2}{','};
ZZZZ010717	8400	=SET{WN3='WN.TOLL'};
ZZZZ010717	8500	=SPLIT_CHAR{WN3}{WN3}{','};
ZZZZ010717	8600	=SET{WN4='WN.FROM,WN.TO,WN.ROAD,WN.LENGTH,WN.TIME'};
ZZZZ010717	8700	=SPLIT_CHAR{WN4}{WN4}{','};
ZZZZ010717	8800	=READ_OPEN{F1,?_TMP??_WORK?};SET{WC.SW1=0};
ZZZZ010717	8900	=READ_NEXT:READ_NEXT{F1}JUMP{READ_END};
ZZZZ010717	9000	=IF{WC.SW1=0}SET{WC.SW1=1}
ZZZZ010717	9100	=   XML_BEGIN{_READ_DATA,?WN1?}JUMP{};
ZZZZ010717	9200	=   XML_CONTINUE{_READ_DATA};
ZZZZ010717	9300	=XML1:XML{};
ZZZZ010717	9400	=IF{_XML!=1}BACK{READ_NEXT};
ZZZZ010717	9500	=IF_ERROR_SET{W0.TOTALTIME=WN.TOTALTIME}JUMP{J};
ZZZZ010717	9600	=COMPUTE_CUT{W0.HH=W0.TOTALTIME/60,W0.MM=W0.TOTALTIME%60};
ZZZZ010717	9700	=SET{WN.HH=};IF{W0.HH!=0}SET{WN.HH=W0.HH+'時間'};
ZZZZ010717	9800	=SET{WN.MM=};IF{W0.MM!=0}SET{WN.MM=W0.MM+'分'};
ZZZZ010717	9900	=SET{WN.TOTALTIME=WN.HH+WN.MM};
ZZZZ010717	10000	=J:
ZZZZ010717	10100	=SPLIT_CHAR{WN.TOTALLENGTH}{WN.TOTALLENGTH}{'.'};
ZZZZ010717	10200	=IF{_SPLIT_CHAR_COUNT=1}SET{WN.TOTALLENGTH2=};
ZZZZ010717	10300	=IF{WN.TOTALLENGTH1@LENGTH>3}SET{WN.TOTALLENGTH1=
ZZZZ010717	10400	=   WN.TOTALLENGTH1[1;WN.TOTALLENGTH1@LENGTH-3]+','
ZZZZ010717	10500	=   +WN.TOTALLENGTH1[WN.TOTALLENGTH1@LENGTH-2]};
ZZZZ010717	10600	=SET{WN.TOTALLENGTH=WN.TOTALLENGTH1};
ZZZZ010717	10700	=IF{WN.TOTALLENGTH2!=}
ZZZZ010717	10800	=   SET{WN.TOTALLENGTH+='.'+WN.TOTALLENGTH2};
ZZZZ010717	10900	=SET{WN.TOTALLENGTH+=_P(KM)};
ZZZZ010717	11000	=IF{WN.TOTALTOLL@LENGTH>3}
ZZZZ010717	11100	=   SET{WN.TOTALTOLL=WN.TOTALTOLL[1;WN.TOTALTOLL@LENGTH-3]
ZZZZ010717	11200	=   +','+WN.TOTALTOLL[WN.TOTALTOLL@LENGTH-2]};
ZZZZ010717	11300	=SET{WN.TOTALTOLL+='円'};
ZZZZ010717	11400	=OUTPUT{?WN11?,,,,,?WN14?,?WN13?,?WN12?,,,,};
ZZZZ010717	11500	=SET{WC.OUTPUT_SW=1};
ZZZZ010717	11600	******( 2 DETAILS )**************************************
ZZZZ010717	11700	=XML_BEGIN{WN.DETAILS,?WN2?};
ZZZZ010717	11800	=XML2:XML{};
ZZZZ010717	11900	=IF{_XML=0}XML_END{}BACK{XML1};
ZZZZ010717	12000	=IF{_XML=2}ERROR{PROGRAM ERROR DETAILS};
ZZZZ010717	12100	*OUTPUT{'*',?WN21?,?WN22?,?WN23?,'*',?WN24?,?WN27?};
ZZZZ010717	12200	******( 3 TOLLS )***********************************
ZZZZ010717	12300	=XML_BEGIN{WN.TOLLS,?WN3?};SET{W0.TOLLS=0};
ZZZZ010717	12400	=SET{WN31=,WN32=,WN33=,WN34=,WN35=};
ZZZZ010717	12500	=XML3:XML{};
ZZZZ010717	12600	=IF{_XML=0}JUMP{XML3_END};
ZZZZ010717	12700	=IF{_XML=2}ERROR{PROGRAM ERROR TOLLS};
ZZZZ010717	12800	=COMPUTE{W0.TOLLS+=1};SET{WN3?W0.TOLLS?=WN.TOLL};
ZZZZ010717	12900	=BACK{XML3};
ZZZZ010717	13000	=XML3_END:
ZZZZ010717	13100	=OUTPUT{,?WN21?,?WN22?,?WN23?,,?WN24?,?WN27?
ZZZZ010717	13200	=   ,WN31,WN32,WN33,WN34,WN35};
ZZZZ010717	13300	=XML_END{};
ZZZZ010717	13400	******( 4 SUBSECTIONS )***********************************
ZZZZ010717	13500	=XML_BEGIN{WN.SUBSECTIONS,?WN4?};
ZZZZ010717	13600	=XML4:XML{};
ZZZZ010717	13700	=IF{_XML=0}JUMP{XML4_END};
ZZZZ010717	13800	=IF{_XML=2}ERROR{PROGRAM ERROR  SUBSECTIONS};
ZZZZ010717	13900	=OUTPUT{,,?WN41?,?WN42?,?WN43?,?WN44?,?WN45?,,,,,};
ZZZZ010717	14000	=BACK{XML4};
ZZZZ010717	14100	=XML4_END:XML_END{};
ZZZZ010717	14200	=BACK{XML2};
ZZZZ010717	14300	=READ_END:READ_CLOSE{F1};XML_END{};
ZZZZ010717	14400	=IF{WC.OUTPUT_SW=0}EXIT{_END};
ZZZZ010717	14500	CONTROL=SCROLL
ZZZZ010717	14600	SET={O}$F{25}インター入口
ZZZZ010717	14700	SET={O}$T{25}インター出口
ZZZZ010717	14800	SET={O}$C{10,,J}車種
ZZZZ010717	14900	SET={O}$S{4,,J}順序
ZZZZ010717	15000	DATA=D1{2}NO1
ZZZZ010717	15100	DATA=D2{2}NO2
ZZZZ010717	15200	DATA=D3{21}開始
ZZZZ010717	15300	DATA=D4{21}終了
ZZZZ010717	15400	DATA=D5{27}道路
ZZZZ010717	15500	DATA=D6{8}距離
ZZZZ010717	15600	DATA=D7{10}時間
ZZZZ010717	15700	DATA=D8{16}値段1
ZZZZ010717	15800	DATA=D9{16}値段2
ZZZZ010717	15900	DATA=D10{18}値段3
ZZZZ010717	16000	DATA=D11{27}値段4
ZZZZ010717	16100	DATA=D12{16}値段5
ZZZZ010719	100	PROGRAM=NOT
ZZZZ010719	200	CONTROL=PROGRAM
ZZZZ010719	300	BEGIN
ZZZZ010719	400	=SET{W0=1};
ZZZZ010719	500	FORM= [ENTER]でZZZZ010720(90)からのデータを待ち受けます @
ZZZZ010719	600	DATA=A{1}
ZZZZ010719	700	=IF_ERROR_RECEIVE{90}ERROR{};
ZZZZ010719	800	REPEAT=10
ZZZZ010719	900	DATA={O}B##{80}
ZZZZ010719	1000	FORM= @
ZZZZ010719	1100	REPEAT=
ZZZZ010719	1200	FORM=受信中 @
ZZZZ010719	1300	DATA=C{1}
ZZZZ010719	1400	=SET{B?W0?=_RECEIVE};COMPUTE{W0+=1};
ZZZZ010719	1500	=IF{W0>10}SET{W0=1}JUMP{};
ZZZZ010719	1600	=TIMER{1};
ZZZZ010720	100	PROGRAM=NOT
ZZZZ010720	200	BEGIN
ZZZZ010720	300	=SET{W0=1};
ZZZZ010720	400	FORM= [ENTER]でZZZZ010719(90)にデータを10件送信します @ @@
ZZZZ010720	500	DATA=A{1}
ZZZZ010720	600	DATA={O}CNT{2,,+}
ZZZZ010720	700	REPEAT=10
ZZZZ010720	800	=SEND{90}{}{SEND MESSAGE ## };
ZZZZ010720	900	=SET{CNT=##};
ZZZZ010720	1000	=SLEEP{2};
ZZZZ010720	1100	REPEAT=
ZZZZ010720	1200	FORM=送信完了 @
ZZZZ010720	1300	DATA=C{1}
ZZZZ010721	100	%NOT_ENTER+COMMENT_BEGIN
ZZZZ010721	200	PROGRAM=NOT
ZZZZ010721	300	DATA={N}DUMMY{1}
ZZZZ010721	400	=IF_TABLE{?_MM?_MODEL_TEL_TABLE}EXIT{+1};
ZZZZ010721	500	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010721	600	DATA={O}MESSAGE{50}
ZZZZ010721	700	DATA=YES{3}{YES,NO}
ZZZZ010721	800	=IF{_DATA='YES'}EXE_I{ZZZZ010740};
ZZZZ010721	900	=EXIT{_END}
ZZZZ010721	1000	%NOT_ENTER+COMMENT_END
ZZZZ010721	1100	PROGRAM=,&X1,?_MM?_MODEL_TEL_TABLE
ZZZZ010721	1200	CONTROL=SCROLL
ZZZZ010721	1300	INPUT+CONTROL=0
ZZZZ010721	1400	%NOT_ENTER-CONTROL=BEGIN_ENTER
ZZZZ010721	1500	SET={}.=?&.SET&MODEL_TEL_KEY1?
ZZZZ010721	1600	SET={}.=?&.SET&MODEL_TEL_KEY2?
ZZZZ010721	1700	SET={}.=?&.SET&MODEL_TEL_KEY3?
ZZZZ010721	1800	SET={}.?&.SET&MODEL_TEL?
ZZZZ010721	1900	SET={}.?&.SET&MODEL_TEL_COMMENT?
ZZZZ010721	2000	*****( 電話大分類 )*****
ZZZZ010721	2100	DATA={K }?&.DATA&MODEL_TEL_KEY1?
ZZZZ010721	2200	*****( 電話中分類 )*****
ZZZZ010721	2300	DATA={K }?&.DATA&MODEL_TEL_KEY2?
ZZZZ010721	2400	*****( 電話小分類 )*****
ZZZZ010721	2500	DATA={K }?&.DATA&MODEL_TEL_KEY3?
ZZZZ010721	2600	*****( 電話番号 )*****
ZZZZ010721	2700	DATA={  }?&.DATA&MODEL_TEL?
ZZZZ010721	2800	*****( 電話番号備考 )*****
ZZZZ010721	2900	DATA={  }?&.DATA&MODEL_TEL_COMMENT?
ZZZZ010721	3000	COPY=@ZZZZZZ_SQL
ZZZZ010721	3100	END
ZZZZ010721	3200	=EXIT{0};
ZZZZ010721	3300	PROGRAM=NOT,&X1,?_MM?_MODEL_TEL_TABLE
ZZZZ010721	3400	DATA={O}$?&.DATA&MODEL_TEL_KEY1?
ZZZZ010721	3500	DATA={O}$?&.DATA&MODEL_TEL_KEY2?
ZZZZ010721	3600	DATA=NO{1,,+}
ZZZZ010721	3700	CHECK2=1,?&.TITLE&.MODEL_TEL_KEY1? CHANGE
ZZZZ010721	3800	CHECK2=,2,?&.TITLE&.MODEL_TEL_KEY2? CHANGE
ZZZZ010721	3900	=SET{NEW.MODEL_TEL_KEY1=,NEW.MODEL_TEL_KEY2=};
ZZZZ010721	4000	=IF{_DATA=2}
ZZZZ010721	4100	=   SET{NEW.MODEL_TEL_KEY2=.MODEL_TEL_KEY2}
ZZZZ010721	4200	=   EXIT{NEW.MODEL_TEL_KEY2};
ZZZZ010721	4300	=SET{NEW.MODEL_TEL_KEY1=.MODEL_TEL_KEY1};
ZZZZ010721	4400	DATA={}NEW.?&.DATA&MODEL_TEL_KEY1?
ZZZZ010721	4500	=IF{MODEL_TEL_KEY1=_DATA}ERROR{SAME NAME};
ZZZZ010721	4600	=SQL_SET{COUNT}{SELECT COUNT(*) FROM ?_TABLE? ?_T?
ZZZZ010721	4700	=   ,?_TABLE? ?_T?A WHERE
ZZZZ010721	4800	=   .?_VRE&NEW.MODEL_TEL_KEY1?
ZZZZ010721	4900	=   AND ?_T?A.?_VRE&MODEL_TEL_KEY1?
ZZZZ010721	5000	=   AND ?_T?A.?_NE&MODEL_TEL_KEY2?
ZZZZ010721	5100	=   AND ?_T?A.?_NE&MODEL_TEL_KEY3?
ZZZZ010721	5200	=   AND ?_T?A.Z_CANCEL=' ' AND .Z_CANCEL=' '};
ZZZZ010721	5300	=IF{COUNT>0}ERROR{SAME KEY FOUND};
ZZZZ010721	5400	=SQL_SET{COUNT}{SELECT COUNT(*) FROM ?_TABLE? WHERE
ZZZZ010721	5500	=   MODEL_TEL_KEY1 ='?NEW.MODEL_TEL_KEY1?'
ZZZZ010721	5600	=   AND Z_CANCEL=' '};
ZZZZ010721	5700	=EXIT{YES}
ZZZZ010721	5800	DATA={}NEW.?&.DATA&MODEL_TEL_KEY2?
ZZZZ010721	5900	=IF{MODEL_TEL_KEY2=_DATA}ERROR{SAME NAME};
ZZZZ010721	6000	=SQL_SET{COUNT}{SELECT COUNT(*) FROM ?_TABLE? ?_T?
ZZZZ010721	6100	=   ,?_TABLE? ?_T?A WHERE
ZZZZ010721	6200	=    ?_T?A.?_NE&MODEL_TEL_KEY1?
ZZZZ010721	6300	=    AND .?_VRE&NEW.MODEL_TEL_KEY2?
ZZZZ010721	6400	=    AND ?_T?A.?_VRE&MODEL_TEL_KEY2?
ZZZZ010721	6500	=    AND ?_T?A.?_NE&MODEL_TEL_KEY3?
ZZZZ010721	6600	=    AND ?_T?A.Z_CANCEL=' ' AND .Z_CANCEL=' '};
ZZZZ010721	6700	=IF{COUNT>0}ERROR{SAME KEY FOUND};
ZZZZ010721	6800	=SQL_SET{COUNT}{SELECT COUNT(*) FROM ?_TABLE? WHERE
ZZZZ010721	6900	=   ?_VRE&NEW.MODEL_TEL_KEY2?
ZZZZ010721	7000	=   AND ?_VRE&MODEL_TEL_KEY1?
ZZZZ010721	7100	=   AND Z_CANCEL=' '};
ZZZZ010721	7200	COLOR
ZZZZ010721	7300	=IF{COUNT>0}SET{COUNT@COLOR='R'};
ZZZZ010721	7400	DATA={O}COUNT{5,,+}SAME COUNT?_Q?
ZZZZ010721	7500	DATA={}YES{4,,}{YES,NO}CHANGE
ZZZZ010721	7600	=IF{_DATA='NO'}EXIT{_END};
ZZZZ010721	7700	=IF{NO=2}JUMP{NO_2};
ZZZZ010721	7800	=IF_ERROR_SQL{UPDATE  ?_TABLE? SET ?_Z_UPDATE_CHANGE?
ZZZZ010721	7900	=   ,?_VRE&NEW.MODEL_TEL_KEY1? WHERE
ZZZZ010721	8000	=   ?_VRE&MODEL_TEL_KEY1?
ZZZZ010721	8100	=   AND Z_CANCEL=' '}ERROR{};
ZZZZ010721	8200	=JUMP{END};
ZZZZ010721	8300	=NO_2:IF_ERROR_SQL{UPDATE  ?_TABLE? SET ?_Z_UPDATE_CHANGE?
ZZZZ010721	8400	=   ,?_VRE&NEW.MODEL_TEL_KEY2? WHERE
ZZZZ010721	8500	=   ?_VRE&MODEL_TEL_KEY2?
ZZZZ010721	8600	=   AND ?_VRE&MODEL_TEL_KEY1?
ZZZZ010721	8700	=   AND Z_CANCEL=' '}ERROR{};
ZZZZ010721	8800	=END:SET{_RETURN_SQL=1};EXIT{_END};
ZZZZ010723	100	PROGRAM=NOT
ZZZZ010723	200	DATA={N}DUMMY{1}
ZZZZ010723	300	=IF_TABLE{?_MM?_MODEL_RES_ID_TABLE}EXIT{+1};
ZZZZ010723	400	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010723	500	DATA={O}MESSAGE{50}
ZZZZ010723	600	DATA=YES{3}{YES,NO}
ZZZZ010723	700	=IF{_DATA='YES'}EXE_I{ZZZZ010740};
ZZZZ010723	800	=EXIT{_END}
ZZZZ010723	900	PROGRAM=,&X1,?_MM?_MODEL_RES_ID_TABLE
ZZZZ010723	1000	CONTROL=0,SCROLL
ZZZZ010723	1100	SET={}.?&.SET&MODEL_RES_KEY1?
ZZZZ010723	1200	SET={}.?&.SET&MODEL_RES_KEY2?
ZZZZ010723	1300	SET={}.?&.SET&MODEL_RES_KEY3?
ZZZZ010723	1400	*SET={}?&.SET&MODEL_RES_COMMENT?
ZZZZ010723	1500	*****( 予約大分類 )*****
ZZZZ010723	1600	DATA={K }?&.DATA&MODEL_RES_KEY1?
ZZZZ010723	1700	*****( 予約中分類 )*****
ZZZZ010723	1800	DATA={K }?&.DATA&MODEL_RES_KEY2?
ZZZZ010723	1900	*****( 予約小分類 )*****
ZZZZ010723	2000	DATA={K }?&.DATA&MODEL_RES_KEY3?
ZZZZ010723	2100	*****( 予約備考 )*****
ZZZZ010723	2200	DATA={  }?&.DATA&MODEL_RES_COMMENT?
ZZZZ010723	2300	COPY=@ZZZZZZ_SQL
ZZZZ010723	2400	END
ZZZZ010723	2500	=EXIT{0};
ZZZZ010723	2600	PROGRAM=NOT,&X1,?_MM?_MODEL_RES_ID_TABLE
ZZZZ010723	2700	START
ZZZZ010723	2800	=IF{_START=2}EXIT{};
ZZZZ010723	2900	DATA={O}$?&.DATA&MODEL_RES_KEY1?
ZZZZ010723	3000	DATA={O}$?&.DATA&MODEL_RES_KEY2?
ZZZZ010723	3100	DATA=NO{1,,+}
ZZZZ010723	3200	CHECK2=1,?&.TITLE&.MODEL_RES_KEY1? CHANGE
ZZZZ010723	3300	CHECK2=,2,?&.TITLE&.MODEL_RES_KEY2? CHANGE
ZZZZ010723	3400	=SET{NEW.MODEL_RES_KEY1=,NEW.MODEL_RES_KEY2=};
ZZZZ010723	3500	=IF{_DATA=2}
ZZZZ010723	3600	=   SET{NEW.MODEL_RES_KEY2=.MODEL_RES_KEY2}
ZZZZ010723	3700	=   EXIT{NEW.MODEL_RES_KEY2};
ZZZZ010723	3800	=SET{NEW.MODEL_RES_KEY1=.MODEL_RES_KEY1};
ZZZZ010723	3900	DATA={}NEW.?&.DATA&MODEL_RES_KEY1?
ZZZZ010723	4000	=IF{MODEL_RES_KEY1=_DATA}ERROR{SAME NAME};
ZZZZ010723	4100	=SQL_SET{COUNT}{SELECT COUNT(*) FROM ?_TABLE? ?_T?
ZZZZ010723	4200	=   ,?_TABLE? ?_T?A WHERE
ZZZZ010723	4300	=   ?_T?.?_VRE&NEW.MODEL_RES_KEY1?
ZZZZ010723	4400	=   AND ?_T?A.?_VRE&MODEL_RES_KEY1?
ZZZZ010723	4500	=   AND ?_T?A.?_NE&MODEL_RES_KEY2?
ZZZZ010723	4600	=   AND ?_T?A.?_NE&MODEL_RES_KEY3?
ZZZZ010723	4700	=   AND ?_T?A.Z_CANCEL=' ' AND .Z_CANCEL=' '};
ZZZZ010723	4800	=IF{COUNT>0}ERROR{SAME KEY FOUND};
ZZZZ010723	4900	=SQL_SET{COUNT}{SELECT COUNT(*) FROM ?_TABLE? WHERE
ZZZZ010723	5000	=   ?_VRE&NEW.MODEL_RES_KEY1?
ZZZZ010723	5100	=   AND Z_CANCEL=' '};
ZZZZ010723	5200	=EXIT{YES}
ZZZZ010723	5300	DATA={}NEW.?&.DATA&MODEL_RES_KEY2?
ZZZZ010723	5400	=IF{MODEL_RES_KEY2=_DATA}ERROR{SAME NAME};
ZZZZ010723	5500	=SQL_SET{COUNT}{SELECT COUNT(*) FROM ?_TABLE? ?_T?
ZZZZ010723	5600	=   ,?_TABLE? ?_T?A WHERE
ZZZZ010723	5700	=   ?_T?A.?_NE&MODEL_RES_KEY1?
ZZZZ010723	5800	=   AND ?_T?.?_VRE&NEW.MODEL_RES_KEY2?
ZZZZ010723	5900	=   AND ?_T?A.?_VRE&MODEL_RES_KEY2?
ZZZZ010723	6000	=   AND ?_T?A.?_NE&MODEL_RES_KEY3?
ZZZZ010723	6100	=   AND ?_T?A.Z_CANCEL=' ' AND .Z_CANCEL=' '};
ZZZZ010723	6200	=IF{COUNT>0}ERROR{SAME KEY FOUND};
ZZZZ010723	6300	=SQL_SET{COUNT}{SELECT COUNT(*) FROM ?_TABLE? ?_T? WHERE
ZZZZ010723	6400	=   ?_VRE&NEW.MODEL_RES_KEY2?
ZZZZ010723	6500	=   AND ?_VRE&MODEL_RES_KEY1?
ZZZZ010723	6600	=   AND Z_CANCEL=' '};
ZZZZ010723	6700	COLOR
ZZZZ010723	6800	=IF{COUNT>0}SET{COUNT@COLOR='R'};
ZZZZ010723	6900	DATA={O}COUNT{5,,+}SAME COUNT?_Q?
ZZZZ010723	7000	DATA={}YES{4,,}{YES,NO}CHANGE
ZZZZ010723	7100	=IF{_DATA='NO'}EXIT{_END};
ZZZZ010723	7200	=IF{NO=2}JUMP{NO_2};
ZZZZ010723	7300	=IF_ERROR_SQL{UPDATE  ?_TABLE? SET ?_Z_UPDATE_CHANGE?
ZZZZ010723	7400	=   ,MODEL_RES_KEY1='?NEW.MODEL_RES_KEY1?' WHERE
ZZZZ010723	7500	=   ?_VRE&MODEL_RES_KEY1?
ZZZZ010723	7600	=   AND Z_CANCEL=' '} ERROR{};
ZZZZ010723	7700	=IF_ERROR_SQL{UPDATE  ?_MM?_MODEL_RES_TABLE
ZZZZ010723	7800	=   SET ?_Z_UPDATE_CHANGE?
ZZZZ010723	7900	=   ,?_VRE&NEW.MODEL_RES_KEY1? WHERE
ZZZZ010723	8000	=   ?_VRE&MODEL_RES_KEY1?
ZZZZ010723	8100	=    AND Z_CANCEL=' '} ERROR{};
ZZZZ010723	8200	=JUMP{END};
ZZZZ010723	8300	=NO_2:IF_ERROR_SQL{UPDATE  ?_TABLE? SET ?_Z_UPDATE_CHANGE?
ZZZZ010723	8400	=   ,?_VRE&NEW.MODEL_RES_KEY2? WHERE
ZZZZ010723	8500	=   ?_VRE&MODEL_RES_KEY2?
ZZZZ010723	8600	=   AND ?_VRE&MODEL_RES_KEY1?
ZZZZ010723	8700	=   AND Z_CANCEL=' '} ERROR{};
ZZZZ010723	8800	=IF_ERROR_SQL{UPDATE  ?_MM?_MODEL_RES_TABLE
ZZZZ010723	8900	=   SET ?_Z_UPDATE_CHANGE?
ZZZZ010723	9000	=   ,?_VRE&NEW.MODEL_RES_KEY2? WHERE
ZZZZ010723	9100	=   ?_VRE&MODEL_RES_KEY2?
ZZZZ010723	9200	=   AND ?_VRE&MODEL_RES_KEY1?
ZZZZ010723	9300	=   AND Z_CANCEL=' '}ERROR{};
ZZZZ010723	9400	=END:SET{_RETURN_SQL=1};EXIT{_END};
ZZZZ010725	100	PROGRAM=NOT
ZZZZ010725	200	DATA={N}DUMMY{1}
ZZZZ010725	300	=IF_TABLE{?_MM?_MODEL_POST_TABLE}EXIT{+1};
ZZZZ010725	400	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010725	500	DATA={O}MESSAGE{50}
ZZZZ010725	600	DATA=YES{3}{YES,NO}
ZZZZ010725	700	=IF{_DATA='YES'}EXE_I{ZZZZ010740};
ZZZZ010725	800	=EXIT{_END}
ZZZZ010725	900	PROGRAM=NOT
ZZZZ010725	1000	TABLE=&X2,?_MM?_MODEL_POST_TABLE
ZZZZ010725	1100	DATA={N}DUMMY{1}
ZZZZ010725	1200	=EXIT3{BEGIN};
ZZZZ010725	1300	FORM= @
ZZZZ010725	1400	DATA={}BEGIN{1}
ZZZZ010725	1500	=SET_TABLE{&X0,?_MP_ZZZZ?ZZ_ETC_TABLE};
ZZZZ010725	1600	=SET{WC.SYSTEM_KEY1='ZZZZZY_MODEL_ADD'};
ZZZZ010725	1700	=SET{WN.SYSTEM_ETC=};
ZZZZ010725	1800	=SET{WC.1='URL',WC.2='DIR',WC.3='FILE'};
ZZZZ010725	1900	REPEAT=3
ZZZZ010725	2000	=SET{WC.SYSTEM_KEY2='POST_?WC.##?'};
ZZZZ010725	2100	=PROGRAM{0,?&X0.TABLE?,WN.SYSTEM_ETC}{?&X0.WORK_KEY?}{};
ZZZZ010725	2200	=IF{_PROGRAM_COUNT=0}ERROR{ZZZZZZ_ETC_TABLE
ZZZZ010725	2300	=  '?WC.SYSTEM_KEY1?','?WC.SYSTEM_KEY2?' IS NOT FOUND};
ZZZZ010725	2400	=SET{?WC.##?=WN.SYSTEM_ETC};
ZZZZ010725	2500	REPEAT=
ZZZZ010725	2600	*SET{WC.ZIP='.ZIP',PROXY=@ZZZZZZ_PROXY,WC.HTTP='HTTP://'};
ZZZZ010725	2610	=SET{WC.ZIP='.ZIP',WC.HTTP='HTTP://'};
ZZZZ010725	2700	=SET{URL_ALL=
ZZZZ010725	2800	=   '?WC.HTTP@LOWER??URL@LOWER??DIR@LOWER??WC.ZIP@LOWER?'};
ZZZZ010725	2900	FORM= ZZZZZZ_ETC_TABLE(SYSTEM_KEY1='ZZZZZY_MODEL_ADD')
ZZZZ010725	3000	FORM=(SYSTEM_KEY2='POST_URL')
ZZZZ010725	3100	FORM=@
ZZZZ010725	3200	DATA={O}URL{70}
ZZZZ010725	3300	FORM=(SYSTEM_KEY2='POST_DIR')
ZZZZ010725	3400	FORM=@
ZZZZ010725	3500	DATA={O}DIR{70}
ZZZZ010725	3600	FORM=[URL]
ZZZZ010725	3700	FORM=@
ZZZZ010725	3800	DATA={O}URL_ALL{80}
ZZZZ010725	3900	FORM=
ZZZZ010725	4000	FORM=(SYSTEM_KEY2='POST_FILE')
ZZZZ010725	4100	FORM=@
ZZZZ010725	4200	DATA={O}FILE{70}
ZZZZ010725	4300	FORM=
ZZZZ010725	4400	=SET{PROXY=!ZZZZZZ_PROXY};
ZZZZ010725	4500	*ORM=(SYSTEM_KEY2='ZZZZZZ_PROXY')
ZZZZ010725	4600	FORM=@ (PROXY)
ZZZZ010725	4700	DATA={}PROXY{21}
ZZZZ010725	4710	=IF_NOT{PROXY=!ZZZZZZ_PROXY}SET{!ZZZZZZ_PROXY=PROXY};
ZZZZ010725	4800	FORM=
ZZZZ010725	4900	FORM=
ZZZZ010725	4920	FORM=    （データ件数が多いのでかなり時間が掛かります）
ZZZZ010725	5000	FORM= @@@ 'YES'で受信処理が実行されます。
ZZZZ010725	5100	DATA=YES{4}{YES,NO}
ZZZZ010725	5200	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010725	5300	=IF_ERROR_URL{,?PROXY?}{?URL_ALL?}ERROR{};
ZZZZ010725	5400	=IF_ERROR_ZIP{?DIR@LOWER??WC.ZIP@LOWER?}ERROR{};
ZZZZ010725	5500	NAME=DROP_TABLE
ZZZZ010725	5600	REPEAT=?_A_A?
ZZZZ010725	5700	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ010725	5800	REPEAT=
ZZZZ010725	5900	NAME=
ZZZZ010725	6000	=COPY_TABLE{?_WORK_TABLE?A,?_MM?_MODEL_POST_TABLE,NOT};
ZZZZ010725	6100	=IF_ERROR_READ_OPEN{1,?_TMP??DIR@LOWER??_P??FILE?,SHIFT_JIS}
ZZZZ010725	6200	=   ERROR{};
ZZZZ010725	6300	=SET{_TRACE=0};
ZZZZ010725	6400	=READ_NEXT1:
ZZZZ010725	6500	=READ_NEXT{1,,,WC.MODEL_ADD_NO,,,,WN.MODEL_ADD_ADDRESS1,
ZZZZ010725	6600	=   WN.MODEL_ADD_ADDRESS2,WN.MODEL_ADD_ADDRESS3}
ZZZZ010725	6700	=   JUMP{READ_END1};
ZZZZ010725	6800	=IF{WN.MODEL_ADD_ADDRESS3='以下に掲載がない場合'}
ZZZZ010725	6900	=   SET{WN.MODEL_ADD_ADDRESS3=};
ZZZZ010725	7000	=SET{W0.MODEL_ADD_REPEAT=0};
ZZZZ010725	7100	=LOOP:
ZZZZ010725	7200	=IF_ERROR_PROGRAM{2,?_WORK_TABLE?A,?&X2.WORK_DATA?}
ZZZZ010725	7300	=  {?&X2.WORK_KEY?}{}JUMP{DOUBLE};
ZZZZ010725	7400	=BACK{READ_NEXT1};
ZZZZ010725	7500	=DOUBLE:COMPUTE{W0.MODEL_ADD_REPEAT+=1};
ZZZZ010725	7600	=IF{W0.MODEL_ADD_REPEAT>999}ERROR{REPEAT DATA > 999};
ZZZZ010725	7700	=BACK{LOOP};
ZZZZ010725	7800	=READ_END1:READ_CLOSE{1};
ZZZZ010725	7900	=SET{_TRACE=1};
ZZZZ010725	8000	=REPLACE_ALL{?&X2.TABLE?,?_WORK_TABLE?A,?&X2.WORK_DATA?}
ZZZZ010725	8100	=  {?&X2.WORK_KEY?}{}{};
ZZZZ010725	8200	COPY=DROP_TABLE
ZZZZ010725	8300	=ERASE_DIR{?DIR@LOWER?};
ZZZZ010725	8400	=ERASE_FILE{?DIR@LOWER??WC.ZIP@LOWER?};
ZZZZ010725	8500	FORM= @ [ENTER]で終了します。
ZZZZ010725	8600	DATA=END{1}
ZZZZ010725	8700	=EXIT{_END};
ZZZZ010725	8800	END
ZZZZ010725	8900	=EXIT{0};
ZZZZ010726	100	PROGRAM=NOT
ZZZZ010726	200	DATA={N}DUMMY{1}
ZZZZ010726	300	=IF_TABLE{?_MM?_MODEL_ADDRESS_TABLE}EXIT{+1};
ZZZZ010726	400	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010726	500	DATA={O}MESSAGE{50}
ZZZZ010726	600	DATA=YES{3}{YES,NO}
ZZZZ010726	700	=IF{_DATA='YES'}EXE_I{ZZZZ010740};
ZZZZ010726	800	=EXIT{_END}
ZZZZ010726	900	PROGRAM=,&X1,?_MM?_MODEL_ADDRESS_TABLE
ZZZZ010726	1000	CONTROL=SCROLL
ZZZZ010726	1100	SET={}.?&.SET&MODEL_ADD_NAME11?
ZZZZ010726	1200	SET={}.?&.SET&MODEL_ADD_NAME12?
ZZZZ010726	1300	SET={}.?&.SET&MODEL_ADD_SENDER?
ZZZZ010726	1400	SET={}.?&.DATA&MODEL_ADD_PRINT?
ZZZZ010726	1500	*SET={}?&.SET&MODEL_ADD_SENDER_NO?
ZZZZ010726	1600	*SET={}?&.SET&MODEL_ADD_TITLE1?
ZZZZ010726	1700	*SET={}?&.SET&MODEL_ADD_NAME21?
ZZZZ010726	1800	*SET={}?&.SET&MODEL_ADD_NAME22?
ZZZZ010726	1900	*SET={}?&.SET&MODEL_ADD_TITLE2?
ZZZZ010726	2000	*SET={}?&.SET&MODEL_ADD_POST?
ZZZZ010726	2100	*SET={}?&.SET&MODEL_ADD_ADDRESS1?
ZZZZ010726	2200	*SET={}?&.SET&MODEL_ADD_ADDRESS2?
ZZZZ010726	2300	*SET={}?&.SET&MODEL_ADD_ADDRESS3?
ZZZZ010726	2400	*SET={}?&.SET&MODEL_ADD_ADDRESS4?
ZZZZ010726	2500	*SET={}?&.SET&MODEL_ADD_TELEPHONE?
ZZZZ010726	2600	*SET={}?&.SET&MODEL_ADD_MAIL?
ZZZZ010726	2700	*****( 姓 )*****
ZZZZ010726	2800	DATA={K}?&.DATA&MODEL_ADD_NAME11?
ZZZZ010726	2900	*****( 名 )*****
ZZZZ010726	3000	DATA={K}?&.DATA&MODEL_ADD_NAME12?
ZZZZ010726	3100	*****( 差出人 )*****
ZZZZ010726	3200	DATA={K}?&.DATA&MODEL_ADD_SENDER?
ZZZZ010726	3300	=IF{_DATA=}EXIT{};
ZZZZ010726	3400	=SQL_SET{}{SELECT 0 FROM ?&.TABLE? WHERE
ZZZZ010726	3500	=   MODEL_ADD_SENDER='?_DATA?' AND Z_CANCEL=' '};
ZZZZ010726	3600	=IF{_SQL_SET_COUNT>0}ERROR{同じ番号が既に使われています};
ZZZZ010726	3700	*SET{MODEL_ADD_PRINT=,.MODEL_ADD_SENDER_NO=
ZZZZ010726	3800	*,MODEL_ADD_TITLE1=};
ZZZZ010726	3900	*EXIT{MODEL_ADD_NAME21};
ZZZZ010726	4000	*****( 作成はキー項目を実行しない為の対応 )*****
ZZZZ010726	4100	DATA={*N}DUMMY{1}
ZZZZ010726	4200	SELECT=' '
ZZZZ010726	4300	=IF{MODEL_ADD_SENDER=}EXIT{};
ZZZZ010726	4400	=SET{MODEL_ADD_SENDER_NO=};  差出人は差出人番号無し*
ZZZZ010726	4500	=SET{MODEL_ADD_PRINT=};  差出人は印刷しない*
ZZZZ010726	4600	=SET{MODEL_ADD_TITLE1=}; 差出人は敬称不要*
ZZZZ010726	4700	=EXIT{MODEL_ADD_NAME21}; 差出人はスキップ*
ZZZZ010726	4800	*****( 印刷指示 )*****
ZZZZ010726	4900	DATA={}?&.DATA&MODEL_ADD_PRINT?
ZZZZ010726	5000	*****( 差出人番号 )*****
ZZZZ010726	5100	DATA={}?&.DATA&MODEL_ADD_SENDER_NO?
ZZZZ010726	5200	CHECK2=SELECT MODEL_ADD_SENDER FROM ?&.TABLE?
ZZZZ010726	5300	CHECK2=WHERE MODEL_ADD_SENDER <>' '
ZZZZ010726	5400	CHECK2=AND Z_CANCEL=' '
ZZZZ010726	5500	*****( 敬称 )*****
ZZZZ010726	5600	DATA={}?&.DATA&MODEL_ADD_TITLE1?
ZZZZ010726	5700	*****( 姓(連名) )*****
ZZZZ010726	5800	DATA={}?&.DATA&MODEL_ADD_NAME21?
ZZZZ010726	5900	=IF{_DATA!=}SET{MODEL_ADD_NAME22@LENGTH2=1}JUMP{};
ZZZZ010726	6000	=   SET{        MODEL_ADD_NAME22@LENGTH2=0};
ZZZZ010726	6100	*=SET{MODEL_ADD_NAME22=,.MODEL_ADD_TITLE2=};
ZZZZ010726	6200	*=EXIT{MODEL_ADD_POST};
ZZZZ010726	6300	*****( 名(連名） )*****
ZZZZ010726	6400	DATA={}?&.DATA&MODEL_ADD_NAME22?
ZZZZ010726	6500	=IF{   MODEL_ADD_NAME11=MODEL_ADD_NAME21}
ZZZZ010726	6600	=   IF{MODEL_ADD_NAME12=MODEL_ADD_NAME22}
ZZZZ010726	6700	=   ERROR{名前が同じです。};
ZZZZ010726	6800	=IF{MODEL_ADD_SENDER=}IF{_DATA!=}EXIT{};
ZZZZ010726	6900	=SET{MODEL_ADD_TITLE2=};
ZZZZ010726	7000	=EXIT{MODEL_ADD_POST};
ZZZZ010726	7100	*****( 敬称(連名) )*****
ZZZZ010726	7200	DATA={}?&.DATA&MODEL_ADD_TITLE2?
ZZZZ010726	7300	*****( 郵便番号 )*****
ZZZZ010726	7400	DATA={}?&.DATA&MODEL_ADD_POST?
ZZZZ010726	7500	=SQL1{SELECT MODEL_ADD_ADDRESS1
ZZZZ010726	7600	=   ,MODEL_ADD_ADDRESS2,MODEL_ADD_ADDRESS3
ZZZZ010726	7700	=   FROM ?_MM?_MODEL_POST_TABLE
ZZZZ010726	7800	=   WHERE MODEL_ADD_NO='?_DATA?' AND Z_CANCEL=' '};
ZZZZ010726	7900	=IF{_SQL1_COUNT=0}ERROR{該当番号が有りません};
ZZZZ010726	8000	=SQL1_NEXT{MODEL_ADD_ADDRESS1
ZZZZ010726	8100	=   ,WN.MODEL_ADD_ADDRESS2,WN.MODEL_ADD_ADDRESS3}NOP{};
ZZZZ010726	8200	=IF{_SQL1_COUNT=1}JUMP{ONE};
ZZZZ010726	8300	=SQL2{SELECT DISTINCT MODEL_ADD_ADDRESS2
ZZZZ010726	8400	=   FROM ?_MM?_MODEL_POST_TABLE
ZZZZ010726	8500	=   WHERE MODEL_ADD_NO='?_DATA?' AND Z_CANCEL=' '};
ZZZZ010726	8600	=IF{_SQL2_COUNT=1}JUMP{ONE};
ZZZZ010726	8700	=EXIT{MODEL_ADD_ADDRESS2};
ZZZZ010726	8800	=ONE:
ZZZZ010726	8900	=SET{MODEL_ADD_ADDRESS2=WN.MODEL_ADD_ADDRESS2};
ZZZZ010726	9000	=SET{MODEL_ADD_ADDRESS3=WN.MODEL_ADD_ADDRESS3};
ZZZZ010726	9100	=SET{_FIND_CHAR=WN.MODEL_ADD_ADDRESS3+'（）、～'};
ZZZZ010726	9200	=IF{_FIND_CHAR=0}EXIT{MODEL_ADD_ADDRESS4};
ZZZZ010726	9300	=EXIT{MODEL_ADD_ADDRESS3};
ZZZZ010726	9400	*****( 都道府県 )*****
ZZZZ010726	9500	DATA={}?&.DATA&MODEL_ADD_ADDRESS1?
ZZZZ010726	9600	*****( 市町村 )*****
ZZZZ010726	9700	DATA={}?&.DATA&MODEL_ADD_ADDRESS2?
ZZZZ010726	9800	CHECK2=SELECT DISTINCT MODEL_ADD_ADDRESS2
ZZZZ010726	9900	CHECK2=   FROM ?_MM?_MODEL_POST_TABLE
ZZZZ010726	10000	CHECK2=   WHERE MODEL_ADD_NO='?MODEL_ADD_POST?'
ZZZZ010726	10100	CHECK2=   AND Z_CANCEL=' ' ORDER BY 1
ZZZZ010726	10200	=SQL1{SELECT MODEL_ADD_ADDRESS3
ZZZZ010726	10300	=   FROM ?_MM?_MODEL_POST_TABLE
ZZZZ010726	10400	=   WHERE MODEL_ADD_NO='?MODEL_ADD_POST?'
ZZZZ010726	10500	=   AND MODEL_ADD_ADDRESS2='?_DATA?' AND Z_CANCEL=' '};
ZZZZ010726	10600	=SQL1_NEXT{MODEL_ADD_ADDRESS3}NOP{};
ZZZZ010726	10700	=IF{_SQL1_COUNT!=1}EXIT{};
ZZZZ010726	10800	=SET{_FIND_CHAR=MODEL_ADD_ADDRESS3+'（）、～'};
ZZZZ010726	10900	=IF{_FIND_CHAR=0}EXIT{MODEL_ADD_ADDRESS4};
ZZZZ010726	11000	*****( 住所3 )*****
ZZZZ010726	11100	DATA={}?&.DATA&MODEL_ADD_ADDRESS3?
ZZZZ010726	11200	*NAME=INPUT
ZZZZ010726	11300	*INPUT=IF{_INPUT='１'}SET{_INPUT='一'};
ZZZZ010726	11400	*NAME=
ZZZZ010726	11500	*****( 番地、その他 )*****
ZZZZ010726	11600	DATA={}?&.DATA&MODEL_ADD_ADDRESS4?
ZZZZ010726	11700	*COPY=INPUT
ZZZZ010726	11800	*****( 電話番号 )*****
ZZZZ010726	11900	DATA={}?&.DATA&MODEL_ADD_TELEPHONE?
ZZZZ010726	12000	*****( メールアドレス )*****
ZZZZ010726	12100	DATA={}?&.DATA&MODEL_ADD_MAIL?
ZZZZ010726	12200	COPY=@ZZZZZZ_SQL
ZZZZ010726	12300	END
ZZZZ010726	12400	=EXIT{0};
ZZZZ010727	100	PROGRAM=NOT
ZZZZ010727	200	DATA={N}DUMMY{1}
ZZZZ010727	300	=EXIT3{BEGIN};
ZZZZ010727	400	FORM= @
ZZZZ010727	500	DATA={}BEGIN{1}
ZZZZ010727	600	=SET_TABLE{&X0,?_MP_ZZZZ?ZZ_ETC_TABLE};
ZZZZ010727	700	=SET{WC.SYSTEM_KEY1='ZZZZZY_MODEL_ADD'};
ZZZZ010727	800	=SET{WN.SYSTEM_ETC=};
ZZZZ010727	900	=SET{WC.1='URL',WC.2='DIR',WC.3='FILE'};
ZZZZ010727	1000	REPEAT=3
ZZZZ010727	1100	=SET{WC.SYSTEM_KEY2='FONT_?WC.##?'};
ZZZZ010727	1200	=PROGRAM{0,?&X0.TABLE?,WN.SYSTEM_ETC=}{?&X0.WORK_KEY?}{};
ZZZZ010727	1300	=IF{_PROGRAM_COUNT=0}
ZZZZ010727	1400	=   ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? NOT FOUND};
ZZZZ010727	1500	=SET{?WC.##?=WN.SYSTEM_ETC};
ZZZZ010727	1600	REPEAT=
ZZZZ010727	1700	*SET{WC.ZIP='.ZIP',PROXY=@ZZZZZZ_PROXY,WC.HTTP='HTTP://'};
ZZZZ010727	1710	=SET{WC.ZIP='.ZIP',WC.HTTP='HTTP://'};
ZZZZ010727	1800	=SET{URL_ALL=
ZZZZ010727	1900	=   '?WC.HTTP@LOWER??URL@LOWER??DIR@LOWER??WC.ZIP@LOWER?'};
ZZZZ010727	2000	FORM= ZZZZZZ_ETC_TABLE(SYSTEM_KEY1='ZZZZZY_MODEL_ADD')
ZZZZ010727	2100	FORM=(SYSTEM_KEY2='FONT_URL')
ZZZZ010727	2200	FORM=@
ZZZZ010727	2300	DATA={O}URL{70}
ZZZZ010727	2400	FORM=(SYSTEM_KEY2='FONT_DIR')
ZZZZ010727	2500	FORM=@
ZZZZ010727	2600	DATA={O}DIR{70}
ZZZZ010727	2700	FORM=[URL]
ZZZZ010727	2800	FORM=@
ZZZZ010727	2900	DATA={O}URL_ALL{80}
ZZZZ010727	3000	FORM=
ZZZZ010727	3100	FORM=(SYSTEM_KEY2='FONT_FILE')
ZZZZ010727	3200	FORM=@
ZZZZ010727	3300	DATA={O}FILE{70}
ZZZZ010727	3400	FORM=
ZZZZ010727	3500	=SET{PROXY=!ZZZZZZ_PROXY};
ZZZZ010727	3600	*ORM=(SYSTEM_KEY2='ZZZZZZ_PROXY')
ZZZZ010727	3700	FORM=@ (PROXY)
ZZZZ010727	3800	DATA={}PROXY{21}
ZZZZ010727	3810	=IF_NOT{PROXY=!ZZZZZZ_PROXY}SET{!ZZZZZZ_PROXY=PROXY};
ZZZZ010727	3900	FORM=
ZZZZ010727	4000	FORM=★別画面が開いたら「インストール」を実行して下さい。
ZZZZ010727	4100	FORM= @@@ 'YES'で受信処理が実行されます。
ZZZZ010727	4110	FORM=★(注意)ZIP解凍の日本語ファイル名が文字化けしていて
ZZZZ010727	4120	FORM=  エラーと成った場合は\I\TMPにダウンロードされたZIP
ZZZZ010727	4130	FORM=  ファイルをエクスプローラで解凍し解凍されたディレクトリ
ZZZZ010727	4131	FORM=  内のTTFファイルをクリックしてフォントをインストール
ZZZZ010727	4132	FORM=  して下さい。
ZZZZ010727	4200	DATA=YES{4}{YES,NO}
ZZZZ010727	4300	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ010727	4400	=IF_ERROR_URL{,?PROXY?}{?URL_ALL?}ERROR{};
ZZZZ010727	4500	=IF_ERROR_ZIP{?DIR@LOWER??WC.ZIP@LOWER?}ERROR{};
ZZZZ010727	4510	=IF_ERROR_EXE_WAIT{
ZZZZ010727	4600	= {?_TMP??DIR@LOWER??_P??DIR@LOWER??_P??FILE@LOWER?}ERROR{};
ZZZZ010727	4800	=ERASE_DIR{?DIR@LOWER?};
ZZZZ010727	4900	=ERASE_FILE{?DIR@LOWER??WC.ZIP@LOWER?};
ZZZZ010727	5000	FORM= @ [ENTER]で終了します。
ZZZZ010727	5100	DATA=END{1}
ZZZZ010727	5200	=EXIT{_END};
ZZZZ010728	100	PROGRAM=NOT
ZZZZ010728	200	DATA={N}DUMMY{1}
ZZZZ010728	300	=IF_TABLE{?_MM?_MODEL_ADDRESS_TABLE}EXIT{+1};
ZZZZ010728	400	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010728	500	DATA={O}MESSAGE{50}
ZZZZ010728	600	DATA=YES{3}{YES,NO}
ZZZZ010728	700	=IF{_DATA='YES'}EXE_I{ZZZZ010740};
ZZZZ010728	800	=EXIT{_END}
ZZZZ010728	900	PROGRAM=,&X1,?_MM?_MODEL_ADDRESS_TABLE
ZZZZ010728	1000	LEFT=&X2,?_MM?_MODEL_ADDRESS_TABLE,,*
ZZZZ010728	1100	JOIN_ON=X2.MODEL_ADD_SENDER=
ZZZZ010728	1200	JOIN_ON=?_T?.MODEL_ADD_SENDER_NO
ZZZZ010728	1300	JOIN_ON=AND X2.MODEL_ADD_SENDER<>' '
ZZZZ010728	1400	JOIN_ON=AND ?_T?.MODEL_ADD_SENDER_NO<>' '
ZZZZ010728	1500	*CONTROL=SCROLL
ZZZZ010728	1600	BEGIN
ZZZZ010728	1700	M+=SET{WC.LEN='LEN'};
ZZZZ010728	1800	D+=SET{WC.LEN='CHAR_LENGTH'};
ZZZZ010728	1900	M-D-=SET{WC.LEN='LENGTH'};
ZZZZ010728	2000	=SET{WC.SIZE1=5.7,WC.SIZE2=3.6};
ZZZZ010728	2100	=SET{WC.LEN1=80,WC.LEN2=50};
ZZZZ010728	2200	SET={,*}PRINT{7}{,PRINT,DISPLAY}
ZZZZ010728	2300	=SET{PRINT@WHERE='?_T?.MODEL_ADD_SENDER='' '''
ZZZZ010728	2400	=   +' AND ?_T?.MODEL_ADD_PRINT=''*'''};
ZZZZ010728	2500	=IF{_DATA=}EXIT{};
ZZZZ010728	2600	=IF{_FRAMEWORK='J'}ERROR{JAVAは動きません};
ZZZZ010728	2700	=IF{_SQL_COUNT=0}ERROR{COUNT=0};
ZZZZ010728	2800	=SET{WC.CMD=_REAL_TEST};
ZZZZ010728	2900	=IF{_DATA='DISPLAY'}SET{WC.CMD='DISPLAY'};
ZZZZ010728	3000	=IF{WC.CMD='REAL'}  SET{WC.CMD='PRINT'};
ZZZZ010728	3100	*IF_FILE{?_TMP??_SQL_FILE??_WINDOW?_DATA.TXT}
ZZZZ010728	3200	*   ERASE_FILE{?_SQL_FILE??_WINDOW?_DATA.TXT}ERROR{};
ZZZZ010728	3300	*SQL_FILE{?_WINDOW?_DATA.TXT,OT,UTF-8}{SELECT
ZZZZ010728	3400	REPEAT=2
ZZZZ010728	3500	=SET{WN.##LEN='?_LEN(X##.MODEL_ADD_NAME11)?'
ZZZZ010728	3600	=   +'*?_LEN(X##.MODEL_ADD_NAME22)?'
ZZZZ010728	3700	=   +'/?_LEN(X##.MODEL_ADD_NAME12)?'};
ZZZZ010728	3800	=SET{WN.##LEN=_ROUNDUP(?WN.##LEN?;0)};
ZZZZ010728	3900	REPEAT=
ZZZZ010728	4000	=IF_ERROR_IPRINT{ZZZZZZ_SAMPLE_HAGAKI,?WC.CMD?,,SELECT
ZZZZ010728	4100	REPEAT=2
ZZZZ010728	4200	2+=   ,
ZZZZ010728	4300	=    X##.MODEL_ADD_POST
ZZZZ010728	4400	=   ,?_CL?RTRIM(X##.MODEL_ADD_ADDRESS1)
ZZZZ010728	4500	=   ?_C?RTRIM(X##.MODEL_ADD_ADDRESS2)?_CR?
ZZZZ010728	4600	=   ,?_CL?RTRIM(CAST(CASE WHEN
ZZZZ010728	4700	NAME=LEN##
ZZZZ010728	4800	=   ?WC.LEN?(?_CL?RTRIM(X##.MODEL_ADD_ADDRESS3)
ZZZZ010728	4900	=   ?_C?RTRIM(X##.MODEL_ADD_ADDRESS4)?_CR?)
ZZZZ010728	5000	NAME=
ZZZZ010728	5100	=   <15*?_UTF8_GET? THEN '?WC.SIZE##?'
ZZZZ010728	5200	=   ELSE CAST(CAST(?WC.LEN##?*?_UTF8_GET? AS DECIMAL(5,1))/
ZZZZ010728	5300	COPY=LEN##
ZZZZ010728	5400	=   AS DECIMAL(5,1)) END AS CHAR(6)))?_C?':'
ZZZZ010728	5500	=   ?_C?RTRIM(X##.MODEL_ADD_ADDRESS3)
ZZZZ010728	5600	=   ?_C?RTRIM(X##.MODEL_ADD_ADDRESS4)?_CR?
ZZZZ010728	5700	REPEAT2=2
ZZZZ010728	5800	=   ,CASE X##.MODEL_ADD_NAME22 WHEN ' ' THEN ' ' ELSE
ZZZZ010728	5900	NAME=NAME##$$
ZZZZ010728	6000	=   ?_(C?CASE X##.MODEL_ADD_NAME$$1 WHEN ' ' THEN
ZZZZ010728	6100	=   ?_REPEAT('　';(WN.##LEN))? ELSE
ZZZZ010728	6200	=   RTRIM(X##.MODEL_ADD_NAME$$1) END
ZZZZ010728	6300	=   ?_C?RTRIM(X##.MODEL_ADD_NAME$$2)
ZZZZ010728	6400	=   ?_C?RTRIM(X##.MODEL_ADD_TITLE$$)?_CR? END
ZZZZ010728	6500	NAME=
ZZZZ010728	6600	REPEAT2=1
ZZZZ010728	6700	=   ,CASE WHEN X##.MODEL_ADD_NAME22<>' ' THEN ' ' ELSE
ZZZZ010728	6800	COPY=NAME##$$
ZZZZ010728	6900	REPEAT=
ZZZZ010728	7000	=   ,?_CL?CASE X2.MODEL_ADD_TELEPHONE WHEN ' ' THEN ' ' ELSE
ZZZZ010728	7100	=   'TEL ' END?_C?X2.MODEL_ADD_TELEPHONE?_CR?
ZZZZ010728	7200	REPEAT=_FROM_COUNT
ZZZZ010728	7300	=   ?_FROM##?
ZZZZ010728	7400	REPEAT=3 (_WHERE_COUNTはこの時点で０の為,陽に設定)
ZZZZ010728	7500	=   ?_WHERE##?
ZZZZ010728	7600	REPEAT=
ZZZZ010728	7700	=   ?_WHERE_AND? ?_T?.Z_CANCEL=' '
ZZZZ010728	7800	=   ORDER BY 1,2
ZZZZ010728	7900	=   }ERROR{};
ZZZZ010728	8000	******************************************************
ZZZZ010728	8100	*IF_FILE{?_TMP??_SQL_FILE??_WINDOW?_LAYOUT.TXT}
ZZZZ010728	8200	*   ERASE_FILE{?_SQL_FILE??_WINDOW?_LAYOUT.TXT}ERROR{};
ZZZZ010728	8300	***( 印刷レイアファイルを作成 )***************************
ZZZZ010728	8400	*SQL_FILE{?_WINDOW?_LAYOUT.TXT,OT,UTF-8,W}
ZZZZ010728	8500	*{SELECT ZZZZZZ_PRINT_DATA FROM ?_MP_ZZZZ?ZZ_PRINT_TABLE
ZZZZ010728	8600	* WHERE ZZZZZZ_PRINT='ZZZZZZ_SAMPLE_HAGAKI'
ZZZZ010728	8700	* AND Z_CANCEL=' ' ORDER BY ZZZZZZ_SEQ}
ZZZZ010728	8800	* ERROR{};
ZZZZ010728	8900	*SET{WC.CMD=_REAL_TEST};
ZZZZ010728	9000	*IF{_DATA='DISPLAY'}SET{WC.CMD='TEST'};
ZZZZ010728	9100	*EXE{?_IPRINT?,?_IPRINT2? ?WC.CMD?
ZZZZ010728	9200	* ?_TMP??_SQL_FILE??_WINDOW?_DATA.TXT
ZZZZ010728	9300	* ?_TMP??_SQL_FILE??_WINDOW?_LAYOUT.TXT};
ZZZZ010728	9400	NAME=
ZZZZ010728	9500	=SET{PRINT=};EXIT{PRINT};
ZZZZ010728	9600	SET={}.?&.SET&MODEL_ADD_NAME11?
ZZZZ010728	9700	SET={}.?&.SET&MODEL_ADD_NAME12?
ZZZZ010728	9800	*SET={}?&.SET&MODEL_ADD_TITLE1?
ZZZZ010728	9900	*SET={}?&.SET&MODEL_ADD_SENDER?
ZZZZ010728	10000	*SET={}?&.SET&MODEL_ADD_PRINT?
ZZZZ010728	10100	*SET={}?&.SET&MODEL_ADD_NAME21?
ZZZZ010728	10200	*SET={}?&.SET&MODEL_ADD_NAME22?
ZZZZ010728	10300	*SET={}?&.SET&MODEL_ADD_TITLE2?
ZZZZ010728	10400	*SET={}?&.SET&MODEL_ADD_ADDRESS1?
ZZZZ010728	10500	*SET={}?&.SET&MODEL_ADD_ADDRESS2?
ZZZZ010728	10600	*SET={}?&.SET&MODEL_ADD_ADDRESS3?
ZZZZ010728	10700	*SET={}?&.SET&MODEL_ADD_TELEPHONE?
ZZZZ010728	10800	*SET={}?&.SET&MODEL_ADD_MAIL?
ZZZZ010728	10900	START
ZZZZ010728	11000	*****( 姓 )*****
ZZZZ010728	11100	DATA={K}?&.DATA&MODEL_ADD_NAME11?
ZZZZ010728	11200	*****( 名 )*****
ZZZZ010728	11300	DATA={K}?&.DATA&MODEL_ADD_NAME12?
ZZZZ010728	11400	*****( 差出人番号 )*****
ZZZZ010728	11500	DATA={K}?&.DATA&MODEL_ADD_SENDER?
ZZZZ010728	11600	*****( 印刷指示 )*****
ZZZZ010728	11700	DATA={}?&.DATA&MODEL_ADD_PRINT?
ZZZZ010728	11800	*****( 差出人番号 )*****
ZZZZ010728	11900	DATA={}?&.DATA&MODEL_ADD_SENDER_NO?
ZZZZ010728	12000	*****( 敬称 ) )*****
ZZZZ010728	12100	DATA={}?&.DATA&MODEL_ADD_TITLE1?
ZZZZ010728	12200	*****( 姓 )*****
ZZZZ010728	12300	DATA={*O}X2.?&.DATA&MODEL_ADD_NAME11?
ZZZZ010728	12400	*****( 名 )*****
ZZZZ010728	12500	DATA={*O}X2.?&.DATA&MODEL_ADD_NAME12?
ZZZZ010728	12600	*****( 姓(連名)  )*****
ZZZZ010728	12700	DATA={*O}X2.?&.DATA&MODEL_ADD_NAME21?
ZZZZ010728	12800	*****( 名(連名)  )*****
ZZZZ010728	12900	DATA={*O}X2.?&.DATA&MODEL_ADD_NAME22?
ZZZZ010728	13000	*****( 姓(連名) )*****
ZZZZ010728	13100	DATA={}?&.DATA&MODEL_ADD_NAME21?
ZZZZ010728	13200	*****( 名(連名） )*****
ZZZZ010728	13300	DATA={}?&.DATA&MODEL_ADD_NAME22?
ZZZZ010728	13400	*****( 敬称(連名) )*****
ZZZZ010728	13500	DATA={}?&.DATA&MODEL_ADD_TITLE2?
ZZZZ010728	13600	*****( 郵便番号 )*****
ZZZZ010728	13700	DATA={}?&.DATA&MODEL_ADD_POST?
ZZZZ010728	13800	*****( 都道府県 )**
ZZZZ010728	13900	DATA={}?&.DATA&MODEL_ADD_ADDRESS1?
ZZZZ010728	14000	*****( 市町村 )****
ZZZZ010728	14100	DATA={}?&.DATA&MODEL_ADD_ADDRESS2?
ZZZZ010728	14200	*****( 住所3 )*****
ZZZZ010728	14300	DATA={}?&.DATA&MODEL_ADD_ADDRESS3?
ZZZZ010728	14400	*****( 番地、その他 )***
ZZZZ010728	14500	DATA={}?&.DATA&MODEL_ADD_ADDRESS4?
ZZZZ010728	14600	*****( 電話番号 )*****
ZZZZ010728	14700	DATA={}?&.DATA&MODEL_ADD_TELEPHONE?
ZZZZ010728	14800	*****( メールアドレス )*****
ZZZZ010728	14900	DATA={}?&.DATA&MODEL_ADD_MAIL?
ZZZZ010728	15000	DATA={}DATA_LENGTH1{10,,}宛先（市町村＋住所４)
ZZZZ010728	15100	SELECT=?WC.LEN?(?_CL?RTRIM(?_T?.MODEL_ADD_ADDRESS3)
ZZZZ010728	15200	SELECT=?_C?RTRIM(?_T?.MODEL_ADD_ADDRESS4)?_CR?)
ZZZZ010728	15300	DATA={}DATA_LENGTH2{10,,}差出人（市町村＋住所４)
ZZZZ010728	15400	SELECT=?WC.LEN?(?_CL?RTRIM(X2.MODEL_ADD_ADDRESS3)
ZZZZ010728	15500	SELECT=?_C?RTRIM(X2.MODEL_ADD_ADDRESS4)?_CR?)
ZZZZ010728	15600	COPY=@ZZZZZZ_SQL
ZZZZ010728	15700	END
ZZZZ010728	15800	=EXIT{0};
ZZZZ010729	100	PROGRAM=NOT,&X1,?_MM?_MODEL_ADDRESS_TABLE
ZZZZ010729	110	CONTROL=PROGRAM
ZZZZ010729	200	*BLE=&X1,?_MM?_MODEL_ADDRESS_TABLE
ZZZZ010729	300	FORM= ( @ )
ZZZZ010729	400	DATA={O}NAME{12}
ZZZZ010729	500	FORM= ファイルよりアドレス登録 @ {YES,NO}
ZZZZ010729	600	FORM=  ?_TMP?ADDRESS.CSV(SHIFT_JIS)
ZZZZ010729	700	DATA=YES{4}{YES,NO}
ZZZZ010729	800	=IF{_DATA<>'YES'}EXIT{_END};
ZZZZ010729	900	=SET{WC.MODEL_ADD_SENDER=};
ZZZZ010729	1000	=SET{WC.MODEL_ADD_PRINT='*'};
ZZZZ010729	1100	=SET{WC.MODEL_ADD_MAIL=};
ZZZZ010729	1200	=IF_ERROR_READ_OPEN{1,?_TMP?ADDRESS.CSV,SHIFT_JIS}ERROR{};
ZZZZ010729	1300	=READ_NEXT1:READ_NEXT{1,WN.WN1,,WN.WT1,WN.WP,WN.WA1,WN.WA2
ZZZZ010729	1400	=,WN.WA3,WN.WT,,,WN.WS,WN.WN2,WN.WT2}JUMP{READ_END1};
ZZZZ010729	1500	=IF{WN.WS=4}SET{WN.WS=2};
ZZZZ010729	1600	=IF{WN.WS=5}SET{WN.WS=3};
ZZZZ010729	1700	=IF{WN.WS=6}SET{WN.WS=1};
ZZZZ010729	1800	=IF{WN.WS=9}SET{WN.WS=0};
ZZZZ010729	1900	=IF{WN.WS=15}SET{WN.WS=4};
ZZZZ010729	2000	=SET{NAME=WN.WN1};
ZZZZ010729	2100	=SPLIT_CHAR{WN.}{WN.WN1}{};
ZZZZ010729	2200	=IF{_SPLIT_CHAR_COUNT<>2}
ZZZZ010729	2300	=  ERROR{_SPLIT_CHAR_COUNT=?_SPLIT_CHAR_COUNT?(?WN.WN1?)};
ZZZZ010729	2400	WORK=WN.?&.DATA&MODEL_ADD_NAME11?
ZZZZ010729	2500	=IF_ERROR_SET{WN.MODEL_ADD_NAME11=WN.1}ERROR{?WN.1?};
ZZZZ010729	2600	WORK=WN.?&.DATA&MODEL_ADD_NAME12?
ZZZZ010729	2700	=IF_ERROR_SET{WN.MODEL_ADD_NAME12=WN.2}ERROR{?WN.2?};
ZZZZ010729	2800	WORK=WN.?&.DATA&MODEL_ADD_TITLE1?
ZZZZ010729	2900	=IF_ERROR_SET{WN.MODEL_ADD_TITLE1=WN.WT1}ERROR{?WN.WT1?};
ZZZZ010729	3000	REPEAT=3
ZZZZ010729	3100	WORK=WN.?&.DATA&MODEL_ADD_ADDRESS##?
ZZZZ010729	3200	=SET{_FULL_SIZE=WN.WA##};
ZZZZ010729	3300	=IF_ERROR_SET{WN.MODEL_ADD_ADDRESS##=_FULL_SIZE}
ZZZZ010729	3400	=  ERROR{?_FULL_SIZE?};
ZZZZ010729	3500	REPEAT=
ZZZZ010729	3600	=SET{WC.MODEL_ADD_POST=WN.WP};
ZZZZ010729	3700	=SET{WC.MODEL_ADD_TELEPHONE=WN.WT};
ZZZZ010729	3800	=SET{WC.MODEL_ADD_SENDER_NO=WN.WS};
ZZZZ010729	3900	WORK=WN.?&.DATA&MODEL_ADD_NAME21?
ZZZZ010729	4000	=SET{WN.MODEL_ADD_NAME21=};
ZZZZ010729	4100	WORK=WN.?&.DATA&MODEL_ADD_NAME22?
ZZZZ010729	4200	=SET{WN.MODEL_ADD_NAME22=};
ZZZZ010729	4300	WORK=WN.?&.DATA&MODEL_ADD_TITLE2?
ZZZZ010729	4400	=IF_ERROR_SET{WN.MODEL_ADD_TITLE2=WN.WT2}ERROR{?WN.WT2?};
ZZZZ010729	4500	=SPLIT_CHAR{WN.}{WN.WN2}{};
ZZZZ010729	4600	=IF{_SPLIT_CHAR_COUNT=2}
ZZZZ010729	4700	=  IF_ERROR_SET{WN.MODEL_ADD_NAME22=WN.2}ERROR{?WN.2?};
ZZZZ010729	4800	=IF_ERROR_PROGRAM{2E,?&.TABLE?,?&.WORK_DATA?}{?&.WORK_KEY?}{}
ZZZZ010729	4810	=   ERROR{};
ZZZZ010729	5000	=BACK{READ_NEXT1};
ZZZZ010729	5100	=READ_END1:READ_CLOSE{1};
ZZZZ010729	5200	=EXIT{_END};
ZZZZ010733	100	MINUS=%CK
ZZZZ010734	100	MINUS=%CK
ZZZZ010736	100	PROGRAM=NOT
ZZZZ010736	200	BEGIN_END
ZZZZ010736	300	=SERIALPORT1_CLOSE{};
ZZZZ010736	310	=SERIALPORT2_CLOSE{};
ZZZZ010736	400	BEGIN
ZZZZ010736	500	=SET{S='ABCDEFGHIJ',WC.SW=0};
ZZZZ010736	502	FORM= COM1とCOM2間で10バイトデータを10回送受信します。
ZZZZ010736	510	FORM= @@@               送信文字 @
ZZZZ010736	700	DATA=YES{3}{YES,NO}
ZZZZ010736	1100	=IF{_DATA='NO'}EXIT{_END};
ZZZZ010736	1500	=IF{WC.SW!=0}JUMP{SKIP_OPEN};
ZZZZ010736	1700	=IF_ERROR_SERIALPORT1_OPEN{,COM1,9600,NONE,8,ONE}ERROR{};
ZZZZ010736	1710	=IF_ERROR_SERIALPORT2_OPEN{,COM2,9600,NONE,8,ONE}ERROR{};
ZZZZ010736	1800	=SET{WC.SW=1};
ZZZZ010736	1910	=SKIP_OPEN:
ZZZZ010736	1912	REPEAT=10
ZZZZ010736	1920	=SET{COM##='COM'+WC.SW};
ZZZZ010736	1921	=IF{WC.SW=1}SERIALPORT1_WRITE{S}JUMP{};
ZZZZ010736	1922	=           SERIALPORT2_WRITE{S};
ZZZZ010736	1933	=IF{WC.SW=1}SET{WC.SW=2}JUMP{};SET{WC.SW=1};
ZZZZ010736	2000	=IF{WC.SW=1}SERIALPORT1_READ{R##,10}JUMP{};
ZZZZ010736	2007	=           SERIALPORT2_READ{R##,10};
ZZZZ010736	2008	REPEAT=
ZZZZ010736	2009	DATA={O}S{10,,U}送信文字
ZZZZ010736	2010	REPEAT=10
ZZZZ010736	2020	10-FORM=##  受信ポート @@@@ 受信文字 @
ZZZZ010736	2021	10+FORM=## 受信ポート @@@@ 受信文字 @
ZZZZ010736	2100	DATA={O}COM##{4}受信ポート
ZZZZ010736	2102	DATA={O}R##{10}受信文字
ZZZZ010736	2110	REPEAT=
ZZZZ010738	100	PROGRAM=NOT
ZZZZ010738	200	DATA={N}DUMMY{1}
ZZZZ010738	300	=IF_TABLE{?_MM?_MODEL_TOUSI_TABLE}EXIT{+1};
ZZZZ010738	400	=SET{YES='YES',MESSAGE='YESでテーブルを作って下さい。'};
ZZZZ010738	500	DATA={O}MESSAGE{50}
ZZZZ010738	600	DATA=YES{3}{YES,NO}
ZZZZ010738	700	=IF{_DATA='YES'}EXE_I{ZZZZ010740};
ZZZZ010738	800	=EXIT{_END}
ZZZZ010738	900	PROGRAM=,&X1,?_MM?_MODEL_TOUSI_TABLE
ZZZZ010738	1000	BEGIN
ZZZZ010738	1100	=SET{WC.TODAY=_TODAY};
ZZZZ010738	1200	SET={,*}.検索{4}{,検索}
ZZZZ010738	1300	=IF{_DATA!=}SET{.検索=}EXIT{+1};
ZZZZ010738	1400	SET={}.?&.SET&MODEL_TOUSI_DATE?
ZZZZ010738	1500	SET={}.?&.SET&MODEL_TOUSI_KIND?
ZZZZ010738	1600	*SET={}.?&.SET&MODEL_TOUSI_DATE_END?
ZZZZ010738	1700	*SET={}.?&.SET&MODEL_TOUSI_EN?
ZZZZ010738	1800	*****( 投資日付 )*****
ZZZZ010738	1900	DATA={KD}?&.DATA&MODEL_TOUSI_DATE?
ZZZZ010738	2000	*****( 投資区分 )*****
ZZZZ010738	2100	DATA={K}?&.DATA&MODEL_TOUSI_KIND?
ZZZZ010738	2200	=IF{_DATA!='積立投資'}SET{MODEL_TOUSI_DATE_END=}
ZZZZ010738	2300	=  EXIT{MODEL_TOUSI_EN};
ZZZZ010738	2400	*****( 投資終了日付 )*****
ZZZZ010738	2500	DATA={}?&.DATA&MODEL_TOUSI_DATE_END?
ZZZZ010738	2600	*****( 投資額 )*****
ZZZZ010738	2700	DATA={}?&.DATA&MODEL_TOUSI_EN?
ZZZZ010738	2800	COPY=@ZZZZZZ_SQL
ZZZZ010738	2900	END
ZZZZ010738	3000	=EXIT{0};
ZZZZ010738	3100	PROGRAM=OUTPUT,&X1,?_MM?_MODEL_TOUSI_TABLE
ZZZZ010738	3200	*SET={}.?&.SET&MODEL_TOUSI_DATE?
ZZZZ010738	3300	*SET={}.?&.SET&MODEL_TOUSI_KIND?
ZZZZ010738	3400	*SET={}.?&.SET&MODEL_TOUSI_DATE_END?
ZZZZ010738	3500	*SET={}.?&.SET&MODEL_TOUSI_EN?
ZZZZ010738	3600	*****( 投資日付 )*****
ZZZZ010738	3700	DATA={K}?&.DATA&MODEL_TOUSI_DATE?
ZZZZ010738	3800	*****( 残高 )*****
ZZZZ010738	3900	DATA={}?&.DATA&MODEL_TOUSI_EN?
ZZZZ010738	4000	TITLE=残高
ZZZZ010738	4100	*****( 投資額 )*****
ZZZZ010738	4200	DATA={}X?&.DATA&MODEL_TOUSI_EN?
ZZZZ010738	4300	*****( 増減 )*****
ZZZZ010738	4400	DATA={}EN{5,,-}
ZZZZ010738	4500	TITLE=増減
ZZZZ010738	4600	SQL=SELECT MODEL_TOUSI_DATE,MODEL_TOUSI_EN ,EN,CASE
ZZZZ010738	4700	SQL=MODEL_TOUSI_EN WHEN 0 THEN 0 ELSE MODEL_TOUSI_EN-EN END
ZZZZ010738	4800	SQL=FROM (SELECT MODEL_TOUSI_DATE,MODEL_TOUSI_EN
ZZZZ010738	4900	SQL=,(SELECT SUM(EN) FROM (SELECT CASE MODEL_TOUSI_KIND
ZZZZ010738	5000	SQL= WHEN '投資' THEN   MODEL_TOUSI_EN
ZZZZ010738	5100	SQL= WHEN '引出' THEN 0-MODEL_TOUSI_EN
ZZZZ010738	5200	SQL= WHEN '積立投資' THEN MODEL_TOUSI_EN*((YYE-YYB)*12
ZZZZ010738	5220	*QL= +CASE WHEN MMB<MME THEN MME-MMB ELSE 13-MMB+MME END
ZZZZ010738	5300	SQL= +MME-MMB
ZZZZ010738	5400	SQL= +CASE WHEN DDB<DDE THEN 1 ELSE 0 END)ELSE 0 END AS EN
ZZZZ010738	5500	SQL=FROM
ZZZZ010738	5600	SQL= (SELECT MODEL_TOUSI_KIND,MODEL_TOUSI_DATE,MODEL_TOUSI_EN
ZZZZ010738	5700	SQL= ,CAST(?_SUBSTR(MODEL_TOUSI_DATE;1;4)? AS INT) AS YYB
ZZZZ010738	5800	SQL= ,CAST(?_SUBSTR(MODEL_TOUSI_DATE;5;2)? AS INT) AS MMB
ZZZZ010738	5900	SQL= ,CAST(?_SUBSTR(MODEL_TOUSI_DATE;7;2)? AS INT) AS DDB
ZZZZ010738	6000	SQL= ,CAST(?_SUBSTR(MODEL_TOUSI_DATE_E;1;4)? AS INT) AS YYE
ZZZZ010738	6100	SQL= ,CAST(?_SUBSTR(MODEL_TOUSI_DATE_E;5;2)? AS INT) AS MME
ZZZZ010738	6200	SQL= ,CAST(?_SUBSTR(MODEL_TOUSI_DATE_E;7;2)? AS INT) AS DDE
ZZZZ010738	6300	SQL= FROM(SELECT MODEL_TOUSI_KIND,MODEL_TOUSI_DATE,
ZZZZ010738	6400	SQL= MODEL_TOUSI_DATE_END,MODEL_TOUSI_EN
ZZZZ010738	6500	SQL=,CASE WHEN X3.MODEL_TOUSI_DATE_E
ZZZZ010738	6600	SQL=          <X1.MODEL_TOUSI_DATE THEN X3.MODEL_TOUSI_DATE_E
ZZZZ010738	6700	SQL=     ELSE  X1.MODEL_TOUSI_DATE END AS  MODEL_TOUSI_DATE_E
ZZZZ010738	6800	SQL=FROM
ZZZZ010738	6900	SQL= (SELECT MODEL_TOUSI_KIND,MODEL_TOUSI_DATE,
ZZZZ010738	7000	SQL= MODEL_TOUSI_DATE_END,MODEL_TOUSI_EN
ZZZZ010738	7100	SQL= ,CASE MODEL_TOUSI_DATE_END WHEN ' ' THEN '?WC.TODAY?'
ZZZZ010738	7200	SQL= ELSE MODEL_TOUSI_DATE_END END AS MODEL_TOUSI_DATE_E
ZZZZ010738	7300	SQL= FROM ?_TABLE? X2
ZZZZ010738	7400	SQL= WHERE X2.MODEL_TOUSI_DATE<=X1.MODEL_TOUSI_DATE
ZZZZ010738	7500	SQL= AND MODEL_TOUSI_KIND<>'残高' AND X2.Z_CANCEL=' '
ZZZZ010738	7600	SQL=)X3)X4)X5)X6) AS EN
ZZZZ010738	7700	SQL=FROM (SELECT MODEL_TOUSI_DATE,MODEL_TOUSI_EN
ZZZZ010738	7800	SQL=FROM ?_TABLE? WHERE MODEL_TOUSI_KIND='残高'
ZZZZ010738	7900	SQL=AND Z_CANCEL=' '
ZZZZ010738	8000	SQL=UNION SELECT  '?WC.TODAY?',0 ?_FROM_DUAL?
ZZZZ010738	8100	SQL=WHERE NOT EXISTS(SELECT 0 FROM ?_TABLE?
ZZZZ010738	8200	SQL=WHERE MODEL_TOUSI_DATE='?WC.TODAY?'
ZZZZ010738	8300	SQL=AND MODEL_TOUSI_KIND='残高'
ZZZZ010738	8400	SQL=AND Z_CANCEL=' '))X1)X
ZZZZ010738	8500	SQL=ORDER BY 1 DESC
ZZZZ010740	100	PROGRAM=NOT
ZZZZ010740	200	CONTROL=BEGIN_ENTER
ZZZZ010740	300	TABLE=&X2,?_MP_ZZZZ?ZZ_I_DICTIONARY_TABLE
ZZZZ010740	400	*ABLE=&X3,?_MM?_ETC_ORG_TABLE
ZZZZ010740	500	*WORK=?&X2.DATA&SYSTEM_PERMISSION?
ZZZZ010740	600	*WORK=?&X2.DATA&SYSTEM_DATA_NAME?
ZZZZ010740	700	*WORK=?&X2.DATA&SYSTEM_LANG?
ZZZZ010740	800	*WORK=?&X2.DATA&SYSTEM_DEFAULT_LENGTH1?
ZZZZ010740	900	BEGIN
ZZZZ010740	1000	*=SET{SYSTEM_PERMISSION='ZZZZ'};
ZZZZ010740	1100	*=SET{SYSTEM_LANG=_LANG_SYSTEM};
ZZZZ010740	1200	DATA={N}NO{1}
ZZZZ010740	1300	*=IF_TABLE_NOT{?_MM?_MODEL_TEL_TABLE}EXIT{};
ZZZZ010740	1400	*=J:SET{TEL='NO'};EXIT2{TEL};
ZZZZ010740	1500	FORM=*******************************************************
ZZZZ010740	1600	FORM=電話設定する場合’YES'とします。(設定済みはNO)        @
ZZZZ010740	1700	DATA=TEL{4}{YES,NO}
ZZZZ010740	1800	JA+TITLE=電話設定
ZZZZ010740	1900	*=IF_TABLE_NOT{?_MM?_MODEL_RES_ID_TABLE}EXIT{};
ZZZZ010740	2000	*=J:IF_TABLE_NOT{?_MM?_MODEL_RES_TABLE}EXIT{};
ZZZZ010740	2100	*=J:SET{RES='NO'};EXIT2{RES};
ZZZZ010740	2200	FORM=*******************************************************
ZZZZ010740	2300	FORM=予約設定する場合’YES'とします。(設定済みはNO)        @
ZZZZ010740	2400	DATA=RES{4}{YES,NO}予約設定
ZZZZ010740	2500	JA+TITLE=予約設定
ZZZZ010740	2600	FORM=*******************************************************
ZZZZ010740	2700	FORM=郵便番号設定する場合'YES'とします。(設定済みはNO))    @
ZZZZ010740	2800	DATA=POST{4}{YES,NO}
ZZZZ010740	2900	JA+TITLE=郵便番号設定
ZZZZ010740	3400	*FORM=★郵便番号を設定する場合事前に全国一括の
ZZZZ010740	3500	*FORM2=「KEN_ALL.ZIP」ファイルを
ZZZZ010740	3600	*ORM= 「?_TMP?」上にダウンロードして下さい。
ZZZZ010740	3700	*IF{_DATA='NO'}EXIT{ALL};
ZZZZ010740	3800	*SET{_LOWER=
ZZZZ010740	3900	*'HTTPS://WWW.POST.JAPANPOST.JP/ZIPCODE/DL/'
ZZZZ010740	4000	*+'KOGAKI-ZIP.HTML'};
ZZZZ010740	4100	*IF_ERROR_WEB{?_LOWER?}ERROR{};
ZZZZ010740	4200	FORM=*******************************************************
ZZZZ010740	4300	FORM=雛型給与計算を設定の場合'YES'とします。(設定済みはNO) @
ZZZZ010740	4400	*=ALL:IF_TABLE_NOT{?_MM?_MODEL_ALL1_ORG_TABLE}EXIT{};
ZZZZ010740	4500	*=J:SET{ALL='NO'};EXIT2{ALL};
ZZZZ010740	4600	DATA=ALL{4}{YES,NO}
ZZZZ010740	4610	FORM=*******************************************************
ZZZZ010740	4620	FORM=投資信託設定する場合'YES'とします。(設定済みはNO))    @
ZZZZ010740	4630	DATA=TOUSI{4}{YES,NO}
ZZZZ010740	4640	JA+TITLE=投資信託
ZZZZ010740	4700	=IF{TEL='NO'}IF{RES='NO'}IF{POST='NO'}IF{ALL='NO'}
ZZZZ010740	4800	=   IF{TOUSI='NO'}SET{RUN='NO'};
ZZZZ010740	4900	JA+TITLE=雛型給与計算を設定
ZZZZ010740	5000	FORM=*******************************************************
ZZZZ010740	5100	FORM=実行する場合’YES'とします。 @
ZZZZ010740	5200	************************************************************
ZZZZ010740	5300	*****( テーブル作成　）*************************************
ZZZZ010740	5400	************************************************************
ZZZZ010740	5500	DATA=RUN{4}{YES,NO}
ZZZZ010740	5600	JA+TITLE=実行
ZZZZ010740	5700	=IF{_DATA='NO'}JUMP{END};
ZZZZ010740	5800	=IF{TEL='NO'}JUMP{RES};
ZZZZ010740	5900	***( TEL )**********************
ZZZZ010740	6000	=IF_TABLE{?_MM?_MODEL_TEL_TABLE}JUMP{SKIP};
ZZZZ010740	6100	=DBO_CREATE_TABLE{?_MM?_MODEL_TEL_TABLE,
ZZZZ010740	6200	=  MODEL_TEL_KEY1,*,MODEL_TEL_KEY2,*,MODEL_TEL_KEY3,*}
ZZZZ010740	6300	= {MODEL_TEL,*,MODEL_TEL_COMMENT,*};
ZZZZ010740	6400	=DBO_GRANT{?_MM?_MODEL_TEL_TABLE};
ZZZZ010740	6500	FORM=*******************************************************
ZZZZ010740	6600	=SKIP:
ZZZZ010740	6700	=RES:IF{RES='NO'}JUMP{POST};
ZZZZ010740	6800	***( RES )***************************************************
ZZZZ010740	6900	=IF_TABLE{?_MM?_MODEL_RES_ID_TABLE}JUMP{SKIP};
ZZZZ010740	7000	=DBO_CREATE_TABLE{?_MM?_MODEL_RES_ID_TABLE,
ZZZZ010740	7100	=  MODEL_RES_KEY1,*,MODEL_RES_KEY2,*,MODEL_RES_KEY3,*}
ZZZZ010740	7200	= {MODEL_RES_COMMENT,*};
ZZZZ010740	7300	=DBO_GRANT{?_MM?_MODEL_RES_ID_TABLE};
ZZZZ010740	7400	=SKIP:IF_TABLE{?_MM?_MODEL_RES_TABLE}JUMP{SKIP};
ZZZZ010740	7500	=DBO_CREATE_TABLE{?_MM?_MODEL_RES_TABLE,
ZZZZ010740	7600	=  MODEL_RES_KEY1,*,MODEL_RES_KEY2,*,MODEL_RES_KEY3,*
ZZZZ010740	7700	=  ,MODEL_RES_BEGIN_DATE,*,MODEL_RES_BEGIN_TIME,*
ZZZZ010740	7800	=  ,MODEL_RES_END_DATE,*,MODEL_RES_END_TIME,*}
ZZZZ010740	7900	= {MODEL_RES_COMMENT,*};
ZZZZ010740	8000	=DBO_GRANT{?_MM?_MODEL_RES_TABLE};
ZZZZ010740	8100	=SKIP:
ZZZZ010740	8200	=POST:IF{POST='NO'}JUMP{ALL};
ZZZZ010740	8300	***( POST )**************************************************
ZZZZ010740	8400	=IF_TABLE{?_MM?_MODEL_POST_TABLE}JUMP{SKIP};
ZZZZ010740	8500	=DBO_CREATE_TABLE{?_MM?_MODEL_POST_TABLE,
ZZZZ010740	8600	=   MODEL_ADD_NO,*,MODEL_ADD_REPEAT,*}
ZZZZ010740	8700	=  {MODEL_ADD_ADDRESS1,*,MODEL_ADD_ADDRESS2,*
ZZZZ010740	8800	=  ,MODEL_ADD_ADDRESS3,*};
ZZZZ010740	8900	=DBO_GRANT{?_MM?_MODEL_POST_TABLE};
ZZZZ010740	9000	*=SERVER_BAT{ZZZZZZETC,ERASE LHA255.*};
ZZZZ010740	9100	*=SERVER_BAT{ZZZZZZETC,ERASE ?_WORK?.*};
ZZZZ010740	9200	=SKIP:
ZZZZ010740	9300	=IF_TABLE_NOT{?_MM?_MODEL_POST_TABLE}EXIT{};
ZZZZ010740	9400	=IF_TABLE{?_MM?_MODEL_ADDRESS_TABLE}JUMP{SKIP};
ZZZZ010740	9500	=DBO_CREATE_TABLE{?_MM?_MODEL_ADDRESS_TABLE,
ZZZZ010740	9600	=    MODEL_ADD_NAME11,*,MODEL_ADD_NAME12,*
ZZZZ010740	9700	=   ,MODEL_ADD_SENDER,*}{MODEL_ADD_PRINT,*
ZZZZ010740	9800	=   ,MODEL_ADD_SENDER_NO,*,MODEL_ADD_TITLE1,*
ZZZZ010740	9900	=   ,MODEL_ADD_NAME21,*,MODEL_ADD_NAME22,*
ZZZZ010740	10000	=   ,MODEL_ADD_TITLE2,*,MODEL_ADD_POST,*
ZZZZ010740	10100	=   ,MODEL_ADD_ADDRESS1,*,MODEL_ADD_ADDRESS2,*
ZZZZ010740	10200	=   ,MODEL_ADD_ADDRESS3,*,MODEL_ADD_ADDRESS4,*
ZZZZ010740	10300	=   ,MODEL_ADD_TELEPHONE,*,MODEL_ADD_MAIL,*};
ZZZZ010740	10400	=DBO_GRANT{?_MM?_MODEL_ADDRESS_TABLE};
ZZZZ010740	10500	*=SQL{INSERT INTO ?_MM?_MODEL_ADDRESS_TABLE
ZZZZ010740	10600	*=(MODEL_ADD_SENDER,?_Z_INSERT_NAME?)
ZZZZ010740	10700	*=VALUES('0',?_Z_INSERT_VALUE?)};
ZZZZ010740	10800	=SKIP:
ZZZZ010740	10900	=SET_TABLE{&X9,?_MP_ZZZZ?ZZ_ETC_ID_TABLE};
ZZZZ010740	11000	=SET{WC.SYSTEM_KEY1='ZZZZZY_MODEL_ADD'};
ZZZZ010740	11100	=SET{WN.SYSTEM_COMMENT='ZZZZZY_MODEL_ADD'};
ZZZZ010740	11200	=PROGRAM{2N,?&X9.TABLE?,?&X9.WORK_DATA?}{?&X9.WORK_KEY?}{};
ZZZZ010740	11300	=SET_TABLE{&X9,?_MP_ZZZZ?ZZ_ETC_TABLE};
ZZZZ010740	11400	=SET{WC.SYSTEM_KEY2='POST_URL',WN.SYSTEM_ETC=
ZZZZ010740	11500	=   'WWW.POST.JAPANPOST.JP/ZIPCODE/DL/KOGAKI/ZIP/'};
ZZZZ010740	11600	=PROGRAM{2N,?&X9.TABLE?,?&X9.WORK_DATA?}{?&X9.WORK_KEY?}{};
ZZZZ010740	11700	=SET{WC.SYSTEM_KEY2='POST_DIR',WN.SYSTEM_ETC='KEN_ALL'};
ZZZZ010740	11800	=PROGRAM{2N,?&X9.TABLE?,?&X9.WORK_DATA?}{?&X9.WORK_KEY?}{};
ZZZZ010740	11900	=SET{WC.SYSTEM_KEY2='POST_FILE',WN.SYSTEM_ETC='KEN_ALL.CSV'};
ZZZZ010740	12000	=PROGRAM{2N,?&X9.TABLE?,?&X9.WORK_DATA?}{?&X9.WORK_KEY?}{};
ZZZZ010740	12100	=SET{WC.SYSTEM_KEY2='FONT_URL',WN.SYSTEM_ETC=
ZZZZ010740	12200	=   'CUTE-FREEFONT.FLOP.JP/DL/'};
ZZZZ010740	12300	=PROGRAM{2N,?&X9.TABLE?,?&X9.WORK_DATA?}{?&X9.WORK_KEY?}{};
ZZZZ010740	12400	=SET{WC.SYSTEM_KEY2='FONT_DIR'
ZZZZ010740	12500	=   ,WN.SYSTEM_ETC='KOUZANMOUHITU'};
ZZZZ010740	12600	=PROGRAM{2N,?&X9.TABLE?,?&X9.WORK_DATA?}{?&X9.WORK_KEY?}{};
ZZZZ010740	12700	=SET{WC.SYSTEM_KEY2='FONT_FILE'
ZZZZ010740	12800	=   ,WN.SYSTEM_ETC='衡山毛筆フォント.TTF'};
ZZZZ010740	12900	=PROGRAM{2N,?&X9.TABLE?,?&X9.WORK_DATA?}{?&X9.WORK_KEY?}{};
ZZZZ010740	13000	*SET{WC.KEY1='ZZZZZZ_@',WC.SYSTEM_KEY2='ZZZZZZ_PROXY'};
ZZZZ010740	13100	*SET{WN.SYSTEM_ETC=PROXY};
ZZZZ010740	13200	*PROGRAM{?_MM?_ETC_ORG_TABLE}{WC.KEY1,WC.SYSTEM_KEY2}
ZZZZ010740	13300	*  {WN.SYSTEM_ETC}{2E};
ZZZZ010740	13400	*SET{_REAL_TEST='TEST'};
ZZZZ010740	13500	*PROGRAM{?_MM?_ETC_ORG_TABLE}{WC.KEY1,WC.SYSTEM_KEY2}
ZZZZ010740	13600	*   {WN.SYSTEM_ETC}{2E};
ZZZZ010740	13700	*SET{_REAL_TEST='REAL'};
ZZZZ010740	13800	*IF_NAME_NOT{@ZZZZZZ_PROXY}ERROR{@ZZZZZZ_PROXY IS NOT FOUND};
ZZZZ010740	13900	*SERVER_BAT{ZZZZZZGETURL
ZZZZ010740	14000	*+=          ,LHA255.EXE ?WN.URL? ?_WORK?.TXT ?PROXY?};
ZZZZ010740	14100	*-=          {?WN.FL? ?WN.URL??WN.FL? ?_WORK?.TXT ?PROXY?};
ZZZZ010740	14200	*NAME=ERROR_CHECK
ZZZZ010740	14300	*SERVER_GET{?_WORK?.TXT};
ZZZZ010740	14400	*SET{W.ERR='ERROR FILE NOT FOUND'};
ZZZZ010740	14500	*READ_OPEN{1,?_TMP??_WORK?.TXT,/}ERROR{};
ZZZZ010740	14600	*NEXT:READ_NEXT{1,W.ERR};
ZZZZ010740	14700	*READ_CLOSE{1};
ZZZZ010740	14800	*IF{W.ERR[1;3]!='!!!'}ERROR{?W.ERR?};
ZZZZ010740	14900	*NAME=
ZZZZ010740	15000	*W+=SET{WN.TMP=_P+'I'+_P+'TMP'+_P+_SYSTEM+'.I'+_P};
ZZZZ010740	15100	*W+=SET{WN.ECHO=WN.TMP+_REAL_TEST+_P+'LHA255'};
ZZZZ010740	15200	*W+=COMMAND{ECHO Y>?WN.ECHO?.TXT&
ZZZZ010740	15300	*W+=       ECHO Y>>?WN.ECHO?.TXT&
ZZZZ010740	15400	*W+=       ECHO Y>>?WN.ECHO?.TXT&
ZZZZ010740	15500	*W+=       ECHO Y>>?WN.ECHO?.TXT&
ZZZZ010740	15600	*W+=       ECHO Y>>?WN.ECHO?.TXT&
ZZZZ010740	15700	*W+=       ECHO Y>>?WN.ECHO?.TXT};
ZZZZ010740	15800	*W+=EXE_WAIT{?WN.ECHO?.EXE,?WN.ECHO?.TXT};
ZZZZ010740	15900	*W-=SET{_LOWER='/HOME',WN.HOME=_LOWER};
ZZZZ010740	16000	*W-=SET{_LOWER='TAR ZXFV'};
ZZZZ010740	16100	*W-=COMMAND{
ZZZZ010740	16200	*W-=  ?_LOWER? ?WN.HOME?/I/TMP/?_SYSTEM?.I/REAL/?WN.FL?};
ZZZZ010740	16300	*TEST+=JUMP{SKIP};
ZZZZ010740	16400	*W+=SET{WN.PATH=_P+'I'+_P+'FILE'+_P+_SYSTEM+'.I'+_P};
ZZZZ010740	16500	*W+=COPY_FILE{?WN.PATH?BIN?_P?LHA.EXE,LHA.EXE};
ZZZZ010740	16600	*W-=COPY_FILE{?WN.HOME?/I/FILE/?_SYSTEM?.I/BIN/LHA.EXE,
ZZZZ010740	16700	*W-= LHA.EXE}
ZZZZ010740	16800	*W+=COMMAND{ECHO ?WN.PATH?BIN?_P?LHA.EXE
ZZZZ010740	16900	*W+= %6 %7>?WN.PATH?BAT?_P?ZZZZZZLHA.BAT};
ZZZZ010740	17000	*W-=COMMAND{ECHO ?WN.HOME?/I/FILE/?_SYSTEM?.I/BIN/LHA.EXE
ZZZZ010740	17100	*W-= %6 %7>?WN.HOME?/I/FILE/?_SYSTEM?.I/BAT/ZZZZZZLHA};
ZZZZ010740	17200	*COMMENT_BEGIN
ZZZZ010740	17300	*SET{_LOWER=
ZZZZ010740	17400	*'HTTPS://WWW.POST.JAPANPOST.JP/ZIPCODE/DL/'
ZZZZ010740	17500	*+'KOGAKI/ZIP/KEN_ALL.ZIP'};
ZZZZ010740	17600	*IF_ERROR_URL{}{?_LOWER?}ERROR{};
ZZZZ010740	17700	*=SERVER_BAT{ZZZZZZGETURL,KEN_ALL.LZH ?_LOWER? ?_WORK?.TXT};
ZZZZ010740	17800	*COPY=ERROR_CHECK
ZZZZ010740	17900	*=SERVER_BAT{ZZZZZZLHA,E KEN_ALL.LZH};
ZZZZ010740	18000	*=SERVER_GET{KEN_ALL.CSV};
ZZZZ010740	18100	*IF_ERROR_ZIP{KEN_ALL.ZIP}ERROR{};
ZZZZ010740	18200	*READ_OPEN{1,?_TMP?KEN_ALL?_P?KEN_ALL.CSV,/};
ZZZZ010740	18300	*=SET{_TRACE=0};
ZZZZ010740	18400	*READ_NEXT:
ZZZZ010740	18500	*READ_NEXT{1,,,,,,,WN.ADDRESS1,WN.ADDRESS2,WN.ADDRESS3}
ZZZZ010740	18600	*   JUMP{READ_END};
ZZZZ010740	18700	*IF{WN.ADDRESS3<>'以下に掲載がない場合'}JUMP{SKIP};
ZZZZ010740	18800	*SET{WN.ADDRESS4=WN.ADDRESS3,WN.ADDRESS3=};
ZZZZ010740	18900	*JUMP{OK};
ZZZZ010740	19000	*SKIP:SET{WN.ADDRESS4=};
ZZZZ010740	19100	*SQL_SET{W0P}{SELECT
ZZZZ010740	19200	*M+=CHARINDEX('（','?WN.ADDRESS3?')
ZZZZ010740	19300	*I+=POSSTR('?WN.ADDRESS3?','（')
ZZZZ010740	19400	*O+=INSTR('?WN.ADDRESS3?','（',1)
ZZZZ010740	19500	*P+=POSITION('（' IN '?WN.ADDRESS3?')
ZZZZ010740	19600	*?_FROM_DUAL?};
ZZZZ010740	19700	*IF{W0P=0}JUMP{OK};
ZZZZ010740	19800	*SQL_SET{WN.ADDRESS3,WN.ADDRESS4}{SELECT
ZZZZ010740	19900	* ?_SUBSTR?(?_N?'?WN.ADDRESS3?',1,?W0P?-1)
ZZZZ010740	20000	*,?_SUBSTR?(?_N?'?WN.ADDRESS3?',?W0P?,
ZZZZ010740	20100	* DATALENGTH(?_N?'?WN.ADDRESS3?')) ?_FROM_DUAL?};
ZZZZ010740	20200	*OK:
ZZZZ010740	20300	*REPEAT=3
ZZZZ010740	20400	*SET{W0COUNT=WN.ADDRESS##@FORM_LENGTH};
ZZZZ010740	20500	*IF{W0COUNT>ADDRESS##_COUNT}SET{ADDRESS##_COUNT=W0COUNT};
ZZZZ010740	20600	*REPEAT=
ZZZZ010740	20700	*BACK{READ_NEXT};
ZZZZ010740	20800	*READ_END:READ_CLOSE{1};
ZZZZ010740	20900	*=SET{?WN.報酬月額?=101000,?WN.区分?=,?WN.標準月額?=104000};
ZZZZ010740	21000	*=END:
ZZZZ010740	21100	*=SET{_TRACE=0};
ZZZZ010740	21200	*REPEAT=3
ZZZZ010740	21300	*=SET{WC.SYSTEM_DATA_NAME='MODEL_ADD_ADDRESS##'};
ZZZZ010740	21400	*=SET{W0.SYSTEM_DEFAULT_LENGTH1=ADDRESS##_COUNT};
ZZZZ010740	21500	*=PROGRAM{?&X2.TABLE?}
ZZZZ010740	21600	*=  {WC.SYSTEM_DATA_NAME,WC.SYSTEM_LANG=_LNG}
ZZZZ010740	21700	*=  {W0.SYSTEM_DEFAULT_LENGTH1}{3};
ZZZZ010740	21800	*REPEAT=
ZZZZ010740	21900	*COMMENT_END
ZZZZ010740	22000	*****( 給与 )*************
ZZZZ010740	22100	=ALL:IF{ALL='NO'}JUMP{TOUSI};
ZZZZ010740	22200	=SET{_TRACE=1};
ZZZZ010740	22300	=IF_TABLE{?_MM?_MODEL_ALL1_USE_TABLE}JUMP{SKIP};
ZZZZ010740	22400	=DBO_CREATE_TABLE{?_MM?_MODEL_ALL1_USE_TABLE,
ZZZZ010740	22500	=  MODEL_ALL_YM,*,MODEL_ALL_KIND,*}
ZZZZ010740	22600	= {MODEL_ALL_NUMERATOR,*,MODEL_ALL_DENOMINATOR,*};
ZZZZ010740	22700	=DBO_GRANT{?_MM?_MODEL_ALL1_USE_TABLE};
ZZZZ010740	22800	=SKIP:IF_TABLE{?_MM?_MODEL_ALL1_ORG_TABLE}JUMP{SKIP};
ZZZZ010740	22900	=DBO_CREATE_TABLE{?_MM?_MODEL_ALL1_ORG_TABLE,
ZZZZ010740	23000	=  MODEL_ALL_KIND,*,MODEL_ALL_YM,*}
ZZZZ010740	23100	= {MODEL_ALL_NUMERATOR,*,MODEL_ALL_DENOMINATOR,*};
ZZZZ010740	23200	=DBO_GRANT{?_MM?_MODEL_ALL1_ORG_TABLE};
ZZZZ010740	23300	=SKIP:SET_TABLE{&X9,?_MM?_MODEL_ALL1_ORG_TABLE};
ZZZZ010740	23400	=SET{WN.内容='WN.MODEL_ALL_KIND'};
ZZZZ010740	23500	=SET{WN.年月='WC.MODEL_ALL_YM'};
ZZZZ010740	23600	=SET{WN.分子='W0.MODEL_ALL_NUMERATOR'};
ZZZZ010740	23700	=SET{WN.分母='W0.MODEL_ALL_DENOMINATOR'};
ZZZZ010740	23800	=SET{WN.TODAY=_TODAY};
ZZZZ010740	23900	=SET{?WN.年月?=200001,?WN.分母?=1};
ZZZZ010740	24000	=SET{?WN.内容?='通勤内容バス電車等',?WN.分子?=100000};
ZZZZ010740	24100	NAME=PROG
ZZZZ010740	24200	=PROGRAM{2N,?&X9.TABLE?,?WN.分子?,?WN.分母?}
ZZZZ010740	24300	=  {?WN.内容?,?WN.年月?}{};
ZZZZ010740	24400	NAME=
ZZZZ010740	24500	=SET{?WN.内容?='通勤内容３５Ｋｍ以上'  ,?WN.分子?=20900};
ZZZZ010740	24600	COPY=PROG
ZZZZ010740	24700	=SET{?WN.内容?='通勤内容２５Ｋｍ以上'  ,?WN.分子?=16100};
ZZZZ010740	24800	COPY=PROG
ZZZZ010740	24900	=SET{?WN.内容?='通勤内容１５Ｋｍ以上'  ,?WN.分子?=11300};
ZZZZ010740	25000	COPY=PROG
ZZZZ010740	25100	=SET{?WN.内容?='通勤内容１０Ｋｍ以上'  ,?WN.分子?=6500};
ZZZZ010740	25200	COPY=PROG
ZZZZ010740	25300	=SET{?WN.内容?='通勤内容０２Ｋｍ以上'  ,?WN.分子?=4100};
ZZZZ010740	25400	COPY=PROG
ZZZZ010740	25500	=SET{?WN.内容?='通勤内容　２Ｋｍ未満'  ,?WN.分子?=0};
ZZZZ010740	25600	COPY=PROG
ZZZZ010740	25700	=SET{?WN.内容?='労働日数',?WN.分子?=255};
ZZZZ010740	25800	COPY=PROG
ZZZZ010740	25900	=SET{?WN.分母?=100};
ZZZZ010740	26000	=SET{?WN.内容?='労働時間',?WN.分子?=800};
ZZZZ010740	26100	COPY=PROG
ZZZZ010740	26200	=SET{?WN.内容?='割増時間外',?WN.分子?=25};
ZZZZ010740	26300	COPY=PROG
ZZZZ010740	26400	=SET{?WN.内容?='割増深夜',?WN.分子?=25};
ZZZZ010740	26500	COPY=PROG
ZZZZ010740	26600	=SET{?WN.内容?='割増休日',?WN.分子?=35};
ZZZZ010740	26700	COPY=PROG
ZZZZ010740	26800	=SET{?WN.分母?=10000,?WN.年月?=201703};
ZZZZ010740	26900	=SET{?WN.内容?='健康保険北海道',?WN.分子?=1022};
ZZZZ010740	27000	COPY=PROG
ZZZZ010740	27100	=SET{?WN.内容?='健康保険青森県',?WN.分子?=996};
ZZZZ010740	27200	COPY=PROG
ZZZZ010740	27300	=SET{?WN.内容?='健康保険岩手県',?WN.分子?=982};
ZZZZ010740	27400	COPY=PROG
ZZZZ010740	27500	=SET{?WN.内容?='健康保険宮城県',?WN.分子?=997};
ZZZZ010740	27600	COPY=PROG
ZZZZ010740	27700	=SET{?WN.内容?='健康保険秋田県',?WN.分子?=1016};
ZZZZ010740	27800	COPY=PROG
ZZZZ010740	27900	=SET{?WN.内容?='健康保険山形県',?WN.分子?=999};
ZZZZ010740	28000	COPY=PROG
ZZZZ010740	28100	=SET{?WN.内容?='健康保険福島県',?WN.分子?=985};
ZZZZ010740	28200	COPY=PROG
ZZZZ010740	28300	=SET{?WN.内容?='健康保険茨城県',?WN.分子?=989};
ZZZZ010740	28400	COPY=PROG
ZZZZ010740	28500	=SET{?WN.内容?='健康保険栃木県',?WN.分子?=994};
ZZZZ010740	28600	COPY=PROG
ZZZZ010740	28700	=SET{?WN.内容?='健康保険群馬県',?WN.分子?=993};
ZZZZ010740	28800	COPY=PROG
ZZZZ010740	28900	=SET{?WN.内容?='健康保険埼玉県',?WN.分子?=987};
ZZZZ010740	29000	COPY=PROG
ZZZZ010740	29100	=SET{?WN.内容?='健康保険千葉県',?WN.分子?=989};
ZZZZ010740	29200	COPY=PROG
ZZZZ010740	29300	=SET{?WN.内容?='健康保険東京都',?WN.分子?=991};
ZZZZ010740	29400	COPY=PROG
ZZZZ010740	29500	=SET{?WN.内容?='健康保険神奈川県',?WN.分子?=993};
ZZZZ010740	29600	COPY=PROG
ZZZZ010740	29700	=SET{?WN.内容?='健康保険新潟県',?WN.分子?=969};
ZZZZ010740	29800	COPY=PROG
ZZZZ010740	29900	=SET{?WN.内容?='健康保険富山県',?WN.分子?=980};
ZZZZ010740	30000	COPY=PROG
ZZZZ010740	30100	=SET{?WN.内容?='健康保険石川県',?WN.分子?=1002};
ZZZZ010740	30200	COPY=PROG
ZZZZ010740	30300	=SET{?WN.内容?='健康保険福井県',?WN.分子?=999};
ZZZZ010740	30400	COPY=PROG
ZZZZ010740	30500	=SET{?WN.内容?='健康保険山梨県',?WN.分子?=1004};
ZZZZ010740	30600	COPY=PROG
ZZZZ010740	30700	=SET{?WN.内容?='健康保険長野県',?WN.分子?=976};
ZZZZ010740	30800	COPY=PROG
ZZZZ010740	30900	=SET{?WN.内容?='健康保険岐阜県',?WN.分子?=995};
ZZZZ010740	31000	COPY=PROG
ZZZZ010740	31100	=SET{?WN.内容?='健康保険静岡県',?WN.分子?=981};
ZZZZ010740	31200	COPY=PROG
ZZZZ010740	31300	=SET{?WN.内容?='健康保険愛知県',?WN.分子?=992};
ZZZZ010740	31400	COPY=PROG
ZZZZ010740	31500	=SET{?WN.内容?='健康保険三重県',?WN.分子?=992};
ZZZZ010740	31600	COPY=PROG
ZZZZ010740	31700	=SET{?WN.内容?='健康保険滋賀県',?WN.分子?=992};
ZZZZ010740	31800	COPY=PROG
ZZZZ010740	31900	=SET{?WN.内容?='健康保険京都府',?WN.分子?=999};
ZZZZ010740	32000	COPY=PROG
ZZZZ010740	32100	=SET{?WN.内容?='健康保険大阪府',?WN.分子?=1013};
ZZZZ010740	32200	COPY=PROG
ZZZZ010740	32300	=SET{?WN.内容?='健康保険兵庫県',?WN.分子?=1006};
ZZZZ010740	32400	COPY=PROG
ZZZZ010740	32500	=SET{?WN.内容?='健康保険奈良県',?WN.分子?=1000};
ZZZZ010740	32600	COPY=PROG
ZZZZ010740	32700	=SET{?WN.内容?='健康保険和歌山県',?WN.分子?=1006};
ZZZZ010740	32800	COPY=PROG
ZZZZ010740	32900	=SET{?WN.内容?='健康保険鳥取県',?WN.分子?=999};
ZZZZ010740	33000	COPY=PROG
ZZZZ010740	33100	=SET{?WN.内容?='健康保険島根県',?WN.分子?=1010};
ZZZZ010740	33200	COPY=PROG
ZZZZ010740	33300	=SET{?WN.内容?='健康保険岡山県',?WN.分子?=1015};
ZZZZ010740	33400	COPY=PROG
ZZZZ010740	33500	=SET{?WN.内容?='健康保険広島県',?WN.分子?=1004};
ZZZZ010740	33600	COPY=PROG
ZZZZ010740	33700	=SET{?WN.内容?='健康保険山口県',?WN.分子?=1011};
ZZZZ010740	33800	COPY=PROG
ZZZZ010740	33900	=SET{?WN.内容?='健康保険徳島県',?WN.分子?=1018};
ZZZZ010740	34000	COPY=PROG
ZZZZ010740	34100	=SET{?WN.内容?='健康保険香川県',?WN.分子?=1024};
ZZZZ010740	34200	COPY=PROG
ZZZZ010740	34300	=SET{?WN.内容?='健康保険愛媛県',?WN.分子?=1011};
ZZZZ010740	34400	COPY=PROG
ZZZZ010740	34500	=SET{?WN.内容?='健康保険高知県',?WN.分子?=1018};
ZZZZ010740	34600	COPY=PROG
ZZZZ010740	34700	=SET{?WN.内容?='健康保険福岡県',?WN.分子?=1019};
ZZZZ010740	34800	COPY=PROG
ZZZZ010740	34900	=SET{?WN.内容?='健康保険佐賀県',?WN.分子?=1047};
ZZZZ010740	35000	COPY=PROG
ZZZZ010740	35100	=SET{?WN.内容?='健康保険長崎県',?WN.分子?=1022};
ZZZZ010740	35200	COPY=PROG
ZZZZ010740	35300	=SET{?WN.内容?='健康保険熊本県',?WN.分子?=1014};
ZZZZ010740	35400	COPY=PROG
ZZZZ010740	35500	=SET{?WN.内容?='健康保険大分県',?WN.分子?=1017};
ZZZZ010740	35600	COPY=PROG
ZZZZ010740	35700	=SET{?WN.内容?='健康保険宮崎県',?WN.分子?=997};
ZZZZ010740	35800	COPY=PROG
ZZZZ010740	35900	=SET{?WN.内容?='健康保険鹿児島県',?WN.分子?=1013};
ZZZZ010740	36000	COPY=PROG
ZZZZ010740	36100	=SET{?WN.内容?='健康保険沖縄県',?WN.分子?=995};
ZZZZ010740	36200	COPY=PROG
ZZZZ010740	36300	=SET{?WN.年月?=201703,?WN.内容?='介護保険',?WN.分子?=165};
ZZZZ010740	36400	COPY=PROG
ZZZZ010740	36500	=SET{?WN.年月?=201709};
ZZZZ010740	36600	=SET{?WN.内容?='厚生年金元'
ZZZZ010740	36700	=   ,?WN.分子?=183,?WN.分母?=1000};
ZZZZ010740	36800	COPY=PROG
ZZZZ010740	36900	=SET{?WN.内容?='厚生年金免除'
ZZZZ010740	37000	=   ,?WN.分子?=2400,?WN.分母?=100000};
ZZZZ010740	37100	COPY=PROG
ZZZZ010740	37200	=SET{?WN.年月?=201004,?WN.分母?=10000};
ZZZZ010740	37300	=SET{?WN.内容?='雇用保険一般',?WN.分子?=155};
ZZZZ010740	37400	COPY=PROG
ZZZZ010740	37500	=SET{?WN.内容?='雇用保険農林水産',?WN.分子?=175};
ZZZZ010740	37600	COPY=PROG
ZZZZ010740	37700	=SET{?WN.内容?='雇用保険建設',?WN.分子?=185};
ZZZZ010740	37800	COPY=PROG
ZZZZ010740	37900	=SET{?WN.内容?='雇用保険個人一般',?WN.分子?=60};
ZZZZ010740	38000	COPY=PROG
ZZZZ010740	38100	=SET{?WN.内容?='雇用保険個人農林水産',?WN.分子?=70};
ZZZZ010740	38200	COPY=PROG
ZZZZ010740	38300	=SET{?WN.内容?='雇用保険個人建設',?WN.分子?=70};
ZZZZ010740	38400	COPY=PROG
ZZZZ010740	38500	***********************************************************
ZZZZ010740	38600	=IF_TABLE{?_MM?_MODEL_ALL2_USE_TABLE}JUMP{SKIP};
ZZZZ010740	38700	=DBO_CREATE_TABLE{?_MM?_MODEL_ALL2_USE_TABLE,
ZZZZ010740	38800	=   MODEL_ALL_YM,*,MODEL_ALL_PAY_M,*,MODEL_ALL_DIVISION,*}
ZZZZ010740	38900	=  {MODEL_ALL_STANDARD_M,*,MODEL_ALL_TAX_RATE,*};
ZZZZ010740	39000	=DBO_GRANT{?_MM?_MODEL_ALL2_USE_TABLE};
ZZZZ010740	39100	=SKIP:IF_TABLE{?_MM?_MODEL_ALL2_ORG_TABLE}JUMP{SKIP};
ZZZZ010740	39200	=DBO_CREATE_TABLE{?_MM?_MODEL_ALL2_ORG_TABLE,
ZZZZ010740	39300	=   MODEL_ALL_PAY_M,*,MODEL_ALL_DIVISION,*,MODEL_ALL_YM,*}
ZZZZ010740	39400	=  {MODEL_ALL_STANDARD_M,*,MODEL_ALL_TAX_RATE,*};
ZZZZ010740	39500	=DBO_GRANT{?_MM?_MODEL_ALL2_ORG_TABLE};
ZZZZ010740	39600	=SKIP:SET_TABLE{&X9,?_MM?_MODEL_ALL2_ORG_TABLE};
ZZZZ010740	39700	=SET{WN.報酬月額='W0.MODEL_ALL_PAY_M'};
ZZZZ010740	39800	=SET{WN.標準月額='W0.MODEL_ALL_STANDARD_M'};
ZZZZ010740	39900	=SET{WN.所得税率='W0.MODEL_ALL_TAX_RATE'};
ZZZZ010740	40000	=SET{WN.区分='WC.MODEL_ALL_DIVISION'};
ZZZZ010740	40100	=SET{?WN.年月?=201709,?WN.所得税率?=0};
ZZZZ010740	40200	=SET{?WN.報酬月額?=0,?WN.区分?='健',?WN.標準月額?=58000};
ZZZZ010740	40300	NAME=PROG2
ZZZZ010740	40400	=PROGRAM{2N,?&X9.TABLE?,?WN.標準月額?,?WN.所得税率?}
ZZZZ010740	40500	=  {?WN.報酬月額?,?WN.区分?}{};
ZZZZ010740	40600	NAME=
ZZZZ010740	40700	=SET{?WN.報酬月額?=0,?WN.区分?='厚',?WN.標準月額?=88000};
ZZZZ010740	40800	COPY=PROG2
ZZZZ010740	40900	=SET{?WN.報酬月額?=63000,?WN.区分?='健',?WN.標準月額?=68000};
ZZZZ010740	41000	COPY=PROG2
ZZZZ010740	41100	=SET{?WN.報酬月額?=73000,?WN.区分?='健',?WN.標準月額?=78000};
ZZZZ010740	41200	COPY=PROG2
ZZZZ010740	41300	=SET{?WN.報酬月額?=83000,?WN.区分?='健',?WN.標準月額?=88000};
ZZZZ010740	41400	COPY=PROG2
ZZZZ010740	41500	=SET{?WN.報酬月額?=93000,?WN.区分?=,?WN.標準月額?=98000};
ZZZZ010740	41600	COPY=PROG2
ZZZZ010740	41700	=SET{?WN.報酬月額?=101000,?WN.区分?=,?WN.標準月額?=104000};
ZZZZ010740	41800	COPY=PROG2
ZZZZ010740	41900	=SET{?WN.報酬月額?=107000,?WN.区分?=,?WN.標準月額?=110000};
ZZZZ010740	42000	COPY=PROG2
ZZZZ010740	42100	=SET{?WN.報酬月額?=114000,?WN.区分?=,?WN.標準月額?=118000};
ZZZZ010740	42200	COPY=PROG2
ZZZZ010740	42300	=SET{?WN.報酬月額?=122000,?WN.区分?=,?WN.標準月額?=126000};
ZZZZ010740	42400	COPY=PROG2
ZZZZ010740	42500	=SET{?WN.報酬月額?=130000,?WN.区分?=,?WN.標準月額?=134000};
ZZZZ010740	42600	COPY=PROG2
ZZZZ010740	42700	=SET{?WN.報酬月額?=138000,?WN.区分?=,?WN.標準月額?=142000};
ZZZZ010740	42800	COPY=PROG2
ZZZZ010740	42900	=SET{?WN.報酬月額?=138000,?WN.区分?=,?WN.標準月額?=142000};
ZZZZ010740	43000	COPY=PROG2
ZZZZ010740	43100	=SET{?WN.報酬月額?=146000,?WN.区分?=,?WN.標準月額?=150000};
ZZZZ010740	43200	COPY=PROG2
ZZZZ010740	43300	=SET{?WN.報酬月額?=155000,?WN.区分?=,?WN.標準月額?=160000};
ZZZZ010740	43400	COPY=PROG2
ZZZZ010740	43500	=SET{?WN.報酬月額?=165000,?WN.区分?=,?WN.標準月額?=170000};
ZZZZ010740	43600	COPY=PROG2
ZZZZ010740	43700	=SET{?WN.報酬月額?=175000,?WN.区分?=,?WN.標準月額?=180000};
ZZZZ010740	43800	COPY=PROG2
ZZZZ010740	43900	=SET{?WN.報酬月額?=185000,?WN.区分?=,?WN.標準月額?=190000};
ZZZZ010740	44000	COPY=PROG2
ZZZZ010740	44100	=SET{?WN.報酬月額?=195000,?WN.区分?=,?WN.標準月額?=200000};
ZZZZ010740	44200	COPY=PROG2
ZZZZ010740	44300	=SET{?WN.報酬月額?=210000,?WN.区分?=,?WN.標準月額?=220000};
ZZZZ010740	44400	COPY=PROG2
ZZZZ010740	44500	=SET{?WN.報酬月額?=230000,?WN.区分?=,?WN.標準月額?=240000};
ZZZZ010740	44600	COPY=PROG2
ZZZZ010740	44700	=SET{?WN.報酬月額?=250000,?WN.区分?=,?WN.標準月額?=260000};
ZZZZ010740	44800	COPY=PROG2
ZZZZ010740	44900	=SET{?WN.報酬月額?=270000,?WN.区分?=,?WN.標準月額?=280000};
ZZZZ010740	45000	COPY=PROG2
ZZZZ010740	45100	=SET{?WN.報酬月額?=290000,?WN.区分?=,?WN.標準月額?=300000};
ZZZZ010740	45200	COPY=PROG2
ZZZZ010740	45300	=SET{?WN.報酬月額?=310000,?WN.区分?=,?WN.標準月額?=320000};
ZZZZ010740	45400	COPY=PROG2
ZZZZ010740	45500	=SET{?WN.報酬月額?=330000,?WN.区分?=,?WN.標準月額?=340000};
ZZZZ010740	45600	COPY=PROG2
ZZZZ010740	45700	=SET{?WN.報酬月額?=350000,?WN.区分?=,?WN.標準月額?=360000};
ZZZZ010740	45800	COPY=PROG2
ZZZZ010740	45900	=SET{?WN.報酬月額?=370000,?WN.区分?=,?WN.標準月額?=380000};
ZZZZ010740	46000	COPY=PROG2
ZZZZ010740	46100	=SET{?WN.報酬月額?=395000,?WN.区分?=,?WN.標準月額?=410000};
ZZZZ010740	46200	COPY=PROG2
ZZZZ010740	46300	=SET{?WN.報酬月額?=425000,?WN.区分?=,?WN.標準月額?=440000};
ZZZZ010740	46400	COPY=PROG2
ZZZZ010740	46500	=SET{?WN.報酬月額?=455000,?WN.区分?=,?WN.標準月額?=470000};
ZZZZ010740	46600	COPY=PROG2
ZZZZ010740	46700	=SET{?WN.報酬月額?=485000,?WN.区分?=,?WN.標準月額?=500000};
ZZZZ010740	46800	COPY=PROG2
ZZZZ010740	46900	=SET{?WN.報酬月額?=515000,?WN.区分?=,?WN.標準月額?=530000};
ZZZZ010740	47000	COPY=PROG2
ZZZZ010740	47100	=SET{?WN.報酬月額?=545000,?WN.区分?=,?WN.標準月額?=560000};
ZZZZ010740	47200	COPY=PROG2
ZZZZ010740	47300	=SET{?WN.報酬月額?=575000,?WN.区分?=,?WN.標準月額?=590000};
ZZZZ010740	47400	COPY=PROG2
ZZZZ010740	47500	=SET{?WN.報酬月額?=605000,?WN.区分?=,?WN.標準月額?=620000};
ZZZZ010740	47600	COPY=PROG2
ZZZZ010740	47700	=SET{?WN.報酬月額?=635000,?WN.区分?='健'
ZZZZ010740	47800	=   ,?WN.標準月額?=650000};
ZZZZ010740	47900	COPY=PROG2
ZZZZ010740	48000	=SET{?WN.報酬月額?=665000,?WN.区分?='健'
ZZZZ010740	48100	=   ,?WN.標準月額?=680000};
ZZZZ010740	48200	COPY=PROG2
ZZZZ010740	48300	=SET{?WN.報酬月額?=695000,?WN.区分?='健'
ZZZZ010740	48400	=   ,?WN.標準月額?=710000};
ZZZZ010740	48500	COPY=PROG2
ZZZZ010740	48600	=SET{?WN.報酬月額?=730000,?WN.区分?='健'
ZZZZ010740	48700	=   ,?WN.標準月額?=750000};
ZZZZ010740	48800	COPY=PROG2
ZZZZ010740	48900	=SET{?WN.報酬月額?=770000,?WN.区分?='健'
ZZZZ010740	49000	=   ,?WN.標準月額?=790000};
ZZZZ010740	49100	COPY=PROG2
ZZZZ010740	49200	=SET{?WN.報酬月額?=810000,?WN.区分?='健'
ZZZZ010740	49300	=   ,?WN.標準月額?=830000};
ZZZZ010740	49400	COPY=PROG2
ZZZZ010740	49500	=SET{?WN.報酬月額?=855000,?WN.区分?='健'
ZZZZ010740	49600	=   ,?WN.標準月額?=880000};
ZZZZ010740	49700	COPY=PROG2
ZZZZ010740	49800	=SET{?WN.報酬月額?=905000,?WN.区分?='健'
ZZZZ010740	49900	=   ,?WN.標準月額?=930000};
ZZZZ010740	50000	COPY=PROG2
ZZZZ010740	50100	=SET{?WN.報酬月額?=955000,?WN.区分?='健'
ZZZZ010740	50200	=   ,?WN.標準月額?=980000};
ZZZZ010740	50300	COPY=PROG2
ZZZZ010740	50400	=SET{?WN.報酬月額?=1005000,?WN.区分?='健'
ZZZZ010740	50500	=   ,?WN.標準月額?=1030000};
ZZZZ010740	50600	COPY=PROG2
ZZZZ010740	50700	=SET{?WN.報酬月額?=1055000,?WN.区分?='健'
ZZZZ010740	50800	=,?WN.標準月額?=1090000};
ZZZZ010740	50900	COPY=PROG2
ZZZZ010740	51000	=SET{?WN.報酬月額?=1115000,?WN.区分?='健'
ZZZZ010740	51100	=   ,?WN.標準月額?=1150000};
ZZZZ010740	51200	COPY=PROG2
ZZZZ010740	51300	=SET{?WN.報酬月額?=1175000,?WN.区分?='健'
ZZZZ010740	51400	=   ,?WN.標準月額?=1210000};
ZZZZ010740	51500	COPY=PROG2
ZZZZ010740	51600	=SET{?WN.年月?=201004,?WN.区分?='所'};
ZZZZ010740	51700	=SET{?WN.報酬月額?=0,?WN.所得税率?=5,?WN.標準月額?=0};
ZZZZ010740	51800	COPY=PROG2
ZZZZ010740	51900	=SET{?WN.報酬月額?=1950000,?WN.標準月額?=97500};
ZZZZ010740	52000	=SET{?WN.所得税率?=10};
ZZZZ010740	52100	COPY=PROG2
ZZZZ010740	52200	=SET{?WN.報酬月額?=3300000,?WN.標準月額?=427500};
ZZZZ010740	52300	=SET{?WN.所得税率?=20};
ZZZZ010740	52400	COPY=PROG2
ZZZZ010740	52500	=SET{?WN.報酬月額?=6950000,?WN.標準月額?=636000};
ZZZZ010740	52600	=SET{?WN.所得税率?=23};
ZZZZ010740	52700	COPY=PROG2
ZZZZ010740	52800	=SET{?WN.報酬月額?=9000000,?WN.標準月額?=1536000};
ZZZZ010740	52900	=SET{?WN.所得税率?=33};
ZZZZ010740	53000	COPY=PROG2
ZZZZ010740	53100	=SET{?WN.報酬月額?=18000000,?WN.標準月額?=2796000};
ZZZZ010740	53200	=SET{?WN.所得税率?=40};
ZZZZ010740	53300	COPY=PROG2
ZZZZ010740	53400	=SET{?WN.年月?=201004,?WN.区分?='控'};
ZZZZ010740	53500	=SET{?WN.報酬月額?=0,?WN.標準月額?=650000};
ZZZZ010740	53600	=SET{?WN.所得税率?=40};
ZZZZ010740	53700	COPY=PROG2
ZZZZ010740	53800	=SET{?WN.報酬月額?=1800000,?WN.標準月額?=180000};
ZZZZ010740	53900	=SET{?WN.所得税率?=30};
ZZZZ010740	54000	COPY=PROG2
ZZZZ010740	54100	=SET{?WN.報酬月額?=3600000,?WN.標準月額?=540000};
ZZZZ010740	54200	=SET{?WN.所得税率?=20};
ZZZZ010740	54300	COPY=PROG2
ZZZZ010740	54400	=SET{?WN.報酬月額?=6600000,?WN.標準月額?=1200000};
ZZZZ010740	54500	=SET{?WN.所得税率?=10};
ZZZZ010740	54600	COPY=PROG2
ZZZZ010740	54700	=SET{?WN.報酬月額?=10000000,?WN.標準月額?=1700000};
ZZZZ010740	54800	=SET{?WN.所得税率?=5};
ZZZZ010740	54900	***********************************************************
ZZZZ010740	55000	*DATA={O}ADDRESS1_COUNT{5,,+}
ZZZZ010740	55100	*DATA={O}ADDRESS2_COUNT{5,,+}
ZZZZ010740	55200	*DATA={O}ADDRESS3_COUNT{5,,+}
ZZZZ010740	55300	*DATA={O}ADDRESS4_COUNT{5,,+}
ZZZZ010740	55400	=TOUSI:IF{TOUSI='NO'}JUMP{END};
ZZZZ010740	55410	***( TOUSI )********************
ZZZZ010740	55420	=IF_TABLE{?_MM?_MODEL_TOUSI_TABLE}JUMP{SKIP};
ZZZZ010740	55430	=DBO_CREATE_TABLE{?_MM?_MODEL_TOUSI_TABLE,
ZZZZ010740	55440	=  MODEL_TOUSI_DATE,*,MODEL_TOUSI_KIND,*}
ZZZZ010740	55450	= {MODEL_TOUSI_DATE_END,*,MODEL_TOUSI_EN,*};
ZZZZ010740	55460	=DBO_GRANT{?_MM?_MODEL_TOUSI_TABLE};
ZZZZ010740	55462	=SKIP:
ZZZZ010740	55500	=END:
ZZZZ010740	55600	FORM=[ENTER]で終了します。 @
ZZZZ010740	55700	DATA=END{1}
ZZZZ010740	55800	=EXIT{_END};
ZZZZ010801	100	PROGRAM=NOT
ZZZZ010801	200	COLOR
ZZZZ010801	300	=SET{A1='データの定義と操作はリレーショナルデータベース(RDB)'
ZZZZ010801	400	=+'に任せ簡単にしています。'};
ZZZZ010801	500	=SET{A2='RDBはデータを一番簡単な構造の2次元の表で持ち'
ZZZZ010801	600	=   +',これをテーブルと言います。'};
ZZZZ010801	700	=SET{A3='RDBはデータの定義と操作を専用言語のSQLで行います。'
ZZZZ010801	800	=    };
ZZZZ010801	900	=SET{A4='RDBはデータの構造が簡単なので,'
ZZZZ010801	1000	=   +'SQLも簡単で命令数も少なく習得は容易です。'};
ZZZZ010801	1100	=SET{A5='SQLはデータの定義と操作以外出来ないので,'
ZZZZ010801	1200	=   +'I言語も必要です。'};
ZZZZ010801	1300	=SET{A6='テーブルは縦が列で列名とデータ型を持ち'
ZZZZ010801	1400	=+',横が行で１件づつのデータです。'};
ZZZZ010801	1500	=SET{A7='下記がテーブルの例です。'};
ZZZZ010801	1600	=SET{A8='データ型のCHARは半角文字用で,'
ZZZZ010801	1700	= +'画面表示で縦に対し横が半分の文字用です。'};
ZZZZ010801	1800	=SET{A9='データ型のNCHARは全角文字用です。'};
ZZZZ010801	1900	=SET{A10='NCHAR(16)はI言語では全角で半分の'
ZZZZ010801	2000	=+'8文字分の意味と成ります。'};
ZZZZ010801	2100	=SET{A11='尚,CHARとNCHARはRDBとしては半角文字も全角文字も'
ZZZZ010801	2200	=+'登録出来ます。'};
ZZZZ010801	2300	=SET{A12='データ型のDECIMAL(14,2)は数値用で,'
ZZZZ010801	2400	= +'有効桁数14桁で小数点以下2桁の意味です。'};
ZZZZ010801	2500	=SET{A13='定義はテーブル等の作成がCREATE,'
ZZZZ010801	2600	= +'修正がALTER, 削除がDROPです。'};
ZZZZ010801	2700	=SET{A14='定義は他に許可の作成のGRANT,削除のREVOKEが'
ZZZZ010801	2800	=+'有ります。'};
ZZZZ010801	2900	=SET{A15='定義は更にトランザクションで同時検索と更新で'
ZZZZ010801	3000	=+'矛盾が起きないようにします。'};
ZZZZ010801	3100	=SET{A16='トランザクションは開始のBEGIN,'
ZZZZ010801	3200	=+'確定のCOMMIT,取り消すROLLBACKが有ります。'};
ZZZZ010801	3300	=SET{A17='定義はその他に出番は少ないですが'
ZZZZ010801	3400	=+'1行づつ処理するCURSORが有ります。'};
ZZZZ010801	3500	=SET{A18='操作は行の検索がSELECTでこれを一番多く使い,'
ZZZZ010801	3600	=+'すこし複雑です。'};
ZZZZ010801	3700	=SET{A19='操作は他に更新で作成のINSERT,修正のUPDATE'
ZZZZ010801	3800	=+',削除のDELETEが有ります。'};
ZZZZ010801	3900	=SET{A20='尚,DELETEは履歴が残らないのでI言語'
ZZZZ010801	4000	=+'はUPDATEで削除日を入れる論理削除をします。'};
ZZZZ010801	4100	REPEAT=20
ZZZZ010801	4200	FORM=1.1.## @
ZZZZ010801	4300	DATA={O}A##{76}
ZZZZ010801	4400	7+FORM= テーブルの例    [列名     データ型]
ZZZZ010801	4500	7+FORM2= [列名  データ型] [列名    データ型]
ZZZZ010801	4600	7+FORM=             　列 @ @ @
ZZZZ010801	4700	7+DATA={O}D411{19}
ZZZZ010801	4800	7+=SET{D411='商品コード CHAR(19)'};
ZZZZ010801	4900	7+DATA={O}D412{16}
ZZZZ010801	5000	7+=SET{D412='商品名 NCHAR(16)'};
ZZZZ010801	5100	7+DATA={O}D413{18}
ZZZZ010801	5200	7+=SET{D413='単価 DECIMAL(14,2)'};
ZZZZ010801	5300	7+FORM=              行1 @ @ @
ZZZZ010801	5400	7+DATA={O,,,W}D414{19}
ZZZZ010801	5500	7+=SET{D414='AAA'};
ZZZZ010801	5600	7+DATA={O,,,W}D415{16}
ZZZZ010801	5700	7+=SET{D415='飴'};
ZZZZ010801	5800	7+DATA={O,,,W}D416{14,2,+}
ZZZZ010801	5900	7+=SET{D416='300.02'};
ZZZZ010801	6000	7+FORM=              行2 @ @ @
ZZZZ010801	6100	7+DATA={O,,,W}D417{19}
ZZZZ010801	6200	7+=SET{D417='BBB'};
ZZZZ010801	6300	7+DATA={O,,,W}D418{16}
ZZZZ010801	6400	7+=SET{D418='チョコレート'};
ZZZZ010801	6500	7+DATA={O,,,W}D419{14,2,+}
ZZZZ010801	6600	7+=SET{D419='100.03'};
ZZZZ010801	6700	REPEAT=
ZZZZ010801	6800	FORM=音声を出す @
ZZZZ010801	6900	=SET{SPEAK='YES'};
ZZZZ010801	7000	DATA=SPEAK{4}{YES,NO}
ZZZZ010801	7100	=IF{_DATA='NO'}EXIT{};
ZZZZ010801	7200	REPEAT=20
ZZZZ010801	7300	=SET{A##@COLOR='Y'};
ZZZZ010801	7400	=SET{WN=A##};
ZZZZ010801	7500	2+|4+|6+|7+|8+|9+|10+|11+=SQL_SET{WN}{SELECT REPLACE('?WN?',
ZZZZ010801	7600	2+='表','ひょう'
ZZZZ010801	7700	4+='数','すう'
ZZZZ010801	7800	6+='名','めい'
ZZZZ010801	7900	7+='例','れい'
ZZZZ010801	8000	8+|9+|10+|11+='CHAR','しいえいちえーあーる'
ZZZZ010801	8100	2+|4+|6+|7+|8+|9+|10+|11+=) ?_FROM_DUAL?};
ZZZZ010801	8200	=SPEAK{?WN?};
ZZZZ010801	8300	=SET{A##@COLOR='L'};
ZZZZ010801	8400	REPEAT=
ZZZZ010801	8500	NAME=NEXT
ZZZZ010801	8600	FORM=[?_P(ENTER)?]で次の画面へ @ @
ZZZZ010801	8700	NAME2=NEXT2
ZZZZ010801	8800	DATA={O}NEXT1{4}
ZZZZ010801	8900	=SET{NEXT1='NEXT'};
ZZZZ010801	9000	CLICK=SET{_CLICK='L'};
ZZZZ010801	9100	DATA={!}NEXT2{1}
ZZZZ010801	9200	NAME=
ZZZZ010801	9300	PROGRAM=NOT
ZZZZ010801	9400	=SET{A1='★テーブルは正規化で設計しますが難しいの'
ZZZZ010801	9500	=+'で下記3点を注意し作れば良いです。'};
ZZZZ010801	9600	=SET{A2='(1)他の列から導き出せる列は無くします。'};
ZZZZ010801	9700	=SET{A3='   ただし,月次処理等の結果テーブル上は正しい事を'
ZZZZ010801	9800	=+'保証する為逆に持ちます。'};
ZZZZ010801	9900	=SET{A4=' ◎例えば,単価か数量が有れば金額は計算出来ますが,'
ZZZZ010801	10000	=+'もし金額を持つと'};
ZZZZ010801	10100	=SET{A5='   単価か数量が変更されると'
ZZZZ010801	10200	=+'矛盾が起きるので元テーブルには持ちません。'};
ZZZZ010801	10300	=SET{A6='(2)表の1マスには1個のみのデータを入れ'
ZZZZ010801	10310	=+'繰返しを無くします。'};
ZZZZ010801	10400	=SET{A7=' ◎例えば,家族の氏名は人数分有るので'
ZZZZ010801	10500	=+',人数分の行で1家族とします。'};
ZZZZ010801	10600	=SET{A8='(3)他の行と区別できる1個又は複数個の列を探し,'
ZZZZ010801	10700	=+'テーブルを分割します。'};
ZZZZ010801	10800	=SET{A9=' ◎他の行と区別できる列を主キーと呼び'
ZZZZ010801	10900	=+'主キーに属する列を含めて分割します。'};
ZZZZ010801	11000	=SET{A10=' ◎UPDATEで特定の1行を修正する時,ユニークな'
ZZZZ010801	11100	=+'値を持つ主キーが必要な訳です。'};
ZZZZ010801	11200	=SET{A11=' ◎主キーが無い場合はマイナンバーのように主キーと'
ZZZZ010801	11300	=+'成る列を新規に作ります。'};
ZZZZ010801	11400	=SET{A12=' ◎正規化は複数種類有り，主キーに成る物が複数'
ZZZZ010801	11500	=+'存在する場合が有りますが,'};
ZZZZ010801	11600	=SET{A13='   めったに有る事では無いので,'
ZZZZ010801	11700	=+'プログラムを開発しながら,'};
ZZZZ010801	11800	=SET{A14='   矛盾が起きた時やプログラムが複雑に成った時に'
ZZZZ010801	11900	=+'主キーを見直せば良いです。'};
ZZZZ010801	12000	REPEAT=14
ZZZZ010801	12100	FORM=1.2.## @
ZZZZ010801	12200	DATA={O}A##{73}
ZZZZ010801	12300	REPEAT=
ZZZZ010801	12400	FORM=音声を出す @
ZZZZ010801	12500	=SET{SPEAK='YES'};
ZZZZ010801	12600	DATA=SPEAK{4}{YES,NO}
ZZZZ010801	12700	=IF{_DATA='NO'}EXIT{};
ZZZZ010801	12800	REPEAT=14
ZZZZ010801	12900	=SET{A##@COLOR='Y'};
ZZZZ010801	13000	=SET{WN=A##};
ZZZZ010801	13100	1+|12+=SQL_SET{WN}{SELECT REPLACE('?WN?',
ZZZZ010801	13200	1+|12+='正規化','せいきか'
ZZZZ010801	13300	1+|12+=) ?_FROM_DUAL?};
ZZZZ010801	13400	=SPEAK{?WN?};
ZZZZ010801	13500	=SET{A##@COLOR='L'};
ZZZZ010801	13600	REPEAT=
ZZZZ010801	13700	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010801	13800	COPY=NEXT2
ZZZZ010801	13900	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010801	14000	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010801	14100	=EXIT{0};
ZZZZ010802	100	PROGRAM=NOT
ZZZZ010802	200	=SET{A1='家計簿システムを作って月単位のエンゲル係数'
ZZZZ010802	300	=+'を求めるプログラムを作ります。'};
ZZZZ010802	400	=SET{A2='家計簿システムに必要なテーブルを設計するので,'
ZZZZ010802	500	=+'最初に必要な列名を調べます。'};
ZZZZ010802	600	=SET{A3='家計簿は年月日と内容と金額が必要です。'};
ZZZZ010802	700	=SET{A4='エンゲル係数を求めるので内容に対し食費かどうかの'
ZZZZ010802	800	=+'食費が必要です。'};
ZZZZ010802	900	=SET{A5='年月日,内容,金額,食費で他の列から導かれる物は無いの'
ZZZZ010802	1000	=+'で,4列必要です。'};
ZZZZ010802	1100	=SET{A6='家計簿は常に4列が1個づつ発生するので,1件1行です。'};
ZZZZ010802	1200	=SET{A7='年月日と内容の主キーは無さそうです。'};
ZZZZ010802	1300	=SET{A8='金額の主キーは年月日と内容で良さそうです。'};
ZZZZ010802	1400	=SET{A9='食費の主キーは内容で良さそうです。'};
ZZZZ010802	1500	=SET{A10='結果2個のテーブルに成ります。'};
ZZZZ010802	1600	=SET{A11='I言語のテーブルは管理を簡単にする為,規約が有るので'
ZZZZ010802	1700	=+'ここで説明します。'};
ZZZZ010802	1800	=SET{A12='(1)テーブル名の先頭は英字4文字の許可と'
ZZZZ010802	1900	=+'2文字の許可区分にする必要が有ります'};
ZZZZ010802	2000	=SET{A13='   許可はインストールで全体用のZZZZと個別システム'
ZZZZ010802	2100	=+'用のZZZYが作られています。'};
ZZZZ010802	2200	=SET{A14='   今回は個別システム用のZZZYを使用し,許可区分は'
ZZZZ010802	2300	=+'ZZとします。'};
ZZZZ010802	2400	=SET{A15='(2)テーブル名の最後は[実表]か_TABLEにする必要が'
ZZZZ010802	2500	=+'有ります。'};
ZZZZ010802	2600	=SET{A16='   プログラム内で使われているテーブル名を確認'
ZZZZ010802	2700	=+'しやすくする為です。'};
ZZZZ010802	2800	=SET{A17='(3)列名はシステム内でユニークにする必要が有ります'
ZZZZ010802	2900	=+'。'};
ZZZZ010802	3000	=SET{A18='   そこで,今回は先頭に[家計簿_]を付加します。'};
ZZZZ010802	3100	REPEAT=18
ZZZZ010802	3200	FORM=2.## @
ZZZZ010802	3300	DATA={O}A##{76}
ZZZZ010802	3400	REPEAT=
ZZZZ010802	3500	FORM=音声を出す @
ZZZZ010802	3600	=SET{SPEAK='YES'};
ZZZZ010802	3700	DATA=SPEAK{4}{YES,NO}
ZZZZ010802	3800	=IF{_DATA='NO'}EXIT{};
ZZZZ010802	3900	REPEAT=18
ZZZZ010802	4000	=SET{A##@COLOR='Y'};
ZZZZ010802	4100	=SET{WN=A##};
ZZZZ010802	4200	2+|12+|13+|14+|15+|16+|17+=SQL_SET{WN}{SELECT REPLACE('?WN?',
ZZZZ010802	4300	2+|12+|15+|16+|17+='名','めい'
ZZZZ010802	4400	13+|14+='Z','ぜっと'
ZZZZ010802	4500	2+|12+|13+|14+|15+|16+|17+=) ?_FROM_DUAL?};
ZZZZ010802	4600	=SPEAK{?WN?};
ZZZZ010802	4700	=SET{A##@COLOR='L'};
ZZZZ010802	4800	REPEAT=
ZZZZ010802	4900	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010802	5000	DATA={O}NEXT1{4}
ZZZZ010802	5100	=SET{NEXT1='NEXT'};
ZZZZ010802	5200	CLICK=SET{_CLICK='N'};
ZZZZ010802	5300	DATA={!}NEXT2{1}
ZZZZ010802	5400	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010802	5500	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010802	5600	=EXIT{0};
ZZZZ010803	100	PROGRAM=NOT
ZZZZ010803	200	FORM=********************************************************
ZZZZ010803	300	FORM2=*********************
ZZZZ010803	400	FORM=3.1     ●テーブル名= @
ZZZZ010803	500	DATA={O,,,E}A1{21};
ZZZZ010803	600	=SET{A1='ZZZYZZ_家計簿内容実表'};
ZZZZ010803	700	**************( 1/2 )*******************************
ZZZZ010803	800	FORM=--------------------------------------------------------
ZZZZ010803	900	FORM2=---------------------
ZZZZ010803	1000	FORM=3.1.1   ◎列名(1/2)=@@@@@@@@@@@  @ [ @ ,@ ] @
ZZZZ010803	1100	DATA={O,,,B}A2{11}
ZZZZ010803	1200	=SET{A2='家計簿_内容'};
ZZZZ010803	1300	DATA={O,,,G}D12{9}
ZZZZ010803	1400	=SET{D12='NCHAR(20)'};
ZZZZ010803	1500	DATA={O,,,G}D13{7}
ZZZZ010803	1600	=SET{D13='型1=''J'''};
ZZZZ010803	1700	DATA={O,,,G}D14{7}
ZZZZ010803	1800	=SET{D14='長さ2=1'};
ZZZZ010803	1900	DATA={O,,,G}D15{11}
ZZZZ010803	2000	=SET{D15='主キー(1/1)'};
ZZZZ010803	2100	FORM=3.1.1.1   @
ZZZZ010803	2200	DATA={O}A3{67}
ZZZZ010803	2300	=SET{A3='NCHAR(20)のデータ型は全角文字列含む'
ZZZZ010803	2400	=+'20文字の定義です。'};
ZZZZ010803	2500	FORM=          ★ @ 。
ZZZZ010803	2600	DATA={O,,,P}A4{48}
ZZZZ010803	2700	=SET{A4='I言語では全角文字は都合により2文字として数えます'};
ZZZZ010803	2800	FORM=          @
ZZZZ010803	2900	DATA={O}A5{67}
ZZZZ010803	3000	=SET{A5='(サロゲートペアと呼ばれる1文字を2文字分で表現'
ZZZZ010803	3100	=+'する物が有る為です)'};
ZZZZ010803	3200	FORM=3.1.1.2   @
ZZZZ010803	3300	DATA={O}A6{67}
ZZZZ010803	3400	=SET{A6='型1="J"は全角文字しかキー入力出来ません。'};
ZZZZ010803	3500	FORM=3.1.1.3   @
ZZZZ010803	3600	DATA={O}A7{67}
ZZZZ010803	3700	=SET{A7='長さ2=1は最小入力文字数を意味します。'};
ZZZZ010803	3800	FORM=3.1.1.4   @ 。
ZZZZ010803	3900	DATA={O,,,W}A8{55};
ZZZZ010803	4000	=SET{A8='"ZZZYZZ_家計簿実表"に存在する物は'
ZZZZ010803	4100	=+'削除出来ない事とします'};
ZZZZ010803	4200	FORM=          @
ZZZZ010803	4300	DATA={O}A9{67}
ZZZZ010803	4400	=SET{A9='(削除するとエンゲル係数が正しく計算出来ない'
ZZZZ010803	4500	=+'ので,このようにします)'};
ZZZZ010803	4600	**************( 2/2 )*******************************
ZZZZ010803	4700	FORM=--------------------------------------------------------
ZZZZ010803	4800	FORM2=---------------------
ZZZZ010803	4900	FORM=3.1.2   ◎列名(2/2)= @@@@@@@@@@@  @ [ @ }
ZZZZ010803	5000	DATA={O,,,B}A10{11}
ZZZZ010803	5100	=SET{A10='家計簿_食費'};
ZZZZ010803	5200	DATA={O,,,G}D22{12}
ZZZZ010803	5300	=SET{D22='DECIMAL(1,0)'};
ZZZZ010803	5400	DATA={O,,,G}D23{7}
ZZZZ010803	5500	=SET{D23='型1=''+'''};
ZZZZ010803	5600	FORM=3.1.2.1   @
ZZZZ010803	5700	DATA={O}A11{67}
ZZZZ010803	5800	=SET{A11='DECIMAL(1,0)のデータ型は数値で有効桁数'
ZZZZ010803	5900	=+'1桁で,小数部が0桁の定義です。'};
ZZZZ010803	6000	FORM=3.1.2.2   @
ZZZZ010803	6100	DATA={O}A12{67}
ZZZZ010803	6200	=SET{A12='型1="+"は正の数値のみキー入力出来ます。'
ZZZZ010803	6300	=+'("-"は負もキー入力出来ます）'};
ZZZZ010803	6400	FORM=3.1.2.3   @。
ZZZZ010803	6500	DATA={O,,,W}A13{37}
ZZZZ010803	6600	=SET{A13='"0"が"食費以外"で,"1"が"食費"とします'};
ZZZZ010803	6700	*********************************************************
ZZZZ010803	6800	FORM=********************************************************
ZZZZ010803	6900	FORM2=*********************
ZZZZ010803	7000	FORM=3.2     ●テーブル名= @
ZZZZ010803	7100	DATA={O,,,E}A14{17}
ZZZZ010803	7200	=SET{A14='ZZZYZZ_家計簿実表'};
ZZZZ010803	7300	**************( 1/3 )*******************************
ZZZZ010803	7400	FORM=--------------------------------------------------------
ZZZZ010803	7500	FORM2=---------------------
ZZZZ010803	7600	FORM=3.2.1   ◎列名(1/3)= @@@@@@@@@@@@@  @ [ @ , @ ] @
ZZZZ010803	7700	DATA={O,,,B}A15{13}
ZZZZ010803	7800	=SET{A15='家計簿_年月日'};
ZZZZ010803	7900	DATA={O,,,G}B12{7}
ZZZZ010803	8000	=SET{B12='CHAR(8)'};
ZZZZ010803	8100	DATA={O,,,G}B13{7}
ZZZZ010803	8200	=SET{B13='型1=''D'''};
ZZZZ010803	8300	DATA={O,,,G}B14{7}
ZZZZ010803	8400	=SET{B14='長さ2=1'};
ZZZZ010803	8500	DATA={O,,,G}B15{11}
ZZZZ010803	8600	=SET{B15='主キー(1/2)'};
ZZZZ010803	8700	FORM=3.2.2.1   @
ZZZZ010803	8800	DATA={O}A16{67}
ZZZZ010803	8900	=SET{A16='CHAR(8)のデータ型は半角文字列8文字の'
ZZZZ010803	9000	=+'定義です。'};
ZZZZ010803	9100	FORM=          ★ @ 。
ZZZZ010803	9200	DATA={O,,,P}A17{61}
ZZZZ010803	9300	=SET{A17='I言語ではSQLの年月日のデータ型は使用しないで'
ZZZZ010803	9400	=+'CHAR(8)を使います'};
ZZZZ010803	9500	FORM=          @
ZZZZ010803	9600	DATA={O}A18{67}
ZZZZ010803	9700	=SET{A18='(RDBのソフト毎に仕様が大幅に異なるので,'
ZZZZ010803	9800	=+'このようにしています）'};
ZZZZ010803	9900	FORM=3.2.1.2   @
ZZZZ010803	10000	DATA={O}A19{67}
ZZZZ010803	10100	=SET{A19='型1="D"は年月日のキー入力用です。'};
ZZZZ010803	10200	**************( 2/3 )*******************************
ZZZZ010803	10300	FORM=--------------------------------------------------------
ZZZZ010803	10400	FORM2=---------------------
ZZZZ010803	10500	FORM=3.2.2   ◎列名(2/3)= @@@@@@@@@@@  @
ZZZZ010803	10600	DATA={O,,,B}A20{11}
ZZZZ010803	10700	=SET{A20='家計簿_内容'};
ZZZZ010803	10800	DATA={O,,,G}B22{11}
ZZZZ010803	10900	=SET{B22='主キー(2/2)'};
ZZZZ010803	11000	FORM=3.2.2.1   @ 。
ZZZZ010803	11100	DATA={O,,,W}A21{59};
ZZZZ010803	11200	=SET{A21='"ZZZYZZ_家計簿内容実表"に存在する物のみ'
ZZZZ010803	11300	=+'入力出来る事とします'};
ZZZZ010803	11400	**************( 3/3 )*******************************
ZZZZ010803	11500	FORM=--------------------------------------------------------
ZZZZ010803	11600	FORM2=---------------------
ZZZZ010803	11700	FORM=3.2.3   ◎列名(3/3)= @@@@@@@@@@@  @ [ @ ]
ZZZZ010803	11800	DATA={O,,,G}A22{11}
ZZZZ010803	11900	=SET{A22='家計簿_金額'};
ZZZZ010803	12000	DATA={O,,,G}B32{12}
ZZZZ010803	12100	=SET{B32='DECIMAL(9,0)'};
ZZZZ010803	12200	DATA={O,,,G}B33{7}
ZZZZ010803	12300	=SET{B33='型1=''+'''};
ZZZZ010803	12400	FORM=3.2.3.1   @ 。
ZZZZ010803	12500	DATA={O,,,W}A23{27}
ZZZZ010803	12600	=SET{A23='"0"は入力出来ない事とします'};
ZZZZ010803	12700	FORM=********************************************************
ZZZZ010803	12800	FORM2=*********************
ZZZZ010803	12900	*************************************************
ZZZZ010803	13000	FORM=音声を出す @
ZZZZ010803	13100	=SET{SPEAK='YES'};
ZZZZ010803	13200	DATA=SPEAK{4}{YES,NO}
ZZZZ010803	13300	=IF{_DATA='NO'}EXIT{};
ZZZZ010803	13400	REPEAT=23
ZZZZ010803	13500	=SET{A##@COLOR='Y'};
ZZZZ010803	13600	=SET{WN=A##};
ZZZZ010803	13700	3+|7+|12+|16+|17+|18+=SQL_SET{WN}{SELECT REPLACE('?WN?',
ZZZZ010803	13800	3+|16+|17+='CHAR','シーえいちえーあーる'
ZZZZ010803	13900	7+='数','すう'
ZZZZ010803	14000	12+='正','せい'
ZZZZ010803	14100	18+='毎','ごと'
ZZZZ010803	14200	3+|7+|12+|16+|17+|18+=) ?_FROM_DUAL?};
ZZZZ010803	14300	1+|14+=SPEAK{テーブルめい};
ZZZZ010803	14400	2+=SPEAK{列めい1/2};
ZZZZ010803	14500	10+=SPEAK{列めい2/2};
ZZZZ010803	14600	15+=SPEAK{列めい1/3};
ZZZZ010803	14700	20+=SPEAK{列めい2/3};
ZZZZ010803	14800	22+=SPEAK{列めい3/3};
ZZZZ010803	14900	=SPEAK{?WN?};
ZZZZ010803	15000	=SET{A##@COLOR='L'};
ZZZZ010803	15100	1+|14+=SET{A##@COLOR='E'};
ZZZZ010803	15200	2+|10+|15+|20+|22+=SET{A##@COLOR='B'};
ZZZZ010803	15300	4+|17+=SET{A##@COLOR='P'};
ZZZZ010803	15400	8+|13+|21+|23+=SET{A##@COLOR='W'};
ZZZZ010803	15500	REPEAT=
ZZZZ010803	15600	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010803	15700	DATA={O}NEXT1{4}
ZZZZ010803	15800	=SET{NEXT1='NEXT'};
ZZZZ010803	15900	CLICK=SET{_CLICK='N'};
ZZZZ010803	16000	DATA={!}NEXT2{1}
ZZZZ010803	16100	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010803	16200	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010803	16300	*EXIT{0};
ZZZZ010804	100	PROGRAM=NOT
ZZZZ010804	200	BEGIN
ZZZZ010804	300	=SET{WN.COL1='家計簿_内容',WC.T1='J'};
ZZZZ010804	400	=SET{WC.TYPE1='NCHAR',W0.LEN1=20};
ZZZZ010804	500	=SET{WN.COL2='家計簿_食費',WC.T2='+'};
ZZZZ010804	600	=SET{WC.TYPE2='DECIMAL',W0.LEN2=1};
ZZZZ010804	700	=SET{WN.COL3='家計簿_年月日',WC.T3='D'};
ZZZZ010804	800	=SET{WC.TYPE3='CHAR',W0.LEN3=8};
ZZZZ010804	900	=SET{WN.COL4='家計簿_金額',WC.T4='+'};
ZZZZ010804	1000	=SET{WC.TYPE4='DECIMAL',W0.LEN4=9};
ZZZZ010804	1100	FORM=4.    最初にデータ辞書を作成します。(1/5)
ZZZZ010804	1200	FORM=4.1.1 デスクトップ上の @ します。
ZZZZ010804	1300	DATA={O,,,Y}D1{45}
ZZZZ010804	1400	=SET{D1='I言語のアイコンをクリック'
ZZZZ010804	1410	=+'(又はダブルクリック)'};
ZZZZ010804	1500	FORM=      ('88'か[F1]キーでヘルプ画面が表示出来ます)
ZZZZ010804	1600	FORM=      (ヘルプにはI言語の説明と文法書も有るので
ZZZZ010804	1700	FORM2=,是非一読して下さい)
ZZZZ010804	1800	FORM=      (メニューもヘルプも
ZZZZ010804	1900	FORM2=I言語のプログラムで動いています)
ZZZZ010804	2000	FORM=4.1.2 @ で"システム 支援 メニュー"に行きます。
ZZZZ010804	2100	DATA={O,,,Y}D2{2}
ZZZZ010804	2200	=SET{D2='01'};
ZZZZ010804	2300	FORM=      (画面上のメニューをマウスでクリックしても行きます)
ZZZZ010804	2400	FORM=4.1.3 @ で"システム 開発 メニュー"に行きます。
ZZZZ010804	2500	DATA={O,,,Y}D3{2}
ZZZZ010804	2600	=SET{D3='02'};
ZZZZ010804	2700	FORM=      (上位メニューに戻るには'00'か最上位行をクリックし
ZZZZ010804	2800	FORM2=ます)
ZZZZ010804	2900	FORM=4.1.4 @ で"テスト データ辞書　更新"に行きます。
ZZZZ010804	3000	DATA={O,,,Y}D4{2}
ZZZZ010804	3100	=SET{D4='25'};
ZZZZ010804	3200	FORM=      (メニューは3個のメニューを表示後プログラム
ZZZZ010804	3300	FORM2=が実行します）
ZZZZ010804	3400	FORM=      (I言語では起動するプログラムをジョブと呼びます)
ZZZZ010804	3500	FORM=      (当ジョブもI言語で作られているので,
ZZZZ010804	3600	FORM2=説明文は全てのジョブでほぼ共通です)
ZZZZ010804	3700	FORM=4.1.5 @ を"使用者"に入力します。
ZZZZ010804	3800	DATA={O,,,Y}D5{8}
ZZZZ010804	3900	=SET{D5='ZZZZZZZY'};
ZZZZ010804	4000	FORM=       (許可ZZZYのプログラムを作るので,ZZZYの管理者の
ZZZZ010804	4100	FORM2=ZZZZZZZYで使用します）
ZZZZ010804	4200	FORM=4.1.6  "パスワード"に @ を入れます。
ZZZZ010804	4300	DATA={O,,,Y}D6{34}
ZZZZ010804	4400	=SET{D6='インストール時に変更したパスワード'};
ZZZZ010804	4500	FORM=       (パスワードを変更していない場合は、変更画面で変更
ZZZZ010804	4600	FORM2=してから続行します）
ZZZZ010804	4700	FORM=       (変更前のパスワードはZZZZZZZZZZZZZZZYです）
ZZZZ010804	4800	FORM=       (★入力文字がフルでない時は[?_P(TAB)?]か
ZZZZ010804	4900	FORM2=[?_P(ENTER)?]で次に行けます)
ZZZZ010804	5000	NAME=NEXT
ZZZZ010804	5100	FORM=[?_P(ENTER)?]で次の画面へ @ @
ZZZZ010804	5200	NAME2=NEXT2
ZZZZ010804	5300	DATA={O}NEXT1{4}
ZZZZ010804	5400	=SET{NEXT1='NEXT'};
ZZZZ010804	5500	CLICK=SET{_CLICK='N'};
ZZZZ010804	5600	DATA={!}NEXT2{1}
ZZZZ010804	5700	NAME=
ZZZZ010804	5800	REPEAT=4
ZZZZ010804	5900	PROGRAM=NOT
ZZZZ010804	6000	BEGIN
ZZZZ010804	6100	FORM=4.#+   '?WN.COL##?'を作成します。(#+/5)
ZZZZ010804	6200	1+FORM=4.#+.01 @ キーで更新作業を開始します。(データ名上）
ZZZZ010804	6300	1+DATA={O,,,G}D01A{2}
ZZZZ010804	6400	1+=SET{D01A='←'};
ZZZZ010804	6500	1-FORM=4.#+.01 @ キーで一行下に移動します。
ZZZZ010804	6600	1-DATA={O,,,G}D01B{2}
ZZZZ010804	6700	1-=SET{D01B='↓'};
ZZZZ010804	6800	FORM=4.#+.02 @ で'作成'を選びます。
ZZZZ010804	6900	DATA={O,,,G}D02{1}
ZZZZ010804	7000	=SET{D02='2'};
ZZZZ010804	7100	FORM=4.#+.03 @ のみ"許可"で選べるので @ を押します。
ZZZZ010804	7200	DATA={O,,,E}D03{4}
ZZZZ010804	7300	=SET{D03='ZZZY'};
ZZZZ010804	7400	DATA={O,,,G}D031{7}
ZZZZ010804	7500	=SET{D031='[?_P(ENTER)?]'};
ZZZZ010804	7600	FORM=4.#+.04 @ を"データ名"に入れ @ を押します。
ZZZZ010804	7700	DATA={O,,,B}D04{?WN.COL##@FORM_LENGTH?}
ZZZZ010804	7800	=SET{D04=WN.COL##};
ZZZZ010804	7900	DATA={O,,,G}D041{7}
ZZZZ010804	8000	=SET{D041='[?_P(ENTER)?]'};
ZZZZ010804	8100	1+FORM=   (★この画面上で"?WN.COL##?"を左から右へドラッグする
ZZZZ010804	8200	1+FORM2=とコピーが出来,
ZZZZ010804	8300	1+FORM=     "データ名"の■上でクリック又は[?_P(CTRL)?]+[V]で
ZZZZ010804	8400	1+FORM2=貼り付け出来ます)
ZZZZ010804	8500	FORM=4.#+.05 @ のみ"言語"で選べるので @ を押します。
ZZZZ010804	8600	DATA={O,,,E}D05{2}
ZZZZ010804	8700	=SET{D05='JA'};
ZZZZ010804	8800	DATA={O,,,G}D051{7}
ZZZZ010804	8900	=SET{D051='[?_P(ENTER)?]'};
ZZZZ010804	9000	FORM=4.#+.06 @ を"許可区分"で選びます。
ZZZZ010804	9100	DATA={O,,,E}D06{2}
ZZZZ010804	9200	=SET{D06='ZZ'};
ZZZZ010804	9300	1+FORM=      ([?_P(PG)??_P(DN)?]又は [?_P(PG)??_P(UP)?]で選
ZZZZ010804	9400	1+FORM2=んで[?_P(ENTER)?]か[ZZ]を入れます)
ZZZZ010804	9500	FORM=4.#+.07 @ 空白のまま"基本データ名"で @ を押します。
ZZZZ010804	9600	DATA={O,,,E}D07{1}
ZZZZ010804	9700	DATA={O,,,G}D071{7}
ZZZZ010804	9800	=SET{D071='[?_P(ENTER)?]'};
ZZZZ010804	9900	FORM=4.#+.08 @ のみ"テスト"で選べるので @ を押します。
ZZZZ010804	10000	DATA={O,,,E}D08{4}
ZZZZ010804	10100	=SET{D08='TEST'};
ZZZZ010804	10200	DATA={O,,,G}D081{7}
ZZZZ010804	10300	=SET{D081='[?_P(ENTER)?]'};
ZZZZ010804	10400	FORM=4.#+.09 @ が"タイトル(言語別)"に有るので @ を押します。
ZZZZ010804	10500	DATA={O,,,E}D09{6}
ZZZZ010804	10600	=SET{D09=WN.COL##[5]};
ZZZZ010804	10700	DATA={O,,,G}D091{7}
ZZZZ010804	10800	=SET{D091='[?_P(ENTER)?]'};
ZZZZ010804	10900	FORM=4.#+.10 @ を"初期タイプ"に入れ @ を押します。
ZZZZ010804	11000	DATA={O,,,B}D10{?WC.TYPE##@FORM_LENGTH?}
ZZZZ010804	11100	=SET{D10=WC.TYPE##};
ZZZZ010804	11200	DATA={O,,,G}D101{7}
ZZZZ010804	11300	=SET{D101='[?_P(ENTER)?]'};
ZZZZ010804	11400	FORM=4.#+.11 @ を"型1"に入れます。
ZZZZ010804	11500	DATA={O,,,Y}D11{1}
ZZZZ010804	11600	=SET{D11=WC.T##};
ZZZZ010804	11700	3-FORM=4.#+.12 @ 空白のまま"型2"で @ を押します。
ZZZZ010804	11800	3-DATA={O,,,E}D12{1}
ZZZZ010804	11900	3-DATA={O,,,G}D121{7}
ZZZZ010804	12000	3-=SET{D121='[?_P(ENTER)?]'};
ZZZZ010804	12100	3-FORM=4.#+.13 @ を"初期長さ1"に入れ @ を押します。
ZZZZ010804	12200	3-DATA={O,,,B}D13{?W0.LEN##@FORM_LENGTH?}
ZZZZ010804	12300	3-=SET{D13=W0.LEN##};
ZZZZ010804	12400	3-DATA={O,,,G}D131{7}
ZZZZ010804	12500	3-=SET{D131='[?_P(ENTER)?]'};
ZZZZ010804	12600	1+FORM=       ("初期タイプ"が'NCHAR'は"初期長さ2"は
ZZZZ010804	12700	1+FORM2=飛ばされます)
ZZZZ010804	12800	1+FORM=4.#+.14 @ 空白のまま"長さ1"で @ を押します。
ZZZZ010804	12900	1+DATA={O,,,E}D14{1}
ZZZZ010804	13000	1+DATA={O,,,G}D141{7}
ZZZZ010804	13100	1+=SET{D141='[?_P(ENTER)?]'};
ZZZZ010804	13200	1+|3+FORM=4.#+.15 @ を"長さ2"に入れ @ を押します。
ZZZZ010804	13300	1+|3+DATA={O,,,Y}D15{1}
ZZZZ010804	13400	1+|3+=SET{D15='1'};
ZZZZ010804	13500	1+|3+DATA={O,,,G}D151{7}
ZZZZ010804	13600	1+|3+=SET{D151='[?_P(ENTER)?]'};
ZZZZ010804	13700	3+FORM=       ("型1"が[D]の時は"初期長さ1"に自動的に8が
ZZZZ010804	13800	3+FORM2=入ります)
ZZZZ010804	13900	2+|4+FORM=4.#+.16 @ を数回入力し"チェック"まで移動します。
ZZZZ010804	14000	2+|4+DATA={O,,,G}D16{5}
ZZZZ010804	14100	2+|4+=SET{D16='[?_P(TAB)?]'};
ZZZZ010804	14200	2+FORM=       ([?_P(SHIFT)?]+[?_P(TAB)?]で戻る事も出来ます)
ZZZZ010804	14300	2+|4+FORM=4.#+.17 @ を"チェック"に入れ @ を押します。
ZZZZ010804	14400	2+|4+DATA={O,,,W}D17{6}
ZZZZ010804	14500	2+=SET{D17='CHECK2'};
ZZZZ010804	14600	2+FORM=       (CHECK2は値とコメントをカンマ区切りで交互に
ZZZZ010804	14700	2+FORM2=指定出来ます)
ZZZZ010804	14800	4+FORM=       (CHECKはカンマ区切りの値と(最小値,最大値)の
ZZZZ010804	14900	4+FORM2=範囲判定が出来ます)
ZZZZ010804	15000	4+=SET{D17='CHECK'};
ZZZZ010804	15100	2+|4+DATA={O,,,G}D171{7}
ZZZZ010804	15200	2+|4+=SET{D171='[?_P(ENTER)?]'};
ZZZZ010804	15300	2+|4+FORM=4.#+.18 @ を"チェック61"に入れます。
ZZZZ010804	15400	2+|4+DATA={O,,,W}D18{17}
ZZZZ010804	15500	2+=SET{D18='0,食費以外,1,食費'};
ZZZZ010804	15600	4+=SET{D18='(1,)'};
ZZZZ010804	15700	2+FORM=       (これで'0'か'1'を選択入力出来るように成ります）
ZZZZ010804	15800	4+FORM=       (0が入力不可ですので,最小値が1で,
ZZZZ010804	15900	4+FORM2=最大値無しとします)
ZZZZ010804	16000	FORM=4.#+.19 @ で最後の"詳細説明"に移動します。
ZZZZ010804	16100	DATA={O,,,G}D19{2}
ZZZZ010804	16200	=SET{D19='↓'};
ZZZZ010804	16300	FORM=4.#+.20 @ で作成処理を実行します。
ZZZZ010804	16400	DATA={O,,,G}D20{7}
ZZZZ010804	16500	=SET{D20='[?_P(ENTER)?]'};
ZZZZ010804	16600	FORM=4.#+.21 "MESSAGE"に'！作成ＯＫ'と出れば作成成功です。
ZZZZ010804	16700	4-COPY=NEXT
ZZZZ010804	16800	REPEAT=
ZZZZ010804	16900	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010804	17000	COPY=NEXT2
ZZZZ010804	17100	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010804	17200	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010804	17300	=EXIT{0};
ZZZZ010805	100	PROGRAM=NOT
ZZZZ010805	200	BEGIN
ZZZZ010805	300	=SET{WN.TABLE1='ZZZYZZ_家計簿内容実表',W0.INDEX1=1};
ZZZZ010805	400	=SET{WN.TABLE2='ZZZYZZ_家計簿実表',W0.INDEX2=2};
ZZZZ010805	500	=SET{WN.COL11='家計簿_内容',WN.COL12='家計簿_食費'};
ZZZZ010805	600	=SET{WN.COL21='家計簿_年月日',WN.COL22='家計簿_内容'};
ZZZZ010805	700	=SET{WN.COL23='家計簿_金額'};
ZZZZ010805	800	FORM=5.    これからテーブルを作成します。(1/3)
ZZZZ010805	900	FORM=5.1.1 "テスト データ辞書　更新"の画面上で @
ZZZZ010805	1000	DATA={O,,,Y}D0{2}
ZZZZ010805	1100	=SET{D0='F2'};
ZZZZ010805	1200	FORM2=キーを押します。
ZZZZ010805	1300	FORM=      ("F2"等のファンクションキーで色々の操作が出来ます,
ZZZZ010805	1400	FORM2=画面上で
ZZZZ010805	1500	FORM=       マウスの右ボタンをクリックするとメニュー一覧が
ZZZZ010805	1600	FORM2=表示出来ます）
ZZZZ010805	1700	FORM=5.1.2 新しく表示されたメニュー画面で以下を実行します。
ZZZZ010805	1800	FORM=5.1.3 @ で"テスト テーブル     更新"に行きます。
ZZZZ010805	1900	DATA={O,,,Y}D4{2}
ZZZZ010805	2000	=SET{D4='26'};
ZZZZ010805	2100	FORM=     (このジュブは"F2"で立ち上げる前のジュブの
ZZZZ010805	2200	FORM2=使用者を引き継いでいるので、
ZZZZ010805	2300	FORM=      使用者とパスワードの入力は要求されません)
ZZZZ010805	2400	NAME=NEXT
ZZZZ010805	2500	FORM=[?_P(ENTER)?]で次の画面へ @ @
ZZZZ010805	2600	NAME2=NEXT2
ZZZZ010805	2700	DATA={O}NEXT1{4}
ZZZZ010805	2800	=SET{NEXT1='NEXT'};
ZZZZ010805	2900	CLICK=SET{_CLICK='N'};
ZZZZ010805	3000	DATA={!}NEXT2{1}
ZZZZ010805	3100	NAME=
ZZZZ010805	3200	REPEAT=2
ZZZZ010805	3300	PROGRAM=NOT
ZZZZ010805	3400	FORM=5.#+     @ を作成します。(#+/3)
ZZZZ010805	3500	DATA={O,,,L}D0{?WN.TABLE##@FORM_LENGTH?}
ZZZZ010805	3600	=SET{D0=WN.TABLE##}
ZZZZ010805	3700	1+FORM=5.#+.1.1 @ キーで"許可区分"に移動します。
ZZZZ010805	3800	1+DATA={O,,,G}D11{5}
ZZZZ010805	3900	1+=SET{D11='[?_P(TAB)?]'};
ZZZZ010805	4000	1+FORM=5.#+.1.2 @ を"許可区分"に入れます。
ZZZZ010805	4100	1+DATA={O,,,G}D12{2}
ZZZZ010805	4200	1+=SET{D12='ZZ'};
ZZZZ010805	4300	1+FORM=5.#+.1.3 "名前"で @ し"許可区分"を確定します。
ZZZZ010805	4400	1+DATA={O,,,G}D13{7}
ZZZZ010805	4500	1+=SET{D13='[?_P(ENTER)?]'};
ZZZZ010805	4600	1+FORM=       (★[?_P(ENTER)?]をしないと"許可区分"は
ZZZZ010805	4700	1+FORM2=変更されません)
ZZZZ010805	4800	1+FORM=5.#+.2.1 @キーで更新作業を開始します。
ZZZZ010805	4900	1-FORM=5.#+.2.1 @キーで１行下げます。
ZZZZ010805	5000	DATA={O,,,G}D21{2}
ZZZZ010805	5100	1+=SET{D21='←'};
ZZZZ010805	5200	1-=SET{D21='↓'};
ZZZZ010805	5300	FORM=5.#+.2.2 @ で'作成'を選びます。
ZZZZ010805	5400	DATA={O,,,G}D22{1}
ZZZZ010805	5500	=SET{D22='2'};
ZZZZ010805	5600	FORM=5.#+.2.3 @ を"名前"に入力し @ を押します。
ZZZZ010805	5700	DATA={O,,,E}D23{?WN.TABLE##@FORM_LENGTH?}
ZZZZ010805	5800	=SET{D23=WN.TABLE##};
ZZZZ010805	5900	DATA={O,,,G}D231{7}
ZZZZ010805	6000	=SET{D231='[?_P(ENTER)?]'};
ZZZZ010805	6100	FORM=5.#+.2.4 @ を"主キー項目数"に入れます。
ZZZZ010805	6200	DATA={O,,,Y}D24{1}
ZZZZ010805	6300	=SET{D24=W0.INDEX##};
ZZZZ010805	6400	FORM=5.#+.2.5 @ で最後の"詳細説明"に移動します。
ZZZZ010805	6500	DATA={O,,,G}D25{2}
ZZZZ010805	6600	=SET{D25='↓'};
ZZZZ010805	6700	FORM=5.#+.2.6 @ ]で作成処理を実行します。
ZZZZ010805	6800	DATA={O,,,G}D26{7}
ZZZZ010805	6900	=SET{D26='[?_P(ENTER)?]'};
ZZZZ010805	7000	FORM=5.#+.2.7 次のデータ名作成画面に移ります。
ZZZZ010805	7100	FORM=       (★テーブルはI言語が使用する列が付いた物が
ZZZZ010805	7200	FORM2=既に作られています)
ZZZZ010805	7300	REPEAT2=W0.INDEX##+1
ZZZZ010805	7400	$1+FORM=5.#+.3.$$.1 @ キーで更新作業を開始します。
ZZZZ010805	7500	$1+DATA={O,,,G}D31$${2}
ZZZZ010805	7600	$1+=SET{D31$$='←'};
ZZZZ010805	7700	$1-FORM=5.#+.3.$$.1 @ キーで一行下げます。
ZZZZ010805	7800	$1-DATA={O,,,G}D31$${2}
ZZZZ010805	7900	$1-=SET{D31$$='↓'};
ZZZZ010805	8000	$2+FORM=         (★[↓]で必ず１行下げないと、列の前に
ZZZZ010805	8100	$2+FORM2=追加されてしまいます）
ZZZZ010805	8200	$2+FORM=         (★主キー列は先頭に有る必要があるので
ZZZZ010805	8300	$2+FORM2=必ず１行下げて下さい）
ZZZZ010805	8400	FORM=5.#+.3.$$.2 @ で'作成'を選びます。
ZZZZ010805	8500	DATA={O,,,G}D32$${1}
ZZZZ010805	8600	=SET{D32$$='2'};
ZZZZ010805	8700	FORM=5.#+.3.$$.3 @ "データ名"に入力します。
ZZZZ010805	8800	DATA={O,,,B}D33$${?WN.COL##$$@FORM_LENGTH?}
ZZZZ010805	8900	=SET{D33$$=WN.COL##$$};
ZZZZ010805	9000	FORM=5.#+.3.$$.4 @ で最後の"詳細説明"に移動します。
ZZZZ010805	9100	DATA={O,,,G}D34$${2}
ZZZZ010805	9200	=SET{D34$$='↓'};
ZZZZ010805	9300	FORM=5.#+.3.$$.5 @ で作成処理を実行します。
ZZZZ010805	9400	DATA={O,,,G}D35$${7}
ZZZZ010805	9500	=SET{D35$$='[?_P(ENTER)?]'};
ZZZZ010805	9600	$1+FORM=5.#+.3.$$.6 "MESSAGE"に'！作成ＯＫ'で1列追加です。
ZZZZ010805	9700	1+$2+FORM=5.#+.3.$$.6 @ で上位画面に戻ります。
ZZZZ010805	9800	1+$2+DATA={O,,,G}D36$${5}
ZZZZ010805	9900	1+$2+=SET{D36$$='['+_P(ESC)+'}'};
ZZZZ010805	10000	REPEAT2=
ZZZZ010805	10100	2-COPY=NEXT
ZZZZ010805	10200	REPEAT=
ZZZZ010805	10300	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010805	10400	COPY=NEXT2
ZZZZ010805	10500	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010805	10600	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010805	10700	=EXIT{0};
ZZZZ010806	100	PROGRAM=NOT
ZZZZ010806	200	FORM=6.1 3.2.2.1の @
ZZZZ010806	300	DATA={O,,,W}B23{59};
ZZZZ010806	400	=SET{B23='"ZZZYZZ_家計簿内容実表"に存在する物のみ'
ZZZZ010806	500	=+'入力出来る事とします'};
ZZZZ010806	600	FORM=    をデータ辞書で対応します。
ZZZZ010806	700	FORM=      (これは"ZZZYZZ_家計簿内容実表"のテーブルが無いと
ZZZZ010806	800	FORM2=設定出来ないので
ZZZZ010806	900	FORM=       ここでデータ辞書を再度更新します)
ZZZZ010806	1000	FORM=6.2 "テスト データ辞書　更新"画面で使用者"ZZZZZZZY"
ZZZZ010806	1100	FORM2=で操作します。
ZZZZ010806	1200	FORM=6.3 "データ名"上で @ で検索を実行します。
ZZZZ010806	1300	DATA={O,,,G}D3{7}
ZZZZ010806	1400	=SET{D3='[?_P(ENTER)?]'};
ZZZZ010806	1500	FORM=6.4 @ で更新作業を開始します。(データ名上）
ZZZZ010806	1600	DATA={O,,,G}D4{2}
ZZZZ010806	1700	=SET{D4='←'};
ZZZZ010806	1800	FORM=6.5 @ で"データ名"が"家計簿_内容"に移動します。
ZZZZ010806	1900	DATA={O,,,G}D5{4}
ZZZZ010806	2000	=SET{D5='↓↓'};
ZZZZ010806	2100	FORM=6.6 @ で"データ名"が"家計簿_内容"
ZZZZ010806	2200	FORM2=上で"修正"を選びます。
ZZZZ010806	2300	DATA={O,,,G}D6{1}
ZZZZ010806	2400	=SET{D6='3'};
ZZZZ010806	2500	FORM=6.7 @ を何度も押して"チェック"まで移動します。
ZZZZ010806	2600	DATA={O,,,G}D7{5}
ZZZZ010806	2700	=SET{D7='[?_P(TAB)?]'};
ZZZZ010806	2800	FORM=6.8 @ を"チェック"に入力します。
ZZZZ010806	2900	DATA={O,,,W}D8{8}
ZZZZ010806	3000	=SET{D8='SELECT21'};
ZZZZ010806	3100	FORM=     ('SELECT21'はSELECTのSQLで列2個をリストボックスに
ZZZZ010806	3200	FORM2=1個目の列順に表示します)
ZZZZ010806	3300	FORM=6.9 @ を"許可"に入力します。
ZZZZ010806	3400	DATA={O,,,W}D9{4}
ZZZZ010806	3500	=SET{D9='ZZZY'};
ZZZZ010806	3600	FORM=     (該当許可のテーブルを対象とします)
ZZZZ010806	3700	FORM=6.10 @ を"チェック61"に入力します。
ZZZZ010806	3800	DATA={O,,,W}D10{20}
ZZZZ010806	3900	=SET{D10='?_Q?_MM?_Q?_家計簿内容実表'};
ZZZZ010806	4000	FORM=     (SELECTするテーブル名です)
ZZZZ010806	4100	FORM=6.11 @ を"チェック62"に入力します。
ZZZZ010806	4200	DATA={O,,,W}D11{11}
ZZZZ010806	4300	=SET{D11='家計簿_内容'};
ZZZZ010806	4400	FORM=      (1個目の一致値用列名です)
ZZZZ010806	4500	FORM=6.12 @ を"チェック63"に入力します。
ZZZZ010806	4600	DATA={O,,,W}D12{11}
ZZZZ010806	4700	=SET{D12='家計簿_食費'};
ZZZZ010806	4800	FORM=      (2個目のコメント用列名です)
ZZZZ010806	4900	FORM=6.13 @ で最後の入力位置に移動します。
ZZZZ010806	5000	DATA={O,,,G}D16{2}
ZZZZ010806	5100	=SET{D16='↓'};
ZZZZ010806	5200	FORM=6.14 @ で修正処理を実行します。
ZZZZ010806	5300	DATA={O,,,G}D17{7}
ZZZZ010806	5400	=SET{D17='[?_P(ENTER)?]'};
ZZZZ010806	5500	***********************************************
ZZZZ010806	5600	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010806	5700	DATA={O}NEXT1{4}
ZZZZ010806	5800	=SET{NEXT1='NEXT'};
ZZZZ010806	5900	CLICK=SET{_CLICK='N'};
ZZZZ010806	6000	DATA={!}NEXT2{1}
ZZZZ010806	6100	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010806	6200	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010806	6300	=EXIT{0};
ZZZZ010807	100	PROGRAM=NOT
ZZZZ010807	200	BEGIN
ZZZZ010807	300	%NAIYOU+=SET{WN.NAIYOU='内容',W=7};
ZZZZ010807	400	%NAIYOU-=SET{WN.NAIYOU=,W=10};
ZZZZ010807	500	PROGRAM=NOT
ZZZZ010807	600	FORM=?W?.    これから"家計簿?WN.NAIYOU? 更新"
ZZZZ010807	610	FORM2=のプログラムを作成します。(1/3)
ZZZZ010807	700	%NAIYOU-FORM=?W?.1.1 "テスト 全      プログラム 更新"で実行
ZZZZ010807	800	%NAIYOU-FORM2=します。
ZZZZ010807	900	%NAIYOU-COMMENT_BEGIN
ZZZZ010807	1000	FORM=?W?.1.1 "テスト データ辞書　更新"上で @
ZZZZ010807	1100	DATA={O,,,Y}D0{2}
ZZZZ010807	1200	=SET{D0='F2'};
ZZZZ010807	1300	FORM2=キーを押します。
ZZZZ010807	1400	FORM=?W?.1.2 @ で"テスト 全      プログラム 更新"に行きます。
ZZZZ010807	1500	DATA={O,,,Y}D4{2}
ZZZZ010807	1600	=SET{D4='21'};
ZZZZ010807	1700	%NAIYOU-COMMENT_END
ZZZZ010807	1800	NAME=NEXT
ZZZZ010807	1900	FORM=[?_P(ENTER)?]で次の画面へ @ @
ZZZZ010807	2000	NAME2=NEXT2
ZZZZ010807	2100	DATA={O}NEXT1{4}
ZZZZ010807	2200	=SET{NEXT1='NEXT'};
ZZZZ010807	2300	CLICK=SET{_CLICK='N'};
ZZZZ010807	2400	DATA={!}NEXT2{1}
ZZZZ010807	2500	NAME=
ZZZZ010807	2600	END
ZZZZ010807	2700	=EXIT{0};
ZZZZ010807	2800	PROGRAM=NOT
ZZZZ010807	2900	FORM=?W?.2    "家計簿?WN.NAIYOU? 更新"のメニューを作ります。
ZZZZ010807	3000	FORM=?W?.2.01 @ キーで更新作業を開始します。
ZZZZ010807	3100	DATA={O,,,G}D01{2}
ZZZZ010807	3200	=SET{D01='←'};
ZZZZ010807	3300	FORM=?W?.2.02 @ で'作成'を選びます。
ZZZZ010807	3400	DATA={O,,,G}D02{1}
ZZZZ010807	3500	=SET{D02='2'};
ZZZZ010807	3600	FORM=?W?.2.03 @ を"M0"に入力します。
ZZZZ010807	3700	DATA={O,,,Y}D03{4}
ZZZZ010807	3800	=SET{D03='ZZZZ'};
ZZZZ010807	3900	%NAIYOU+FORM=       (インストールでM0が'ZZZZ'のメニューが
ZZZZ010807	4000	%NAIYOU+FORM2=作られています）
ZZZZ010807	4100	FORM=?W?.2.04 @ を"M1"に入力します。
ZZZZ010807	4200	DATA={O,,,Y}D04{2}
ZZZZ010807	4300	=SET{D04='39'};
ZZZZ010807	4400	%NAIYOU+FORM=    (メニューに表示出来るのは01から40までです）
ZZZZ010807	4500	FORM=?W?.2.05 @ を"M2"に入力します。
ZZZZ010807	4600	DATA={O,,,Y}D05{2}
ZZZZ010807	4700	=SET{D05='39'};
ZZZZ010807	4800	FORM=?W?.2.06 @ を"M3"に入力します。
ZZZZ010807	4900	DATA={O,,,Y}D06{2}
ZZZZ010807	5000	%NAIYOU+=SET{D06='22'};
ZZZZ010807	5100	%NAIYOU-=SET{D06='21'};
ZZZZ010807	5200	FORM=?W?.2.07 @ を"テスト"に入力します。
ZZZZ010807	5300	DATA={O,,,Y}D07{4}
ZZZZ010807	5400	=SET{D07='TEST'};
ZZZZ010807	5500	FORM=?W?.2.08 @ を"許可"に入力します。
ZZZZ010807	5600	DATA={O,,,Y}D08{4}
ZZZZ010807	5700	=SET{D08='ZZZY'};
ZZZZ010807	5800	FORM=?W?.2.09 @ を"許可区分"に入力します。
ZZZZ010807	5900	DATA={O,,,Y}D09{2}
ZZZZ010807	6000	=SET{D09='ZZ'};
ZZZZ010807	6100	FORM=?W?.2.10 @ を"処理種類"に入力します。
ZZZZ010807	6200	DATA={O,,,Y}D10{5}
ZZZZ010807	6300	=SET{D10='INPUT'};
ZZZZ010807	6400	%NAIYOU+FORM=       (テーブルを更新する場合は[INPUT]にします)
ZZZZ010807	6500	FORM=?W?.2.11 @ を"認証"に入力します。。
ZZZZ010807	6600	DATA={O,,,Y}D11{1}
ZZZZ010807	6700	=SET{D11='X'};
ZZZZ010807	6800	%NAIYOU+FORM=  (Xは認証をしない設定ですが勉強なのでXとします)
ZZZZ010807	6900	FORM=?W?.2.12 @ で最後の"メニュー"に移動します。
ZZZZ010807	7000	DATA={O,,,G}D12{2}
ZZZZ010807	7100	=SET{D12='↓'};
ZZZZ010807	7200	FORM=?W?.2.13 @ を"メニュー"に入力します。
ZZZZ010807	7300	DATA={O,,,Y}D13{15}
ZZZZ010807	7400	=SET{D13='家計簿'+WN.NAIYOU+' 更新'};
ZZZZ010807	7500	FORM=?W?.2.14 @ で作成処理を実行します。
ZZZZ010807	7600	DATA={O,,,G}D14{7}
ZZZZ010807	7700	=SET{D14='[?_P(ENTER)?]'};
ZZZZ010807	7800	FORM=?W?.2.15 "MESSAGE"に'！作成ＯＫ'と出ればメニューが作成
ZZZZ010807	7900	FORM2=作成されました。
ZZZZ010807	8000	FORM=?W?.2.16 @ の'選択'を選びプログラムの画面に移動します。
ZZZZ010807	8100	DATA={O,,,G}D16{1}
ZZZZ010807	8200	=SET{D16='0'};
ZZZZ010807	8300	COPY=NEXT
ZZZZ010807	8400	PROGRAM=NOT
ZZZZ010807	8500	FORM=?W?.3    "家計簿?WN.NAIYOU? 更新"プログラムを作ります。
ZZZZ010807	8600	FORM=?W?.3.01 @ を"操作"に入力し @ します。
ZZZZ010807	8700	DATA={O,,,Y}D01{7}
ZZZZ010807	8800	=SET{D01='TABLE 1'};
ZZZZ010807	8900	DATA={O,,,G}D011{7}
ZZZZ010807	9000	=SET{D011='[?_P(ENTER)?]'};
ZZZZ010807	9100	FORM=       ('TABLE 1' はテーブルを１個指定してプログラムを
ZZZZ010807	9200	FORM2=作ります)
ZZZZ010807	9300	FORM=?W?.3.02 別画面が表示されたので @ で検索します。
ZZZZ010807	9400	DATA={O,,,G}D02{7}
ZZZZ010807	9500	=SET{D02='[?_P(ENTER)?]'};
ZZZZ010807	9600	FORM=?W?.3.03 @ で選択処理に移ります。
ZZZZ010807	9700	DATA={O,,,G}D03{2}
ZZZZ010807	9800	=SET{D03='←'};
ZZZZ010807	9810	%NAIYOU-FORM=?W?.3.04 @ で'ZZZYZZ_家計簿?WN.NAIYOU?実表'
ZZZZ010807	9820	%NAIYOU-FORM2=の行か確認します。
ZZZZ010807	9900	%NAIYOU+FORM=?W?.3.04 @ で'ZZZYZZ_家計簿?WN.NAIYOU?実表'
ZZZZ010807	10000	%NAIYOU+FORM2=の行に移動します。
ZZZZ010807	10100	DATA={O,,,G}D04{2}
ZZZZ010807	10200	=SET{D04='↓'};
ZZZZ010807	10300	FORM=?W?.3.05 @ で"選択"します。
ZZZZ010807	10400	DATA={O,,,G}D05{1}
ZZZZ010807	10500	=SET{D05='0'};
ZZZZ010807	10600	FORM=?W?.3.06 プログラム画面に戻り出来たプログラムが表示
ZZZZ010807	10700	FORM2=されています。
ZZZZ010807	10800	FORM=?W?.3.07 @ を"操作"に入力し@ します。
ZZZZ010807	10900	DATA={O,,,Y}D07{1}
ZZZZ010807	11000	=SET{D07='T'};
ZZZZ010807	11100	DATA={O,,,G}D071{7}
ZZZZ010807	11200	=SET{D071='[?_P(ENTER)?]'};
ZZZZ010807	11300	%NAIYOU+FORM=       ([T]はTESTの意味でテスト実行をします)
ZZZZ010807	11400	*COPY=NEXT
ZZZZ010807	11500	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010807	11600	COPY=NEXT2
ZZZZ010807	11700	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010807	11800	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010807	11900	=EXIT{0};
ZZZZ010808	100	PROGRAM=NOT
ZZZZ010808	200	FORM=8.1.01 "家計簿内容 更新"プログラムで以降を実行します。
ZZZZ010808	300	REPEAT=2
ZZZZ010808	400	1+FORM=8.##.02 @ で更新処理に移ります。
ZZZZ010808	500	1-FORM=8.##.02 @ で一行下に移動します。
ZZZZ010808	600	DATA={O,,,G}D02##{2}
ZZZZ010808	700	1+=SET{D02##='←'};
ZZZZ010808	800	1-=SET{D02##='↓'};
ZZZZ010808	900	FORM=8.##.03 @ で"作成"を選びます。
ZZZZ010808	1000	DATA={O,,,G}D03##{1}
ZZZZ010808	1100	=SET{D03##='2'};
ZZZZ010808	1200	FORM=8.##.04 @ を"内容"に入力します。
ZZZZ010808	1300	DATA={O,,,Y}D04##{6}
ZZZZ010808	1400	1+=SET{D04##='本代'};
ZZZZ010808	1500	2+=SET{D04##='外食代'};
ZZZZ010808	1700	FORM=8.##.05 @ を"食費"に入力します。
ZZZZ010808	1800	DATA={O,,,Y}D05##{1}
ZZZZ010808	1900	=SET{D05##='#-'};
ZZZZ010808	2100	1+FORM=       (0か1が選べるリストボックスが表示されています）
ZZZZ010808	2200	1+FORM=       (0は空白で表示されます)
ZZZZ010808	2300	FORM=8.##.06 @ で作成処理を実行します。
ZZZZ010808	2400	DATA={O,,,G}D06##{7}
ZZZZ010808	2500	=SET{D06##='[?_P(ENTER)?]'};
ZZZZ010808	2600	FORM=8.##.07 "MESSAGE"に'！作成ＯＫ'と出れば作成されました。
ZZZZ010808	2700	REPEAT=
ZZZZ010808	2800	*8-FORM=[?_P(ENTER)?]で次の画面へ @
ZZZZ010808	2900	*COPY=NEXT
ZZZZ010808	3000	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010808	3100	DATA={O}NEXT1{4}
ZZZZ010808	3200	=SET{NEXT1='NEXT'};
ZZZZ010808	3300	CLICK=SET{_CLICK='N'};
ZZZZ010808	3400	DATA={!}NEXT2{1}
ZZZZ010808	3500	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010808	3600	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010808	3700	=EXIT{0};
ZZZZ010809	100	PROGRAM=NOT
ZZZZ010809	200	=SET{WN.PROG1='PROGRAM=,&X1,?_Q?_MM?_Q?_家計簿内容実表'};
ZZZZ010809	300	=SET{WN.PROG2='SET={}.?_Q?&.SET&家計簿_内容?_Q?'};
ZZZZ010809	400	=SET{WN.PROG3='*SET={}.?_Q?&.SET&家計簿_食費?_Q?'};
ZZZZ010809	500	=SET{WN.PROG4='COPY=@ZZZZZZ_START_1_FOREIGN'};
ZZZZ010809	600	=SET{WN.PROG5='*****( 内容 )*****'};
ZZZZ010809	700	=SET{WN.PROG6='DATA={K}?_Q?&.DATA&家計簿_内容?_Q?'};
ZZZZ010809	800	=SET{WN.PROG7='*****( 食費 )*****'};
ZZZZ010809	900	=SET{WN.PROG8='DATA={}?_Q?&.DATA&家計簿_食費?_Q?'};
ZZZZ010809	1000	=SET{WN.PROG9='COPY=@ZZZZZZ_SQL'};
ZZZZ010809	1100	REPEAT=9
ZZZZ010809	1200	=SET{W0.NO##='#+00'};
ZZZZ010809	1300	REPEAT=
ZZZZ010809	1400	PROGRAM=NOT
ZZZZ010809	1500	FORM=9.1 @ @
ZZZZ010809	1600	DATA={O,,,W}$W0.NO1{4,,+,E}
ZZZZ010809	1700	DATA={O,,,W}$WN.PROG1{61}
ZZZZ010809	1800	=SET{A1='PROGRAM=が始まりで処理種類が省略されておりメニュー'
ZZZZ010809	1900	=+'のINPUTの更新と成ります。'};
ZZZZ010809	2000	=SET{A2='&X1は右のテーブルの別名で,'
ZZZZ010809	2100	=+'右が更新するテーブル名です。'};
ZZZZ010809	2200	=SET{A3='？で囲まれている物はデータ名で命令の読み出し時に'
ZZZZ010809	2300	=+'内容で置き換えます。'};
ZZZZ010809	2400	=SET{A4='_で始まるデータ名はシステムが提供しています。'};
ZZZZ010809	2500	REPEAT=4
ZZZZ010809	2600	FORM=    @
ZZZZ010809	2700	DATA={O}A##{75}
ZZZZ010809	2800	REPEAT=
ZZZZ010809	2900	FORM=9.2 @ @
ZZZZ010809	3000	DATA={O,,,W}$W0.NO2{4,,+,E}
ZZZZ010809	3100	DATA={O,,,W}$WN.PROG2{61}
ZZZZ010809	3200	=SET{A5='SET=は検索条件等の入力や参考情報を出力する'
ZZZZ010809	3210	=+'項目用です。'};
ZZZZ010809	3300	=SET{A6='&.(ドット)で始まるデータ名は'
ZZZZ010809	3400	=+'PROGRAM=の右のテーブル情報です。'};
ZZZZ010809	3500	=SET{A7='データ名は下のDATA=と重複しないように'
ZZZZ010809	3600	=+'先頭に.(ドット)を付けています。'};
ZZZZ010809	3700	REPEAT=7,5
ZZZZ010809	3800	FORM=    @
ZZZZ010809	3900	DATA={O}A##{75}
ZZZZ010809	4000	REPEAT=
ZZZZ010809	4100	*FORM=9.3 @ @
ZZZZ010809	4200	*DATA={O,,,W}$W0.NO3{4,,+,E}
ZZZZ010809	4300	*DATA={O,,,W}$WN.PROG3{61}
ZZZZ010809	4400	*FORM=    @
ZZZZ010809	4500	*DATA={O}A1{75}
ZZZZ010809	4600	*SET{A1='*から始まっている物はコメント行でなにもしません。'};
ZZZZ010809	4700	FORM=9.3 @ @
ZZZZ010809	4800	DATA={O,,,W}$W0.NO4{4,,+,E}
ZZZZ010809	4900	DATA={O,,,W}$WN.PROG4{61}
ZZZZ010809	5000	FORM=    @
ZZZZ010809	5100	DATA={O}A8{75}
ZZZZ010809	5200	=SET{A8='これは3.1.1.4の'
ZZZZ010809	5300	=+'「ZZZYZZ_家計簿実表に存在する物は'
ZZZZ010809	5400	=+'削除出来ない事とします」'};
ZZZZ010809	5500	FORM=    @
ZZZZ010809	5600	DATA={O}A9{75}
ZZZZ010809	5700	=SET{A9='を実現しています,データ辞書を解析し挿入しています。'
ZZZZ010809	5800	=};
ZZZZ010809	5900	FORM=    @
ZZZZ010809	6000	DATA={O}A10{75}
ZZZZ010809	6100	=SET{A10='COPY=?_A?...と先頭に?_A?が有る物は'
ZZZZ010809	6200	=+'どのプログラムにもコピー出来ます。'};
ZZZZ010809	6300	*FORM=9.5 @ @
ZZZZ010809	6400	*DATA={O,,,W}$W0.NO5{4,,+,E}
ZZZZ010809	6500	*DATA={O,,,W}$WN.PROG5{61}
ZZZZ010809	6600	FORM=9.4 @ @
ZZZZ010809	6700	DATA={O,,,W}$W0.NO6{4,,+,E}
ZZZZ010809	6800	DATA={O,,,W}$WN.PROG6{61}
ZZZZ010809	6900	FORM=    @
ZZZZ010809	7000	DATA={O}A11{75}
ZZZZ010809	7100	=SET{A11='DATA=は検索結果を表示したり、更新データを入力する'
ZZZZ010809	7200	=+'項目用です。'};
ZZZZ010809	7300	FORM=    @
ZZZZ010809	7400	DATA={O}A12{75}
ZZZZ010809	7500	=SET{A12='Kは更新キーの指定です。'}
ZZZZ010809	7700	*FORM=9.7 @ @
ZZZZ010809	7800	*DATA={O,,,W}$W0.NO7{4,,+,E}
ZZZZ010809	7900	*DATA={O,,,W}$WN.PROG7{61}
ZZZZ010809	8000	FORM=9.5 @ @
ZZZZ010809	8100	DATA={O,,,W}$W0.NO8{4,,+,E}
ZZZZ010809	8200	DATA={O,,,W}$WN.PROG8{61}
ZZZZ010809	8300	FORM=9.6 @ @
ZZZZ010809	8400	DATA={O,,,W}$W0.NO9{4,,+,E}
ZZZZ010809	8500	DATA={O,,,W}$WN.PROG9{61}
ZZZZ010809	9000	FORM=    @
ZZZZ010809	9100	DATA={O}A13{75}
ZZZZ010809	9200	=SET{A13='?_A?ZZZZZZ_SQLは検索の'
ZZZZ010809	9300	=+'SQL文を組み立てるプログラムです。'};
ZZZZ010809	9400	FORM=音声を出す @
ZZZZ010809	9500	=SET{SPEAK='YES'};
ZZZZ010809	9600	DATA=SPEAK{4}{YES,NO}
ZZZZ010809	9700	=IF{_DATA='NO'}EXIT{};
ZZZZ010809	9800	REPEAT=13
ZZZZ010809	9900	=SET{A##@COLOR='Y'};
ZZZZ010809	10000	=SET{WN=A##};
ZZZZ010809	10100	3+|8+=SQL_SET{WN}{SELECT REPLACE('?WN?',
ZZZZ010809	10200	3+='？','クエスチョンマーク'
ZZZZ010809	10210	8+='表','ひょう'
ZZZZ010809	10300	3+|8+=) ?_FROM_DUAL?};
ZZZZ010809	10400	2+|3+|4+|6+|7+|10+|11+|13+=SQL_SET{WN}{SELECT REPLACE('?WN?',
ZZZZ010809	10500	2+|3+|4+|6+|7+|11+='名','めい'
ZZZZ010809	10600	10+|13+='?_Q?_A?_Q?','アットマーク'
ZZZZ010809	10700	2+|3+|4+|6+|7+|10+|11+|13+=) ?_FROM_DUAL?};
ZZZZ010809	10800	=SPEAK{?WN?};
ZZZZ010809	10900	=SET{A##@COLOR='L'};
ZZZZ010809	11000	REPEAT=
ZZZZ010809	11100	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010809	11200	NAME=NEXT
ZZZZ010809	11300	NAME2=NEXT2
ZZZZ010809	11400	DATA={O}NEXT1##{4}
ZZZZ010809	11500	=SET{NEXT1##='NEXT'};
ZZZZ010809	11600	CLICK=SET{_CLICK='N'};
ZZZZ010809	11700	DATA={!}NEXT2##{1}
ZZZZ010809	11800	NAME=
ZZZZ010809	11900	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010809	12000	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010809	12100	=EXIT{0};
ZZZZ010809	12200	END
ZZZZ010809	12300	=EXIT{0};
ZZZZ010810	100	MINUS=%NAIYOU
ZZZZ010811	100	PROGRAM=NOT
ZZZZ010811	200	FORM=11.1.01 "家計簿 更新"プログラムで以降を実行します。
ZZZZ010811	300	REPEAT=2
ZZZZ010811	400	1+FORM=11.##.02 @ で更新処理に移ります。
ZZZZ010811	500	1-FORM=11.##.02 @ で一行下に移動します。
ZZZZ010811	600	DATA={O,,,G}D02##{2}
ZZZZ010811	700	1+=SET{D02##='←'};
ZZZZ010811	800	1-=SET{D02##='↓'};
ZZZZ010811	900	FORM=11.##.03 @ で"作成"を選びます。
ZZZZ010811	1000	DATA={O,,,G}D03##{1}
ZZZZ010811	1100	=SET{D03##='2'};
ZZZZ010811	1200	FORM=11.##.04 @ を"年月日"に入力します。
ZZZZ010811	1300	DATA={O,,,E}D04##{1}
ZZZZ010811	1400	=SET{D04##=''};
ZZZZ010811	1500	1+FORM=        (空白の時は今日の年月日が設定されます)
ZZZZ010811	1600	FORM=11.##.05 @ を"内容"に入力します。
ZZZZ010811	1700	DATA={O,,,Y}D05##{6}
ZZZZ010811	1800	1+=SET{D05##='本代'};
ZZZZ010811	1900	2+=SET{D05##='外食代'};
ZZZZ010811	2100	1+FORM=       (食費は自動的に設定され0は空白表示します）
ZZZZ010811	2200	FORM=11.##.06 @ を"金額"に入力します。
ZZZZ010811	2300	DATA={O,,,Y}D06##{6}
ZZZZ010811	2400	1+=SET{D06##='2000'};
ZZZZ010811	2500	2+=SET{D06##='1000'};
ZZZZ010811	2700	FORM=11.##.07 @ で作成処理を実行します。
ZZZZ010811	2800	DATA={O,,,G}D07##{7}
ZZZZ010811	2900	=SET{D07##='[?_P(ENTER)?]'};
ZZZZ010811	3000	1+FORM=11.##.08 "MESSAGE"に'！作成ＯＫ'と出て作成されました。
ZZZZ010811	3100	REPEAT=
ZZZZ010811	3200	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010811	3300	DATA={O}NEXT1{4}
ZZZZ010811	3400	=SET{NEXT1='NEXT'};
ZZZZ010811	3500	CLICK=SET{_CLICK='N'};
ZZZZ010811	3600	DATA={!}NEXT2{1}
ZZZZ010811	3700	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010811	3800	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010811	3900	=EXIT{0};
ZZZZ010812	100	PROGRAM=NOT
ZZZZ010812	200	=SET{WN.PROG1='PROGRAM=,&X1,?_Q?_MM?_Q?_家計簿実表'};
ZZZZ010812	300	=SET{WN.PROG2='TABLE=&X2,?_Q?_MM?_Q?_家計簿内容実表'};
ZZZZ010812	400	=SET{WN.PROG3='SET={}.?_Q?&.SET&家計簿_年月日?_Q?'};
ZZZZ010812	500	=SET{WN.PROG4='SET={}.?_Q?&.SET&家計簿_内容?_Q?'};
ZZZZ010812	600	=SET{WN.PROG5='*SET={}SX2.?_Q?&X2.SET&家計簿_食費?_Q?'};
ZZZZ010812	700	=SET{WN.PROG6='*SET={}.?_Q?&.SET&家計簿_金額?_Q?'};
ZZZZ010812	800	=SET{WN.PROG7='*****( 年月日 )*****'};
ZZZZ010812	900	=SET{WN.PROG8='DATA={K}?_Q?&.DATA&家計簿_年月日?_Q?'};
ZZZZ010812	1000	=SET{WN.PROG9='*****( 内容 )*****'};
ZZZZ010812	1100	=SET{WN.PROG10='DATA={K,&X2}?_Q?&.DATA&家計簿_内容?_Q?'};
ZZZZ010812	1200	=SET{WN.PROG11='DATA={*OC}X2.?_Q?&X2.DATA&家計簿_食費?_Q?'};
ZZZZ010812	1300	=SET{WN.PROG12='*****( 金額 )*****'};
ZZZZ010812	1400	=SET{WN.PROG13='DATA={}?_Q?&.DATA&家計簿_金額?_Q?'};
ZZZZ010812	1500	=SET{WN.PROG14='COPY=@ZZZZZZ_SQL'};
ZZZZ010812	1600	REPEAT=14
ZZZZ010812	1700	=SET{W0.NO##='#+00'};
ZZZZ010812	1800	REPEAT=
ZZZZ010812	1900	PROGRAM=NOT
ZZZZ010812	2000	FORM=12.01 @ @
ZZZZ010812	2100	DATA={O,,,Y}$W0.NO1{4,,+,E}
ZZZZ010812	2200	DATA={O,,,Y}$WN.PROG1{61}
ZZZZ010812	2300	FORM=12.02 @ @
ZZZZ010812	2400	DATA={O,,,Y}$W0.NO2{4,,+,E}
ZZZZ010812	2500	DATA={O,,,Y}$WN.PROG2{61}
ZZZZ010812	2600	FORM=     これは3.2.2.1の @
ZZZZ010812	2700	FORM=     で使用するテーブルを宣言しています。
ZZZZ010812	2800	DATA={O,,,W}B23{59};
ZZZZ010812	2900	=SET{B23='"ZZZYZZ_家計簿内容実表"に存在する物のみ'
ZZZZ010812	3000	=+'入力出来る事とします'};
ZZZZ010812	3100	FORM=12.03 @ @
ZZZZ010812	3200	DATA={O,,,Y}$W0.NO3{4,,+,E}
ZZZZ010812	3300	DATA={O,,,Y}$WN.PROG3{61}
ZZZZ010812	3400	FORM=12.04 @ @
ZZZZ010812	3500	DATA={O,,,Y}$W0.NO4{4,,+,E}
ZZZZ010812	3600	DATA={O,,,Y}$WN.PROG4{61}
ZZZZ010812	3700	FORM=12.05 @ @
ZZZZ010812	3800	DATA={O,,,Y}$W0.NO5{4,,+,E}
ZZZZ010812	3900	DATA={O,,,Y}$WN.PROG5{61}
ZZZZ010812	4000	FORM=12.06 @ @
ZZZZ010812	4100	DATA={O,,,Y}$W0.NO6{4,,+,E}
ZZZZ010812	4200	DATA={O,,,Y}$WN.PROG6{61}
ZZZZ010812	4300	FORM=12.07 @ @
ZZZZ010812	4400	DATA={O,,,Y}$W0.NO7{4,,+,E}
ZZZZ010812	4500	DATA={O,,,Y}$WN.PROG7{61}
ZZZZ010812	4600	FORM=12.08 @ @
ZZZZ010812	4700	DATA={O,,,Y}$W0.NO8{4,,+,E}
ZZZZ010812	4800	DATA={O,,,Y}$WN.PROG8{61}
ZZZZ010812	4900	FORM=     '{K}'は更新キーで有る事を意味します。
ZZZZ010812	5000	FORM=12.09 @ @
ZZZZ010812	5100	DATA={O,,,Y}$W0.NO9{4,,+,E}
ZZZZ010812	5200	DATA={O,,,Y}$WN.PROG9{61}
ZZZZ010812	5300	FORM=12.10 @ @
ZZZZ010812	5400	DATA={O,,,Y}$W0.NO10{4,,+,E}
ZZZZ010812	5500	DATA={O,,,Y}$WN.PROG10{61}
ZZZZ010812	5600	FORM=     '&X2'は3.2.2.1の @
ZZZZ010812	5700	DATA={O,,,W}B231{59};
ZZZZ010812	5800	=SET{B231=B23};
ZZZZ010812	5900	FORM=     を実現する指定です。
ZZZZ010812	6000	FORM=     データ辞書からSELECTのSQL文が作られます。
ZZZZ010812	6100	FORM=12.11 @ @
ZZZZ010812	6200	DATA={O,,,Y}$W0.NO11{4,,+,E}
ZZZZ010812	6300	DATA={O,,,Y}$WN.PROG11{61}
ZZZZ010812	6400	FORM=     '*'は更新対象では無い事を意味します。
ZZZZ010812	6500	FORM=     'O'は入力対象では無い事を意味します。(OUTPUT)
ZZZZ010812	6600	FORM=     'C'は検索のSQL文のORDER BYに使わないを意味します。
ZZZZ010812	6700	FORM2=(CUT)
ZZZZ010812	6800	FORM=12.12 @ @
ZZZZ010812	6900	DATA={O,,,Y}$W0.NO12{4,,+,E}
ZZZZ010812	7000	DATA={O,,,Y}$WN.PROG12{61}
ZZZZ010812	7100	FORM=12.13 @ @
ZZZZ010812	7200	DATA={O,,,Y}$W0.NO13{4,,+,E}
ZZZZ010812	7300	DATA={O,,,Y}$WN.PROG13{61}
ZZZZ010812	7400	FORM=12.14 @ @
ZZZZ010812	7500	DATA={O,,,Y}$W0.NO14{4,,+,E}
ZZZZ010812	7600	DATA={O,,,Y}$WN.PROG14{61}
ZZZZ010812	7700	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010812	7800	DATA={O}NEXT1{4}
ZZZZ010812	7900	=SET{NEXT1='NEXT'};
ZZZZ010812	8000	CLICK=SET{_CLICK='N'};
ZZZZ010812	8100	DATA={!}NEXT2##{1}
ZZZZ010812	8200	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010812	8300	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010812	8400	=EXIT{0};
ZZZZ010812	8500	END
ZZZZ010812	8600	=EXIT{0}
ZZZZ010813	100	PROGRAM=NOT
ZZZZ010813	200	FORM=13.01 "テスト 全      プログラム 更新"で
ZZZZ010813	300	FORM=      "家計簿内容 更新"を選び @ でテスト実行します。
ZZZZ010813	400	DATA={O,,,Y}D01{1}
ZZZZ010813	500	=SET{D01='T'};
ZZZZ010813	600	FORM=13.02 内容上で @ し検索表示します。
ZZZZ010813	700	DATA={O,,,Y}D02{7}
ZZZZ010813	800	=SET{D02='[?_P(ENTER)?]'};
ZZZZ010813	900	FORM=13.03 @ で更新処理に移ります。
ZZZZ010813	1000	DATA={O,,,Y}D03{2}
ZZZZ010813	1100	=SET{D03='←'};
ZZZZ010813	1200	FORM=13.04 @ で"削除"を選びます。
ZZZZ010813	1300	DATA={O,,,Y}D04{1}
ZZZZ010813	1400	=SET{D04='1'};
ZZZZ010813	1500	FORM=13.05 @ と２行目に表示され
ZZZZ010813	1600	FORM=      3.1.1.4の @
ZZZZ010813	1700	FORM=      が実現されています。
ZZZZ010813	1800	DATA={O,,,R}D041{32}
ZZZZ010813	1900	=SET{D041='FIND IN TABLE(ZZZYZZ_家計簿実表)'};
ZZZZ010813	2000	DATA={O,,,W}D042{55}
ZZZZ010813	2100	=SET{D042='"ZZZYZZ_家計簿実表"に存在する物は'
ZZZZ010813	2200	=+'削除出来ない事とします'};
ZZZZ010813	2400	FORM=13.06 @ で3行下に移動します。
ZZZZ010813	2500	DATA={O,,,Y}D06{6}
ZZZZ010813	2600	=SET{D06='↓↓↓'};
ZZZZ010813	2700	FORM=13.07 @ で"作成"を選びます。
ZZZZ010813	2800	DATA={O,,,Y}D07{1}
ZZZZ010813	2900	=SET{D07='2'};
ZZZZ010813	3000	FORM=13.08 @ を"内容"に入力します。
ZZZZ010813	3100	DATA={O,,,Y}D08{6}
ZZZZ010813	3200	=SET{D08='その他'};
ZZZZ010813	3300	FORM=13.09 @ を"食費"に入力します。
ZZZZ010813	3400	DATA={O,,,Y}D09{1}
ZZZZ010813	3500	=SET{D09='0'};
ZZZZ010813	3600	FORM=13.10 @ で作成処理を実行します。
ZZZZ010813	3700	DATA={O,,,Y}D10{7}
ZZZZ010813	3800	=SET{D10='[?_P(ENTER)?]'};
ZZZZ010813	3900	FORM=13.11 @ で"削除"を選びます。
ZZZZ010813	4000	DATA={O,,,Y}D11{1}
ZZZZ010813	4100	=SET{D11='1'};
ZZZZ010813	4200	FORM=      ("ZZZYZZ_家計簿実表"に存在しないので,
ZZZZ010813	4300	FORM2=今度はエラーが出ません）
ZZZZ010813	4400	FORM=13.12 @ を"JUDGE"に入れ @ で削除処理をします。
ZZZZ010813	4500	DATA={O,,,Y}D12{1}
ZZZZ010813	4600	=SET{D12='1'};
ZZZZ010813	4700	DATA={O,,,Y}D121{7}
ZZZZ010813	4800	=SET{D121='[?_P(ENTER)?]'};
ZZZZ010813	4900	FORM=13.13 @ で"検索処理に戻って @ で検索表示します。
ZZZZ010813	5000	DATA={O,,,Y}D13{2}
ZZZZ010813	5100	=SET{D13='←'};
ZZZZ010813	5200	DATA={O,,,Y}D131{7}
ZZZZ010813	5300	=SET{D131='[?_P(ENTER)?]'};
ZZZZ010813	5400	FORM=13.14 MESSAGE に @ と出て"その他"も表示されています。
ZZZZ010813	5500	DATA={O,,,L}D14{10}
ZZZZ010813	5600	=SET{D14='＊削除済み'};
ZZZZ010813	5700	FORM=      ★I言語ではこのように削除しても実際に物理削除
ZZZZ010813	5800	FORM2=しないで, @ をします。
ZZZZ010813	5900	DATA={O,,,P}D141{8}
ZZZZ010813	6000	=SET{D141='論理削除'};
ZZZZ010813	6100	FORM=       理由は、@ 。
ZZZZ010813	6200	DATA={O,,,P}D142{38}
ZZZZ010813	6300	=SET{D142='問題が起きた時原因を速やかに発見する為'};
ZZZZ010813	6400	**************************************************
ZZZZ010813	6500	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010813	6600	DATA={O}NEXT1{4}
ZZZZ010813	6700	=SET{NEXT1='NEXT'};
ZZZZ010813	6800	CLICK=SET{_CLICK='N'};
ZZZZ010813	6900	DATA={!}NEXT2{1}
ZZZZ010813	7000	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010813	7100	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010813	7200	=EXIT{0};
ZZZZ010814	100	PROGRAM=NOT
ZZZZ010814	200	FORM=14.01 外部キーとは、親テーブルの列に対し、
ZZZZ010814	300	FORM2=それを主キーとする子テーブルがあり、
ZZZZ010814	400	FORM=      子テーブルと依存関係が有る列を指します。
ZZZZ010814	500	FORM=14.02 SQLでは外部キーを定義出来,
ZZZZ010814	600	FORM2=下記2個の制約が設定出来ます。
ZZZZ010814	700	FORM=14.03 1個目は親テーブルは子テーブルに有るデータのみ作成
ZZZZ010814	800	FORM2=出来ます。
ZZZZ010814	900	FORM=      これは3.2.2.1の @
ZZZZ010814	1000	FORM=      に該当します。
ZZZZ010814	1100	DATA={O,,,W}B23{59};
ZZZZ010814	1200	=SET{B23='"ZZZYZZ_家計簿内容実表"に存在する物のみ'
ZZZZ010814	1300	=+'入力出来る事とします'};
ZZZZ010814	1400	FORM=14.04 2個目は子テーブルは親テーブルに有るデータは削除
ZZZZ010814	1500	FORM2=出来ません。
ZZZZ010814	1600	FORM=      これは3.1.1.4の @
ZZZZ010814	1700	DATA={O,,,W}A17{55};
ZZZZ010814	1800	=SET{A17='"ZZZYZZ_家計簿実表"に存在する物は'
ZZZZ010814	1900	=+'削除出来ない事とします'};
ZZZZ010814	2000	FORM=      に該当します。
ZZZZ010814	2100	FORM=14.05 残念ながらI言語では,削除は論理削除で物理削除がされ
ZZZZ010814	2200	FORM2=ないので
ZZZZ010814	2300	FORM=      SQLの外部キーが使えません。
ZZZZ010814	2400	FORM=14.06 そこで,どちらもデータ辞書を使って外部キーを判断し
ZZZZ010814	2500	FORM=      プログラムに組み込んで対応しています。
ZZZZ010814	2600	FORM=14.07 論理削除は"Z_CANCEL"に削除日が入っている物を削除
ZZZZ010814	2700	FORM2=と見なします。
ZZZZ010814	2800	FORM=      なので,検索のSQL文には"Z_CANCEL=’'"の判定が
ZZZZ010814	2900	FORM2=必ず必要と成ります。
ZZZZ010814	3000	FORM=      (★ @
ZZZZ010814	3100	DATA={O,,,P}A99{63};
ZZZZ010814	3200	=SET{A99='I言語は誤動作防止で列には"NOT NULL"の指定が'
ZZZZ010814	3300	=+'有りNULLを使いません'};
ZZZZ010814	3400	FORM=          @ )
ZZZZ010814	3500	DATA={O,,,P}A991{39};
ZZZZ010814	3600	=SET{A991='なので削除日無しは空白の'' ''で判定します'};
ZZZZ010814	3700	FORM=      (NULLはそこにはデータが存在しない事を意味します,
ZZZZ010814	3800	FORM=       NULLは"IS [NOT] NULL"以外で条件判定出来ないので,
ZZZZ010814	3900	FORM2="列!=1"等で"1"でないのに
ZZZZ010814	4000	FORM=       その行が選ばれないので
ZZZZ010814	4020	FORM2=プログラムミスの原因に成ります,
ZZZZ010814	4100	FORM=       尚、外部結合等でNULLが発生するので,取り扱いには
ZZZZ010814	4200	FORM2=十分な注意が必要です）
ZZZZ010814	4300	**************************************************
ZZZZ010814	4400	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010814	4500	DATA={O}NEXT1{4}
ZZZZ010814	4600	=SET{NEXT1='NEXT'};
ZZZZ010814	4700	CLICK=SET{_CLICK='N'};
ZZZZ010814	4800	DATA={!}NEXT2{1}
ZZZZ010814	4900	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010814	5000	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010814	5100	=EXIT{0};
ZZZZ010815	100	PROGRAM=NOT
ZZZZ010815	200	=SET{P1='PROGRAM=,&X1,?_Q?_MM?_Q?_家計簿実表'};
ZZZZ010815	300	=SET{P2='LEFT=&X2,?_Q?_MM?_Q?_家計簿内容実表'};
ZZZZ010815	400	=SET{P3='DATA={DG}年月{6}'};
ZZZZ010815	500	=SET{P4='SELECT=?_Q?_SUBSTR(X1.家計簿_年月日;1;6)?_Q?'}
ZZZZ010815	600	=;SET{P5='DATA={}エンゲル係数{3,,+,Z}'};
ZZZZ010815	700	=SET{P6='SELECT=CASE SUM(X1.家計簿_金額) WHEN 0 THEN 0'
ZZZZ010815	800	=+' ELSE'};
ZZZZ010815	900	=SET{P7='SELECT=100*SUM(CASE X2.家計簿_食費 WHEN 1'
ZZZZ010815	1000	=+' THEN'};
ZZZZ010815	1100	=SET{P8='SELECT=X1.家計簿_金額 ELSE 0 END)'
ZZZZ010815	1200	=+'/SUM(X1.家計簿_金額) END'};
ZZZZ010815	1300	=SET{P9='COPY=@ZZZZZZ_SQL'};
ZZZZ010815	1400	*PROGRAM=NOT
ZZZZ010815	1500	FORM=15.1.0 @
ZZZZ010815	1600	DATA={O}A1{73}
ZZZZ010815	1700	=SET{A1='エンゲル係数を求めるプログラムは普通の'
ZZZZ010815	1800	=+'検索プログラムではないので、'};
ZZZZ010815	1900	FORM=       @
ZZZZ010815	2000	DATA={O}A2{73}
ZZZZ010815	2100	=SET{A2='全て下記のように手で入力して作って下さい。'};
ZZZZ010815	2200	FORM=       @
ZZZZ010815	2300	DATA={O}A3{73}
ZZZZ010815	2400	=SET{A3='ジョブ名はZZZZ393901とし処理種類は検索ですので'
ZZZZ010815	2500	=+'OUTPUTとします。'};
ZZZZ010815	2600	*ATA={O,,,W}D0{10}
ZZZZ010815	2700	*SET{D0='ZZZZ393901'};
ZZZZ010815	2800	*ATA={O,,,W}D1{6}
ZZZZ010815	2900	*SET{D1='OUTPUT'};
ZZZZ010815	3000	REPEAT=9
ZZZZ010815	3100	FORM=15.1.## @ @
ZZZZ010815	3200	DATA={O,,,W}N##{4,,+,E}
ZZZZ010815	3300	=SET{N##='##00'};
ZZZZ010815	3400	DATA={O,,,W}P##{61}
ZZZZ010815	3500	2+FORM=       @
ZZZZ010815	3600	2+DATA={O}A4{73}
ZZZZ010815	3700	2+=SET{A4='LEFT=は"LEFT JOIN"でテーブルを結合します'};
ZZZZ010815	3800	3+FORM=       @
ZZZZ010815	3900	3+DATA={O}A5{73}
ZZZZ010815	4000	3+=SET{A5='DはORDER BY で降順にします。'};
ZZZZ010815	4100	3+FORM=       @
ZZZZ010815	4200	3+DATA={O}A6{73}
ZZZZ010815	4300	3+=SET{A6='GはGROUP BY に列情報を挿入し,この単位で集計'
ZZZZ010815	4400	3+=+'します。'};
ZZZZ010815	4500	3+FORM=       @
ZZZZ010815	4600	3+DATA={O}A7{73}
ZZZZ010815	4700	3+=SET{A7='6は6文字表示を意味します。(年4文字+月2文字'
ZZZZ010815	4800	3+=+'=6文字です)'};
ZZZZ010815	4900	4+FORM=       @
ZZZZ010815	5000	4+DATA={O}A8{73}
ZZZZ010815	5100	4+=SET{A8='SELECT=が有るとこれを列名の代わりに検索に'
ZZZZ010815	5200	4+=+'使用します。'};
ZZZZ010815	5300	4+FORM=       @
ZZZZ010815	5400	4+DATA={O}A9{73}
ZZZZ010815	5500	4+=SET{A9='_SUBSTRはSQLソフトで文字部分抜き出しの関数名が'
ZZZZ010815	5600	4+=+'違うので変数で対応します。'};
ZZZZ010815	5700	4+FORM=       @
ZZZZ010815	5800	4+DATA={O}A10{73}
ZZZZ010815	5900	4+=SET{A10='_SUBSTR等の変数内では区切りは, (カンマ)では無く'
ZZZZ010815	6000	4+=+'; (セミコロン)を使います。'};
ZZZZ010815	6100	5+FORM=       @
ZZZZ010815	6200	5+DATA={O}A11{73}
ZZZZ010815	6300	5+=SET{A11='3,,+は正(+)の数値で,有効桁数3桁で、小数部0桁の'
ZZZZ010815	6400	5+=+'意味です。'};
ZZZZ010815	6500	5+FORM=       @
ZZZZ010815	6600	5+DATA={O}A12{73}
ZZZZ010815	6700	5+=SET{A12='Zは0の時に0と表示します。(指定しないと0は表示'
ZZZZ010815	6800	5+=+'しません)'};
ZZZZ010815	6900	8+FORM=       @
ZZZZ010815	7000	8+DATA={O}A13{73}
ZZZZ010815	7100	8+=SET{A13='これがエンゲル係数を計算するＳＱＬ文です。'};
ZZZZ010815	7200	9+FORM=       @
ZZZZ010815	7300	9+DATA={O}A14{73}
ZZZZ010815	7400	9+=SET{A14='これで検索用のSQL文が作られます。'};
ZZZZ010815	7500	1+END
ZZZZ010815	7600	1+=EXIT{0}
ZZZZ010815	7700	REPEAT=
ZZZZ010815	7800	*************************************************
ZZZZ010815	7900	=SET{WN.P1='SELECT SUBSTRING(X1.家計簿_年月日,1,6)'};
ZZZZ010815	8000	=SET{WN.P2=',CASE SUM(X1.家計簿_金額) WHEN 0 THEN 0 ELSE'};
ZZZZ010815	8100	=SET{WN.P3='100*SUM(CASE X2.家計簿_食費 WHEN 1 THEN'
ZZZZ010815	8200	=+' X1.家計簿_金額 ELSE 0 END)'};
ZZZZ010815	8300	=SET{WN.P4='/SUM(X1.家計簿_金額) END'};
ZZZZ010815	8400	=SET{WN.P5='FROM I_XXX_T_M_ZZZY.DBO.ZZZYZZ_家計簿実表 X1'}
ZZZZ010815	8500	=SET{WN.P6='LEFT OUTER JOIN I_XXX_T_M_ZZZY.DBO.'
ZZZZ010815	8600	=+'ZZZYZZ_家計簿内容実表 X2'};
ZZZZ010815	8700	=SET{WN.P7='ON  X2.家計簿_内容=X1.家計簿_内容'};
ZZZZ010815	8800	=SET{WN.P8='AND X2.Z_CANCEL='' '''
ZZZZ010815	8900	=+' WHERE X1.Z_CANCEL='' '''};
ZZZZ010815	9000	=SET{WN.P9='GROUP BY SUBSTRING(X1.家計簿_年月日,1,6)'};
ZZZZ010815	9100	=SET{WN.P10='ORDER BY 1 DESC,2'};
ZZZZ010815	9200	FORM=音声を出す @
ZZZZ010815	9300	=SET{SPEAK='YES'};
ZZZZ010815	9400	DATA=SPEAK{4}{YES,NO}
ZZZZ010815	9500	=IF{_DATA='NO'}EXIT{};
ZZZZ010815	9600	REPEAT=14
ZZZZ010815	9700	=SET{A##@COLOR='Y'};
ZZZZ010815	9800	=SET{WN=A##};
ZZZZ010815	9900	3+|8+|9+|11+=SQL_SET{WN}{SELECT REPLACE('?WN?',
ZZZZ010815	10000	3+|8+|9+='名','めい'
ZZZZ010815	10100	11+='正','せい'
ZZZZ010815	10200	3+|8+|9+|11+=) ?_FROM_DUAL?};
ZZZZ010815	10300	=SPEAK{?WN?};
ZZZZ010815	10400	=SET{A##@COLOR='L'};
ZZZZ010815	10500	REPEAT=
ZZZZ010815	10600	NAME=NEXT
ZZZZ010815	10700	FORM=[?_P(ENTER)?]で次の画面へ @ @
ZZZZ010815	10800	NAME2=NEXT2
ZZZZ010815	10900	DATA={O}NEXT1{4}
ZZZZ010815	11000	=SET{NEXT1='NEXT'};
ZZZZ010815	11100	CLICK=SET{_CLICK='N'};
ZZZZ010815	11200	DATA={!}NEXT2##{1}
ZZZZ010815	11300	NAME=
ZZZZ010815	11400	PROGRAM=NOT
ZZZZ010815	11500	FORM=15.2.0 @
ZZZZ010815	11600	DATA={O}A1{73}
ZZZZ010815	11700	=SET{A1='操作でT(TEST)[?_P(ENTER)?]で実行しエンゲル係数が33'
ZZZZ010815	11800	=+'に成っていれば成功です。'};
ZZZZ010815	11900	FORM=       @
ZZZZ010815	12000	DATA={O}A2{73}
ZZZZ010815	12100	=SET{A2='検索のSQL文が"COPY=?_A?ZZZZZZ_SQL"で下記のように'
ZZZZ010815	12200	=+'組み立てられます。(?_P(MS)?SQL)'};
ZZZZ010815	12300	FORM=       @
ZZZZ010815	12400	DATA={O}A3{73}
ZZZZ010815	12500	=SET{A3='操作でB(BROWSE)[?_P(ENTER)?]で'
ZZZZ010815	12600	=+'下記のSQL文を見る事が出来ます。'};
ZZZZ010815	12700	REPEAT=10
ZZZZ010815	12800	FORM=15.2.## @
ZZZZ010815	12900	DATA={O,,,W}$WN.P##{66}
ZZZZ010815	13000	1+FORM=       @
ZZZZ010815	13100	1+DATA={O}A4{73}
ZZZZ010815	13200	1+=SET{A4='検索のSQL文はSELECTで,以降に検索する項目が'
ZZZZ010815	13210	1+=+'カンマ区切りで続きます。'};
ZZZZ010815	13300	1+FORM=       @
ZZZZ010815	13400	1+DATA={O}A5{73}
ZZZZ010815	13500	1+=SET{A5='_SUBSTRは?_P(MS)?SQLの場合はSUBSTRING'
ZZZZ010815	13600	1+=+'で1,6で先頭から6文字で年月です。'}
ZZZZ010815	13700	2+FORM=       @
ZZZZ010815	13800	2+DATA={O}A6{73}
ZZZZ010815	13900	2+=SET{A6='分母が0だとSQLがエラーと成るのでCASEを使って'
ZZZZ010815	14000	2+=+'分母が0は0とします。'};
ZZZZ010815	14100	3+FORM=       @
ZZZZ010815	14200	3+DATA={O}A7{73}
ZZZZ010815	14300	3+=SET{A7='SUMは合計します,家計簿_食費が1の時だけ'
ZZZZ010815	14400	3+=+'加算で分子は食費と成ります'};
ZZZZ010815	14500	3+FORM=       @
ZZZZ010815	14600	3+DATA={O}A8{73}
ZZZZ010815	14700	3+=SET{A8='"100*"で100倍してパーセントにしています。'};
ZZZZ010815	14800	4+FORM=       @
ZZZZ010815	14900	4+DATA={O}A9{73}
ZZZZ010815	15000	4+=SET{A9='分母はSUMのみですので総額と成ります。'};
ZZZZ010815	15100	5+FORM=       @
ZZZZ010815	15200	5+DATA={O}A10{73}
ZZZZ010815	15300	5+=SET{A10='FORMでテーブルを指定します。'
ZZZZ010815	15400	5+=};
ZZZZ010815	15410	6+FORM=       @
ZZZZ010815	15420	6+DATA={O}A11{73}
ZZZZ010815	15430	6+=SET{A11='LEFTで結合するテーブルを指定します。'
ZZZZ010815	15440	6+=};
ZZZZ010815	15500	7+FORM=       @
ZZZZ010815	15600	7+DATA={O}A12{73}
ZZZZ010815	15700	7+=SET{A12='ONで結合条件を指定し,デフォルトではX2の主キーを'
ZZZZ010815	15800	7+=+'結合条件とします。'};
ZZZZ010815	15900	8+FORM=       @
ZZZZ010815	16000	8+DATA={O}A13{73}
ZZZZ010815	16100	8+=SET{A13='Z_CANCEL='' ''でX2とX1の論理削除行を除いて検索'
ZZZZ010815	16110	8+=+'します。'};
ZZZZ010815	16200	9+FORM=       @
ZZZZ010815	16300	9+DATA={O}A14{73}
ZZZZ010815	16400	9+=SET{A14='GROUPで年月単位に集計します。'};
ZZZZ010815	16500	10+FORM=       @
ZZZZ010815	16600	10+DATA={O}A15{73}
ZZZZ010815	16700	10+=SET{A15='ORDERで番号を使って並び替えをしていますが'
ZZZZ010815	16800	10+=+',標準SQLで廃止機能です,'};
ZZZZ010815	16900	10+FORM=       @
ZZZZ010815	17000	10+DATA={O}A16{73}
ZZZZ010815	17100	10+=SET{A16='なので,将来万が一廃止された場合はI言語を'
ZZZZ010815	17200	10+=+'修正する必要が有ります。'};
ZZZZ010815	17300	REPEAT=
ZZZZ010815	17400	FORM=音声を出す @
ZZZZ010815	17500	=SET{SPEAK='YES'};
ZZZZ010815	17600	DATA=SPEAK{4}{YES,NO}
ZZZZ010815	17700	=IF{_DATA='NO'}EXIT{};
ZZZZ010815	17800	REPEAT=16
ZZZZ010815	17900	=SET{A##@COLOR='Y'};
ZZZZ010815	18000	=SET{WN=A##};
ZZZZ010815	18100	2+|13+=SQL_SET{WN}{SELECT REPLACE('?WN?',
ZZZZ010815	18200	2+='?_A?','アットマーク'
ZZZZ010815	18300	13+='Z_CANCEL','ゼットアンダーバーキャンセル'
ZZZZ010815	18400	2+|13+=) ?_FROM_DUAL?};
ZZZZ010815	18500	=SPEAK{?WN?};
ZZZZ010815	18600	=SET{A##@COLOR='L'};
ZZZZ010815	18700	REPEAT=
ZZZZ010815	18800	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010815	18900	COPY=NEXT2
ZZZZ010815	19000	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010815	19100	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010815	19200	=EXIT{0};
ZZZZ010816	100	PROGRAM=NOT
ZZZZ010816	200	FORM=16.1 システム作りで一番重要な事は,日々の作業時間を,
ZZZZ010816	300	FORM2=システム化して減らす事です。
ZZZZ010816	400	FORM=     家計簿の場合は銀行の情報を使えば,完全自動化も可能
ZZZZ010816	500	FORM2=ですが、
ZZZZ010816	600	FORM=     今回は,I言語の持っているバッチ処理の時間起動の処理
ZZZZ010816	700	FORM2=で半自動化を行います。
ZZZZ010816	800	FORM=16.2 どの様な部分を半自動にするかの検討をします。
ZZZZ010816	900	FORM=     半自動に出来るのは定期的に発生する物です。
ZZZZ010816	1000	FORM=     そこで,定期的に発生する物を過去の家計簿から調査し
ZZZZ010816	1100	FORM2=仕様を決めます。
ZZZZ010816	1200	FORM=16.3 下記が調査結果の１例です。(勉強ですので,簡単に実現
ZZZZ010816	1300	FORM2=可能な仕様としています）
ZZZZ010816	1400	FORM=16.3.1 毎月一定額を払う物---------新聞代。
ZZZZ010816	1500	FORM=       (毎月を"間隔"=1とし、"金額"に決まった額を入れる)
ZZZZ010816	1600	FORM=       ("日"はほぼ決まっていて銀行の場合休日はずれ
ZZZZ010816	1700	FORM2=ますが
ZZZZ010816	1800	FORM=        今回は日を持たないで全て翌月の01日とします）
ZZZZ010816	1900	FORM=16.3.2 毎月変動額を払う物---------電気代。
ZZZZ010816	2000	FORM=       ("金額"におよその額を入れ,"仮設定"='仮'とする）
ZZZZ010816	2100	FORM=16.3.3 2ヶ月置きに変動額を払う物--水道代。
ZZZZ010816	2200	FORM=       ("間隔"=2とし,前月計算を簡単にする為
ZZZZ010816	2300	FORM2=奇数月に,当月分と次月分が偶数月で発生する事とする）
ZZZZ010816	2400	FORM=       (エンゲル係数計算では前月と当月で
ZZZZ010816	2500	FORM2=金額を半分にする)
ZZZZ010816	2600	FORM=16.3.4 次年度1年分を1回で払う物---火災保険。
ZZZZ010816	2700	FORM=       ("間隔"=12とし,11月に12月で登録する事とする）
ZZZZ010816	2800	FORM=       (エンゲル係数計算では次年で1月から12月まで12等
ZZZZ010816	2900	FORM2=分する）
ZZZZ010816	3000	*************************************************************
ZZZZ010816	3100	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010816	3200	***************************************************
ZZZZ010816	3300	NAME=NEXT
ZZZZ010816	3400	*FORM=[?_P(ENTER)?]で次の画面へ @    @
ZZZZ010816	3500	NAME2=NEXT2
ZZZZ010816	3600	DATA={O}NEXT1{4}
ZZZZ010816	3700	=SET{NEXT1='NEXT'};
ZZZZ010816	3800	CLICK=SET{_CLICK='N'};
ZZZZ010816	3900	DATA={!}NEXT2{1}
ZZZZ010816	4000	NAME=
ZZZZ010816	4100	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010816	4200	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010816	4300	=EXIT{0};
ZZZZ010817	100	PROGRAM=NOT
ZZZZ010817	200	FORM=18.4    ●テーブル名= @
ZZZZ010817	300	DATA={O,,,E}A0{21};
ZZZZ010817	400	=SET{A0='ZZZYZZ_家計簿内容実表'};
ZZZZ010817	500	**************( 1/2 )*******************************
ZZZZ010817	600	FORM=18.4.1 ○列名(1/5)="家計簿_内容"主キー(1/1)
ZZZZ010817	700	FORM=18.4.2 ○列名(2/5)="家計簿_食費"
ZZZZ010817	800	FORM=18.4.3 ○列名(3/5)=@  @ [ @ ]
ZZZZ010817	900	DATA={O,,,B}A31{13}
ZZZZ010817	1000	=SET{A31='家計簿_間隔'};
ZZZZ010817	1100	DATA={O,,,B}A32{12}
ZZZZ010817	1200	=SET{A32='DECIMAL(2,0)'};
ZZZZ010817	1300	DATA={O,,,Y}A33{7}
ZZZZ010817	1400	=SET{A33='型1=''+'''};
ZZZZ010817	1500	FORM=18.4.3.1  ★ @ 。
ZZZZ010817	1600	DATA={O,,,W}A34{41}
ZZZZ010817	1700	=SET{A34='"0"か"1"か"2"か"12"が入力出来る事とします'};
ZZZZ010817	1800	FORM=          「チェック=' @ ',チェック61=' @ '」
ZZZZ010817	1910	DATA={O,,,W}A3401{5}
ZZZZ010817	1920	=SET{A3401='CHECK'};
ZZZZ010817	1930	DATA={O,,,W}A3402{8}
ZZZZ010817	1940	=SET{A3402='0,1,2,12'};
ZZZZ010817	1950	FORM =            @ 。
ZZZZ010817	1960	DATA={O,,,W}A3403{46}
ZZZZ010817	1970	=SET{A3403='0の時は仮設定を""で金額を0にして金額に飛びます'};
ZZZZ010817	2000	FORM=18.4.3.2  ★ @
ZZZZ010817	2100	DATA={O,,,P}A341{66}
ZZZZ010817	2200	=SET{A341='I言語は最後の入力は更新処理に行くので'
ZZZZ010817	2300	=+'[?_P(ENTER)?]以外では次に行きません'};
ZZZZ010817	2400	FORM=             @ 。
ZZZZ010817	2500	DATA={O,,,P}A342{62}
ZZZZ010817	2600	=SET{A342='なので, 最後の入力で必ず入力が出来るように'
ZZZZ010817	2700	=+'プログラムを作ります'};
ZZZZ010817	2800	FORM=18.4.4 ○列名(4/5)= @  @ [ @ }
ZZZZ010817	2900	DATA={O,,,B}A51{13}
ZZZZ010817	3000	=SET{A51='家計簿_仮設定'};
ZZZZ010817	3100	DATA={O,,,B}A52{12}
ZZZZ010817	3200	=SET{A52='NCHAR(2)'};
ZZZZ010817	3300	DATA={O,,,Y}A53{7}
ZZZZ010817	3400	=SET{A53='型1=''J'''};
ZZZZ010817	3500	FORM=18.4.4.1  ★ @ 。
ZZZZ010817	3600	DATA={O,,,W}A54{30}
ZZZZ010817	3700	=SET{A54='""か"仮"が入力出来る事とします'};
ZZZZ010817	3800	FORM=          「チェック=' @ ',チェック61=' @ '」
ZZZZ010817	3810	DATA={O,,,W}A541{5}
ZZZZ010817	3820	=SET{A541='CHECK'};
ZZZZ010817	3830	DATA={O,,,W}A542{3}
ZZZZ010817	3840	=SET{A542=',仮'};
ZZZZ010817	3900	FORM=18.4.5 ○列名(5/5)= @
ZZZZ010817	4000	DATA={O,,,B}A55{11}
ZZZZ010817	4100	=SET{A55='家計簿_金額'};
ZZZZ010817	4200	FORM=18.4.5.1  ★ @ 。
ZZZZ010817	4300	DATA={O,,,W}A64{29}
ZZZZ010817	4400	=SET{A64='0も入力出来る事とします'};
ZZZZ010817	4500	FORM=          "間隔が0は0,間隔が0以外は1以上とし,プログラム
ZZZZ010817	4600	FORM2=で切り替えます。
ZZZZ010817	4700	FORM=18.5    ●テーブル名= @
ZZZZ010817	4800	DATA={O,,,E}A1{21};
ZZZZ010817	4900	=SET{A1='ZZZYZZ_家計簿実表'};
ZZZZ010817	5000	**************( 1/2 )*******************************
ZZZZ010817	5100	FORM=18.5.1 ○列名(1/4)="家計簿_年月日"主キー(1/2)
ZZZZ010817	5200	FORM=18.5.2 ○列名(2/4)="家計簿_内容"
ZZZZ010817	5300	FORM=18.5.2.1  ★ @ 。
ZZZZ010817	5400	DATA={O,,,W}A521{42}
ZZZZ010817	5500	=SET{A521='"家計簿_間隔"か"0"のみ入力出来る事とします'};
ZZZZ010817	5600	FORM=          「チェック64=' @ '」
ZZZZ010817	5610	DATA={O,,,W}A522{18}
ZZZZ010817	5620	=SET{A522='?_Q?_X?_Q?.家計簿_間隔=0'};
ZZZZ010817	5700	FORM=           (列名には別名とし'?_Q?_X?_Q?.'
ZZZZ010817	5800	FORM2=を付ける必要が有ります)
ZZZZ010817	5900	FORM=18.5.3 ○列名(3/4)="家計簿_金額"
ZZZZ010817	6000	FORM=18.5.4 ○列名(4/4)= @
ZZZZ010817	6100	DATA={O,,,B}AA51{13}
ZZZZ010817	6200	=SET{AA51='家計簿_仮設定'};
ZZZZ010817	6300	FORM=18.5.4.1  ★ @ 。
ZZZZ010817	6400	DATA={O,,,W}AA54{36}
ZZZZ010817	6500	=SET{AA54='"仮"に対し正し値を入れたら""にします'};
ZZZZ010817	6600	***************************************************
ZZZZ010817	6700	NAME=NEXT
ZZZZ010817	6800	*FORM=[?_P(ENTER)?]で次の画面へ @    @
ZZZZ010817	6900	NAME2=NEXT2
ZZZZ010817	7000	DATA={O}NEXT1{4}
ZZZZ010817	7100	=SET{NEXT1='NEXT'};
ZZZZ010817	7200	CLICK=SET{_CLICK='N'};
ZZZZ010817	7300	DATA={!}NEXT2{1}
ZZZZ010817	7400	NAME=
ZZZZ010817	8200	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010817	8400	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010817	8500	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010817	8600	*EXIT{0};
ZZZZ010818	100	PROGRAM=NOT
ZZZZ010818	101	=SET{D01='家計簿_間隔'};
ZZZZ010818	102	=SET{D02='家計簿_仮設定'};
ZZZZ010818	103	=SET{D03='ZZZYZZ_家計簿内容実表'};
ZZZZ010818	104	=SET{D04='家計簿_間隔'};
ZZZZ010818	105	=SET{D05='家計簿_仮設定'};
ZZZZ010818	106	=SET{D06='家計簿_金額'};
ZZZZ010818	107	=SET{D07='ZZZYZZ_家計簿実表'};
ZZZZ010818	108	=SET{D08='家計簿_仮設定'};
ZZZZ010818	112	DATA={O,,,B}D01{11}
ZZZZ010818	113	DATA={O,,,B}D02{13}
ZZZZ010818	114	DATA={O,,,E}D03{21}
ZZZZ010818	115	DATA={O,,,B}D04{11}
ZZZZ010818	116	DATA={O,,,B}D05{13}
ZZZZ010818	117	DATA={O,,,B}D06{11}
ZZZZ010818	118	DATA={O,,,E}D07{17}
ZZZZ010818	119	DATA={O,,,B}D08{13}
ZZZZ010818	200	FORM=18.1 既にデータ辞書とテーブルの更新方法を勉強しているの
ZZZZ010818	300	FORM=     自力で、 @ と @ のデータ辞書を作成し,
ZZZZ010818	600	FORM=     @ に @ と @ と @ を作成し
ZZZZ010818	900	FORM=     @ に @ を作成して下さい。
ZZZZ010818	1100	*************************************************************
ZZZZ010818	1200	*FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010818	1300	************************************************************
ZZZZ010818	1400	NAME=NEXT
ZZZZ010818	1500	FORM=[?_P(ENTER)?]で次の画面へ @ @
ZZZZ010818	1600	NAME2=NEXT2
ZZZZ010818	1700	DATA={O}NEXT1{4}
ZZZZ010818	1800	=SET{NEXT1='NEXT'};
ZZZZ010818	1900	CLICK=SET{_CLICK='N'};
ZZZZ010818	2000	DATA={!}NEXT2{1}
ZZZZ010818	2100	NAME=
ZZZZ010818	2200	END
ZZZZ010818	2300	=EXIT{0};
ZZZZ010818	2400	PROGRAM=NOT
ZZZZ010818	2500	FORM=18.2 既にプログラムの更新方法は勉強したので,
ZZZZ010818	2600	FORM2="テスト 全      プログラム 更新"
ZZZZ010818	2700	FORM=    で"ZZZZ393922"の
ZZZZ010818	2800	FORM2="家計簿内容 更新"のプログラム更新画面を開きます。
ZZZZ010818	2900	FORM=18.2.1 テーブルを作りなおしたので,一旦全行を削除します。
ZZZZ010818	3000	FORM=18.2.2 @で更新処理に行きます。
ZZZZ010818	3100	DATA={O,,,Y}D21{2}
ZZZZ010818	3200	=SET{D21='←'};
ZZZZ010818	3300	FORM=18.2.3 @で先頭行を選択します。
ZZZZ010818	3400	DATA={O,,,Y}D22{1}
ZZZZ010818	3500	=SET{D22='0'};
ZZZZ010818	3600	FORM=18.2.4 @を"OPTION"で選び @ で検索します。
ZZZZ010818	3700	DATA={O,,,Y}D23{6}
ZZZZ010818	3800	=SET{D23='CANCEL'};
ZZZZ010818	3900	DATA={O,,,Y}D231{7}
ZZZZ010818	4000	=SET{D231='[?_P(ENTER)?]'};
ZZZZ010818	4100	FORM=18.2.4 @ で選択処理に行きます。
ZZZZ010818	4200	DATA={O,,,Y}D24{2}
ZZZZ010818	4300	=SET{D24='←'};
ZZZZ010818	4400	FORM=18.2.5 @ を数回押し最後の行へ行きます。
ZZZZ010818	4500	DATA={O,,,Y}D25{2}
ZZZZ010818	4600	=SET{D25='↓'};
ZZZZ010818	4700	FORM=18.2.6 @ で最終行を選択します。
ZZZZ010818	4800	DATA={O,,,Y}D26{1}
ZZZZ010818	4900	=SET{D26='0'};
ZZZZ010818	5000	FORM=18.2.7 @ を"YES"に入れ @ を押します。
ZZZZ010818	5100	DATA={O,,,Y}D27{3}
ZZZZ010818	5200	=SET{D27='YES'};
ZZZZ010818	5300	DATA={O,,,Y}D271{7}
ZZZZ010818	5400	=SET{D271='[?_P(ENTER)?]'};
ZZZZ010818	5500	FORM=18.2.8 画面が戻って全ての行が「*削除済み」で削除されて
ZZZZ010818	5600	FORM2=います。
ZZZZ010818	5700	FORM=18.2.9 @ を"操作"に入れ @ を押せば,論理削除行が全て物理
ZZZZ010818	5800	FORM2=削除されます。
ZZZZ010818	5900	DATA={O,,,Y}D28{7}
ZZZZ010818	6000	=SET{D28='DISCARD'};
ZZZZ010818	6100	DATA={O,,,Y}D281{7}
ZZZZ010818	6200	=SET{D281='[?_P(ENTER)?]'};
ZZZZ010818	6300	FORM=18.2.10 @ を"操作"に入れ"ZZZYZZ_家計簿内容実表"で,再度
ZZZZ010818	6400	FORM2=プログラムを作ります。
ZZZZ010818	6500	DATA={O,,,Y}D29{7}
ZZZZ010818	6600	=SET{D29='TABLE 1'};
ZZZZ010818	6700	FORM=18.2.11「0の時は仮設定を""で金額を0にし,金額に飛びます」
ZZZZ010818	6800	FORM2=を実現の為4行を作成します。
ZZZZ010818	6810	FORM=*1300 DATA={}?_Q?&.DATA&家計簿_間隔?_Q?  の下に作成。
ZZZZ010818	6900	REPEAT=4
ZZZZ010818	7000	FORM= @ @
ZZZZ010818	7100	DATA={O,,,Y}D41##{4}
ZZZZ010818	7200	4-=SET{D41##='13##0'};
ZZZZ010818	7300	4+=SET{D41##='1710'};
ZZZZ010818	7400	DATA={O,,,Y}D42##{61}
ZZZZ010818	7500	1+=SET{D421='=IF{_DATA!=0}SET{WC.CHECK=''(1,)''}EXIT{};'};
ZZZZ010818	7600	1+FORM=   (先頭が=から始まる物はその上のDATA=等の入力後実行
ZZZZ010818	7700	1+FORM2=される命令が書けます)
ZZZZ010818	7800	1+FORM=   (_DATAは現在処理中のデータの内容です)
ZZZZ010818	7819	2+FORM=   (間隔が0の時'(0,0)'で"家計簿_金額"に0以外
ZZZZ010818	7820	2+FORM2=入力出来ないようにしています)
ZZZZ010818	7900	1+FORM=   (間隔が0以外は'(1,)'で"家計簿_金額"に0を
ZZZZ010818	8000	1+FORM2=入力出来ないようにしています)
ZZZZ010818	8100	1+FORM=   (Wから始まるデータ名は何も宣言しなくても使えます,
ZZZZ010818	8200	1+FORM=    2文字目がデータ型の宣言で
ZZZZ010818	8300	1+FORM2=CはCHARの意味となります)
ZZZZ010818	8400	1+FORM=   (EXIT{};で次の入力項目に行きます)
ZZZZ010818	8500	2+=SET{D422='=SET{家計簿_仮設定=,'
ZZZZ010818	8600	2+=+'家計簿_金額=0,WC.CHECK=''(0,0)''};'};
ZZZZ010818	8700	2+FORM=   (家計簿_仮設定を空白にして,
ZZZZ010818	8800	2+FORM2=家計簿_金額"に0を入れ,0のみ可にしています)
ZZZZ010818	8900	3+=SET{D423='=EXIT{家計簿_金額};'};
ZZZZ010818	9000	3+FORM=   ("EXIT"で次の入力項目を指定しており,家計簿_金額の
ZZZZ010818	9100	3+FORM2=入力に飛びます)
ZZZZ010818	9110	3+FORM=*1700 DATA={}?_Q?&.DATA&家計簿_金額?_Q?  の下に作成。
ZZZZ010818	9200	4+=SET{D424='CHECK=?_Q?WC.CHECK?_Q?'};
ZZZZ010818	9300	4+FORM=   (家計簿_金額の入力チェックをしています)
ZZZZ010818	9400	REPEAT=
ZZZZ010818	9500	COPY=NEXT
ZZZZ010818	9600	BEGIN
ZZZZ010818	9700	=SET{W0.1=8,W0.2=1,W0.3=2,W0.4=2,W0.5=6};
ZZZZ010818	9800	PROGRAM=NOT
ZZZZ010818	9900	BEGIN
ZZZZ010818	10000	=SET{D11='食代１'   ,D12=1,D13=' 1',D14='仮',D15=' 1,000'};
ZZZZ010818	10100	=SET{D21='新聞代'  ,D22=0,D23=' 1',D24=    ,D25=' 3,000'};
ZZZZ010818	10200	=SET{D31='食代２'   ,D32=1,D33=' 2',D34='仮',D35='10,000'};
ZZZZ010818	10300	=SET{D41='水道代'  ,D42=0,D43=' 2',D44='仮',D45='10,000'};
ZZZZ010818	10400	=SET{D51='食代１２'  ,D52=1,D53=12  ,D54='仮',D55='12,000'};
ZZZZ010818	10500	=SET{D61='火災保険',D62=0,D63=12  ,D64=    ,D65='48,000'};
ZZZZ010818	10600	FORM=1.3 "T"で"家計簿内容更新"を起動し以下の行を作成します。
ZZZZ010818	10700	FORM=    (結果確認用で食代1,食代2,食代12を作成しています)
ZZZZ010818	10800	FORM=    内容 　　食費 間隔 仮設定 金額
ZZZZ010818	10900	REPEAT0=6
ZZZZ010818	11000	FORM=     @        @    @    @      @
ZZZZ010818	11100	REPEAT=5
ZZZZ010818	11200	DATA={O,,,Y}D$$##{?W0.##?}
ZZZZ010818	11300	REPEAT0=
ZZZZ010818	11400	COPY=NEXT
ZZZZ010818	11500	PROGRAM=NOT
ZZZZ010818	11600	FORM=1.4 "ZZZZ393921"の"家計簿更新"のプログラムも全ての行を
ZZZZ010818	11700	FORM2=消して作り直します。
ZZZZ010818	11800	FORM=1.4.1 このプログラムは下記１行を修正します。
ZZZZ010818	11900	FORM= @ @
ZZZZ010818	12000	DATA={O,,,Y}D13{3}
ZZZZ010818	12100	=SET{D13='800'};
ZZZZ010818	12200	DATA={O,,,Y}D14{61}
ZZZZ010818	12300	=SET{D14='SET={}.?_Q?&.DATA&家計簿_仮設定?_Q?'};
ZZZZ010818	12400	FORM=    (先頭の'*'を取ります）
ZZZZ010818	12500	FORM=    ("&.SET&"を"&.DATA&"にします,これでデータ辞書の
ZZZZ010818	12600	FORM2=チェックが有効に成ります,
ZZZZ010818	12700	FORM=     ''と'仮'が入力出来,'仮'で仮から始まる行
ZZZZ010818	12800	FORM2=のみが検索出来ます)
ZZZZ010818	12900	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010818	13000	COPY=NEXT2
ZZZZ010818	13100	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010818	13200	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010818	13300	=EXIT{0};
ZZZZ010819	100	***********************************************************
ZZZZ010819	200	PROGRAM=NOT
ZZZZ010819	300	FORM=10.1.01 バッチ処理は,途中でエラー終了した場合の
ZZZZ010819	400	FORM2=対処方法を検討する必要があります。
ZZZZ010819	500	FORM=        基本的には途中でエラーが起きた場合は,エラー原因
ZZZZ010819	600	FORM2=を取り除いて,
ZZZZ010819	700	FORM=        そのジョブの先頭から再実行すれば良いように作りま
ZZZZ010819	800	FORM2=す,
ZZZZ010819	900	FORM=        今回は既に作成済みの行が有る時は,
ZZZZ010819	1000	FORM2=その行は何もしない事で対応します。
ZZZZ010819	1200	FORM=10.1.02 バッチ処理は"ZZZZ010222"の
ZZZZ010819	1300	FORM2="テスト 時間起動プログラム 更新"で作ります,
ZZZZ010819	1400	FORM=        使用者"ZZZZZZZY"で実行して下さい。
ZZZZ010819	1500	FORM=10.1.03 @ で更新処理へ行きます。
ZZZZ010819	1600	DATA={O,,,Y}D3{2}
ZZZZ010819	1700	=SET{D3='←'};
ZZZZ010819	1800	FORM=10.1.04 @ で作成処理を実行します。
ZZZZ010819	1900	DATA={O,,,Y}D4{1}
ZZZZ010819	2000	=SET{D4='2'};
ZZZZ010819	2100	FORM=10.1.05 @ を"テスト"に入れます。
ZZZZ010819	2200	DATA={O,,,E}D5{4}
ZZZZ010819	2300	=SET{D5='TEST'};
ZZZZ010819	2400	FORM=10.1.06 @ を"時"に入れます。
ZZZZ010819	2500	DATA={O,,,Y}D6{2}
ZZZZ010819	2600	=SET{D6='17'};
ZZZZ010819	2700	FORM2=(バッチ処理を起動する時間です)
ZZZZ010819	2800	FORM=10.1.07 @ を"分"に入れます。
ZZZZ010819	2900	DATA={O,,,Y}D7{2}
ZZZZ010819	3000	=SET{D7='00'};
ZZZZ010819	3100	FORM2=(バッチ処理を起動する分です)
ZZZZ010819	3200	FORM=10.1.08 @ を"M0"に入れます。
ZZZZ010819	3300	DATA={O,,,E}D8{4}
ZZZZ010819	3400	=SET{D8='ZZZZ'};
ZZZZ010819	3500	FORM=10.1.09 @ を"M1"に入れます。
ZZZZ010819	3600	DATA={O,,,Y}D9{2}
ZZZZ010819	3700	=SET{D9='98'};
ZZZZ010819	3800	FORM2=(50から99の80を除いた物がバッチ用です）
ZZZZ010819	3900	FORM=10.1.10 @ を"M2"に入れます。
ZZZZ010819	4000	DATA={O,,,Y}D10{2}
ZZZZ010819	4100	=SET{D10='98'};
ZZZZ010819	4200	FORM2=(01から99が使用可能です）
ZZZZ010819	4300	FORM=10.1.11 @ を"タイミング"に入れます。
ZZZZ010819	4400	DATA={O,,,Y}D11{2}
ZZZZ010819	4500	=SET{D11='M'};
ZZZZ010819	4600	FORM2=('M'は毎月実行します)
ZZZZ010819	4700	FORM=10.1.12 @ を"始末"に入れます。
ZZZZ010819	4800	DATA={O,,,Y}D12{1}
ZZZZ010819	4900	=SET{D12='-'};
ZZZZ010819	5000	FORM2=('-'は月末から稼働日に実行します）
ZZZZ010819	5100	FORM=10.1.13 @ を"何日"に入れます。
ZZZZ010819	5200	DATA={O,,,Y}D13{2}
ZZZZ010819	5300	=SET{D13='01'};
ZZZZ010819	5400	FORM2=('01'は稼働の末日と成ります）
ZZZZ010819	5500	FORM=10.1.14 @ で最後の"メニュー"に行きます。
ZZZZ010819	5600	DATA={O,,,Y}D14{2}
ZZZZ010819	5700	=SET{D14='↓'};
ZZZZ010819	5800	FORM=10.1.15 @ を"ドキュメント"に入れます。
ZZZZ010819	5900	DATA={O,,,Y}D15{10}
ZZZZ010819	6000	=SET{D15='家計簿作成'};
ZZZZ010819	6100	FORM=10.1.16 @ で"！作成ＯＫ"と出れば時間起動が出来ました。
ZZZZ010819	6200	DATA={O,,,Y}D16{7}
ZZZZ010819	6300	=SET{D16='[?_P(ENTER)?]'};
ZZZZ010819	6400	FORM=10.1.17 @ でメニュー更新画面に行きます。
ZZZZ010819	6500	DATA={O,,,Y}D17{1}
ZZZZ010819	6600	=SET{D17='0'};
ZZZZ010819	6700	*********************************************************
ZZZZ010819	6800	NAME=NEXT
ZZZZ010819	6900	FORM=[?_P(ENTER)?]で次の画面へ @ @
ZZZZ010819	7000	NAME2=NEXT2
ZZZZ010819	7100	DATA={O}NEXT1{4}
ZZZZ010819	7200	=SET{NEXT1='NEXT'};
ZZZZ010819	7300	CLICK=SET{_CLICK='N'};
ZZZZ010819	7400	DATA={!}NEXT2{1}
ZZZZ010819	7500	NAME=
ZZZZ010819	7600	END
ZZZZ010819	7700	=EXIT{0};
ZZZZ010819	7800	PROGRAM=NOT
ZZZZ010819	7900	FORM=10.2.01 @ で更新処理へ行きます。
ZZZZ010819	8000	DATA={O,,,Y}D3{2}
ZZZZ010819	8100	=SET{D3='←'};
ZZZZ010819	8200	FORM=10.2.02 @ で作成処理を実行します。
ZZZZ010819	8300	DATA={O,,,Y}D4{1}
ZZZZ010819	8400	=SET{D4='2'};
ZZZZ010819	8500	FORM=10.2.03 @ を"M1"に入れます。
ZZZZ010819	8600	DATA={O,,,Y}D5{2}
ZZZZ010819	8700	=SET{D5='01'};
ZZZZ010819	8800	FORM=       (M0,M1,M2が同じジョブを複数個連続して処理出来ます
ZZZZ010819	8810	FORM2=)
ZZZZ010819	8900	FORM=10.2.04 @ を"テスト"に入れます。
ZZZZ010819	9000	DATA={O,,,Y}D6{4}
ZZZZ010819	9100	=SET{D6='TEST'};
ZZZZ010819	9200	FORM=10.2.05 @ を"許可"に入れます。
ZZZZ010819	9300	DATA={O,,,Y}D7{4}
ZZZZ010819	9400	=SET{D7='ZZZY'};
ZZZZ010819	9500	FORM=10.2.06 @ を"許可区分"に入れます。
ZZZZ010819	9600	DATA={O,,,E}D8{2}
ZZZZ010819	9700	=SET{D8='ZZ'};
ZZZZ010819	9800	FORM=        (時間起動では処理種類は'INPUT'と成ります)
ZZZZ010819	9900	FORM=10.2.07 @ で最後の"メニュー"に行きます。
ZZZZ010819	10000	DATA={O,,,Y}D9{2}
ZZZZ010819	10100	=SET{D9='↓'};
ZZZZ010819	10200	FORM=10.2.08 @ を"メニュー"に入れます。
ZZZZ010819	10300	DATA={O,,,Y}D10{10}
ZZZZ010819	10400	=SET{D10='家計簿作成'};
ZZZZ010819	10500	FORM=10.2.09 @ で"！作成ＯＫ"と出ればメニューが出来ました。
ZZZZ010819	10600	DATA={O,,,Y}D15{7}
ZZZZ010819	10700	=SET{D15='[?_P(ENTER)?]'};
ZZZZ010819	10800	FORM=10.2.10 @ でプログラム更新画面に行きます。
ZZZZ010819	10900	DATA={O,,,Y}D16{1}
ZZZZ010819	11000	=SET{D16='0'};
ZZZZ010819	11100	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010819	11200	COPY=NEXT2
ZZZZ010819	11300	PROGRAM=NOT
ZZZZ010819	11400	FORM=10.3.01 下記のプログラムを作ります。
ZZZZ010819	11500	=SET{P1='FROM=&X1,?_Q?_MM?_Q?_家計簿実表'};
ZZZZ010819	11600	=SET{P2='=SET{WC.YM=_TODAY[1;6]};'};
ZZZZ010819	11800	=SET{P3=
ZZZZ010819	11810	='TEST+=COMPUTE{WC.Y=WC.YM[1;4]+1};SET{WC.YM=WC.Y+11};'};
ZZZZ010819	12000	=SET{P4='=IF{WC.YM[5]=11}SET{WC.12=12}JUMP{};SET{WC.12=1};'};
ZZZZ010819	12100	=SET{P5='=COMPUTE{WC.ODD=WC.YM%2,WC.YM+=1};'};
ZZZZ010819	12200	=SET{P6='=IF{WC.ODD=1}SET{WC.2=2}JUMP{};SET{WC.2=1};'};
ZZZZ010819	12300	=SET{P7='=IF{WC.YM[5]=13}COMPUTE{WC.Y=WC.YM[1;4]+1}SET{WC.YM'
ZZZZ010819	12400	=+'=WC.Y+01};'};
ZZZZ010819	12500	=SET{P8='=SQL1{SELECT ''?_Q?WC.YM?_Q?01'''};
ZZZZ010819	12510	=SET{P9='REPEAT=?_Q?&.ALL_COUNT?_Q?,2'};
ZZZZ010819	12530	=SET{P10='=   ,?_Q?&.ALL_##?_Q?'};
ZZZZ010819	12540	=SET{P11='REPEAT='};
ZZZZ010819	12700	=SET{P12='=   FROM ?_Q?_MM?_Q?_家計簿内容実表'
ZZZZ010819	12800	=+' WHERE Z_CANCEL='' '''};
ZZZZ010819	12810	=SET{P13='=   AND 家計簿_間隔'
ZZZZ010819	13000	=+' IN(1,?_Q?WC.2?_Q?,?_Q?WC.12?_Q?) ORDER BY 1,2};'};
ZZZZ010819	13300	=SET{P14=
ZZZZ010819	13400	= '=SQL1_NEXT:SQL1_NEXT{?_Q?&.WORK?_Q?}JUMP{SQL1_END};'};
ZZZZ010819	13500	=SET{P15='=PROGRAM{2N,?_Q?&.TABLE?_Q?,?_Q?&.WORK_DATA?_Q?}'
ZZZZ010819	13600	=+'{?_Q?&.WORK_KEY?_Q?}{};'};
ZZZZ010819	13700	=SET{P16='=BACK{SQL1_NEXT};SQL1_END:'};
ZZZZ010819	13900	REPEAT=16
ZZZZ010819	14000	FORM=@ @
ZZZZ010819	14100	1+FORM2=  ("&."で始まるテーブル変数を宣言します）
ZZZZ010819	14200	2+FORM2=   (WC.YMに今日の年月を入れます)
ZZZZ010819	14300	3+FORM=   (テストで来年の11月を今日の年月にします）
ZZZZ010819	14310	3+FORM=   (先頭にTEST+を入れるとテスト実行の時のみ実行します)
ZZZZ010819	14400	4+FORM=   (11月は家計簿_間隔が'12'を対象にします）
ZZZZ010819	14410	4+FORM=   (JUMP{};は次の";"までスキップします。）
ZZZZ010819	14500	5+FORM=   (WC.ODDは2で割った余りで,
ZZZZ010819	14510	5+FORM2=奇数月は1が入ります,WC.YMを次月にします)
ZZZZ010819	14600	6+FORM=   (奇数月は家計簿_間隔が'2'を対象にします）
ZZZZ010819	14700	7+FORM=   (13月は来年の1月にします。
ZZZZ010819	14800	8+FORM2=  (対象行を取り出すSQL文を実行します)
ZZZZ010819	14809	9+FORM2=  (家計簿実表の2列目から最後まで繰り返します)
ZZZZ010819	14810	10+FORM2=(#?_#?は繰り返し数で置き換わり計簿実表の列名です)
ZZZZ010819	14820	11+FORM2=  (繰り返しの終わりの指定です)
ZZZZ010819	14900	14+FORM=   (1行づつ取り出し,終了したらSQL1_END:に飛びます）
ZZZZ010819	15000	15+FORM=   (2が作成を意味し,Nは既に有る場合は何もしません)
ZZZZ010819	15100	16+FORM2=  (SQL1_NEXTに戻ります)
ZZZZ010819	15200	DATA={O,,,Y}N##{4,,+,E}
ZZZZ010819	15300	=SET{N##='##00'};
ZZZZ010819	15400	1-2-8-9-10-11-16-DATA={O,,,Y}P##{61}
ZZZZ010819	15500	1+|2+|8+|9+|10+|11+|16+DATA={O,,,Y}P##{26}
ZZZZ010819	15600	REPEAT=
ZZZZ010819	18400	FORM=10.3.02 @ を操作に入れ @ で実行し
ZZZZ010819	18500	FORM2=ENDのメッセージが来れば成功です。
ZZZZ010819	18600	DATA={O,,,Y}D16{1}
ZZZZ010819	18700	=SET{D16='T'};
ZZZZ010819	18800	DATA={O,,,Y}D161{7}
ZZZZ010819	18900	=SET{D161='[?_P(ENTER)?'};
ZZZZ010819	19000	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010819	19100	COPY=NEXT2
ZZZZ010819	19200	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010819	19300	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010819	19400	=EXIT{0};
ZZZZ010820	100	PROGRAM=NOT
ZZZZ010820	200	=SET{WN1='PROGRAM=,&X1,?_Q?_MM?_Q?_家計簿実表'};
ZZZZ010820	300	=SET{WN2='LEFT=&X2,?_Q?_MM?_Q?_家計簿内容実表'};
ZZZZ010820	400	=SET{WN3='DATA={G}年月{6}'};
ZZZZ010820	500	=SET{WN4='SELECT=?_Q?_SUBSTR(X1.家計簿_年月日;1;6)?_Q?'}
ZZZZ010820	600	=;SET{WN5='DATA={}エンゲル係数{3,,+,Z}'};
ZZZZ010820	700	=SET{WN6='SELECT=CASE SUM(X1.家計簿_金額) WHEN 0 THEN 0'
ZZZZ010820	800	=+' ELSE'};
ZZZZ010820	900	=SET{WN7='SELECT=100*SUM(CASE X1.家計簿_食費 WHEN 1'
ZZZZ010820	1000	=+' THEN'};
ZZZZ010820	1100	=SET{WN8='SELECT=X1.家計簿_金額 ELSE 0 END)'
ZZZZ010820	1200	=+'/SUM(X1.家計簿_金額) END'};
ZZZZ010820	1300	=SET{WN9='REPEAT=_SELECT_COUNT'};
ZZZZ010820	1400	=SET{WN10='SQL=?_Q?_SELECT#?_#??_Q?'};
ZZZZ010820	1500	=SET{WN11='REPEAT='};
ZZZZ010820	1600	=SET{WN12=
ZZZZ010820	1700	='SQL=FROM (SELECT X1.家計簿_年月日,X1.家計簿_金額'};
ZZZZ010820	1800	=SET{WN13='SQL=/CASE X2.家計簿_間隔 WHEN 2 THEN 2 ELSE 1 END'
ZZZZ010820	1900	=};
ZZZZ010820	2000	=SET{WN14='SQL=AS 家計簿_金額'};
ZZZZ010820	2100	=SET{WN15='NAME=SQL_A'};
ZZZZ010820	2200	=SET{WN16='SQL=,X2.家計簿_食費'};
ZZZZ010820	2300	=SET{WN17='REPEAT=_FROM_COUNT'};
ZZZZ010820	2400	=SET{WN18='SQL=?_Q?_FROM#?_#??_Q?'};
ZZZZ010820	2500	=SET{WN19='REPEAT='};
ZZZZ010820	2600	=SET{WN20='SQL=WHERE X1.Z_CANCEL='' '' AND X2.家計簿_間隔'};
ZZZZ010820	2700	=SET{WN21='NAME='};
ZZZZ010820	2800	=SET{WN22='SQL=IN(0,1,2) UNION ALL SELECT'};
ZZZZ010820	2900	=SET{WN23='SQL=CAST(CAST(X1.家計簿_年月日 AS INT)-100 AS'
ZZZZ010820	3000	=+' CHAR(8))'};
ZZZZ010820	3100	=SET{WN24='NAME=SQL_B'};
ZZZZ010820	3200	=SET{WN25='SQL=,X1.家計簿_金額/X2.家計簿_間隔'};
ZZZZ010820	3300	=SET{WN26='COPY=SQL_A'};
ZZZZ010820	3400	=SET{WN27='NAME='};
ZZZZ010820	3500	=SET{WN28='SQL==2'};
ZZZZ010820	3600	=SET{WN29='REPEAT0=12'};
ZZZZ010820	3700	=SET{WN30='SQL=UNION ALL SELECT ?_SUBSTR?(CAST(CAST('
ZZZZ010820	3800	=+'X1.家計簿_年月日'};
ZZZZ010820	3900	=SET{WN31='SQL= AS INT)+10000 AS CHAR(8)),1,4)?_Q?_C?_Q?'};
ZZZZ010820	4000	=SET{WN32='$10-$11-$12-SQL=''0'''};
ZZZZ010820	4100	=SET{WN33='SQL=?_Q?_C?_Q?''$?_$?00'''};
ZZZZ010820	4200	=SET{WN34='COPY=SQL_B'};
ZZZZ010820	4300	=SET{WN35='SQL==12'};
ZZZZ010820	4400	=SET{WN36='REPEAT0='};
ZZZZ010820	4500	=SET{WN37='SQL=)X1 ?_Q?_GROUP1?_Q? ORDER BY 1'};
ZZZZ010820	4600	REPEAT=37
ZZZZ010820	4700	=SET{W0##=WN##@FORM_LENGTH,W0N##='##00'};
ZZZZ010820	4800	REPEAT=
ZZZZ010820	4900	PROGRAM=NOT
ZZZZ010820	5000	BEGIN
ZZZZ010820	5100	=SET{WN7@COLOR='R',W0N7@COLOR='R'};
ZZZZ010820	5200	FORM=20.1 今回は複雑なSELECTと成るので,COPY=?_A?ZZZZZZ_SQLを
ZZZZ010820	5300	FORM2=使わないで対応します。
ZZZZ010820	5400	FORM=      尚、800までは700の'X2.'を'X1.'とする以外同じで対応
ZZZZ010820	5500	FORM2=します。
ZZZZ010820	5600	REPEAT=8
ZZZZ010820	5700	FORM= @ @
ZZZZ010820	5800	DATA={O,,,Y}$W0N##{4,,+,E}
ZZZZ010820	6000	*SET{N##='##00'};
ZZZZ010820	6100	DATA={O,,,Y}$WN##{?$W0##?}
ZZZZ010820	6300	REPEAT=
ZZZZ010820	6400	*************************************************
ZZZZ010820	6500	NAME=NEXT
ZZZZ010820	6600	FORM=[?_P(ENTER)?]で次の画面へ @ @
ZZZZ010820	6700	NAME2=NEXT2
ZZZZ010820	6800	DATA={O}NEXT1{4}
ZZZZ010820	6900	=SET{NEXT1='NEXT'};
ZZZZ010820	7000	CLICK=SET{_CLICK='N'};
ZZZZ010820	7100	DATA={!}NEXT2##{1}
ZZZZ010820	7200	NAME=
ZZZZ010820	7300	END
ZZZZ010820	7400	=EXIT{0};
ZZZZ010820	7500	PROGRAM=NOT
ZZZZ010820	7600	REPEAT=23,9
ZZZZ010820	7700	FORM= @ @
ZZZZ010820	7800	9+FORM2=(REPEAT=は_SELECT_COUNTの数の2回繰り返します)
ZZZZ010820	7900	10+FORM2=(#?_#?は最初に繰り返しの数が設定されます)
ZZZZ010820	8000	10+FORM=(_SELECT1は最初のSELECT=の内容[無い時は列名]
ZZZZ010820	8100	10+FORM2=の先頭に'SELECT 'が付きます)
ZZZZ010820	8200	10+FORM=(_SELECT2は2番目のSELECT=の先頭に','が付きます)
ZZZZ010820	8300	11+FORM2=(繰り返しの終わりです)
ZZZZ010820	8400	12+FORM=(FROMの後はテーブルでは無くカッコで囲んだSELECTの
ZZZZ010820	8500	12+FORM2=結果をテーブルと見なします)
ZZZZ010820	8600	13+FORM2=(/は割り算します)
ZZZZ010820	8700	13+FORM=(CASEで条件毎に返す値を変更出来ます,
ZZZZ010820	8800	13+FORM2=家計簿_間隔が2は2ヶ月分なので2で割ります)
ZZZZ010820	8900	14+FORM2=(計算したので別名[列名]を付けます)
ZZZZ010820	9000	15+FORM2=(次のNAME=までをSQL_Aとします)
ZZZZ010820	9100	17+FORM2=(PROGRAM=とLEFT=で値が2と成ります）
ZZZZ010820	9200	18+FORM2=(FROMとLEFTのテーブル結合のSQLが設定されます）
ZZZZ010820	9300	20+FORM2=(論理削除行は除きます)
ZZZZ010820	9400	21+FORM2=(SQL_Aの終わりです)
ZZZZ010820	9500	22+FORM2=(先頭SELECTは家計簿_間隔が0,1,2を使用)
ZZZZ010820	9600	23+FORM=(CASTはデータ型を変更します,INTは小数点無しで9桁
ZZZZ010820	9700	23+FORM2=以内の数値のデータ型です)
ZZZZ010820	9800	23+FORM=(次のSELECTは家計簿_間隔が2の前月分ですので年月日から
ZZZZ010820	9900	23+FORM2=1月を減らす為-100します)
ZZZZ010820	10000	DATA={O,,,Y}$W0N##{4,,+,E}
ZZZZ010820	10100	*SET{N##='##00'};
ZZZZ010820	10200	DATA={O,,,Y}$WN##{?$W0##?}
ZZZZ010820	10300	REPEAT=
ZZZZ010820	10400	COPY=NEXT
ZZZZ010820	10500	PROGRAM=NOT
ZZZZ010820	10600	REPEAT=37,24
ZZZZ010820	10700	FORM= @ @
ZZZZ010820	10800	25+FORM=(家計簿_金額を家計簿_間隔で割れば
ZZZZ010820	10900	25+FORM2=1ヶ月計算出来ます)
ZZZZ010820	11000	26+FORM2=(ここにSQL_Aがコピーされます)
ZZZZ010820	11100	28+FORM2=(2番目のSELECTは家計簿_間隔が2のみ採用します)
ZZZZ010820	11200	29+FORM2=(12か月分に振り分けるので12回繰り返します)
ZZZZ010820	11300	29+FORM=(COPY=SQL_Bの中のCOPY=SQL_AでREPETAT=を使用している
ZZZZ010820	11400	29+FORM2=のでREPEAT0=とします)
ZZZZ010820	11500	31+FORM=(家計簿_間隔が12は次年にする為+10000で年に1を加えます
ZZZZ010820	11600	31+FORM2=)
ZZZZ010820	11700	32+FORM2=(10,11,12以外は$?_$?が1桁なので0を付加します)
ZZZZ010820	11800	33+FORM2=($?_$?は最初にREPEAT0=の繰り返し数で置き換わります)
ZZZZ010820	11900	35+FORM2=(3番目のSELECTは家計簿_間隔が12のみ採用します)
ZZZZ010820	12000	37+FORM2=(カッコを閉じてテーブル名をX1とします）
ZZZZ010820	12100	37+FORM=(_GROUP1でGROUP BYの集計単位を指定しています)
ZZZZ010820	12200	37+FORM=(ORDER BY 1 で先頭列の順番に検索します)
ZZZZ010820	12300	DATA={O,,,Y}$W0N##{4,,+,E}
ZZZZ010820	12400	*SET{N##='##00'};
ZZZZ010820	12500	DATA={O,,,Y}$WN##{?$W0##?}
ZZZZ010820	12600	REPEAT=
ZZZZ010820	12700	COPY=NEXT
ZZZZ010820	12800	PROGRAM=NOT
ZZZZ010820	12900	FORM=20.2 "T"でテスト実行の結果下記表示があれば正解です。
ZZZZ010820	13000	FORM=
ZZZZ010820	13100	FORM=20.2.1 来年の11月が50で有れば正解です。
ZZZZ010820	13200	FORM=            　　　　　  　  10,000/2(食代2)=5,000(食費)
ZZZZ010820	13300	FORM=               5,000(食費)+10,000/2(水道代)=10,000(全体)
ZZZZ010820	13400	FORM=                           100*5,000/10,000=50
ZZZZ010820	13500	FORM=
ZZZZ010820	13600	FORM=20.2.2 来年の12月が42で有れば正解です。
ZZZZ010820	13700	FORM=               1,000(食代1)+10,000/2(食代2)=6,000(食費)
ZZZZ010820	13800	FORM= 6,000(食費)+3,000(新聞代)+10,000/2(水道代)=14,000(全体)
ZZZZ010820	13900	FORM=                           100*6,000/14,000=42
ZZZZ010820	14000	FORM=
ZZZZ010820	14100	FORM=20.2.3 再来年の1月から12月までが20で有れば正解です。
ZZZZ010820	14200	FORM=                          12,000/12(食代12)=1,000(食費)
ZZZZ010820	14300	FORM=            1,000(食費)+48,000/12(火災保険)=5,000(全体)
ZZZZ010820	14400	FORM=                            100*1,000/5,000=20
ZZZZ010820	14500	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010820	14600	COPY=NEXT2
ZZZZ010820	14700	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010820	14800	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010820	14900	=EXIT{0};
ZZZZ010821	100	PROGRAM=NOT
ZZZZ010821	200	FORM=21.1 システム開発においてはプログラムの完成は終わりでは
ZZZZ010821	300	FORM2=無く始まりです。
ZZZZ010821	400	FORM=     つまり、出来たプログラミの半分以上は実際には使い物
ZZZZ010821	500	FORM2=に成りません。
ZZZZ010821	600	FORM=     出来たプログラムは赤ん坊と同じで、育てて初めて一人
ZZZZ010821	700	FORM2=前に使えるように成ります。
ZZZZ010821	800	FORM=     そこで、実際に使う人に使ってもらって、使える物に
ZZZZ010821	900	FORM2=します。
ZZZZ010821	1000	FORM=21.2 開発したプログラムを実際に動かせるように
ZZZZ010821	1100	FORM2=します。
ZZZZ010821	1200	FORM=21.3 最初のメニューから作ったジョブまでのメニューを作り
ZZZZ010821	1300	FORM2=ます。
ZZZZ010821	1400	FORM=21.4 ZZZZ010221の"テスト 全      プログラム 更新"で
ZZZZ010821	1500	FORM2='ZZZZ390000"のメニューと
ZZZZ010821	1600	FORM=     'ZZZZ3900"のニューを'家計簿メニュー'として作ります
ZZZZ010821	1700	FORM2=。
ZZZZ010821	1800	FORM=21.5 今まで作った物は"テスト"が'TEST'で
ZZZZ010821	1900	FORM2=このままではメニュー上に表示されません。
ZZZZ010821	2000	FORM=     "ZZZZ010220"の"メニュー テスト 本番 切り替え"
ZZZZ010821	2100	FORM2=で'YES'でテストメニューも
ZZZZ010821	2200	FORM=     表示されるので、ここで実際に使ってもらって
ZZZZ010821	2300	FORM2=本当使えるようになるまで
ZZZZ010821	2400	FORM=     修正を繰り返し完成させます。
ZZZZ010821	2500	*************************************************
ZZZZ010821	2600	NAME=NEXT
ZZZZ010821	2700	FORM=[?_P(ENTER)?]で次の画面へ @ @
ZZZZ010821	2800	NAME2=NEXT2
ZZZZ010821	2900	DATA={O}NEXT1{4}
ZZZZ010821	3000	=SET{NEXT1='NEXT'};
ZZZZ010821	3100	CLICK=SET{_CLICK='N'};
ZZZZ010821	3200	DATA={!}NEXT2##{1}
ZZZZ010821	3300	NAME=
ZZZZ010821	3400	END
ZZZZ010821	3500	=EXIT{0};
ZZZZ010821	3600	PROGRAM=NOT
ZZZZ010821	3700	FORM=21.6 全てが完成した段階で全ての物を本番にします。
ZZZZ010821	3800	FORM=21.7 本番にするには"ZZZZ010400"の"システム 管理 メニュー
ZZZZ010821	3900	FORM2=で行います。
ZZZZ010821	3910	FORM=21.8 まず,"ZZZZ010421"の"本番 全       プログラムの更新"
ZZZZ010821	3920	FORM2=で対象のプログラムを全て
ZZZZ010821	3930	FORM=      本番にしても問題が無いか確認します。
ZZZZ010821	3940	FORM=      同時に使われているテーブル名を調べておきます。
ZZZZ010821	3950	FORM=21.9 次に調べておいたテーブルを"ZZZZ010431"の
ZZZZ010821	3960	FORM2="テーブルを    本番移行"で本番に移行します。
ZZZZ010821	3970	FORM=     尚,この時同時にデータ辞書も本番に移行されます。
ZZZZ010821	3980	FORM=21.10 テーブルを全て移行した後、メニューのテストの
ZZZZ010821	3990	FORM2='TEST'を''にして本番用とします。
ZZZZ010821	4000	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010821	4100	COPY=NEXT2
ZZZZ010821	4200	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010821	4300	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010821	4400	=EXIT{0};
ZZZZ010822	100	PROGRAM=NOT
ZZZZ010822	200	REPEAT=8
ZZZZ010822	300	DATA={O,,,Y}D##{68}
ZZZZ010822	400	REPEAT=
ZZZZ010822	500	FORM=22.1 I言語では基本的なSQLはI言語側で対応するので、
ZZZZ010822	600	FORM2=殆どプログラミングは不要ですが、
ZZZZ010822	700	FORM=     実際にはSQLでデータが操作されるので、
ZZZZ010822	800	FORM2=勉強する必要はあります。
ZZZZ010822	900	FORM=22.2 SQLの定義の説明
ZZZZ010822	1000	FORM=(1)テーブルを作る
ZZZZ010822	1100	FORM=   @
ZZZZ010822	1200	=SET{D1='CREATE TABLE テーブル名'+
ZZZZ010822	1300	=+' (列名 データ型 DEFAULT 初期値 NOT NULL[,…])'};
ZZZZ010822	1400	FORM=   ◎データにNULLが有るとプログラムミスの原因が増えるの
ZZZZ010822	1500	FORM2=[NOT NULL]を付けます。
ZZZZ010822	1600	FORM=   ◎NOT NULLのみでは必ず値を入れる必要が有るので
ZZZZ010822	1700	FORM2=DEFAULTで初期値を付けます。
ZZZZ010822	1800	FORM=(2)テーブルを変更する。
ZZZZ010822	1900	FORM=   @
ZZZZ010822	2000	=SET{D2='ALTER TABLE テーブル名 ...'};
ZZZZ010822	2010	FORM=   ◎RDBMS別に仕様が異なるので注意して下さい。
ZZZZ010822	2100	FORM=(3)テーブルを消す。
ZZZZ010822	2200	FORM=   @
ZZZZ010822	2300	=SET{D3='DROP TABLE テーブル名'};
ZZZZ010822	2400	FORM=(4)操作権限をユーザIDに与える。
ZZZZ010822	2500	FORM=   @
ZZZZ010822	2510	FORM=   ◎I言語は該当許可のOUTPUTユーザーにSELECT
ZZZZ010822	2520	FORM2=権限が与えられます。
ZZZZ010822	2530	FORM=   ◎I言語は該当許可のINPUTユーザーにはSELECT,INSERT
ZZZZ010822	2540	FORM2=,UPDATE権限が与えられます。
ZZZZ010822	2550	FORM=     (DELETEは論理削除でUPDATEを使うので付与されません)
ZZZZ010822	2600	=SET{D4='GRANT 操作権限[,…] ON テーブル名 TO ユーザーID'};
ZZZZ010822	2700	FORM=(5)操作権限を取り消す。
ZZZZ010822	2800	FORM=   @
ZZZZ010822	2900	=SET{D5='REVOKE 操作権限[,…] ON テーブル名 FROM ユーザーID'}
ZZZZ010822	2910	=;
ZZZZ010822	3000	FORM=(6)更新結果に矛盾が起きないようにするトランザクションを
ZZZZ010822	3100	FORM2=開始する。
ZZZZ010822	3200	FORM=   @
ZZZZ010822	3300	=SET{D6='BEGIN TRANSACTION'};
ZZZZ010822	3400	FORM=(7)トランザクションの全ての更新を確定する。
ZZZZ010822	3500	FORM=   @
ZZZZ010822	3600	=SET{D7='COMMIT TRANSACTION'};
ZZZZ010822	3700	FORM=(8)トランザクションの全ての更新を取り消す。
ZZZZ010822	3800	FORM=   @
ZZZZ010822	3900	=SET{D8='ROLLBACK TRANSACTION'};
ZZZZ010822	4000	NAME=NEXT
ZZZZ010822	4100	FORM=[?_P(ENTER)?]で次の画面へ @ @
ZZZZ010822	4200	NAME2=NEXT2
ZZZZ010822	4300	DATA={O}NEXT1{4}
ZZZZ010822	4400	=SET{NEXT1='NEXT'};
ZZZZ010822	4500	CLICK=SET{_CLICK='N'};
ZZZZ010822	4600	DATA={!}NEXT2{1}
ZZZZ010822	4700	NAME=
ZZZZ010822	4800	***********************************************************
ZZZZ010822	4900	PROGRAM=NOT
ZZZZ010822	4910	REPEAT=3
ZZZZ010822	5000	DATA={O,,,Y}D1##{71}
ZZZZ010822	5200	REPEAT=4,2
ZZZZ010822	5300	DATA={O,,,Y}D##{68}
ZZZZ010822	5400	REPEAT=
ZZZZ010822	5500	FORM=22.3 SQLの操作の説明
ZZZZ010822	5600	FORM=(1)行を検索する。
ZZZZ010822	5700	FORM=   @
ZZZZ010822	5800	FORM=   @
ZZZZ010822	5810	FORM=   @
ZZZZ010822	5900	=SET{D11='SELECT [DISTINCT] 式,… [FROM テーブル名 [別名]'};
ZZZZ010822	6000	=SET{D12='[結合 テーブル名 [別名] [ON 結合条件]],…] [WHERE '
ZZZZ010822	6010	=+' 検索条件]'};
ZZZZ010822	6100	=SET{D13='[GROUP BY 式,…'
ZZZZ010822	6200	=+' [HAVING 集計条件] [ORDER BY 式 [DESC],…]'};
ZZZZ010822	6210	FORM=   ◎DISTINCTを書くと重複行を１行にします。
ZZZZ010822	6220	FORM=   ◎式に検索内容を書きます。
ZZZZ010822	6230	FORM=   ◎FROMにテーブル名を書きます。
ZZZZ010822	6240	FORM=   ◎結合でテーブル結合しONに結合条件を書きます。
ZZZZ010822	6250	FORM=   ◎WHEREに検索条件を書きます。
ZZZZ010822	6260	FORM=   ◎GROUPとHAVINGは集計関数(SUM,MAX,MIN,AVG,COUNT)を
ZZZZ010822	6262	FORM2=使う時に書きます。
ZZZZ010822	6263	FORM=   ◎ORDERで検索の順番を書きます。(DESCは降順)
ZZZZ010822	6264	FORM=   ◎UNION ALLで繋げれば複数のSELECTが書けます。
ZZZZ010822	6265	FORM=   ◎(SELECT ...)のサブクエリを何処でも書けるので、複雑
ZZZZ010822	6266	FORM2=なニーズに対応出来ます。
ZZZZ010822	6300	FORM=(2)行を作成する。
ZZZZ010822	6400	FORM=   @
ZZZZ010822	6500	=SET{D2='INSERT INTO テーブル名 (列名[,…]) VALUES(値[,…])'
ZZZZ010822	6600	=};
ZZZZ010822	6700	FORM=   ◎VALUES以下をSELECTにする事も出来ます。
ZZZZ010822	6710	FORM=   ◎I言語は削除行は論理削除しているので、作成はUPDATE
ZZZZ010822	6711	FORM2=を使う場合も有ります。
ZZZZ010822	6800	FORM=(3)行を修正する。
ZZZZ010822	6900	FORM=   @
ZZZZ010822	7000	=SET{D3='UPDATE テーブル名 SET 列名=値[,…] [WHERE 条件]'};
ZZZZ010822	7100	FORM=(4)行を削除する。
ZZZZ010822	7200	FORM=   @
ZZZZ010822	7300	=SET{D4='DELETE FROM テーブル名 [WHERE 条件]'};
ZZZZ010822	7310	FORM=   ◎I言語は削除行はUPDATEで論理削除しているので,
ZZZZ010822	7320	FORM2=殆ど使いません。
ZZZZ010822	7400	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010822	7500	COPY=NEXT2
ZZZZ010822	7600	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010822	7700	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010822	7800	=EXIT{0};
ZZZZ010823	100	PROGRAM=NOT
ZZZZ010823	200	FORM=23.1 @ は @ 事を保証する為の物です。
ZZZZ010823	300	DATA={O,,,Y}D10{16}
ZZZZ010823	400	=SET{D10='トランザクション'};
ZZZZ010823	500	DATA={O,,,E}D11{26}
ZZZZ010823	600	=SET{D11='データ更新で矛盾が起きない'};
ZZZZ010823	700	FORM=23.2 @ でトランザクションを開始し,
ZZZZ010823	800	DATA={O,,,Y}D21{17}
ZZZZ010823	900	=SET{D21='BEGIN TRANSACTION'};
ZZZZ010823	1000	FORM2=全ての更新が行われた時点で,
ZZZZ010823	1100	FORM=     @ で全ての更新を確定します。
ZZZZ010823	1200	DATA={O,,,Y}D22{18}
ZZZZ010823	1300	=SET{D22='COMMIT TRANSACTION'};
ZZZZ010823	1400	FORM2=途中でエラーが発生した時は,
ZZZZ010823	1500	FORM=     @ で全ての更新を
ZZZZ010823	1600	DATA={O,,,Y}D23{20}
ZZZZ010823	1700	=SET{D23='ROLLBACK TRANSACTION'};
ZZZZ010823	1800	FORM2=取り消し矛盾が起きない事を保証します。
ZZZZ010823	1900	FORM=     (途中でシステムがクラッシュした場合はROLLBACK
ZZZZ010823	2000	FORM2=したとして復元されます)
ZZZZ010823	2100	FORM=23.3 更新中に矛盾が起きない
ZZZZ010823	2200	FORM2=ようにロック(待たせる)で保証します。
ZZZZ010823	2300	FORM=     例えば、在庫を出庫し仕掛としたい時に、在庫を引いた
ZZZZ010823	2400	FORM2=時点で検索出来ると、
ZZZZ010823	2500	FORM=     仕掛は増えていないので合計数に矛盾が起きて
ZZZZ010823	2600	FORM2=しまうので、
ZZZZ010823	2700	FORM=     @ し矛盾を防ぎます,
ZZZZ010823	2800	DATA={O,,,E}D31{54}
ZZZZ010823	2900	=SET{D31='更新時は他の更新も検索もトランザクション終了ま'
ZZZZ010823	3000	=+'でロック'};
ZZZZ010823	3100	FORM=     他の処理の全てをロックするので @ と言います。
ZZZZ010823	3200	DATA={O,,,Y}D32{36}
ZZZZ010823	3300	=SET{D32='占有ロック(専有,排他,書き込みロック)'};
ZZZZ010823	3400	FORM=23.4 @
ZZZZ010823	3500	DATA={O,,,E}D51{58}
ZZZZ010823	3600	=SET{D51='検索時は更新のみをロックし検索が終ればロックは'
ZZZZ010823	3700	=+'解除されます'};
ZZZZ010823	3800	FORM=     他の検索の全ては共有出来るので@と言います。
ZZZZ010823	3900	DATA={O,,,Y}D52{26}
ZZZZ010823	4000	=SET{D52='共有ロック(読み込みロック)'};
ZZZZ010823	4100	FORM=     尚,トランザクション中でも検索終了で共有ロックは
ZZZZ010823	4200	FORM2=解除されます。
ZZZZ010823	4300	FORM=23.5 検索結果が変更されては矛盾が起きる場合も有ります,
ZZZZ010823	4400	FORM=     例えば,空席を検索し更新で予約したい時は、
ZZZZ010823	4500	FORM2=更新時に必ず空席で有る必要が有ります。
ZZZZ010823	4600	FORM=     この場合トランザクションを開始し @ 事で対応します。
ZZZZ010823	4700	DATA={O,,,Y}D41{26}
ZZZZ010823	4800	=SET{D41='検索で陽に占有ロックをする'};
ZZZZ010823	4900	FORM=23.6 ロックがかかる事で他の処理が待たされますが、
ZZZZ010823	5000	FORM=     @ と呼ばれる困った現象が起きる可能性が
ZZZZ010823	5100	DATA={O,,,Y}D61{12}
ZZZZ010823	5200	=SET{D61='デッドロック'};
ZZZZ010823	5300	FORM2=あります。
ZZZZ010823	5400	FORM=23.7 デッドロックは,2つの処理がお互いにロックをかけ合い
ZZZZ010823	5500	FORM2=両者とも先に進めない状態です。
ZZZZ010823	5600	FORM=     (デッドロックはRDBソフトが監視し,一方をエラー
ZZZZ010823	5700	FORM2=にし,デッドロックを解消します)
ZZZZ010823	5800	FORM=23.8 なので、ロックは本当に必要な部分で、
ZZZZ010823	5900	FORM2=局所的に使う考慮が必要です。
ZZZZ010823	6000	FORM=     (一時的に他の処理をプログラムで使えないようにし
ZZZZ010823	6100	FORM2=,回避する方法も有効です)
ZZZZ010823	6200	FORM=     ◎デッドロックが起きにくくするのは,テーブルのロック
ZZZZ010823	6300	FORM2=の順番を同じにする事です。
ZZZZ010823	6400	NAME=NEXT
ZZZZ010823	6500	*FORM=[?_P(ENTER)?]で次の画面へ @ @
ZZZZ010823	6600	NAME2=NEXT2
ZZZZ010823	6700	DATA={O}NEXT1{4}
ZZZZ010823	6800	=SET{NEXT1='NEXT'};
ZZZZ010823	6900	CLICK=SET{_CLICK='N'};
ZZZZ010823	7000	DATA={!}NEXT2{1}
ZZZZ010823	7100	NAME=
ZZZZ010823	7200	***********************************************************
ZZZZ010823	7300	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010823	7400	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010823	7500	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010823	7600	=EXIT{0};
ZZZZ010824	100	PROGRAM=NOT
ZZZZ010824	200	FORM=24.1 カーソルを使った処理について
ZZZZ010824	300	FORM=     SQLは全ての行を同時に処理するように成っていますが,
ZZZZ010824	400	FORM=     たとえば、在庫を引き当てて発注をしたい場合,
ZZZZ010824	500	FORM=     日の早い行順に在庫を引き当てる必要があります。
ZZZZ010824	600	FORM=     このような事をしたい時にはカーソルを使って1行単位に
ZZZZ010824	700	FORM2=処理します。
ZZZZ010824	800	FORM=     (I言語で1行単位の処理をする事も可能ですが,
ZZZZ010824	900	FORM2=処理速度が遅いので,
ZZZZ010824	1000	FORM=      大量の行を処理したい場合は
ZZZZ010824	1100	FORM2=カーソルを使う必要が有ります)
ZZZZ010824	1200	FORM=     カーソル関連はRDBのソフト毎に大幅に文法が異なるので
ZZZZ010824	1300	FORM=     I言語側で沢山のシステム変数を用意しています。
ZZZZ010824	1400	FORM=     ZZZZ010327の"CURSOR{}サンプル（発注数計算)"に
ZZZZ010824	1500	FORM=     サンプルプログラムが有るので参考にして下さい。
ZZZZ010824	1600	NAME=NEXT
ZZZZ010824	1700	FORM=[?_P(ENTER)?]で次の画面へ @ @
ZZZZ010824	1800	NAME2=NEXT2
ZZZZ010824	1900	DATA={O}NEXT1{4}
ZZZZ010824	2000	=SET{NEXT1='NEXT'};
ZZZZ010824	2100	CLICK=SET{_CLICK='N'};
ZZZZ010824	2200	DATA={!}NEXT2{1}
ZZZZ010824	2300	NAME=
ZZZZ010824	2400	PROGRAM=NOT
ZZZZ010824	2500	FORM=24.2 単価テーブルの有効期間について。
ZZZZ010824	2600	FORM=     単価で日によって単価が変更されるテーブルを設計して
ZZZZ010824	2700	FORM2=みます。
ZZZZ010824	2800	FORM=     列名は商品コード,単価,開始日,終了日で,
ZZZZ010824	2900	FORM2=1件目は開始日を入れ終了日を空白とし,
ZZZZ010824	3000	FORM=     単価が変わった時に行を作成し,前行の
ZZZZ010824	3100	FORM2=終了日に今回の開始日を入れれば可能です。
ZZZZ010824	3110	FORM=     (終了日が有る時は前日までと成ります)
ZZZZ010824	3120	FORM=     (I言語は年月日はDARTE型で無くCHAR(8)を使うので
ZZZZ010824	3130	FORM2=,未設定は空白とします)
ZZZZ010824	3200	FORM=     この方法は１回の処理で2行の更新が必要で
ZZZZ010824	3300	FORM2=矛盾が起きる可能性が有ります。
ZZZZ010824	3400	FORM=     この場合LEAD(後の行の値を返す関数)
ZZZZ010824	3500	FORM2=と呼ばれる関数を使えば終了日が無くても
ZZZZ010824	3600	FORM=     LEADで導き出来,
ZZZZ010824	3700	FORM2=常に一行更新だけで済,矛盾が起きません。
ZZZZ010824	3710	FORM=
ZZZZ010824	3712	FORM=     SELECT 商品コード,単価,開始日,
ZZZZ010824	3720	DATA={O,,,E}D1{9}
ZZZZ010824	3730	=SET{D1='COALESCE('};
ZZZZ010824	3802	FORM=     @
ZZZZ010824	3810	DATA={O,,,Y}D2{60}
ZZZZ010824	3820	=SET{D2='LEAD(開始日,1) OVER(PARTITION BY '
ZZZZ010824	3830	=      +'商品コード ORDER BY 開始日)'};
ZZZZ010824	3910	FORM=     @
ZZZZ010824	3920	DATA={O,,,E}D3{5}
ZZZZ010824	3930	=SET{D3=','' '')'};
ZZZZ010824	4010	FORM=     @ AS 終了日 FROM テーブル名
ZZZZ010824	4110	FORM=
ZZZZ010824	4300	FORM=     (注意:?_P(MARIA)?DBでは動かないので、サンプ
ZZZZ010824	4302	FORM2=発注メニューでは対応していません）
ZZZZ010824	4310	FORM=     ("LEAD(開始日,1)"で1行後の開始日を使用します)
ZZZZ010824	4320	FORM=     ("PARTITION BY 商品コード"で商品コード毎とします)
ZZZZ010824	4330	FORM=     ("ORDER BY 開始日"で開始日順とします)
ZZZZ010824	4340	FORM=     ("COALESCE(式,’')"で次の行が無いとNULLになるので、
ZZZZ010824	4350	FORM2=空白にします)
ZZZZ010824	4500	FORM=     SQLには高度な機能が沢山用意されているで
ZZZZ010824	4600	FORM2=難しい事も容易に対応出来ますが、
ZZZZ010824	4700	FORM=     RDBのソフト毎に無い機能や、文法が異なる機能も有るで
ZZZZ010824	4800	FORM2=十分な注意が必要です。
ZZZZ010824	4900	***********************************************************
ZZZZ010824	5000	FORM=[?_P(ENTER)?]で次のメニューへ @ @
ZZZZ010824	5100	COPY=NEXT2
ZZZZ010824	5200	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010824	5300	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010824	5400	=EXIT{0};
ZZZZ010825	100	PROGRAM=NOT
ZZZZ010825	200	FORM=25.1 データベースが許可(英字4文字)単位に本番用とテスト用
ZZZZ010825	300	FORM2=で2個づつ作られます。
ZZZZ010825	400	FORM=    (許可はインストールでZZZZとZZZYが作られています）
ZZZZ010825	500	FORM=    ①マスタデータベース---常駐用で、消される事の無い
ZZZZ010825	600	FORM2=テーブル用です。
ZZZZ010825	700	FORM=    ②ワークデータベース---作業用で、処理後消される
ZZZZ010825	800	FORM2=テーブル用です。
ZZZZ010825	900	FORM=25.2 ログインIDが許可(英字4文字)単位に本番用とテスト用
ZZZZ010825	1000	FORM2=で4個づつ作られます。
ZZZZ010825	1100	FORM=    ①管理用ID(DBO)---許可に対し全ての権限が有ります。
ZZZZ010825	1200	FORM=     (②から④はワークデータベースに対しては
ZZZZ010825	1300	FORM2=全ての権限が有ります)
ZZZZ010825	1400	FORM=     (SQL関連命令の先頭にDBO_を付加すればこれで動きます)
ZZZZ010825	1500	FORM=    ②更新用ID(INPUT)---許可に対しINSERT,UPDATE,SELECT
ZZZZ010825	1600	FORM2=の権限が有ります。
ZZZZ010825	1700	FORM=      (DELETE権限は有りません)
ZZZZ010825	1800	FORM=      (メニューの処理種類がINPUTの時これで動きます)
ZZZZ010825	1810	FORM=      (時間起動処理は全てINPUTで動きます)
ZZZZ010825	1900	FORM=    ③検索用ID(OUTPUT)---許可に対しSELECTの
ZZZZ010825	1910	FORM2=権限が有ります。
ZZZZ010825	2000	FORM=      (メニューの処理種類がOUTPUTの時これで動きます)
ZZZZ010825	2100	FORM=    ④リンク用ID(LINK)---許可に対しSELECTの
ZZZZ010825	2110	FORM2=権限が有ります。
ZZZZ010825	2200	FORM=      (リンクサーバー専用です)
ZZZZ010825	2300	NAME=NEXT
ZZZZ010825	2400	FORM=[?_P(ENTER)?]で最初の画面へ @ @
ZZZZ010825	2500	NAME2=NEXT2
ZZZZ010825	2600	DATA={O}NEXT1{4}
ZZZZ010825	2700	=SET{NEXT1='NEXT'};
ZZZZ010825	2800	CLICK=SET{_CLICK='N'};
ZZZZ010825	2900	DATA={!}NEXT2{1}
ZZZZ010825	3000	NAME=
ZZZZ010825	3100	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010825	3200	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010825	3300	=EXIT{0};
ZZZZ010826	100	PROGRAM=NOT
ZZZZ010826	200	FORM=26 正規化は全部で８種類が有り,通常は第３正規化までで良い
ZZZZ010826	300	FORM2=と言われています。
ZZZZ010826	400	FORM=   説明のための例として請求書１枚を例にして説明します。
ZZZZ010826	500	FORM=
ZZZZ010826	600	FORM=       (1)年月日                 (6)商品コード　３個
ZZZZ010826	700	FORM=       (2)請求書番号             (7)商品名    　３個
ZZZZ010826	800	FORM=       (3)会社コード             (8)数量      　３個
ZZZZ010826	900	FORM=       (4)会社名                 (9)単価      　３個
ZZZZ010826	1000	FORM=       (5)請求金額              (10)金額      　３個
ZZZZ010826	1100	FORM=
ZZZZ010826	1200	FORM=  ★正規化の基本は「関数従属」の発見です,関数従属とは,A
ZZZZ010826	1300	FORM2=が決まればBが決まる物で
ZZZZ010826	1400	FORM=    A->Bと表現し,Aが同じBの列を
ZZZZ010826	1500	FORM2=集めて１個のテーブルにします。
ZZZZ010826	1600	FORM=    (Aが複数列で構成される場合も有ります）
ZZZZ010826	1700	FORM=  ★Aを主キーと言い,主キーは行単位にユニークになります。
ZZZZ010826	1800	FORM=    (主キーが存在しない場合はマイナンバーのように
ZZZZ010826	1900	FORM2=新規に列を作ります）
ZZZZ010826	2000	FORM=
ZZZZ010826	2100	FORM=26.1.1 第１正規化では、まず他の列から導き出せる物は不要
ZZZZ010826	2200	FORM2=とします。
ZZZZ010826	2300	FORM=     (5)請求金額と(10)金額は数量と単価で導き出せるので
ZZZZ010826	2400	FORM2=不要と成ります。
ZZZZ010826	2500	FORM=26.1.2 繰り返しは行を分割し,1マスに1個のデータを入ます。
ZZZZ010826	2700	FORM=
ZZZZ010826	2800	NAME=NEXT
ZZZZ010826	2900	FORM=[?_P(ENTER)?]で次の画面へ @ @
ZZZZ010826	3000	NAME2=NEXT2
ZZZZ010826	3100	DATA={O}NEXT1{4}
ZZZZ010826	3200	=SET{NEXT1='NEXT'};
ZZZZ010826	3300	CLICK=SET{_CLICK='N'};
ZZZZ010826	3400	DATA={!}NEXT{1}
ZZZZ010826	3500	=SET{WC.REPEAT=4};
ZZZZ010826	3600	NAME=
ZZZZ010826	3700	PROGRAM=NOT
ZZZZ010826	3800	FORM=第１正規形で,1マスに１個のデータを入れます。
ZZZZ010826	3900	FORM=主キーは行を区別出来る請求書番号と商品コードと成ります。
ZZZZ010826	4000	FORM=   (黄色のマスは主キーです）
ZZZZ010826	4100	NAME=REPEAT
ZZZZ010826	4200	REPEAT0=?WC.REPEAT?
ZZZZ010826	4300	$2+FORM=
ZZZZ010826	4400	$2+FORM=26.2 第２正規形は「部分関数従属」の物を別にします。
ZZZZ010826	4500	$2+FORM=  部分関数従属は主キーの一部に関数従属するものです。
ZZZZ010826	4600	$2+FORM=  つまり,請求書番号のみや商品コードのみに関数従属する
ZZZZ010826	4700	$2+FORM2=列を別にします。
ZZZZ010826	4800	$2+FORM=
ZZZZ010826	4900	$1+|$2+|$5+FORM=年月日 請求書番号 会社コード 会社名
ZZZZ010826	5000	$2+FORM2=  ★(請求書番号に部分関数従属しています)★
ZZZZ010826	5100	$1+FORM2= 商品コード    商品名    数量    単価
ZZZZ010826	5200	$4+FORM=
ZZZZ010826	5300	$4+FORM=請求書番号 商品コード    数量
ZZZZ010826	5400	$4+FORM2=　★(部分関数従属で無い物は残します)★
ZZZZ010826	5500	$3+FORM=
ZZZZ010826	5600	$3+FORM=商品コード    商品名    単価
ZZZZ010826	5700	$3+FORM2=  ★(商品コードに部分関数従属しています)★
ZZZZ010826	5800	$7+FORM=
ZZZZ010826	5900	$7+FORM=年月日 請求書番号 会社コード
ZZZZ010826	6000	$6+FORM=
ZZZZ010826	6100	$6+FORM=会社コード 会社名
ZZZZ010826	6200	$6+FORM2=   ★(会社コードに推移関数従属しています）★
ZZZZ010826	6300	$1+|$3+|$4+REPEAT=3
ZZZZ010826	6400	$1- $3- $4-REPEAT=1
ZZZZ010826	6500	$1+         FORM=@ @ @ @ @ @ @ @
ZZZZ010826	6600	$1-$2-$5-$6-FORM=@ @ @
ZZZZ010826	6700	$2+|$5+     FORM=@ @ @ @
ZZZZ010826	6800	$6+         FORM=@ @
ZZZZ010826	6900	$1+|$2+|$5+|$7+DATA={O,,,W}D1_$$_##{6}年月日
ZZZZ010826	7000	$1+|$2+|$5+|$7+=SET{D1_$$_##='年月日'};
ZZZZ010826	7100	$1+|$2+|$4+|$5+|$7+DATA={O,,,Y}D2_$$_##{10}請求書番号
ZZZZ010826	7200	$1+|$2+|$4+|$5+|$7+=SET{D2_$$_##='請求書番号'};
ZZZZ010826	7300	$1+|$2+|$5+|$7+DATA={O,,,W}D3_$$_##{10}会社コード
ZZZZ010826	7400	            $6+DATA={O,,,Y}D3_$$_##{10}会社コード
ZZZZ010826	7500	$1+|$2+|$5+|$6+|$7+=SET{D3_$$_##='会社コード'};
ZZZZ010826	7600	$1+|$2+|$5+|$6+DATA={O,,,W}D4_$$_##{6}会社名
ZZZZ010826	7700	$1+|$2+|$5+|$6+=SET{D4_$$_##='会社名'};
ZZZZ010826	7800	$1+|$3+|$4+DATA={O,,,Y}D6_$$_##{13}商品コード
ZZZZ010826	7900	$1+|$3+|$4+=SET{D6_$$_##='商品コード(##)'};
ZZZZ010826	8000	$1+|$3+DATA={O,,,W}D7_$$_##{9}商品名
ZZZZ010826	8100	$1+|$3+=SET{D7_$$_##='商品名(##)'};
ZZZZ010826	8200	$1+|$4+DATA={O,,,W}D8_$$_##{7}数量
ZZZZ010826	8300	$1+|$4+=SET{D8_$$_##='数量(##)'};
ZZZZ010826	8400	$1+|$3+DATA={O,,,W}D9_$$_##{7}単価
ZZZZ010826	8500	$1+|$3+=SET{D9_$$_##='単価(##)'};
ZZZZ010826	8600	REPEAT=
ZZZZ010826	8700	$7+FORM=
ZZZZ010826	8800	$7+FORM=  ★殆どの場合第３正規化で完了です、今回もこれで完了
ZZZZ010826	8900	$7+FORM2=です。
ZZZZ010826	9000	REPEAT0=
ZZZZ010826	9100	FORM=NEXT @
ZZZZ010826	9200	DATA=END{1}
ZZZZ010826	9300	NAME=
ZZZZ010826	9400	=SET{WC.REPEAT='7,5'};
ZZZZ010826	9500	PROGRAM=NOT
ZZZZ010826	9600	FORM=
ZZZZ010826	9700	FORM=26.3 第３正規化は「推移関数従属」の物を別テーブルにしま
ZZZZ010826	9800	FORM2=す。
ZZZZ010826	9900	FORM=     推移関数従属とは主キーで無い物が主キーで無い物に対
ZZZZ010826	10000	FORM2=し関数従属している物です。
ZZZZ010826	10100	FORM=
ZZZZ010826	10200	COPY=REPEAT
ZZZZ010826	10300	PROGRAM=NOT
ZZZZ010826	10400	FORM=
ZZZZ010826	10500	FORM=26.4 ボイスコッド正規化の説明。
ZZZZ010826	10600	FORM=   ◎第２正規化は部分関数従属で、
ZZZZ010826	10700	FORM2=「主キーの一部」->「主キー以外」の対応でした。
ZZZZ010826	10800	FORM=   ◎第３正規化は推移関数従属で、
ZZZZ010826	10900	FORM2=「主キー以外」  ->「主キー以外」の対応でした。
ZZZZ010826	11000	FORM=   ◎ボイスコッド正規化は、
ZZZZ010826	11100	FORM2=      「主キー以外」  ->「主キーの一部」の対応です。
ZZZZ010826	11200	FORM=   〇例えば、「患者」と「診療」が主キーで「先生」
ZZZZ010826	11300	FORM2=のテーブルを作ったとします。
ZZZZ010826	11400	REPEAT0=2
ZZZZ010826	11500	FORM=
ZZZZ010826	11600	$1+FORM=     患者 診療 先生
ZZZZ010826	11700	$2+FORM=   〇この病院では先生は必ず１個の診療のみを担当する
ZZZZ010826	11800	$2+FORM2=と決まっていると、
ZZZZ010826	11810	$2+FORM=     先生が主キーのテーブルが別に作れます。
ZZZZ010826	12110	$2+FORM=
ZZZZ010826	12200	*3+FORM=     診療 先生
ZZZZ010826	12300	$2+FORM=     患者 先生    診療 先生
ZZZZ010826	12400	REPEAT=3
ZZZZ010826	12500	$1+FORM=     @ @ @
ZZZZ010826	12600	$1-3-FORM=     @@@@ @@@@    @@@@ @@@@@
ZZZZ010826	12610	$1-3+FORM=     @@@@ @@@@
ZZZZ010826	12700	DATA={O,,,Y}D0_$$_##{4}患者
ZZZZ010826	12900	3-=SET{D0_$$_##='佐藤'};
ZZZZ010826	12910	3+=SET{D0_$$_##='渡辺'};
ZZZZ010826	12920	$2+DATA={O,,,Y}D1_$$_##{4}先生
ZZZZ010826	12930	$2+2-=SET{D1_$$_##='鈴木'};
ZZZZ010826	12940	$2+2+=SET{D1_$$_##='高橋'};
ZZZZ010826	13000	$1+DATA={O,,,Y}D2_$$_##{4}診療科
ZZZZ010826	13100	$2+3-DATA={O,,,W}D2_$$_##{4}診療科
ZZZZ010826	13200	$1+2-=SET{D2_$$_##='内科'};
ZZZZ010826	13210	$2+1+=SET{D2_$$_##='内科'};
ZZZZ010826	13220	2+=SET{D2_$$_##='外科'};
ZZZZ010826	13400	$1+DATA={O,,,W}D3_$$_##{4}先生
ZZZZ010826	13500	$2+3-DATA={O,,,Y}D3_$$_##{4}先生
ZZZZ010826	13600	$1+2-=SET{D3_$$_##='鈴木'};
ZZZZ010826	13602	$2+1+=SET{D3_$$_##='鈴木'};
ZZZZ010826	13610	2+=SET{D3_$$_##='高橋'};
ZZZZ010826	13800	REPEAT0=
ZZZZ010826	13802	FORM=
ZZZZ010826	13803	FORM=   〇これがボイスコッド正規形です。
ZZZZ010826	13810	FORM=   ★どちらにするかは、プログラムが簡単に出来、
ZZZZ010826	13820	FORM2=矛盾が起きにくい方にします。
ZZZZ010826	13900	FORM=NEXT @
ZZZZ010826	14000	DATA=END{1}
ZZZZ010826	14100	PROGRAM=NOT
ZZZZ010826	14200	FORM=
ZZZZ010826	14300	FORM=26.5 第４正規化の説明。
ZZZZ010826	14400	FORM=   ◎第４正規化は「多値従属」の対応です。
ZZZZ010826	14500	FORM=     多値従属とは繰返しデータの事で、件数が決まってる
ZZZZ010826	14600	FORM2=場合は列名1、列名2等で
ZZZZ010826	14700	FORM=     列を決まった回数分持ちますが、可変個と成った場合は
ZZZZ010826	14800	FORM2=主キーに含める必要が
ZZZZ010826	14900	FORM=     有るのでこの部分を別テーブルとします。
ZZZZ010826	15500	FORM=
ZZZZ010826	15600	FORM=26.6 第５正規化の説明。
ZZZZ010826	15700	FORM=   ◎第５正規化は「結合従属」の対応です。
ZZZZ010826	15800	FORM=     結合従属とは、分割したテーブルを結合した時に
ZZZZ010826	15900	FORM2=余分な行が出来る場合の対応です。
ZZZZ010826	16000	FORM=     ３個の列A,B,Cが主キーの場合に,2個が先に決まっても
ZZZZ010826	16010	FORM2=テーブルか作れない場合
ZZZZ010826	16020	FORM=     A,BとA,Cが主キーの２個のデーブ
ZZZZ010826	16022	FORM2=で対応しようとすると発生し
ZZZZ010826	16300	FORM=     A,BとA,CとB,Cが主キーの３個を作り,結合で余分な
ZZZZ010826	16500	FORM2=行が出来ないようにします。
ZZZZ010826	16700	FORM=
ZZZZ010826	16800	FORM=26.7 ドメインキー正規化の説明。
ZZZZ010826	16900	FORM=     ドメインキー正規化は既に有るテーブルに、
ZZZZ010826	17000	FORM2=複数の列構成の主キーが有った場合に、
ZZZZ010826	17100	FORM=     それより少ない列で主キーと出来る場合に、
ZZZZ010826	17200	FORM=     少ない主キーを持たテーブルを別に作る事を言います。
ZZZZ010826	17300	FORM=
ZZZZ010826	17400	FORM=26.8 第６正規化の説明。
ZZZZ010826	17500	FORM=     第６正規化は主キー以外の列を１個にしたテーブルです,
ZZZZ010826	17600	FORM=     こうする事で主キー以外の列にNULLが存在する事が無く
ZZZZ010826	17700	FORM2=なる訳です。
ZZZZ010826	17800	FORM=     尚、実際のシステム作りではここまではしません。
ZZZZ010826	20000	FORM=END @
ZZZZ010826	20100	DATA=END{1}
ZZZZ010826	20300	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010826	20400	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010826	20500	=EXIT{0};
ZZZZ010827	100	PROGRAM=NOT
ZZZZ010827	200	FORM=27 SQLとI言語のエラーについて解説します。
ZZZZ010827	300	FORM=27.1 SQLとI言語でエラーが発生した場合、何も対応していな
ZZZZ010827	400	FORM2=時は異常終了します。
ZZZZ010827	500	FORM=27.2 "CONTROL=ERROR"を書く事で入力項目位置でのエラーは
ZZZZ010827	600	FORM2=異常終了しないで
ZZZZ010827	700	FORM=     単なるエラーで再入力する事が出来ます。
ZZZZ010827	800	FORM=27.3 通常はエラーの起きる命令の前に"IF_ERROR_"を付けて
ZZZZ010827	900	FORM=     エラー時に実行する命令を書いて対応します。
ZZZZ010827	1000	FORM=27,4 それでは実際にSQLでのエラーを出してみます。
ZZZZ010827	1100	FORM2=[?_P(ENTER)?]で実行します。
ZZZZ010827	1110	FORM=     *(注意)*?_P(ORACLE)?と?_P(MARIA)?DBはエラーに成りま
ZZZZ010827	1120	FORM2=せん。
ZZZZ010827	1200	FORM= SQL= @ @
ZZZZ010827	1300	DATA={O}SQL{70}
ZZZZ010827	1400	=SET{SQL='SELECT 123456789*99 ?_Q?_FROM_DUAL?_Q?',W0=0};
ZZZZ010827	1500	DATA=SQL1{1}
ZZZZ010827	1600	=IF{W0>0}EXIT{};COMPUTE{W0+=1};
ZZZZ010827	1700	=SET{_EDIT=SQL};
ZZZZ010827	1800	=IF{_DATA=}IF_ERROR_SQL{?_EDIT?}ERROR{};
ZZZZ010827	1900	FORM=     算術オーバーフローのエラーとなりました、これはINT型
ZZZZ010827	2000	FORM2=に入れようとして
ZZZZ010827	2100	FORM=     エラーとなってしまっています。
ZZZZ010827	2200	FORM=     このように一見正しいようでも実際はエラーに成る場合
ZZZZ010827	2300	FORM2=が有るので,
ZZZZ010827	2400	FORM=      十分な動作確認をする必要が有ります。
ZZZZ010827	2500	FORM=      下記が対応の一例です。[?_P(ENTER)?]で実行します。
ZZZZ010827	2600	FORM= SQL= @
ZZZZ010827	2700	FORM= 結果 @
ZZZZ010827	2800	DATA={O}SQL2{70}
ZZZZ010827	2900	DATA={O}SQL2O{14,,+}
ZZZZ010827	3000	=SET{SQL2='SELECT CAST(123456789 AS DECIMAL(11,0))*99'+
ZZZZ010827	3100	=   ' ?_Q?_FROM_DUAL?_Q?'};
ZZZZ010827	3200	*ATA=SQL21{1}
ZZZZ010827	3300	=SET{_EDIT=SQL2};
ZZZZ010827	3400	=IF_ERROR_SQL_SET{SQL2O}{?_EDIT?}ERROR{};
ZZZZ010827	3500	FORM=      このようにエラーが起きない対策を取るのが基本です。
ZZZZ010827	3600	NAME=NEXT
ZZZZ010827	3700	FORM={?_P(ENTER)?}で次の画面へ @ @
ZZZZ010827	3800	NAME2=NEXT2
ZZZZ010827	3900	DATA={O}NEXT1{4}
ZZZZ010827	4000	=SET{NEXT1='NEXT'};
ZZZZ010827	4100	CLICK=SET{_CLICK='N'};
ZZZZ010827	4200	DATA={!}NEXT{1}
ZZZZ010827	4300	NAME=
ZZZZ010827	4400	PROGRAM=NOT
ZZZZ010827	4500	FORM=27.7 今度はI言語側のエラーを出してみます。
ZZZZ010827	4600	FORM2=[?_P(ENTER)?]で実行します。
ZZZZ010827	4700	FORM= SQL= @ @
ZZZZ010827	4800	FORM= 結果 @
ZZZZ010827	4900	DATA={O}SQL{70}
ZZZZ010827	5000	=SET{SQL='SELECT 1.0/3.2 ?_Q?_FROM_DUAL?_Q?',W0=0};
ZZZZ010827	5100	DATA={}X{1}
ZZZZ010827	5200	=IF{W0>0}EXIT{};COMPUTE{W0+=1};
ZZZZ010827	5300	=SET{_EDIT=SQL};
ZZZZ010827	5400	=IF{_DATA=}IF_ERROR_SQL_SET{SQLO}{?_EDIT?}ERROR{};
ZZZZ010827	5500	DATA={O}SQLO{4,3,+}
ZZZZ010827	5600	FORM=     ?_L(UNDER FLOW)?のエラーと成りました、少数点以下の
ZZZZ010827	5700	FORM2=桁数不足です。
ZZZZ010827	5800	FORM=     下記が対応の一例です。
ZZZZ010827	5900	FORM= SQL= @
ZZZZ010827	6000	FORM= 結果 @
ZZZZ010827	6100	DATA={O}SQL2{70}
ZZZZ010827	6200	=SET{SQL2='SELECT CAST(1.0/3.2 AS DECIMAL(4,3))'
ZZZZ010827	6300	=   +' ?_Q?_FROM_DUAL?_Q?',W0=0};
ZZZZ010827	6400	=SET{_EDIT=SQL2};
ZZZZ010827	6500	=IF_ERROR_SQL_SET{SQLO2}{?_EDIT?}ERROR{};
ZZZZ010827	6600	DATA={O}SQLO2{4,3,+}
ZZZZ010827	6700	FORM=    SQLの結果とI言語側の桁数に矛盾が起きない
ZZZZ010827	6800	FORM2=ようにすれば、エラーに成りません。
ZZZZ010827	7110	FORM= @
ZZZZ010827	7200	DATA=END{1}
ZZZZ010827	7300	=COMPUTE{WC=_JOB[9]+1};IF{WC@LENGTH=1}SET{WC='0'+WC};
ZZZZ010827	7400	=EXE_I{?_JOB[1;8]??WC?};
ZZZZ010827	7500	=EXIT{0};
ZZZZ010828	100	PROGRAM=NOT
ZZZZ010828	200	=SET{W0.END=5,W0.BEGIN=3};
ZZZZ010828	300	PROGRAM=NOT
ZZZZ010828	400	FORM=28.1.1) 繰り返しは「REPEAT=[終了値][,初期値]」
ZZZZ010828	500	FORM2=で開始します。
ZZZZ010828	600	FORM=◎初期値省略時は1と成ります。
ZZZZ010828	700	FORM=◎次のREPEAT=又はPEPEAT0=まで繰返します。
ZZZZ010828	800	FORM=★注意:終了値と初期値はデータ名でも指定出来ますが、
ZZZZ010828	900	FORM=  REPEAT=はプログラムの読出し時に処理するので、
ZZZZ010828	1000	FORM=  事前に設定されている必要があります。
ZZZZ010828	1100	FORM=  他の言語のように実行時に指定は出来ないので、可変
ZZZZ010828	1200	FORM2=にしたい場合は、
ZZZZ010828	1300	FORM=  前のプログラムで値を決めて次のプログラムで実行します。
ZZZZ010828	1400	FORM=========================================================
ZZZZ010828	1500	FORM= PROGRAM=NOT
ZZZZ010828	1510	FORM= BEGIN
ZZZZ010828	1600	FORM= =SET{W0.END=5,W0.BEGIN=3};
ZZZZ010828	1700	FORM= PROGRAM=NOT
ZZZZ010828	1800	FORM= REPEAT=W0.END,W0.BEGIN
ZZZZ010828	1900	FORM= FORM= (REPEAT)
ZZZZ010828	2000	FORM2= ?_Q?_#?_Q?#=## , ?_Q?_#?_Q?-=#- , ?_Q?_#?_Q?+=#+
ZZZZ010828	2100	FORM= REPEAT=
ZZZZ010828	2110	FORM= DATA=DUMMY{1}
ZZZZ010828	2200	FORM=--------------------------------------------------------
ZZZZ010828	2300	REPEAT=W0.END,W0.BEGIN
ZZZZ010828	2400	FORM= (REPEAT) ?_#?#=## , ?_#?-=#- , ?_#?+=#+
ZZZZ010828	2500	REPEAT=
ZZZZ010828	2600	FORM=========================================================
ZZZZ010828	2700	FORM= 3から5まで3回繰り返しています。
ZZZZ010828	2800	FORM= この時?_#?#は繰り返しの数で、?_#?-は1少ない数で?_#?+
ZZZZ010828	2900	FORM2=は1多い数で置き換わります。
ZZZZ010828	3000	NAME=NEXT
ZZZZ010828	3100	FORM={?_P(ENTER)?}で次の画面へ @ @
ZZZZ010828	3200	NAME2=NEXT2
ZZZZ010828	3300	DATA={O}NEXT1{4}
ZZZZ010828	3400	=SET{NEXT1='NEXT'};
ZZZZ010828	3500	CLICK=SET{_CLICK='N'};
ZZZZ010828	3600	DATA={!}NEXT{1}
ZZZZ010828	3700	NAME=
ZZZZ010828	3800	END
ZZZZ010828	3900	=EXIT{0};
ZZZZ010828	4000	PROGRAM=NOT
ZZZZ010828	4100	FORM=28.1.2)「REPEAT0=[終了値][,初期値] 」はPEPEAT=の外で
ZZZZ010828	4200	FORM2=繰り返せます。
ZZZZ010828	4300	FORM=◎次のPEPEAT0=まで繰返します。
ZZZZ010828	4400	FORM=========================================================
ZZZZ010828	4410	FORM= PROGRAM=NOT
ZZZZ010828	4500	FORM= REPEAT0=2
ZZZZ010828	4600	FORM= FORM= (REPEAT0)
ZZZZ010828	4700	FORM2=  ?_Q?_$?_Q?$=$$ , ?_Q?_$?_Q?-=$- , ?_Q?_$?_Q?+=$+
ZZZZ010828	4800	FORM= REPEAT=5,3
ZZZZ010828	4900	FORM= FORM= (REPEAT)
ZZZZ010828	5000	FORM2= ?_Q?_#?_Q?#=## , ?_Q?_#?_Q?-=#- , ?_Q?_#?_Q?+=#+
ZZZZ010828	5100	FORM= REPEAT0=
ZZZZ010828	5110	FORM= DATA=DUMMY{1}
ZZZZ010828	5200	FORM=--------------------------------------------------------
ZZZZ010828	5300	REPEAT0=2
ZZZZ010828	5400	FORM= (REPEAT0)  ?_$?$=$$ , ?_$?-=$- , ?_$?+=$+
ZZZZ010828	5500	REPEAT=5,3
ZZZZ010828	5600	FORM= (REPEAT) ?_#?#=## , ?_#?-=#- , ?_#?+=#+
ZZZZ010828	5700	REPEAT0=
ZZZZ010828	5800	FORM=========================================================
ZZZZ010828	5900	FORM= REPEAT=の外で1から2まで2回繰り返しています。
ZZZZ010828	6000	FORM= この時?_$?$は繰り返しの数で、?_$?-は1少ない数で?_$?+
ZZZZ010828	6100	FORM2=は1多い数で置き換わります。
ZZZZ010828	6200	COPY=NEXT
ZZZZ010828	6300	PROGRAM=NOT
ZZZZ010828	6400	FORM=28.1.3)「REPEAT2=[終了値][,初期値] 」はPEPEAT=の中で
ZZZZ010828	6500	FORM2=繰り返せます。
ZZZZ010828	6600	FORM=◎次のREPEAT2=又はREPEAT=又はPEPEAT0=まで繰返します。
ZZZZ010828	6700	FORM=========================================================
ZZZZ010828	6710	FORM= PROGRAM=NOT
ZZZZ010828	6800	FORM= REPEAT=5,3
ZZZZ010828	6900	FORM= FORM=(REPEAT)
ZZZZ010828	7000	FORM2= ?_Q?_#?_Q?#=## , ?_Q?_#?_Q?-=#- , ?_Q?_#?_Q?+=#+
ZZZZ010828	7100	FORM= REPEAT2=2
ZZZZ010828	7200	FORM= FORM= (REPEAT2)
ZZZZ010828	7300	FORM2=  ?_Q?_$?_Q?$=$$ , ?_Q?_$?_Q?-=$- , ?_Q?_$?_Q?+=$+
ZZZZ010828	7400	FORM= REPEAT=
ZZZZ010828	7410	FORM= DATA=DUMMY{1}
ZZZZ010828	7500	FORM=--------------------------------------------------------
ZZZZ010828	7600	REPEAT=5,3
ZZZZ010828	7700	FORM= (REPEAT) ?_#?#=## , ?_#?-=#- , ?_#?+=#+
ZZZZ010828	7800	REPEAT2=2
ZZZZ010828	7900	FORM= (REPEAT2)  ?_$?$=$$ , ?_$?-=$- , ?_$?+=$+
ZZZZ010828	8000	REPEAT=
ZZZZ010828	8100	FORM=========================================================
ZZZZ010828	8200	FORM= REPEAT=の中で1から2まで2回繰り返しています。
ZZZZ010828	8300	FORM= この時?_$?$は繰り返しの数で、?_$?-は1少ない数で?_$?+
ZZZZ010828	8400	FORM2=は1多い数で置き換わります。
ZZZZ010828	8500	FORM=★注意:REPEAT0=の中では?_$?$はPEPEAT0=の繰り返し数と成る
ZZZZ010828	8600	FORM2=ので注意して下さい。
ZZZZ010828	8700	COPY=NEXT
ZZZZ010828	8800	PROGRAM=NOT
ZZZZ010828	8900	FORM=28.1.4.1) '2-4-'は繰り返しの番号と一致しない物をAND
ZZZZ010828	9000	FORM2=条件で採用しない(-)命令です。
ZZZZ010828	9100	FORM=◎REPEAT0=又はREAPEAT2=の場合は'$2-$4-'とします。
ZZZZ010828	9200	FORM=========================================================
ZZZZ010828	9210	FORM= PROGRAM=NOT
ZZZZ010828	9300	FORM= REPEAT=5
ZZZZ010828	9400	FORM= 2-4-
ZZZZ010828	9500	FORM2=FORM= ?_Q?_#?_Q?#=## , ?_Q?_#?_Q?-=#- , ?_Q?_#?_Q?+=#+
ZZZZ010828	9600	FORM= REPEAT=
ZZZZ010828	9610	FORM= DATA=DUMMY{1}
ZZZZ010828	9700	FORM=--------------------------------------------------------
ZZZZ010828	9800	REPEAT=5
ZZZZ010828	9900	2-4-FORM= ?_#?#=## , ?_#?-=#- , ?_#?+=#+
ZZZZ010828	10000	REPEAT=
ZZZZ010828	10100	FORM=========================================================
ZZZZ010828	10200	FORM= 2と4を表示していません。
ZZZZ010828	10300	FORM=########################################################
ZZZZ010828	10310	COPY=NEXT
ZZZZ010828	10320	PROGRAM=NOT
ZZZZ010828	10400	FORM=28.1.4.2) '2+|4+'は繰り返しの番号と一致する物をOR条件で
ZZZZ010828	10500	FORM2=採用する(+)命令です。
ZZZZ010828	10600	FORM=◎REPEAT0=又はREAPEAT2=の場合は'$2+|$4+'とします。
ZZZZ010828	10700	FORM=★注意:ORとANDが混在している場合左から順番に判定す
ZZZZ010828	10800	FORM2=るので、
ZZZZ010828	10900	FORM=            ORが先に実行されその後ANDが実行されるように
ZZZZ010828	11000	FORM2=動きます。
ZZZZ010828	11100	FORM=========================================================
ZZZZ010828	11110	FORM= PROGRAM=NOT
ZZZZ010828	11200	FORM= REPEAT=5
ZZZZ010828	11300	FORM= 2+|4+
ZZZZ010828	11400	FORM2=FORM= ?_Q?_#?_Q?#=## , ?_Q?_#?_Q?-=#- , ?_Q?_#?_Q?+=#+
ZZZZ010828	11500	FORM= REPEAT=
ZZZZ010828	11510	FORM= DATA=DUMMY{1}
ZZZZ010828	11600	FORM=--------------------------------------------------------
ZZZZ010828	11700	REPEAT=5
ZZZZ010828	11800	2+|4+FORM= ?_#?#=## , ?_#?-=#- , ?_#?+=#+
ZZZZ010828	11900	REPEAT=
ZZZZ010828	12000	FORM=========================================================
ZZZZ010828	12100	FORM= 2と4を表示しています。
ZZZZ010828	12200	COPY=NEXT
ZZZZ010828	12300	PROGRAM=NOT
ZZZZ010828	12400	FORM=28.2.1)「NAME=[名前] 」はCOPY=で他の場所
ZZZZ010828	12500	FORM2=にコピー出来ます。
ZZZZ010828	12510	FORM=◎次のNAME=までが名前の範囲と成ります。
ZZZZ010828	12600	FORM=◎COPY=の前で必ずNAME=で名前を指定する必要があります。
ZZZZ010828	12700	FORM=◎名前はジョブ内でユニークで有る必要が有ります。
ZZZZ010828	12800	FORM=========================================================
ZZZZ010828	12810	FORM= PROGRAM=NOT
ZZZZ010828	12900	FORM= NAME=NAME_COPY
ZZZZ010828	13000	FORM= FORM= NAME_COPY
ZZZZ010828	13100	FORM= NAME=
ZZZZ010828	13200	FORM= COPY=NAME_COPY
ZZZZ010828	13210	FORM= DATA=DUMMY{1}
ZZZZ010828	13300	FORM=--------------------------------------------------------
ZZZZ010828	13400	NAME=NAME_COPY
ZZZZ010828	13500	FORM= NAME_COPY
ZZZZ010828	13600	NAME=
ZZZZ010828	13700	COPY=NAME_COPY
ZZZZ010828	13800	FORM=========================================================
ZZZZ010828	13900	FORM= NAME_COPYが2行表示されています。
ZZZZ010828	14000	COPY=NEXT
ZZZZ010828	14100	PROGRAM=NOT
ZZZZ010828	14200	FORM=28.2.2)「NAME2=[名前] 」はNAME=の中で指定できます。
ZZZZ010828	14210	FORM=◎次のNAME2=またはNAME=までが名前の範囲と成ります。
ZZZZ010828	14300	FORM=========================================================
ZZZZ010828	14310	FORM= PROGRAM=NOT
ZZZZ010828	14400	FORM= NAME=NAME_COPY1
ZZZZ010828	14500	FORM= FORM= NAME_COPY1
ZZZZ010828	14600	FORM= NAME2=NAME_COPY2
ZZZZ010828	14700	FORM= FORM= NAME_COPY2
ZZZZ010828	14800	FORM= NAME=
ZZZZ010828	14900	FORM= COPY=NAME_COPY2
ZZZZ010828	14910	FORM= DATA=DUMMY{1}
ZZZZ010828	15000	FORM=--------------------------------------------------------
ZZZZ010828	15100	NAME=NAME_COPY1
ZZZZ010828	15200	FORM= NAME_COPY1
ZZZZ010828	15300	NAME2=NAME_COPY2
ZZZZ010828	15400	FORM= NAME_COPY2
ZZZZ010828	15500	NAME=
ZZZZ010828	15600	COPY=NAME_COPY2
ZZZZ010828	15700	FORM=========================================================
ZZZZ010828	15800	FORM= NAME_COPY2のみが2行表示されています。
ZZZZ010828	15900	COPY=NEXT
ZZZZ010828	16000	PROGRAM=NOT
ZZZZ010828	16100	FORM=28.3.1.1)「IF{左辺データ=右辺データ[,[左辺データ]=
ZZZZ010828	16200	FORM2=右辺データ,..]}
ZZZZ010828	16300	FORM=   は条件分岐命令でカンマ区切りでは又はのOR判定と成りま
ZZZZ010828	16400	FORM2=す。
ZZZZ010828	16500	FORM=◎条件が偽の時;までスキップします。
ZZZZ010828	16600	FORM=◎左辺を省略する事も出来ます。
ZZZZ010828	16700	FORM=========================================================
ZZZZ010828	16800	FORM= D1= @ =IF{'B'='A',='B'}SET{D1='真'};
ZZZZ010828	16900	=IF{'B'='A',='B'}SET{D1='真'};
ZZZZ010828	17000	DATA={O}D1{2}
ZZZZ010828	17100	FORM=########################################################
ZZZZ010828	17200	FORM=28.3.1.2) IFの次にIFを書くと且つのAND判定と成ります。
ZZZZ010828	17300	FORM=========================================================
ZZZZ010828	17400	FORM= D2= @ =IF{'A'='A'}IF{'B'='B'}SET(D2='真'};
ZZZZ010828	17500	=IF{'A'='A'}IF{'B'='B'}SET{D2='真'};
ZZZZ010828	17600	DATA={O}D2{2}
ZZZZ010828	17700	FORM=########################################################
ZZZZ010828	17800	FORM=28.3.1.3)  IF{左辺データ/右辺データ}で右辺の文字数
ZZZZ010828	17900	FORM2=分を左辺の先頭と比較をします。
ZZZZ010828	18000	FORM=========================================================
ZZZZ010828	18100	FORM= D3= @ =IF{'ABC'/'AB'}SET{D1='真'};
ZZZZ010828	18200	=IF{'ABC'/'AB'}SET{D3='真'};
ZZZZ010828	18300	DATA={O}D3{2}
ZZZZ010828	18400	FORM=########################################################
ZZZZ010828	18500	FORM=28.3.1.4)  IF{左辺データ%右辺データ}で右辺の文字数
ZZZZ010828	18600	FORM2=分を左辺の最後と比較をします。
ZZZZ010828	18700	FORM=========================================================
ZZZZ010828	18800	FORM=D2= @ =IF{'ABC'%'BC'}SET{D4='真'};
ZZZZ010828	18900	=IF{'ABC'%'BC'}SET{D4='真'};
ZZZZ010828	19000	DATA={O}D4{2}
ZZZZ010828	19100	FORM=########################################################
ZZZZ010828	19200	FORM=28.3.1.5)  IF_NOT{左辺データ=右辺データ}で条件が偽の時
ZZZZ010828	19300	FORM2=真と成ります
ZZZZ010828	19400	FORM=========================================================
ZZZZ010828	19500	FORM=D3= @ =IF_NOT{'A'='B'}SET{D5='真'};
ZZZZ010828	19600	=IF_NOT{'A'='B'}SET{D5='真'};
ZZZZ010828	19700	DATA={O}D5{2}
ZZZZ010828	19800	FORM=########################################################
ZZZZ010828	19810	COPY=NEXT
ZZZZ010828	19820	PROGRAM=NOT
ZZZZ010828	19900	FORM=28.3.1.6)  IFには解読が困難になるのでELSEは有りませんが
ZZZZ010828	20000	FORM=,JUMP{};でELSEを実現出来ます。
ZZZZ010828	20100	FORM=★注意:セミコロンは命令の最後に書いても書かなくても良い
ZZZZ010828	20200	FORM2=ですが、
ZZZZ010828	20300	FORM=IFでは偽の時にセミコロンまでスキップするので、意味
ZZZZ010828	20400	FORM2=有るので注意が必要です。
ZZZZ010828	20500	FORM=特に支障のない限りは命令の最後にセミコロンを付ける事を
ZZZZ010828	20600	FORM2=推奨します。
ZZZZ010828	20700	FORM=========================================================
ZZZZ010828	20800	FORM=D6= @ =IF{'A'='B'}SET{D6='一致'}JUMP{};SET{D6='不一致'};
ZZZZ010828	20900	=IF{'A'='B'}SET{D6='一致'}JUMP{};SET{D6='不一致'};
ZZZZ010828	21000	DATA={O}D6{6}
ZZZZ010828	21100	FORM=========================================================
ZZZZ010828	21200	COPY=NEXT
ZZZZ010828	21300	PROGRAM=NOT
ZZZZ010828	21400	FORM=28.4.1) ?名前?をオペランドに書くと命令の読み出し時に
ZZZZ010828	21500	FORM2=内容で置き換えられます。
ZZZZ010828	21600	FORM=========================================================
ZZZZ010828	21700	FORM= =SET{WC.A='A',WC.B=,WC.C='C'}
ZZZZ010828	21800	=SET{WC.A='A',WC.B=,WC.C='C'}
ZZZZ010828	21900	=SET{A1=WC.A+WC.B+WC.C};
ZZZZ010828	22000	=SET{A2='?WC.A??WC.B??WC.C?'};
ZZZZ010828	22100	FORM= A1= @ =SET{A1=WC.A+WC.B+WC.C};
ZZZZ010828	22200	FORM2= {普通の結合｝
ZZZZ010828	22300	FORM= A2= @ =SET{A2='?_Q?WC.A?_Q??_Q?WC.B?_Q??_Q?WC.C?_Q?'};
ZZZZ010828	22400	FORM2= {?_Q?名前?_Q?を使った結合}
ZZZZ010828	22500	FORM=========================================================
ZZZZ010828	22600	DATA={O}A1{3}
ZZZZ010828	22700	DATA={O}A2{3}
ZZZZ010828	22800	FORM= どちらも同じ値の'AC'となりますが同じに成らない場合も
ZZZZ010828	22900	FORM2=あります。
ZZZZ010828	23000	FORM=========================================================
ZZZZ010828	23100	=SET{A3='?WC.A?'+'?WC.B?'+'?WC.C?'};
ZZZZ010828	23200	FORM= A3= @ =SET{A3='?_Q?WC.A?_Q?'+'?_Q?WC.B?_Q?'+'
ZZZZ010828	23300	FORM2=?_Q?WC.C?_Q?'};
ZZZZ010828	23400	FORM=========================================================
ZZZZ010828	23500	DATA={O}A3{3}
ZZZZ010828	23600	FORM= とすると結果は'A C'と空白が入ります、
ZZZZ010828	23700	FORM=これはSQLで空文字はRDBMSで意味が異なるため、I言語側で
ZZZZ010828	23800	FORM2=空白を追加している為です。
ZZZZ010828	23900	FORM=このようにI言語が気を聞かして余分な事をしているので、
ZZZZ010828	24000	FORM2=動作確認は必ず行って下さい。
ZZZZ010828	24100	FORM=########################################################
ZZZZ010828	24102	COPY=NEXT
ZZZZ010828	24110	PROGRAM=NOT
ZZZZ010828	24200	FORM=28.4.2) 解読が難しく成るので絶対に必要な時以外は
ZZZZ010828	24300	FORM2=使わないでほしいですが、
ZZZZ010828	24400	FORM=  ?_Q?名前?_Q?は変数名に書く事も出来ます。
ZZZZ010828	24500	FORM=REPEAT2=でREPEAT0=が有る場合$$が使えないので?W0.CNT?
ZZZZ010828	24600	FORM2=対応しています。
ZZZZ010828	24900	FORM=========================================================
ZZZZ010828	24910	FORM=PROGRAM=NOT
ZZZZ010828	24920	FORM=BEGIN
ZZZZ010828	25000	FORM==SET{WC.0.1='REAL',WC.0.2='TEST'};
ZZZZ010828	25100	FORM==SET{WC.1.1='MAST',WC.1.2='WORK'};
ZZZZ010828	25200	FORM==SET{WC.2.1='ZZZZ',WC.2.2='ZZZY'};
ZZZZ010828	25300	FORM=REPEAT0=2 ('REAL','TEST')
ZZZZ010828	25400	FORM=REPEAT=2  ('MAST','WORK')
ZZZZ010828	25500	FORM=DATA={O}D.$$.##.1{14}
ZZZZ010828	25600	FORM=DATA={O}D.$$.##.2{14}
ZZZZ010828	25700	FORM==SET{W0.CNT=1};
ZZZZ010828	25800	FORM=REPEAT2=2 ('ZZZZ','ZZZY')
ZZZZ010828	25900	FORM=FORM= ?_A?                      ?_A?
ZZZZ010828	26000	FORM==SET{D.$$.##.?W0.CNT?=
ZZZZ010828	26100	FORM==    WC.0.$$+'_'+WC.1.##+'_'+WC.2.?W0.CNT?};
ZZZZ010828	26200	FORM==COMPUTE{W0.CNT+=1};
ZZZZ010828	26300	FORM=REPEAT0=
ZZZZ010828	26310	FORM=DATA=DUMMY{1}
ZZZZ010828	26400	FORM=--------------------------------------------------------
ZZZZ010828	26500	=SET{WC.0.1='REAL',WC.0.2='TEST'};
ZZZZ010828	26600	=SET{WC.1.1='MAST',WC.1.2='WORK'};
ZZZZ010828	26700	=SET{WC.2.1='ZZZZ',WC.2.2='ZZZY'};
ZZZZ010828	26800	REPEAT0=2 ('REAL','TEST')
ZZZZ010828	26900	REPEAT=2  ('MAST','WORK')
ZZZZ010828	27000	DATA={O}D.$$.##.1{14}
ZZZZ010828	27100	DATA={O}D.$$.##.2{14}
ZZZZ010828	27200	FORM= D.$$.##.1= @@@@@@@@@@@@@@      D.$$.##.2= @
ZZZZ010828	27300	=SET{W0.CNT=1};
ZZZZ010828	27400	REPEAT2=2 ('ZZZZ','ZZZY')
ZZZZ010828	27500	=SET{D.$$.##.?W0.CNT?=WC.0.$$+'_'+WC.1.##+'_' +WC.2.?W0.CNT?}
ZZZZ010828	27600	=COMPUTE{W0.CNT+=1};
ZZZZ010828	27700	REPEAT0=
ZZZZ010828	27800	FORM=========================================================
ZZZZ010828	27900	COPY=NEXT
ZZZZ010828	28000	PROGRAM=NOT
ZZZZ010828	28100	FORM=28.5.1) 「データ名[先頭UNICODE位置;UNICODE文字数]」で
ZZZZ010828	28200	FORM2=内容の部分を抜き出せます。
ZZZZ010828	28300	FORM= UNICODEでも実際はUTF-16と呼ばれる文字コードを使用
ZZZZ010828	28400	FORM2=しています。
ZZZZ010828	28500	FORM= 殆どのデータは16ビットで1文字ですが、
ZZZZ010828	28600	FORM2=全てでは無くサロゲートペアと呼ばれるものは
ZZZZ010828	28700	FORM= 16ビットを2個使用しています。
ZZZZ010828	28800	FORM=又、結合文字と呼ばれる物は3個以上で１文字構成の物も有り
ZZZZ010828	28900	FORM=部分抜き出しは1文字でも長さは異なります。
ZZZZ010828	29000	=SET{D='A'+0XD867+0XDE3D+'B'+0X0075+0X0308+0X0304+'C'};
ZZZZ010828	29100	FORM=========================================================
ZZZZ010828	29200	FORM= D = @
ZZZZ010828	29300	FORM2==SET{D='A'+0XD867+0XDE3D+'B'+0X0075+0X0308+0X0304+'C'};
ZZZZ010828	29400	FORM=========================================================
ZZZZ010828	29500	FORM=2文字目がサロゲートペアで4文字目が結合文字です。
ZZZZ010828	29600	FORM=========================================================
ZZZZ010828	29700	FORM= D1= @ =SET{D1=D[2;1}; D1L= @ SET{D1L=D1?_A?LENGTH};
ZZZZ010828	29800	FORM2= (サロゲートペアで長さが2です)
ZZZZ010828	29900	FORM= D2= @ =SET{D2=D[4;1}; D2L= @ SET{D2L=D2?_A?LENGTH};
ZZZZ010828	30000	FORM2= (結合文字で長さが3です)
ZZZZ010828	30100	=SET{D1=D[2;1]};SET{D1L=D1@LENGTH};
ZZZZ010828	30200	=SET{D2=D[4;1]};SET{D2L=D2@LENGTH};
ZZZZ010828	30300	FORM=======================================================
ZZZZ010828	30400	DATA={O}D{8}
ZZZZ010828	30500	DATA={O}D1{8}
ZZZZ010828	30600	DATA={O}D1L{1,,+}
ZZZZ010828	30700	DATA={O}D2{8}
ZZZZ010828	30800	DATA={O}D2L{1,,+}
ZZZZ010828	30900	FORM= どちらも１文字抜き出していますが長さは2と3になっていま
ZZZZ010828	31000	FORM2=す。
ZZZZ010828	31100	FORM=I言語では全角文字は2文字とする前提で作られているので
ZZZZ010828	31200	FORM2=サロゲートペアでも問題は無いですが,
ZZZZ010828	31300	FORM=3文字以上で構成されている結合文字は考慮されていないので
ZZZZ010828	31400	FORM2=注意が必要です。
ZZZZ010828	31500	FORM=======================================================
ZZZZ010828	31600	FORM= D3= @ =SET{D3=D[2]}; (;以降を省略すると最後までです)
ZZZZ010828	31700	FORM= D4= @ =SET{D4=D[-2]}; (負の値は最後から数えた位置になり
ZZZZ010828	31800	FORM2=ます)
ZZZZ010828	31900	FORM= D5= @ =SET{D5=D[;2}; (;以前を省略すると最後からの文字数
ZZZZ010828	32000	FORM2=です)
ZZZZ010828	32100	FORM= D6= @ =SET{D6=D[6]}; (存在しない位置を指定してもエラー
ZZZZ010828	32200	FORM2=に成らず空白を転送します)
ZZZZ010828	32300	FORM= D7= @ =SET{D7=D[1;3]}; (先頭から３文字転送します）
ZZZZ010828	32410	FORM= D8= @ =SET{D8=D[1;;3]}; (;を2個にすると物理文字数で1+2=
ZZZZ010828	32420	FORM2=3の2文字と成ります）
ZZZZ010828	32500	=SET{D3=D[2],D4=D[-2],D5=D[;2],D6=D[6],D7=D[1;3],D8=D[1;;3]};
ZZZZ010828	32600	FORM=======================================================
ZZZZ010828	32700	DATA={O}D3{8}
ZZZZ010828	32800	DATA={O}D4{8}
ZZZZ010828	32900	DATA={O}D5{8}
ZZZZ010828	33000	DATA={O}D6{8}
ZZZZ010828	33100	DATA={O}D7{8}
ZZZZ010828	33110	DATA={O}D8{8}
ZZZZ010828	33200	COPY=NEXT
ZZZZ010828	33300	PROGRAM=NOT
ZZZZ010828	33400	FORM=28.6.1) 「SPLIT_CHAR{WN}{文字列}{区切文字};」
ZZZZ010828	33500	FORM2=で区切文字単位に文字列を分離します。
ZZZZ010828	33600	FORM=========================================================
ZZZZ010828	33700	FORM= WN1= @ WN2= @ WN3= @
ZZZZ010828	33800	FORM2= =SPLIT_CHAR{WN}{'ABC,DEF,GHI'}{','};
ZZZZ010828	33900	=SPLIT_CHAR{WN}{'ABC,DEF,GHI'}{','};
ZZZZ010828	34000	REPEAT=3
ZZZZ010828	34100	DATA={O}WN##{3}
ZZZZ010828	34200	REPEAT=
ZZZZ010828	34300	FORM=########################################################
ZZZZ010828	34400	FORM=28.6.2) 「SPLIT_FORM{WNN}{文字列}{文字数};」
ZZZZ010828	34500	FORM2=で表示文字数単位に文字列を分離します。
ZZZZ010828	34510	FORM=◎表示文字数では日本語は２文字と判定します。
ZZZZ010828	34600	FORM=========================================================
ZZZZ010828	34700	FORM= WNN1= @ WNN2= @ WNN3= @
ZZZZ010828	34800	FORM2= =SPLIT_FORM{WNN}{'123１２'}{3};
ZZZZ010828	34900	=SPLIT_FORM{WNN}{'123１２'}{3};
ZZZZ010828	35000	REPEAT=3
ZZZZ010828	35100	DATA={O}WNN##{3}
ZZZZ010828	35200	REPEAT=
ZZZZ010828	35300	FORM=======================================================
ZZZZ010828	35400	COPY=NEXT
ZZZZ010828	35500	PROGRAM=NOT
ZZZZ010828	35600	FORM=28.7.1) 大文字小文字変換は複数の方法があります。
ZZZZ010828	35700	FORM=########################################################
ZZZZ010828	35800	FORM= D1= @ =SET{_LOWER='ABC',D1=_LOWER};
ZZZZ010828	35900	= SET{_LOWER='ABC',D1=_LOWER};
ZZZZ010828	36000	DATA={O}D1{3}
ZZZZ010828	36100	FORM=########################################################
ZZZZ010828	36200	FORM= D2= @ =SET{WC='ABC',D2=WC?_A?LOWER};
ZZZZ010828	36300	=SET{WC='ABC',D2=WC@LOWER};
ZZZZ010828	36400	DATA={O}D2{3}
ZZZZ010828	36410	FORM=========================================================
ZZZZ010828	36420	FORM= データに有る場合即小文字を扱えます。
ZZZZ010828	36500	FORM=########################################################
ZZZZ010828	36600	FORM= FORM= ?_Q?_L(ABC)?_Q?
ZZZZ010828	36610	FORM=--------------------------------------------------------
ZZZZ010828	36700	FORM= ?_L(ABC)?
ZZZZ010828	36710	FORM=========================================================
ZZZZ010828	36720	FORM= その場で小文字を扱いたい場合使用出来ます。
ZZZZ010828	36800	FORM=#######################################################3
ZZZZ010828	36900	COPY=NEXT
ZZZZ010828	37000	PROGRAM=NOT
ZZZZ010828	37100	FORM=28.8.1) IF_ERROR_を命令の前に付けるとエラーが有っても
ZZZZ010828	37200	FORM2=異常終了しません。
ZZZZ010828	37300	FORM=========================================================
ZZZZ010828	37400	FORM= D11= @ D12= @
ZZZZ010828	37500	FORM2= =IF_ERROR_SET{D11='1234'}SET{D12='ERROR'};
ZZZZ010828	37600	 =IF_ERROR_SET{D11='1234'}SET{D12='ERROR'};
ZZZZ010828	37700	FORM=-------------------------------------------------------
ZZZZ010828	37800	FORM=3文字表示の位置に4文字送っているので通常へ異常終了します
ZZZZ010828	37900	FORM2=が、IF_ERROR_が付いているので、
ZZZZ010828	38000	FORM=D2に'ERROR'を転送しエラーに成りません。
ZZZZ010828	38100	DATA={O}D11{3}
ZZZZ010828	38200	DATA={O}D12{5}
ZZZZ010828	38300	FORM=======================================================
ZZZZ010828	38400	FORM=28.8.2) ERRORを無視する場合はNOP{};とします
ZZZZ010828	38500	FORM=--------------------------------------------------------
ZZZZ010828	38600	FORM= D2= @
ZZZZ010828	38700	FORM2= =IF_ERROR_SET{D2='1234'}NOP{};
ZZZZ010828	38800	 =IF_ERROR_SET{D2='1234'}NOP{};
ZZZZ010828	38900	DATA={O}D2{3}
ZZZZ010828	39000	FORM=======================================================
ZZZZ010828	39100	FORM=======================================================
ZZZZ010828	39200	FORM=28.8.3) 異常修了しないで単にエラーで再入力を促す場合は
ZZZZ010828	39300	FORM2=ERROR{};とします。
ZZZZ010828	39400	FORM=★注意:再入力位置が無いと異常終了してしまいます。
ZZZZ010828	39500	FORM=--------------------------------------------------------
ZZZZ010828	39600	FORM= D3= @
ZZZZ010828	39700	FORM2= =IF_ERROR_SET{D3='1234'}ERROR{};
ZZZZ010828	39800	=SET{W0.SW=0};
ZZZZ010828	39900	=EXIT3{};
ZZZZ010828	40000	DATA={}D3{3}
ZZZZ010828	40100	=IF{W0.SW=1}EXIT{};SET{W0.SW=1};
ZZZZ010828	40200	 =IF_ERROR_SET{D3='1234'}ERROR{};
ZZZZ010828	40300	FORM=======================================================
ZZZZ010828	40400	FORM= @ (修了です）
ZZZZ010828	40500	COPY=NEXT2
ZZZZ010828	40600	=EXIT{0};
ZZZZ010829	100	PROGRAM=NOT
ZZZZ010829	200	=SET{A1='経済産業省のDXレポートに「2025年の崖」と'
ZZZZ010829	300	=+'ショッキングな言葉が書かれています。'};
ZZZZ010829	400	=SET{A2='要約すると,既存システムのブラックボックス状態を'
ZZZZ010829	500	=   +'解消しないと「2025年の崖」となり,'};
ZZZZ010829	600	=SET{A3='DX化を阻害するとの事です。'};
ZZZZ010829	700	=SET{A4='別の言い方をすれば、既存システムは解読が困難に'
ZZZZ010829	800	=   +'成っていると言えます。'};
ZZZZ010829	900	=SET{A5='私自身も、昔作ったシステムが時間が経つと解読'
ZZZZ010829	1000	=   +'が困難に成り苦労した経験が有り, '};
ZZZZ010829	1100	=SET{A6='大きな問題と捉え,これも何とかしたいと簡易言語を作っ'
ZZZZ010829	1200	=+'ていました。'};
ZZZZ010829	1300	=SET{A7='解読困難にならない物として構造化プログラミングが'
ZZZZ010829	1400	=+'提案されたので作って見ましたが,'};
ZZZZ010829	1500	=SET{A8='構造化毎に分岐しており,解読が中断してしまい、'
ZZZZ010829	1600	= +'逆に解読が困難になっていました。'};
ZZZZ010829	1700	=SET{A9='この時,GOTO命令が解読を困難にするとの意見も'
ZZZZ010829	1800	=+'有りましたが,'};
ZZZZ010829	1900	=SET{A10='これも分岐命令で、分岐命令が解読を困難'
ZZZZ010829	2000	=+'にする原因で有ると確信しました。'};
ZZZZ010829	2100	=SET{A11='実際のプログラムを調べた所,一番分岐している物'
ZZZZ010829	2200	=+'は実は関数でした, '};
ZZZZ010829	2300	=SET{A12='関数は引数で変数名の読み替えも必要で,これも解読'
ZZZZ010829	2400	= +'を困難にしていました。'};
ZZZZ010829	2410	=SET{A13='これに止めを指したのがオブジェクト指向'
ZZZZ010829	2412	=+'プログラミングですが、'};
ZZZZ010829	2420	=SET{A14='私以外誰もこの事を指摘していないので,'
ZZZZ010829	2430	=+'[2025年の崖]にまっしぐらとなっています。'};
ZZZZ010829	2500	=SET{A15='なのでＩ言語には関数も有りません。'
ZZZZ010829	2600	=+'ただし、無いと同じ処理を何度も書く必要が有り、'};
ZZZZ010829	2700	=SET{A16='これも、解読を困難にするので,分岐しないで書いた'
ZZZZ010829	2800	=+'部分に名前を付け、'};
ZZZZ010829	2900	=SET{A17='それをコピーする命令を用意し、関数の短所を無くし'
ZZZZ010829	3000	=+'長所のみが生きるようにしました。'};
ZZZZ010829	3100	=SET{A18='構造化プログラミングでは順次と選択と繰り返しの３個'
ZZZZ010829	3200	=+'の構造が有ると言っています,'};
ZZZZ010829	3300	=SET{A19='これは意味ある内容で、選択と繰り返しは飛び先が'
ZZZZ010829	3400	=+'先か前かの違いです,'};
ZZZZ010829	3500	=SET{A20='これが、容易に解読出来るように、I言語ではGOTO命令'
ZZZZ010829	3600	=+'を選択で先に行くJUMP命令と'};
ZZZZ010829	3700	=SET{A21='繰り返しで前に戻るBACK命令を用意しました。'};
ZZZZ010829	3800	=SET{A22='現役時代に他人のプログラムで解読出来なかった'
ZZZZ010829	3900	=+'物が１個だけ有りました,'};
ZZZZ010829	4000	=SET{A23='それはIFとELSEの入れ子構造で25行に渡って書かれて'
ZZZZ010829	4100	=+'解読が全く出来ませんでした,'};
ZZZZ010829	4200	=SET{A24='そこで,I言語ではELSEを廃止し入れ子構造に成らない'
ZZZZ010829	4210	=+'ようにしました。'};
ZZZZ010829	4300	=SET{A25='一世代前のIPROGRAMでは約１年で1万本以上の'
ZZZZ010829	4400	=+'プログラムが作られ、'};
ZZZZ010829	4500	=SET{A26='即座にプログラムが作れる事が実証されていますが、'};
ZZZZ010829	4600	=SET{A27='１本を最大19人で更新しており、容易に解読出来る事も'
ZZZZ010829	4700	=+'実証されています。'};
ZZZZ010829	4800	REPEAT=27
ZZZZ010829	4900	FORM=@
ZZZZ010829	5000	DATA={O}A##{80}
ZZZZ010829	5100	REPEAT=
ZZZZ010829	5200	FORM=音声を出す @ @
ZZZZ010829	5300	=SET{SPEAK='YES'};
ZZZZ010829	5400	DATA=SPEAK{4}{YES,NO}
ZZZZ010829	5500	=IF{_DATA='NO'}EXIT{};
ZZZZ010829	5600	REPEAT=27
ZZZZ010829	5700	=SET{A##@COLOR='Y'};
ZZZZ010829	5800	=SET{WN=A##};
ZZZZ010829	5900	8+|9+|12+|20+|26+=SQL_SET{WN}{SELECT REPLACE('?WN?',
ZZZZ010829	6000	8+='毎','ごと'
ZZZZ010829	6100	9+|20+='GOTO','ごおつう'
ZZZZ010829	6200	12+='名','めい'
ZZZZ010829	6210	26+='作','つく'
ZZZZ010829	6300	8+|9+|12+|20+|26+=) ?_FROM_DUAL?};
ZZZZ010829	6400	=SPEAK{?WN?};
ZZZZ010829	6500	=SET{A##@COLOR='L'};
ZZZZ010829	6600	REPEAT=
ZZZZ010829	6700	NAME=NEXT
ZZZZ010829	7000	DATA={}NEXT1{4}
ZZZZ010829	7900	=EXIT{0};
ZZZZ010830	100	PROGRAM=NOT
ZZZZ010830	200	=SET{A1='誰でも簡単に出来る為の最初の対応は'
ZZZZ010830	300	=+'リレーショナルデータベース(RDB)を使う事でした,'};
ZZZZ010830	400	=SET{A2='COBOLを簡単に作れるICOBOLを作りましたが'
ZZZZ010830	500	=  +',RDBのSQLを使った方が簡単に作れた為です。'};
ZZZZ010830	600	=SET{A3='つまり,SQLが簡単に出来るようにした救世主です。'};
ZZZZ010830	700	=SET{A4='SQLはデータの定義と操作以外は出来ないのでプログラ'
ZZZZ010830	800	=  +'ミング言語も必要です。'};
ZZZZ010830	900	=SET{A5='プログラミング言語で最初に対応した事は予約語の'
ZZZZ010830	1000	=   +'廃止でした, '};
ZZZZ010830	1100	=SET{A6='初心者は予約語を覚え切れないので使ってしまい,'
ZZZZ010830	1200	=   +'意味不明のエラーを出し, '};
ZZZZ010830	1300	=SET{A7='難しいと感じてしまう事を防ぐ為でした。'};
ZZZZ010830	1400	=SET{A8='そこで命令部と変数名を書くオペランド部を明確に'
ZZZZ010830	1500	=+'分かる書き方としました,'};
ZZZZ010830	1600	=SET{A9='他のプログラミング言語とは全く異なる書き方で,'
ZZZZ010830	1700	=+'3種類も用意したので,'};
ZZZZ010830	1800	=SET{A10='経験者には違和感が有りますが,書き方は簡単ですので,'
ZZZZ010830	1900	= +'直ぐに慣れます。'};
ZZZZ010830	2000	=SET{A11='その他,初心者が良く質問をする物は可能な限り'
ZZZZ010830	2100	=+'使わない事としました,'};
ZZZZ010830	2200	=SET{A12='データ型,配列,構造体,FOR,WHILE,DO,SWITCH,関数,'
ZZZZ010830	2300	=+'オブジェクト指向等は使いません。'};
ZZZZ010830	2400	=SET{A13='尚,無いと困る物も有るので簡単な文法で対応して'
ZZZZ010830	2500	=+'います。'};
ZZZZ010830	2600	=SET{A14='SQLには予約語もデータ型も有り,'
ZZZZ010830	2700	=+'無くすと逆に複雑に成るので使いますが,'};
ZZZZ010830	2800	=SET{A15='データ辞書登録で予約語をチェックして'
ZZZZ010830	2900	= +'いるので予約語を覚える必要は有りません。'};
ZZZZ010830	3000	=SET{A16='勿論,難しい事と時間の掛かる事は50年をかけて'
ZZZZ010830	3100	=+'言語側に組み込んで来た事が,'};
ZZZZ010830	3200	=SET{A17='簡単に出来る一番の理由です。'};
ZZZZ010830	3210	=SET{A18='一般的なシステムの約７割りはデータの更新と検索'
ZZZZ010830	3220	=+'のプログラムです,'};
ZZZZ010830	3230	=SET{A19='このようなプログラムはプログラミングしなくても'
ZZZZ010830	3240	=+'画面の操作だけで作れ,'};
ZZZZ010830	3250	=SET{A20='誰でも簡単に出来るように成っています。'};
ZZZZ010830	3300	REPEAT=20
ZZZZ010830	3400	FORM=@
ZZZZ010830	3500	DATA={O}A##{80}
ZZZZ010830	3600	REPEAT=
ZZZZ010830	3700	FORM=音声を出す @ @
ZZZZ010830	3800	=SET{SPEAK='YES'};
ZZZZ010830	3900	DATA=SPEAK{4}{YES,NO}
ZZZZ010830	4000	=IF{_DATA='NO'}EXIT{};
ZZZZ010830	4100	REPEAT=20
ZZZZ010830	4200	=SET{A##@COLOR='Y'};
ZZZZ010830	4300	=SET{WN=A##};
ZZZZ010830	4400	2+|8+=SQL_SET{WN}{SELECT REPLACE('?WN?',
ZZZZ010830	4500	2+='I','アイ'
ZZZZ010830	4600	8+='名','めい'
ZZZZ010830	4700	2+|8+=) ?_FROM_DUAL?};
ZZZZ010830	4800	=SPEAK{?WN?};
ZZZZ010830	4900	=SET{A##@COLOR='L'};
ZZZZ010830	5000	REPEAT=
ZZZZ010830	5100	NAME=NEXT
ZZZZ010830	5200	DATA={}NEXT1{4}
ZZZZ010830	5300	=EXIT{0};
ZZZZ400101	100	*OUTPUT
ZZZZ400103	100	PROGRAM=OUTPUT,&X1,?_MM?_SLIP_NO_KEEP_TABLE
ZZZZ400103	200	CONTROL=0
ZZZZ400103	300	SET={,}ALL{4}{ALL,}
ZZZZ400103	400	=IF{ALL='ALL'}SET{_DATA@WHERE=}JUMP{};
ZZZZ400103	500	=             SET{_DATA@WHERE='HATTYUU_DATE='' '''};
ZZZZ400103	600	*SET={}?&.SET&HATTYUU_NO_BEGIN?
ZZZZ400103	700	*SET={}?&.SET&HATTYUU_NO_END?
ZZZZ400103	800	*SET={}?&.SET&HATTYUU_DATE?
ZZZZ400103	900	*****( 年月日 )*****
ZZZZ400103	1000	DATA={D }?&.DATA&HATTYUU_DATE?
ZZZZ400103	1100	*****( 開始番号 )*****
ZZZZ400103	1200	DATA={KD}?&.DATA&HATTYUU_NO_BEGIN?
ZZZZ400103	1300	*****( 終了番号 )*****
ZZZZ400103	1400	DATA={  }?&.DATA&HATTYUU_NO_END?
ZZZZ400103	1500	COPY=@ZZZZZZ_SQL
ZZZZ400103	1600	PROGRAM=NOT,&X1,?_MM?_SLIP_NO_KEEP_TABLE
ZZZZ400103	1700	CONTROL=PROGRAM
ZZZZ400103	1800	BEGIN
ZZZZ400103	1900	=SQL_SET{COUNT}{SELECT COUNT(*) FROM ?_MM?_SLIP_PLAN_TABLE
ZZZZ400103	2000	=   WHERE HATTYUU_NO>='?HATTYUU_NO_BEGIN?0'
ZZZZ400103	2100	=   AND   HATTYUU_NO<='?HATTYUU_NO_END?9' AND Z_CANCEL=' '};
ZZZZ400103	2200	=IF{COUNT=0}SET{W_YES='NO'}JUMP{};
ZZZZ400103	2300	=           SET{W_YES='YES,NO'};
ZZZZ400103	2400	DATA={O}$?&.DATA&HATTYUU_NO_BEGIN?
ZZZZ400103	2500	DATA={O}$?&.DATA&HATTYUU_NO_END?
ZZZZ400103	2600	DATA={O}$?&.DATA&HATTYUU_DATE?
ZZZZ400103	2700	DATA={O}COUNT{5,,+,Z}件数
ZZZZ400103	2800	*ATA=XXX{4}{YES,NO}実行
ZZZZ400103	2900	DATA=YES{4}{?W_YES?}実行
ZZZZ400103	3000	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ400103	3100	=IF{HATTYUU_DATE=}
ZZZZ400103	3200	=   SET{HATTYUU_DATE=_TODAY}
ZZZZ400103	3300	=   PROGRAM{3,?_TABLE?,HATTYUU_DATE}{HATTYUU_NO_BEGIN}{};
ZZZZ400103	3400	=SET{WC.CMD='PRINT'};
ZZZZ400103	3500	=IF{_REAL_TEST='TEST'}SET{WC.CMD='DISPLAY'};
ZZZZ400103	3600	=IF_ERROR_IPRINT{ZZZZZZ_SAMPLE_HATTYU,?WC.CMD?,,
ZZZZ400103	3700	=    SELECT '?HATTYUU_DATE?',?_T?.HATTYUU_PLACE
ZZZZ400103	3800	=   ,X2.HATTYUU_PLACE_NAME,?_T?.HATTYUU_DATE
ZZZZ400103	3900	=   ,?_T?.HATTYUU_STORAGE
ZZZZ400103	4000	=   ,X3.HATTYUU_STORAGE_NAME,?_T?.HATTYUU_NO
ZZZZ400103	4100	=   ,?_T?.HATTYUU_OBJECT
ZZZZ400103	4200	=   ,X4.HATTYUU_OBJECT_NAME,X4.HATTYUU_UNIT
ZZZZ400103	4300	=   ,CASE ?_T?.HATTYUU_PLACE
ZZZZ400103	4400	=      WHEN ?_T?.HATTYUU_OWNER_PLACE THEN ' '
ZZZZ400103	4500	=      ELSE ?_T?.HATTYUU_OWNER_PLACE END
ZZZZ400103	4600	=   ,CASE ?_T?.HATTYUU_PLACE
ZZZZ400103	4700	=      WHEN ?_T?.HATTYUU_OWNER_PLACE THEN ' '
ZZZZ400103	4800	=      ELSE X5.HATTYUU_PLACE_NAME END
ZZZZ400103	4900	=   ,?_T?.HATTYUU_QTY_SUM,?_T?.HATTYUU_NO
ZZZZ400103	5000	=   FROM ?_MM?_SLIP_PLAN_TABLE ?_T?
ZZZZ400103	5100	=   LEFT OUTER JOIN ?_MM?_PLACE_TABLE X2 ON
ZZZZ400103	5200	=   X2.?_NE&HATTYUU_PLACE? AND X2.Z_CANCEL=' '
ZZZZ400103	5300	=   LEFT OUTER JOIN ?_MM?_STORAGE_TABLE X3 ON
ZZZZ400103	5400	=   X3.?_NE&HATTYUU_STORAGE? AND X3.Z_CANCEL=' '
ZZZZ400103	5500	=   LEFT OUTER JOIN ?_MM?_OBJECT_TABLE X4 ON
ZZZZ400103	5600	=   X4.?_NE&HATTYUU_OBJECT? AND X4.Z_CANCEL=' '
ZZZZ400103	5700	=   LEFT OUTER JOIN ?_MM?_PLACE_TABLE X5 ON
ZZZZ400103	5800	=   ?_T?.HATTYUU_OWNER_PLACE=X5.HATTYUU_PLACE
ZZZZ400103	5900	=   AND X5.Z_CANCEL=' '
ZZZZ400103	6000	=   WHERE HATTYUU_NO>='?HATTYUU_NO_BEGIN?0'
ZZZZ400103	6100	=   AND   HATTYUU_NO<='?HATTYUU_NO_END?9'
ZZZZ400103	6200	=   AND ?_T?.Z_CANCEL=' '
ZZZZ400103	6300	=   ORDER BY ?_T?.HATTYUU_NO}ERROR{};
ZZZZ400103	6400	=EXIT{_END};
ZZZZ400105	100	PROGRAM=,&X1,?_MM?_PRODUCTION_TABLE
ZZZZ400105	200	*TABLE=&X2,?_MM?_OBJECT_TABLE
ZZZZ400105	300	*TABLE=&X3,?_MM?_PLACE_TABLE
ZZZZ400105	400	SET={,X2}.?&.SET&HATTYUU_OBJECT?
ZZZZ400105	500	*SET={}SX2.?&X2.SET&OBJECT_NAME?
ZZZZ400105	600	SET={,X3}.?&.SET&HATTYUU_PLACE?
ZZZZ400105	700	*SET={}SX3.?&X3.SET&PLACE_NAME?
ZZZZ400105	800	SET={}.?&.SET&HATTYUU_DATE?
ZZZZ400105	900	SET={N}.?&.SET&HATTYUU_QTY?
ZZZZ400105	1000	=SET{_DATA@WHERE='?_NAME_SQL?>0'};
ZZZZ400105	1100	*SET={}?&.SET&HATTYUU_PERSON?
ZZZZ400105	1200	*****( 物 )*****
ZZZZ400105	1300	DATA={K,X2}?&.DATA&HATTYUU_OBJECT?
ZZZZ400105	1400	*DATA={*O}X2.?&X2.DATA&&HATTYUU_OBJECT_NAME?
ZZZZ400105	1500	*****( 場所 )*****
ZZZZ400105	1600	DATA={K,X3}?&.DATA&HATTYUU_PLACE?
ZZZZ400105	1700	*DATA={*O}X3.?&X3.DATA&&HATTYUU_PLACE_NAME?
ZZZZ400105	1800	*****( 年月日 )*****
ZZZZ400105	1900	DATA={KD}?&.DATA&HATTYUU_DATE?
ZZZZ400105	2000	*****( 数量 )*****
ZZZZ400105	2100	DATA={}?&.DATA&HATTYUU_QTY?
ZZZZ400105	2200	*****( 担当者 )*****
ZZZZ400105	2300	DATA={}?&.DATA&HATTYUU_PERSON?
ZZZZ400105	2400	COPY=@ZZZZZZ_SQL
ZZZZ400106	100	PROGRAM=,&X1,?_MM?_SLIP_PLAN_TABLE
ZZZZ400106	200	TABLE=&X7,?_MM?_ETC_TABLE
ZZZZ400106	300	CONTROL=SCROLL
ZZZZ400106	400	*SET={}?&.SET&HATTYUU_NO?
ZZZZ400106	500	SET={,X2}.?&.SET&HATTYUU_OBJECT?
ZZZZ400106	600	*SET={}SX2.?&X2.SET&HATTYUU_OBJECT_NAME?
ZZZZ400106	700	SET={}.?&.SET&HATTYUU_DATE?
ZZZZ400106	800	SET={,X3}.?&.SET&HATTYUU_PLACE?
ZZZZ400106	900	*SET={}SX3.?&X3.SET&HATTYUU_PLACE_NAME?
ZZZZ400106	1000	SET={,X4}.?&.SET&HATTYUU_OWNER_PLACE?
ZZZZ400106	1100	*SET={}SX4.?&X4.SET&HATTYUU_PLACE_NAME?
ZZZZ400106	1200	*SET={}?&.SET&HATTYUU_QTY_SUM?
ZZZZ400106	1300	*SET={,X5}?&.SET&HATTYUU_PRODUCTION_MARK?
ZZZZ400106	1400	*SET={}SX5.?&X5.SET&HATTYUU_ETC_DATA?
ZZZZ400106	1500	*SET={,X6}?&.SET&HATTYUU_ONEROUS_MARK?
ZZZZ400106	1600	*SET={}SX6.?&X6.SET&HATTYUU_ETC_DATA?
ZZZZ400106	1700	*SET={}?&.SET&HATTYUU_ONEROUS_COST?
ZZZZ400106	1800	*SET={}?&.SET&HATTYUU_MATERIAL_COST?
ZZZZ400106	1900	*SET={}?&.SET&HATTYUU_PROCESS_COST?
ZZZZ400106	2000	SET={=,&X7}.?&.DATA&HATTYUU_SLIP_MARK?
ZZZZ400106	2100	=IF{_DATA=}SET{_DATA@WHERE='?_NAME_SQL?='' '''};
ZZZZ400106	2200	SET={O,*}SX7.?&X7.SET&HATTYUU_ETC_DATA?
ZZZZ400106	2300	*SET={}?&.SET&HATTYUU_START_DATE?
ZZZZ400106	2400	*SET={,X8}?&.SET&HATTYUU_STORAGE?
ZZZZ400106	2500	*SET={}SX8.?&X8.SET&HATTYUU_STORAGE_NAME?
ZZZZ400106	2600	*****( 物 )*****
ZZZZ400106	2700	DATA={,X2}?&.DATA&HATTYUU_OBJECT?
ZZZZ400106	2800	*****( 年月日 )*****
ZZZZ400106	2900	DATA={}?&.DATA&HATTYUU_DATE?
ZZZZ400106	3000	*****( 場所 )*****
ZZZZ400106	3100	DATA={,X3}?&.DATA&HATTYUU_PLACE?
ZZZZ400106	3200	*****( 親場所 )*****
ZZZZ400106	3300	DATA={,X4}?&.DATA&HATTYUU_OWNER_PLACE?
ZZZZ400106	3400	*****( 集計数量 )*****
ZZZZ400106	3500	DATA={}?&.DATA&HATTYUU_QTY_SUM?
ZZZZ400106	3600	*****( 着手日 )*****
ZZZZ400106	3700	DATA={}?&.DATA&HATTYUU_START_DATE?
ZZZZ400106	3800	*****( 倉庫 )*****
ZZZZ400106	3900	DATA={,X8}?&.DATA&HATTYUU_STORAGE?
ZZZZ400106	4000	*****( 伝票記号 )*****
ZZZZ400106	4100	DATA={,&X7}?&.DATA&HATTYUU_SLIP_MARK?
ZZZZ400106	4200	DATA={*O}X7.?&X7.DATA&HATTYUU_ETC_DATA?
ZZZZ400106	4300	COPY=@ZZZZZZ_SQL
ZZZZ400108	100	PROGRAM=,&X1,?_MM?_SLIP_DO_TABLE
ZZZZ400108	200	CONTROL=SCROLL
ZZZZ400108	300	*SET={}?&.SET&HATTYUU_NO?
ZZZZ400108	400	SET={,X2}.?&.SET&HATTYUU_OBJECT?
ZZZZ400108	500	*SET={}SX2.?&X2.SET&HATTYUU_OBJECT_NAME?
ZZZZ400108	600	SET={}.?&.SET&HATTYUU_DATE?
ZZZZ400108	700	SET={,X3}.?&.SET&HATTYUU_PLACE?
ZZZZ400108	800	*SET={}SX3.?&X3.SET&HATTYUU_PLACE_NAME?
ZZZZ400108	900	SET={,X4}.?&.SET&HATTYUU_OWNER_PLACE?
ZZZZ400108	1000	*SET={}SX4.?&X4.SET&HATTYUU_PLACE_NAME?
ZZZZ400108	1100	*SET={}?&.SET&HATTYUU_QTY_SUM?
ZZZZ400108	1200	*SET={,X5}?&.SET&HATTYUU_PRODUCTION_MARK?
ZZZZ400108	1300	*SET={}SX5.?&X5.SET&HATTYUU_ETC_DATA?
ZZZZ400108	1400	*SET={,X6}?&.SET&HATTYUU_ONEROUS_MARK?
ZZZZ400108	1500	*SET={}SX6.?&X6.SET&HATTYUU_ETC_DATA?
ZZZZ400108	1600	*SET={}?&.SET&HATTYUU_ONEROUS_COST?
ZZZZ400108	1700	*SET={}?&.SET&HATTYUU_MATERIAL_COST?
ZZZZ400108	1800	*SET={}?&.SET&HATTYUU_PROCESS_COST?
ZZZZ400108	1900	*SET={,X7}?&.SET&HATTYUU_SLIP_MARK?
ZZZZ400108	2000	*SET={}SX7.?&X7.SET&HATTYUU_ETC_DATA?
ZZZZ400108	2100	*SET={}?&.SET&HATTYUU_START_DATE?
ZZZZ400108	2200	*SET={,X8}?&.SET&HATTYUU_STORAGE?
ZZZZ400108	2300	*SET={}SX8.?&X8.SET&HATTYUU_STORAGE_NAME?
ZZZZ400108	2400	*SET={,X9}?&.SET&HATTYUU_IN_MARK?
ZZZZ400108	2500	*SET={}SX9.?&X9.SET&HATTYUU_ETC_DATA?
ZZZZ400108	2600	*SET={,X10}?&.SET&HATTYUU_OUT_MARK?
ZZZZ400108	2700	*SET={}SX10.?&X10.SET&HATTYUU_ETC_DATA?
ZZZZ400108	2800	*****( 番号 )*****
ZZZZ400108	2900	*DATA={K}.?&.DATA&HATTYUU_NO?
ZZZZ400108	3000	*****( 物 )*****
ZZZZ400108	3100	DATA={,X2}?&.DATA&HATTYUU_OBJECT?
ZZZZ400108	3200	*****( 年月日 )*****
ZZZZ400108	3300	DATA={}?&.DATA&HATTYUU_DATE?
ZZZZ400108	3400	*****( 場所 )*****
ZZZZ400108	3500	DATA={,X3}?&.DATA&HATTYUU_PLACE?
ZZZZ400108	3600	*****( 親場所 )*****
ZZZZ400108	3700	DATA={,X4}?&.DATA&HATTYUU_OWNER_PLACE?
ZZZZ400108	3800	*****( 集計数量 )*****
ZZZZ400108	3900	DATA={}?&.DATA&HATTYUU_QTY_SUM?
ZZZZ400108	4000	*****( 生産記号 )*****
ZZZZ400108	4100	DATA={,X5}?&.DATA&HATTYUU_PRODUCTION_MARK?
ZZZZ400108	4200	*****( 有償記号 )*****
ZZZZ400108	4300	DATA={,X6}?&.DATA&HATTYUU_ONEROUS_MARK?
ZZZZ400108	4400	*****( 伝票記号 )*****
ZZZZ400108	4500	DATA={,X7}?&.DATA&HATTYUU_SLIP_MARK?
ZZZZ400108	4600	*****( 着手日 )*****
ZZZZ400108	4700	DATA={}?&.DATA&HATTYUU_START_DATE?
ZZZZ400108	4800	*****( 倉庫 )*****
ZZZZ400108	4900	DATA={,X8}?&.DATA&HATTYUU_STORAGE?
ZZZZ400108	5000	*****( 入庫記号 )*****
ZZZZ400108	5100	DATA={,X9}?&.DATA&HATTYUU_IN_MARK?
ZZZZ400108	5200	*****( 出庫記号 )*****
ZZZZ400108	5300	DATA={,X10}?&.DATA&HATTYUU_OUT_MARK?
ZZZZ400108	5400	COPY=@ZZZZZZ_SQL
ZZZZ400110	100	PROGRAM=,&X1,?_MM?_STOCK_PLACE_TABLE
ZZZZ400110	200	TABLE=&X2,?_MM?_OBJECT_TABLE
ZZZZ400110	300	TABLE=&X3,?_MM?_PLACE_TABLE
ZZZZ400110	400	SET={,X2}.?&.SET&HATTYUU_OBJECT?
ZZZZ400110	500	*SET={}SX2.?&X2.SET&HATTYUU_OBJECT_NAME?
ZZZZ400110	600	SET={,X3}.?&.SET&HATTYUU_PLACE?
ZZZZ400110	700	*SET={}SX3.?&X3.SET&HATTYUU_PLACE_NAME?
ZZZZ400110	800	*SET={}?&.SET&HATTYUU_QTY_SUM?
ZZZZ400110	900	*SET={}?&.SET&HATTYUU_BEGIN_QTY?
ZZZZ400110	1000	*SET={}?&.SET&HATTYUU_DATE?
ZZZZ400110	1100	*****( 物 )*****
ZZZZ400110	1200	DATA={K,&X2}?&.DATA&HATTYUU_OBJECT?
ZZZZ400110	1300	DATA={*O}X2.?&X2.DATA&HATTYUU_OBJECT_NAME?
ZZZZ400110	1400	*****( 場所 )*****
ZZZZ400110	1500	DATA={K,&X3}?&.DATA&HATTYUU_PLACE?
ZZZZ400110	1600	DATA={*O}X3.?&X3.DATA&HATTYUU_PLACE_NAME?
ZZZZ400110	1700	*****( 数量 )*****
ZZZZ400110	1800	DATA={}?&.DATA&HATTYUU_QTY_SUM?
ZZZZ400110	1900	*****( 初期数量 )*****
ZZZZ400110	2000	DATA={}?&.DATA&HATTYUU_QTY_SUM_BEGIN?
ZZZZ400110	2100	*****( 年月日 )*****
ZZZZ400110	2200	DATA={}?&.DATA&HATTYUU_DATE?
ZZZZ400110	2300	COPY=@ZZZZZZ_SQL
ZZZZ400119	100	*OUTPUT
ZZZZ400120	100	*OUTPUT
ZZZZ400121	100	PROGRAM=OUTPUT,&X1,?_MM?_PROCESS_TABLE
ZZZZ400121	200	INNER=&X2,?_MM?_OBJECT_TABLE,,
ZZZZ400121	300	JOIN_ON=    X2.HATTYUU_OBJECT_MARK='F'
ZZZZ400121	400	JOIN_ON=AND X2.HATTYUU_BOM_OK=' '
ZZZZ400121	500	JOIN_ON=AND X2.HATTYUU_PROCESS_OK=' '
ZZZZ400121	600	JOIN_ON=AND X2.HATTYUU_DISCONTINUE_MARK=' '
ZZZZ400121	700	INNER=&X3,?_MM?_PLACE_TABLE
ZZZZ400121	800	CONTROL=0
ZZZZ400121	900	BEGIN
ZZZZ400121	1000	*=SET{DAYS=62};
ZZZZ400121	1100	SET={}.?&.SET&HATTYUU_PERSON?
ZZZZ400121	1200	SET={}.?&.SET&HATTYUU_PLACE?
ZZZZ400121	1300	SET={}.?&.SET&HATTYUU_OBJECT?
ZZZZ400121	1400	SET={N,*}DAYS{5,,+}日数
ZZZZ400121	1500	=SET{_DATA@WHERE='?_T?.HATTYUU_ARRANGE_MARK='' '''
ZZZZ400121	1600	=   +' AND ?_T?.HATTYUU_PERCENT>0'
ZZZZ400121	1700	=   +' AND(?_T?.HATTYUU_COST_OK='' '''
ZZZZ400121	1800	=   +' OR X3.HATTYUU_PLACE_MARK<>''0'')'};
ZZZZ400121	1900	MENU_INPUT-COMMENT_BEGIN
ZZZZ400121	2000	START
ZZZZ400121	2100	NAME=MRP_RUN
ZZZZ400121	2200	=PROGRAM{0,?_MM?_ETC_TABLE}{WC.HATTYUU_ETC='WW_MRP_RUN'
ZZZZ400121	2300	=   ,WC.HATTYUU_ETC_KEY=' ',WN.HATTYUU_ETC_DATA='1'}{};
ZZZZ400121	2400	=IF{_PROGRAM_COUNT>0}
ZZZZ400121	2500	=   ERROR{MRP準備処理中しばらくお待ち下さい！};
ZZZZ400121	2600	NAME=
ZZZZ400121	2700	MENU_INPUT-COMMENT_END
ZZZZ400121	2800	DATA={ }?&.DATA&HATTYUU_PERSON?
ZZZZ400121	2900	DATA={K}?&.DATA&HATTYUU_PLACE?
ZZZZ400121	3000	DATA={K}?&.DATA&HATTYUU_OBJECT?
ZZZZ400121	3100	DATA={O}X2.?&X2.DATA&HATTYUU_OBJECT_NAME?
ZZZZ400121	3200	COPY=@ZZZZZZ_SQL
ZZZZ400121	3300	MENU_INPUT+REPEAT0=3
ZZZZ400121	3400	PROGRAM=,&X1,?_MM?_PRODUCTION_TABLE
ZZZZ400121	3500	RIGHT=&X2,?_MM?_CALENDAR_TABLE,,*
ZZZZ400121	3600	JOIN_ON=    X2.?_NE&.X1.HATTYUU_DATE?
ZZZZ400121	3700	JOIN_ON=AND ?_VE&.HATTYUU_OBJECT?
ZZZZ400121	3800	JOIN_ON=AND X1.?_VRE&X3.HATTYUU_PLACE?
ZZZZ400121	3900	JOIN_ON=AND ?_VE&X2.HATTYUU_PLACE?
ZZZZ400121	4000	LEFT=&X3,?_MM?_PLACE_TABLE
ZZZZ400121	4100	JOIN_ON=?_VE&X3.HATTYUU_PLACE?
ZZZZ400121	4200	LEFT=&X4,?_MM?_PRODUCTION_W_TABLE
ZZZZ400121	4300	CONTROL=PROGRAM_ERROR,1,2,BEGIN_ENTER
ZZZZ400121	4400	MENU_INPUT+$3-CONTROL=0
ZZZZ400121	4500	MENU_INPUT+$1-CONTROL=3
ZZZZ400121	4600	COLOR
ZZZZ400121	4700	=IF{X2.HATTYUU_DATE<=WN.W_PRODUCTION_DATE}JUMP{L};
ZZZZ400121	4800	=  SET{X2.HATTYUU_DATE@COLOR='W'};JUMP{X};
ZZZZ400121	4900	=L:SET{X2.HATTYUU_DATE@COLOR='L'};
ZZZZ400121	5000	=X:IF{X2.HATTYUU_HOLIDAY=}EXIT{};
ZZZZ400121	5100	=IF{HATTYUU_QTY>0}JUMP{R};
ZZZZ400121	5200	=  SET{HATTYUU_QTY@COLOR='Y'};JUMP{X};
ZZZZ400121	5300	=R:SET{HATTYUU_QTY@COLOR='R'};
ZZZZ400121	5400	=X:
ZZZZ400121	5500	BEGIN
ZZZZ400121	5600	*=SET{X3.HATTYUU_PLACE=$HATTYUU_PLACE};
ZZZZ400121	5700	=SQL_SET{WN.W_PRODUCTION_DATE}{SELECT HATTYUU_ETC_DATA FROM
ZZZZ400121	5800	=   ?_MM?_ETC_TABLE WHERE HATTYUU_ETC='WW_PRODUCTION_DATE'
ZZZZ400121	5900	=   AND HATTYUU_ETC_KEY=' ' AND Z_CANCEL=' '};
ZZZZ400121	6000	=IF{_SQL_SET_COUNT=0}
ZZZZ400121	6100	=   ERROR{ETC,WW_PRODUCTION_DATE NOT FOUND};
ZZZZ400121	6200	*SET{HATTYUU_DATE=_TODAY[1;6]};
ZZZZ400121	6300	=SQL_SET{X2.HATTYUU_PLACE}{SELECT CASE HATTYUU_CALENDAR_MARK
ZZZZ400121	6400	=   WHEN ' ' THEN HATTYUU_PLACE
ZZZZ400121	6500	=   WHEN '*' THEN HATTYUU_CALENDAR_PLACE
ZZZZ400121	6600	=   ELSE (SELECT HATTYUU_PLACE FROM ?&X3.TABLE? XX3 WHERE
ZZZZ400121	6700	=   XX3.HATTYUU_PLACE_MARK='=' AND XX3.Z_CANCEL=' ')END
ZZZZ400121	6800	=   FROM  ?&X3.TABLE? X3
ZZZZ400121	6900	=   WHERE ?_VE&X3.HATTYUU_PLACE?};
ZZZZ400121	7000	$2+=SET{SX2.HATTYUU_DATE=$X2.HATTYUU_DATE};
ZZZZ400121	7100	$3+=SET{SX2.HATTYUU_DATE=$SX2.HATTYUU_DATE};
ZZZZ400121	7200	$3+=SET{EX2.HATTYUU_DATE=$X2.HATTYUU_DATE};
ZZZZ400121	7300	SET={O,*}.=?$&.DATA&HATTYUU_PERSON?
ZZZZ400121	7400	SET={KO,*}X3.=?&.DATA&HATTYUU_PLACE?
ZZZZ400121	7500	SET={KO,*}.=?&.DATA&HATTYUU_OBJECT?
ZZZZ400121	7600	SET={O,*}$X2.?$&X2.DATA&HATTYUU_OBJECT_NAME?
ZZZZ400121	7700	*SET={,*}?&.SET&HATTYUU_DATE?
ZZZZ400121	7800	SET={O,}X2.?&.DATA&HATTYUU_PLACE?
ZZZZ400121	7900	TITLE=暦場所
ZZZZ400121	8000	SET={O,*}WN.W_PRODUCTION_DATE{10,,D}生産計画日
ZZZZ400121	8100	$1-SET={O>=,}SX2.?&X2.SET&HATTYUU_DATE?(BEGIN)
ZZZZ400121	8200	$3+SET={O<=,}EX2.?&X2.SET&HATTYUU_DATE?(END)
ZZZZ400121	8300	$3+SET={,*}.?&.DATA&HATTYUU_QTY?
ZZZZ400121	8400	$3+=IF{_DATA@LENGTH=0}EXIT{}; 未入力は処理せず*
ZZZZ400121	8500	$3+MENU_INPUT+COPY=MRP_RUN
ZZZZ400121	8600	$3+=SQL1{SELECT HATTYUU_DATE FROM ?&X2.TABLE? X2 WHERE
ZZZZ400121	8700	$3+=  ?SX2.HATTYUU_DATE@WHERE? AND
ZZZZ400121	8800	$3+=  ?EX2.HATTYUU_DATE@WHERE? AND
ZZZZ400121	8900	$3+=  ?X2.HATTYUU_PLACE@WHERE? AND
ZZZZ400121	9000	$3+=  Z_CANCEL=' ' AND HATTYUU_HOLIDAY=' ' ORDER BY 1};
ZZZZ400121	9100	$3+=SQL1_NEXT:SQL1_NEXT{WC.HATTYUU_DATE}JUMP{SQL1_END};
ZZZZ400121	9200	$3+=PROGRAM{2E,?&X1.TABLE?,.HATTYUU_QTY}{.HATTYUU_OBJECT,
ZZZZ400121	9300	$3+=  X3.HATTYUU_PLACE,WC.HATTYUU_DATE}{};
ZZZZ400121	9400	$3+=BACK{SQL1_NEXT};SQL1_END:
ZZZZ400121	9500	START
ZZZZ400121	9600	MENU_INPUT+COPY=MRP_RUN
ZZZZ400121	9700	=IF{X2.HATTYUU_DATE<=WN.W_PRODUCTION_DATE}
ZZZZ400121	9800	=   ERROR{DAY<='?WN.W_PRODUCTION_DATE?'};
ZZZZ400121	9900	=IF{_START=0}IF{X2.HATTYUU_HOLIDAY!=}ERROR{HOLIDAY};
ZZZZ400121	10000	*$1+SET={,*}$DAYS{5,,+}日数
ZZZZ400121	10100	*$1-SET={O,*}$DAYS{5,,+}日数
ZZZZ400121	10200	*****( 年月日 )*****
ZZZZ400121	10300	DATA={KO}X2.?&X2.DATA&HATTYUU_DATE?
ZZZZ400121	10400	DATA={*O}X2.?&X2.DATA&HATTYUU_HOLIDAY?
ZZZZ400121	10500	*****( 数量 )*****
ZZZZ400121	10600	DATA={  }?&.DATA&HATTYUU_QTY?
ZZZZ400121	10700	*IF{X2.HATTYUU_HOLIDAY!=}IF{HATTYUU_QTY>0}ERROR{HOLIDAY};
ZZZZ400121	10800	DATA={*O}X4.?&.DATA&HATTYUU_QTY?
ZZZZ400121	10900	JA+TITLE=前回数量
ZZZZ400121	11000	STOP_BEFORE
ZZZZ400121	11100	MENU_INPUT+COPY=MRP_RUN
ZZZZ400121	11200	COPY=@ZZZZZZ_SQL
ZZZZ400121	11300	$3+END
ZZZZ400121	11400	$3+=SET{_RETURN_SQL=1};EXIT{2};
ZZZZ400121	11500	MENU_INPUT+REPEAT0=
ZZZZ400123	100	PROGRAM=NOT,&X1,?_MM?_SLIP_DO_TABLE
ZZZZ400123	200	DICTIONARY=HATTYUU_STORAGE_MARK,HATTYUU_ARRANGE_MARK
ZZZZ400123	300	*DICTIONARY=QTY_SUM
ZZZZ400123	400	CONTROL=1,3,JUDGE
ZZZZ400123	500	BEGIN_END
ZZZZ400123	600	REPEAT=_A_B
ZZZZ400123	700	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ400123	800	REPEAT=
ZZZZ400123	900	BEGIN
ZZZZ400123	1000	REPEAT=_A_B
ZZZZ400123	1100	=CREATE_TABLE2{?_WORK_TABLE??_A##?}{?&.C&HATTYUU_OBJECT?
ZZZZ400123	1200	=   ,?&.C&HATTYUU_QTY_SUM?,?&C&HATTYUU_ARRANGE_MARK?};
ZZZZ400123	1300	REPEAT=
ZZZZ400123	1400	*****( 物 )*****
ZZZZ400123	1500	DATA={O }?&.DATA&HATTYUU_OBJECT?
ZZZZ400123	1600	*****( 年月日 )*****
ZZZZ400123	1700	DATA={O }?&.DATA&HATTYUU_DATE?
ZZZZ400123	1800	*****( 場所 )*****
ZZZZ400123	1900	DATA={O }?&.DATA&HATTYUU_PLACE?
ZZZZ400123	2000	*****( 親場所 )*****
ZZZZ400123	2100	DATA={O }?&.DATA&HATTYUU_OWNER_PLACE?
ZZZZ400123	2200	*****( 集計数量 )*****
ZZZZ400123	2300	DATA={O }?&.DATA&HATTYUU_QTY_SUM?
ZZZZ400123	2400	WORK=X1FIX.?&.DATA&HATTYUU_QTY_SUM?
ZZZZ400123	2500	WORK=XW.?&.DATA&HATTYUU_QTY_SUM?
ZZZZ400123	2600	WORK=XX.?&.DATA&HATTYUU_QTY_SUM?
ZZZZ400123	2700	*WORK=.?&DATA&QTY_SUM?
ZZZZ400123	2800	DATA={O }?&.DATA&HATTYUU_STORAGE?
ZZZZ400123	2900	*****( 生産記号 )*****
ZZZZ400123	3000	DATA={N }?&.DATA&HATTYUU_PRODUCTION_MARK?
ZZZZ400123	3100	*****( 有償記号 )*****
ZZZZ400123	3200	DATA={N }?&.DATA&HATTYUU_ONEROUS_MARK?
ZZZZ400123	3300	*****( 有償単価 )*****
ZZZZ400123	3400	DATA={N }?&.DATA&HATTYUU_ONEROUS_COST?
ZZZZ400123	3500	*****( 材料単価 )*****
ZZZZ400123	3600	DATA={N }?&.DATA&HATTYUU_MATERIAL_COST?
ZZZZ400123	3700	*****( 加工単価 )*****
ZZZZ400123	3800	DATA={N }?&.DATA&HATTYUU_PROCESS_COST?
ZZZZ400123	3900	*****( 伝票記号 )*****
ZZZZ400123	4000	DATA={N }?&.DATA&HATTYUU_SLIP_MARK?
ZZZZ400123	4100	DATA={N }?&.DATA&HATTYUU_START_DATE?
ZZZZ400123	4200	*****( 番号 )*****
ZZZZ400123	4300	*ATA={K }.?&.DATA&HATTYUU_NO?
ZZZZ400123	4400	DATA={K}HATTYUU_NO{13,12}番号
ZZZZ400123	4500	=SET{HATTYUU_NO=_DATA[1;12]};
ZZZZ400123	4600	=SQL_SET{
ZZZZ400123	4700	REPEAT=_DATA_COUNT
ZZZZ400123	4800	1-=   ,
ZZZZ400123	4900	=   ?_NAME##?
ZZZZ400123	5000	REPEAT=
ZZZZ400123	5100	=   }{
ZZZZ400123	5200	REPEAT=_DATA_COUNT
ZZZZ400123	5300	=   ?_SELECT##?
ZZZZ400123	5400	REPEAT=
ZZZZ400123	5500	=   FROM ?_MM?_SLIP_PLAN_TABLE ?_T?
ZZZZ400123	5600	=   WHERE ?_VE&HATTYUU_NO?  AND Z_CANCEL=' '};
ZZZZ400123	5700	=IF{_SQL_SET_COUNT=0}ERROR{該当伝票番号は存在しません？};
ZZZZ400123	5800	=SET{X1FIX.HATTYUU_QTY_SUM=HATTYUU_QTY_SUM}; 初期数量固定*
ZZZZ400123	5900	=IF{HATTYUU_SLIP_MARK=}EXIT{};
ZZZZ400123	6000	=IF{HATTYUU_SLIP_MARK='*'}
ZZZZ400123	6100	=   ERROR{該当伝票番号はキャンセルされています？};
ZZZZ400123	6200	=ERROR{該当伝票番号は処理済みです？};
ZZZZ400123	6300	*****( 入庫記号 )*****
ZZZZ400123	6400	DATA={N }?&.DATA&HATTYUU_IN_MARK?
ZZZZ400123	6500	*****( 出庫記号 )*****
ZZZZ400123	6600	DATA={N }?&.DATA&HATTYUU_OUT_MARK?
ZZZZ400123	6700	DATA={*}START{2,1}操作
ZZZZ400123	6800	CHECK2=2,同じ,3,数量入力
ZZZZ400123	6900	=IF{START=3}EXIT{};
ZZZZ400123	7000	=SET{HATTYUU_QTY_SUM=X1FIX.HATTYUU_QTY_SUM};
ZZZZ400123	7100	=SET{XA.HATTYUU_QTY_SUM=0};
ZZZZ400123	7200	=SET{XB.HATTYUU_QTY_SUM=0};
ZZZZ400123	7300	=EXIT3{RUN};
ZZZZ400123	7400	DATA={*}XA.?&.DATA&HATTYUU_QTY_SUM?
ZZZZ400123	7500	=IF{_DATA=X1FIX.HATTYUU_QTY_SUM}ERROR{数量同じ};
ZZZZ400123	7600	=IF{_DATA>X1FIX.HATTYUU_QTY_SUM}ERROR{数量は指定数以下です};
ZZZZ400123	7700	=IF{_DATA=0}ERROR{数量0は指定不可です};
ZZZZ400123	7800	DATA={*}XB.?&.DATA&HATTYUU_QTY_SUM?
ZZZZ400123	7900	=IF{_DATA!=XA.HATTYUU_QTY_SUM}ERROR{数量が異なります};
ZZZZ400123	8000	=SET{HATTYUU_QTY_SUM=_DATA};
ZZZZ400123	8100	DATA={*}RUN{1}
ZZZZ400123	8200	=SET{HATTYUU_DATE=_TODAY};
ZZZZ400123	8300	=SET{HATTYUU_IN_MARK='+'}; 入庫処理***
ZZZZ400123	8400	=SET{HATTYUU_OUT_MARK='+'}; 出庫処理***
ZZZZ400123	8500	=IF{HATTYUU_PRODUCTION_MARK='*'}SET{HATTYUU_OUT_MARK=};
ZZZZ400123	8600	STOP_AFTER
ZZZZ400123	8700	=SET{HATTYUU_SLIP_MARK='='}; 完了設定***
ZZZZ400123	8800	=PROGRAM{3,?_MM?_SLIP_PLAN_TABLE,HATTYUU_SLIP_MARK}
ZZZZ400123	8900	= {HATTYUU_NO}{}; PLANに完了設定***
ZZZZ400123	9000	********************************************************
ZZZZ400123	9100	*SET{.QTY_SUM=.QTY};
ZZZZ400123	9200	*****( 生産計画分は在庫にする )*************************
ZZZZ400123	9300	=IF{HATTYUU_PRODUCTION_MARK!='*'}JUMP{SKIP}; 処理不要*
ZZZZ400123	9400	=PROGRAM{0,?_MM?_STOCK_STORAGE_TABLE}
ZZZZ400123	9410	=  {?_MM?_STOCK_STORAGE_TABLE}{HATTYUU_OBJECT
ZZZZ400123	9500	=   ,HATTYUU_STORAGE,HATTYUU_STORAGE_MARK
ZZZZ400123	9600	=   ,HATTYUU_PRODUCTION_MARK}{};
ZZZZ400123	9700	=IF{_PROGRAM_COUNT>0}JUMP{UPDATE}; データ有りUPDATEへ*
ZZZZ400123	9800	=PROGRAM{2,?_MM?_STOCK_STORAGE_TABLE
ZZZZ400123	9802	=  ,HATTYUU_QTY_SUM,HATTYUU_DATE}
ZZZZ400123	9810	=  {HATTYUU_OBJECT
ZZZZ400123	9900	=   ,HATTYUU_STORAGE,HATTYUU_STORAGE_MARK
ZZZZ400123	10000	=   ,HATTYUU_PRODUCTION_MARK}{};
ZZZZ400123	10200	=JUMP{SKIP};
ZZZZ400123	10300	=UPDATE:SQL{UPDATE ?_MM?_STOCK_STORAGE_TABLE SET
ZZZZ400123	10400	=   HATTYUU_QTY_SUM=HATTYUU_QTY_SUM+?HATTYUU_QTY_SUM?
ZZZZ400123	10500	=   ,?_VRE&HATTYUU_DATE?,?_Z_UPDATE_CHANGE? WHERE
ZZZZ400123	10600	=   ?_VRE&HATTYUU_OBJECT? AND ?_VRE&HATTYUU_STORAGE?
ZZZZ400123	10700	=   AND ?_VRE&HATTYUU_STORAGE_MARK?
ZZZZ400123	10800	=   AND ?_VRE&HATTYUU_PRODUCTION_MARK?
ZZZZ400123	10900	=   AND Z_CANCEL=' '};
ZZZZ400123	11000	=IF{_SQL_COUNT_123!=1}ERROR{UPDATE STOCK_STAGE ERROR};
ZZZZ400123	11100	=SKIP:
ZZZZ400123	11200	*****( 生産計画分以外は出庫する )*********************
ZZZZ400123	11300	=IF{HATTYUU_PRODUCTION_MARK!=' '}JUMP{SKIP}; 処理不要*
ZZZZ400123	11400	=SET{XW.HATTYUU_PLACE=HATTYUU_OWNER_PLACE};
ZZZZ400123	11500	=PROGRAM{0,?_MM?_STOCK_PLACE_TABLE}{HATTYUU_OBJECT
ZZZZ400123	11600	=   ,XW.HATTYUU_PLACE}{};
ZZZZ400123	11700	=IF{_PROGRAM_COUNT>0}JUMP{UPDATE}; データ有りUPDATEへ*
ZZZZ400123	11800	=PROGRAM{2,?_MM?_STOCK_PLACE_TABLE
ZZZZ400123	11802	=  ,HATTYUU_QTY_SUM,HATTYUU_DATE}
ZZZZ400123	11810	=  {HATTYUU_OBJECT,XW.HATTYUU_PLACE}{};
ZZZZ400123	12000	=JUMP{SKIP};
ZZZZ400123	12100	=UPDATE:SQL{UPDATE ?_MM?_STOCK_PLACE_TABLE SET
ZZZZ400123	12200	=   HATTYUU_QTY_SUM=HATTYUU_QTY_SUM+?HATTYUU_QTY_SUM?
ZZZZ400123	12300	=   ,?_VRE&HATTYUU_DATE?,?_Z_UPDATE_CHANGE? WHERE
ZZZZ400123	12400	=   ?_VRE&HATTYUU_OBJECT? AND ?_VRE&XW.HATTYUU_PLACE?
ZZZZ400123	12500	=   AND Z_CANCEL=' '};
ZZZZ400123	12600	=IF{_SQL_COUNT_123!=1}ERROR{UPDATE STOCK_STAGE ERROR};
ZZZZ400123	12700	=SKIP:
ZZZZ400123	12800	*****( 自分自身引当 )*******************************
ZZZZ400123	12900	=PROGRAM{0,?_MM?_STOCK_PLACE_TABLE,XW.HATTYUU_QTY_SUM}
ZZZZ400123	12910	=  {HATTYUU_OBJECT,HATTYUU_PLACE}{};
ZZZZ400123	13100	=IF{_PROGRAM_COUNT=0,XW.HATTYUU_QTY_SUM=0}
ZZZZ400123	13200	=                                       JUMP{SKIP};処理不要*
ZZZZ400123	13300	=IF{XW.HATTYUU_QTY_SUM<HATTYUU_QTY_SUM}
ZZZZ400123	13400	=   SET{XX.HATTYUU_QTY_SUM=XW.HATTYUU_QTY_SUM}JUMP{};
ZZZZ400123	13500	=SET{   XX.HATTYUU_QTY_SUM=HATTYUU_QTY_SUM};
ZZZZ400123	13600	=SQL_SET{HATTYUU_QTY}{SELECT
ZZZZ400123	13700	=   ?HATTYUU_QTY_SUM?-?XX.HATTYUU_QTY_SUM? ?_FROM_DUAL?};
ZZZZ400123	13800	=SQL{UPDATE ?_MM?_STOCK_PLACE_TABLE SET
ZZZZ400123	13900	=   HATTYUU_QTY_SUM=HATTYUU_QTY_SUM-?XX.HATTYUU_QTY_SUM?
ZZZZ400123	14000	=   ,?_VRE&HATTYUU_DATE?,?_Z_UPDATE_CHANGE? WHERE
ZZZZ400123	14100	=   ?_VRE&HATTYUU_OBJECT? AND ?_VRE&HATTYUU_PLACE?
ZZZZ400123	14200	=   AND Z_CANCEL=' '};
ZZZZ400123	14300	=IF{_SQL_COUNT_123!=1}ERROR{UPDATE STOCK_PLACE ERROR};
ZZZZ400123	14400	=SKIP:
ZZZZ400123	14500	=IF{HATTYUU_QTY_SUM=0}EXIT{}; 仕掛減算で終了*
ZZZZ400123	14600	*******( 構成展開 )*************************************
ZZZZ400123	14700	***( ARRANGE_MARK='*'の手配不要または、 )*****
ZZZZ400123	14800	***( 納入工区と同じ工程有りは、 )*****
ZZZZ400123	14900	***( 引当出来なければ更に展開する )*****
ZZZZ400123	15000	=SET{WN.AB_OUT='A'};
ZZZZ400123	15100	=SQL{DELETE FROM ?_WORK_TABLE??WN.AB_OUT?};
ZZZZ400123	15200	NAME=INSERT_WORK_TABLE
ZZZZ400123	15300	=SQL{INSERT INTO ?_WORK_TABLE??WN.AB_OUT? SELECT
ZZZZ400123	15400	=   HATTYUU_MEMBER_OBJECT
ZZZZ400123	15500	=   ,?HATTYUU_QTY_SUM?*HATTYUU_NUMERATOR/HATTYUU_DENOMINATOR
ZZZZ400123	15600	=   ,CASE WHEN (EXISTS(SELECT HATTYUU_ARRANGE_MARK FROM
ZZZZ400123	15700	=   ?_MM?_OBJECT_TABLE ?_T? WHERE
ZZZZ400123	15800	=   X0.HATTYUU_MEMBER_OBJECT=?_T?.HATTYUU_OBJECT
ZZZZ400123	15900	=   AND ?_T?.HATTYUU_ARRANGE_MARK='*' AND ?_T?.Z_CANCEL=' ')
ZZZZ400123	16000	=   OR EXISTS(SELECT HATTYUU_PLACE
ZZZZ400123	16100	=   FROM ?_MM?_PROCESS_TABLE ?_T?
ZZZZ400123	16200	=   WHERE X0.HATTYUU_MEMBER_OBJECT=?_T?.HATTYUU_OBJECT
ZZZZ400123	16300	=   AND ?_VE&HATTYUU_PLACE?
ZZZZ400123	16400	=   AND ?_T?.Z_CANCEL=' ')) AND EXISTS
ZZZZ400123	16500	=   (SELECT HATTYUU_MEMBER_OBJECT FROM ?_MM?_BOM_TABLE ?_T?
ZZZZ400123	16600	=   WHERE ?_T?.HATTYUU_OWNER_OBJECT=X0.HATTYUU_MEMBER_OBJECT
ZZZZ400123	16700	=   AND ?_T?.Z_CANCEL=' '
ZZZZ400123	16800	=   ) THEN '*' ELSE ' ' END FROM ?_MM?_BOM_TABLE X0
ZZZZ400123	16900	=   WHERE X0.HATTYUU_OWNER_OBJECT='?HATTYUU_OBJECT?'
ZZZZ400123	17000	=   AND   X0.Z_CANCEL=' '};
ZZZZ400123	17100	NAME=
ZZZZ400123	17200	=IF{_SQL_COUNT_123=0}EXIT{}; 子無しは完了*
ZZZZ400123	17300	*******( 子引当 )*****************************************
ZZZZ400123	17400	=LOOP_A:
ZZZZ400123	17500	=SET{WN.AB_INP='A',WN.AB_OUT='B'};
ZZZZ400123	17600	=LOOP_B:SET{WN.INSERT_SW=0};
ZZZZ400123	17700	=SQL{ DELETE   FROM ?_WORK_TABLE??WN.AB_OUT?};
ZZZZ400123	17800	=SQL1{SELECT * FROM ?_WORK_TABLE??WN.AB_INP? ORDER BY 1,2,3};
ZZZZ400123	17900	=SQL1_NEXT:SQL1_NEXT{HATTYUU_OBJECT,HATTYUU_QTY_SUM
ZZZZ400123	18000	=              ,HATTYUU_ARRANGE_MARK}JUMP{SQL1_END};
ZZZZ400123	18100	*****( 引当 )*******************************
ZZZZ400123	18200	=PROGRAM{0,?_MM?_STOCK_PLACE_TABLE,XW.HATTYUU_QTY_SUM}
ZZZZ400123	18210	=  {HATTYUU_OBJECT,HATTYUU_PLACE}{};
ZZZZ400123	18400	=IF{_PROGRAM_COUNT=0}JUMP{NOT}; TABLE無し*
ZZZZ400123	18500	=IF{HATTYUU_ARRANGE_MARK=' '}
ZZZZ400123	18600	=   SET{XX.HATTYUU_QTY_SUM=HATTYUU_QTY_SUM}JUMP{SQL};全引当*
ZZZZ400123	18700	=IF{XW.HATTYUU_QTY_SUM<HATTYUU_QTY_SUM}
ZZZZ400123	18800	=   SET{XX.HATTYUU_QTY_SUM=XW.HATTYUU_QTY_SUM};仕掛分引当*
ZZZZ400123	18900	=SQL:SQL_SET{HATTYUU_QTY_SUM}{SELECT ?HATTYUU_QTY_SUM?
ZZZZ400123	19000	=   -?XX.HATTYUU_QTY_SUM? ?_FROM_DUAL?};
ZZZZ400123	19100	=SQL{UPDATE ?_MM?_STOCK_PLACE_TABLE SET
ZZZZ400123	19200	=   HATTYUU_QTY_SUM=HATTYUU_QTY_SUM-?XX.HATTYUU_QTY_SUM?
ZZZZ400123	19300	=   ,?_VRE&HATTYUU_DATE?,?_Z_UPDATE_CHANGE? WHERE
ZZZZ400123	19400	=   ?_VRE&HATTYUU_OBJECT? AND ?_VRE&HATTYUU_PLACE?
ZZZZ400123	19500	=   AND Z_CANCEL=' '};
ZZZZ400123	19600	=IF{_SQL_COUNT_123!=1}ERROR{UPDATE STOCK_PLACE ERROR};
ZZZZ400123	19700	=IF{HATTYUU_QTY_SUM<=0}BACK{SQL1_NEXT};
ZZZZ400123	19800	=JUMP{SKIP};
ZZZZ400123	19900	=NOT:IF{HATTYUU_ARRANGE_MARK='*'}JUMP{SKIP};
ZZZZ400123	20000	=COMPUTE{HATTYUU_QTY_SUM=0-HATTYUU_QTY_SUM};
ZZZZ400123	20100	=PROGRAM{2,?_MM?_STOCK_PLACE_TABLE
ZZZZ400123	20102	=  ,HATTYUU_QTY_SUM,HATTYUU_DATE}
ZZZZ400123	20110	=  {HATTYUU_OBJECT,HATTYUU_PLACE}{};
ZZZZ400123	20300	=BACK{SQL1_NEXT};
ZZZZ400123	20400	=SKIP:
ZZZZ400123	20500	COPY=INSERT_WORK_TABLE
ZZZZ400123	20600	=IF{_SQL_COUNT_123>0}SET{WN.INSERT_SW=1};
ZZZZ400123	20700	=BACK{SQL1_NEXT};
ZZZZ400123	20800	=SQL1_END:IF{WN.INSERT_SW=0}EXIT{};
ZZZZ400123	20900	=IF{WN.AB_OUT='A'}BACK{LOOP_A};
ZZZZ400123	21000	=SET{WN.AB_INP='B',WN.AB_OUT='A'};
ZZZZ400123	21100	=BACK{LOOP_B};
ZZZZ400123	21200	WORK=?&DATA&HATTYUU_STORAGE_MARK?
ZZZZ400123	21300	WORK=XW.?&.DATA&HATTYUU_PLACE?
ZZZZ400123	21400	WORK=?&DATA&HATTYUU_ARRANGE_MARK?
ZZZZ402021	100	PROGRAM=,&X1,?_MM?_STOCK_STORAGE_TABLE
ZZZZ402021	200	TABLE=&X2,?_MM?_OBJECT_TABLE
ZZZZ402021	300	TABLE=&X3,?_MM?_STORAGE_TABLE
ZZZZ402021	400	TABLE=&X4,?_MM?_ETC_TABLE
ZZZZ402021	500	TABLE=&X5,?_MM?_ETC_TABLE
ZZZZ402021	600	SET={,X2}.?&.SET&HATTYUU_OBJECT?
ZZZZ402021	700	*SET={}SX2.?&X2.SET&HATTYUU_OBJECT_NAME?
ZZZZ402021	800	SET={,X3}.?&.SET&HATTYUU_STORAGE?
ZZZZ402021	900	*SET={}SX3.?&X3.SET&HATTYUU_STORAGE_NAME?
ZZZZ402021	1000	SET={,X4}.?&.SET&HATTYUU_STORAGE_MARK?
ZZZZ402021	1100	*SET={}SX4.?&X4.SET&HATTYUU_ETC_DATA?
ZZZZ402021	1200	SET={,X5}.?&.SET&HATTYUU_PRODUCTION_MARK?
ZZZZ402021	1300	*SET={}SX5.?&X5.SET&HATTYUU_ETC_DATA?
ZZZZ402021	1400	*SET={}?&.SET&HATTYUU_QTY_SUM?
ZZZZ402021	1500	*SET={}?&.SET&HATTYUU_QTY_SUM_BEGIN?
ZZZZ402021	1600	*SET={}?&.SET&HATTYUU_DATE?
ZZZZ402021	1700	*****( 物 )*****
ZZZZ402021	1800	DATA={K,&X2}?&.DATA&HATTYUU_OBJECT?
ZZZZ402021	1900	DATA={*O}X2.?&X2.DATA&HATTYUU_OBJECT_NAME?
ZZZZ402021	2000	*****( 倉庫 )*****
ZZZZ402021	2100	DATA={K,&X3}?&.DATA&HATTYUU_STORAGE?
ZZZZ402021	2200	DATA={*O}X3.?&X3.DATA&HATTYUU_STORAGE_NAME?
ZZZZ402021	2300	*****( 倉庫記号 )*****
ZZZZ402021	2400	DATA={K,&X4}?&.DATA&HATTYUU_STORAGE_MARK?
ZZZZ402021	2500	DATA={*O}X4.?&X4.DATA&HATTYUU_ETC_DATA?
ZZZZ402021	2600	*****( 生産記号 )*****
ZZZZ402021	2700	DATA={K,&X5}?&.DATA&HATTYUU_PRODUCTION_MARK?
ZZZZ402021	2800	DATA={*O}X5.?&X5.DATA&HATTYUU_ETC_DATA?
ZZZZ402021	2900	*****( 数量 )*****
ZZZZ402021	3000	DATA={}?&.DATA&HATTYUU_QTY_SUM?
ZZZZ402021	3100	*****( 初期数量 )*****
ZZZZ402021	3200	DATA={}?&.DATA&HATTYUU_QTY_SUM_BEGIN?
ZZZZ402021	3300	*****( 年月日 )*****
ZZZZ402021	3400	DATA={}?&.DATA&HATTYUU_DATE?
ZZZZ402021	3500	COPY=@ZZZZZZ_SQL
ZZZZ402022	100	PROGRAM=,&X1,?_MM?_STOCK_PLACE_TABLE
ZZZZ402022	200	TABLE=&X2,?_MM?_OBJECT_TABLE
ZZZZ402022	300	TABLE=&X3,?_MM?_PLACE_TABLE
ZZZZ402022	400	SET={,X2}.?&.SET&HATTYUU_OBJECT?
ZZZZ402022	500	*SET={}SX2.?&X2.SET&HATTYUU_OBJECT_NAME?
ZZZZ402022	600	SET={,X3}.?&.SET&HATTYUU_PLACE?
ZZZZ402022	700	*SET={}SX3.?&X3.SET&HATTYUU_PLACE_NAME?
ZZZZ402022	800	*SET={}?&.SET&HATTYUU_QTY_SUM?
ZZZZ402022	900	*SET={}?&.SET&HATTYUU_QTY_SUM_BEGIN?
ZZZZ402022	1000	*SET={}?&.SET&HATTYUU_DATE?
ZZZZ402022	1100	*****( 物 )*****
ZZZZ402022	1200	DATA={K,&X2}?&.DATA&HATTYUU_OBJECT?
ZZZZ402022	1300	DATA={*O}X2.?&X2.DATA&HATTYUU_OBJECT_NAME?
ZZZZ402022	1400	*****( 場所 )*****
ZZZZ402022	1500	DATA={K,&X3}?&.DATA&HATTYUU_PLACE?
ZZZZ402022	1600	DATA={*O}X3.?&X3.DATA&HATTYUU_PLACE_NAME?
ZZZZ402022	1700	*****( 数量 )*****
ZZZZ402022	1800	DATA={}?&.DATA&HATTYUU_QTY_SUM?
ZZZZ402022	1900	*****( 初期数量 )*****
ZZZZ402022	2000	DATA={}?&.DATA&HATTYUU_QTY_SUM_BEGIN?
ZZZZ402022	2100	*****( 年月日 )*****
ZZZZ402022	2200	DATA={}?&.DATA&HATTYUU_DATE?
ZZZZ402022	2300	COPY=@ZZZZZZ_SQL
ZZZZ402024	100	PROGRAM=,&X1,?_MM?_SLIP_PLAN_TABLE
ZZZZ402024	200	TABLE=&X2,?_MM?_OBJECT_TABLE
ZZZZ402024	300	TABLE=&X3,?_MM?_PLACE_TABLE
ZZZZ402024	400	TABLE=&X4,?_MM?_PLACE_TABLE
ZZZZ402024	500	TABLE=&X5,?_MM?_ETC_TABLE
ZZZZ402024	600	TABLE=&X6,?_MM?_ETC_TABLE
ZZZZ402024	700	TABLE=&X7,?_MM?_ETC_TABLE
ZZZZ402024	800	TABLE=&X8,?_MM?_STORAGE_TABLE
ZZZZ402024	900	SET={}.?&.SET&HATTYUU_NO?
ZZZZ402024	1000	*SET={,X2}?&.SET&HATTYUU_OBJECT?
ZZZZ402024	1100	*SET={}SX2.?&X2.SET&HATTYUU_OBJECT_NAME?
ZZZZ402024	1200	*SET={}?&.SET&HATTYUU_DATE?
ZZZZ402024	1300	*SET={,X3}?&.SET&HATTYUU_PLACE?
ZZZZ402024	1400	*SET={}SX3.?&X3.SET&HATTYUU_PLACE_NAME?
ZZZZ402024	1500	*SET={,X4}?&.SET&HATTYUU_OWNER_PLACE?
ZZZZ402024	1600	*SET={}SX4.?&X4.SET&HATTYUU_PLACE_NAME?
ZZZZ402024	1700	*SET={}?&.SET&HATTYUU_QTY_SUM?
ZZZZ402024	1800	*SET={,X5}?&.SET&HATTYUU_PRODUCTION_MARK?
ZZZZ402024	1900	*SET={}SX5.?&X5.SET&HATTYUU_ETC_DATA?
ZZZZ402024	2000	*SET={,X6}?&.SET&HATTYUU_ONEROUS_MARK?
ZZZZ402024	2100	*SET={}SX6.?&X6.SET&HATTYUU_ETC_DATA?
ZZZZ402024	2200	*SET={}?&.SET&HATTYUU_ONEROUS_COST?
ZZZZ402024	2300	*SET={}?&.SET&HATTYUU_MATERIAL_COST?
ZZZZ402024	2400	*SET={}?&.SET&HATTYUU_PROCESS_COST?
ZZZZ402024	2500	*SET={,X7}?&.SET&HATTYUU_SLIP_MARK?
ZZZZ402024	2600	*SET={}SX7.?&X7.SET&HATTYUU_ETC_DATA?
ZZZZ402024	2700	*SET={}?&.SET&HATTYUU_START_DATE?
ZZZZ402024	2800	*SET={,X8}?&.SET&HATTYUU_STORAGE?
ZZZZ402024	2900	*SET={}SX8.?&X8.SET&HATTYUU_STORAGE_NAME?
ZZZZ402024	3000	*****( 番号 )*****
ZZZZ402024	3100	DATA={K}?&.DATA&HATTYUU_NO?
ZZZZ402024	3200	*****( 物 )*****
ZZZZ402024	3300	DATA={,&X2}?&.DATA&HATTYUU_OBJECT?
ZZZZ402024	3400	DATA={*O}X2.?&X2.DATA&HATTYUU_OBJECT_NAME?
ZZZZ402024	3500	*****( 年月日 )*****
ZZZZ402024	3600	DATA={}?&.DATA&HATTYUU_DATE?
ZZZZ402024	3700	*****( 場所 )*****
ZZZZ402024	3800	DATA={,&X3}?&.DATA&HATTYUU_PLACE?
ZZZZ402024	3900	DATA={*O}X3.?&X3.DATA&HATTYUU_PLACE_NAME?
ZZZZ402024	4000	*****( 親場所 )*****
ZZZZ402024	4100	DATA={,&X4}?&.DATA&HATTYUU_OWNER_PLACE?
ZZZZ402024	4200	DATA={*O}X4.?&X4.DATA&HATTYUU_PLACE_NAME?
ZZZZ402024	4300	*****( 集計数量 )*****
ZZZZ402024	4400	DATA={}?&.DATA&HATTYUU_QTY_SUM?
ZZZZ402024	4500	*****( 生産記号 )*****
ZZZZ402024	4600	DATA={,&X5}?&.DATA&HATTYUU_PRODUCTION_MARK?
ZZZZ402024	4700	DATA={*O}X5.?&X5.DATA&HATTYUU_ETC_DATA?
ZZZZ402024	4800	*****( 有償記号 )*****
ZZZZ402024	4900	DATA={,&X6}?&.DATA&HATTYUU_ONEROUS_MARK?
ZZZZ402024	5000	DATA={*O}X6.?&X6.DATA&HATTYUU_ETC_DATA?
ZZZZ402024	5100	*****( 有償単価 )*****
ZZZZ402024	5200	DATA={}?&.DATA&HATTYUU_ONEROUS_COST?
ZZZZ402024	5300	*****( 材料単価 )*****
ZZZZ402024	5400	DATA={}?&.DATA&HATTYUU_MATERIAL_COST?
ZZZZ402024	5500	*****( 加工単価 )*****
ZZZZ402024	5600	DATA={}?&.DATA&HATTYUU_PROCESS_COST?
ZZZZ402024	5700	*****( 伝票記号 )*****
ZZZZ402024	5800	DATA={,&X7}?&.DATA&HATTYUU_SLIP_MARK?
ZZZZ402024	5900	DATA={*O}X7.?&X7.DATA&HATTYUU_ETC_DATA?
ZZZZ402024	6000	*****( 着手日 )*****
ZZZZ402024	6100	DATA={}?&.DATA&HATTYUU_START_DATE?
ZZZZ402024	6200	*****( 倉庫 )*****
ZZZZ402024	6300	DATA={,&X8}?&.DATA&HATTYUU_STORAGE?
ZZZZ402024	6400	DATA={*O}X8.?&X8.DATA&HATTYUU_STORAGE_NAME?
ZZZZ402024	6500	COPY=@ZZZZZZ_SQL
ZZZZ402025	100	PROGRAM=,&X1,?_MM?_SLIP_DO_TABLE
ZZZZ402025	200	TABLE=&X2,?_MM?_OBJECT_TABLE
ZZZZ402025	300	TABLE=&X3,?_MM?_PLACE_TABLE
ZZZZ402025	400	TABLE=&X4,?_MM?_PLACE_TABLE
ZZZZ402025	500	TABLE=&X5,?_MM?_ETC_TABLE
ZZZZ402025	600	TABLE=&X6,?_MM?_ETC_TABLE
ZZZZ402025	700	TABLE=&X7,?_MM?_ETC_TABLE
ZZZZ402025	800	TABLE=&X8,?_MM?_STORAGE_TABLE
ZZZZ402025	900	TABLE=&X9,?_MM?_ETC_TABLE
ZZZZ402025	1000	TABLE=&X10,?_MM?_ETC_TABLE
ZZZZ402025	1100	SET={}.?&.SET&HATTYUU_NO?
ZZZZ402025	1200	*SET={,X2}?&.SET&HATTYUU_OBJECT?
ZZZZ402025	1300	*SET={}SX2.?&X2.SET&HATTYUU_OBJECT_NAME?
ZZZZ402025	1400	*SET={}?&.SET&HATTYUU_DATE?
ZZZZ402025	1500	*SET={,X3}?&.SET&HATTYUU_PLACE?
ZZZZ402025	1600	*SET={}SX3.?&X3.SET&HATTYUU_PLACE_NAME?
ZZZZ402025	1700	*SET={,X4}?&.SET&HATTYUU_OWNER_PLACE?
ZZZZ402025	1800	*SET={}SX4.?&X4.SET&HATTYUU_PLACE_NAME?
ZZZZ402025	1900	*SET={}?&.SET&HATTYUU_QTY_SUM?
ZZZZ402025	2000	*SET={,X5}?&.SET&HATTYUU_PRODUCTION_MARK?
ZZZZ402025	2100	*SET={}SX5.?&X5.SET&HATTYUU_ETC_DATA?
ZZZZ402025	2200	*SET={,X6}?&.SET&HATTYUU_ONEROUS_MARK?
ZZZZ402025	2300	*SET={}SX6.?&X6.SET&HATTYUU_ETC_DATA?
ZZZZ402025	2400	*SET={}?&.SET&HATTYUU_ONEROUS_COST?
ZZZZ402025	2500	*SET={}?&.SET&HATTYUU_MATERIAL_COST?
ZZZZ402025	2600	*SET={}?&.SET&HATTYUU_PROCESS_COST?
ZZZZ402025	2700	*SET={,X7}?&.SET&HATTYUU_SLIP_MARK?
ZZZZ402025	2800	*SET={}SX7.?&X7.SET&HATTYUU_ETC_DATA?
ZZZZ402025	2900	*SET={}?&.SET&HATTYUU_START_DATE?
ZZZZ402025	3000	*SET={,X8}?&.SET&HATTYUU_STORAGE?
ZZZZ402025	3100	*SET={}SX8.?&X8.SET&HATTYUU_STORAGE_NAME?
ZZZZ402025	3200	*SET={,X9}?&.SET&HATTYUU_IN_MARK?
ZZZZ402025	3300	*SET={}SX9.?&X9.SET&HATTYUU_ETC_DATA?
ZZZZ402025	3400	*SET={,X10}?&.SET&HATTYUU_OUT_MARK?
ZZZZ402025	3500	*SET={}SX10.?&X10.SET&HATTYUU_ETC_DATA?
ZZZZ402025	3600	*****( 番号 )*****
ZZZZ402025	3700	DATA={K}?&.DATA&HATTYUU_NO?
ZZZZ402025	3800	*****( 物 )*****
ZZZZ402025	3900	DATA={,&X2}?&.DATA&HATTYUU_OBJECT?
ZZZZ402025	4000	DATA={*O}X2.?&X2.DATA&HATTYUU_OBJECT_NAME?
ZZZZ402025	4100	*****( 年月日 )*****
ZZZZ402025	4200	DATA={}?&.DATA&HATTYUU_DATE?
ZZZZ402025	4300	*****( 場所 )*****
ZZZZ402025	4400	DATA={,&X3}?&.DATA&HATTYUU_PLACE?
ZZZZ402025	4500	DATA={*O}X3.?&X3.DATA&HATTYUU_PLACE_NAME?
ZZZZ402025	4600	*****( 親場所 )*****
ZZZZ402025	4700	DATA={,&X4}?&.DATA&HATTYUU_OWNER_PLACE?
ZZZZ402025	4800	DATA={*O}X4.?&X4.DATA&HATTYUU_PLACE_NAME?
ZZZZ402025	4900	*****( 集計数量 )*****
ZZZZ402025	5000	DATA={}?&.DATA&HATTYUU_QTY_SUM?
ZZZZ402025	5100	*****( 生産記号 )*****
ZZZZ402025	5200	DATA={,&X5}?&.DATA&HATTYUU_PRODUCTION_MARK?
ZZZZ402025	5300	DATA={*O}X5.?&X5.DATA&HATTYUU_ETC_DATA?
ZZZZ402025	5400	*****( 有償記号 )*****
ZZZZ402025	5500	DATA={,&X6}?&.DATA&HATTYUU_ONEROUS_MARK?
ZZZZ402025	5600	DATA={*O}X6.?&X6.DATA&HATTYUU_ETC_DATA?
ZZZZ402025	5700	*****( 有償単価 )*****
ZZZZ402025	5800	DATA={}?&.DATA&HATTYUU_ONEROUS_COST?
ZZZZ402025	5900	*****( 材料単価 )*****
ZZZZ402025	6000	DATA={}?&.DATA&HATTYUU_MATERIAL_COST?
ZZZZ402025	6100	*****( 加工単価 )*****
ZZZZ402025	6200	DATA={}?&.DATA&HATTYUU_PROCESS_COST?
ZZZZ402025	6300	*****( 伝票記号 )*****
ZZZZ402025	6400	DATA={,&X7}?&.DATA&HATTYUU_SLIP_MARK?
ZZZZ402025	6500	DATA={*O}X7.?&X7.DATA&HATTYUU_ETC_DATA?
ZZZZ402025	6600	*****( 着手日 )*****
ZZZZ402025	6700	DATA={}?&.DATA&HATTYUU_START_DATE?
ZZZZ402025	6800	*****( 倉庫 )*****
ZZZZ402025	6900	DATA={,&X8}?&.DATA&HATTYUU_STORAGE?
ZZZZ402025	7000	DATA={*O}X8.?&X8.DATA&HATTYUU_STORAGE_NAME?
ZZZZ402025	7100	*****( 入庫記号 )*****
ZZZZ402025	7200	DATA={,&X9}?&.DATA&HATTYUU_IN_MARK?
ZZZZ402025	7300	DATA={*O}X9.?&X9.DATA&HATTYUU_ETC_DATA?
ZZZZ402025	7400	*****( 出庫記号 )*****
ZZZZ402025	7500	DATA={,&X10}?&.DATA&HATTYUU_OUT_MARK?
ZZZZ402025	7600	DATA={*O}X10.?&X10.DATA&HATTYUU_ETC_DATA?
ZZZZ402025	7700	COPY=@ZZZZZZ_SQL
ZZZZ402027	100	PROGRAM=,&X1,?_MM?_SLIP_NO_TABLE
ZZZZ402027	200	SET={}.?&.SET&HATTYUU_NO_KEY?
ZZZZ402027	300	*SET={}?&.SET&HATTYUU_NO_END?
ZZZZ402027	400	*****( キー )*****
ZZZZ402027	500	DATA={K}?&.DATA&HATTYUU_NO_KEY?
ZZZZ402027	600	*****( 終了番号 )*****
ZZZZ402027	700	DATA={}?&.DATA&HATTYUU_NO_END?
ZZZZ402027	800	COPY=@ZZZZZZ_SQL
ZZZZ402028	100	PROGRAM=,&X1,?_MM?_SLIP_NO_KEEP_TABLE
ZZZZ402028	200	SET={}.?&.SET&HATTYUU_NO_BEGIN?
ZZZZ402028	300	*SET={}?&.SET&HATTYUU_NO_END?
ZZZZ402028	400	*SET={}?&.SET&HATTYUU_DATE?
ZZZZ402028	500	*****( 開始番号 )*****
ZZZZ402028	600	DATA={K}?&.DATA&HATTYUU_NO_BEGIN?
ZZZZ402028	700	*****( 終了番号 )*****
ZZZZ402028	800	DATA={}?&.DATA&HATTYUU_NO_END?
ZZZZ402028	900	*****( 年月日 )*****
ZZZZ402028	1000	DATA={}?&.DATA&HATTYUU_DATE?
ZZZZ402028	1100	COPY=@ZZZZZZ_SQL
ZZZZ402101	100	*OUTPUT
ZZZZ402102	100	*OUTPUT
ZZZZ402103	100	*OUTPUT
ZZZZ402105	100	*OUTPUT
ZZZZ402115	100	*OUTPUT
ZZZZ402116	100	PROGRAM=,&X1,?_MM?_CALENDAR_TABLE
ZZZZ402116	200	SET={}.?&.SET&HATTYUU_PLACE?
ZZZZ402116	300	SET={}.?&.SET&HATTYUU_DATE?
ZZZZ402116	400	DATA={KG}YEAR{4}
ZZZZ402116	500	SELECT=?_SUBSTR(.HATTYUU_DATE;1;4)?
ZZZZ402116	600	JA+TITLE=年
ZZZZ402116	700	DATA={KG}MONTH{2}
ZZZZ402116	800	SELECT=?_SUBSTR(.HATTYUU_DATE;5;2)?
ZZZZ402116	900	JA+TITLE=月
ZZZZ402116	1000	DATA={KG}?&.DATA&HATTYUU_PLACE?
ZZZZ402116	1100	DATA=COUNT{3,,+}
ZZZZ402116	1200	SELECT=SUM(CASE ?_T?.HATTYUU_HOLIDAY WHEN ' ' THEN 1
ZZZZ402116	1210	SELECT=   ELSE 0 END)
ZZZZ402116	1300	JA+TITLE=稼動日
ZZZZ402116	1400	DATA=HOLIDAY{3,,+}
ZZZZ402116	1500	SELECT=SUM(CASE ?_T?.HATTYUU_HOLIDAY WHEN ' ' THEN 0
ZZZZ402116	1510	SELECT=   ELSE 1 END)
ZZZZ402116	1600	JA+TITLE=休日
ZZZZ402116	1700	DATA=TOTAL{3,,+}
ZZZZ402116	1800	SELECT=COUNT(*)
ZZZZ402116	1900	JA+TITLE=日数
ZZZZ402116	2000	*** 年単位集計 ***
ZZZZ402116	2100	MINUS=%ZZZZZZ_SQL_SELECT
ZZZZ402116	2200	MINUS=%ZZZZZZ_SQL_GROUP
ZZZZ402116	2300	MINUS=%ZZZZZZ_SQL_ORDER
ZZZZ402116	2400	REPEAT=_SELECT_COUNT
ZZZZ402116	2500	2-SQL=?_SELECT##?
ZZZZ402116	2600	2+SQL=,'**'
ZZZZ402116	2700	REPEAT=
ZZZZ402116	2800	COPY=@ZZZZZZ_SQL
ZZZZ402116	2900	REPEAT=_GROUP_COUNT
ZZZZ402116	3000	2-SQL=?_GROUP##?
ZZZZ402116	3100	REPEAT=
ZZZZ402116	3200	SQL=UNION ALL
ZZZZ402116	3300	*** 月単位集計 ***
ZZZZ402116	3400	PLUS=%ZZZZZZ_SQL_SELECT
ZZZZ402116	3500	PLUS=%ZZZZZZ_SQL_GROUP
ZZZZ402116	3600	PLUS=%ZZZZZZ_SQL_ORDER
ZZZZ402116	3700	COPY=@ZZZZZZ_SQL
ZZZZ402118	100	*OUTPUT
ZZZZ402119	100	*OUTPUT
ZZZZ402120	100	PROGRAM=,&X1,?_MM?_ETC_TABLE
ZZZZ402120	200	TABLE=&X2,?_MM?_ETC_ID_TABLE
ZZZZ402120	300	SET={,X2}.?&.SET&HATTYUU_ETC?
ZZZZ402120	400	SET={}SX2.?&X2.SET&HATTYUU_ETC_NAME?
ZZZZ402120	500	SET={}.?&.SET&HATTYUU_ETC_KEY?
ZZZZ402120	600	*SET={}?&.SET&HATTYUU_ETC_DATA?
ZZZZ402120	700	*****( ETC )*****
ZZZZ402120	800	DATA={K,&X2}?&.DATA&HATTYUU_ETC?
ZZZZ402120	900	DATA={*O}X2.?&X2.DATA&HATTYUU_ETC_NAME?
ZZZZ402120	1000	*****( キー )*****
ZZZZ402120	1100	DATA={K}?&.DATA&HATTYUU_ETC_KEY?
ZZZZ402120	1200	*****( 情報 )*****
ZZZZ402120	1300	DATA={}?&.DATA&HATTYUU_ETC_DATA?
ZZZZ402120	1400	COPY=@ZZZZZZ_SQL
ZZZZ402121	100	PROGRAM=,&X1,?_MM?_OBJECT_TABLE
ZZZZ402121	200	TABLE=&X2,?_MM?_ETC_TABLE
ZZZZ402121	300	TABLE=&X3,?_MM?_ETC_TABLE
ZZZZ402121	400	TABLE=&X4,?_MM?_ETC_TABLE
ZZZZ402121	500	TABLE=&X5,?_MM?_ETC_TABLE
ZZZZ402121	600	TABLE=&X6,?_MM?_ETC_TABLE
ZZZZ402121	700	TABLE=&X7,?_MM?_ETC_TABLE
ZZZZ402121	800	TABLE=&X8,?_MM?_ETC_TABLE
ZZZZ402121	900	TABLE=&X9,?_MM?_ETC_TABLE
ZZZZ402121	1000	CONTROL=SCROLL
ZZZZ402121	1100	SET={}.?&.SET&HATTYUU_OBJECT?
ZZZZ402121	1200	*SET={}?&.SET&HATTYUU_OBJECT_MARK?
ZZZZ402121	1300	*SET={,*}?&X2.SET&HATTYUU_ETC_DATA?
ZZZZ402121	1400	*SET={}?&.SET&HATTYUU_BOM_MARK?
ZZZZ402121	1500	*SET={,*}?&X3.SET&HATTYUU_ETC_DATA?
ZZZZ402121	1600	*SET={}?&.SET&HATTYUU_ARRANGE_MARK?
ZZZZ402121	1700	*SET={,*}?&X4.SET&HATTYUU_ETC_DATA?
ZZZZ402121	1800	*SET={}?&.SET&HATTYUU_ONEROUS_MARK?
ZZZZ402121	1900	*SET={,*}?&X5.SET&HATTYUU_ETC_DATA?
ZZZZ402121	2000	*SET={}?&.SET&HATTYUU_STANDARD_MATERIAL_COST?
ZZZZ402121	2100	*SET={}?&.SET&HATTYUU_STANDARD_PROCESS_COST?
ZZZZ402121	2200	*SET={}?&.SET&HATTYUU_ONEROUS_COST?
ZZZZ402121	2300	*SET={}?&.SET&HATTYUU_COST_OK?
ZZZZ402121	2400	*SET={,*}?&X6.SET&HATTYUU_ETC_DATA?
ZZZZ402121	2500	*SET={}?&.SET&HATTYUU_BOM_OK?
ZZZZ402121	2600	*SET={,*}?&X7.SET&HATTYUU_ETC_DATA?
ZZZZ402121	2700	*SET={}?&.SET&HATTYUU_PROCESS_OK?
ZZZZ402121	2800	*SET={,*}?&X8.SET&HATTYUU_ETC_DATA?
ZZZZ402121	2900	*SET={}?&.SET&HATTYUU_DISCONTINUE_MARK?
ZZZZ402121	3000	*SET={,*}?&X9.SET&HATTYUU_ETC_DATA?
ZZZZ402121	3100	*SET={}?&.SET&HATTYUU_OBJECT_NAME?
ZZZZ402121	3200	START
ZZZZ402121	3300	MENU_INPUT-COMMENT_BEGIN
ZZZZ402121	3400	NAME=MRP_RUN
ZZZZ402121	3500	=PROGRAM{0,?_MM?_ETC_TABLE}{WC.HATTYUU_ETC='WW_MRP_RUN'
ZZZZ402121	3600	=   ,WC.HATTYUU_ETC_KEY=' ',WN.HATTYUU_ETC_DATA='1'}{};
ZZZZ402121	3700	=IF{_PROGRAM_COUNT>0}
ZZZZ402121	3800	=   ERROR{MRP準備処理中しばらくお待ち下さい！};
ZZZZ402121	4000	NAME=
ZZZZ402121	4100	=IF{_START=2}SET{HATTYUU_BOM_OK='*',HATTYUU_COST_OK='*'
ZZZZ402121	4200	=  ,HATTYUU_PROCESS_OK='*',HATTYUU_ONEROUS_COST=0
ZZZZ402121	4300	=  ,HATTYUU_DISCONTINUE_MARK=' '};
ZZZZ402121	4400	=IF{_START!=1}EXIT{};
ZZZZ402121	4500	NAME=OWNER_FOUND
ZZZZ402121	4600	=SQL_SET{W0.CNT}{SELECT COUNT(*) FROM ?_MM?_BOM_TABLE
ZZZZ402121	4700	=   WHERE HATTYUU_OWNER_OBJECT='?HATTYUU_OBJECT?'
ZZZZ402121	4710	=   AND Z_CANCEL=' '};
ZZZZ402121	4800	=IF{W0.CNT>0}ERROR{OWNER(BOM) FOUND};
ZZZZ402121	4900	NAME=MEMBER_FOUND
ZZZZ402121	5000	=SQL_SET{W0.CNT}{SELECT COUNT(*) FROM ?_MM?_BOM_TABLE WHERE
ZZZZ402121	5100	=   HATTYUU_MEMBER_OBJECT='?HATTYUU_OBJECT?'
ZZZZ402121	5110	=   AND Z_CANCEL=' '};
ZZZZ402121	5200	=IF{W0.CNT>0}ERROR{MEMBER(BOM) FOUND};
ZZZZ402121	5300	NAME=
ZZZZ402121	5400	=SQL_SET{W0.CNT}{SELECT COUNT(*) FROM ?_MM?_PROCESS_TABLE
ZZZZ402121	5500	=   WHERE ?_VRE&HATTYUU_OBJECT?
ZZZZ402121	5510	=   AND Z_CANCEL=' '};
ZZZZ402121	5600	=IF{W0.CNT>0}ERROR{PROCESS FOUND};
ZZZZ402121	5700	MENU_INPUT-COMMENT_END
ZZZZ402121	5800	*****( 物 )*****
ZZZZ402121	5900	DATA={K }?&.DATA&HATTYUU_OBJECT?
ZZZZ402121	6000	*****( 物記号 )*****
ZZZZ402121	6100	DATA={,&X2}?&.DATA&HATTYUU_OBJECT_MARK?
ZZZZ402121	6200	=IF{_START!=2}JUMP{START_NOT_2};
ZZZZ402121	6300	=SET{HATTYUU_BOM_MARK='3'};
ZZZZ402121	6400	=IF{_DATA='A'}SET{HATTYUU_BOM_MARK='2'};
ZZZZ402121	6500	=IF{_DATA='F'}SET{HATTYUU_BOM_MARK='1'};
ZZZZ402121	6600	=IF{_DATA='Z'}SET{HATTYUU_BOM_MARK='0'};
ZZZZ402121	6700	=START_NOT_2:
ZZZZ402121	6800	DATA={*O}X2.?&X2.DATA&HATTYUU_ETC_DATA?
ZZZZ402121	6900	*****( 構成記号 )*****
ZZZZ402121	7000	DATA={,&X3}?&.DATA&HATTYUU_BOM_MARK?
ZZZZ402121	7100	=IF{_DATA!=0}IF{_DATA!=3}JUMP{SKIP};
ZZZZ402121	7200	MENU_INPUT+COPY=OWNER_FOUND
ZZZZ402121	7300	=SKIP:IF{_DATA!=0}IF{_DATA!=1}JUMP{SKIP};
ZZZZ402121	7400	=SQL_SET{W0.CNT}{SELECT COUNT(*) FROM ?_MM?_BOM_TABLE
ZZZZ402121	7500	=   WHERE HATTYUU_MEMBER_OBJECT='?HATTYUU_OBJECT?'
ZZZZ402121	7600	=   AND Z_CANCEL=' '};
ZZZZ402121	7700	=IF{W0.CNT>0}ERROR{MEMBER FOUND};
ZZZZ402121	7800	=SKIP:
ZZZZ402121	7900	*J:SET{X3.HATTYUU_=_LIST_BOX_COMMENT};
ZZZZ402121	8000	*IF{_DATA=9}SET{.BOM_OK='-',.COST_OK='-'
ZZZZ402121	8100	*,.PROCESS_OK='-',.ARRANGE_MARK='*'};
ZZZZ402121	8200	DATA={*O}X3.?&X3.DATA&HATTYUU_ETC_DATA?
ZZZZ402121	8300	*****( 手配記号 )*****
ZZZZ402121	8400	DATA={,&X4}?&.DATA&HATTYUU_ARRANGE_MARK?
ZZZZ402121	8500	=IF{_DATA!='*'}JUMP{SKIP};
ZZZZ402121	8600	=SQL_SET{W0.CNT}{SELECT COUNT(*) FROM
ZZZZ402121	8700	=   ?_MM?_PRODUCTION_TABLE WHERE
ZZZZ402121	8800	=   ?_VRE&HATTYUU_OBJECT? AND HATTYUU_QTY>0
ZZZZ402121	8900	=   AND Z_CANCEL=' ' };
ZZZZ402121	9000	=IF{W0.CNT>0}ERROR{PRODUCTION TABLE FOUBD};
ZZZZ402121	9100	=SKIP:
ZZZZ402121	9200	DATA={*O}X4.?&X4.DATA&HATTYUU_ETC_DATA?
ZZZZ402121	9300	*****( 有償記号 )*****
ZZZZ402121	9400	DATA={,&X5}?&.DATA&HATTYUU_ONEROUS_MARK?
ZZZZ402121	9500	=IF{HATTYUU_ARRANGE_MARK='*'}
ZZZZ402121	9600	=IF{_DATA!='*'}ERROR{?&.TITLE&HATTYUU_ARRANGE_MARK?='*'};
ZZZZ402121	9700	*IF{HATTYUU_BOM_MARK=1,=2}IF{_DATA='*'}
ZZZZ402121	9800	*  ERROR{* BAD (?&.TITLE&HATTYUU_BOM_MARK?=1 OR 2)};
ZZZZ402121	9900	DATA={*O}X5.?&X5.DATA&HATTYUU_ETC_DATA?
ZZZZ402121	10000	*****( 標準材料単価 )*****
ZZZZ402121	10100	DATA={  }?&.DATA&HATTYUU_STANDARD_MATERIAL_COST?
ZZZZ402121	10200	*****( 標準加工単価 )*****
ZZZZ402121	10300	DATA={  }?&.DATA&HATTYUU_STANDARD_PROCESS_COST?
ZZZZ402121	10400	=IF{HATTYUU_ONEROUS_MARK='*'}
ZZZZ402121	10500	=   SET{HATTYUU_ONEROUS_COST=0}EXIT{HATTYUU_COST_OK};
ZZZZ402121	10600	=IF{HATTYUU_BOM_MARK='3'}IF{HATTYUU_BOM_OK='*'}
ZZZZ402121	10700	=   IF{_DATA=0}ERROR{ZERO};
ZZZZ402121	10800	*****( 単価OK )*****
ZZZZ402121	10900	DATA={,&X6}?&.DATA&HATTYUU_COST_OK?
ZZZZ402121	11000	*IF{_DATA='-'}ERROR{?&.TITLE&COST_OK?='-'};
ZZZZ402121	11100	=IF{_DATA=' '}IF{HATTYUU_STANDARD_PROCESS_COST=0}
ZZZZ402121	11200	=   IF{HATTYUU_ONEROUS_MARK=' '}
ZZZZ402121	11300	=   ERROR{?&.TITLE&HATTYUU_STANDARD_PROCESS_COST?=0};
ZZZZ402121	11400	=IF_NOT{_DATA!=' ',HATTYUU_BOM_OK=' ',HATTYUU_BOM_MARK!=3}
ZZZZ402121	11500	=   COMPUTE{HATTYUU_ONEROUS_COST
ZZZZ402121	11600	=   =HATTYUU_STANDARD_MATERIAL_COST
ZZZZ402121	11700	=   +HATTYUU_STANDARD_PROCESS_COST};
ZZZZ402121	11800	DATA={*O}X6.?&X6.DATA&HATTYUU_ETC_DATA?
ZZZZ402121	11900	*****( 有償単価 )*****
ZZZZ402121	12000	DATA={O }?&.DATA&HATTYUU_ONEROUS_COST?
ZZZZ402121	12100	*****( 構成OK )*****
ZZZZ402121	12200	DATA={O,&X7}?&.DATA&HATTYUU_BOM_OK?
ZZZZ402121	12300	DATA={*O}X7.?&X7.DATA&HATTYUU_ETC_DATA?
ZZZZ402121	12400	*****( 工程OK )*****
ZZZZ402121	12500	DATA={O,&X8}?&.DATA&HATTYUU_PROCESS_OK?
ZZZZ402121	12600	DATA={*O}X8.?&X8.DATA&HATTYUU_ETC_DATA?
ZZZZ402121	12700	*****( 廃止記号 )*****
ZZZZ402121	12800	DATA={,&X9}?&.DATA&HATTYUU_DISCONTINUE_MARK?
ZZZZ402121	12900	DATA={*O}X9.?&X9.DATA&HATTYUU_ETC_DATA?
ZZZZ402121	13000	*****( 物名 )*****
ZZZZ402121	13100	DATA={  }?&.DATA&HATTYUU_OBJECT_NAME?
ZZZZ402121	13200	DATA={  }?&.DATA&HATTYUU_UNIT?
ZZZZ402121	13300	STOP_BEFORE
ZZZZ402121	13400	MENU_INPUT+COPY=MRP_RUN
ZZZZ402121	13500	COPY=@ZZZZZZ_SQL
ZZZZ402122	100	PROGRAM=OUTPUT,&X1,?_MM?_OBJECT_TABLE
ZZZZ402122	200	TABLE=&X2,?_MM?_ETC_TABLE
ZZZZ402122	300	TABLE=&X3,?_MM?_ETC_TABLE
ZZZZ402122	400	TABLE=&X4,?_MM?_ETC_TABLE
ZZZZ402122	500	TABLE=&X5,?_MM?_ETC_TABLE
ZZZZ402122	600	TABLE=&X6,?_MM?_ETC_TABLE
ZZZZ402122	700	TABLE=&X7,?_MM?_ETC_TABLE
ZZZZ402122	800	TABLE=&X8,?_MM?_ETC_TABLE
ZZZZ402122	900	TABLE=&X9,?_MM?_ETC_TABLE
ZZZZ402122	1000	CONTROL=0,SCROLL
ZZZZ402122	1100	SET={}.?&.SET&HATTYUU_OBJECT?
ZZZZ402122	1200	*SET={}?&.SET&HATTYUU_OBJECT_MARK?
ZZZZ402122	1300	*SET={,*}?&X2.SET&HATTYUU_ETC_DATA?
ZZZZ402122	1400	*SET={}?&.SET&HATTYUU_BOM_MARK?
ZZZZ402122	1500	*SET={,*}?&X3.SET&HATTYUU_ETC_DATA?
ZZZZ402122	1600	*SET={}?&.SET&HATTYUU_ARRANGE_MARK?
ZZZZ402122	1700	*SET={,*}?&X5.SET&HATTYUU_ETC_DATA?
ZZZZ402122	1800	*SET={}?&.SET&HATTYUU_ONEROUS_MARK?
ZZZZ402122	1900	*SET={,*}?&X6.SET&HATTYUU_ETC_DATA?
ZZZZ402122	2000	*SET={}?&.SET&HATTYUU_STANDARD_MATERIAL_COST?
ZZZZ402122	2100	*SET={}?&.SET&HATTYUU_STANDARD_PROCESS_COST?
ZZZZ402122	2200	*SET={}?&.SET&HATTYUU_ONEROUS_COST?
ZZZZ402122	2300	*SET={}?&.SET&HATTYUU_COST_OK?
ZZZZ402122	2400	*SET={,*}?&X7.SET&HATTYUU_ETC_DATA?
ZZZZ402122	2500	*SET={}?&.SET&HATTYUU_BOM_OK?
ZZZZ402122	2600	*SET={,*}?&X7.SET&HATTYUU_ETC_DATA?
ZZZZ402122	2700	*SET={}?&.SET&HATTYUU_PROCESS_OK?
ZZZZ402122	2800	*SET={,*}?&X8.SET&HATTYUU_ETC_DATA?
ZZZZ402122	2900	*SET={}?&.SET&HATTYUU_DISCONTINUE_MARK?
ZZZZ402122	3000	*SET={,*}?&X9.SET&HATTYUU_ETC_DATA?
ZZZZ402122	3100	*SET={}?&.SET&HATTYUU_OBJECT_NAME?
ZZZZ402122	3200	MENU_INPUT-COMMENT_BEGIN
ZZZZ402122	3300	START
ZZZZ402122	3400	NAME=MRP_RUN
ZZZZ402122	3500	=PROGRAM{0,?_MM?_ETC_TABLE}{WC.HATTYUU_ETC='WW_MRP_RUN'
ZZZZ402122	3600	=   ,WC.HATTYUU_ETC_KEY=' ',WN.HATTYUU_ETC_DATA='1'}{};
ZZZZ402122	3700	=IF{_PROGRAM_COUNT>0}
ZZZZ402122	3800	=   ERROR{MRP準備処理中しばらくお待ち下さい！};
ZZZZ402122	3900	NAME=
ZZZZ402122	4000	SET={,}ALL{4}{,ALL}
ZZZZ402122	4100	=SET{ALL@WHERE=};
ZZZZ402122	4200	=IF{_DATA='ALL'}EXIT{};
ZZZZ402122	4300	=SET{ALL@WHERE='HATTYUU_ARRANGE_MARK='' '''
ZZZZ402122	4400	=   +' AND(HATTYUU_PROCESS_OK=''*'''
ZZZZ402122	4500	=   +' OR 100<>(SELECT SUM(HATTYUU_PERCENT)'
ZZZZ402122	4600	=   +' FROM ?_MM?_PROCESS_TABLE Y1'
ZZZZ402122	4700	=   +' WHERE ?_T?.?_NE&Y1.HATTYUU_OBJECT?'
ZZZZ402122	4800	=   +' AND Y1.Z_CANCEL='' '' GROUP BY Y1.HATTYUU_OBJECT)'
ZZZZ402122	4900	=   +' OR EXISTS(SELECT HATTYUU_COST_OK'
ZZZZ402122	5000	=   +' FROM ?_MM?_PROCESS_TABLE Y1'
ZZZZ402122	5100	=   +' WHERE ?_T?.?_NE&Y1.HATTYUU_OBJECT?'
ZZZZ402122	5200	=   +' AND Y1.HATTYUU_PERCENT<>0'
ZZZZ402122	5300	=   +' AND Y1.Z_CANCEL='' '' AND HATTYUU_COST_OK=''*''))'};
ZZZZ402122	5400	MENU_INPUT-COMMENT_END
ZZZZ402122	5500	*****( 物 )*****
ZZZZ402122	5600	DATA={K }?&.DATA&HATTYUU_OBJECT?
ZZZZ402122	5700	*****( 物記号 )*****
ZZZZ402122	5800	DATA={,&X2}?&.DATA&HATTYUU_OBJECT_MARK?
ZZZZ402122	5900	DATA={*O}X2.?&X2.DATA&HATTYUU_ETC_DATA?
ZZZZ402122	6000	*****( 構成記号 )*****
ZZZZ402122	6100	DATA={,&X3}?&.DATA&HATTYUU_BOM_MARK?
ZZZZ402122	6200	DATA={*O}X3.?&X3.DATA&HATTYUU_ETC_DATA?
ZZZZ402122	6300	*****( 手配記号 )*****
ZZZZ402122	6400	DATA={,&X4}?&.DATA&HATTYUU_ARRANGE_MARK?
ZZZZ402122	6500	DATA={*O}X4.?&X4.DATA&HATTYUU_ETC_DATA?
ZZZZ402122	6600	*****( 有償記号 )*****
ZZZZ402122	6700	DATA={,&X5}?&.DATA&HATTYUU_ONEROUS_MARK?
ZZZZ402122	6800	DATA={*O}X5.?&X5.DATA&HATTYUU_ETC_DATA?
ZZZZ402122	6900	*****( 標準材料単価 )*****
ZZZZ402122	7000	*ATA={  }.?&.DATA&HATTYUU_STANDARD_MATERIAL_COST?
ZZZZ402122	7100	*****( 標準加工単価 )*****
ZZZZ402122	7200	*ATA={  }.?&.DATA&HATTYUU_STANDARD_PROCESS_COST?
ZZZZ402122	7300	*****( 有償単価 )*****
ZZZZ402122	7400	*ATA={  }.?&.DATA&HATTYUU_ONEROUS_COST?
ZZZZ402122	7500	*****( 単価OK )*****
ZZZZ402122	7600	DATA={,&X6}?&.DATA&HATTYUU_COST_OK?
ZZZZ402122	7700	DATA={*O}X6.?&X6.DATA&HATTYUU_ETC_DATA?
ZZZZ402122	7800	*****( 構成OK )*****
ZZZZ402122	7900	DATA={,&X7}?&.DATA&HATTYUU_BOM_OK?
ZZZZ402122	8000	DATA={*O}X7.?&X7.DATA&HATTYUU_ETC_DATA?
ZZZZ402122	8100	*****( 工程OK )*****
ZZZZ402122	8200	DATA={,&X8}?&.DATA&HATTYUU_PROCESS_OK?
ZZZZ402122	8300	DATA={*O}X8.?&X8.DATA&HATTYUU_ETC_DATA?
ZZZZ402122	8400	*****( 廃止記号 )*****
ZZZZ402122	8500	DATA={,&X9}?&.DATA&HATTYUU_DISCONTINUE_MARK?
ZZZZ402122	8600	DATA={*O}X9.?&X9.DATA&HATTYUU_ETC_DATA?
ZZZZ402122	8700	*****( 物名 )*****
ZZZZ402122	8800	DATA={  }?&.DATA&HATTYUU_OBJECT_NAME?
ZZZZ402122	8900	DATA={  }?&.DATA&HATTYUU_UNIT?
ZZZZ402122	9000	COPY=@ZZZZZZ_SQL
ZZZZ402122	9100	PROGRAM=,&X1,?_MM?_PROCESS_TABLE
ZZZZ402122	9200	CONTROL=BEGIN_ENTER,0
ZZZZ402122	9300	TABLE=&X2,?_MM?_OBJECT_TABLE
ZZZZ402122	9400	TABLE=&X3,?_MM?_PLACE_TABLE
ZZZZ402122	9500	TABLE=&X4,?_MM?_STORAGE_TABLE
ZZZZ402122	9600	TABLE=&X5,?_MM?_ETC_TABLE
ZZZZ402122	9700	TABLE=&X6,?_MM?_ETC_TABLE
ZZZZ402122	9800	TABLE=&X7,?_MM?_ETC_TABLE
ZZZZ402122	9900	COLOR
ZZZZ402122	10000	=IF{HATTYUU_PERCENT!=0}
ZZZZ402122	10100	=   IF{HATTYUU_COST_OK='*'}JUMP{R};
ZZZZ402122	10200	=  SET{HATTYUU_COST_OK@COLOR='L'};JUMP{X};
ZZZZ402122	10300	=R:SET{HATTYUU_COST_OK@COLOR='R'};
ZZZZ402122	10400	=X:
ZZZZ402122	10500	SET={O,*}.?&.DATA&HATTYUU_PERCENT?
ZZZZ402122	10600	MENU_INPUT-COMMENT_BEGIN
ZZZZ402122	10700	SET={,*}OK{3}OK
ZZZZ402122	10800	CHECK2=,検索,OK,工程完成
ZZZZ402122	10900	=IF{_DATA!='OK'}JUMP{X};
ZZZZ402122	11000	=SET{OK=};EXIT{+1};
ZZZZ402122	11100	=X:
ZZZZ402122	11200	MENU_INPUT-COMMENT_END
ZZZZ402122	11300	NAME=PERCENT
ZZZZ402122	11400	=SQL_SET{HATTYUU_PERCENT}{SELECT SUM(HATTYUU_PERCENT)
ZZZZ402122	11500	=   FROM ?_MM?_PROCESS_TABLE
ZZZZ402122	11600	=   WHERE ?_VRE&.HATTYUU_OBJECT?
ZZZZ402122	11700	=   AND Z_CANCEL=' '};
ZZZZ402122	11800	=IF{HATTYUU_PERCENT!=100}JUMP{R};
ZZZZ402122	11900	=  SET{HATTYUU_PERCENT@COLOR='L'};JUMP{X};
ZZZZ402122	12000	=R:SET{HATTYUU_PERCENT@COLOR='R'};
ZZZZ402122	12100	=X:
ZZZZ402122	12200	NAME=
ZZZZ402122	12300	SET={KO,}.=?&.DATA&HATTYUU_OBJECT?
ZZZZ402122	12400	*SET={,*}?&X2.SET&HATTYUU_OBJECT_NAME?
ZZZZ402122	12500	*ET={}?&.SET&HATTYUU_PLACE?
ZZZZ402122	12600	*SET={,*}?&X3.SET&HATTYUU_PLACE_NAME?
ZZZZ402122	12700	*SET={}?&.SET&.HATTYUU_PERCENT?
ZZZZ402122	12800	*SET={}?&.SET&HATTYUU_ARRANGE_MARK?
ZZZZ402122	12900	*SET={,*}?&X5.SET&HATTYUU_ETC_DATA?
ZZZZ402122	13000	*SET={}?&.SET&HATTYUU_PROCESS_DAYS?
ZZZZ402122	13100	*SET={}?&.SET&HATTYUU_READY_DAYS?
ZZZZ402122	13200	*SET={}?&.SET&HATTYUU_LOT?
ZZZZ402122	13300	*SET={}?&.SET&HATTYUU_MATERIAL_COST?
ZZZZ402122	13400	*SET={}?&.SET&HATTYUU_PROCESS_COST?
ZZZZ402122	13500	*SET={}?&.SET&HATTYUU_COST_OK?
ZZZZ402122	13600	*SET={,*}?&X6.SET&HATTYUU_ETC_DATA?
ZZZZ402122	13700	*SET={}?&.SET&HATTYUU_LOT_MARK?
ZZZZ402122	13800	*SET={,*}?&X7.SET&HATTYUU_ETC_DATA?
ZZZZ402122	13900	*****( 物 )*****
ZZZZ402122	14000	*ATA={K }.?&.DATA&.HATTYUU_OBJECT?
ZZZZ402122	14100	SET={O,*}.=?$&.DATA&HATTYUU_OBJECT_NAME?
ZZZZ402122	14200	SET={O,*}.=?$&.DATA&HATTYUU_UNIT?
ZZZZ402122	14300	START
ZZZZ402122	14400	MENU_INPUT+COPY=MRP_RUN
ZZZZ402122	14500	*****( 場所 )*****
ZZZZ402122	14600	DATA={K,&X3}?&.DATA&HATTYUU_PLACE?
ZZZZ402122	14700	CHECK2=SELECT HATTYUU_PLACE,HATTYUU_PLACE_NAME
ZZZZ402122	14800	CHECK2=FROM ?&X3.TABLE?
ZZZZ402122	14900	CHECK2=WHERE HATTYUU_OBJECT_MARK_?$HATTYUU_OBJECT_MARK?
ZZZZ402122	15000	CHECK2=='?$HATTYUU_OBJECT_MARK?'
ZZZZ402122	15100	CHECK2=AND HATTYUU_DISCONTINUE_MARK=' '
ZZZZ402122	15200	CHECK2=AND Z_CANCEL=' ' ORDER BY 1
ZZZZ402122	15300	DATA={*O}X3.?&X3.DATA&HATTYUU_PLACE_NAME?
ZZZZ402122	15400	DATA={,&X4}?&.DATA&HATTYUU_STORAGE?
ZZZZ402122	15500	=SET{X4.HATTYUU_STORAGE_NAME=_LIST_BOX_COMMENT};
ZZZZ402122	15600	DATA={*O}X4.?&X4.DATA&HATTYUU_STORAGE_NAME?
ZZZZ402122	15700	*****( 比率 )*****
ZZZZ402122	15800	DATA={  }?&.DATA&HATTYUU_PERCENT?
ZZZZ402122	15900	=IF{_DATA=0}EXIT{};
ZZZZ402122	16000	=SQL_SET{W0.HATTYUU_PERCENT}
ZZZZ402122	16010	=  {SELECT SUM(HATTYUU_PERCENT) FROM ?_TABLE?
ZZZZ402122	16100	=   WHERE ?_VRE&.HATTYUU_OBJECT?
ZZZZ402122	16200	=   AND  ?_VRLG&HATTYUU_PLACE? AND Z_CANCEL=' '};
ZZZZ402122	16300	=   COMPUTE{W0.HATTYUU_PERCENT+=_DATA};
ZZZZ402122	16400	=IF{W0.HATTYUU_PERCENT>100}
ZZZZ402122	16410	=          ERROR{PERCENT(?W0.HATTYUU_PERCENT?)>100};
ZZZZ402122	16500	*****( 手配記号 )*****
ZZZZ402122	16600	DATA={,&X5}?&.DATA&HATTYUU_ARRANGE_MARK?
ZZZZ402122	16700	=IF{_DATA='*'}IF{HATTYUU_PERCENT!=0}
ZZZZ402122	16800	=   ERROR{?&.TITLE&HATTYUU_PERCENT?!=0};
ZZZZ402122	16900	DATA={*O}X5.?&X5.DATA&HATTYUU_ETC_DATA?
ZZZZ402122	17000	*****( 着手日数 )*****
ZZZZ402122	17100	*ATA={  }.?&.DATA&HATTYUU_START_DAYS?
ZZZZ402122	17200	*****( 完成日数 )*****
ZZZZ402122	17300	*ATA={  }.?&.DATA&HATTYUU_FINISH_DAYS?
ZZZZ402122	17400	*****( 工程日数 )*****
ZZZZ402122	17500	DATA={  }?&.DATA&HATTYUU_PROCESS_DAYS?
ZZZZ402122	17600	*****( 出庫日数 )*****
ZZZZ402122	17700	*ATA={  }.?&.DATA&HATTYUU_OUT_DAYS?
ZZZZ402122	17800	*****( ロット )*****
ZZZZ402122	17900	DATA={  }?&.DATA&HATTYUU_LOT?
ZZZZ402122	18000	*****( ロット記号 )*****
ZZZZ402122	18100	DATA={,&X7}?&.DATA&HATTYUU_LOT_MARK?
ZZZZ402122	18200	DATA={*O}X7.?&X7.DATA&HATTYUU_ETC_DATA?
ZZZZ402122	18300	*****( 材料単価 )*****
ZZZZ402122	18400	DATA={  }?&.DATA&HATTYUU_MATERIAL_COST?
ZZZZ402122	18500	*****( 加工単価 )*****
ZZZZ402122	18600	DATA={  }?&.DATA&HATTYUU_PROCESS_COST?
ZZZZ402122	18700	*****( 単価OK )*****
ZZZZ402122	18800	DATA={,&X6 }?&.DATA&HATTYUU_COST_OK?
ZZZZ402122	18900	=IF{_DATA=}JUMP{SKIP};
ZZZZ402122	19000	=SQL_SET{}{SELECT HATTYUU_OBJECT
ZZZZ402122	19100	=   FROM ?_MM?_PRODUCTION_TABLE
ZZZZ402122	19200	=   WHERE ?_VRE&.HATTYUU_OBJECT?
ZZZZ402122	19300	=   AND   ?_VRE&HATTYUU_PLACE?
ZZZZ402122	19400	=   AND HATTYUU_QTY>0
ZZZZ402122	19500	=   AND Z_CANCEL=' '};
ZZZZ402122	19600	=IF{_SQL_SET_COUNT>0}ERROR{PRODUCTION_TABLE FOUND};
ZZZZ402122	19610	=EXIT{};
ZZZZ402122	19700	=SKIP:IF{HATTYUU_PROCESS_COST=0}
ZZZZ402122	19800	=   ERROR{?&.TITLE&HATTYUU_PROCESS_COST?=0};
ZZZZ402122	20000	DATA={*O}X6.?&X6.DATA&HATTYUU_ETC_DATA?
ZZZZ402122	20100	DATA={  }?&.DATA&HATTYUU_PERSON?
ZZZZ402122	20200	STOP_BEFORE
ZZZZ402122	20300	MENU_INPUT+COPY=MRP_RUN
ZZZZ402122	20400	STOP_AFTER
ZZZZ402122	20500	COPY=PERCENT
ZZZZ402122	20600	=IF{_START=2}EXIT{+1};
ZZZZ402122	20700	COPY=@ZZZZZZ_SQL
ZZZZ402122	20800	PROGRAM=,&X1,?_MM?_REAL_COST_TABLE
ZZZZ402122	20900	CONTROL=0
ZZZZ402122	21000	SET={KO}$.?&.DATA&HATTYUU_OBJECT?
ZZZZ402122	21100	SET={O,*}$.?$&.DATA&HATTYUU_OBJECT_NAME?
ZZZZ402122	21200	SET={O,*}$.?$&.DATA&HATTYUU_UNIT?
ZZZZ402122	21300	SET={KO}.=?&.DATA&HATTYUU_PLACE?
ZZZZ402122	21400	SET={O,*}$X3.?$&X3.DATA&HATTYUU_PLACE_NAME?
ZZZZ402122	21500	START
ZZZZ402122	21600	=SET{HATTYUU_BEGIN_DATE=,HATTYUU_END_DATE=};
ZZZZ402122	21700	*****( 開始日 )*****
ZZZZ402122	21800	DATA={KO}?&.DATA&HATTYUU_BEGIN_DATE?
ZZZZ402122	21900	*****( 終了日 )*****
ZZZZ402122	22000	DATA={KO}?&.DATA&HATTYUU_END_DATE?
ZZZZ402122	22100	*****( 材料単価 )*****
ZZZZ402122	22200	DATA={  }?&.DATA&HATTYUU_MATERIAL_COST?
ZZZZ402122	22300	*****( 加工単価 )*****
ZZZZ402122	22400	DATA={  }?&.DATA&HATTYUU_PROCESS_COST?
ZZZZ402122	22500	=IF{_DATA=0}IF{HATTYUU_MATERIAL_COST=0}ERROR{ZERO};
ZZZZ402122	22600	STOP_AFTER
ZZZZ402122	22700	=IF{_START=2}EXIT{+1};
ZZZZ402122	22800	COPY=@ZZZZZZ_SQL
ZZZZ402122	22900	PROGRAM=NOT,&X1,?_MM?_OBJECT_TABLE
ZZZZ402122	22910	CONTROL=PROGRAM
ZZZZ402122	22920	BEGIN
ZZZZ402122	22930	*=SET{HATTYUU_PERCENT=$HATTYUU_PERCENT};
ZZZZ402122	23000	JA+FORM=    工程完成記号を設定します。
ZZZZ402122	23100	*TABLE=&X1,?_MM?_OBJECT_TABLE
ZZZZ402122	23200	JA+FORM=    比率 @@@@
ZZZZ402122	23300	DATA={O,*}$?$&.DATA&HATTYUU_PERCENT?
ZZZZ402122	23400	JA+FORM=     物  @@@@
ZZZZ402122	23500	DATA={O,*}=.?&.DATA&HATTYUU_OBJECT?
ZZZZ402122	23600	FORM=    @@@@ {YES,NO}
ZZZZ402122	23700	DATA=YES{4,}{YES,NO}
ZZZZ402122	23800	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ402122	23900	********( 整合性　チェック　)*********
ZZZZ402122	24000	COPY=PERCENT
ZZZZ402122	24100	=IF{HATTYUU_PERCENT!=100}
ZZZZ402122	24200	=   ERROR{?$&.TITLE&HATTYUU_PERCENT?!=100};
ZZZZ402122	24300	=SQL_SET{}{SELECT HATTYUU_COST_OK  FROM ?_MM?_PROCESS_TABLE
ZZZZ402122	24400	=   WHERE ?_VRE&HATTYUU_OBJECT?
ZZZZ402122	24500	=   AND HATTYUU_PERCENT<>0
ZZZZ402122	24600	=   AND Z_CANCEL=' ' AND HATTYUU_COST_OK='*'};
ZZZZ402122	24610	=IF{_SQL_SET_COUNT>0}
ZZZZ402122	24700	=   ERROR{?$&.TITLE&HATTYUU_COST_OK?='*'};
ZZZZ402122	24800	=J:SQL{UPDATE ?_MM?_OBJECT_TABLE SET ?_Z_UPDATE_CHANGE?
ZZZZ402122	24900	=  ,HATTYUU_PROCESS_OK=' ',HATTYUU_COST_OK=' ' WHERE
ZZZZ402122	25000	=   ?_VRE&HATTYUU_OBJECT?
ZZZZ402122	25100	=   AND(HATTYUU_PROCESS_OK='*' OR HATTYUU_COST_OK='*')
ZZZZ402122	25200	=   AND Z_CANCEL=' '};
ZZZZ402122	25300	=EXIT{1};
ZZZZ402123	100	PROGRAM=OUTPUT,&X1,?_MM?_OBJECT_TABLE
ZZZZ402123	200	TABLE=&X2,?_MM?_ETC_TABLE
ZZZZ402123	300	TABLE=&X3,?_MM?_ETC_TABLE
ZZZZ402123	400	TABLE=&X4,?_MM?_ETC_TABLE
ZZZZ402123	500	TABLE=&X5,?_MM?_ETC_TABLE
ZZZZ402123	600	TABLE=&X6,?_MM?_ETC_TABLE
ZZZZ402123	700	TABLE=&X7,?_MM?_ETC_TABLE
ZZZZ402123	800	CONTROL=0,SCROLL
ZZZZ402123	900	BEGIN_END
ZZZZ402123	1000	REPEAT=_A_D
ZZZZ402123	1100	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ402123	1200	REPEAT=
ZZZZ402123	1300	BEGIN
ZZZZ402123	1400	=SET{.HATTYUU_OBJECT_MARK='F'};
ZZZZ402123	1500	=CREATE_TABLE{?_WORK_TABLE?A,HATTYUU_OBJECT,*}{};
ZZZZ402123	1600	=CREATE_TABLE{?_WORK_TABLE?B,HATTYUU_OBJECT,*}{};
ZZZZ402123	1700	=CREATE_TABLE{?_WORK_TABLE?C,HATTYUU_OWNER_OBJECT,*
ZZZZ402123	1800	=   ,HATTYUU_MEMBER_OBJECT,*
ZZZZ402123	1900	REPEAT=?@ZZZYZY_BOM_MAX?
ZZZZ402123	2000	=   ,HATTYUU_OBJECT##,?&.C2&HATTYUU_OBJECT?
ZZZZ402123	2100	REPEAT=
ZZZZ402123	2200	=   }{HATTYUU_LEVEL,INT,HATTYUU_LLM,1};
ZZZZ402123	2300	=CREATE_INDEX{?_WORK_TABLE?C,1,,
ZZZZ402123	2400	=   HATTYUU_OWNER_OBJECT,HATTYUU_MEMBER_OBJECT};
ZZZZ402123	2500	=COPY_TABLE{?_WORK_TABLE?D,?_MM?_BOM_TABLE,NOT};
ZZZZ402123	2600	SET={}.?&.SET&HATTYUU_OBJECT?
ZZZZ402123	2700	SET={}.?&.SET&HATTYUU_OBJECT_MARK?
ZZZZ402123	2800	*ENU_INPUT+SET={,*}ALL{4}{,ALL}
ZZZZ402123	2900	*ENU_INPUT+=SET{W_ALL=};
ZZZZ402123	3000	*ENU_INPUT+=IF{_DATA='ALL'}EXIT{};
ZZZZ402123	3100	*ENU_INPUT+=SET{W_ALL='AND ?_T?.BOM_OK=''*'''};
ZZZZ402123	3200	MENU_INPUT+SET={,}ALL{4}{,ALL}
ZZZZ402123	3300	MENU_INPUT+=IF{_DATA='ALL'}SET{_DATA@WHERE=};
ZZZZ402123	3400	MENU_INPUT+=IF{_DATA!='ALL'}
ZZZZ402123	3500	MENU_INPUT+=   SET{ALL@WHERE='?_T?.HATTYUU_BOM_OK=''*'''};
ZZZZ402123	3600	MENU_INPUT+SET={N,*}SET_WHERE{1}
ZZZZ402123	3700	MENU_INPUT+=SET{_DATA@WHERE=
ZZZZ402123	3800	MENU_INPUT+=  '?_T?.HATTYUU_BOM_MARK IN(''1'',''2'')'};
ZZZZ402123	3900	MENU_INPUT-COMMENT_BEGIN
ZZZZ402123	4000	START
ZZZZ402123	4100	NAME=MRP_RUN
ZZZZ402123	4200	=PROGRAM{0,?_MM?_ETC_TABLE}{WC.HATTYUU_ETC='WW_MRP_RUN'
ZZZZ402123	4300	=   ,WC.HATTYUU_ETC_KEY=' ',WN.HATTYUU_ETC_DATA='1'}{};
ZZZZ402123	4400	=IF{_PROGRAM_COUNT>0}
ZZZZ402123	4500	=   ERROR{MRP準備処理中しばらくお待ち下さい！};
ZZZZ402123	4600	NAME=
ZZZZ402123	4700	=IF{ALL='ALL'}EXIT{};
ZZZZ402123	4800	*SQL_SET{WX.HATTYUU_BOM_OK}
ZZZZ402123	4810	*  {SELECT HATTYUU_BOM_OK FROM ?_TABLE?
ZZZZ402123	4900	*   WHERE ?_VRE&HATTYUU_OBJECT?
ZZZZ402123	5000	*   AND Z_CANCEL=' '};
ZZZZ402123	5010	*IF{_SQL_SET_COUNT=0}ERROR{COUNT=0};
ZZZZ402123	5020	=PROGRAM{0,?_TABLE?,WC.HATTYUU_BOM_OK=}{HATTYUU_OBJECT}{};
ZZZZ402123	5030	=IF{_PROGRAM_COUNT=0}ERROR{COUNT=0};
ZZZZ402123	5100	=IF{WC.HATTYUU_BOM_OK!='*'}
ZZZZ402123	5200	=   ERROR{?&.TITLE&HATTYUU_BOM_OK?!='*'};
ZZZZ402123	5300	MENU_INPUT-COMMENT_END
ZZZZ402123	5400	DATA={K }?&.DATA&HATTYUU_OBJECT?
ZZZZ402123	5500	DATA={,&X2}?&.DATA&HATTYUU_OBJECT_MARK?
ZZZZ402123	5600	DATA={*O}X2.?&X2.DATA&HATTYUU_ETC_DATA?
ZZZZ402123	5700	DATA={,&X3}?&.DATA&HATTYUU_BOM_MARK?
ZZZZ402123	5800	DATA={*O}X3.?&X3.DATA&HATTYUU_ETC_DATA?
ZZZZ402123	5900	DATA={,&X4}?&.DATA&HATTYUU_ARRANGE_MARK?
ZZZZ402123	6000	DATA={*O}X4.?&X4.DATA&HATTYUU_ETC_DATA?
ZZZZ402123	6100	*DATA={  }.?&.DATA&HATTYUU_STANDARD_MATERIAL_COST?
ZZZZ402123	6200	*DATA={  }.?&.DATA&HATTYUU_STANDARD_PROCESS_COST?
ZZZZ402123	6300	*DATA={  }.?&.DATA&HATTYUU_ONEROUS_COST?
ZZZZ402123	6400	DATA={,&X5}?&.DATA&HATTYUU_COST_OK?
ZZZZ402123	6500	DATA={*O}X5.?&X5.DATA&HATTYUU_ETC_DATA?
ZZZZ402123	6600	DATA={,&X6}?&.DATA&HATTYUU_BOM_OK?
ZZZZ402123	6700	DATA={*O}X6.?&X6.DATA&HATTYUU_ETC_DATA?
ZZZZ402123	6800	DATA={O,&X7}?&.DATA&HATTYUU_PROCESS_OK?
ZZZZ402123	6900	DATA={*O}X7.?&X7.DATA&HATTYUU_ETC_DATA?
ZZZZ402123	7000	DATA={  }?&.DATA&HATTYUU_OBJECT_NAME?
ZZZZ402123	7100	COPY=@ZZZZZZ_SQL
ZZZZ402123	7200	PROGRAM=,&X1,?_MM?_BOM_TABLE
ZZZZ402123	7300	RIGHT=&XW,?_WORK_TABLE?C,,1
ZZZZ402123	7400	LEFT=&X2,?_MM?_OBJECT_TABLE,&XW
ZZZZ402123	7500	JOIN_KEY=HATTYUU_OWNER_OBJECT
ZZZZ402123	7600	LEFT=&X3,?_MM?_OBJECT_TABLE,&XW
ZZZZ402123	7700	JOIN_KEY=HATTYUU_MEMBER_OBJECT
ZZZZ402123	7800	CONTROL=SCROLL,MAX,BEGIN_ENTER
ZZZZ402123	7900	MENU_INPUT+CONTROL=0
ZZZZ402123	8000	COLOR
ZZZZ402123	8100	=IF{XW.Z_CANCEL!=}
ZZZZ402123	8200	=   SET{XW.HATTYUU_OWNER_OBJECT@COLOR='L'
ZZZZ402123	8300	=   ,XW.HATTYUU_MEMBER_OBJECT@COLOR='L'
ZZZZ402123	8400	=   ,HATTYUU_NUMERATOR@COLOR='L'
ZZZZ402123	8500	=   ,HATTYUU_DENOMINATOR@COLOR='L'}EXIT{};
ZZZZ402123	8600	=IF{X3.HATTYUU_BOM_MARK='3'}IF{X3.HATTYUU_COST_OK='*'}
ZZZZ402123	8700	=   SET{X3.HATTYUU_COST_OK@COLOR='R'};
ZZZZ402123	8800	=IF{X3.HATTYUU_BOM_MARK='1',='2'}IF{XW.HATTYUU_LLM='*'}
ZZZZ402123	8900	=   SET{XW.HATTYUU_LLM@COLOR='R'};
ZZZZ402123	9000	=IF{X3.HATTYUU_PROCESS_OK='*'}
ZZZZ402123	9010	=   SET{X3.HATTYUU_PROCESS_OK@COLOR='Y'};
ZZZZ402123	9200	=IF{X3.HATTYUU_BOM_OK='*'}SET{X3.HATTYUU_BOM_OK@COLOR='Y'};
ZZZZ402123	9400	BEGIN
ZZZZ402123	9500	=SET{.HATTYUU_OWNER_OBJECT=$HATTYUU_OBJECT};
ZZZZ402123	9600	SET={O,*}.?&.SET&HATTYUU_OWNER_OBJECT?
ZZZZ402123	9700	MENU_INPUT-COMMENT_BEGIN
ZZZZ402123	9800	SET={,*}OK{3}OK
ZZZZ402123	9900	CHECK2=,検索,OK,構成完成
ZZZZ402123	10000	=IF{_DATA='OK'}SET{OK=,%ZZZZZZ_SET='+'}EXIT{+1};
ZZZZ402123	10300	MENU_INPUT-COMMENT_END
ZZZZ402123	10400	=SQL{DELETE FROM ?_WORK_TABLE?C};
ZZZZ402123	10500	=SQL{INSERT INTO ?_WORK_TABLE?C (HATTYUU_MEMBER_OBJECT)
ZZZZ402123	10600	=   VALUES('?.HATTYUU_OWNER_OBJECT?')};
ZZZZ402123	10700	=SET{_COUNTER=0};
ZZZZ402123	10800	=LOOP:SQL{UPDATE ?_WORK_TABLE?C SET HATTYUU_LLM='*' WHERE
ZZZZ402123	10900	=   HATTYUU_LEVEL=$$ AND HATTYUU_MEMBER_OBJECT NOT IN
ZZZZ402123	11000	=   (SELECT  HATTYUU_OWNER_OBJECT FROM ?_MM?_BOM_TABLE
ZZZZ402123	11100	=   WHERE Z_CANCEL=' ')};
ZZZZ402123	11200	=COMPUTE{_COUNTER+=1};
ZZZZ402123	11300	=SQL{INSERT INTO ?_WORK_TABLE?C(HATTYUU_OWNER_OBJECT
ZZZZ402123	11400	=   ,HATTYUU_MEMBER_OBJECT,HATTYUU_LEVEL,Z_CANCEL
ZZZZ402123	11500	REPEAT=?@ZZZYZY_BOM_MAX?
ZZZZ402123	11600	=   ,HATTYUU_OBJECT##
ZZZZ402123	11700	REPEAT=
ZZZZ402123	11800	=   )SELECT ?_T?.HATTYUU_OWNER_OBJECT
ZZZZ402123	11810	=   ,?_T?.HATTYUU_MEMBER_OBJECT,$$
ZZZZ402123	11900	=   ,?_T?.Z_CANCEL
ZZZZ402123	12000	REPEAT=?@ZZZYZY_BOM_MAX?
ZZZZ402123	12100	=   ,CASE $$  WHEN ## THEN ?_T?.HATTYUU_MEMBER_OBJECT   ELSE
ZZZZ402123	12200	=   XW.HATTYUU_OBJECT## END
ZZZZ402123	12300	REPEAT=
ZZZZ402123	12400	=   FROM ?_TABLE? ?_T?,?_WORK_TABLE?C XW WHERE
ZZZZ402123	12500	=   ?_T?.HATTYUU_OWNER_OBJECT=XW.HATTYUU_MEMBER_OBJECT
ZZZZ402123	12600	=   AND XW.HATTYUU_LEVEL=$- AND XW.Z_CANCEL=' '};
ZZZZ402123	12700	=SQL_SET{}{SELECT HATTYUU_OWNER_OBJECT FROM ?_WORK_TABLE?C
ZZZZ402123	12800	=   WHERE HATTYUU_LEVEL=$$};
ZZZZ402123	12810	=IF{_SQL_SET_COUNT!=0}BACK{LOOP};
ZZZZ402123	13300	START
ZZZZ402123	13400	MENU_INPUT+COPY=MRP_RUN
ZZZZ402123	13500	=IF{_START!=0}JUMP{START_NOT_0};
ZZZZ402123	13600	=SQL_SET{W0CNT}{SELECT COUNT(*) FROM ?&.TABLE? WHERE
ZZZZ402123	13700	=   .HATTYUU_OWNER_OBJECT?_VCE&XW.HATTYUU_MEMBER_OBJECT?
ZZZZ402123	13800	=   AND Z_CANCEL=' '};
ZZZZ402123	13900	=IF{W0CNT!=0}ERROR{構成情報が有ります};
ZZZZ402123	14000	=SET{%ZZZZZZ_SET='-'};
ZZZZ402123	14100	=START_NOT_0:
ZZZZ402123	14200	=IF{XW.HATTYUU_OWNER_OBJECT=}
ZZZZ402123	14300	=   IF{_START=1,=3}
ZZZZ402123	14350	=      ERROR{?&XW.TITLE&HATTYUU_OWNER_OBJECT?=' '};
ZZZZ402123	14400	=IF{_START=2}IF{XW.Z_CANCEL!=}ERROR{CANCEL!=' '};
ZZZZ402123	14500	=               SET{W_OBJECT=XW.HATTYUU_OWNER_OBJECT};
ZZZZ402123	14600	=IF{_START=2,=0}SET{W_OBJECT=XW.HATTYUU_MEMBER_OBJECT};
ZZZZ402123	14700	NAME=SQL_SET_OBJECT
ZZZZ402123	14800	=SQL_SET{W.HATTYUU_OBJECT_NAME,W.HATTYUU_BOM_MARK
ZZZZ402123	14900	=   ,W.HATTYUU_DISCONTINUE_MARK,W.HATTYUU_BOM_OK}
ZZZZ402123	15000	=  {SELECT HATTYUU_OBJECT_NAME,HATTYUU_BOM_MARK
ZZZZ402123	15100	=   ,HATTYUU_DISCONTINUE_MARK,HATTYUU_BOM_OK
ZZZZ402123	15200	=    FROM ?&X2.TABLE? WHERE HATTYUU_OBJECT='?W_OBJECT?'
ZZZZ402123	15300	=    AND Z_CANCEL=' '};
ZZZZ402123	15310	=IF{_SQL_SET_COUNT=0}ERROR{'?W_OBJECT?' NOT FOUND};
ZZZZ402123	15400	=IF{_START=2,=0}IF{W.HATTYUU_DISCONTINUE_MARK!=' '}
ZZZZ402123	15500	=   ERROR{?&X2.TITLE&HATTYUU_DISCONTINUE_MARK?!=' '};
ZZZZ402123	15600	NAME=SQL_SET_OWNER_CHECK
ZZZZ402123	15700	=IF{$ALL<>'ALL'}IF{W.HATTYUU_BOM_OK!='*'}
ZZZZ402123	15900	=   ERROR{OWNER ?&X2.TITLE&HATTYUU_BOM_OK?!='*'};
ZZZZ402123	16000	=IF{_START=2,=0}
ZZZZ402123	16100	=   IF{W.HATTYUU_BOM_MARK!='1'}IF{W.HATTYUU_BOM_MARK!='2'}
ZZZZ402123	16200	=   ERROR{?&X2.TITLE&HATTYUU_BOM_MARK? NOT IN('1','2')};
ZZZZ402123	16300	*=IF{_START=2}
ZZZZ402123	16400	*=IF{$ALL<>'ALL'}
ZZZZ402123	16500	*=  IF{W.BOM_OK!='*'}
ZZZZ402123	16600	*=     ERROR{?&X2.TITLE&BOM_OK?!='*'};
ZZZZ402123	16700	NAME=
ZZZZ402123	16800	=IF{_START=2}SET{XW.HATTYUU_OWNER_OBJECT=W_OBJECT};
ZZZZ402123	16900	=IF{_START=3}EXIT{XW.HATTYUU_MEMBER_OBJECT};
ZZZZ402123	17000	DATA={*O}AA_LEVEL{10}
ZZZZ402123	17100	SELECT=CASE WHEN XW.HATTYUU_LEVEL=0  THEN ' '
ZZZZ402123	17200	SELECT=     WHEN XW.HATTYUU_LEVEL<10 THEN
ZZZZ402123	17300	SELECT=?_CL??_REPEAT?(' ',XW.HATTYUU_LEVEL-1)
ZZZZ402123	17400	SELECT=?_C?CAST(XW.HATTYUU_LEVEL AS CHAR(1))?_CR? ELSE
ZZZZ402123	17500	SELECT=?_CL?'    '?_C?CAST(XW.HATTYUU_LEVEL AS CHAR(2))?_CR?
ZZZZ402123	17510	SELECT=   END
ZZZZ402123	17600	DATA={*O}XW.?&XW.DATA&HATTYUU_LLM?LOW
ZZZZ402123	17700	DATA={*O}X3.?&X3.DATA&HATTYUU_COST_OK?
ZZZZ402123	17800	*****( 親 )*****
ZZZZ402123	17900	DATA={K }XW.?&.DATA&HATTYUU_OWNER_OBJECT?
ZZZZ402123	18000	=SET{W_OBJECT=_DATA};
ZZZZ402123	18100	COPY=SQL_SET_OBJECT
ZZZZ402123	18200	COPY=SQL_SET_OWNER_CHECK
ZZZZ402123	18300	*SET{X2.OBJECT_NAME=W.OBJECT_NAME};
ZZZZ402123	18400	*ATA={*O}X2.?&X2.DATA&HATTYUU_OBJECT_NAME?
ZZZZ402123	18500	*****( 子 )*****
ZZZZ402123	18600	DATA={K }XW.?&.DATA&HATTYUU_MEMBER_OBJECT?
ZZZZ402123	18700	=IF{_DATA=XW.HATTYUU_OWNER_OBJECT}
ZZZZ402123	18800	=   ERROR{?&XW.TITLE&HATTYUU_OWNER_OBJECT?
ZZZZ402123	18900	==?&XW.TITLE&HATTYUU_MEMBER_OBJECT?};
ZZZZ402123	19000	=SET{W_OBJECT=_DATA};
ZZZZ402123	19100	COPY=SQL_SET_OBJECT
ZZZZ402123	19200	=IF{W.HATTYUU_BOM_MARK!='2'}IF{W.HATTYUU_BOM_MARK!='3'}
ZZZZ402123	19500	=  ERROR{?&X2.TITLE&HATTYUU_BOM_MARK? NOT IN('2','3')};
ZZZZ402123	19600	=SET{W_CHECK_START=_DATA};
ZZZZ402123	19700	=SET{W_CHECK_OBJECT=XW.HATTYUU_OWNER_OBJECT};
ZZZZ402123	19800	****( LOOP CHECK ,W_CHECK_START,W_CHECK_OBJECT )****
ZZZZ402123	19900	NAME=LOOP_CHECK
ZZZZ402123	20000	=SQL{DELETE FROM ?_WORK_TABLE?A};
ZZZZ402123	20100	=SQL{INSERT INTO ?_WORK_TABLE?A(HATTYUU_OBJECT)
ZZZZ402123	20200	=    VALUES('?W_CHECK_START?')};
ZZZZ402123	20300	=SET{W_IN1='A',W_OUT1='B'};
ZZZZ402123	20400	=SET{W_IN2='B',W_OUT2='A'};
ZZZZ402123	20500	=LOOP:
ZZZZ402123	20600	REPEAT=2
ZZZZ402123	20700	=SQL{DELETE FROM ?_WORK_TABLE??W_OUT##?};
ZZZZ402123	20800	=SQL{INSERT INTO ?_WORK_TABLE??W_OUT##?(HATTYUU_OBJECT)
ZZZZ402123	20900	=    SELECT DISTINCT HATTYUU_MEMBER_OBJECT FROM ?_TABLE? ?_T?
ZZZZ402123	21000	=    ,?_WORK_TABLE??W_IN##? WHERE  HATTYUU_OWNER_OBJECT
ZZZZ402123	21100	=    =HATTYUU_OBJECT AND ?_T?.Z_CANCEL=' '};
ZZZZ402123	21200	=SQL_SET{}{SELECT HATTYUU_OBJECT FROM ?_WORK_TABLE??W_OUT##?
ZZZZ402123	21300	=      WHERE HATTYUU_OBJECT='?W_CHECK_OBJECT?'};
ZZZZ402123	21400	=IF{_SQL_SET_COUNT>0}ERROR{LOOP ERROR};
ZZZZ402123	21500	=J:SQL_SET{}
ZZZZ402123	21510	=      {SELECT HATTYUU_OBJECT FROM ?_WORK_TABLE??W_OUT##?};
ZZZZ402123	21600	=IF{_SQL_SET_COUNT=0}JUMP{END};
ZZZZ402123	21700	REPEAT=
ZZZZ402123	21800	=BACK{LOOP};
ZZZZ402123	21900	=END:
ZZZZ402123	22000	NAME=
ZZZZ402123	22100	=SET{X3.HATTYUU_OBJECT_NAME=W.HATTYUU_OBJECT_NAME};
ZZZZ402123	22200	*ATA={K }XW.?&.DATA&HATTYUU_BEGIN_DATE?
ZZZZ402123	22300	*ATA={  }.?&.DATA&HATTYUU_END_DATE?
ZZZZ402123	22400	*****( 分子数量 )*****
ZZZZ402123	22500	DATA={  }?&.DATA&HATTYUU_NUMERATOR?
ZZZZ402123	22600	*****( 分母数量 )*****
ZZZZ402123	22700	DATA={  }?&.DATA&HATTYUU_DENOMINATOR?
ZZZZ402123	22800	DATA={*O}X3.?&X3.DATA&HATTYUU_BOM_OK?
ZZZZ402123	22900	DATA={*O}X3.?&X3.DATA&HATTYUU_PROCESS_OK?
ZZZZ402123	23000	DATA={*O}X3.?&X3.DATA&HATTYUU_BOM_MARK?
ZZZZ402123	23100	DATA={*O}X3.?&X3.DATA&HATTYUU_ARRANGE_MARK?
ZZZZ402123	23200	DATA={*O}X3.?&X3.DATA&HATTYUU_OBJECT_NAME?
ZZZZ402123	23300	DATA={*N}XW.Z_CANCEL{,,T}
ZZZZ402123	23400	STOP_BEFORE
ZZZZ402123	23500	MENU_INPUT+COPY=MRP_RUN
ZZZZ402123	23600	MINUS=%ZZZZZZ_SQL_ORDER
ZZZZ402123	23700	COPY=@ZZZZZZ_SQL
ZZZZ402123	23800	SQL=?_WHERE_AND?(?_T?.HATTYUU_NUMERATOR IS NOT NULL
ZZZZ402123	23900	SQL=  OR XW.HATTYUU_OWNER_OBJECT=' ')
ZZZZ402123	24000	REPEAT=?@ZZZYZY_BOM_MAX?
ZZZZ402123	24100	1+SQL= ORDER BY XW.HATTYUU_OBJECT##
ZZZZ402123	24200	1-SQL=,XW.HATTYUU_OBJECT##
ZZZZ402123	24300	REPEAT=
ZZZZ402123	24400	************( COPY処理 )*******
ZZZZ402123	24500	%ZZZZ_SET+COMMENT_BEGIN
ZZZZ402123	24600	PROGRAM=OUTPUT,&X1,?_MM?_BOM_TABLE
ZZZZ402123	24700	CONTROL=0
ZZZZ402123	24800	SET=.?&.SET&HATTYUU_OWNER_OBJECT?
ZZZZ402123	24900	SET={O,*}$XW.?&.DATA&HATTYUU_MEMBER_OBJECT?
ZZZZ402123	25000	SET={O}$XW.?&.DATA&HATTYUU_OWNER_OBJECT?
ZZZZ402123	25100	=SET{_DATA@WHERE='NOT('
ZZZZ402123	25200	*自分の親と同じ親は非表示
ZZZZ402123	25300	=   +'?_VRE&XW.HATTYUU_OWNER_OBJECT?'
ZZZZ402123	25400	=   +' OR EXISTS(SELECT ''A'' FROM ?&.TABLE? X11 WHERE'
ZZZZ402123	25500	=   +' ?_T?.HATTYUU_OWNER_OBJECT=X11.HATTYUU_OWNER_OBJECT'
ZZZZ402123	25600	*自分の親と同じ子が有る場合は非表示
ZZZZ402123	25700	=   +' AND(X11.HATTYUU_MEMBER_OBJECT'
ZZZZ402123	25702	=   +'  =''?XW.HATTYUU_OWNER_OBJECT?'''
ZZZZ402123	25710	*自分が子に有る場合は非表示
ZZZZ402123	25720	=   +' OR ?_VRE&XW.HATTYUU_OWNER_OBJECT?'
ZZZZ402123	25800	*子に廃止分が有る場合は非表示
ZZZZ402123	25900	=   +' OR EXISTS(SELECT ''A'' FROM ?_MM?_OBJECT_TABLE X12'
ZZZZ402123	26000	=   +' WHERE X12.HATTYUU_OBJECT=X11.HATTYUU_MEMBER_OBJECT'
ZZZZ402123	26100	=   +' AND X12.HATTYUU_DISCONTINUE_MARK=''*'''
ZZZZ402123	26200	=   +' AND X12.Z_CANCEL='' ''))'
ZZZZ402123	26300	=   +' AND X11.Z_CANCEL='' ''))'};
ZZZZ402123	26400	START
ZZZZ402123	26500	=SET{W_CHECK_START=.HATTYUU_OWNER_OBJECT};
ZZZZ402123	26600	=SET{W_CHECK_OBJECT=XW.HATTYUU_MEMBER_OBJECT};
ZZZZ402123	26700	COPY=LOOP_CHECK
ZZZZ402123	26800	=SQL{DELETE FROM ?_WORK_TABLE?D};
ZZZZ402123	26900	=SQL{INSERT INTO ?_WORK_TABLE?D SELECT * FROM ?&.TABLE?
ZZZZ402123	27000	=   WHERE ?_VRE&HATTYUU_OWNER_OBJECT? AND Z_CANCEL=' '};
ZZZZ402123	27100	*親を変更
ZZZZ402123	27200	=SQL{UPDATE ?_WORK_TABLE?D SET HATTYUU_OWNER_OBJECT
ZZZZ402123	27300	=   ?_VCE&XW.HATTYUU_MEMBER_OBJECT?};
ZZZZ402123	27400	*COPY実行
ZZZZ402123	27500	=REPLACE_PART_ADD{?&.TABLE?,?_WORK_TABLE?D,?&.DATA?}
ZZZZ402123	27600	=  {?&.KEY?}{}{};
ZZZZ402123	27700	=SET{_RETURN_SQL=1};
ZZZZ402123	27800	=EXIT{-1};
ZZZZ402123	27900	DATA={G}?&.DATA&HATTYUU_OWNER_OBJECT?
ZZZZ402123	28000	DATA={O}COUNT{1,6,+}
ZZZZ402123	28100	SELECT=COUNT(*)
ZZZZ402123	28200	COPY=@ZZZZZZ_SQL
ZZZZ402123	28300	%ZZZZ_SET+COMMENT_END
ZZZZ402123	28400	************( 構成完成記号及び有償単価を設定 )*******
ZZZZ402123	28500	%ZZZZ_SET-COMMENT_BEGIN
ZZZZ402123	28600	PROGRAM=NOT,&X1,?_MM?_OBJECT_TABLE
ZZZZ402123	28610	CONTROL=PROGRAM
ZZZZ402123	28700	JA+FORM=    構成完成記号及び有償単価を設定します。
ZZZZ402123	28800	*TABLE=&X1,?_MM?_OBJECT_TABLE
ZZZZ402123	28900	FORM=    @@@@ {YES,NO}
ZZZZ402123	29000	BEGIN_END
ZZZZ402123	29100	=DROP_TABLE{?_WORK_TABLE?D};
ZZZZ402123	29200	BEGIN
ZZZZ402123	29300	=CREATE_TABLE2{?_WORK_TABLE?D,
ZZZZ402123	29400	=   HATTYUU_OBJECT,*,HATTYUU_LEVEL,INT}
ZZZZ402123	29500	=  {HATTYUU_ONEROUS_COST,*,HATTYUU_BOM_OK,*,HATTYUU_CHANGE,1
ZZZZ402123	29600	=   ,HATTYUU_BOM_MARK,*,HATTYUU_COST_OK,*,HATTYUU_LLM,1};
ZZZZ402123	29700	DATA=YES{4,}{YES,NO}
ZZZZ402123	29800	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ402123	29900	********( 整合性　チェック　)*********
ZZZZ402123	30000	=SQL{DELETE FROM ?_WORK_TABLE?D};
ZZZZ402123	30100	=SQL{INSERT INTO ?_WORK_TABLE?D (HATTYUU_OBJECT
ZZZZ402123	30200	=   ,HATTYUU_ONEROUS_COST,HATTYUU_BOM_OK,HATTYUU_BOM_MARK
ZZZZ402123	30300	=   ,HATTYUU_COST_OK)SELECT HATTYUU_OBJECT
ZZZZ402123	30400	=   ,HATTYUU_ONEROUS_COST,HATTYUU_BOM_OK,HATTYUU_BOM_MARK
ZZZZ402123	30410	=   ,HATTYUU_COST_OK
ZZZZ402123	30500	=   FROM ?_MM?_OBJECT_TABLE WHERE HATTYUU_OBJECT
ZZZZ402123	30600	=   ='?$.HATTYUU_OWNER_OBJECT?' AND Z_CANCEL=' '};
ZZZZ402123	30700	=SQL_SET{}{SELECT HATTYUU_OBJECT FROM ?_WORK_TABLE?D};
ZZZZ402123	30800	=IF{_SQL_SET_COUNT=0}
ZZZZ402123	30810	=   ERROR{'?$.HATTYUU_OWNER_OBJECT?' NOT FOUND};
ZZZZ402123	30900	=SET{_COUNTER=0};
ZZZZ402123	31000	=LOOP:SQL{UPDATE ?_WORK_TABLE?D SET HATTYUU_LLM='*' WHERE
ZZZZ402123	31100	=HATTYUU_LEVEL=$$ AND HATTYUU_OBJECT NOT IN
ZZZZ402123	31200	=(SELECT  HATTYUU_OWNER_OBJECT FROM ?_MM?_BOM_TABLE
ZZZZ402123	31300	=WHERE Z_CANCEL=' ')};
ZZZZ402123	31400	=COMPUTE{_COUNTER+=1};
ZZZZ402123	31500	=SQL{INSERT INTO ?_WORK_TABLE?D(HATTYUU_OBJECT
ZZZZ402123	31600	=   ,HATTYUU_ONEROUS_COST,HATTYUU_BOM_OK,HATTYUU_BOM_MARK
ZZZZ402123	31700	=   ,HATTYUU_COST_OK,HATTYUU_LEVEL)
ZZZZ402123	31710	=    SELECT DISTINCT X2.HATTYUU_OBJECT
ZZZZ402123	31800	=   ,X2.HATTYUU_ONEROUS_COST,X2.HATTYUU_BOM_OK
ZZZZ402123	31810	=   ,X2.HATTYUU_BOM_MARK
ZZZZ402123	31900	=   ,X2.HATTYUU_COST_OK,$$ FROM ?_WORK_TABLE?D XW INNER JOIN
ZZZZ402123	32000	=   ?_MM?_BOM_TABLE ?_T? ON
ZZZZ402123	32100	=   ?_T?.HATTYUU_OWNER_OBJECT=XW.HATTYUU_OBJECT
ZZZZ402123	32200	=   AND ?_T?.Z_CANCEL=' '
ZZZZ402123	32300	=  LEFT OUTER JOIN ?_MM?_OBJECT_TABLE X2 ON X2.HATTYUU_OBJECT
ZZZZ402123	32400	=   =?_T?.HATTYUU_MEMBER_OBJECT AND X2.Z_CANCEL=' '
ZZZZ402123	32500	=   WHERE XW.HATTYUU_LEVEL=$-
ZZZZ402123	32600	=   AND ?_T?.HATTYUU_MEMBER_OBJECT NOT IN(
ZZZZ402123	32610	=   SELECT HATTYUU_OBJECT
ZZZZ402123	32700	=   FROM ?_WORK_TABLE?D)};
ZZZZ402123	32800	=SQL_SET{}{SELECT HATTYUU_OBJECT FROM ?_WORK_TABLE?D
ZZZZ402123	32900	=   WHERE HATTYUU_LEVEL=$$};
ZZZZ402123	32910	=IF{_SQL_SET_COUNT>0}BACK{LOOP};
ZZZZ402123	33200	=SQL_SET{WX.HATTYUU_OBJECT}{SELECT HATTYUU_OBJECT FROM
ZZZZ402123	33300	=   ?_WORK_TABLE?D WHERE
ZZZZ402123	33400	=   HATTYUU_BOM_MARK='3' AND HATTYUU_COST_OK='*'};
ZZZZ402123	33500	=IF{_SQL_SET_COUNT>0}ERROR{?WX.HATTYUU_OBJECT?
ZZZZ402123	33600	=   ?&.TITLE&HATTYUU_COST_OK?='*'};
ZZZZ402123	33700	=SQL_SET{WX.HATTYUU_OBJECT}{SELECT HATTYUU_OBJECT FROM
ZZZZ402123	33800	=   ?_WORK_TABLE?D WHERE
ZZZZ402123	33900	=   HATTYUU_BOM_MARK IN('1','2') AND HATTYUU_LLM='*'};
ZZZZ402123	34000	=IF{_SQL_SET_COUNT>0}ERROR{?WX.HATTYUU_OBJECT?   LOW='*'};
ZZZZ402123	34200	********( 有償単価積み上げ計算および構成OK設定　)*****
ZZZZ402123	34300	=SQL1{SELECT HATTYUU_OBJECT,HATTYUU_BOM_MARK
ZZZZ402123	34310	=   FROM ?_WORK_TABLE?D
ZZZZ402123	34400	=   WHERE HATTYUU_BOM_OK='*' ORDER BY HATTYUU_LEVEL DESC};
ZZZZ402123	34500	=SQL1_NEXT:
ZZZZ402123	34510	=SQL1_NEXT{WX.HATTYUU_OBJECT,WX.HATTYUU_BOM_MARK}
ZZZZ402123	34520	=   JUMP{SQL1_END};
ZZZZ402123	34600	=IF{WX.HATTYUU_BOM_MARK='3'}
ZZZZ402123	34700	=  SQL{UPDATE ?_MM?_OBJECT_TABLE SET ?_Z_UPDATE_CHANGE?
ZZZZ402123	34800	=  ,HATTYUU_BOM_OK=' '
ZZZZ402123	34810	=  WHERE ?_VRE&WX.HATTYUU_OBJECT?
ZZZZ402123	34900	=  AND HATTYUU_BOM_OK='*' AND Z_CANCEL=' '}BACK{SQL1_NEXT};
ZZZZ402123	34910	WORK=W.?&.DATA&HATTYUU_ONEROUS_COST?
ZZZZ402123	35000	=SQL_SET{W.HATTYUU_ONEROUS_COST}{SELECT SUM
ZZZZ402123	35001	=(HATTYUU_ONEROUS_COST*HATTYUU_NUMERATOR/HATTYUU_DENOMINATOR)
ZZZZ402123	35002	=   FROM ?_MM?_BOM_TABLE ?_T?,?_MM?_OBJECT_TABLE X2
ZZZZ402123	35003	=   WHERE HATTYUU_MEMBER_OBJECT=HATTYUU_OBJECT
ZZZZ402123	35004	=   AND ?_T?.Z_CANCEL=' ' AND HATTYUU_ONEROUS_MARK=' '
ZZZZ402123	35005	=   AND HATTYUU_OWNER_OBJECT?_VCE&WX.HATTYUU_OBJECT?};
ZZZZ402123	35006	=IF{_SQL_SET_COUNT=0}ERROR{COUNT=0};
ZZZZ402123	35010	=SQL{UPDATE ?_MM?_OBJECT_TABLE SET ?_Z_UPDATE_CHANGE?
ZZZZ402123	35030	=   ,HATTYUU_BOM_OK=' ',?_VRE&W.HATTYUU_ONEROUS_COST?
ZZZZ402123	35040	=   WHERE ?_VRE&WX.HATTYUU_OBJECT? AND Z_CANCEL=' '};
ZZZZ402123	35100	*  ,BOM_OK=' ',ONEROUS_COST=(SELECT
ZZZZ402123	35200	*  SUM(ONEROUS_COST
ZZZZ402123	35300	*     *NUMERATOR/DENOMINATOR)
ZZZZ402123	35400	*  FROM ?_MM?_BOM_TABLE ?_T?,?_MM?_OBJECT_TABLE X2
ZZZZ402123	35500	*  WHERE HATTYUU_MEMBER_OBJECT=.HATTYUU_OBJECT
ZZZZ402123	35600	*  AND ?_T?.Z_CANCEL=' ' AND  ONEROUS_MARK=' '
ZZZZ402123	35700	*  AND OWNER_OBJECT='?WX.HATTYUU_OBJECT?')
ZZZZ402123	35800	*  WHERE HATTYUU_OBJECT='?WX.HATTYUU_OBJECT?'
ZZZZ402123	35900	*  AND BOM_OK='*' AND Z_CANCEL=' '};
ZZZZ402123	36000	=BACK{SQL1_NEXT};
ZZZZ402123	36100	=SQL1_END:EXIT{1};
ZZZZ402123	36200	%ZZZZ_SET-COMMENT_END
ZZZZ402125	100	PROGRAM=,&X1,?_MM?_REAL_COST_TABLE
ZZZZ402125	200	TABLE=&X2,?_MM?_OBJECT_TABLE
ZZZZ402125	300	TABLE=&X3,?_MM?_PLACE_TABLE
ZZZZ402125	400	CONTROL=MAX,SCROLL
ZZZZ402125	500	=SET{W_SW=0};
ZZZZ402125	600	COLOR
ZZZZ402125	700	=IF{.Z_CANCEL=}EXIT{};
ZZZZ402125	800	=SET{HATTYUU_BEGIN_DATE@COLOR='L'};
ZZZZ402125	900	=SET{HATTYUU_MATERIAL_COST@COLOR='L'};
ZZZZ402125	1000	=SET{HATTYUU_PROCESS_COST@COLOR='L'};
ZZZZ402125	1100	BEGIN
ZZZZ402125	1200	=SET{W_SW=0};
ZZZZ402125	1300	SET={}.?&.SET&HATTYUU_OBJECT?
ZZZZ402125	1400	=SET{W_SW=0};
ZZZZ402125	1500	*SET={,*}?&X2.SET&HATTYUU_OBJECT_NAME?
ZZZZ402125	1600	*=IF{_DATA=}SET{W_S2.HATTYUU_OBJECT_NAME=};
ZZZZ402125	1700	*=if{_DATA!=}SET{W_S2.HATTYUU_OBJECT_NAME
ZZZZ402125	1800	*= ='AND X2.HATTYUU_OBJECT_NAME LIKE ''?_DATA?%'''};
ZZZZ402125	1900	SET={}.?&.SET&HATTYUU_PLACE?
ZZZZ402125	2000	*SET={,*}?&X3.SET&HATTYUU_PLACE_NAME?
ZZZZ402125	2100	*=IF{_DATA=}SET{W_S3.HATTYUU_PLACE_NAME=};
ZZZZ402125	2200	*=if{_DATA!=}SET{W_S3.HATTYUU_PLACE_NAME
ZZZZ402125	2300	*= ='AND X3.HATTYUU_PLACE_NAME LIKE ''?_DATA?%'''};
ZZZZ402125	2400	SET={}.?&.SET&HATTYUU_BEGIN_DATE?
ZZZZ402125	2500	*SET={}?&.SET&HATTYUU_END_DATE?
ZZZZ402125	2600	*SET={}?&.SET&HATTYUU_MATERIAL_COST?
ZZZZ402125	2700	*SET={}?&.SET&HATTYUU_PROCESS_COST?
ZZZZ402125	2800	MENU_INPUT-COMMENT_BEGIN
ZZZZ402125	2900	START
ZZZZ402125	3000	NAME=MRP_RUN
ZZZZ402125	3100	=PROGRAM{0,?_MM?_ETC_TABLE}{WC.HATTYUU_ETC='WW_MRP_RUN'
ZZZZ402125	3200	=   ,WC.HATTYUU_ETC_KEY=' ',WN.HATTYUU_ETC_DATA='1'}{};
ZZZZ402125	3300	=IF{_PROGRAM_COUNT>0}
ZZZZ402125	3400	=   ERROR{MRP準備処理中しばらくお待ち下さい！};
ZZZZ402125	3500	NAME=
ZZZZ402125	3600	=IF{W_SW!=0}ERROR{作成、削除後は再検索をして下さい};
ZZZZ402125	3700	=IF{_START=1}JUMP{START_1};
ZZZZ402125	3800	=IF{_START=2}JUMP{START_2};
ZZZZ402125	3900	=IF{_START=3}JUMP{START_3};
ZZZZ402125	4000	=EXIT{};
ZZZZ402125	4100	=START_1:
ZZZZ402125	4200	=IF{HATTYUU_BEGIN_DATE=}ERROR{
ZZZZ402125	4300	=?&.TITLE&HATTYUU_BEGIN_DATE? が空白データは削除出来ません};
ZZZZ402125	4400	=EXIT{};
ZZZZ402125	4500	=START_2:
ZZZZ402125	4600	=IF{.Z_CANCEL!=}ERROR{削除データ上では作成出来ません};
ZZZZ402125	4700	=IF{HATTYUU_END_DATE!=}IF{HATTYUU_END_DATE<_TODAY}
ZZZZ402125	4800	=   ERROR{終了日が今日以前の上では作成出来ません};
ZZZZ402125	5000	=EXIT{};
ZZZZ402125	5100	=START_3:
ZZZZ402125	5200	=IF{HATTYUU_BEGIN_DATE<_TODAY}
ZZZZ402125	5300	=   ERROR{開始日が今日以前は修正できません};
ZZZZ402125	5400	MENU_INPUT-COMMENT_END
ZZZZ402125	5500	*****( 物 )*****
ZZZZ402125	5600	INPUT+DATA={KO,&X2}?&.DATA&HATTYUU_OBJECT?
ZZZZ402125	5700	INPUT-DATA={K,&X2}?&.DATA&HATTYUU_OBJECT?
ZZZZ402125	5800	DATA={*O}X2.?&X2.DATA&HATTYUU_OBJECT_NAME?
ZZZZ402125	5900	*****( 場所 )*****
ZZZZ402125	6000	INPUT+DATA={KO,&X3}?&.DATA&HATTYUU_PLACE?
ZZZZ402125	6100	INPUT-DATA={K,&X3}?&.DATA&HATTYUU_PLACE?
ZZZZ402125	6200	DATA={*O}X3.?&X3.DATA&HATTYUU_PLACE_NAME?
ZZZZ402125	6300	*****( 開始日 )*****
ZZZZ402125	6400	DATA={K }?&.DATA&HATTYUU_BEGIN_DATE?
ZZZZ402125	6500	=IF{_DATA<_TODAY}ERROR{日付けが今日以前は設定出来ません};
ZZZZ402125	6600	=IF{HATTYUU_END_DATE!=}IF{_DATA>HATTYUU_END_DATE}
ZZZZ402125	6700	=   ERROR{日付けが終了日降は設定出来ません};
ZZZZ402125	6800	=IF{_DATA<_DATA@OLD}
ZZZZ402125	6900	=   ERROR{日付けが前の開始以前は設定出来ません};
ZZZZ402125	7000	*****( 終了日 )*****
ZZZZ402125	7100	DATA={O }?&.DATA&HATTYUU_END_DATE?
ZZZZ402125	7200	*****( 材料単価 )*****
ZZZZ402125	7300	DATA={  }?&.DATA&HATTYUU_MATERIAL_COST?
ZZZZ402125	7400	*****( 加工単価 )*****
ZZZZ402125	7500	DATA={  }?&.DATA&HATTYUU_PROCESS_COST?
ZZZZ402125	7600	DATA={N }.Z_CANCEL{17}
ZZZZ402125	7700	STOP_BEFORE
ZZZZ402125	7800	MENU_INPUT+COPY=MRP_RUN
ZZZZ402125	7900	=IF{_START=1}JUMP{START_1};
ZZZZ402125	8000	=IF{_START=2}JUMP{START_2};
ZZZZ402125	8100	=EXIT{};
ZZZZ402125	8200	=START_1:SQL{UPDATE ?_TABLE? SET
ZZZZ402125	8300	=   ?_VRE&HATTYUU_END_DATE?
ZZZZ402125	8400	=   WHERE ?_VRE&HATTYUU_OBJECT?
ZZZZ402125	8500	=   AND   ?_VRE&HATTYUU_PLACE?
ZZZZ402125	8600	=   AND   Z_CANCEL=' '
ZZZZ402125	8700	=   AND   HATTYUU_END_DATE?_VCE&HATTYUU_BEGIN_DATE?};
ZZZZ402125	8800	=JUMP{CHK};
ZZZZ402125	8900	=START_2:SQL{UPDATE ?_TABLE? SET
ZZZZ402125	9000	=   HATTYUU_END_DATE='?HATTYUU_BEGIN_DATE?'
ZZZZ402125	9100	=   WHERE ?_VRE&HATTYUU_OBJECT?
ZZZZ402125	9200	=   AND   ?_VRE&HATTYUU_PLACE?
ZZZZ402125	9300	=   AND   Z_CANCEL=' '
ZZZZ402125	9400	=   AND   ?_VRE&HATTYUU_END_DATE?};
ZZZZ402125	9500	=CHK:
ZZZZ402125	9600	=IF{_SQL_COUNT_123!=1}ERROR{関連データ更新異常発生};
ZZZZ402125	9700	=SET{W_SW=1}; 再検索必要指定*
ZZZZ402125	9800	MINUS=%Z_CANCEL_SELECT
ZZZZ402125	9900	COPY=@ZZZZZZ_SQL
ZZZZ402135	100	PROGRAM=,&X1,?_MM?_CALENDAR_TABLE
ZZZZ402135	200	CONTROL=1,2,SCROLL
ZZZZ402135	300	TABLE=&X2,?_MM?_PLACE_TABLE
ZZZZ402135	400	TABLE=&X3,?_MM?_ETC_TABLE
ZZZZ402135	500	TABLE=&X4,?_MM?_ETC_TABLE
ZZZZ402135	600	BEGIN
ZZZZ402135	700	SET={,X2}.?&.SET&HATTYUU_PLACE?
ZZZZ402135	800	*SET={}SX2.?&X2.SET&HATTYUU_PLACE_NAME?
ZZZZ402135	900	SET={}.?&.SET&HATTYUU_DATE?
ZZZZ402135	1000	*SET={,X3}?&.SET&HATTYUU_HOLIDAY?
ZZZZ402135	1100	*SET={}SX3.?&X3.SET&HATTYUU_ETC_DATA?
ZZZZ402135	1200	*SET={,X4}?&.SET&HATTYUU_HOLIDAY_DEFAULT?
ZZZZ402135	1300	*SET={}SX4.?&X4.SET&HATTYUU_ETC_DATA?
ZZZZ402135	1400	MENU_INPUT-COMMENT_BEGIN
ZZZZ402135	1500	START
ZZZZ402135	1600	NAME=MRP_RUN
ZZZZ402135	1700	=PROGRAM{0,?_MM?_ETC_TABLE}{WC.HATTYUU_ETC='WW_MRP_RUN'
ZZZZ402135	1800	=   ,WC.HATTYUU_ETC_KEY=' ',WN.HATTYUU_ETC_DATA='1'}{};
ZZZZ402135	1900	=IF{_PROGRAM_COUNT>0}
ZZZZ402135	2000	=   ERROR{MRP準備処理中しばらくお待ち下さい！};
ZZZZ402135	2100	NAME=
ZZZZ402135	2200	MENU_INPUT-COMMENT_END
ZZZZ402135	2300	*****( 場所 )*****
ZZZZ402135	2400	DATA={K,&X2}?&.DATA&HATTYUU_PLACE?
ZZZZ402135	2500	DATA={*O}X2.?&X2.DATA&HATTYUU_PLACE_NAME?
ZZZZ402135	2600	*****( 年月日 )*****
ZZZZ402135	2700	DATA={K}?&.DATA&HATTYUU_DATE?
ZZZZ402135	2800	*****( 休日 )*****
ZZZZ402135	2900	DATA={,&X3}?&.DATA&HATTYUU_HOLIDAY?
ZZZZ402135	3000	=IF{_DATA=,_START!=3,_DATA@OLD!=}JUMP{SKIP};
ZZZZ402135	3100	*SQL_SET{}{SELECT HATTYUU_OBJECT
ZZZZ402135	3200	*  FROM ?_MM?_PRODUCTION_TABLE
ZZZZ402135	3300	*  WHERE ?_VRE&HATTYUU_DATE?
ZZZZ402135	3400	*   AND HATTYUU_QTY>0
ZZZZ402135	3500	*   AND HATTYUU_PLACE IN(SELECT HATTYUU_PLACE
ZZZZ402135	3600	*   FROM ?_MM?_PLACE_TABLE WHERE Z_CANCEL=' '
ZZZZ402135	3900	*   ('?HATTYUU_PLACE?'=HATTYUU_PLACE OR
ZZZZ402135	4000	*    '?HATTYUU_PLACE?'=HATTYUU_CALENDAR_PLACE)
ZZZZ402135	4100	*   AND Z_CANCEL=' ')
ZZZZ402135	4200	*   AND Z_CANCEL=' '};
ZZZZ402135	4300	*IF{_SQL_SET_COUNT>0}ERROR{PRODUCTION_TABLE FOUND};
ZZZZ402135	4302	=PROGRAM{0,?_MM?_PRODUCTION_TABLE}{HATTYUU_DATE}
ZZZZ402135	4303	=  {HATTYUU_QTY>0 AND HATTYUU_PLACE IN(SELECT HATTYUU_PLACE
ZZZZ402135	4305	=   FROM ?_MM?_PLACE_TABLE WHERE  Z_CANCEL=' ' AND
ZZZZ402135	4306	=   '?HATTYUU_PLACE?'
ZZZZ402135	4307	=    IN(HATTYUU_PLACE,HATTYUU_CALENDAR_PLACE)};
ZZZZ402135	4308	=IF{_PROGRAM_COUNT>0}ERROR{PRODUCTION_TABLE FOUND};
ZZZZ402135	4310	=SKIP:
ZZZZ402135	4500	DATA={*O}X3.?&X3.DATA&HATTYUU_ETC_DATA?
ZZZZ402135	4600	*****( 休日初期値 )*****
ZZZZ402135	4700	DATA={*O,&X4}?&.DATA&HATTYUU_HOLIDAY_DEFAULT?
ZZZZ402135	4800	DATA={*O}X4.?&X4.DATA&HATTYUU_ETC_DATA?
ZZZZ402135	4900	DATA={*O}X_WEEK{1}
ZZZZ402135	5410	SELECT=?_WEEK_CHAR(HATTYUU_DATE)?
ZZZZ402135	5500	JA+TITLE=曜日
ZZZZ402135	5600	STOP_BEFORE
ZZZZ402135	5700	MENU_INPUT+COPY=MRP_RUN
ZZZZ402135	5800	PLUS=%Z_CANCEL_WHERE
ZZZZ402135	5900	COPY=@ZZZZZZ_SQL
ZZZZ402138	100	PROGRAM=,&X1,?_MM?_PLACE_TABLE
ZZZZ402138	200	TABLE=&X2,?_MM?_ETC_TABLE
ZZZZ402138	300	TABLE=&X3,?_MM?_ETC_TABLE
ZZZZ402138	400	TABLE=&X4,?_MM?_ETC_TABLE
ZZZZ402138	500	TABLE=&X5,?_MM?_ETC_TABLE
ZZZZ402138	600	TABLE=&X6,?_MM?_ETC_TABLE
ZZZZ402138	700	TABLE=&X7,?_MM?_ETC_TABLE
ZZZZ402138	800	TABLE=&X8,?_MM?_ETC_TABLE
ZZZZ402138	900	TABLE=&X9,?_MM?_ETC_TABLE
ZZZZ402138	1000	TABLE=&X10,?_MM?_ETC_TABLE
ZZZZ402138	1100	TABLE=&X11,?_MM?_ETC_TABLE
ZZZZ402138	1200	TABLE=&X12,?_MM?_ETC_TABLE
ZZZZ402138	1300	TABLE=&X13,?_MM?_ETC_TABLE
ZZZZ402138	1400	TABLE=&X14,?_MM?_ETC_TABLE
ZZZZ402138	1500	TABLE=&X15,?_MM?_ETC_TABLE
ZZZZ402138	1600	TABLE=&X16,?_MM?_ETC_TABLE
ZZZZ402138	1700	TABLE=&X17,?_MM?_ETC_TABLE
ZZZZ402138	1800	TABLE=&X18,?_MM?_ETC_TABLE
ZZZZ402138	1900	TABLE=&X19,?_MM?_ETC_TABLE
ZZZZ402138	2000	TABLE=&X20,?_MM?_ETC_TABLE
ZZZZ402138	2100	TABLE=&X21,?_MM?_ETC_TABLE
ZZZZ402138	2200	START
ZZZZ402138	2300	START
ZZZZ402138	2400	SET={}.?&.SET&HATTYUU_PLACE?
ZZZZ402138	2500	*SET={,X2}?&.SET&HATTYUU_PLACE_MARK?
ZZZZ402138	2600	*SET={}SX2.?&X2.SET&HATTYUU_ETC_DATA?
ZZZZ402138	2700	*SET={,X3}?&.SET&HATTYUU_CALENDAR_MARK?
ZZZZ402138	2800	*SET={}SX3.?&X3.SET&HATTYUU_ETC_DATA?
ZZZZ402138	2900	*SET={}?&.SET&HATTYUU_CALENDAR_PLACE?
ZZZZ402138	3000	*SET={}?&.SET&HATTYUU_HOUR?
ZZZZ402138	3100	*SET={,X4}?&.SET&HATTYUU_WEEK1_MARK?
ZZZZ402138	3200	*SET={}SX4.?&X4.SET&HATTYUU_ETC_DATA?
ZZZZ402138	3300	*SET={,X5}?&.SET&HATTYUU_WEEK2_MARK?
ZZZZ402138	3400	*SET={}SX5.?&X5.SET&HATTYUU_ETC_DATA?
ZZZZ402138	3500	*SET={,X6}?&.SET&HATTYUU_WEEK3_MARK?
ZZZZ402138	3600	*SET={}SX6.?&X6.SET&HATTYUU_ETC_DATA?
ZZZZ402138	3700	*SET={,X7}?&.SET&HATTYUU_WEEK4_MARK?
ZZZZ402138	3800	*SET={}SX7.?&X7.SET&HATTYUU_ETC_DATA?
ZZZZ402138	3900	*SET={,X8}?&.SET&HATTYUU_WEEK5_MARK?
ZZZZ402138	4000	*SET={}SX8.?&X8.SET&HATTYUU_ETC_DATA?
ZZZZ402138	4100	*SET={,X9}?&.SET&HATTYUU_WEEK6_MARK?
ZZZZ402138	4200	*SET={}SX9.?&X9.SET&HATTYUU_ETC_DATA?
ZZZZ402138	4300	*SET={,X10}?&.SET&HATTYUU_WEEK7_MARK?
ZZZZ402138	4400	*SET={}SX10.?&X10.SET&HATTYUU_ETC_DATA?
ZZZZ402138	4500	*SET={,X11}?&.SET&HATTYUU_ONEROUS_MARK?
ZZZZ402138	4600	*SET={}SX11.?&X11.SET&HATTYUU_ETC_DATA?
ZZZZ402138	4700	*SET={,X12}?&.SET&HATTYUU_OBJECT_MARK_A?
ZZZZ402138	4800	*SET={}SX12.?&X12.SET&HATTYUU_ETC_DATA?
ZZZZ402138	4900	*SET={,X13}?&.SET&HATTYUU_OBJECT_MARK_B?
ZZZZ402138	5000	*SET={}SX13.?&X13.SET&HATTYUU_ETC_DATA?
ZZZZ402138	5100	*SET={,X14}?&.SET&HATTYUU_OBJECT_MARK_E?
ZZZZ402138	5200	*SET={}SX14.?&X14.SET&HATTYUU_ETC_DATA?
ZZZZ402138	5300	*SET={,X15}?&.SET&HATTYUU_OBJECT_MARK_F?
ZZZZ402138	5400	*SET={}SX15.?&X15.SET&HATTYUU_ETC_DATA?
ZZZZ402138	5500	*SET={,X16}?&.SET&HATTYUU_OBJECT_MARK_M?
ZZZZ402138	5600	*SET={}SX16.?&X16.SET&HATTYUU_ETC_DATA?
ZZZZ402138	5700	*SET={,X17}?&.SET&HATTYUU_OBJECT_MARK_P?
ZZZZ402138	5800	*SET={}SX17.?&X17.SET&HATTYUU_ETC_DATA?
ZZZZ402138	5900	*SET={,X18}?&.SET&HATTYUU_OBJECT_MARK_S?
ZZZZ402138	6000	*SET={}SX18.?&X18.SET&HATTYUU_ETC_DATA?
ZZZZ402138	6100	*SET={,X19}?&.SET&HATTYUU_OBJECT_MARK_W?
ZZZZ402138	6200	*SET={}SX19.?&X19.SET&HATTYUU_ETC_DATA?
ZZZZ402138	6300	*SET={,X20}?&.SET&HATTYUU_OBJECT_MARK_Z?
ZZZZ402138	6400	*SET={}SX20.?&X20.SET&HATTYUU_ETC_DATA?
ZZZZ402138	6500	*SET={,X21}?&.SET&HATTYUU_DISCONTINUE_MARK?
ZZZZ402138	6600	*SET={}SX21.?&X21.SET&HATTYUU_ETC_DATA?
ZZZZ402138	6700	*SET={}?&.SET&HATTYUU_PLACE_NAME?
ZZZZ402138	6800	MENU_INPUT-COMMENT_BEGIN
ZZZZ402138	6900	START
ZZZZ402138	7000	NAME=MRP_RUN
ZZZZ402138	7100	=IF{_START=2}JUMP{SKIP_MRP_RUN};
ZZZZ402138	7200	=PROGRAM{0,?_MM?_ETC_TABLE}{WC.HATTYUU_ETC='WW_MRP_RUN'
ZZZZ402138	7300	=   ,WC.HATTYUU_ETC_KEY=' ',WN.HATTYUU_ETC_DATA='1'}{};
ZZZZ402138	7400	=IF{_PROGRAM_COUNT>0}
ZZZZ402138	7500	=   ERROR{MRP準備処理中しばらくお待ち下さい！};
ZZZZ402138	7700	=SKIP_MRP_RUN:
ZZZZ402138	7800	NAME=
ZZZZ402138	7900	=SQL_SET{W0.EQ_CNT}{SELECT COUNT(*) FROM ?_TABLE? WHERE
ZZZZ402138	8000	=  HATTYUU_PLACE_MARK='=' AND Z_CANCEL=' '};
ZZZZ402138	8100	=SQL_SET{W0.NOT_EQ_CNT}{SELECT COUNT(*) FROM ?_TABLE? WHERE
ZZZZ402138	8200	=  HATTYUU_PLACE_MARK<>'=' AND Z_CANCEL=' '};
ZZZZ402138	8300	=IF{_START=1}IF{HATTYUU_PLACE_MARK='='}
ZZZZ402138	8400	=   IF{W0.NOT_EQ_CNT>0}
ZZZZ402138	8500	=   ERROR{NOT CANCEL ?&.TITLE&HATTYUU_PLACE_MARK?='='};
ZZZZ402138	8600	=IF{_START!=1}EXIT{};
ZZZZ402138	8700	=SPLIT_CHAR{WC.T}{'PROCESS,PRODUCTION,PRODUCTION_W'
ZZZZ402138	8800	=   ,',REAL_COST,SLIP_DO,SLIP_PLAN,SLIP_PLAN_W'
ZZZZ402138	8820	=   ,',STOCK_PLACE,STOCK_PLACE_W'}{','};
ZZZZ402138	8900	REPEAT=9
ZZZZ402138	9000	=PROGRAM{0,?_MM?_?WC.T##?_TABLE}{HATTYUU_PLACE}{};
ZZZZ402138	9100	=IF{_PROGRAM_COUNT>0}ERROR{USE ?WC.T##?_TABLE};
ZZZZ402138	9200	REPEAT=
ZZZZ402138	9300	MENU_INPUT-COMMENT_END
ZZZZ402138	9400	*****( 場所 )*****
ZZZZ402138	9500	DATA={K}?&.DATA&HATTYUU_PLACE?
ZZZZ402138	9600	*****( 場所記号 )*****
ZZZZ402138	9700	DATA={,&X2}?&.DATA&HATTYUU_PLACE_MARK?
ZZZZ402138	9800	=IF{_START=2}JUMP{START_2};
ZZZZ402138	9900	=IF{_DATA@OLD='='}IF{_DATA@OLD<>'='}JUMP{ERR};
ZZZZ402138	10000	=IF{_DATA<>'='}IF{_DATA@OLD='='}JUMP{ERR};
ZZZZ402138	10100	=JUMP{SKIP};
ZZZZ402138	10200	=ERR:ERROR{NOT CHANGE};
ZZZZ402138	10300	=START_2:IF{W0.EQ_CNT=0}IF{HATTYUU_PLACE_MARK<>'='}
ZZZZ402138	10400	=    ERROR{'=' ONLY};
ZZZZ402138	10500	=IF{W0.EQ_CNT>0}IF{HATTYUU_PLACE_MARK='='}
ZZZZ402138	10600	=    ERROR{'=' ERROR};
ZZZZ402138	10700	=SKIP:SET{X2.HATTYUU_ETC_DATA=_LIST_BOX_COMMENT};
ZZZZ402138	10800	=IF{_DATA='='}
ZZZZ402138	10900	=   SET{HATTYUU_CALENDAR_MARK=,HATTYUU_CALENDAR_PLACE=}
ZZZZ402138	11000	=   EXIT{HATTYUU_HOUR};
ZZZZ402138	11100	DATA={*O}X2.?&X2.DATA&HATTYUU_ETC_DATA?
ZZZZ402138	11200	*****( 暦記号 )*****
ZZZZ402138	11300	DATA={,&X3}?&.DATA&HATTYUU_CALENDAR_MARK?
ZZZZ402138	11400	=IF{_START=2,_DATA@OLD!=' ',_DATA@OLD=_DATA}JUMP{SKIP};
ZZZZ402138	11500	=SQL_SET{W_NAME}{SELECT HATTYUU_PLACE_NAME
ZZZZ402138	11600	=   FROM ?_TABLE?
ZZZZ402138	11700	=   WHERE HATTYUU_CALENDAR_PLACE='?HATTYUU_PLACE?'
ZZZZ402138	11800	=   AND Z_CANCEL=' '};
ZZZZ402138	11900	=IF{_SQL_SET_COUNT>0}
ZZZZ402138	12000	=   ERROR{?&.TITLE&HATTYUU_CALENDAR_PLACE? FOUND};
ZZZZ402138	12100	***=SET{X3.HATTYUU_ETC_DATA=W_NAME};
ZZZZ402138	12200	=SKIP:IF{_DATA=,='='}SET{HATTYUU_CALENDAR_PLACE=};
ZZZZ402138	12300	=IF{_DATA!='*'}EXIT{HATTYUU_HOUR};
ZZZZ402138	12400	=IF{_DATA!='='}EXIT{};
ZZZZ402138	12500	DATA={*O}X3.?&X3.DATA&HATTYUU_ETC_DATA?
ZZZZ402138	12600	*****( 暦場所 )*****
ZZZZ402138	12700	DATA={}?&.DATA&HATTYUU_CALENDAR_PLACE?
ZZZZ402138	12800	CHECK2=SELECT HATTYUU_PLACE,HATTYUU_PLACE_NAME FROM
ZZZZ402138	12810	CHECK2=  FROM ?_TABLE?
ZZZZ402138	12900	CHECK2=WHERE HATTYUU_CALENDAR_MARK=' '
ZZZZ402138	13000	CHECK2=AND HATTYUU_PLACE_MARK<>'='
ZZZZ402138	13100	CHECK2=AND Z_CANCEL=' ' ORDER BY 1
ZZZZ402138	13200	*****( 時間 )*****
ZZZZ402138	13300	DATA={}?&.DATA&HATTYUU_HOUR?
ZZZZ402138	13400	*****( 日納入記号 )*****
ZZZZ402138	13500	DATA={,&X4}?&.DATA&HATTYUU_WEEK1_MARK?
ZZZZ402138	13600	DATA={*O}X4.?&X4.DATA&HATTYUU_ETC_DATA?
ZZZZ402138	13700	*****( 月納入記号 )*****
ZZZZ402138	13800	DATA={,&X5}?&.DATA&HATTYUU_WEEK2_MARK?
ZZZZ402138	13900	DATA={*O}X5.?&X5.DATA&HATTYUU_ETC_DATA?
ZZZZ402138	14000	*****( 火納入記号 )*****
ZZZZ402138	14100	DATA={,&X6}?&.DATA&HATTYUU_WEEK3_MARK?
ZZZZ402138	14200	DATA={*O}X6.?&X6.DATA&HATTYUU_ETC_DATA?
ZZZZ402138	14300	*****( 水納入記号 )*****
ZZZZ402138	14400	DATA={,&X7}?&.DATA&HATTYUU_WEEK4_MARK?
ZZZZ402138	14500	DATA={*O}X7.?&X7.DATA&HATTYUU_ETC_DATA?
ZZZZ402138	14600	*****( 木納入記号 )*****
ZZZZ402138	14700	DATA={,&X8}?&.DATA&HATTYUU_WEEK5_MARK?
ZZZZ402138	14800	DATA={*O}X8.?&X8.DATA&HATTYUU_ETC_DATA?
ZZZZ402138	14900	*****( 金納入記号 )*****
ZZZZ402138	15000	DATA={,&X9}?&.DATA&HATTYUU_WEEK6_MARK?
ZZZZ402138	15100	DATA={*O}X9.?&X9.DATA&HATTYUU_ETC_DATA?
ZZZZ402138	15200	*****( 土納入記号 )*****
ZZZZ402138	15300	DATA={,&X10}?&.DATA&HATTYUU_WEEK7_MARK?
ZZZZ402138	15400	REPEAT=6,2
ZZZZ402138	15500	=IF{HATTYUU_WEEK##_MARK='*'}
ZZZZ402138	15600	REPEAT=
ZZZZ402138	15700	=  ERROR{WEEK_MARK MON-SAT ALL '*'};
ZZZZ402138	15800	DATA={*O}X10.?&X10.DATA&HATTYUU_ETC_DATA?
ZZZZ402138	15900	*****( 有償記号 )*****
ZZZZ402138	16000	DATA={,&X11}?&.DATA&HATTYUU_ONEROUS_MARK?
ZZZZ402138	16100	DATA={*O}X11.?&X11.DATA&HATTYUU_ETC_DATA?
ZZZZ402138	16200	*****( 中間品 )*****
ZZZZ402138	16300	DATA={,&X12}?&.DATA&HATTYUU_OBJECT_MARK_A?
ZZZZ402138	16400	DATA={*O}X12.?&X12.DATA&HATTYUU_ETC_DATA?
ZZZZ402138	16500	*****( 購入品 )*****
ZZZZ402138	16600	DATA={,&X13}?&.DATA&HATTYUU_OBJECT_MARK_B?
ZZZZ402138	16700	DATA={*O}X13.?&X13.DATA&HATTYUU_ETC_DATA?
ZZZZ402138	16800	*****( 単体品 )*****
ZZZZ402138	16900	DATA={,&X14}?&.DATA&HATTYUU_OBJECT_MARK_E?
ZZZZ402138	17000	DATA={*O}X14.?&X14.DATA&HATTYUU_ETC_DATA?
ZZZZ402138	17100	*****( 完成品 )*****
ZZZZ402138	17200	DATA={,&X15}?&.DATA&HATTYUU_OBJECT_MARK_F?
ZZZZ402138	17300	DATA={*O}X15.?&X15.DATA&HATTYUU_ETC_DATA?
ZZZZ402138	17400	*****( 原材料 )*****
ZZZZ402138	17500	DATA={,&X16}?&.DATA&HATTYUU_OBJECT_MARK_M?
ZZZZ402138	17600	DATA={*O}X16.?&X16.DATA&HATTYUU_ETC_DATA?
ZZZZ402138	17700	*****( 梱包用品 )*****
ZZZZ402138	17800	DATA={,&X17}?&.DATA&HATTYUU_OBJECT_MARK_P?
ZZZZ402138	17900	DATA={*O}X17.?&X17.DATA&HATTYUU_ETC_DATA?
ZZZZ402138	18000	*****( 補助材料 )*****
ZZZZ402138	18100	DATA={,&X18}?&.DATA&HATTYUU_OBJECT_MARK_S?
ZZZZ402138	18200	DATA={*O}X18.?&X18.DATA&HATTYUU_ETC_DATA?
ZZZZ402138	18300	*****( 貯蔵品 )*****
ZZZZ402138	18400	DATA={,&X19}?&.DATA&HATTYUU_OBJECT_MARK_W?
ZZZZ402138	18500	DATA={*O}X19.?&X19.DATA&HATTYUU_ETC_DATA?
ZZZZ402138	18600	*****( その他 )*****
ZZZZ402138	18700	DATA={,&X20}?&.DATA&HATTYUU_OBJECT_MARK_Z?
ZZZZ402138	18800	DATA={*O}X20.?&X20.DATA&HATTYUU_ETC_DATA?
ZZZZ402138	18900	*****( 廃止記号 )*****
ZZZZ402138	19000	DATA={,&X21}?&.DATA&HATTYUU_DISCONTINUE_MARK?
ZZZZ402138	19100	DATA={*O}X21.?&X21.DATA&HATTYUU_ETC_DATA?
ZZZZ402138	19200	*****( 場所名 )*****
ZZZZ402138	19300	DATA={}?&.DATA&HATTYUU_PLACE_NAME?
ZZZZ402138	19400	STOP_BEFORE
ZZZZ402138	19500	MENU_INPUT+COPY=MRP_RUN
ZZZZ402138	19600	COPY=@ZZZZZZ_SQL
ZZZZ402139	100	PROGRAM=,&X1,?_MM?_STORAGE_TABLE
ZZZZ402139	110	START
ZZZZ402139	120	=IF{_START!=1}EXIT{};
ZZZZ402139	130	=SPLIT_CHAR{WC.T}{'PROCESS,SLIP_DO,SLIP_PLAN,SLIP_PLAN_W'
ZZZZ402139	150	=   ,',STOCK_STORAGE,STOCK_STORAGE_W'}{','};
ZZZZ402139	160	REPEAT=6
ZZZZ402139	170	=PROGRAM{0,?_MM?_?WC.T##?_TABLE}{HATTYUU_STORAGE}{};
ZZZZ402139	180	=IF{_PROGRAM_COUNT>0}ERROR{USE ?WC.T##?_TABLE};
ZZZZ402139	190	REPEAT=
ZZZZ402139	200	SET={}.?&.SET&HATTYUU_STORAGE?
ZZZZ402139	300	*SET={}?&.SET&HATTYUU_STORAGE_NAME?
ZZZZ402139	400	*****( 倉庫 )*****
ZZZZ402139	500	DATA={K}?&.DATA&HATTYUU_STORAGE?
ZZZZ402139	600	*****( 倉庫名 )*****
ZZZZ402139	700	DATA={}?&.DATA&HATTYUU_STORAGE_NAME?
ZZZZ402139	800	COPY=@ZZZZZZ_SQL
ZZZZ402140	100	PROGRAM=,&X1,?_MM?_ETC_ID_TABLE
ZZZZ402140	200	SET={}.?&.SET&HATTYUU_ETC?
ZZZZ402140	300	CONTROL=0
ZZZZ402140	400	START
ZZZZ402140	500	=IF{_START!=1}EXIT{};
ZZZZ402140	600	=PROGRAM{0,?_MM?_ETC_TABLE}{HATTYUU_ETC}{};
ZZZZ402140	700	=IF{_PROGRAM_COUNT>0}
ZZZZ402140	800	=   ERROR{ETC_TABLE にデータが存在します};
ZZZZ402140	900	DATA={K }?&.DATA&HATTYUU_ETC?
ZZZZ402140	1000	DATA={  }?&.DATA&HATTYUU_ETC_NAME?
ZZZZ402140	1100	COPY=@ZZZZZZ_SQL
ZZZZ402140	1200	PROGRAM=,&X1,?_MM?_ETC_TABLE
ZZZZ402140	1300	BEGIN
ZZZZ402140	1400	SET={KO,}.=?$&.DATA&HATTYUU_ETC?
ZZZZ402140	1500	SET={O,*}.=?$&.DATA&HATTYUU_ETC_NAME?
ZZZZ402140	1600	DATA={K }?&.DATA&HATTYUU_ETC_KEY?
ZZZZ402140	1700	DATA={  }?&.DATA&HATTYUU_ETC_DATA?
ZZZZ402140	1800	DATA={*O}Z_CHANGE{8,,D}更新日
ZZZZ402140	1900	COPY=@ZZZZZZ_SQL
ZZZZ404021	100	PROGRAM=NOT
ZZZZ404021	200	DICTIONARY=SYSTEM_PERMISSION,SYSTEM_PART
ZZZZ404021	300	DICTIONARY=SYSTEM_PACKAGE,SYSTEM_LANG
ZZZZ404021	400	BEGIN
ZZZZ404021	500	WORK=?&DATA&SYSTEM_PERMISSION?
ZZZZ404021	600	WORK=?&DATA&SYSTEM_PART?
ZZZZ404021	700	WORK=?&DATA&SYSTEM_PACKAGE?
ZZZZ404021	800	WORK=?&DATA&SYSTEM_LANG?
ZZZZ404021	900	=SET{SYSTEM_PERMISSION='ZZZY'};
ZZZZ404021	1000	=SET{SYSTEM_PART='ZY'};
ZZZZ404021	1100	=SET{SYSTEM_PACKAGE='HATTYUU'};
ZZZZ404021	1200	=SET{SYSTEM_LANG=_LANG_SYSTEM};
ZZZZ404021	1300	PROGRAM=NOT
ZZZZ404021	1400	END
ZZZZ404021	1500	=EXIT{0};
ZZZZ404021	1600	DICTIONARY=SYSTEM_PERMISSION,SYSTEM_PART
ZZZZ404021	1700	DICTIONARY=SYSTEM_PACKAGE,SYSTEM_LANG
ZZZZ404021	1800	BEGIN
ZZZZ404021	1900	FORM=
ZZZZ404021	2000	JA+FORM= サンプル発注システム用基本項目の属性を作成します。
ZZZZ404021	2100	JA+FORM=
ZZZZ404021	2200	JA+FORM=注意：YES後全データの設定をしてください。
ZZZZ404021	2300	JA+FORM=注意：ESCキーでは終了出来ません。(ENDで終了）
ZZZZ404021	2400	JA+FORM=◎次は、[サンプル発注システム 構築 2/3]を実行して下
ZZZZ404021	2500	JA+FORM2=さい。
ZZZZ404021	2600	FORM=  CHECK @@
ZZZZ404021	2700	DATA={N}DUMMY{1}
ZZZZ404021	2800	=EXIT3{CHECK};
ZZZZ404021	2900	DATA=CHECK{2}
ZZZZ404021	3000	=IF_NOT{_PERMISSION='ZZZZ',=SYSTEM_PERMISSION}
ZZZZ404021	3100	=   ERROR{_PERMISSION!=('?SYSTEM_PERMISSION?','ZZZZ')};
ZZZZ404021	3200	FORM=
ZZZZ404021	3300	FORM=   PERMISSION= @
ZZZZ404021	3400	FORM=       SYSTEM_PART= @
ZZZZ404021	3500	FORM=      PACKAGE= @
ZZZZ404021	3600	FORM=         SYSTEM_LANG= @
ZZZZ404021	3700	DATA={O}$?&DATA&SYSTEM_PERMISSION?
ZZZZ404021	3800	DATA={O}$?&DATA&SYSTEM_PART?
ZZZZ404021	3900	DATA={O}$?&DATA&SYSTEM_PACKAGE?
ZZZZ404021	4000	DATA={O}$?&DATA&SYSTEM_LANG?
ZZZZ404021	4100	FORM=
ZZZZ404021	4200	FORM=               @@@@ {YES,END}
ZZZZ404021	4300	FORM=
ZZZZ404021	4400	DATA=YES{}{YES,END}
ZZZZ404021	4500	=IF{_DATA='YES'}JUMP{YES};
ZZZZ404021	4600	=SQL_SET{W0.CNT}{SELECT COUNT(*) FROM
ZZZZ404021	4700	=   ?_MM?_PACKAGE_DEFAULT_TABLE WHERE
ZZZZ404021	4800	=   ?_VRE&SYSTEM_PERMISSION?
ZZZZ404021	4900	=   AND ?_VRE&SYSTEM_PACKAGE? AND Z_CANCEL=' '
ZZZZ404021	5000	=   AND SYSTEM_DEFAULT_LENGTH1=0};
ZZZZ404021	5100	=IF{W0.CNT!=0}ERROR{SYSTEM_DEFAULT_LENGTH1=0 FOUND};
ZZZZ404021	5200	=EXIT{_END};
ZZZZ404021	5300	=YES:
ZZZZ404021	5400	=SET{_ESC=0};
ZZZZ404021	5500	=SET{W0.SYSTEM_DEFAULT_LENGTH2=0};
ZZZZ404021	5600	*SET{W0.SYSTEM_LENGTH1=0};
ZZZZ404021	5700	=SET{WN.1.SYSTEM_NAME='OBJECT',WN.1.SYSTEM_TITLE='物'};
ZZZZ404021	5800	=SET{WN.1.SYSTEM_DEFAULT_TYPE='CHAR',WN.1.SYSTEM_TYPE1=};
ZZZZ404021	5900	=SET{WN.2.SYSTEM_NAME='PLACE',WN.2.SYSTEM_TITLE='場所'};
ZZZZ404021	6000	=SET{WN.2.SYSTEM_DEFAULT_TYPE='CHAR',WN.2.SYSTEM_TYPE1=};
ZZZZ404021	6100	=SET{WN.3.SYSTEM_NAME='STORAGE',WN.3.SYSTEM_TITLE='倉庫'};
ZZZZ404021	6200	=SET{WN.3.SYSTEM_DEFAULT_TYPE='CHAR',WN.3.SYSTEM_TYPE1=};
ZZZZ404021	6300	=SET{WN.4.SYSTEM_NAME='COST',WN.4.SYSTEM_TITLE='単価'};
ZZZZ404021	6400	=SET{WN.4.SYSTEM_DEFAULT_TYPE='DECIMAL'
ZZZZ404021	6500	=   ,WN.4.SYSTEM_TYPE1='+'};
ZZZZ404021	6600	=SET{WN.5.SYSTEM_NAME='QTY',WN.5.SYSTEM_TITLE='数量'};
ZZZZ404021	6700	=SET{WN.5.SYSTEM_DEFAULT_TYPE='DECIMAL'
ZZZZ404021	6800	=   ,WN.5.SYSTEM_TYPE1='+'};
ZZZZ404021	6900	=SET{WN.6.SYSTEM_NAME='QTY_SUM'
ZZZZ404021	7000	=   ,WN.6.SYSTEM_TITLE='集計数量'};
ZZZZ404021	7100	=SET{WN.6.SYSTEM_DEFAULT_TYPE='DECIMAL'
ZZZZ404021	7200	=   ,WN.6.SYSTEM_TYPE1='-'};
ZZZZ404021	7300	=SET{WN.7.SYSTEM_NAME='NUMERATOR'
ZZZZ404021	7400	=   ,WN.7.SYSTEM_TITLE='構成分子数'};
ZZZZ404021	7500	=SET{WN.7.SYSTEM_DEFAULT_TYPE='INT',WN.7.SYSTEM_TYPE1='+'};
ZZZZ404021	7600	=SET{WN.8.SYSTEM_NAME='DENOMINATOR'
ZZZZ404021	7700	=   ,WN.8.SYSTEM_TITLE='構成分母数'};
ZZZZ404021	7800	=SET{WN.8.SYSTEM_DEFAULT_TYPE='INT',WN.8.SYSTEM_TYPE1='+'};
ZZZZ404021	7900	=SET{WN.9.SYSTEM_NAME='PERSON'
ZZZZ404021	8000	=   ,WN.9.SYSTEM_TITLE='担当者'};
ZZZZ404021	8100	=SET{WN.9.SYSTEM_DEFAULT_TYPE='CHAR',WN.9.SYSTEM_TYPE1=};
ZZZZ404021	8200	REPEAT=9
ZZZZ404021	8300	=SET{WN.##.SYSTEM_NAME=SYSTEM_PACKAGE
ZZZZ404021	8310	=    +'_'+WN.##.SYSTEM_NAME};
ZZZZ404021	8400	=SET{W0.SYSTEM_DEFAULT_LENGTH1=0,W0.SYSTEM_LENGTH1=0};
ZZZZ404021	8500	=IF{WN.##.SYSTEM_DEFAULT_TYPE='INT'}
ZZZZ404021	8600	=  SET{W0.SYSTEM_DEFAULT_LENGTH1=9,W0.SYSTEM_LENGTH1=9};
ZZZZ404021	8700	=                               SET{W0.SYSTEM_LENGTH2=0};
ZZZZ404021	8800	=IF{WN.##.SYSTEM_DEFAULT_TYPE='CHAR'}
ZZZZ404021	8900	=   SET{W0.SYSTEM_LENGTH2=1};
ZZZZ404021	9000	=PROGRAM{2N,?_MM?_PACKAGE_DEFAULT_TABLE
ZZZZ404021	9002	=  ,WN.##.SYSTEM_TITLE,WN.##.SYSTEM_DEFAULT_TYPE
ZZZZ404021	9400	=  ,W0.SYSTEM_DEFAULT_LENGTH1,W0.SYSTEM_DEFAULT_LENGTH2
ZZZZ404021	9500	=  ,WN.##.SYSTEM_TYPE1,W0.SYSTEM_LENGTH1,W0.SYSTEM_LENGTH2}
ZZZZ404021	9520	=  {SYSTEM_PERMISSION,SYSTEM_PACKAGE
ZZZZ404021	9530	=  ,WN.##.SYSTEM_NAME,SYSTEM_LANG}{};
ZZZZ404021	9700	REPEAT=
ZZZZ404021	9800	=SET{YES=};
ZZZZ404021	9900	PROGRAM=INPUT,&X1,?_MM?_PACKAGE_DEFAULT_TABLE
ZZZZ404021	10000	CONTROL=1,2,SCROLL
ZZZZ404021	10100	SET={KO}.=?&.SET&SYSTEM_PERMISSION?
ZZZZ404021	10200	SET={KO}.=?&.SET&SYSTEM_PACKAGE?
ZZZZ404021	10300	DATA={*OC}?&.DATA&SYSTEM_TITLE?
ZZZZ404021	10400	=SET{WN.SYSTEM_LENGTH2='(0,0)'};
ZZZZ404021	10500	=IF{SYSTEM_DEFAULT_TYPE='CHAR',='DECIMAL'}EXIT{};
ZZZZ404021	10600	=SET{WN.SYSTEM_LENGTH1='(0,?SYSTEM_DEFAULT_LENGTH1?)'};
ZZZZ404021	10700	=EXIT{SYSTEM_LENGTH1};
ZZZZ404021	10800	DATA={C }?&.DATA&SYSTEM_DEFAULT_LENGTH1?
ZZZZ404021	10900	CHECK=(1,80)
ZZZZ404021	11000	=SET{WN.SYSTEM_LENGTH1='(0,?SYSTEM_DEFAULT_LENGTH1?)'};
ZZZZ404021	11100	=IF{SYSTEM_DEFAULT_TYPE='CHAR'}EXIT{SYSTEM_TYPE1};
ZZZZ404021	11200	=IF{SYSTEM_DEFAULT_TYPE!='DECIMAL'}EXIT{.SYSTEM_LENGTH1};
ZZZZ404021	11300	=SET{WN.SYSTEM_LENGTH2='(0,?_DATA?)'};
ZZZZ404021	11400	DATA={C }?&.DATA&SYSTEM_DEFAULT_LENGTH2?
ZZZZ404021	11500	CHECK=?WN.SYSTEM_LENGTH2?
ZZZZ404021	11600	=SET{WN.SYSTEM_LENGTH1=
ZZZZ404021	11700	=   '0,(?_DATA?,?SYSTEM_DEFAULT_LENGTH1?)'};
ZZZZ404021	11800	=SET{WN.SYSTEM_LENGTH2='(0,?_DATA?)'};
ZZZZ404021	11900	=EXIT{SYSTEM_LENGTH1};
ZZZZ404021	12000	DATA={C }?&.DATA&SYSTEM_TYPE1?
ZZZZ404021	12100	CHECK2=?_CHECK2_TYPE1_CHAR?
ZZZZ404021	12200	DATA={C }?&.DATA&SYSTEM_LENGTH1?
ZZZZ404021	12300	CHECK=?WN.SYSTEM_LENGTH1?
ZZZZ404021	12400	=IF{SYSTEM_DEFAULT_TYPE!='CHAR'}EXIT{};
ZZZZ404021	12500	=SET{WN.SYSTEM_LENGTH2='(0,?_DATA?)'};
ZZZZ404021	12600	=IF{_DATA=0}
ZZZZ404021	12700	=   SET{WN.SYSTEM_LENGTH2='(0,?SYSTEM_DEFAULT_LENGTH1?)'};
ZZZZ404021	12800	DATA={C }?&.DATA&SYSTEM_LENGTH2?
ZZZZ404021	12900	CHECK=?WN.SYSTEM_LENGTH2?
ZZZZ404021	13000	DATA={OC}?&.DATA&SYSTEM_DEFAULT_TYPE?
ZZZZ404021	13100	DATA={KO}?&.DATA&SYSTEM_NAME?
ZZZZ404021	13200	DATA={KO}?&.DATA&SYSTEM_LANG?
ZZZZ404021	13300	COPY=@ZZZZZZ_SQL
ZZZZ404022	100	PROGRAM=NOT
ZZZZ404022	200	DICTIONARY=SYSTEM_PERMISSION,SYSTEM_PART
ZZZZ404022	300	DICTIONARY=SYSTEM_PACKAGE,SYSTEM_LANG
ZZZZ404022	400	BEGIN
ZZZZ404022	500	WORK=?&DATA&SYSTEM_PERMISSION?
ZZZZ404022	600	WORK=?&DATA&SYSTEM_PART?
ZZZZ404022	700	WORK=?&DATA&SYSTEM_PACKAGE?
ZZZZ404022	800	WORK=?&DATA&SYSTEM_LANG?
ZZZZ404022	900	=SET{SYSTEM_PERMISSION='ZZZY'};
ZZZZ404022	1000	=SET{SYSTEM_PART='ZY'};
ZZZZ404022	1100	=SET{SYSTEM_PACKAGE='HATTYUU'};
ZZZZ404022	1200	=SET{SYSTEM_LANG=_LANG_SYSTEM};
ZZZZ404022	1300	=SET{WC.TABLE=_MP_?SYSTEM_PERMISSION?+SYSTEM_PART};
ZZZZ404022	1400	PROGRAM=NOT
ZZZZ404022	1500	END
ZZZZ404022	1600	=EXIT{0};
ZZZZ404022	1700	DICTIONARY=SYSTEM_PERMISSION,SYSTEM_PART
ZZZZ404022	1800	DICTIONARY=SYSTEM_PACKAGE,SYSTEM_LANG
ZZZZ404022	1900	BEGIN
ZZZZ404022	2000	FORM=
ZZZZ404022	2100	JA+FORM= サンプル発注システムのデクショナリを作成します。
ZZZZ404022	2200	JA+FORM= 基本的にはYES実行のみで完成です。
ZZZZ404022	2300	FORM= 注意：既に実行済みの場合は下記をお読み下さい。
ZZZZ404022	2400	FORM=     ①?$WC.TABLE?_ETC_ID_TABLEはDROP（消す）します。
ZZZZ404022	2500	FORM=     ②?$WC.TABLE?_ETC_TABLEはDROP（消す）します。
ZZZZ404022	2600	FORM=③データ辞書のPEMISSIONGが?$.SYSTEM_PERMISSION?でデータ名
ZZZZ404022	2700	FORM=       先頭が?$SYSTEM_PACKAGE?の内容が書き変えられます。
ZZZZ404022	2800	FORM=
ZZZZ404022	2900	JA+FORM=◎次は、[サンプル発注システム 構築 3/3]を実行して下
ZZZZ404022	3000	JA+FORM2=さい。
ZZZZ404022	3100	FORM=         CHECK @@
ZZZZ404022	3200	FORM=
ZZZZ404022	3300	DATA={N}DUMMY{1}
ZZZZ404022	3400	=EXIT3{CHECK};
ZZZZ404022	3500	DATA=CHECK{2}
ZZZZ404022	3600	=IF   {_PERMISSION!='ZZZZ'}
ZZZZ404022	3700	=   IF{_PERMISSION!='ZZZY'}ERROR{_PERMISSION!='ZZZZ'};
ZZZZ404022	3800	FORM=   PERMISSION= @
ZZZZ404022	3900	FORM=       SYSTEM_PART= @
ZZZZ404022	4000	FORM=      PACKAGE= @
ZZZZ404022	4100	FORM=         LANG= @
ZZZZ404022	4200	DATA={O}$?&DATA&SYSTEM_PERMISSION?
ZZZZ404022	4300	DATA={O}$?&DATA&SYSTEM_PART?
ZZZZ404022	4400	DATA={O}$?&DATA&SYSTEM_PACKAGE?
ZZZZ404022	4500	DATA={O}$?&DATA&SYSTEM_LANG?
ZZZZ404022	4600	FORM=
ZZZZ404022	4700	FORM=注意：ESCキーでは終了出来ません。(ENDで終了）
ZZZZ404022	4800	FORM=               @@@@ {YES,END}
ZZZZ404022	4900	FORM=
ZZZZ404022	5000	DATA=YES{}{YES,END}
ZZZZ404022	5100	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ404022	5200	WORK=PP{8}
ZZZZ404022	5210	=SET{_ESC=0};
ZZZZ404022	5300	=SET{PP=SYSTEM_PERMISSION+SYSTEM_PART+'_'};
ZZZZ404022	5400	=SQL_SET{W0.CNT}{SELECT COUNT(*) FROM
ZZZZ404022	5500	=?_MM?_PACKAGE_DEFAULT_TABLE WHERE
ZZZZ404022	5600	= ?_VRE&SYSTEM_PACKAGE? AND Z_CANCEL=' '};
ZZZZ404022	5700	=IF{W0.CNT=0}ERROR{RUN AFTER 1/3};
ZZZZ404022	5800	=SQL_SET{W0.CNT}{SELECT COUNT(*) FROM
ZZZZ404022	5900	=   ?_MM?_PACKAGE_DEFAULT_TABLE WHERE
ZZZZ404022	6000	=   ?_VRE&SYSTEM_PACKAGE? AND Z_CANCEL=' '
ZZZZ404022	6100	=   AND SYSTEM_DEFAULT_LENGTH1=0};
ZZZZ404022	6200	=IF{W0.CNT!=0}ERROR{DEFAULT_LENGTH1=0 FOUND};
ZZZZ404022	6300	*****( CANCEL ?_MM?_I_DICTIONARY_TABLE )**********
ZZZZ404022	6400	*=SQL{UPDATE ?_MM?_I_DICTIONARY_TABLE
ZZZZ404022	6500	*=   SET ?_Z_UPDATE_CANCEL?
ZZZZ404022	6600	*=    WHERE ?_VRE&.SYSTEM_PERMISSION?
ZZZZ404022	6700	*=    AND   ?_L&PACKAZE_X?};
ZZZZ404022	6800	*    AND SYSTEM_DATA_NAME NOT LIKE 'ZZZYZY_MODEL_%'};
ZZZZ404022	6900	*****( FIXD DATA INSERT )****************************
ZZZZ404022	7000	=SET{WC.SYSTEM_KEY1='ZZZZZZ_@'
ZZZZ404022	7100	=    ,WC.SYSTEM_KEY2='?PP?BOM_MAX'};
ZZZZ404022	7200	=SET{WN.SYSTEM_ETC='10',
ZZZZ404022	7300	=   WN.SYSTEM_COMMENT='BOM MAX LEVEL COUNT'};
ZZZZ404022	7400	=PROGRAM{2N,?_MM?_ETC_TABLE,WN.SYSTEM_ETC,WN.SYSTEM_COMMENT}
ZZZZ404022	7510	=  {WC.SYSTEM_KEY1,WC.SYSTEM_KEY2}{};
ZZZZ404022	7600	=SET{WC.SYSTEM_KEY1
ZZZZ404022	7700	=   ='ZZZZZZ_PART2:'+SYSTEM_PERMISSION+SYSTEM_PART};
ZZZZ404022	7800	=SET{WC.SYSTEM_KEY2='SYSTEM'};
ZZZZ404022	7900	=SET{WN.SYSTEM_ETC='ZZZZZZ'};
ZZZZ404022	8000	=PROGRAM{2N,?_MM?_ETC_ID_TABLE}{WC.SYSTEM_KEY1}{};
ZZZZ404022	8100	=PROGRAM{2N,?_MM?_ETC_TABLE,WN.SYSTEM_ETC}
ZZZZ404022	8110	=  {WC.SYSTEM_KEY1,WC.SYSTEM_KEY2}{};
ZZZZ404022	8300	******************( 個別データ　処理 )***********************
ZZZZ404022	8400	=SET{W0.E=0};
ZZZZ404022	8500	=SET{WC.SYSTEM_DEFAULT_TYPE='NCHAR'
ZZZZ404022	8600	=   ,W0.SYSTEM_DEFAULT_LENGTH1=30};
ZZZZ404022	8700	=SET{W0.SYSTEM_DEFAULT_LENGTH2=};
ZZZZ404022	8800	*=SET{WCC.SYSTEM_TYPE1='/',W0.SYSTEM_LENGTH1=
ZZZZ404022	8810	=SET{WC.SYSTEM_TYPE1='/',W0.SYSTEM_LENGTH1=
ZZZZ404022	8900	=   ,W0.SYSTEM_LENGTH2=};
ZZZZ404022	9000	=SET{WCN='OBJECT_NAME',WC.SW=
ZZZZ404022	9100	=   ,WN.SYSTEM_TITLE='物名'};
ZZZZ404022	9200	NAME=PROGRAM1
ZZZZ404022	9300	***( WC.SW='C'--- CHECK1   CHECK61 KEEP )***
ZZZZ404022	9400	***( WC.SW='E'--- SELECT21 ETC_TABLE SET )***
ZZZZ404022	9500	***( WC.SW='L'--- SELECT21 CHECK61,62,63 SET )***
ZZZZ404022	9600	***( WC.SW='S'--- SECTION21 CHECK61,62,63 SET )***
ZZZZ404022	9700	=SET{WC.SYSTEM_CHECK64=,WC.SYSTEM_CHECK65=
ZZZZ404022	9800	=   ,WC.SYSTEM_CHECK66=};
ZZZZ404022	9900	=SET{WC.SYSTEM_DATA_NAME='?SYSTEM_PACKAGE?_?WCN?'};
ZZZZ404022	10000	=IF{WC.SW=}
ZZZZ404022	10100	=   SET{WC.SYSTEM_CHECK=,WC.SYSTEM_CHECK61=
ZZZZ404022	10200	=  ,WC.SYSTEM_CHECK62=,WC.SYSTEM_CHECK63=}JUMP{P};
ZZZZ404022	10300	=IF{WC.SW='C'}
ZZZZ404022	10400	=   SET{WC.SYSTEM_CHECK=,WC.SYSTEM_CHECK62=
ZZZZ404022	10500	=  ,WC.SYSTEM_CHECK63=}JUMP{P};
ZZZZ404022	10600	=SET{W_NN=WCN};IF{WCN='ETC'}SET{W_NN=WCN+'_ID'};
ZZZZ404022	10700	=IF{WC.SW='L',='S'}
ZZZZ404022	10800	*   SET{WC.SYSTEM_CHECK61='?_Q?_MP_ZZZY?_Q?ZY_?W_NN?_TABLE'
ZZZZ404022	10900	=   SET{WC.SYSTEM_CHECK61='?_Q?_MM?_Q?_?W_NN?_TABLE'
ZZZZ404022	11000	=   ,WC.SYSTEM_CHECK62=WC.SYSTEM_DATA_NAME
ZZZZ404022	11100	=   ,WC.SYSTEM_CHECK63='?WC.SYSTEM_DATA_NAME?_NAME'};
ZZZZ404022	11200	=IF{WC.SW!='E'}JUMP{END};
ZZZZ404022	11300	=SET{WC.SYSTEM_CHECK61
ZZZZ404022	11400	*  ='?_Q?_MP_?.SYSTEM_PERMISSION??_Q??SYSTEM_PART?_ETC_TABLE'
ZZZZ404022	11500	=  ='?_Q?_MM?_Q?_ETC_TABLE'
ZZZZ404022	11600	=   ,WC.SYSTEM_CHECK62='?SYSTEM_PACKAGE?_ETC_KEY'
ZZZZ404022	11700	=   ,WC.SYSTEM_CHECK63='?SYSTEM_PACKAGE?_ETC_DATA'
ZZZZ404022	11800	=   ,WC.SYSTEM_CHECK64
ZZZZ404022	11900	=   ='?_Q?_X?_Q?.?SYSTEM_PACKAGE?_ETC=''?WCN?'''
ZZZZ404022	12000	=   ,WC.?SYSTEM_PACKAGE?_ETC=WCN
ZZZZ404022	12100	=   ,WN.?SYSTEM_PACKAGE?_ETC_NAME=WN.SYSTEM_TITLE};
ZZZZ404022	12200	=PROGRAM{2N,?$WC.TABLE?_ETC_ID_TABLE
ZZZZ404022	12202	=  ,WN.?SYSTEM_PACKAGE?_ETC_NAME}
ZZZZ404022	12300	=  {WC.?SYSTEM_PACKAGE?_ETC}{};
ZZZZ404022	12500	=SET{_COUNTER=1};
ZZZZ404022	12600	=LOOP:IF{_COUNTER>W0.E}JUMP{END};
ZZZZ404022	12700	=SET{WC.?SYSTEM_PACKAGE?_ETC_KEY=WC._K$$
ZZZZ404022	12800	=   ,WC.?SYSTEM_PACKAGE?_ETC_DATA=WN._D$$};
ZZZZ404022	12900	=PROGRAM{2N,?$WC.TABLE?_ETC_TABLE
ZZZZ404022	12902	=  ,WC.?SYSTEM_PACKAGE?_ETC_DATA}
ZZZZ404022	13000	=  {WC.?SYSTEM_PACKAGE?_ETC,WC.?SYSTEM_PACKAGE?_ETC_KEY}{};
ZZZZ404022	13200	*SET{WC.?PP?ETC_KEY='*',WC.?PP?ETC_DATA='?W_ASTA?'};
ZZZZ404022	13300	=COMPUTE{_COUNTER+=1};
ZZZZ404022	13400	=BACK{LOOP};
ZZZZ404022	13500	*PROGRAM{?$WC.TABLE?_ETC_TABLE}
ZZZZ404022	13600	*   {WC.?PP?ETC,WC.?PP?ETC_KEY}{WN.?PP?ETC_NAME}{2N};
ZZZZ404022	13700	=END:IF{WC.SW='S'}SET{WC.SYSTEM_CHECK='SECTION2'};
ZZZZ404022	13800	=IF{WC.SW='L',='E'}SET{WC.SYSTEM_CHECK='SELECT21'};
ZZZZ404022	13900	=P:IF{WC.SW='C'}SET{WC.SYSTEM_CHECK='CHECK'};
ZZZZ404022	14000	***( I_DICTIONARY UPATE 1/3 _LANG_SYSTEM )*****
ZZZZ404022	14100	=PROGRAM{2E,?_MM?_I_DICTIONARY_TABLE
ZZZZ404022	14102	=  ,SYSTEM_PART,WN.SYSTEM_TITLE
ZZZZ404022	14400	=  ,WC.SYSTEM_DEFAULT_TYPE,W0.SYSTEM_DEFAULT_LENGTH1
ZZZZ404022	14510	=  ,W0.SYSTEM_DEFAULT_LENGTH2,WC.SYSTEM_TYPE1
ZZZZ404022	14600	=  ,W0.SYSTEM_LENGTH1
ZZZZ404022	14700	=  ,W0.SYSTEM_LENGTH2,WC.SYSTEM_CHECK
ZZZZ404022	14800	=  ,WC.SYSTEM_CHECK61,WC.SYSTEM_CHECK62
ZZZZ404022	14900	=  ,WC.SYSTEM_CHECK63,WC.SYSTEM_CHECK64
ZZZZ404022	15000	=  ,WC.SYSTEM_CHECK65,WC.SYSTEM_CHECK66}
ZZZZ404022	15020	=  {SYSTEM_PERMISSION,WC.SYSTEM_DATA_NAME,SYSTEM_LANG}{};
ZZZZ404022	15200	***( I_DICTIONARY UPATE 2/3 LANG E.T.C )*******
ZZZZ404022	15300	=PROGRAM{3PE,?_MM?_I_DICTIONARY_TABLE
ZZZZ404022	15302	=  ,WC.SYSTEM_DEFAULT_TYPE
ZZZZ404022	15500	=  ,W0.SYSTEM_DEFAULT_LENGTH1
ZZZZ404022	15620	=  ,W0.SYSTEM_DEFAULT_LENGTH2,WC.SYSTEM_TYPE1
ZZZZ404022	15700	=  ,W0.SYSTEM_LENGTH1
ZZZZ404022	15800	=  ,W0.SYSTEM_LENGTH2,WC.SYSTEM_CHECK
ZZZZ404022	15900	=  ,WC.SYSTEM_CHECK61,WC.SYSTEM_CHECK62
ZZZZ404022	16000	=  ,WC.SYSTEM_CHECK63,WC.SYSTEM_CHECK64
ZZZZ404022	16100	=  ,WC.SYSTEM_CHECK65,WC.SYSTEM_CHECK66}
ZZZZ404022	16120	=  {SYSTEM_PERMISSION,WC.SYSTEM_DATA_NAME}{};
ZZZZ404022	16300	***( I_DICTIONARY UPATE 3/3 BASE E.T.C )*******
ZZZZ404022	16400	=SET{WC.SYSTEM_BASE_PERMISSION=SYSTEM_PERMISSION};
ZZZZ404022	16500	=SET{WC.SYSTEM_BASE_DATA_NAME=WC.SYSTEM_DATA_NAME};
ZZZZ404022	16600	=PROGRAM{3PE,?_MM?_I_DICTIONARY_TABLE
ZZZZ404022	16602	=  ,WC.SYSTEM_DEFAULT_TYPE
ZZZZ404022	16800	=  ,W0.SYSTEM_DEFAULT_LENGTH1
ZZZZ404022	16920	=  ,W0.SYSTEM_DEFAULT_LENGTH2,WC.SYSTEM_TYPE1
ZZZZ404022	17000	=  ,W0.SYSTEM_LENGTH1
ZZZZ404022	17100	=  ,W0.SYSTEM_LENGTH2,WC.SYSTEM_CHECK
ZZZZ404022	17200	=  ,WC.SYSTEM_CHECK61,WC.SYSTEM_CHECK62
ZZZZ404022	17300	=  ,WC.SYSTEM_CHECK63,WC.SYSTEM_CHECK64
ZZZZ404022	17400	=  ,WC.SYSTEM_CHECK65,WC.SYSTEM_CHECK66}
ZZZZ404022	17420	=  {WC.SYSTEM_BASE_PERMISSION,WC.SYSTEM_BASE_DATA_NAME}{};
ZZZZ404022	17600	NAME=
ZZZZ404022	17700	=SET{WCN='PLACE_NAME',WN.SYSTEM_TITLE='場所名'};
ZZZZ404022	17800	COPY=PROGRAM1
ZZZZ404022	17900	=SET{WCN='STORAGE_NAME',WN.SYSTEM_TITLE='倉庫名'};
ZZZZ404022	18000	COPY=PROGRAM1
ZZZZ404022	18100	=SET{W0.SYSTEM_DEFAULT_LENGTH1=10};
ZZZZ404022	18200	=SET{WCN='ETC_NAME',WN.SYSTEM_TITLE='名前'};
ZZZZ404022	18300	COPY=PROGRAM1
ZZZZ404022	18400	=SET{WCN='ETC_DATA',WN.SYSTEM_TITLE='情報'};
ZZZZ404022	18500	COPY=PROGRAM1
ZZZZ404022	18600	=SET{WCN='UNIT',WN.SYSTEM_TITLE='単位'};
ZZZZ404022	18700	COPY=PROGRAM1
ZZZZ404022	18800	=SET{WC.SW='L'};
ZZZZ404022	18900	=SET{WC.SYSTEM_DEFAULT_TYPE='CHAR'};
ZZZZ404022	19000	=SET{WC.SYSTEM_TYPE1=,W0.SYSTEM_DEFAULT_LENGTH1=20};
ZZZZ404022	19100	=SET{WCN='ETC',WN.SYSTEM_TITLE='ETC'};
ZZZZ404022	19200	COPY=PROGRAM1
ZZZZ404022	19300	=SET{WC.SW=};
ZZZZ404022	19400	=SET{W0.SYSTEM_DEFAULT_LENGTH1=1};
ZZZZ404022	19500	=SET{WCN='ETC_KEY',WN.SYSTEM_TITLE='キー'};
ZZZZ404022	19600	COPY=PROGRAM1
ZZZZ404022	19700	=SET{W0.SYSTEM_DEFAULT_LENGTH1=4};
ZZZZ404022	19800	=SET{WCN='NO_KEY',WN.SYSTEM_TITLE='キー'};
ZZZZ404022	19900	COPY=PROGRAM1
ZZZZ404022	20000	*SET{WCN='OBJECT_MARK_A',WN.SYSTEM_TITLE='中間品'};
ZZZZ404022	20100	*OPY=PROGRAM1
ZZZZ404022	20200	*SET{WCN='OBJECT_MARK_B',WN.SYSTEM_TITLE='購入品'};
ZZZZ404022	20300	*OPY=PROGRAM1
ZZZZ404022	20400	*SET{WCN='OBJECT_MARK_E',WN.SYSTEM_TITLE='単体品'};
ZZZZ404022	20500	*OPY=PROGRAM1
ZZZZ404022	20600	*SET{WCN='OBJECT_MARK_F',WN.SYSTEM_TITLE='完成品'};
ZZZZ404022	20700	*OPY=PROGRAM1
ZZZZ404022	20800	*SET{WCN='OBJECT_MARK_M',WN.SYSTEM_TITLE='原材料'};
ZZZZ404022	20900	*OPY=PROGRAM1
ZZZZ404022	21000	*SET{WCN='OBJECT_MARK_P',WN.SYSTEM_TITLE='梱包用品'};
ZZZZ404022	21100	*OPY=PROGRAM1
ZZZZ404022	21200	*SET{WCN='OBJECT_MARK_S',WN.SYSTEM_TITLE='補助材料'};
ZZZZ404022	21300	*OPY=PROGRAM1
ZZZZ404022	21400	*SET{WCN='OBJECT_MARK_W',WN.SYSTEM_TITLE='貯蔵品'};
ZZZZ404022	21500	*OPY=PROGRAM1
ZZZZ404022	21600	*SET{WCN='OBJECT_MARK_Z',WN.SYSTEM_TITLE='その他'};
ZZZZ404022	21700	*OPY=PROGRAM1
ZZZZ404022	21800	*************( ETC TABLE )******************
ZZZZ404022	21900	=SET{_JOB_PERMISSION=SYSTEM_PERMISSION};
ZZZZ404022	22000	=IF_ERROR_DBO_DROP_TABLE{?$WC.TABLE?_ETC_ID_TABLE}JUMP{ERR};
ZZZZ404022	22100	=IF_ERROR_DBO_CREATE_TABLE{?$WC.TABLE?_ETC_ID_TABLE,
ZZZZ404022	22200	=   ?SYSTEM_PACKAGE?_ETC,*}
ZZZZ404022	22300	=  {?SYSTEM_PACKAGE?_ETC_NAME,*}JUMP{ERR};
ZZZZ404022	22400	=IF_ERROR_DBO_GRANT{?$WC.TABLE?_ETC_ID_TABLE}JUMP{ERR};
ZZZZ404022	22500	=IF_ERROR_DBO_DROP_TABLE  {?$WC.TABLE?_ETC_TABLE}JUMP{ERR};
ZZZZ404022	22600	=IF_ERROR_DBO_CREATE_TABLE{?$WC.TABLE?_ETC_TABLE,
ZZZZ404022	22700	=   ?SYSTEM_PACKAGE?_ETC,*,?SYSTEM_PACKAGE?_ETC_KEY,*}
ZZZZ404022	22800	=  {?SYSTEM_PACKAGE?_ETC_DATA,*}JUMP{ERR};
ZZZZ404022	22900	=IF_ERROR_DBO_GRANT{?$WC.TABLE?_ETC_TABLE}JUMP{ERR};
ZZZZ404022	23000	=SET{W_ERR=};
ZZZZ404022	23100	=JUMP{OK};
ZZZZ404022	23200	=ERR:SET{W_ERR=_ERROR};
ZZZZ404022	23300	=OK:SET{_JOB_PERMISSION='ZZZZ'};
ZZZZ404022	23400	=IF{W_ERR!=}ERROR{?W_ERR?};
ZZZZ404022	23500	=SET{W0.SYSTEM_DEFAULT_LENGTH1=1};
ZZZZ404022	23600	=SET{WCN='PLACE_MARK',WC.SW='E'
ZZZZ404022	23700	=   ,WN.SYSTEM_TITLE='場所記号'};
ZZZZ404022	23800	=SET{WC._K1='I',WN._D1='社内'};
ZZZZ404022	23900	=SET{WC._K2='O',WN._D2='社外'};
ZZZZ404022	24000	=SET{WC._K3='=',WN._D3='自社'};
ZZZZ404022	24100	=SET{W0.E=3};
ZZZZ404022	24200	COPY=PROGRAM1
ZZZZ404022	24300	=SET{WCN='OBJECT_MARK',WN.SYSTEM_TITLE='物記号'};
ZZZZ404022	24400	=SET{WC._K1='A',WN._D1='中間品'};
ZZZZ404022	24500	=SET{WC._K2='B',WN._D2='購入品'};
ZZZZ404022	24600	=SET{WC._K3='E',WN._D3='単体品'};
ZZZZ404022	24700	=SET{WC._K4='F',WN._D4='完成品'};
ZZZZ404022	24800	=SET{WC._K5='M',WN._D5='原材料'};
ZZZZ404022	24900	=SET{WC._K6='P',WN._D6='梱包用品'};
ZZZZ404022	25000	=SET{WC._K7='S',WN._D7='補助材料'};
ZZZZ404022	25100	=SET{WC._K8='W',WN._D8='貯蔵品'};
ZZZZ404022	25200	=SET{WC._K9='Z',WN._D9='その他'};
ZZZZ404022	25300	=SET{W0.E=9};
ZZZZ404022	25400	COPY=PROGRAM1
ZZZZ404022	25500	=SET{WCN='OBJECT_MARK_A',WN.SYSTEM_TITLE='中間品'};
ZZZZ404022	25600	=SET{WC._K1='A',WN._D1='中間品'};
ZZZZ404022	25700	=SET{WC._K2=' ',WN._D2='無中間品'};
ZZZZ404022	25800	=SET{W0.E=2};
ZZZZ404022	25900	COPY=PROGRAM1
ZZZZ404022	26000	=SET{WCN='OBJECT_MARK_B',WN.SYSTEM_TITLE='購入品'};
ZZZZ404022	26100	=SET{WC._K1='B',WN._D1='購入品'};
ZZZZ404022	26200	=SET{WC._K2=' ',WN._D2='無購入品'};
ZZZZ404022	26300	COPY=PROGRAM1
ZZZZ404022	26400	=SET{WCN='OBJECT_MARK_E',WN.SYSTEM_TITLE='単体品'};
ZZZZ404022	26500	=SET{WC._K1='E',WN._D1='単体品'};
ZZZZ404022	26600	=SET{WC._K2=' ',WN._D2='無単体品'};
ZZZZ404022	26700	COPY=PROGRAM1
ZZZZ404022	26800	=SET{WCN='OBJECT_MARK_F',WN.SYSTEM_TITLE='完成品'};
ZZZZ404022	26900	=SET{WC._K1='F',WN._D1='完成品'};
ZZZZ404022	27000	=SET{WC._K2=' ',WN._D2='無完成品'};
ZZZZ404022	27100	COPY=PROGRAM1
ZZZZ404022	27200	=SET{WCN='OBJECT_MARK_M',WN.SYSTEM_TITLE='原材料'};
ZZZZ404022	27300	=SET{WC._K1='M',WN._D1='原材料'};
ZZZZ404022	27400	=SET{WC._K2=' ',WN._D2='無原材料'};
ZZZZ404022	27500	COPY=PROGRAM1
ZZZZ404022	27600	=SET{WCN='OBJECT_MARK_P',WN.SYSTEM_TITLE='梱包用品'};
ZZZZ404022	27700	=SET{WC._K1='P',WN._D1='梱包用品'};
ZZZZ404022	27800	=SET{WC._K2=' ',WN._D2='無梱包用品'};
ZZZZ404022	27900	COPY=PROGRAM1
ZZZZ404022	28000	=SET{WCN='OBJECT_MARK_S',WN.SYSTEM_TITLE='補助材料'};
ZZZZ404022	28100	=SET{WC._K1='S',WN._D1='補助材料'};
ZZZZ404022	28200	=SET{WC._K2=' ',WN._D2='無補助材料'};
ZZZZ404022	28300	COPY=PROGRAM1
ZZZZ404022	28400	=SET{WCN='OBJECT_MARK_W',WN.SYSTEM_TITLE='貯蔵品'};
ZZZZ404022	28500	=SET{WC._K1='W',WN._D1='貯蔵品'};
ZZZZ404022	28600	=SET{WC._K2=' ',WN._D2='無貯蔵品'};
ZZZZ404022	28700	COPY=PROGRAM1
ZZZZ404022	28800	=SET{WCN='OBJECT_MARK_Z',WN.SYSTEM_TITLE='その他'};
ZZZZ404022	28900	=SET{WC._K1='Z',WN._D1='その他'};
ZZZZ404022	29000	=SET{WC._K2=' ',WN._D2='無その他'};
ZZZZ404022	29100	COPY=PROGRAM1
ZZZZ404022	29200	=SET{WCN='BOM_MARK',WN.SYSTEM_TITLE='構成記号'};
ZZZZ404022	29300	=SET{WC._K1='1',WN._D1='親のみ'};
ZZZZ404022	29400	=SET{WC._K2='2',WN._D2='親子'};
ZZZZ404022	29500	=SET{WC._K3='3',WN._D3='子のみ'};
ZZZZ404022	29600	=SET{WC._K4='0',WN._D4='構成無し'};
ZZZZ404022	29700	=SET{W0.E=4};
ZZZZ404022	29800	COPY=PROGRAM1
ZZZZ404022	29900	=SET{WCN='STORAGE_MARK',WN.SYSTEM_TITLE='倉庫記号'};
ZZZZ404022	30000	=SET{WC._K1=' ',WN._D1='普通'};
ZZZZ404022	30100	=SET{WC._K2='I',WN._D2='検査'};
ZZZZ404022	30200	=SET{WC._K3='*',WN._D3='保留'};
ZZZZ404022	30300	=SET{W0.E=3};
ZZZZ404022	30400	COPY=PROGRAM1
ZZZZ404022	30500	=SET{WCN='CALENDAR_MARK',WN.SYSTEM_TITLE='暦記号'};
ZZZZ404022	30600	=SET{WC._K1=' ',WN._D1='作成'};
ZZZZ404022	30700	=SET{WC._K2='*',WN._D2='場所指定'};
ZZZZ404022	30800	=SET{WC._K3='=',WN._D3='自社指定'};
ZZZZ404022	30900	COPY=PROGRAM1
ZZZZ404022	31000	=SET{WCN='SLIP_MARK',WN.SYSTEM_TITLE='伝票記号'};
ZZZZ404022	31100	=SET{WN._D1='通常',WN._D2='中止',WN._D3='完了'};
ZZZZ404022	31200	COPY=PROGRAM1
ZZZZ404022	31300	=SET{WCN='IN_MARK',WN.SYSTEM_TITLE='入庫記号'};
ZZZZ404022	31400	=SET{WC._K1=' ',WC._K2='+',WC._K3='-',WC._K4='*',W0.E=4};
ZZZZ404022	31500	=SET{WN._D1='無処理',WN._D2='入庫',
ZZZZ404022	31600	=    WN._D3='返品',WN._D4='その他'};
ZZZZ404022	31700	COPY=PROGRAM1
ZZZZ404022	31800	=SET{WCN='OUT_MARK',WN.SYSTEM_TITLE='出庫記号'};
ZZZZ404022	31900	=SET{WN._D1='無処理',WN._D2='出庫',
ZZZZ404022	32000	=    WN._D3='戻し',WN._D4='その他'};
ZZZZ404022	32100	COPY=PROGRAM1
ZZZZ404022	32200	=SET{WCN='MRP_MARK',WC.SW='E',WN.SYSTEM_TITLE='MRP記号'};
ZZZZ404022	32300	=SET{W0.E=2,WC._K1=' ',WC._K2='*'};
ZZZZ404022	32400	=SET{WN._D1='MRP使用',WN._D2='MRP未使用'};
ZZZZ404022	32500	COPY=PROGRAM1
ZZZZ404022	32600	=SET{WCN='USE_MARK',WN.SYSTEM_TITLE='使用記号'};
ZZZZ404022	32700	=SET{WN._D1='使用',WN._D2='未使用'};
ZZZZ404022	32800	COPY=PROGRAM1
ZZZZ404022	32900	=SET{WCN='ARRANGE_MARK',WN.SYSTEM_TITLE='手配記号'};
ZZZZ404022	33000	=SET{WN._D1='手配する',WN._D2='手配しない'};
ZZZZ404022	33100	COPY=PROGRAM1
ZZZZ404022	33200	=SET{WCN='LOT_MARK',WN.SYSTEM_TITLE='ロット記号'};
ZZZZ404022	33300	=SET{WN._D1='丸めない',WN._D2='丸める'};
ZZZZ404022	33400	COPY=PROGRAM1
ZZZZ404022	33500	=SET{WCN='DISCONTINUE_MARK',WN.SYSTEM_TITLE='廃止記号'};
ZZZZ404022	33600	=SET{WN._D1='廃止しない',WN._D2='廃止する'};
ZZZZ404022	33700	COPY=PROGRAM1
ZZZZ404022	33800	=SET{WCN='WEEK1_MARK',WN.SYSTEM_TITLE='日納入記号'};
ZZZZ404022	33900	=SET{WN._D1='納入する',WN._D2='納入しない'};
ZZZZ404022	34000	COPY=PROGRAM1
ZZZZ404022	34100	=SET{WCN='WEEK2_MARK',WN.SYSTEM_TITLE='月納入記号'};
ZZZZ404022	34200	COPY=PROGRAM1
ZZZZ404022	34300	=SET{WCN='WEEK3_MARK',WN.SYSTEM_TITLE='火納入記号'};
ZZZZ404022	34400	COPY=PROGRAM1
ZZZZ404022	34500	=SET{WCN='WEEK4_MARK',WN.SYSTEM_TITLE='水納入記号'};
ZZZZ404022	34600	COPY=PROGRAM1
ZZZZ404022	34700	=SET{WCN='WEEK5_MARK',WN.SYSTEM_TITLE='木納入記号'};
ZZZZ404022	34800	COPY=PROGRAM1
ZZZZ404022	34900	=SET{WCN='WEEK6_MARK',WN.SYSTEM_TITLE='金納入記号'};
ZZZZ404022	35000	COPY=PROGRAM1
ZZZZ404022	35100	=SET{WCN='WEEK7_MARK',WN.SYSTEM_TITLE='土納入記号'};
ZZZZ404022	35200	COPY=PROGRAM1
ZZZZ404022	35300	=SET{WCN='ONEROUS_MARK',WN.SYSTEM_TITLE='有償記号'};
ZZZZ404022	35400	=SET{WN._D1='有償',WN._D2='無償'};
ZZZZ404022	35500	COPY=PROGRAM1
ZZZZ404022	35600	=SET{WCN='PRODUCTION_MARK',WN.SYSTEM_TITLE='生産記号'};
ZZZZ404022	35700	=SET{WN._D1='非生産計画',WN._D2='生産計画'};
ZZZZ404022	35800	COPY=PROGRAM1
ZZZZ404022	35900	=SET{WCN='BOM_OK',WN.SYSTEM_TITLE='構成OK'};
ZZZZ404022	36000	=SET{WN._D1='構成完成',WN._D2='構成未完成'};
ZZZZ404022	36100	COPY=PROGRAM1
ZZZZ404022	36200	=SET{WCN='COST_OK',WN.SYSTEM_TITLE='単価OK'};
ZZZZ404022	36300	=SET{WN._D1='単価完成',WN._D2='単価未完成'};
ZZZZ404022	36400	COPY=PROGRAM1
ZZZZ404022	36500	=SET{WCN='PROCESS_OK',WN.SYSTEM_TITLE='工程OK'};
ZZZZ404022	36600	=SET{WN._D1='工程完成',WN._D2='工程未完成'};
ZZZZ404022	36700	COPY=PROGRAM1
ZZZZ404022	36800	=SET{WCN='HOLIDAY',WN.SYSTEM_TITLE='休日'};
ZZZZ404022	36900	=SET{WK1=,WC._K2=1};
ZZZZ404022	37000	=SET{WN._D1='稼働日',WN._D2='休日'};
ZZZZ404022	37100	COPY=PROGRAM1
ZZZZ404022	37200	=SET{WCN='HOLIDAY_DEFAULT'
ZZZZ404022	37300	=   ,WN.SYSTEM_TITLE='休日初期値'};
ZZZZ404022	37400	COPY=PROGRAM1
ZZZZ404022	37500	=SET{W0.SYSTEM_DEFAULT_LENGTH1=8,WC.SYSTEM_TYPE1='D'};
ZZZZ404022	37600	=SET{W0.SYSTEM_LENGTH1=};
ZZZZ404022	37700	=SET{WCN='DATE',WC.SW=,WN.SYSTEM_TITLE='年月日'};
ZZZZ404022	37800	=SET{WC.SYSTEM_TYPE1='D'};
ZZZZ404022	37900	COPY=PROGRAM1
ZZZZ404022	38000	=SET{WCN='START_DATE',WC.SW=,WN.SYSTEM_TITLE='着手日'};
ZZZZ404022	38100	COPY=PROGRAM1
ZZZZ404022	38200	=SET{WCN='BEGIN_DATE',WN.SYSTEM_TITLE='開始日'};
ZZZZ404022	38300	COPY=PROGRAM1
ZZZZ404022	38400	=SET{WCN='END_DATE',WN.SYSTEM_TITLE='終了日'};
ZZZZ404022	38500	COPY=PROGRAM1
ZZZZ404022	38600	=SET{WC.SYSTEM_DEFAULT_TYPE='INT'
ZZZZ404022	38700	=   ,W0.SYSTEM_DEFAULT_LENGTH1=9};
ZZZZ404022	38800	=SET{W0.SYSTEM_LENGTH1=2};
ZZZZ404022	38900	=SET{WC.SYSTEM_TYPE1='+'};
ZZZZ404022	39000	=SET{WCN='HOUR',WN.SYSTEM_TITLE='時間'};
ZZZZ404022	39100	COPY=PROGRAM1
ZZZZ404022	39200	=SET{W0.SYSTEM_LENGTH1=3};
ZZZZ404022	39300	=SET{WCN='SORT',WN.SYSTEM_TITLE='順序'};
ZZZZ404022	39400	COPY=PROGRAM1
ZZZZ404022	39500	=SET{WCN='PROCESS_DAYS',WN.SYSTEM_TITLE='工程日数'};
ZZZZ404022	39600	COPY=PROGRAM1
ZZZZ404022	39700	=SET{W0.SYSTEM_LENGTH1=7};
ZZZZ404022	39800	=SET{WCN='LOT',WN.SYSTEM_TITLE='ロット'};
ZZZZ404022	39900	COPY=PROGRAM1
ZZZZ404022	40000	=SET{WC.SW='C',WC.SYSTEM_CHECK61='(,100)'};
ZZZZ404022	40100	=SET{W0.SYSTEM_LENGTH1=3};
ZZZZ404022	40200	=SET{WCN='PERCENT',WN.SYSTEM_TITLE='比率'};
ZZZZ404022	40300	COPY=PROGRAM1
ZZZZ404022	40400	=SET{W0.SYSTEM_LENGTH1=,WC.SYSTEM_CHECK61=};
ZZZZ404022	40500	=SET{WC.SYSTEM_DEFAULT_TYPE='CHAR'
ZZZZ404022	40600	=   ,W0.SYSTEM_DEFAULT_LENGTH1=12};
ZZZZ404022	40700	=SET{WC.SYSTEM_TYPE1=9};
ZZZZ404022	40800	=SET{WCN='NO',WN.SYSTEM_TITLE='番号'};
ZZZZ404022	40900	COPY=PROGRAM1
ZZZZ404022	41000	=SET{W0.SYSTEM_DEFAULT_LENGTH1=11};
ZZZZ404022	41100	=SET{W0.SYSTEM_LENGTH2=11};
ZZZZ404022	41200	=SET{WC.SYSTEM_CHECK61='(10000000000,)'};
ZZZZ404022	41300	=SET{WCN='NO_BEGIN',WN.SYSTEM_TITLE='開始番号'};
ZZZZ404022	41400	COPY=PROGRAM1
ZZZZ404022	41500	=SET{WCN='NO_END',WN.SYSTEM_TITLE='終了番号'};
ZZZZ404022	41600	COPY=PROGRAM1
ZZZZ404022	41700	*********************************************
ZZZZ404022	41800	*****( 基本情報による　処理 )*****************
ZZZZ404022	41900	*********************************************
ZZZZ404022	42000	=SET_TABLE{&X1,?_MM?_PACKAGE_DEFAULT_TABLE};
ZZZZ404022	42100	=SQL1{SELECT ?&.ALL? FROM ?&.TABLE? WHERE
ZZZZ404022	42200	=   Z_CANCEL=' '
ZZZZ404022	42300	=   AND ?_VRE&SYSTEM_PACKAGE? ORDER BY 1,2,3};
ZZZZ404022	42400	=SQL1_NEXT:SQL1_NEXT{?&.WORK?}JUMP{SQL1_END};
ZZZZ404022	42500	=SET{_COUNTER=2};
ZZZZ404022	42600	=LOOP:SET{?&.WORK_$$?_?WN.SYSTEM_NAME?=?&.WORK_$$?};
ZZZZ404022	42700	=IF{&.ALL_COUNT<=_COUNTER}BACK{SQL1_NEXT};
ZZZZ404022	42800	=COMPUTE{_COUNTER+=1};BACK{LOOP};
ZZZZ404022	42900	=SQL1_END:
ZZZZ404022	43000	=SET{WCN='OBJECT',WC.SW='S'};
ZZZZ404022	43100	=SET{WC.SYSTEM_DATA_NAME='?SYSTEM_PACKAGE?_?WCN?'
ZZZZ404022	43200	=   ,WN.SYSTEM_TITLE='物'};
ZZZZ404022	43300	NAME=PROGRAM2
ZZZZ404022	43400	=IF{WC.SW!='C'}
ZZZZ404022	43500	*  SET{WC.SYSTEM_CHECK61='?_Q?_MP_ZZZY?_Q?ZY_?WCN?_TABLE'};
ZZZZ404022	43600	=  SET{WC.SYSTEM_CHECK61='?_Q?_MM?_Q?_?WCN?_TABLE'};
ZZZZ404022	43700	=SET{WC.SYSTEM_CHECK62='?SYSTEM_PACKAGE?_?WCN?'
ZZZZ404022	43800	=   ,WC.SYSTEM_CHECK63='?SYSTEM_PACKAGE?_?WCN?_NAME'};
ZZZZ404022	43900	=SET{WC.SYSTEM_CHECK64=,WC.SYSTEM_CHECK65=
ZZZZ404022	44000	=   ,WC.SYSTEM_CHECK66=};
ZZZZ404022	44100	=IF{WC.SW='C'}
ZZZZ404022	44200	=   SET{WC.SYSTEM_CHECK='CHECK'
ZZZZ404022	44300	=      ,WC.SYSTEM_CHECK62=,WC.SYSTEM_CHECK63=}
ZZZZ404022	44400	=   JUMP{PROGRAM2_SKIP};
ZZZZ404022	44500	=IF{WC.SW=}
ZZZZ404022	44600	=   SET{WC.SYSTEM_CHECK=,WC.SYSTEM_CHECK61=,
ZZZZ404022	44700	=   WC.SYSTEM_CHECK62=,WC.SYSTEM_CHECK63=};
ZZZZ404022	44800	=IF{WC.SW='S'}SET{WC.SYSTEM_CHECK='SECTION2'};
ZZZZ404022	44900	=IF{WC.SW='C'}SET{WC.SYSTEM_CHECK='CHECK'};
ZZZZ404022	45000	=IF{WC.SW='L'}SET{WC.SYSTEM_CHECK='SELECT21'};
ZZZZ404022	45100	=PROGRAM2_SKIP:
ZZZZ404022	45200	=SET{WC.SYSTEM_DEFAULT_TYPE
ZZZZ404022	45300	=   =WC.SYSTEM_DEFAULT_TYPE_?SYSTEM_PACKAGE?_?WCN?};
ZZZZ404022	45400	=SET{W0.SYSTEM_DEFAULT_LENGTH1
ZZZZ404022	45500	=   =W0.SYSTEM_DEFAULT_LENGTH1_?SYSTEM_PACKAGE?_?WCN?};
ZZZZ404022	45600	=SET{W0.SYSTEM_DEFAULT_LENGTH2
ZZZZ404022	45700	=   =W0.SYSTEM_DEFAULT_LENGTH2_?SYSTEM_PACKAGE?_?WCN?};
ZZZZ404022	45800	=SET{WC.SYSTEM_TYPE1=WC.SYSTEM_TYPE1_?SYSTEM_PACKAGE?_?WCN?};
ZZZZ404022	45900	*IF{WCN='QTY'}SET{WC.SYSTEM_TYPE1='-'};
ZZZZ404022	46000	=SET{W0.SYSTEM_LENGTH1
ZZZZ404022	46100	=   =W0.SYSTEM_LENGTH1_?SYSTEM_PACKAGE?_?WCN?};
ZZZZ404022	46200	=SET{W0.SYSTEM_LENGTH2
ZZZZ404022	46300	=   =W0.SYSTEM_LENGTH2_?SYSTEM_PACKAGE?_?WCN?};
ZZZZ404022	46400	=PROGRAM{2N,?_MM?_I_DICTIONARY_TABLE
ZZZZ404022	46402	=  ,SYSTEM_PART,WN.SYSTEM_TITLE
ZZZZ404022	46700	=  ,WC.SYSTEM_DEFAULT_TYPE,W0.SYSTEM_DEFAULT_LENGTH1
ZZZZ404022	46800	=  ,W0.SYSTEM_DEFAULT_LENGTH2,WC.SYSTEM_TYPE1
ZZZZ404022	46900	=  ,W0.SYSTEM_LENGTH1
ZZZZ404022	47000	=  ,W0.SYSTEM_LENGTH2,WC.SYSTEM_CHECK
ZZZZ404022	47100	=  ,WC.SYSTEM_CHECK61,WC.SYSTEM_CHECK62
ZZZZ404022	47200	=  ,WC.SYSTEM_CHECK63,WC.SYSTEM_CHECK64
ZZZZ404022	47300	=  ,WC.SYSTEM_CHECK65,WC.SYSTEM_CHECK66}
ZZZZ404022	47320	=  {SYSTEM_PERMISSION,WC.SYSTEM_DATA_NAME,SYSTEM_LANG}{};
ZZZZ404022	47500	NAME=
ZZZZ404022	47600	=SET{WC.SYSTEM_DATA_NAME='?SYSTEM_PACKAGE?_OWNER_?WCN?'
ZZZZ404022	47700	=   ,WN.SYSTEM_TITLE='親'};
ZZZZ404022	47800	COPY=PROGRAM2
ZZZZ404022	47900	=SET{WC.SYSTEM_DATA_NAME='?SYSTEM_PACKAGE?_MEMBER_?WCN?'
ZZZZ404022	48000	=    ,WN.SYSTEM_TITLE='子'};
ZZZZ404022	48100	COPY=PROGRAM2
ZZZZ404022	48200	=SET{WCN='PLACE',WC.SW='S'};
ZZZZ404022	48300	=SET{WC.SYSTEM_DATA_NAME='?SYSTEM_PACKAGE?_?WCN?'
ZZZZ404022	48400	=   ,WN.SYSTEM_TITLE='場所'};
ZZZZ404022	48500	COPY=PROGRAM2
ZZZZ404022	48600	=SET{WC.SYSTEM_DATA_NAME='?SYSTEM_PACKAGE?_OWNER_?WCN?',
ZZZZ404022	48700	=    WN.SYSTEM_TITLE='親場所'};
ZZZZ404022	48800	COPY=PROGRAM2
ZZZZ404022	48900	=SET{WC.SYSTEM_DATA_NAME='?SYSTEM_PACKAGE?_CALENDAR_?WCN?'
ZZZZ404022	49000	=  ,WN.SYSTEM_TITLE='暦場所'};
ZZZZ404022	49100	COPY=PROGRAM2
ZZZZ404022	49200	=SET{WCN='STORAGE',WC.SW='L'};
ZZZZ404022	49300	=SET{WC.SYSTEM_DATA_NAME='?SYSTEM_PACKAGE?_?WCN?'
ZZZZ404022	49400	=   ,WN.SYSTEM_TITLE='倉庫'};
ZZZZ404022	49500	COPY=PROGRAM2
ZZZZ404022	49600	=SET{WCN='COST',WC.SW=};
ZZZZ404022	49700	=SET{WC.SYSTEM_DATA_NAME='?SYSTEM_PACKAGE?_MATERIAL_?WCN?'
ZZZZ404022	49800	=   ,WN.SYSTEM_TITLE='材料単価'};
ZZZZ404022	49900	COPY=PROGRAM2
ZZZZ404022	50000	=SET{WC.SYSTEM_DATA_NAME
ZZZZ404022	50100	=    ='?SYSTEM_PACKAGE?_STANDARD_MATERIAL_?WCN?'
ZZZZ404022	50200	=   ,WN.SYSTEM_TITLE='標準材料単価'};
ZZZZ404022	50300	COPY=PROGRAM2
ZZZZ404022	50400	=SET{WC.SYSTEM_DATA_NAME='?SYSTEM_PACKAGE?_PROCESS_?WCN?'
ZZZZ404022	50500	=   ,WN.SYSTEM_TITLE='加工単価'};
ZZZZ404022	50600	COPY=PROGRAM2
ZZZZ404022	50700	=SET{WC.SYSTEM_DATA_NAME
ZZZZ404022	50800	=           ='?SYSTEM_PACKAGE?_STANDARD_PROCESS_?WCN?'
ZZZZ404022	50900	=   ,WN.SYSTEM_TITLE='標準加工単価'};
ZZZZ404022	51000	COPY=PROGRAM2
ZZZZ404022	51100	=SET{WC.SYSTEM_DATA_NAME='?SYSTEM_PACKAGE?_ONEROUS_?WCN?'
ZZZZ404022	51200	=   ,WN.SYSTEM_TITLE='有償単価'};
ZZZZ404022	51300	COPY=PROGRAM2
ZZZZ404022	51400	=SET{WC.SYSTEM_DATA_NAME
ZZZZ404022	51500	=   ='?SYSTEM_PACKAGE?_ONEROUS_BACK_?WCN?'
ZZZZ404022	51600	=   ,WN.SYSTEM_TITLE='有償買上単価'};
ZZZZ404022	51700	COPY=PROGRAM2
ZZZZ404022	51800	=SET{WCN='QTY',WC.SW=};
ZZZZ404022	51900	=SET{WC.SYSTEM_DATA_NAME='?SYSTEM_PACKAGE?_?WCN?'
ZZZZ404022	52000	=   ,WN.SYSTEM_TITLE='数量'};
ZZZZ404022	52100	COPY=PROGRAM2
ZZZZ404022	52200	=SET{WCN='QTY_SUM',WC.SW=};
ZZZZ404022	52300	=SET{WC.SYSTEM_DATA_NAME='?SYSTEM_PACKAGE?_?WCN?'
ZZZZ404022	52400	=   ,WN.SYSTEM_TITLE='集計数量'};
ZZZZ404022	52500	COPY=PROGRAM2
ZZZZ404022	52600	=SET{WC.SYSTEM_DATA_NAME='?SYSTEM_PACKAGE?_?WCN?_BEGIN'
ZZZZ404022	52700	= ,WN.SYSTEM_TITLE='初期集計数量'};
ZZZZ404022	52800	COPY=PROGRAM2
ZZZZ404022	52900	=SET{WCN='DENOMINATOR',WC.SW='C',WC.SYSTEM_CHECK61='(1,)'};
ZZZZ404022	53000	=SET{WC.SYSTEM_DATA_NAME='?SYSTEM_PACKAGE?_?WCN?'
ZZZZ404022	53100	=   ,WN.SYSTEM_TITLE='分母数量'};
ZZZZ404022	53200	COPY=PROGRAM2
ZZZZ404022	53300	=SET{WCN='NUMERATOR',WC.SW=};
ZZZZ404022	53400	=SET{WC.SYSTEM_DATA_NAME='?SYSTEM_PACKAGE?_?WCN?'
ZZZZ404022	53500	=   ,WN.SYSTEM_TITLE='分子数量'};
ZZZZ404022	53600	COPY=PROGRAM2
ZZZZ404022	53700	=SET{WCN='PERSON',WC.SW=};
ZZZZ404022	53800	=SET{WC.SYSTEM_DATA_NAME='?SYSTEM_PACKAGE?_?WCN?'
ZZZZ404022	53900	=   ,WN.SYSTEM_TITLE='担当者'};
ZZZZ404022	54000	COPY=PROGRAM2
ZZZZ404022	54100	***( ETC TABLE 作成 )***
ZZZZ404022	54200	=SET{WC.?SYSTEM_PACKAGE?_ETC='ZZ_CALENDAR_DAY'
ZZZZ404022	54300	= ,WN.?SYSTEM_PACKAGE?_ETC_NAME='暦日数'
ZZZZ404022	54400	= ,WC.?SYSTEM_PACKAGE?_ETC_DATA=365};
ZZZZ404022	54500	NAME=ETC
ZZZZ404022	54600	=PROGRAM{2N,?$WC.TABLE?_ETC_ID_TABLE
ZZZZ404022	54602	=  ,WN.?SYSTEM_PACKAGE?_ETC_NAME}
ZZZZ404022	54700	=  {WC.?SYSTEM_PACKAGE?_ETC}{};
ZZZZ404022	54900	=PROGRAM{2N,?$WC.TABLE?_ETC_TABLE
ZZZZ404022	54902	=  ,WC.?SYSTEM_PACKAGE?_ETC_DATA}
ZZZZ404022	55000	=  {WC.?SYSTEM_PACKAGE?_ETC}{};
ZZZZ404022	55200	NAME=
ZZZZ404022	55300	=SET{WC.?SYSTEM_PACKAGE?_ETC='ZZ_MRP_CLOSE_WEEK'
ZZZZ404022	55400	= ,WN.?SYSTEM_PACKAGE?_ETC_NAME='MRP締め週'
ZZZZ404022	55500	= ,WC.?SYSTEM_PACKAGE?_ETC_DATA=1};
ZZZZ404022	55600	COPY=ETC
ZZZZ404022	55700	=SET{WC.?SYSTEM_PACKAGE?_ETC='ZZ_MRP_START_DAY'
ZZZZ404022	55800	= ,WN.?SYSTEM_PACKAGE?_ETC_NAME='MRP開始日'
ZZZZ404022	55900	= ,WC.?SYSTEM_PACKAGE?_ETC_DATA=3};
ZZZZ404022	56000	COPY=ETC
ZZZZ404022	56100	=SET{WC.?SYSTEM_PACKAGE?_ETC='ZZ_PRODUCTION_YEAR'
ZZZZ404022	56200	= ,WN.?SYSTEM_PACKAGE?_ETC_NAME='生産期間年'
ZZZZ404022	56300	= ,WC.?SYSTEM_PACKAGE?_ETC_DATA=10};
ZZZZ404022	56400	COPY=ETC
ZZZZ404022	56500	=SET{WC.?SYSTEM_PACKAGE?_ETC='WW_MRP_DATE_START'
ZZZZ404022	56600	= ,WN.?SYSTEM_PACKAGE?_ETC_NAME='MRP開始日W'
ZZZZ404022	56700	= ,WC.?SYSTEM_PACKAGE?_ETC_DATA=};
ZZZZ404022	56800	COPY=ETC
ZZZZ404022	56900	=SET{WC.?SYSTEM_PACKAGE?_ETC='WW_MRP_DATE_STOP'
ZZZZ404022	57000	= ,WN.?SYSTEM_PACKAGE?_ETC_NAME='MRP終了日W'
ZZZZ404022	57100	= ,WC.?SYSTEM_PACKAGE?_ETC_DATA=};
ZZZZ404022	57200	COPY=ETC
ZZZZ404022	57300	=SET{WC.?SYSTEM_PACKAGE?_ETC='WW_MRP_RUN'
ZZZZ404022	57400	= ,WN.?SYSTEM_PACKAGE?_ETC_NAME='MRP処理中W'
ZZZZ404022	57500	= ,WC.?SYSTEM_PACKAGE?_ETC_DATA=0};
ZZZZ404022	57600	COPY=ETC
ZZZZ404022	57700	=SET{WC.?SYSTEM_PACKAGE?_ETC='WW_PRODUCTION_DATE'
ZZZZ404022	57800	= ,WN.?SYSTEM_PACKAGE?_ETC_NAME='生産計画日'
ZZZZ404022	57900	= ,WC.?SYSTEM_PACKAGE?_ETC_DATA=_TODAY};
ZZZZ404022	58000	COPY=ETC
ZZZZ404022	58100	REPEAT=9
ZZZZ404022	58200	=SET{WC.?SYSTEM_PACKAGE?_ETC_KEY='##'};
ZZZZ404022	58300	=PROGRAM{2N,?$WC.TABLE?_ETC_TABLE
ZZZZ404022	58302	=  ,WC.?SYSTEM_PACKAGE?_ETC_DATA}
ZZZZ404022	58400	=  {WC.?SYSTEM_PACKAGE?_ETC,WC.?SYSTEM_PACKAGE?_ETC_KEY}{};
ZZZZ404022	58600	REPEAT=
ZZZZ404022	58700	=SET{YES=};
ZZZZ404022	58800	PROGRAM=INPUT,&X1,?_MM?_I_DICTIONARY_TABLE
ZZZZ404022	58900	BEGIN
ZZZZ404022	59000	=SET{.SYSTEM_DATA_NAME=$SYSTEM_PACKAGE
ZZZZ404022	59100	=   ,.SYSTEM_LANG=$SYSTEM_LANG};
ZZZZ404022	59200	SET={KO}.=?&.SET&SYSTEM_PERMISSION?
ZZZZ404022	59300	SET={}.?&.SET&SYSTEM_DATA_NAME?
ZZZZ404022	59400	SET={}.?&.SET&SYSTEM_LANG?
ZZZZ404022	59500	*SET={}?&.SET&SYSTEM_TITLE?
ZZZZ404022	59600	*SET={}?&.SET&SYSTEM_MESSAGE?
ZZZZ404022	59700	*SET={}?&.SET&SYSTEM_COMMENT1?
ZZZZ404022	59800	*SET={}?&.SET&SYSTEM_COMMENT2?
ZZZZ404022	59900	*SET={}?&.SET&SYSTEM_TEST?
ZZZZ404022	60000	*SET={}?&.SET&SYSTEM_DEFAULT_TYPE?
ZZZZ404022	60100	*SET={}?&.SET&SYSTEM_DEFAULT_LENGTH1?
ZZZZ404022	60200	*SET={}?&.SET&SYSTEM_DEFAULT_LENGTH2?
ZZZZ404022	60300	*SET={}?&.SET&SYSTEM_TYPE1?
ZZZZ404022	60400	*SET={}?&.SET&SYSTEM_TYPE2?
ZZZZ404022	60500	*SET={}?&.SET&SYSTEM_LENGTH1?
ZZZZ404022	60600	*SET={}?&.SET&SYSTEM_LENGTH2?
ZZZZ404022	60700	*SET={}?&.SET&SYSTEM_CHECK?
ZZZZ404022	60800	*SET={}?&.SET&SYSTEM_CHECK61?
ZZZZ404022	60900	*SET={}?&.SET&SYSTEM_CHECK62?
ZZZZ404022	61000	*SET={}?&.SET&SYSTEM_CHECK63?
ZZZZ404022	61100	*SET={}?&.SET&SYSTEM_CHECK64?
ZZZZ404022	61200	*SET={}?&.SET&SYSTEM_CHECK65?
ZZZZ404022	61300	*SET={}?&.SET&SYSTEM_CHECK66?
ZZZZ404022	61400	DATA={K }?&.DATA&SYSTEM_DATA_NAME?
ZZZZ404022	61500	DATA={K }?&.DATA&SYSTEM_LANG?
ZZZZ404022	61600	DATA={  }?&.DATA&SYSTEM_TITLE?
ZZZZ404022	61700	DATA={  }?&.DATA&SYSTEM_MESSAGE?
ZZZZ404022	61800	DATA={  }?&.DATA&SYSTEM_COMMENT1?
ZZZZ404022	61900	DATA={  }?&.DATA&SYSTEM_COMMENT2?
ZZZZ404022	62000	DATA={  }?&.DATA&SYSTEM_TEST?
ZZZZ404022	62100	DATA={  }?&.DATA&SYSTEM_DEFAULT_TYPE?
ZZZZ404022	62200	DATA={  }?&.DATA&SYSTEM_DEFAULT_LENGTH1?
ZZZZ404022	62300	DATA={  }?&.DATA&SYSTEM_DEFAULT_LENGTH2?
ZZZZ404022	62400	DATA={  }?&.DATA&SYSTEM_TYPE1?
ZZZZ404022	62500	DATA={  }?&.DATA&SYSTEM_TYPE2?
ZZZZ404022	62600	DATA={  }?&.DATA&SYSTEM_LENGTH1?
ZZZZ404022	62700	DATA={  }?&.DATA&SYSTEM_LENGTH2?
ZZZZ404022	62800	DATA={  }?&.DATA&SYSTEM_CHECK?
ZZZZ404022	62900	DATA={  }?&.DATA&SYSTEM_CHECK61?
ZZZZ404022	63000	DATA={  }?&.DATA&SYSTEM_CHECK62?
ZZZZ404022	63100	DATA={  }?&.DATA&SYSTEM_CHECK63?
ZZZZ404022	63200	DATA={  }?&.DATA&SYSTEM_CHECK64?
ZZZZ404022	63300	DATA={  }?&.DATA&SYSTEM_CHECK65?
ZZZZ404022	63400	DATA={  }?&.DATA&SYSTEM_CHECK66?
ZZZZ404022	63500	COPY=@ZZZZZZ_SQL
ZZZZ404023	100	PROGRAM=NOT
ZZZZ404023	200	*ICTIONARY=ZZZZZZ_PACKAGE,ZZZZZZ_ANG
ZZZZ404023	300	*JOB_PERMISSION=AA
ZZZZ404023	400	BEGIN
ZZZZ404023	500	=SET{WC.PACKAGE='HATTYUU'};
ZZZZ404023	600	=SET{WC.LANG=_LANG_SYSTEM};
ZZZZ404023	700	=SET{WC.P=WC.PACKAGE+'_'};
ZZZZ404023	800	=SET{WC.T=_JOB_PERMISSION+_PART+'_'};
ZZZZ404023	820	FORM= 注意：許可'?_JOB_PERMISSION?'
ZZZZ404023	830	FORM2=の管理者でないと実行出来ません。
ZZZZ404023	900	PROGRAM=NOT
ZZZZ404023	1000	END
ZZZZ404023	1100	=EXIT{0};
ZZZZ404023	1200	FORM=
ZZZZ404023	1300	JA+FORM= サンプル発注システムのテーブルを作成します。
ZZZZ404023	1400	FORM= 注意：許可'?_JOB_PERMISSION?'
ZZZZ404023	1500	FORM2=の管理者でないと実行出来ません。
ZZZZ404023	1600	FORM= 注意：既に実行した人は下記をお読み下さい。
ZZZZ404023	1700	FORM=       ①該当TABLEは全てDROP（消す）します。
ZZZZ404023	1800	FORM=       ②どうしてもDROPしたくないときは手動でTABLEを更
ZZZZ404023	1900	FORM2=新し
ZZZZ404023	2000	FORM=         この処理は実行しないで下さい。(NO)
ZZZZ404023	2100	JA+FORM=◎次は、[サンプル発注 マスターメニュー]で各種マスタ
ZZZZ404023	2200	JA+FORM2=ーを作成して下さい。
ZZZZ404023	2300	FORM=  CHECK @@
ZZZZ404023	2400	DATA={N}DUMMY{1}
ZZZZ404023	2500	=EXIT3{CHECK};
ZZZZ404023	2600	DATA=CHECK{2}
ZZZZ404023	2700	=IF   {_PERMISSION!='ZZZZ'}
ZZZZ404023	2800	=   IF{_PERMISSION!='ZZZY'}
ZZZZ404023	2900	=                          ERROR{_PERMISSION!='ZZZY'};
ZZZZ404023	3000	FORM=   TOP NAME @
ZZZZ404023	3100	DATA={O}$WC.P{8}
ZZZZ404023	3200	FORM=       LANG @
ZZZZ404023	3300	DATA={O}$WC.LANG{2}
ZZZZ404023	3400	****************( PLACE_TABLE )*****************************
ZZZZ404023	3500	FORM=?$WC.T?PLACE_TABLE            @@@@ {ALL,YES,NO} ★注意：
ZZZZ404023	3600	FORM= (ZZZZ40021038-P-発注 場所マスター 更新で必ず自社を作成
ZZZZ404023	3700	FORM2=  してください。）
ZZZZ404023	3800	DATA=PLACE{}{ALL,YES,NO}
ZZZZ404023	3900	=IF{_DATA='NO'}EXIT{};
ZZZZ404023	4000	=DBO_DROP_TABLE{?_MM?_PLACE_TABLE};
ZZZZ404023	4100	=IF_ERROR_DBO_CREATE_TABLE{?_MM?_PLACE_TABLE,?WC.P?PLACE,*}
ZZZZ404023	4300	=  {?WC.P?PLACE_MARK,*,?WC.P?CALENDAR_MARK,*
ZZZZ404023	4400	=   ,?WC.P?CALENDAR_PLACE,*
ZZZZ404023	4500	=   ,?WC.P?HOUR,*,?WC.P?WEEK1_MARK,*,?WC.P?WEEK2_MARK,*
ZZZZ404023	4600	=   ,?WC.P?WEEK3_MARK,*,?WC.P?WEEK4_MARK,*,?WC.P?WEEK5_MARK,*
ZZZZ404023	4700	=   ,?WC.P?WEEK6_MARK,*,?WC.P?WEEK7_MARK,*
ZZZZ404023	4800	=   ,?WC.P?ONEROUS_MARK,*
ZZZZ404023	4900	=   ,?WC.P?OBJECT_MARK_A,*,?WC.P?OBJECT_MARK_B,*
ZZZZ404023	5000	=   ,?WC.P?OBJECT_MARK_E,*,?WC.P?OBJECT_MARK_F,*
ZZZZ404023	5100	=   ,?WC.P?OBJECT_MARK_M,*,?WC.P?OBJECT_MARK_P,*
ZZZZ404023	5200	=   ,?WC.P?OBJECT_MARK_S,*,?WC.P?OBJECT_MARK_W,*
ZZZZ404023	5300	=   ,?WC.P?OBJECT_MARK_Z,*,?WC.P?DISCONTINUE_MARK,*
ZZZZ404023	5400	=   ,?WC.P?PLACE_NAME,*}ERROR{};
ZZZZ404023	5500	=DBO_GRANT{?_MM?_PLACE_TABLE};
ZZZZ404023	5600	=IF{PLACE='ALL'}SET{OBJECT='ALL'};
ZZZZ404023	5700	=IF{PLACE='ALL'}EXIT3{OBJECT};
ZZZZ404023	5800	****************( OBJECT_TABLE )*****************************
ZZZZ404023	5900	FORM=?$WC.T?OBJECT_TABLE           @@@@ {ALL,YES,NO}
ZZZZ404023	6000	DATA=OBJECT{}{ALL,YES,NO}
ZZZZ404023	6100	=IF{_DATA='NO'}EXIT{};
ZZZZ404023	6200	=DBO_DROP_TABLE  {?_MM?_OBJECT_TABLE};
ZZZZ404023	6300	=IF_ERROR_DBO_CREATE_TABLE{?_MM?_OBJECT_TABLE,
ZZZZ404023	6400	=   ?WC.P?OBJECT,*}{?WC.P?OBJECT_MARK,*
ZZZZ404023	6500	=   ,?WC.P?BOM_MARK,*,?WC.P?ARRANGE_MARK,*
ZZZZ404023	6600	=   ,?WC.P?ONEROUS_MARK,*
ZZZZ404023	6700	=   ,?WC.P?STANDARD_MATERIAL_COST,*
ZZZZ404023	6800	=   ,?WC.P?STANDARD_PROCESS_COST,*
ZZZZ404023	6900	=   ,?WC.P?COST_OK,*,?WC.P?ONEROUS_COST,*,?WC.P?BOM_OK,*
ZZZZ404023	7000	=   ,?WC.P?PROCESS_OK,*,?WC.P?DISCONTINUE_MARK,*
ZZZZ404023	7100	=   ,?WC.P?OBJECT_NAME,*,?WC.P?UNIT,*}ERROR{};
ZZZZ404023	7200	=DBO_GRANT{?_MM?_OBJECT_TABLE};
ZZZZ404023	7300	=IF{OBJECT='ALL'}SET{STORAGE='ALL'};
ZZZZ404023	7400	=IF{OBJECT='ALL'}EXIT3{STORAGE};
ZZZZ404023	7500	****************( STORAGE_TABLE )*************************
ZZZZ404023	7600	FORM=?$WC.T?STORAGE_TABLE          @@@@ {ALL,YES,NO}
ZZZZ404023	7700	DATA=STORAGE{}{ALL,YES,NO}
ZZZZ404023	7800	=IF{_DATA='NO'}EXIT{};
ZZZZ404023	7900	=DBO_DROP_TABLE  {?_MM?_STORAGE_TABLE};
ZZZZ404023	8000	=IF_ERROR_DBO_CREATE_TABLE{?_MM?_STORAGE_TABLE,
ZZZZ404023	8100	=   ?WC.P?STORAGE,*}{?WC.P?STORAGE_NAME,*}ERROR{};
ZZZZ404023	8200	=DBO_GRANT{?_MM?_STORAGE_TABLE};
ZZZZ404023	8300	=IF{STORAGE='ALL'}SET{BOM='ALL'};
ZZZZ404023	8400	=IF{STORAGE='ALL'}EXIT3{BOM};
ZZZZ404023	8500	****************( BOM_TABLE )*******************************
ZZZZ404023	8600	FORM=?$WC.T?BOM_TABLE              @@@@ {ALL,YES,NO}
ZZZZ404023	8700	DATA=BOM{}{ALL,YES,NO}
ZZZZ404023	8800	=IF{_DATA='NO'}EXIT{};
ZZZZ404023	8900	=DBO_DROP_TABLE  {?_MM?_BOM_TABLE};
ZZZZ404023	9000	=IF_ERROR_DBO_CREATE_TABLE{?_MM?_BOM_TABLE,
ZZZZ404023	9100	=   ?WC.P?OWNER_OBJECT,*,?WC.P?MEMBER_OBJECT,*}
ZZZZ404023	9200	*,?WC.P?BEGIN_DATE,*}{?WC.P?END_DATE,*,?WC.P?NUMERATOR,*
ZZZZ404023	9300	=  {?WC.P?NUMERATOR,*,?WC.P?DENOMINATOR,*}ERROR{};
ZZZZ404023	9400	=DBO_GRANT{?_MM?_BOM_TABLE};
ZZZZ404023	9500	=IF{BOM='ALL'}SET{PROCESS='ALL'};
ZZZZ404023	9600	=IF{BOM='ALL'}EXIT3{PROCESS};
ZZZZ404023	9700	****************( PROCESS_TABLE )***************************
ZZZZ404023	9800	FORM=?$WC.T?PROCESS_TABLE          @@@@ {ALL,YES,NO}
ZZZZ404023	9900	DATA=PROCESS{}{ALL,YES,NO}
ZZZZ404023	10000	=IF{_DATA='NO'}EXIT{};
ZZZZ404023	10100	=DBO_DROP_TABLE  {?_MM?_PROCESS_TABLE};
ZZZZ404023	10200	=IF_ERROR_DBO_CREATE_TABLE{?_MM?_PROCESS_TABLE,
ZZZZ404023	10300	=   ?WC.P?OBJECT,*,?WC.P?PLACE,*}
ZZZZ404023	10400	=  {?WC.P?STORAGE,*,?WC.P?PERCENT,*,?WC.P?ARRANGE_MARK,*
ZZZZ404023	10500	*,?WC.P?START_DAYS,*,?WC.P?FINISH_DAYS,*
ZZZZ404023	10600	=   ,?WC.P?PROCESS_DAYS,*,?WC.P?LOT,*
ZZZZ404023	10700	=   ,?WC.P?LOT_MARK,*,?WC.P?MATERIAL_COST,*
ZZZZ404023	10800	=   ,?WC.P?PROCESS_COST,*
ZZZZ404023	10900	=   ,?WC.P?COST_OK,*,?WC.P?PERSON,*}ERROR{};
ZZZZ404023	11000	=DBO_GRANT{?_MM?_PROCESS_TABLE};
ZZZZ404023	11100	=IF{PROCESS='ALL'}SET{CALENDAR='ALL'};
ZZZZ404023	11200	=IF{PROCESS='ALL'}EXIT3{CALENDAR};
ZZZZ404023	11300	****************( CALENADR_TABLE )***************************
ZZZZ404023	11400	FORM=?$WC.T?CALENDAR_TABLE         @@@@ {ALL,YES,NO}
ZZZZ404023	11500	DATA=CALENDAR{}{ALL,YES,NO}
ZZZZ404023	11600	=IF{_DATA='NO'}EXIT{};
ZZZZ404023	11700	=DBO_DROP_TABLE  {?_MM?_CALENDAR_TABLE};
ZZZZ404023	11800	=IF_ERROR_DBO_CREATE_TABLE{?_MM?_CALENDAR_TABLE,
ZZZZ404023	11900	=   ?WC.P?PLACE,*,?WC.P?DATE,*}
ZZZZ404023	12000	=  {?WC.P?HOLIDAY,*,?WC.P?HOLIDAY_DEFAULT,*}ERROR{};
ZZZZ404023	12100	=DBO_GRANT{?_MM?_CALENDAR_TABLE};
ZZZZ404023	12200	=IF{CALENDAR='ALL'}SET{PRODUCTION='ALL'};
ZZZZ404023	12300	=IF{CALENDAR='ALL'}EXIT3{PRODUCTION};
ZZZZ404023	12400	****************( PRODUCTION_TABLE )*************************
ZZZZ404023	12500	FORM=?$WC.T?PRODUCTION_TABLE       @@@@ {ALL,YES,NO}
ZZZZ404023	12600	DATA=PRODUCTION{}{ALL,YES,NO}
ZZZZ404023	12700	=IF{_DATA='NO'}EXIT{};
ZZZZ404023	12800	=DBO_DROP_TABLE  {?_MM?_PRODUCTION_TABLE};
ZZZZ404023	12900	=IF_ERROR_DBO_CREATE_TABLE{?_MM?_PRODUCTION_TABLE,
ZZZZ404023	13000	=   ?WC.P?OBJECT,*,?WC.P?PLACE,*,?WC.P?DATE,*}
ZZZZ404023	13100	=  {?WC.P?QTY,*,?WC.P?PERSON,*}ERROR{};
ZZZZ404023	13200	=DBO_GRANT{?_MM?_PRODUCTION_TABLE};
ZZZZ404023	13300	=IF{PRODUCTION='ALL'}SET{PRODUCTION_W='ALL'};
ZZZZ404023	13400	=IF{PRODUCTION='ALL'}EXIT3{PRODUCTION_W};
ZZZZ404023	13500	****************( PRODUCTION_W_TABLE )*********************
ZZZZ404023	13600	FORM=?$WC.T?PRODUCTION_W_TABLE     @@@@ {ALL,YES,NO}
ZZZZ404023	13700	DATA=PRODUCTION_W{}{ALL,YES,NO}
ZZZZ404023	13800	=IF{_DATA='NO'}EXIT{};
ZZZZ404023	13900	=DBO_DROP_TABLE  {?_MM?_PRODUCTION_W_TABLE};
ZZZZ404023	14000	=IF_ERROR_DBO_CREATE_TABLE{?_MM?_PRODUCTION_W_TABLE,
ZZZZ404023	14100	=   ?WC.P?OBJECT,*,?WC.P?PLACE,*,?WC.P?DATE,*}
ZZZZ404023	14200	=  {?WC.P?QTY,*,?WC.P?PERSON,*}ERROR{};
ZZZZ404023	14300	=DBO_GRANT{?_MM?_PRODUCTION_W_TABLE};
ZZZZ404023	14400	=IF{PRODUCTION_W='ALL'}SET{STOCK_STORAGE='ALL'};
ZZZZ404023	14500	=IF{PRODUCTION_W='ALL'}EXIT3{STOCK_STORAGE};
ZZZZ404023	14600	****************( STOCK_STORAGE_TABLE )****************
ZZZZ404023	14700	FORM=?$WC.T?STOCK_STORAGE_TABLE    @@@@ {ALL,YES,NO}
ZZZZ404023	14800	DATA=STOCK_STORAGE{}{ALL,YES,NO}
ZZZZ404023	14900	=IF{_DATA='NO'}EXIT{};
ZZZZ404023	15000	=DBO_DROP_TABLE  {?_MM?_STOCK_STORAGE_TABLE};
ZZZZ404023	15100	=IF_ERROR_DBO_CREATE_TABLE{?_MM?_STOCK_STORAGE_TABLE,
ZZZZ404023	15200	=   ?WC.P?OBJECT,*,?WC.P?STORAGE,*,?WC.P?STORAGE_MARK,*
ZZZZ404023	15300	=   ,?WC.P?PRODUCTION_MARK,*}
ZZZZ404023	15400	=  {?WC.P?QTY_SUM,*,?WC.P?QTY_SUM_BEGIN,*,?WC.P?DATE,*}
ZZZZ404023	15500	=   ERROR{};
ZZZZ404023	15600	=DBO_GRANT{?_MM?_STOCK_STORAGE_TABLE};
ZZZZ404023	15700	=IF{STOCK_STORAGE='ALL'}SET{STOCK_STORAGE_W='ALL'};
ZZZZ404023	15800	=IF{STOCK_STORAGE='ALL'}EXIT3{STOCK_STORAGE_W};
ZZZZ404023	15900	****************( STOCK_STORAGE_W_TABLE )****************
ZZZZ404023	16000	FORM=?$WC.T?STOCK_STORAGE_W_TABLE  @@@@ {ALL,YES,NO}
ZZZZ404023	16100	DATA=STOCK_STORAGE_W{}{ALL,YES,NO}
ZZZZ404023	16200	=IF{_DATA='NO'}EXIT{};
ZZZZ404023	16300	=DBO_DROP_TABLE  {?_MM?_STOCK_STORAGE_W_TABLE};
ZZZZ404023	16400	=IF_ERROR_DBO_CREATE_TABLE{?_MM?_STOCK_STORAGE_W_TABLE,
ZZZZ404023	16500	=   ?WC.P?OBJECT,*,?WC.P?STORAGE,*,?WC.P?STORAGE_MARK,*}
ZZZZ404023	16600	=  {?WC.P?QTY_SUM,*,?WC.P?QTY_SUM_BEGIN,*,?WC.P?DATE,*}
ZZZZ404023	16700	=   ERROR{};
ZZZZ404023	16800	=DBO_GRANT{?_MM?_STOCK_STORAGE_W_TABLE};
ZZZZ404023	16900	=IF{STOCK_STORAGE_W='ALL'}SET{STOCK_PLACE='ALL'};
ZZZZ404023	17000	=IF{STOCK_STORAGE_W='ALL'}EXIT3{STOCK_PLACE};
ZZZZ404023	17100	****************( STOCK_PLACE_TABLE )****************
ZZZZ404023	17200	FORM=?$WC.T?STOCK_PLACE_TABLE      @@@@ {ALL,YES,NO}
ZZZZ404023	17300	DATA=STOCK_PLACE{}{ALL,YES,NO}
ZZZZ404023	17400	=IF{_DATA='NO'}EXIT{};
ZZZZ404023	17500	=DBO_DROP_TABLE  {?_MM?_STOCK_PLACE_TABLE};
ZZZZ404023	17600	=IF_ERROR_DBO_CREATE_TABLE{?_MM?_STOCK_PLACE_TABLE,
ZZZZ404023	17700	=   ?WC.P?OBJECT,*,?WC.P?PLACE,*}
ZZZZ404023	17800	=  {?WC.P?QTY_SUM,*,?WC.P?QTY_SUM_BEGIN,*,?WC.P?DATE,*}
ZZZZ404023	17900	=   ERROR{};
ZZZZ404023	18000	=DBO_GRANT{?_MM?_STOCK_PLACE_TABLE};
ZZZZ404023	18100	=IF{STOCK_PLACE='ALL'}SET{STOCK_PLACE_W='ALL'};
ZZZZ404023	18200	=IF{STOCK_PLACE='ALL'}EXIT3{STOCK_PLACE_W};
ZZZZ404023	18300	****************( STOCK_PLACE_W_TABLE )****************
ZZZZ404023	18400	FORM=?$WC.T?STOCK_PLACE_W_TABLE    @@@@ {ALL,YES,NO}
ZZZZ404023	18500	DATA=STOCK_PLACE_W{}{ALL,YES,NO}
ZZZZ404023	18600	=IF{_DATA='NO'}EXIT{};
ZZZZ404023	18700	=DBO_DROP_TABLE  {?_MM?_STOCK_PLACE_W_TABLE};
ZZZZ404023	18800	=IF_ERROR_DBO_CREATE_TABLE{?_MM?_STOCK_PLACE_W_TABLE,
ZZZZ404023	18900	=   ?WC.P?OBJECT,*,?WC.P?PLACE,*}
ZZZZ404023	19000	=  {?WC.P?QTY_SUM,*,?WC.P?QTY_SUM_BEGIN,*,?WC.P?DATE,*}
ZZZZ404023	19100	=   ERROR{};
ZZZZ404023	19200	=DBO_GRANT{?_MM?_STOCK_PLACE_W_TABLE};
ZZZZ404023	19300	=IF{STOCK_PLACE_W='ALL'}SET{SLIP_DO='ALL'};
ZZZZ404023	19400	=IF{STOCK_PLACE_W='ALL'}EXIT3{SLIP_DO};
ZZZZ404023	19500	****************( SLIP_DO_TABLE )****************
ZZZZ404023	19600	FORM=?$WC.T?SLIP_DO_TABLE          @@@@ {ALL,YES,NO}
ZZZZ404023	19700	=DBO_GRANT{?_MM?_SLIP_DO_TABLE};
ZZZZ404023	19800	DATA=SLIP_DO{}{ALL,YES,NO}
ZZZZ404023	19900	=IF{_DATA='NO'}EXIT{};
ZZZZ404023	20000	=DBO_DROP_TABLE  {?_MM?_SLIP_DO_TABLE};
ZZZZ404023	20100	=IF_ERROR_DBO_CREATE_TABLE{?_MM?_SLIP_DO_TABLE,?WC.P?NO,*}
ZZZZ404023	20300	=  {?WC.P?OBJECT,*,?WC.P?DATE,*,?WC.P?PLACE,*
ZZZZ404023	20400	=   ,?WC.P?OWNER_PLACE,*,?WC.P?QTY_SUM,*
ZZZZ404023	20500	=   ,?WC.P?PRODUCTION_MARK,*
ZZZZ404023	20600	=   ,?WC.P?ONEROUS_MARK,*,?WC.P?ONEROUS_COST,*
ZZZZ404023	20700	=   ,?WC.P?MATERIAL_COST,*,?WC.P?PROCESS_COST,*
ZZZZ404023	20800	=   ,?WC.P?SLIP_MARK,*,?WC.P?START_DATE,*,?WC.P?STORAGE,*
ZZZZ404023	20900	=   ,?WC.P?IN_MARK,*,?WC.P?OUT_MARK,*}ERROR{};
ZZZZ404023	21000	=DBO_GRANT{?_MM?_SLIP_DO_TABLE};
ZZZZ404023	21100	=IF{SLIP_DO='ALL'}SET{SLIP_PLAN='ALL'};
ZZZZ404023	21200	=IF{SLIP_DO='ALL'}EXIT3{SLIP_PLAN};
ZZZZ404023	21300	****************( SLIP_PLAN_TABLE )****************
ZZZZ404023	21400	FORM=?$WC.T?SLIP_PLAN_TABLE        @@@@ {ALL,YES,NO}
ZZZZ404023	21500	DATA=SLIP_PLAN{}{ALL,YES,NO}
ZZZZ404023	21600	=IF{_DATA='NO'}EXIT{};
ZZZZ404023	21700	=DBO_DROP_TABLE  {?_MM?_SLIP_PLAN_TABLE};
ZZZZ404023	21800	=IF_ERROR_DBO_CREATE_TABLE{?_MM?_SLIP_PLAN_TABLE,?WC.P?NO,*}
ZZZZ404023	22000	=  {?WC.P?OBJECT,*,?WC.P?DATE,*,?WC.P?PLACE,*
ZZZZ404023	22100	=   ,?WC.P?OWNER_PLACE,*,?WC.P?QTY_SUM,*
ZZZZ404023	22200	=   ,?WC.P?PRODUCTION_MARK,*
ZZZZ404023	22300	=   ,?WC.P?ONEROUS_MARK,*,?WC.P?ONEROUS_COST,*
ZZZZ404023	22400	=   ,?WC.P?MATERIAL_COST,*,?WC.P?PROCESS_COST,*
ZZZZ404023	22500	=   ,?WC.P?SLIP_MARK,*,?WC.P?START_DATE,*
ZZZZ404023	22600	=   ,?WC.P?STORAGE,*}ERROR{};
ZZZZ404023	22700	=DBO_GRANT{?_MM?_SLIP_PLAN_TABLE};
ZZZZ404023	22800	=IF{SLIP_PLAN='ALL'}SET{SLIP_PLAN_W='ALL'};
ZZZZ404023	22900	=IF{SLIP_PLAN='ALL'}EXIT3{SLIP_PLAN_W};
ZZZZ404023	23000	****************( SLIP_PLAN_W_TABLE )****************
ZZZZ404023	23100	FORM=?$WC.T?SLIP_PLAN_W_TABLE      @@@@ {ALL,YES,NO}
ZZZZ404023	23200	DATA=SLIP_PLAN_W{}{ALL,YES,NO}
ZZZZ404023	23300	=IF{_DATA='NO'}EXIT{};
ZZZZ404023	23400	=DBO_DROP_TABLE  {?_MM?_SLIP_PLAN_W_TABLE};
ZZZZ404023	23500	=IF_ERROR_DBO_CREATE_TABLE{?_MM?_SLIP_PLAN_W_TABLE,
ZZZZ404023	23600	=   ?WC.P?NO,*}
ZZZZ404023	23700	=  {?WC.P?OBJECT,*,?WC.P?DATE,*,?WC.P?PLACE,*
ZZZZ404023	23800	=   ,?WC.P?OWNER_PLACE,*,?WC.P?QTY_SUM,*
ZZZZ404023	23900	=   ,?WC.P?PRODUCTION_MARK,*
ZZZZ404023	24000	=   ,?WC.P?ONEROUS_MARK,*,?WC.P?ONEROUS_COST,*
ZZZZ404023	24100	=   ,?WC.P?MATERIAL_COST,*,?WC.P?PROCESS_COST,*
ZZZZ404023	24200	=   ,?WC.P?SLIP_MARK,*,?WC.P?START_DATE,*
ZZZZ404023	24300	=   ,?WC.P?STORAGE,*}ERROR{};
ZZZZ404023	24400	=DBO_GRANT{?_MM?_SLIP_PLAN_W_TABLE};
ZZZZ404023	24500	=IF{SLIP_PLAN_W='ALL'}SET{SLIP_NO='ALL'};
ZZZZ404023	24600	=IF{SLIP_PLAN_W='ALL'}EXIT3{SLIP_NO};
ZZZZ404023	24700	****************( SLIP_N0_TABLE )****************
ZZZZ404023	24800	FORM=?$WC.T?SLIP_NO_TABLE          @@@@ {ALL,YES,NO}
ZZZZ404023	24900	DATA=SLIP_NO{}{ALL,YES,NO}
ZZZZ404023	25000	=IF{_DATA='NO'}EXIT{};
ZZZZ404023	25100	=DBO_DROP_TABLE  {?_MM?_SLIP_NO_TABLE};
ZZZZ404023	25200	=IF_ERROR_DBO_CREATE_TABLE{?_MM?_SLIP_NO_TABLE,
ZZZZ404023	25300	=   ?WC.P?NO_KEY,*}{?WC.P?NO_END,*}ERROR{};
ZZZZ404023	25400	=DBO_GRANT{?_MM?_SLIP_NO_TABLE};
ZZZZ404023	25500	=SQL{INSERT INTO ?_MM?_SLIP_NO_TABLE
ZZZZ404023	25600	=   (?WC.P?NO_KEY,?WC.P?NO_END)VALUES('SLIP','10000000000')};
ZZZZ404023	25700	=IF{SLIP_NO='ALL'}SET{SLIP_NO_KEEP='ALL'};
ZZZZ404023	25800	=IF{SLIP_NO='ALL'}EXIT3{SLIP_NO_KEEP};
ZZZZ404023	25900	****************( SLIP_N0_KEEP_TABLE )****************
ZZZZ404023	26000	FORM=?$WC.T?SLIP_NO_KEEP_TABLE     @@@@ {ALL,YES,NO}
ZZZZ404023	26100	DATA=SLIP_NO_KEEP{}{ALL,YES,NO}
ZZZZ404023	26200	=IF{_DATA='NO'}EXIT{};
ZZZZ404023	26300	=DBO_DROP_TABLE  {?_MM?_SLIP_NO_KEEP_TABLE};
ZZZZ404023	26400	=IF_ERROR_DBO_CREATE_TABLE{?_MM?_SLIP_NO_KEEP_TABLE,
ZZZZ404023	26500	=   ?WC.P?NO_BEGIN,*,?WC.P?NO_END,*,?WC.P?DATE,*}{}ERROR{};
ZZZZ404023	26600	=DBO_GRANT{?_MM?_SLIP_NO_KEEP_TABLE};
ZZZZ404023	26700	=IF{SLIP_NO_KEEP='ALL'}SET{REAL_COST='ALL'};
ZZZZ404023	26800	=IF{SLIP_NO_KEEP='ALL'}EXIT3{REAL_COST};
ZZZZ404023	26900	****************( SLIP_WORK_TABLE )****************
ZZZZ404023	27000	*ORM1=SLIP_WORK_TABLE        @@@@ {ALL,YES,NO}
ZZZZ404023	27100	*ATA=SLIP_WORK{}{ALL,YES,NO}
ZZZZ404023	27200	*IF{_DATA='NO'}EXIT{};
ZZZZ404023	27300	*DBO_DROP_TABLE  {?_MM?_SLIP_WORK_TABLE};
ZZZZ404023	27400	*IF_ERROR_DBO_CREATE_TABLE{?_MM?_SLIP_WORK_TABLE,
ZZZZ404023	27500	*    ?WC.P?NO,*,?WC.P?OBJECT,*,?WC.P?QTY_SUM,*
ZZZZ404023	27600	*   ,ZZ_MARK,C,1}{}ERROR{};
ZZZZ404023	27700	*DBO_GRANT{?_MM?_SLIP_WORK_TABLE};
ZZZZ404023	27800	*IF{SLIP_WORK='ALL'}SET{REAL_COST='ALL'};
ZZZZ404023	27900	*IF{SLIP_WORK='ALL'}EXIT3{REAL_COST};
ZZZZ404023	28000	****************( REAL_COST_TABLE )****************
ZZZZ404023	28100	FORM=?$WC.T?REAL_COST_TABLE        @@@@ {ALL,YES,NO}
ZZZZ404023	28200	DATA=REAL_COST{}{ALL,YES,NO}
ZZZZ404023	28300	=IF{_DATA='NO'}EXIT{};
ZZZZ404023	28400	=DBO_DROP_TABLE  {?_MM?_REAL_COST_TABLE};
ZZZZ404023	28500	=IF_ERROR_DBO_CREATE_TABLE{?_MM?_REAL_COST_TABLE,
ZZZZ404023	28600	=   ?WC.P?OBJECT,*,?WC.P?PLACE,*,?WC.P?BEGIN_DATE,*}
ZZZZ404023	28700	=  {?WC.P?END_DATE,*,?WC.P?MATERIAL_COST,*
ZZZZ404023	28800	=   ,?WC.P?PROCESS_COST,*}ERROR{};
ZZZZ404023	28900	=DBO_GRANT{?_MM?_REAL_COST_TABLE};
ZZZZ404023	29000	*IF{REAL_COST='ALL'}SET{REAL_COST='ALL'};
ZZZZ404023	29100	*IF{REAL_COST='ALL'}EXIT3{REAL_COST};
ZZZZ404023	29200	****************( END )****************************
ZZZZ404023	29300	FORM=                  @@@@ {,END}
ZZZZ404023	29400	DATA=END{}{END}
ZZZZ404023	29500	=IF{_DATA='END'}EXIT{_END};
ZZZZ404040	100	PROGRAM=NOT,&X1,?_MM?_I_MENU_TABLE
ZZZZ404040	200	CONTROL=PROGRAM,?#ZZZZZZ_ARG_BEGIN_ENTER?
ZZZZ404040	300	BEGIN_END
ZZZZ404040	400	NAME=DROP_TABLE
ZZZZ404040	500	REPEAT=?_A_F?
ZZZZ404040	600	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ404040	700	REPEAT=
ZZZZ404040	800	NAME=
ZZZZ404040	900	*TABLE=&X1,?_MM?_I_MENU_TABLE
ZZZZ404040	1000	TABLE=&X2,?_MM?_I_PROGRAM_TABLE
ZZZZ404040	1100	TABLE=&X3,?_MM?_I_HELP_TABLE
ZZZZ404040	1200	BEGIN
ZZZZ404040	1300	=IF{#ZZZZZZ_ARG_INSTALL='YES'}SET{COPY='HALT',YES='YES'};
ZZZZ404040	1400	=SET{M1='Z',WC1.MENU1=39};
ZZZZ404040	1500	=SET{WC2.MENU1=99,WC2.MENU2=99,M3=7};
ZZZZ404040	1600	FORM=******************************************************
ZZZZ404040	1700	JA+FORM=●当システムは物、工程、構成、場所、倉庫、混在マスタ
ZZZZ404040	1800	JA+FORM2=ーを構築し、
ZZZZ404040	1900	JA+FORM=  生産計画からMRPにより仕掛数（在庫含む）と
ZZZZ404040	2000	JA+FORM2=前回までの発注数を引いて
ZZZZ404040	2100	JA+FORM=  今回発注数を計算するシステムです。
ZZZZ404040	2200	*JA+FORM=注意:小規模システムを想定しています、中規模以上の
ZZZZ404040	2300	*JA+FORM2=場合は
ZZZZ404040	2400	*JA+FORM=     'MRP 主処理'(旧ZZZZ999966)のSQL1{},SQL1_NEXT{}
ZZZZ404040	2500	*JA+FORM2=の部分を
ZZZZ404040	2600	*JA+FORM=　 　SQLのカーソルに変更しないと時間がかかります。
ZZZZ404040	2700	JA+FORM=注意:あくまでもサンプルシステムで,発注数は納期を無視
ZZZZ404040	2800	JA+FORM2=している等、
ZZZZ404040	2900	JA+FORM=     単純な構造のシステムになっているので、ニーズ
ZZZZ404040	3000	JA+FORM2=に合わせて、
ZZZZ404040	3100	JA+FORM=     システムを改善して下さい。
ZZZZ404040	3200	FORM=******************************************************
ZZZZ404040	3300	FORM= 再インストールで初期化されるので、実際に運用する場合
ZZZZ404040	3400	FORM=は'COPY'で必ず別の場所にシステムをコピーしてから
ZZZZ404040	3500	FORM2=運用して下さい。
ZZZZ404040	3600	FORM=  とりあえず実験的に使用する場合は'USE'とすればこの場で
ZZZZ404040	3700	FORM2=使えるようになります。
ZZZZ404040	3800	FORM=  尚、'HALT'とすると'USE'で復活したサンプルメニューを
ZZZZ404040	3900	FORM2=消すことが出来ます。
ZZZZ404040	4000	FORM= 対象：(1)=ZZZZ40(メニュー),(2)=ZZZZ99996(時間起動,MRP)
ZZZZ404040	4100	FORM= @@@@@ {COPY,USE,HALT}
ZZZZ404040	4200	DATA=COPY{}{COPY,USE,HALT}
ZZZZ404040	4300	=IF{_DATA='COPY'}EXIT{};
ZZZZ404040	4400	=IF{_DATA='HALT'}SET{WC.SYSTEM_TEST='HALT'}JUMP{};
ZZZZ404040	4500	=                SET{WC.SYSTEM_TEST=};
ZZZZ404040	4600	=SQL{UPDATE ?&.TABLE? SET ?_VRE&WC.SYSTEM_TEST?
ZZZZ404040	4700	=   ,?_Z_UPDATE_CHANGE? WHERE SYSTEM_MENU0='ZZZZ' AND
ZZZZ404040	4800	=   (SYSTEM_MENU1='40' AND NOT(SYSTEM_MENU2='00'
ZZZZ404040	4900	=   OR SYSTEM_MENU2='40' AND SYSTEM_MENU3 IN('00','40'))
ZZZZ404040	5000	=   OR SYSTEM_MENU1='99'
ZZZZ404040	5100	=   AND SYSTEM_MENU2='99' AND SYSTEM_MENU3 LIKE '6%')};
ZZZZ404040	5200	=EXIT{_END};
ZZZZ404040	5300	FORM=******************************************************
ZZZZ404040	5400	FORM=(1) ZZZ Z 40 (メニュー) (2) ZZZZ 99 99 6 (時間起動,MRP)
ZZZZ404040	5500	FORM=(1) ZZZ @ @@            (2) ZZZZ @@ @@ @
ZZZZ404040	5600	DATA=M1{1,1,Z}
ZZZZ404040	5700	DATA=WC1.SYSTEM_MENU1{2,2,9}{(01,40)}
ZZZZ404040	5800	=SET{WC1.SYSTEM_MENU0='ZZZ'+M1};
ZZZZ404040	5900	=SQL_SET{W0C}{SELECT COUNT(*) FROM ?&.TABLE? WHERE
ZZZZ404040	6000	=   ?_VRE&WC1.SYSTEM_MENU0? AND ?_VRE&WC1.SYSTEM_MENU1?
ZZZZ404040	6100	=   AND Z_CANCEL=' '};
ZZZZ404040	6200	=IF{W0C!=0}ERROR{MENU FOUND};
ZZZZ404040	6300	DATA=WC2.SYSTEM_MENU1{2,2,9}{(50,99)}
ZZZZ404040	6400	DATA=WC2.SYSTEM_MENU2{2,2,9}{(01,99)}
ZZZZ404040	6500	DATA=M3{1,1,9}
ZZZZ404040	6600	=SET{WC2.SYSTEM_MENU0='ZZZZ'};
ZZZZ404040	6700	=SQL_SET{W0C}{SELECT COUNT(*) FROM ?&.TABLE? WHERE
ZZZZ404040	6800	=    ?_VRE&WC2.SYSTEM_MENU0? AND ?_VRE&WC2.SYSTEM_MENU1?
ZZZZ404040	6900	=   AND ?_VRE&WC2.SYSTEM_MENU2? AND SYSTEM_MENU3 LIKE '?M3?%'
ZZZZ404040	7000	=   AND Z_CANCEL=' '};
ZZZZ404040	7100	=IF{W0C!=0}ERROR{TIME FOUND};
ZZZZ404040	7200	FORM= @@@ {YES,NO}
ZZZZ404040	7300	FORM=
ZZZZ404040	7400	DATA=YES{4}{YES,NO}
ZZZZ404040	7500	=IF{_DATA!='YES'}EXIT{_END};
ZZZZ404040	7600	COPY=DROP_TABLE
ZZZZ404040	7700	=COPY_TABLE{?_WORK_TABLE?A,?&.TABLE?
ZZZZ404040	7800	=   ,WHERE SYSTEM_MENU0='ZZZZ'
ZZZZ404040	7900	=   AND SYSTEM_MENU1='40' AND Z_CANCEL=' '};
ZZZZ404040	8000	=COPY_TABLE{?_WORK_TABLE?B,?&X2.TABLE?
ZZZZ404040	8100	=   ,WHERE SYSTEM_JOB LIKE 'ZZZZ40%' AND Z_CANCEL=' '};
ZZZZ404040	8200	=COPY_TABLE{?_WORK_TABLE?C,?&X3.TABLE?
ZZZZ404040	8210	=   ,WHERE SYSTEM_JOB LIKE 'ZZZZ40%' AND Z_CANCEL=' '};
ZZZZ404040	8300	=COPY_TABLE{?_WORK_TABLE?D,?&.TABLE?,
ZZZZ404040	8400	=   WHERE SYSTEM_MENU0='ZZZZ' AND SYSTEM_MENU1='99'
ZZZZ404040	8500	=   AND SYSTEM_MENU2='99' AND SYSTEM_MENU3 LIKE '6%'
ZZZZ404040	8600	=   AND Z_CANCEL=' '};
ZZZZ404040	8700	=COPY_TABLE{?_WORK_TABLE?E,?&X2.TABLE?
ZZZZ404040	8800	=   ,WHERE SYSTEM_JOB LIKE 'ZZZZ99996%'  AND Z_CANCEL=' '};
ZZZZ404040	8900	=COPY_TABLE{?_WORK_TABLE?F,?&X3.TABLE?
ZZZZ404040	8910	=   ,WHERE SYSTEM_JOB LIKE 'ZZZZ99996%'  AND Z_CANCEL=' '};
ZZZZ404040	9000	=SET{W_REPLACE1=
ZZZZ404040	9100	=  '''ZZZZ40'',''?WC1.SYSTEM_MENU0??WC1.SYSTEM_MENU1?'''};
ZZZZ404040	9200	=SQL{UPDATE ?_WORK_TABLE?A SET ?_VRE&WC1.SYSTEM_MENU0?
ZZZZ404040	9300	=   ,?_VRE&WC1.SYSTEM_MENU1?
ZZZZ404040	9400	=   ,SYSTEM_COPY1=REPLACE(SYSTEM_COPY1,?W_REPLACE1?)
ZZZZ404040	9500	=   ,SYSTEM_TEST=' ',SYSTEM_MENU
ZZZZ404040	9600	=   =REPLACE(SYSTEM_MENU,?_N?'サンプル発注',?_N?'発注')};
ZZZZ404040	9700	=SQL{UPDATE ?_WORK_TABLE?B SET
ZZZZ404040	9800	=   SYSTEM_JOB  =REPLACE(SYSTEM_JOB  ,?W_REPLACE1?)};
ZZZZ404040	9900	=SQL{UPDATE ?_WORK_TABLE?C SET
ZZZZ404040	10000	=   SYSTEM_JOB =REPLACE(SYSTEM_JOB ,?W_REPLACE1?)
ZZZZ404040	10100	=   ,SYSTEM_CALL=REPLACE(SYSTEM_CALL,?W_REPLACE1?)};
ZZZZ404040	10200	=SET{W_REPLACE2='''ZZZZ99996'',''?WC2.SYSTEM_MENU0?'
ZZZZ404040	10300	=   +'?WC2.SYSTEM_MENU1??WC2.SYSTEM_MENU2??M3?'''};
ZZZZ404040	10400	=SQL{UPDATE ?_WORK_TABLE?D SET ?_VRE&WC2.SYSTEM_MENU0?
ZZZZ404040	10500	=   ,?_VRE&WC2.SYSTEM_MENU1?,?_VRE&WC2.SYSTEM_MENU2?
ZZZZ404040	10600	=   ,?_CL?SYSTEM_MENU3
ZZZZ404040	10700	=   ='?M3?'?_C??_SUBSTR(SYSTEM_MENU3;2;1)??_CR?
ZZZZ404040	10800	=   ,SYSTEM_COPY1=REPLACE(SYSTEM_COPY1,?W_REPLACE2?)
ZZZZ404040	10900	=   ,SYSTEM_TEST=' ',SYSTEM_MENU
ZZZZ404040	11000	=   =REPLACE(SYSTEM_MENU,?_N?'SAMPLE MRP',?_N?'MRP')};
ZZZZ404040	11100	=SQL{UPDATE ?_WORK_TABLE?E SET
ZZZZ404040	11200	=   SYSTEM_JOB  =REPLACE(SYSTEM_JOB  ,?W_REPLACE2?)};
ZZZZ404040	11300	=SQL{UPDATE ?_WORK_TABLE?F SET
ZZZZ404040	11400	=   SYSTEM_JOB =REPLACE(SYSTEM_JOB ,?W_REPLACE2?)
ZZZZ404040	11500	=   ,SYSTEM_CALL=REPLACE(SYSTEM_CALL,?W_REPLACE2?)};
ZZZZ404040	11600	=REPLACE_ALL{?&.TABLE?,?_WORK_TABLE?A,?&.DATA?}{?&.KEY?}
ZZZZ404040	11700	=  {*O*.?_VRE&WC1.SYSTEM_MENU0? AND
ZZZZ404040	11800	=   *O*.?_VRE&WC1.SYSTEM_MENU1?}{};
ZZZZ404040	11810	=SET{WC.LIKE=WC1.SYSTEM_MENU0+WC1.SYSTEM_MENU1+'%'};
ZZZZ404040	11900	=REPLACE_ALL{?&X2.TABLE?,?_WORK_TABLE?B,?&X2.DATA?}
ZZZZ404040	12000	=  {?&X2.KEY?}{*O*.SYSTEM_JOB LIKE '?WC.LIKE?'}{};
ZZZZ404040	12300	=REPLACE_ALL{?&X3.TABLE?,?_WORK_TABLE?C,?&X3.DATA?}
ZZZZ404040	12400	=  {?&X3.KEY?}{*O*.SYSTEM_JOB LIKE '?WC.LIKE?'}{};
ZZZZ404040	12500	=REPLACE_ALL{?&.TABLE?,?_WORK_TABLE?D,?&.DATA?}{?&.KEY?}
ZZZZ404040	12600	=  {*O*.?_VRE&WC2.SYSTEM_MENU0? AND
ZZZZ404040	12700	=   *O*.?_VRE&WC2.SYSTEM_MENU1? AND
ZZZZ404040	12800	=   *O*.?_VRE&WC2.SYSTEM_MENU2? AND
ZZZZ404040	12900	=   *O*.SYSTEM_MENU3 LIKE '?M3?%'}{};
ZZZZ404040	13000	=SET{WC.LIKE=WC2.SYSTEM_MENU0+WC2.SYSTEM_MENU1
ZZZZ404040	13100	=           +WC2.SYSTEM_MENU2+M3+'%'};
ZZZZ404040	13200	=REPLACE_ALL{?&X2.TABLE?,?_WORK_TABLE?E,?&X2.DATA?}
ZZZZ404040	13300	=  {?&X2.KEY?}{*O*.SYSTEM_JOB LIKE '?WC.LIKE?'}{};
ZZZZ404040	13500	=REPLACE_ALL{?&X3.TABLE?,?_WORK_TABLE?F,?&X3.DATA?}
ZZZZ404040	13600	=  {?&X3.KEY?}{*O*.SYSTEM_JOB LIKE '?WC.LIKE?'}{};
ZZZZ404040	13700	=EXIT{_END};
ZZZZ999850	100	F+|H+=EXIT{};
ZZZZ999850	200	******( 日付け 設定　 )**************
ZZZZ999850	300	=SET{WN.DATE_TIME=_TODAY_TIME};
ZZZZ999850	400	=SET{WN.DATE_TIME=WN.DATE_TIME[1;8]+'.'+WN.DATE_TIME[9;6]};
ZZZZ999850	500	******( 作業ファイルを 消す )******************
ZZZZ999850	600	NAME=ERASE
ZZZZ999850	700	=ERASE_FILE{?_WORK?.TMP};
ZZZZ999850	800	=ERASE_FILE{?_WORK?.TXT};
ZZZZ999850	900	NAME=
ZZZZ999850	1000	***( MSSQL M )***********************************************
ZZZZ999850	1100	M+=SET{WN.RT1=_REAL_TEST[1;1]+'_M'};
ZZZZ999850	1200	M+=SET{WN.RT2=_REAL_TEST[1;1]+'_W'};
ZZZZ999850	1300	M+=SET{WN.RT3='T_M',WN.RT4='T_W'};
ZZZZ999850	1400	M+REPEAT=@ZZZZZZ_PERMISSION_COUNT
ZZZZ999850	1500	M+REPEAT2=4 (R_M,R_W,T_M,T_W)
ZZZZ999850	1600	***( LOG M )****************************************
ZZZZ999850	1700	M+=SET{WN='I_?_SYSTEM?_?WN.RT$$?_?@ZZZZZZ_PERMISSION_NO##?'};
ZZZZ999850	1800	M+$1-$3-=JUMP{DAT};
ZZZZ999850	1900	M+=MESSAGE{BACKUP LOG ?WN? TO ?WN?_LOG WITH INIT};
ZZZZ999850	2000	M+=IF_ERROR_DBO_SQL{BACKUP LOG ?WN? TO ?WN?_LOG WITH INIT}
ZZZZ999850	2100	M+=   JUMP{ERR};
ZZZZ999850	2200	M+=JUMP{DAT};
ZZZZ999850	2300	M+=ERR:IF{_DB_ERROR!='M3013'}IF{_DB_ERROR!='M4214'}ERROR{};
ZZZZ999850	2400	M+=MESSAGE{SKIP BACKUP LOG ?WN? (_DB_ERROR='M3013','M4214')};
ZZZZ999850	2500	M+=DAT:
ZZZZ999850	2600	****(  DAT M )****************************************
ZZZZ999850	2700	M+=MESSAGE{BACKUP DATABASE ?WN? TO ?WN?_DAT WITH INIT};
ZZZZ999850	2800	M+=DBO_SQL{BACKUP DATABASE ?WN? TO ?WN?_DAT WITH INIT};
ZZZZ999850	2900	M+REPEAT=
ZZZZ999850	3000	*******( パス 抜き出し )**************
ZZZZ999850	3100	=SET{WN.PATH=};
ZZZZ999850	3200	D+|L+=SET{WN.P='ZZZZZZ_INSTALL'};
ZZZZ999850	3300	P+=   SET{WN.P='ZZZZZZ_DATABASE'};
ZZZZ999850	3400	D+|L+|P+=SET{WN.PATH=};
ZZZZ999850	3500	D+|L+|P+=SQL_SET{WN.PATH}
ZZZZ999850	3600	D+|L+|P+=  {SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ999850	3610	D+|L+|P+=   WHERE SYSTEM_KEY1 ='ZZZZZZ_SYSTEM'
ZZZZ999850	3700	D+|L+|P+=   AND SYSTEM_KEY2='?WN.P?_PATH'
ZZZZ999850	3800	D+|L+|P+=   AND Z_CANCEL=' '};
ZZZZ999850	3900	D+|L+|P+=IF{_SQL_SET_COUNT=0}
ZZZZ999850	4000	D+|L+|P+=   ERROR{ETC,ZZZZZZ_SYSTEM,?WN.P?_PATH};
ZZZZ999850	4100	=SET{WN.PATH=WN.PATH@LOWER};
ZZZZ999850	4200	******( DRIVE 抜き出し )**************
ZZZZ999850	4300	=SET{WN.DRV2='!',WN.DRV14='!'};
ZZZZ999850	4400	=SQL_SET{WN.DATA}
ZZZZ999850	4500	=  {SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ999850	4510	=   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999850	4600	=   AND SYSTEM_KEY2='ZZZZZZ_INSTALL_CFG1'
ZZZZ999850	4700	=   AND Z_CANCEL=' '}
ZZZZ999850	4800	=IF{_SQL_SET_COUNT=0}
ZZZZ999850	4900	=   ERROR{ETC,SYSTEM,INSTALL_CFG1};
ZZZZ999850	5000	=SPLIT_CHAR{WN.SPLIT}{WN.DATA}{','};
ZZZZ999850	5100	=IF{_SPLIT_CHAR_COUNT<4}ERROR{INSTALL_CFG1};
ZZZZ999850	5200	D+=SET{WN.DRV14=WN.SPLIT1};
ZZZZ999850	5300	D+=IF{WN.DRV14=}ERROR{INSTALL_CFG1-1 IS NULL};
ZZZZ999850	5400	=SET{WN.DRV2=WN.SPLIT2};
ZZZZ999850	5500	=IF{WN.DRV2=}ERROR{INSTALL_CFG1-2 IS NULL};
ZZZZ999850	5600	M+=SET{WN.DRV14=WN.SPLIT4};
ZZZZ999850	5700	M+=IF{WN.DRV14=}ERROR{INSTALL_CFG1-4 IS NULL};
ZZZZ999850	5800	*****( VACUUM  P 実行 )*****
ZZZZ999850	5900	P+=DBO_SQL{VACUUM};
ZZZZ999850	6000	=SET{WN.ERR_SW=0};
ZZZZ999850	6100	****( LOG ファイル情報事前 抜き出し )***********************
ZZZZ999850	6200	P-O-=JUMP{DIR_SKIP};
ZZZZ999850	6300	=BAT_SERVER{ZZZZZZBACKUP,DIR ?WN.DRV2? I?_P?BACKUP_LOG_?_DB?}
ZZZZ999850	6310	*  {DIR ?WN.DRV2? I?_P?BACKUP_LOG_?_DB?};
ZZZZ999850	6312	=;
ZZZZ999850	6400	*REPEAT=
ZZZZ999850	6500	=DIR_SKIP:
ZZZZ999850	6600	*****( ORACLE LOG 吐き出し,O12でエラーの為中止 )**********
ZZZZ999850	6700	***O+=DBO_SQL{ALTER SYSTEM ARCHIVE LOG CURRENT};
ZZZZ999850	6800	*****( ORACLE TABLESPACE の数だけ　繰り返す )*******
ZZZZ999850	6900	O+=DBO_SQL1{SELECT TABLESPACE_NAME,FILE_NAME
ZZZZ999850	7000	O+=   FROM DBA_DATA_FILES
ZZZZ999850	7100	O+=   ORDER BY 1};
ZZZZ999850	7200	O+=LOOP:SQL1_NEXT{WN.NAME,WN.PATH}JUMP{FIN};
ZZZZ999850	7300	*****( バックアップファイル作成 )*******************
ZZZZ999850	7400	O+=DBO_SQL{ALTER TABLESPACE ?WN.NAME? BEGIN BACKUP};
ZZZZ999850	7410	***(注意 JAVA版以外 POSTGRESQL はここでエラーと成ります)***
ZZZZ999850	7412	P+=IF{_DB_SOFT>='P15'}JUMP{P15};
ZZZZ999850	7420	P+=IF_ERROR_DBO_SQL{SELECT PG_STOP_BACKUP()}NOP{}; VER28*
ZZZZ999850	7500	P+=DBO_SQL{SELECT PG_START_BACKUP('?WN.DATE_TIME?')};
ZZZZ999850	7502	P+=JUMP{J};
ZZZZ999850	7503	P+=P15:
ZZZZ999850	7510	P+=IF_ERROR_DBO_SQL{SELECT PG_BACKUP_STOP()}NOP{}; VER28*
ZZZZ999850	7520	P+=DBO_SQL{SELECT PG_BACKUP_START('?WN.DATE_TIME?')};
ZZZZ999850	7522	P+=J:
ZZZZ999850	7600	=IF_ERROR_BAT_SERVER{ZZZZZZBACKUP,?_DB? ?_SERVER_NAME?
ZZZZ999850	7700	=   ?WN.DATE_TIME? ?WN.DRV2? ?WN.DRV14? ?WN.PATH?}
ZZZZ999850	7800	=   SET{WN.ERR=_ERROR,WN.ERR_SW=1};
ZZZZ999850	7900	O+=DBO_SQL{ALTER TABLESPACE ?WN.NAME? END BACKUP};
ZZZZ999850	7910	P+=IF{_DB_SOFT>='P15'}JUMP{P15};
ZZZZ999850	8000	P+=DBO_SQL{SELECT PG_STOP_BACKUP()};
ZZZZ999850	8001	P+=JUMP{J};
ZZZZ999850	8002	P+=P15:
ZZZZ999850	8005	P+=DBO_SQL{SELECT PG_BACKUP_STOP()};
ZZZZ999850	8006	P+=J:
ZZZZ999850	8100	=IF{WN.ERR_SW=1}ERROR{?WN.ERR?};
ZZZZ999850	8200	****( バッチ処理エラー判定 ?_WORK?.TMP )**********
ZZZZ999850	8300	*READ_OPEN{1,?_TMP??_WORK?.TMP,/};
ZZZZ999850	8400	*READ_NEXT{1,WN}ERROR{?_TMP??_WORK?.TMP IS NULL};
ZZZZ999850	8500	*READ_CLOSE{1};
ZZZZ999850	8600	*IF_NOT{WN/'!!! '}ERROR{?WN?};
ZZZZ999850	8700	O+=BACK{LOOP};
ZZZZ999850	8800	O+=FIN:
ZZZZ999850	8900	****( 古いログファイルを消す ?_WORK?.TXT )**********
ZZZZ999850	9000	M+|D+=JUMP{ZIP};
ZZZZ999850	9100	=READ_OPEN{1,?_TMP??_WORK?.TXT,/};
ZZZZ999850	9200	I+W+=SET{W0=19};
ZZZZ999850	9300	W-=COMPUTE{W0=WN.DRV2@LENGTH+18};
ZZZZ999850	9400	I+=COMPUTE{W0+=_SYSTEM@LENGTH,W0+=1};
ZZZZ999850	9500	L+=SET{_LOWER='.INDEX',WN.INDEX=_LOWER};
ZZZZ999850	9600	=LOOP:READ_NEXT{1,WN}JUMP{FIN};
ZZZZ999850	9700	L+=IF{WN%WN.INDEX}BACK{LOOP};
ZZZZ999850	9800	W+I+=SET{WN.F1=WN[1;1],WN.F2=WN[W0]};
ZZZZ999850	9900	W+I-=SET{WN.F1=WN.DRV2,WN.F2=WN};
ZZZZ999850	10000	W-=SET{WN.F1=WN.DRV2,WN.F2=WN[W0]};
ZZZZ999850	10100	=BAT_SERVER{ZZZZZZBACKUP,ERASE_LOG ?_DB? ?WN.F1? ?WN.F2?};
ZZZZ999850	10200	=BACK{LOOP};
ZZZZ999850	10300	=FIN:READ_CLOSE{1};
ZZZZ999850	10400	REPEAT=
ZZZZ999850	10500	*****( ファイルを圧縮 )*****
ZZZZ999850	10600	=ZIP:
ZZZZ999850	10700	=SET{WN=
ZZZZ999850	10800	=  'I.BACKUP.?_SYSTEM?.?_DB?.?_SERVER_NAME?.?WN.DATE_TIME?'};
ZZZZ999850	10900	=ZIP{      ?WN?};
ZZZZ999850	11000	=ERASE_DIR{?WN?};
ZZZZ999850	11100	COPY=ERASE
ZZZZ999851	100	F+|H+=EXIT{};
ZZZZ999851	200	*============================================================
ZZZZ999851	300	*===( 準備処理 )=============================================
ZZZZ999851	400	*============================================================
ZZZZ999851	500	=ERASE_FILE{?_WORK?.TMP};
ZZZZ999851	600	=ERASE_FILE{?_WORK?.TXT};
ZZZZ999851	700	******( KEEP DRIVE 抜き出し )**************
ZZZZ999851	800	=SQL_SET{WN}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ999851	910	=   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999851	1000	=   AND SYSTEM_KEY2='ZZZZZZ_INSTALL_CFG1'
ZZZZ999851	1100	=   AND Z_CANCEL=' '}
ZZZZ999851	1110	=IF{_SQL_SET_COUNT=0}
ZZZZ999851	1120	=   ERROR{ETC,ZZZZZZ_SYSTEM,ZZZZZZ_INSTALL_CFG1};
ZZZZ999851	1200	=SPLIT_CHAR{WN.SPLIT}{WN}{','};
ZZZZ999851	1300	=IF{_SPLIT_CHAR_COUNT<5}ERROR{INSTALL_CFG1};
ZZZZ999851	1400	=SET{WN.DRV=WN.SPLIT5};
ZZZZ999851	1500	=IF{WN.DRV=}ERROR{INSTALL_CFG1/5 IS NULL};
ZZZZ999851	1600	W-=SET{WN.DRV=WN.DRV@LOWER};
ZZZZ999851	1700	******( BACKUP_DATE 抜き出し )**************
ZZZZ999851	1800	=SQL_SET{WN.DATA}
ZZZZ999851	1900	=  {SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ999851	1910	=   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999851	2000	=   AND SYSTEM_KEY2='ZZZZZZ_BACKUP_DAY'
ZZZZ999851	2100	=   AND Z_CANCEL=' '};
ZZZZ999851	2120	=IF{_SQL_SET_COUNT=0}
ZZZZ999851	2130	=   ERROR{ETC,ZZZZZZ_SYSTEM,ZZZZZZ_BACKUP_DAY};
ZZZZ999851	2200	******( DATE 計算 )**************
ZZZZ999851	2210	=SET{WN.DATA_MINUS='-'+WN.DATA};
ZZZZ999851	2300	=SQL_SET{WN.DATE}{SELECT
ZZZZ999851	2400	*D-= ?_MP_ZZZZ?ZZ_DAY_DATE_FUNC(?_NOW_DATE?,-?WN.DATA?)
ZZZZ999851	2500	*D+= REPLACE(DATEADD(DAY,-?WN.DATA?,?_NOW_DATE?),'-','')
ZZZZ999851	2510	=   ?_DAY_DATE((_NOW_DATE);(WN.DATA_MINUS))?
ZZZZ999851	2600	=   ?_FROM_DUAL?};
ZZZZ999851	2700	*============================================================
ZZZZ999851	2800	*=====( 古いファイルを消す ERASE_DAT )===================
ZZZZ999851	2900	*============================================================
ZZZZ999851	3000	******( ファイル一覧 取得 ?_WORK?.TXT )**********************
ZZZZ999851	3100	=SET{WN.D='I?_P?BACKUP'};
ZZZZ999851	3200	=SET{WN.TOP='I.BACKUP.?_SYSTEM?.'};
ZZZZ999851	3300	=SET{WN.F=WN.TOP+'?_DB?.?_SERVER_NAME?.'};
ZZZZ999851	3320	U+=SET{WN.DIR='/'+WN.DRV+'/'+WN.D+'/',WN.F=WN.DIR+WN.F};
ZZZZ999851	3400	=COMPUTE{W0.START=WN.TOP@LENGTH+1};
ZZZZ999851	3410	U+=COMPUTE{W0.START+=WN.DIR@LENGTH};
ZZZZ999851	3500	=BAT_SERVER{ZZZZZZBACKUP,DIR ?WN.DRV? ?WN.D?};
ZZZZ999851	3600	=READ_OPEN{1,?_TMP??_WORK?.TXT,/};
ZZZZ999851	3700	=READ_NEXT1:READ_NEXT{1,WN}JUMP{READ_END1};
ZZZZ999851	3800	=IF_NOT{WN/'?WN.F?'}BACK{READ_NEXT1};
ZZZZ999851	3900	=IF{    WN>'?WN.F??WN.DATE?'}BACK{READ_NEXT1};
ZZZZ999851	3910	=SET{WN.FL=WN[W0.START]};
ZZZZ999851	4000	=BAT_SERVER{ZZZZZZBACKUP,ERASE_DAT ?WN.DRV? ?WN.FL?};
ZZZZ999851	4200	=BACK{READ_NEXT1};
ZZZZ999851	4300	=READ_END1:READ_CLOSE{1};
ZZZZ999851	4400	*============================================================
ZZZZ999851	4500	*=====( 新しいファイルを移動 MOVE_DAT )======================
ZZZZ999851	4600	*============================================================
ZZZZ999851	4700	=BAT_SERVER{ZZZZZZBACKUP,MOVE_DAT ?WN.DRV?};
ZZZZ999851	4800	****( バッチ処理エラー判定 ?_WORK?.TMP )**********
ZZZZ999851	4900	*READ_OPEN{1,?_TMP??_WORK?.TMP,/};
ZZZZ999851	5000	*READ_NEXT{1,WN}ERROR{?_TMP??_WORK?.TMP IS NULL};
ZZZZ999851	5100	*FIN:READ_CLOSE{1};
ZZZZ999851	5200	*IF_NOT{WN/'!!! '}ERROR{?WN?};
ZZZZ999851	5300	=ERASE_FILE{?_WORK?.TMP};
ZZZZ999851	5400	=ERASE_FILE{?_WORK?.TXT};
ZZZZ999852	100	F+|H+=EXIT{};
ZZZZ999852	200	******( SAVE BACKUP 先 ドライブ 抜き出し)*****
ZZZZ999852	300	******( 空白時は処理をしません )*****
ZZZZ999852	400	=SQL_SET{WN.SAVE}
ZZZZ999852	500	=  {SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ999852	600	=   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999852	700	=   AND SYSTEM_KEY2='ZZZZZZ_BACKUP_SAVE'
ZZZZ999852	800	=   AND Z_CANCEL=' '};
ZZZZ999852	900	=IF{_SQL_SET_COUNT=0}
ZZZZ999852	1000	=   ERROR{ETC,ZZZZZZ_SYSTEM,ZZZZZZ_BACKUP_SAVE};
ZZZZ999852	1100	=IF{WN.SAVE=}MESSAGE{SKIP SAVE}EXIT{}; 空白時処理をしません*
ZZZZ999852	1200	*U+=SET{WN.SAVE=WN.SAVE@LOWER};
ZZZZ999852	1300	U+=IF{WN.SAVE!/'/'}SET{WN.SAVE='/'+WN.SAVE};
ZZZZ999852	1400	******( BACKUP DRIVE 抜き出し )**************
ZZZZ999852	1500	=SQL_SET{WN}
ZZZZ999852	1600	=  {SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ999852	1700	=   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999852	1800	=   AND SYSTEM_KEY2='ZZZZZZ_INSTALL_CFG1'
ZZZZ999852	1900	=   AND Z_CANCEL=' '};
ZZZZ999852	2000	=IF{_SQL_SET_COUNT=0}
ZZZZ999852	2100	=   ERROR{ETC,ZZZZZZ_SYSTEM,ZZZZZZ_INSTALL_CFG1};
ZZZZ999852	2200	=SPLIT_CHAR{WN.SPLIT}{WN}{','};
ZZZZ999852	2300	=IF{_SPLIT_CHAR_COUNT<5}ERROR{INSTALL_CFG1};
ZZZZ999852	2400	=SET{WN.DRV=WN.SPLIT5};
ZZZZ999852	2500	=IF{WN.DRV=}ERROR{INSTALL_CFG1/5 IS NULL};
ZZZZ999852	2600	*U+=SET{WN.DRV=WN.DRV@LOWER};
ZZZZ999852	2700	*U+=IF{WN.DRV!/'/'}SET{WN.DRV='/'+WN.DRV};
ZZZZ999852	2800	******( BACKUP_SAVE )**************
ZZZZ999852	2900	=BAT_SERVER{ZZZZZZBACKUP,SAVE ?WN.DRV? ?WN.SAVE? I BACKUP};
ZZZZ999950	100	*****( TODAY 設定 )********
ZZZZ999950	200	=SET{WC.T=_TODAY_TIME};
ZZZZ999950	300	=SET{WC.TODAY_YMD=WC.T[1;4]+'-'+WC.T[5;2]+'-'+WC.T[7;2]};
ZZZZ999950	400	=SET{WC.TODAY_HM=WC.T[9;2]+'-'+WC.T[11;2]};
ZZZZ999950	500	=SET{WC.TODAY=WC.T[1;8]};
ZZZZ999950	600	*****( 作業テーブルドロップ　?_WORK_TABLE?A )***************
ZZZZ999950	700	NAME=DROP
ZZZZ999950	800	REPEAT=_A_A
ZZZZ999950	900	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ999950	1000	REPEAT=
ZZZZ999950	1100	NAME=
ZZZZ999950	1200	*****( 作業テーブル作成 ?_WORK_TABLE?A )***************
ZZZZ999950	1300	=CREATE_TABLE2{?_WORK_TABLE?A}{SYSTEM_HH,2,SYSTEM_MIN,2};
ZZZZ999950	1400	*****( ATを実行し時間予約状況を?_WORK?.TXTに出力する )***
ZZZZ999950	1500	=BAT_SERVER{ZZZZZZETC,AT ?_WORK?.TXT};
ZZZZ999950	1600	*****( 自分のシステムの時間予約状況を?_WORK_TABLE?Aに作成 )**
ZZZZ999950	1700	=READ_OPEN{2,?_TMP??_WORK?.TXT,/};
ZZZZ999950	1800	=SET{WN.CHK=':'+_P+'I'+_P,WN.QUEUE=};
ZZZZ999950	1900	=READ_NEXT2:READ_NEXT{2,WC.D,WN.U}JUMP{READ_END2};
ZZZZ999950	2000	=SET{WN.1=,WN.2=,WN.3=,WN.4=,WN.5=,WN.6=};
ZZZZ999950	2100	=SET{WN.7=,WN.8=,WN.9=,WN.10=,WN.11=,WN.12=};
ZZZZ999950	2200	=IF{WN.U=}JUMP{WINDOWS};
ZZZZ999950	2300	=LINUX:SPLIT_CHAR{WN.}{WN.U}{};
ZZZZ999950	2400	=IF{WN.QUEUE!=}JUMP{SKIP};
ZZZZ999950	2500	*SQL_SET{WN.QUEUE}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ999950	2600	*   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM' AND Z_CANCEL=' '
ZZZZ999950	2700	*   AND SYSTEM_KEY2='ZZZZZZ_LINUX_AT_Q_?_REAL_TEST?'};
ZZZZ999950	2800	*IF{_SQL_SET_COUNT=0}ERROR
ZZZZ999950	2900	*  {ETC,ZZZZZZ_SYSTEM,LINUX_AT_Q_?_REAL_TEST? NOT FOUND};
ZZZZ999950	3000	=PROGRAM{0,?_MM?_ETC_TABLE,WN.SYSTEM_ETC=}
ZZZZ999950	3100	=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999950	3200	=  ,WC.SYSTEM_KEY2='ZZZZZZ_LINUX_AT_Q_?_REAL_TEST?'}{};
ZZZZ999950	3300	=IF{_PROGRAM_COUNT=0}
ZZZZ999950	3400	=   ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? NOT FOUND};
ZZZZ999950	3500	=SET{WN.QUEUE=WN.SYSTEM_ETC};
ZZZZ999950	3600	=SKIP:IF{WN.3!=WN.QUEUE}BACK{READ_NEXT2}; (QUEUEで判定)*
ZZZZ999950	3700	=IF{WN.1!=WC.TODAY_YMD}BACK{READ_NEXT2};NEXT分は除外*
ZZZZ999950	3800	=SET{WN.AT_DD=WN.1,WC.SYSTEM_HH=WN.2[1;2]
ZZZZ999950	3900	=   ,WC.SYSTEM_MIN=WN.2[4;2]};
ZZZZ999950	4000	=JUMP{INS};
ZZZZ999950	4100	=WINDOWS:
ZZZZ999950	4200	=SPLIT_CHAR{WN.}{WC.D}{};
ZZZZ999950	4300	=SET{WC.TIME=WN.3};
ZZZZ999950	4400	=IF{WN.4[2;4]=WN.CHK}
ZZZZ999950	4500	=   IF{WN.8=_REAL_TEST}IF{_SYSTEM=WN.9}JUMP{SKIP};
ZZZZ999950	4600	=SET{WC.TIME=WN.4};
ZZZZ999950	4700	=IF{WN.5[2;4]=WN.CHK}
ZZZZ999950	4800	=   IF{WN.9=_REAL_TEST}IF{_SYSTEM=WN.10}JUMP{SKIP};
ZZZZ999950	4900	=BACK{READ_NEXT2};
ZZZZ999950	5000	=SKIP:
ZZZZ999950	5100	=SET{WC.SYSTEM_HH='0'+WC.TIME[1;1],
ZZZZ999950	5200	=   ,WC.SYSTEM_MIN=WC.TIME[3;2]};
ZZZZ999950	5300	=IF{WC.TIME[3;1]=':'}
ZZZZ999950	5400	=   SET{WC.SYSTEM_HH=WC.TIME[1;2]
ZZZZ999950	5500	=   ,WC.SYSTEM_MIN=WC.TIME[4;2]};
ZZZZ999950	5600	=INS:
ZZZZ999950	5700	=SQL{INSERT INTO ?_WORK_TABLE?A
ZZZZ999950	5900	=   VALUES('?WC.SYSTEM_HH?','?WC.SYSTEM_MIN?')};
ZZZZ999950	6000	=BACK{READ_NEXT2};
ZZZZ999950	6100	=READ_END2:READ_CLOSE{2};
ZZZZ999950	6200	****( 今日の年月日WC.TODAYに設定 )*************************
ZZZZ999950	6300	*=SET{WC.TODAY=_TODAY};
ZZZZ999950	6400	*=SET{WC.TODAY=WC.TODAY[1;8]};
ZZZZ999950	6500	****( 今日が休日か判定 )***************
ZZZZ999950	6600	*( ?_MM?_CALENDAR_TABLEにデータが無い場合はNOT_FOUNDへ行く)
ZZZZ999950	6700	*SQL_SET{WC.H}
ZZZZ999950	6800	*  {SELECT SYSTEM_HOLIDAY FROM ?_MM?_CALENDAR_TABLE
ZZZZ999950	6900	*   WHERE SYSTEM_DATE='?WC.TODAY?'};
ZZZZ999950	7000	*IF{_SQL_SET_COUNT=0}JUMP{NOT_FOUND};
ZZZZ999950	7100	=PROGRAM{0,?_MM?_CALENDAR_TABLE,WC.SYSTEM_HOLIDAY=}
ZZZZ999950	7200	=  {WC.SYSTEM_DATE=WC.TODAY}{};
ZZZZ999950	7300	=IF{WC.SYSTEM_HOLIDAY!=}
ZZZZ999950	7400	=   ERROR{TODAY IS HOLIDAY}; 休日はエラー終了*
ZZZZ999950	7500	****( 今週の土曜日抜き出し WC.SATURDAY )******************
ZZZZ999950	7600	=SQL_SET{WC.SATURDAY}{SELECT MIN(SYSTEM_DATE) FROM
ZZZZ999950	7700	=   ?_MM?_CALENDAR_TABLE WHERE ?_WEEK_CHAR(SYSTEM_DATE)?=7
ZZZZ999950	7800	=   AND SYSTEM_DATE>='?WC.TODAY?'};
ZZZZ999950	7900	=IF{_SQL_SET_COUNT=0}ERROR{WC.SATURDAY};
ZZZZ999950	8000	****( 今日が週末から稼働何日前か計算 WC.WEEK_END )*********
ZZZZ999950	8100	=SQL_SET{WC.WEEK_END}{SELECT COUNT(*) FROM
ZZZZ999950	8200	=   ?_MM?_CALENDAR_TABLE WHERE SYSTEM_DATE>='?WC.TODAY?'
ZZZZ999950	8300	=   AND SYSTEM_DATE<='?WC.SATURDAY?' AND SYSTEM_HOLIDAY=' '};
ZZZZ999950	8400	=IF{_SQL_SET_COUNT=0}ERROR{WC.WEEK_END};
ZZZZ999950	8500	=IF{WC.WEEK_END@COUNT=1}SET{WC.WEEK_END='0'+WC.WEEK_END};
ZZZZ999950	8600	****( 今週の日曜日抜き出し WC.SUNDAY )********************
ZZZZ999950	8700	=SQL_SET{WC.SUNDAY}{SELECT MAX(SYSTEM_DATE) FROM
ZZZZ999950	8800	=   ?_MM?_CALENDAR_TABLE WHERE ?_WEEK_CHAR(SYSTEM_DATE)?=1
ZZZZ999950	8900	=   AND SYSTEM_DATE<='?WC.TODAY?'};
ZZZZ999950	9000	=IF{_SQL_SET_COUNT=0}ERROR{WC.SUNDAY};
ZZZZ999950	9100	****( 今日が週初から稼働何日先か計算 WC.WEEK_BEGIN )*******
ZZZZ999950	9200	=SQL_SET{WC.WEEK_BEGIN}{SELECT COUNT(*) FROM
ZZZZ999950	9300	=   ?_MM?_CALENDAR_TABLE WHERE SYSTEM_DATE<='?WC.TODAY?'
ZZZZ999950	9400	=   AND SYSTEM_DATE>='?WC.SUNDAY?' AND SYSTEM_HOLIDAY=' '};
ZZZZ999950	9500	=IF{_SQL_SET_COUNT=0}ERROR{WC.WEEK_BEGIN};
ZZZZ999950	9600	=IF{WC.WEEK_BEGIN@COUNT=1}
ZZZZ999950	9610	=   SET{WC.WEEK_BEGIN='0'+WC.WEEK_BEGIN};
ZZZZ999950	9700	****( 今日が月初から稼働何日先か計算 WC.MONTH_BEGIN )*******
ZZZZ999950	9800	=SQL_SET{WC.MONTH_BEGIN}{SELECT COUNT(*) FROM
ZZZZ999950	9900	=   ?_MM?_CALENDAR_TABLE WHERE SYSTEM_DATE<='?WC.TODAY?'
ZZZZ999950	10000	=   AND SYSTEM_DATE LIKE '?WC.TODAY[1;6]?%'
ZZZZ999950	10100	=   AND SYSTEM_HOLIDAY=' '};
ZZZZ999950	10200	=IF{_SQL_SET_COUNT=0}ERROR{WC.MONTH_BEGIN};
ZZZZ999950	10300	=SET{W0L=WC.MONTH_BEGIN@COUNT};
ZZZZ999950	10400	=IF{W0L=1}SET{WC.MONTH_BEGIN='0'+WC.MONTH_BEGIN};
ZZZZ999950	10500	****( 今日が月末から稼働何日前か計算 WC.MONTH_END )*******
ZZZZ999950	10600	=SQL_SET{WC.MONTH_END}{SELECT COUNT(*) FROM
ZZZZ999950	10700	=   ?_MM?_CALENDAR_TABLE WHERE SYSTEM_DATE>='?WC.TODAY?'
ZZZZ999950	10800	=   AND SYSTEM_DATE LIKE '?WC.TODAY[1;6]?%'
ZZZZ999950	10900	=   AND SYSTEM_HOLIDAY=' '};
ZZZZ999950	11000	=IF{_SQL_SET_COUNT=0}ERROR{WC.MONTH_END};
ZZZZ999950	11100	=SET{W0L=WC.MONTH_END@COUNT};
ZZZZ999950	11200	=IF{W0L=1}SET{WC.MONTH_END='0'+WC.MONTH_END};
ZZZZ999950	11300	*****( 本日時間起動すべき処理抜き出し )**********************
ZZZZ999950	11400	=SQL1{SELECT SYSTEM_HH,SYSTEM_MIN
ZZZZ999950	11500	=   ,?_CL?SYSTEM_MENU0?_C?SYSTEM_MENU1?_C?SYSTEM_MENU2?_CR?
ZZZZ999950	11600	=   ,SYSTEM_REAL_STATUS FROM ?_MM?_I_TIME_TABLE WHERE
ZZZZ999950	11700	=   (SYSTEM_TIMING='D' OR
ZZZZ999950	11710	=     (SYSTEM_TIMING='W' AND
ZZZZ999950	11800	=       ((SYSTEM_BEGIN_END='+'
ZZZZ999950	11810	=         AND SYSTEM_SHIFT='?WC.WEEK_BEGIN?') OR
ZZZZ999950	11900	=        (SYSTEM_BEGIN_END='-'
ZZZZ999950	11910	=         AND SYSTEM_SHIFT='?WC.WEEK_END?'))) OR
ZZZZ999950	12000	=     ((SYSTEM_TIMING='M' OR
ZZZZ999950	12100	=       SYSTEM_TIMING='?WC.TODAY[5;2]?') AND
ZZZZ999950	12200	=       ((SYSTEM_BEGIN_END='+'
ZZZZ999950	12210	=         AND SYSTEM_SHIFT='?WC.MONTH_BEGIN?') OR
ZZZZ999950	12300	=        (SYSTEM_BEGIN_END='-'
ZZZZ999950	12310	=         AND SYSTEM_SHIFT='?WC.MONTH_END?'))))
ZZZZ999950	12400	=  AND Z_CANCEL=' ' AND SYSTEM_TEST=' ' ORDER BY 1,2};
ZZZZ999950	12500	*******************************************************
ZZZZ999950	12600	****( 繰り返しの開始 )*********************************
ZZZZ999950	12700	*******************************************************
ZZZZ999950	12800	=LOOP:
ZZZZ999950	12900	=SQL1_NEXT{WC.SYSTEM_HH,WC.SYSTEM_MIN,WN.JOBG,WN.STATUS}
ZZZZ999950	13000	=   JUMP{FIN};
ZZZZ999950	13100	=IF{WN.STATUS='ERROR'}SET{WN.STATUS=}; 前回エラーは続行*
ZZZZ999950	13200	=IF{WN.STATUS!=}JUMP{SKIP}; 処理中はSKIPへ行く*
ZZZZ999950	13300	****( 現在時間+2分を(時=WC.H,分=WC.M）設定 )****
ZZZZ999950	13400	=SET{WXTIME=_TODAY_TIME};
ZZZZ999950	13500	=SET{W0H=WXTIME[9;2],W0M=WXTIME[11;2]};
ZZZZ999950	13600	=COMPUTE{W0M+=2};
ZZZZ999950	13700	=IF{W0M>59}
ZZZZ999950	13800	=   COMPUTE{W0M-=60,W0H+=1}
ZZZZ999950	13900	=   IF{W0H>23}SET{W0H=0};
ZZZZ999950	14000	=SET{WC.H=W0H};
ZZZZ999950	14100	=IF{WC.H@COUNT=0}SET{WC.H='0'+WC.H};
ZZZZ999950	14200	=IF{WC.H@COUNT=1}SET{WC.H='0'+WC.H};
ZZZZ999950	14300	=SET{WC.M=W0M};
ZZZZ999950	14400	=IF{WC.M@COUNT=0}SET{WC.M='0'+WC.M};
ZZZZ999950	14500	=IF{WC.M@COUNT=1}SET{WC.M='0'+WC.M};
ZZZZ999950	14600	=IF{WC.H<WC.SYSTEM_HH}JUMP{SKIP};
ZZZZ999950	14700	=IF{WC.H=WC.SYSTEM_HH}IF{WC.M<WC.SYSTEM_MIN}JUMP{SKIP};
ZZZZ999950	14800	=SET{WN.STATUS='START_TIME'}; 起動時間が過去で起動不能エラー*
ZZZZ999950	14900	=SKIP:SQL_SET{}{SELECT ' ' FROM ?_WORK_TABLE?A WHERE
ZZZZ999950	15000	=   ?_VRE&WC.SYSTEM_HH? AND  ?_VRE&WC.SYSTEM_MIN?};
ZZZZ999950	15100	=IF{_SQL_SET_COUNT=0}JUMP{OK}; 未起動は起動へ行く*
ZZZZ999950	15200	*=SKIP:PROGRAM2{0}{}{?_WORK_TABLE?A}
ZZZZ999950	15300	*=   {WC.SYSTEM_HH,WC.SYSTEM_MIN}{};
ZZZZ999950	15400	*=IF{_PROGRAM_COUNT=0}JUMP{OK}; 未起動は起動へ行く*
ZZZZ999950	15500	=MESSAGE{?WC.SYSTEM_HH? ?WC.SYSTEM_MIN? ALL READY};
ZZZZ999950	15600	=BACK{LOOP};
ZZZZ999950	15700	=OK:
ZZZZ999950	15800	****( 時間起動予約処理実行 )*********************************
ZZZZ999950	15900	=SET{WC.TODAY_JOB=WN.JOBG,WN.OPT=WN.STATUS,WN.QUEUE='/'};
ZZZZ999950	16000	=IF{WN.STATUS!=}JUMP{SKIP};
ZZZZ999950	16100	=SET{WC.TODAY_JOB='TODAY',WN.OPT='/'};
ZZZZ999950	16200	*W-=SQL_SET{WN.QUEUE}
ZZZZ999950	16300	*W-=  {SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ999950	16400	*W-=   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM' AND Z_CANCEL=' '
ZZZZ999950	16500	*W-=   AND SYSTEM_KEY2='ZZZZZZ_LINUX_AT_Q_?_REAL_TEST?'};
ZZZZ999950	16600	*W-=IF{_SQL_SET_COUNT=0}ERROR
ZZZZ999950	16700	*W-={ETC,ZZZZZZ_SYSTEM,LINUX_AT_Q_?_REAL_TEST? NOT FOUND};
ZZZZ999950	16800	W-=PROGRAM{0,?_MM?_ETC_TABLE,WN.SYSTEM_ETC=}
ZZZZ999950	16900	W-=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999950	17000	W-=   ,WC.SYSTEM_KEY2='ZZZZZZ_LINUX_AT_Q_?_REAL_TEST?'}{};
ZZZZ999950	17100	W-=IF{_PROGRAM_COUNT=0}
ZZZZ999950	17200	W-=   ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? NOT FOUND};
ZZZZ999950	17300	W-=SET{WN.QUEUE=WN.SYSTEM_ETC};
ZZZZ999950	17400	=SKIP:
ZZZZ999950	17500	*SQL_SET{WN.JDBC}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ999950	17600	*  WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999950	17700	*   AND SYSTEM_KEY2='ZZZZZZ_JDBC'};
ZZZZ999950	17800	*IF{_SQL_SET_COUNT=0}
ZZZZ999950	17900	=PROGRAM{0,?_MM?_ETC_TABLE,WN.SYSTEM_ETC=}
ZZZZ999950	18000	=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999950	18100	=  ,WC.SYSTEM_KEY2='ZZZZZZ_JDBC'}{};
ZZZZ999950	18200	=IF{_PROGRAM_COUNT=0}
ZZZZ999950	18300	=   ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? NOT FOUND};
ZZZZ999950	18400	*   ERROR{ETC,ZZZZZZ_SYSTEM,ZZZZZZ_JDBC NOT FOUND};
ZZZZ999950	18500	=MESSAGE{ZZZZZZTIME/?WC.SYSTEM_HH? ?WC.SYSTEM_MIN?
ZZZZ999950	18600	=  ?WC.TODAY_JOB? ?WN.OPT? ?WN.QUEUE? ?WN.SYSTEM_ETC@LOWER?};
ZZZZ999950	18700	=BAT_SERVER{ZZZZZZTIME,?WC.SYSTEM_HH? ?WC.SYSTEM_MIN?
ZZZZ999950	18800	=  ?WC.TODAY_JOB? ?WN.OPT? ?WN.QUEUE? ?WN.SYSTEM_ETC@LOWER?};
ZZZZ999950	18900	****( ?_MM?_I_TIME_TABLEの情報初期化 )**********************
ZZZZ999950	19000	*=IF{WN.STATUS=}SQL{UPDATE ?_MM?_I_TIME_TABLE SET
ZZZZ999950	19100	*=    SYSTEM_?_REAL_TEST?_STATUS='TIME'
ZZZZ999950	19200	*=   ,SYSTEM_?_REAL_TEST?_END_TIME=' '
ZZZZ999950	19300	*=   ,SYSTEM_?_REAL_TEST?_END_JOB=' '
ZZZZ999950	19400	*=   ,SYSTEM_?_REAL_TEST?_OPTION=' '
ZZZZ999950	19500	*=   ,SYSTEM_?_REAL_TEST?_MESSAGE=' '
ZZZZ999950	19600	*=   ,SYSTEM_?_REAL_TEST?_BEGIN_TIME=' '
ZZZZ999950	19700	*=   ,SYSTEM_?_REAL_TEST?_BEGIN_JOB=' '
ZZZZ999950	19800	*=   WHERE SYSTEM_HH='?WC.SYSTEM_HH?'
ZZZZ999950	19900	*=   AND SYSTEM_MIN='?WC.SYSTEM_MIN?'};
ZZZZ999950	20000	=IF{WN.STATUS=}
ZZZZ999950	20100	=   PROGRAM{3,?_MM?_I_TIME_TABLE
ZZZZ999950	20102	=   ,WC.SYSTEM_?_REAL_TEST?_STATUS='TIME'
ZZZZ999950	20200	=   ,WC.SYSTEM_?_REAL_TEST?_END_TIME=' '
ZZZZ999950	20300	=   ,WC.SYSTEM_?_REAL_TEST?_END_JOB=' '
ZZZZ999950	20400	=   ,WC.SYSTEM_?_REAL_TEST?_OPTION=' '
ZZZZ999950	20500	=   ,WC.SYSTEM_?_REAL_TEST?_MESSAGE=' '
ZZZZ999950	20600	=   ,WC.SYSTEM_?_REAL_TEST?_BEGIN_TIME=' '
ZZZZ999950	20700	=   ,WC.SYSTEM_?_REAL_TEST?_BEGIN_JOB=' '}
ZZZZ999950	20800	=   {WC.SYSTEM_HH,WC.SYSTEM_MIN}{};
ZZZZ999950	20900	=BACK{LOOP};
ZZZZ999950	21000	*************************************************************
ZZZZ999950	21100	*************************************************************
ZZZZ999950	21200	*****( カレンダー無い場合はこの処理せず )**********
ZZZZ999950	21300	=NOT_FOUND:MESSAGE{SKIP JOB(CALENDAR NOT FOUND)};
ZZZZ999950	21400	=FIN:
ZZZZ999950	21500	COPY=DROP
ZZZZ999951	100	*****( 今日の日付けをWN.DATE.SYSTEM_ETCに設定 )***
ZZZZ999951	200	=SET{WN.DATE.SYSTEM_ETC=_TODAY};
ZZZZ999951	300	*****( 前回の日付けをWN.DATE_OLD.SYSTEM_ETCに設定 )******
ZZZZ999951	400	*SQL_SET{WN.DATE}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ999951	500	*  WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999951	600	*  AND SYSTEM_KEY2='ZZZZZZ_DATE'}{};
ZZZZ999951	700	*   AND Z_CANCEL=' '};
ZZZZ999951	800	*IF{_SQL_SET_COUNT=0}ERROR{ETC,ZZZZZZ_SYSTEM,ZZZZZZ_DATE};
ZZZZ999951	900	=PROGRAM{0,?_MM?_ETC_TABLE,WN.DATE_OLD.SYSTEM_ETC=}
ZZZZ999951	1000	=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999951	1100	=  ,WC.SYSTEM_KEY2='ZZZZZZ_DATE'}{};
ZZZZ999951	1200	=IF{WN.DATE_OLD.SYSTEM_ETC=WN.DATE.SYSTEM_ETC}EXIT{};
ZZZZ999951	1400	=MESSAGE{DATE='?WN.DATE.SYSTEM_ETC?'
ZZZZ999951	1410	=,DATE_OLD='?WN.DATE_OLD.SYSTEM_ETC?'};
ZZZZ999951	1500	=SET{WC.DB1=_MM,WC.DB2=_MM_TEST};
ZZZZ999951	1510	=SET{WC.OLD1='_OLD',WC.OLD2=};
ZZZZ999951	1600	REPEAT=2 (REALとTESTの両テーブルを更新する)
ZZZZ999951	1700	*****( SYSTEM_DATE_OLDに前回の日付けを設定する )***
ZZZZ999951	1710	*****( SYSTEM_DATEに今日の日付けを設定する )*****
ZZZZ999951	1800	*SQL{UPDATE ?WN.DB##?_ETC_TABLE SET SYSTEM_ETC='?WN.DATE?'
ZZZZ999951	1900	*   ,?_Z_UPDATE_CHANGE? WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999951	2000	*    AND SYSTEM_KEY2='ZZZZZZ_DATE_OLD'};
ZZZZ999951	2100	REPEAT2=2 (DATE_OLD,DATE )ZZ_DATE_OLD'};
ZZZZ999951	2200	=IF_ERROR_PROGRAM{3,?WC.DB##?_ETC_TABLE
ZZZZ999951	2400	=  ,WN.DATE?WC.OLD$$?.SYSTEM_ETC}
ZZZZ999951	2600	=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999951	2700	=  ,WC.SYSTEM_KEY2='ZZZZZZ_DATE?WC.OLD$$?'}{}
ZZZZ999951	3000	1+= ERROR{};
ZZZZ999951	3100	2+= MESSAGE{?_ERROR?};
ZZZZ999951	3300	*SQL{UPDATE ?WN.DB##?_ETC_TABLE
ZZZZ999951	3310	*  SET SYSTEM_ETC='?WN.DATE.SYSTEM_ETC?'
ZZZZ999951	3400	*   ,?_Z_UPDATE_CHANGE? WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999951	3500	*   AND SYSTEM_KEY2='ZZZZZZ_DATE'};
ZZZZ999951	3600	*=PROGRAM{3,?WN.DB##?_ETC_TABLE
ZZZZ999951	3602	*  ,WN.SYSTEM_ETC=WN.DATE.SYSTEM_ETC}
ZZZZ999951	3700	*=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999951	3800	*   ,WC.SYSTEM_KEY2='ZZZZZZ_DATE'}{};
ZZZZ999951	3900	REPEAT=
ZZZZ999952	100	*****( TEST用テーブルも実行指定 )********************
ZZZZ999952	200	*SET{WN.TEST=1};
ZZZZ999952	300	*****( カレンダー作成期間をWN.ADDに設定 )*************
ZZZZ999952	400	*SQL_SET{WN.ADD}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ999952	500	*   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999952	600	*   AND SYSTEM_KEY2='ZZZZZZ_CALENDAR_ADD'
ZZZZ999952	700	*   AND Z_CANCEL=' '};
ZZZZ999952	800	*IF{_SQL_SET_COUNT=0}
ZZZZ999952	900	*   ERROR{ETC,ZZZZZZ_SYSTEM,ZZZZZZ_CALENDAR_ADD};
ZZZZ999952	901	*( カレンダー作成期間をWN.CALENDAR_ADD.SYSTEM_ETCに設定 )**
ZZZZ999952	902	*( カレンダー削除期間をWN.CALENDAR_CANCEL.SYSTEM_ETCに設定 )*
ZZZZ999952	903	*( システムの国情報を  WN.COUNTRY.SYSTEM_ETCに設定 )*
ZZZZ999952	910	=SPLIT_CHAR{WC.KEY2}{'CALENDAR_ADD,CALENDAR_CANCEL,COUNTRY'}
ZZZZ999952	920	=   {','};
ZZZZ999952	1000	REPEAT=3 (ADD,CANCEL,CONTRY)
ZZZZ999952	1100	=PROGRAM{0,?_MM?_ETC_TABLE,WN.?WC.KEY2##?.SYSTEM_ETC=}
ZZZZ999952	1200	=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999952	1300	=   ,WC.SYSTEM_KEY2='ZZZZZZ_?WC.KEY2##?'}{};
ZZZZ999952	1400	=IF{_PROGRAM_COUNT=0}
ZZZZ999952	1500	=   ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? NOT FOND};
ZZZZ999952	1510	REPEAT= (ADD,CANCEL,CONTRY)
ZZZZ999952	1600	*****( カレンダー削除期間をWN.CANに設定 )*************
ZZZZ999952	1700	*SQL_SET{WN.CAN}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ999952	1800	*   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999952	1900	*   AND SYSTEM_KEY2='ZZZZZZ_CALENDAR_CANCEL'
ZZZZ999952	2000	*   AND Z_CANCEL=' '};
ZZZZ999952	2100	*IF{_SQL_SET_COUNT=0}
ZZZZ999952	2200	*   ERROR{ETC,ZZZZZZ_SYSTEM,ZZZZZZ_CALENDAR_CANCEL};
ZZZZ999952	2300	=MESSAGE{ZZZZZZ_CALENDAR_ADD='?WN.CALENDAR_ADD.SYSTEM_ETC?'
ZZZZ999952	2400	=,ZZZZZZ_CALENDAR_CANCEL='?WN.CALENDAR_CANCEL.SYSTEM_ETC?'};
ZZZZ999952	2500	=SET{WC.CANCEL_MINUS='-'+WN.CALENDAR_CANCEL.SYSTEM_ETC};
ZZZZ999952	2510	=SET{WC.DB1=_MM,WC.DB2=_MM_TEST};
ZZZZ999952	2600	*****( 削除期間以前を削除する )**********************
ZZZZ999952	2610	REPEAT=2  (REAL,TEST)
ZZZZ999952	2710	=IF_ERROR_SQL{UPDATE ?WC.DB##?_CALENDAR_TABLE
ZZZZ999952	2800	=   SET ?_Z_UPDATE_CANCEL? WHERE Z_CANCEL=' ' AND SYSTEM_DATE
ZZZZ999952	2900	=   <?_DAY_DATE((_NOW_DATE);(WC.CANCEL_MINUS))?}
ZZZZ999952	2910	1+= ERROR{};
ZZZZ999952	2920	2+= MESSAGE{?_ERROR?};
ZZZZ999952	2930	REPEAT=
ZZZZ999952	3000	*****( TEST用も削除期間以前を削除する )**********************
ZZZZ999952	3100	*IF{WN.TEST=1}SQL{UPDATE ?_MM_TEST?_CALENDAR_TABLE
ZZZZ999952	3200	*   SET ?_Z_UPDATE_CANCEL?
ZZZZ999952	3300	*   WHERE Z_CANCEL=' ' AND SYSTEM_DATE<
ZZZZ999952	3400	*   ?_DAY_DATE((_NOW_DATE);(WC.CANCEL_MINUS))?};
ZZZZ999952	3500	*****( 作成最終日をWC.MAXに設定する )**********************
ZZZZ999952	3600	=SQL_SET{WC.MAX}{SELECT
ZZZZ999952	3700	=   ?_DAY_DATE((_NOW_DATE);(WN.CALENDAR_ADD.SYSTEM_ETC))?
ZZZZ999952	3800	=   ?_FROM_DUAL?};
ZZZZ999952	3900	=IF{_SQL_SET_COUNT=0}ERROR{WC.MAX};
ZZZZ999952	4000	*****( 作成開始日をWC.DAYに設定する )**********************
ZZZZ999952	4100	=SQL_SET{WC.MIN}
ZZZZ999952	4200	=  {SELECT MAX(SYSTEM_DATE)FROM ?_MM?_CALENDAR_TABLE};
ZZZZ999952	4300	=IF{WC.MIN!=}JUMP{SKIP}; カレンダーの最終日有りはその日。*
ZZZZ999952	4400	=SQL_SET{WC.MIN}{SELECT
ZZZZ999952	4500	=   ?_DAY_DATE((_NOW_DATE);(WC.CANCEL_MINUS))?
ZZZZ999952	4600	=   ?_FROM_DUAL?};
ZZZZ999952	4700	=IF{_SQL_SET_COUNT=0}ERROR{WC.MIN};
ZZZZ999952	4800	=SKIP:
ZZZZ999952	4900	=SET{WC.DAY=WC.MIN[1;6]+'01',WC.OLD='00000000'}; 月の１日*
ZZZZ999952	5000	****( システムの国情報をWN.COUNTRYに設定 )****************
ZZZZ999952	5100	*SQL_SET{WN.COUNTRY}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ999952	5200	*   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999952	5300	*   AND SYSTEM_KEY2='ZZZZZZ_COUNTRY'
ZZZZ999952	5400	*   AND Z_CANCEL=' '};
ZZZZ999952	5500	*IF{_SQL_SET_COUNT=0}ERROR{ETC,ZZZZZZ_SYSTEM,ZZZZZZ_COUNRY};
ZZZZ999952	5600	****( 初期値設定 )****************
ZZZZ999952	5700	=SET{WN.HOLIDAY_NEXT='0',W0WEEK_CNT=0,WN.01_WEEK='0'};
ZZZZ999952	5800	***********************************************************
ZZZZ999952	5900	************( 繰り返しの開始 )*****************************
ZZZZ999952	6000	***********************************************************
ZZZZ999952	6100	=LOOP:
ZZZZ999952	6200	=SET{WN.HOLIDAY=}; 初期値稼働日*
ZZZZ999952	6300	*****( 今日の曜日をWN.WEEKに設定する )************
ZZZZ999952	6400	=SQL_SET{WN.WEEK}{SELECT ?_WEEK_CHAR("WC.DAY")?
ZZZZ999952	6500	=   ?_FROM_DUAL?};
ZZZZ999952	6600	=IF{_SQL_SET_COUNT=0}ERROR{WN.WEEK};
ZZZZ999952	6700	*****( 日曜日が祭日の翌日は休み化 )****************
ZZZZ999952	6800	=IF{WN.HOLIDAY_NEXT='1'}SET{WN.HOLIDAY='1'};
ZZZZ999952	6900	=SET{WN.HOLIDAY_NEXT='0'};
ZZZZ999952	7000	=IF{WN.WEEK=WN.01_WEEK}COMPUTE{W0WEEK_CNT+=1};
ZZZZ999952	7100	=IF{WC.OLD[1;6]!=WC.DAY[1;6]}
ZZZZ999952	7200	=   SET{W0WEEK_CNT=1,WN.01_WEEK=WN.WEEK};
ZZZZ999952	7300	=SET{WC.OLD=WC.DAY};
ZZZZ999952	7400	*****( 曜日指定の休日抜き出し )************************
ZZZZ999952	7410	=SET{WC.SYSTEM_COUNTRY=WN.COUNTRY.SYSTEM_ETC};
ZZZZ999952	7412	=SET{WC1.SYSTEM_MARK_CALENDAR='0'};
ZZZZ999952	7413	=SET{WC1.SYSTEM_MM='00',WC1.SYSTEM_DD='0'+WN.WEEK};
ZZZZ999952	7414	=SET{WC2.SYSTEM_MARK_CALENDAR='D'};
ZZZZ999952	7415	=SET{WC2.SYSTEM_MM=WC.DAY[5;2],WC2.SYSTEM_DD=WC.DAY[7;2]};
ZZZZ999952	7416	=SET{WC3.SYSTEM_MARK_CALENDAR=W0WEEK_CNT};
ZZZZ999952	7417	=SET{WC3.SYSTEM_MM=WC.DAY[5;2],WC3.SYSTEM_DD='0'+WN.WEEK};
ZZZZ999952	7500	*SQL_SET{}{SELECT SYSTEM_MARK_CALENDAR FROM
ZZZZ999952	7600	*   ?_MM?_HOLIDAY_TABLE
ZZZZ999952	7700	*   WHERE SYSTEM_COUNTRY='?WN.COUNTRY?' AND Z_CANCEL=' ' AND
ZZZZ999952	7800	*   SYSTEM_MARK_CALENDAR='0' AND SYSTEM_MM='00'
ZZZZ999952	7900	*   AND SYSTEM_DD='0?WN.WEEK?'};
ZZZZ999952	8000	*IF{_SQL_SET_COUNT=0}JUMP{H0}; 不一致はH0へ行く*
ZZZZ999952	8002	REPEAT=3 (0,D,W0WEEK_CNT)
ZZZZ999952	8010	=PROGRAM{0,?_MM?_HOLIDAY_TABLE}
ZZZZ999952	8020	=  {WC.SYSTEM_COUNTRY,WC##.SYSTEM_MARK_CALENDAR
ZZZZ999952	8030	=   ,WC##.SYSTEM_MM,WC##.SYSTEM_DD}{};
ZZZZ999952	8032	=IF{_PROGRAM_COUNT>0}SET{WN.HOLIDAY='1'}; 休日化*
ZZZZ999952	8033	2+=IF{_PROGRAM_COUNT>0}IF{WN.WEEK=1}SET{WN.HOLIDAY_NEXT='1'};
ZZZZ999952	8034	REPEAT=  (3)
ZZZZ999952	8040	*IF{_PROGRAM_COUNT=0}JUMP{H0}; 不一致はH0へ行く*
ZZZZ999952	8100	*SET{WN.HOLIDAY='1'}; 休日化*
ZZZZ999952	8200	*****( 年月指定の休日抜き出し )************************
ZZZZ999952	8300	*H0:SQL_SET{}{SELECT SYSTEM_MARK_CALENDAR
ZZZZ999952	8400	*   FROM ?_MM?_HOLIDAY_TABLE
ZZZZ999952	8500	*   WHERE SYSTEM_COUNTRY='?WN.COUNTRY?' AND Z_CANCEL=' '
ZZZZ999952	8600	*  AND SYSTEM_MARK_CALENDAR='D' AND SYSTEM_MM='?WC.DAY[5;2]?'
ZZZZ999952	8700	*   AND SYSTEM_DD='?WC.DAY[7;2]?'};
ZZZZ999952	8800	*IF{_SQL_SET_COUNT=0}JUMP{H1}; 不一致はH1へ行く*
ZZZZ999952	8900	*SET{WN.HOLIDAY=1}; 休日化*
ZZZZ999952	9000	*IF{WN.WEEK=1}SET{WN.HOLIDAY_NEXT='1'}; 日曜日は翌日休み予約*
ZZZZ999952	9100	*****( 第何何曜日指定の休日抜き出し )************************
ZZZZ999952	9200	*H1:SQL_SET{}{SELECT SYSTEM_DD FROM
ZZZZ999952	9300	*   ?_MM?_HOLIDAY_TABLE
ZZZZ999952	9400	*   WHERE SYSTEM_COUNTRY='?WN.COUNTRY?' AND Z_CANCEL=' '
ZZZZ999952	9500	*   AND SYSTEM_MARK_CALENDAR='?W0WEEK_CNT?'
ZZZZ999952	9600	*   AND SYSTEM_MM='?WC.DAY[5;2]?'
ZZZZ999952	9700	*   AND SYSTEM_DD='0?WN.WEEK?'};
ZZZZ999952	9800	*IF{_SQL_SET_COUNT=0}JUMP{H2}; 不一致はH2へ行く*
ZZZZ999952	9900	*SET{WN.HOLIDAY=1};  休日化*
ZZZZ999952	10000	*****( 該当日付けテーブルに無しはINSERT実行 )*********
ZZZZ999952	10100	*H2:SQL_SET{}{SELECT SYSTEM_DATE FROM ?_MM?_CALENDAR_TABLE
ZZZZ999952	10200	*   WHERE SYSTEM_DATE='?WC.DAY?'};
ZZZZ999952	10300	*IF{_SQL_SET_COUNT=0}
ZZZZ999952	10400	*   SQL{INSERT INTO ?_MM?_CALENDAR_TABLE (?_Z_INSERT_NAME?,
ZZZZ999952	10500	*   SYSTEM_DATE,SYSTEM_HOLIDAY,SYSTEM_HOLIDAY_DEFAULT) VALUES
ZZZZ999952	10600	*   (?_Z_INSERT_VALUE?,'?WC.DAY?'
ZZZZ999952	10700	*   ,'?WN.HOLIDAY?','?WN.HOLIDAY?')};
ZZZZ999952	10800	*****( TEST用もINSERT実行、DUPLICATEエラーは無視 )*********
ZZZZ999952	10900	*IF{WN.TEST=1}
ZZZZ999952	11000	*   IF_ERROR_SQL{INSERT INTO ?_MM_TEST?_CALENDAR_TABLE
ZZZZ999952	11100	*   (?_Z_INSERT_NAME?
ZZZZ999952	11200	*   ,SYSTEM_DATE,SYSTEM_HOLIDAY,SYSTEM_HOLIDAY_DEFAULT)
ZZZZ999952	11300	*   VALUES(?_Z_INSERT_VALUE?
ZZZZ999952	11400	*   ,'?WC.DAY?','?WN.HOLIDAY?','?WN.HOLIDAY?')}
ZZZZ999952	11500	*   IF{_DB_I_ERROR!='DUPLICATE_KEY'}ERROR{};
ZZZZ999952	11510	REPEAT=2 (REAL,TEST)
ZZZZ999952	11520	=IF_ERROR_PROGRAM{2N,?WC.DB##?_CALENDAR_TABLE
ZZZZ999952	11521	=   ,WC.SYSTEM_HOLIDAY=WN.HOLIDAY
ZZZZ999952	11522	=   ,WC.SYSTEM_HOLIDAY_DEFAULT=WN.HOLIDAY}
ZZZZ999952	11530	=   {WC.SYSTEM_DATE=WC.DAY}{}
ZZZZ999952	11531	1+=  ERROR{};
ZZZZ999952	11532	2+=  MESSAGE{?_ERROR?};
ZZZZ999952	11599	REPEAT=  (REAL,TEST)
ZZZZ999952	11600	=IF{WC.MAX<=WC.DAY}EXIT{}; ***最終日で有れば終了***
ZZZZ999952	11700	=SQL_SET{WC.DAY}{SELECT ?_DAY_CHAR("WC.DAY";1)?
ZZZZ999952	11800	=   ?_FROM_DUAL?}; **( 次の日をWC.DAYに設定 )**
ZZZZ999952	11900	=IF{_SQL_SET_COUNT=0}ERROR{WC.DAY};
ZZZZ999952	12000	=BACK{LOOP};
ZZZZ999955	100	*****( DELETE期間をWN.CANCELに設定する )****************
ZZZZ999955	200	*SQL_SET{WN.CANCEL}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ999955	300	*   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999955	400	*   AND SYSTEM_KEY2='ZZZZZZ_Z_CANCEL_DELETE'
ZZZZ999955	500	*   AND Z_CANCEL=' '};
ZZZZ999955	510	*IF{_SQL_SET_COUNT=0}
ZZZZ999955	600	*   ERROR{ETC,ZZZZZZ_SYSTEM,ZZZZZZ_Z_CANCEL_DELETE};
ZZZZ999955	601	=PROGRAM{0,?_MM?_ETC_TABLE,WN.CANCEL.SYSTEM_ETC=}
ZZZZ999955	602	=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999955	603	=   ,WC.SYSTEM_KEY2='ZZZZZZ_Z_CANCEL_DELETE'}{};
ZZZZ999955	604	=IF{_PROGRAM_COUNT=0}
ZZZZ999955	605	=   ERROR{ETC,?SYSTEM_KEY1?,?SYSTEM_KEY2? NOT FOUND};
ZZZZ999955	610	=SET{WC.CANCEL_MINUS='-'+WN.CANCEL.SYSTEM_ETC};
ZZZZ999955	700	*****( DELETE年月日をWN.YMDに設定する )****************
ZZZZ999955	800	=SQL_SET{WN.YMD}{SELECT
ZZZZ999955	1010	=   ?_DAY_DATE((_NOW_DATE);(WC.CANCEL_MINUS))?
ZZZZ999955	1100	=   ?_FROM_DUAL?};
ZZZZ999955	1200	=MESSAGE{DELETE='?WN.YMD?'
ZZZZ999955	1210	=,Z_CANCEL_DELETE='?WN.CANCEL.SYSTEM_ETC?'};
ZZZZ999955	1300	REPEAT=@ZZZZZZ_PERMISSION_COUNT (許可分処理繰り返す）
ZZZZ999955	1400	*****( Z_CANCELを持つテーブルを抜き出す )*************
ZZZZ999955	1500	=DBO_SQL1{SELECT C.SYSTEM_NAME FROM
ZZZZ999955	1600	=   ?_MM?_M_?@ZZZZZZ_PERMISSION_NO##?_COLUMN_VIEW C
ZZZZ999955	1700	=   ,?_MM?_M_?@ZZZZZZ_PERMISSION_NO##?_OBJECT_VIEW O
ZZZZ999955	1800	=   WHERE SYSTEM_DATA_NAME='Z_CANCEL'
ZZZZ999955	1810	=   AND SYSTEM_DEFAULT_TYPE='CHAR'
ZZZZ999955	1900	=   AND SYSTEM_DEFAULT_LENGTH1=17
ZZZZ999955	1910	=   AND C.?_NE&O.SYSTEM_NAME?
ZZZZ999955	2000	=   AND O.SYSTEM_KIND='TABLE' ORDER BY 1};
ZZZZ999955	2100	*************************************************************
ZZZZ999955	2200	****( 繰り返しの開始 )***************************************
ZZZZ999955	2300	*************************************************************
ZZZZ999955	2400	=LOOP:
ZZZZ999955	2500	*****( テーブル名を１件づつWN.NAMEに抜き出す　)*****
ZZZZ999955	2600	=SQL1_NEXT{WN.NAME}JUMP{FIN}; 終わりはFINへ行く*
ZZZZ999955	2700	=SET{WN.DB_PERMISSION=_MX_?@ZZZZZZ_PERMISSION_NO##?};
ZZZZ999955	2800	=SET{_JOB_PERMISSION=@ZZZZZZ_PERMISSION_NO##};
ZZZZ999955	2900	****( DELETE 実行 )*******
ZZZZ999955	3000	=DBO_SQL{DELETE FROM ?WN.DB_PERMISSION??WN.NAME? WHERE
ZZZZ999955	3100	=   Z_CANCEL<>' '
ZZZZ999955	3350	=   AND Z_CANCEL<?_DAY_DATE((_NOW_DATE);(WC.CANCEL_MINUS))?};
ZZZZ999955	3400	=BACK{LOOP};
ZZZZ999955	3500	*************************************************************
ZZZZ999955	3600	*************************************************************
ZZZZ999955	3700	=FIN:
ZZZZ999955	3800	=SET{_JOB_PERMISSION=_MENU_PERMISSION};
ZZZZ999955	3900	REPEAT=
ZZZZ999956	100	*****( 先頭が'ZZZZZZ_'のテーブルを抜き出す )***************
ZZZZ999956	200	=SQL1{SELECT SYSTEM_NAME FROM ?_MM?_M_ZZZZ_OBJECT_VIEW
ZZZZ999956	300	=   WHERE SYSTEM_KIND='TABLE'
ZZZZ999956	310	=   AND ?_SUBSTR(SYSTEM_NAME;1;7)?='ZZZZZZ_'
ZZZZ999956	400	=   ORDER BY 1};
ZZZZ999956	500	=SQL1_NEXT{WN.NAME}ERROR{TABLE NOT FOUND};
ZZZZ999956	600	**********************************************************
ZZZZ999956	700	*****( 繰り返しの開始 )***********************************
ZZZZ999956	800	**********************************************************
ZZZZ999956	1000	=LOOP:
ZZZZ999956	1100	=SET{WN.SAVE=_WW+WN.NAME[8]};
ZZZZ999956	1200	=SET_TABLE{&X2,?_MX??WN.NAME?};
ZZZZ999956	1300	=IF{&X2.KEY=}DROP_TABLE{?WN.SAVE?};
ZZZZ999956	1400	=IF_TABLE{?WN.SAVE?}JUMP{MAINT};
ZZZZ999956	1500	=IF_ERROR_COPY_TABLE{?WN.SAVE?,?_MX??WN.NAME?}ERROR{};
ZZZZ999956	1510	***(LINUXのSQL SERVERでERRORと成るのでU+=　NOP{};にしている）
ZZZZ999956	1600	=IF_ERROR_GRANT{?WN.SAVE?,TABLE,PUBLIC}
ZZZZ999956	1610	U-=   ERROR{};
ZZZZ999956	1620	U+=   NOP{};
ZZZZ999956	1700	=JUMP{SKIP};
ZZZZ999956	1800	=MAINT:
ZZZZ999956	1900	=REPLACE_ALL{?WN.SAVE?,?_MX??WN.NAME?,?&X2.DATA?}{?&X2.KEY?}
ZZZZ999956	2000	=  {}{};
ZZZZ999956	2100	=SKIP:
ZZZZ999956	2200	=SQL1_NEXT{WN.NAME}EXIT{};BACK{LOOP};
ZZZZ999956	2300	*************************************************************
ZZZZ999956	2400	*************************************************************
ZZZZ999957	100	*****( 削除テーブル名3個設定 )**********************
ZZZZ999957	200	=SET{WC.KEY21='ZZZZZZ_I_USE_TABLE'};
ZZZZ999957	210	=SET{WC.KEY22='ZZZZZZ_I_ERROR_TABLE'};
ZZZZ999957	300	=SET{WC.KEY23='ZZZZZZ_I_TIME_LOG_TABLE'};
ZZZZ999957	400	REPEAT=3 ***(テーブル３個分実行)***
ZZZZ999957	500	*****( 削除期間をWN.DAYに設定 )**************************
ZZZZ999957	600	*SQL_SET{WN.DAY}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ999957	700	*   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999957	710	*   AND SYSTEM_KEY2='?WC.N##?_CANCEL'
ZZZZ999957	800	*   AND Z_CANCEL=' '};
ZZZZ999957	900	*IF{_SQL_SET_COUNT=0}
ZZZZ999957	902	*   ERROR{ETC,ZZZZZZ_SYSTEM,?WC.N##?_CANCEL};
ZZZZ999957	903	=PROGRAM{0,?_MM?_ETC_TABLE,WN.SYSTEM_ETC=}
ZZZZ999957	904	=   {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999957	905	=   ,WC.SYSTEM_KEY2='?WC.KEY2##?_CANCEL'}{};
ZZZZ999957	906	=IF{_PROGRAM_COUNT=0}
ZZZZ999957	907	=   ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? NOT FOUND};
ZZZZ999957	910	=SET{WC.DAY_MINUS='-'+WN.SYSTEM_ETC};
ZZZZ999957	1000	*****( 削除年月日をWN.YMDに設定 )**************************
ZZZZ999957	1100	=SQL_SET{WN.YMD}{SELECT
ZZZZ999957	1130	=   ?_DAY_DATE((_NOW_DATE);(WC.DAY_MINUS))? ?_FROM_DUAL?};
ZZZZ999957	1300	=MESSAGE{CANCEL_USE'?WN.YMD?'
ZZZZ999957	1310	=,?WC.KEY2##?_CANCEL='?WN.SYSTEM_ETC?'};
ZZZZ999957	1400	*****( 削除処理を実行 )**************************
ZZZZ999957	1500	=SQL{UPDATE ?_MX??WC.KEY2##? SET ?_Z_UPDATE_CANCEL? WHERE
ZZZZ999957	1600	=   Z_CANCEL=' ' AND Z_ADD<'?WN.YMD?'};
ZZZZ999957	1800	REPEAT=
ZZZZ999958	100	*************************************************************
ZZZZ999958	200	*****( A,1 ?_MM?_I_TABLE_TABLE  を最新情報にする )***********
ZZZZ999958	300	*****( C,2 ?_MM?_I_COLUMN_TABLE を最新情報にする )***********
ZZZZ999958	400	*************************************************************
ZZZZ999958	500	=SET_TABLE{&X2,?_MM?_I_COLUMN_TABLE};
ZZZZ999958	600	H-=SET{WN.A='_'};
ZZZZ999958	700	H+=SET{WN.A=};
ZZZZ999958	800	=SET{_REAL_TEST='TEST',WN.TEST='TEST'};
ZZZZ999958	900	NAME=ALL
ZZZZ999958	1000	=SET{WN.MM=_MP_ZZZZ+'ZZ'};
ZZZZ999958	1100	*****( 作業テーブルをDROP )**************
ZZZZ999958	1200	NAME2=DROP_TABLE_WORK
ZZZZ999958	1300	REPEAT=?_A_D?
ZZZZ999958	1400	=DROP_TABLE{?_WORK_TABLE??_A##?};
ZZZZ999958	1500	REPEAT=
ZZZZ999958	1600	NAME2=
ZZZZ999958	1700	*****( 作業テーブルをCREATE )************
ZZZZ999958	1800	=SET{WN.?_REAL_TEST?1='?_WORK_TABLE?A'};
ZZZZ999958	1900	=SET{WN.?_REAL_TEST?2='?_WORK_TABLE?C'};
ZZZZ999958	2000	=CREATE_TABLE{?_WORK_TABLE?A,SYSTEM_NAME,30}
ZZZZ999958	2100	=  {SYSTEM_TEST,4,SYSTEM_INDEX,INT,SYSTEM_PUBLIC,6};
ZZZZ999958	2200	=CREATE_TABLE{?_WORK_TABLE?C}{?&X2.KEY_CREATE?,
ZZZZ999958	2300	=    ?&X2.DATA_CREATE?};
ZZZZ999958	2400	=SET{WN.TOP='I?WN.A??_SYSTEM??WN.A?'};
ZZZZ999958	2500	REPEAT=2 (TABLE,COLUMN)
ZZZZ999958	2600	=SET{WN.WORK_TABLE##=WN.?_REAL_TEST?##};
ZZZZ999958	2700	=SQL{
ZZZZ999958	2800	M+=   USE I_?_SYSTEM?_?_REAL_TEST[1;1]?_W_ZZZZ
ZZZZ999958	2900	=   GRANT SELECT,INSERT,UPDATE ON ?WN.WORK_TABLE##? TO
ZZZZ999958	3000	L-=   PUBLIC
ZZZZ999958	3100	L+=   PUBLIC@'%'
ZZZZ999958	3200	REPEAT2=@ZZZZZZ_PERMISSION_COUNT
ZZZZ999958	3300	L+=   ,?WN.TOP?R?WN.A?D?WN.A??@ZZZZZZ_PERMISSION_NO$$?
ZZZZ999958	3400	L+=   ,?WN.TOP?R?WN.A?I?WN.A??@ZZZZZZ_PERMISSION_NO$$?
ZZZZ999958	3500	L+=   ,?WN.TOP?T?WN.A?D?WN.A??@ZZZZZZ_PERMISSION_NO$$?
ZZZZ999958	3600	REPEAT2=
ZZZZ999958	3700	=   };
ZZZZ999958	3800	REPEAT=
ZZZZ999958	3900	****( 作業テーブルにTEST,INDEX,PUBLICの各情報を設定 )****
ZZZZ999958	4000	REPEAT=@ZZZZZZ_PERMISSION_COUNT
ZZZZ999958	4100	=SET{_JOB_PERMISSION=@ZZZZZZ_PERMISSION_NO##};
ZZZZ999958	4200	=DBO_SQL{INSERT INTO ?WN.WORK_TABLE1?
ZZZZ999958	4300	=   (SYSTEM_NAME,SYSTEM_TEST,SYSTEM_INDEX,SYSTEM_PUBLIC)
ZZZZ999958	4400	=   SELECT DISTINCT XX.SYSTEM_NAME,'?WN.TEST?' AS TEST
ZZZZ999958	4500	=   ,CASE WHEN (SELECT MAX(SYSTEM_NO) FROM
ZZZZ999958	4600	=   ?WN.MM?_M_?@ZZZZZZ_PERMISSION_NO##?_INDEX_VIEW XI
ZZZZ999958	4700	=   WHERE XI.?_NE&XX.SYSTEM_NAME? AND XI.SYSTEM_IX='0')
ZZZZ999958	4800	=   IS NULL THEN 0 ELSE (SELECT MAX(SYSTEM_NO) FROM
ZZZZ999958	4900	=   ?WN.MM?_M_?@ZZZZZZ_PERMISSION_NO##?_INDEX_VIEW XI
ZZZZ999958	5000	=   WHERE XI.?_NE&XX.SYSTEM_NAME? AND XI.SYSTEM_IX='0')
ZZZZ999958	5100	=   +1 END AS SYSTEM_INDEX
ZZZZ999958	5200	=   ,CASE WHEN
ZZZZ999958	5300	NAME2=GRANT##
ZZZZ999958	5400	=   (SELECT CASE WHEN SYSTEM_GRANT='PUBLIC' THEN 'PUBLIC'
ZZZZ999958	5500	=   ELSE 'LINK' END FROM
ZZZZ999958	5600	=   ?WN.MM?_M_?@ZZZZZZ_PERMISSION_NO##?_GRANT_VIEW XY
ZZZZ999958	5700	=   WHERE XX.?_NE&XY.SYSTEM_NAME?
ZZZZ999958	5800	=   AND(SYSTEM_GRANT='PUBLIC'
ZZZZ999958	5900	=   OR SYSTEM_GRANT='L_?@ZZZZZZ_PERMISSION_NO##?'
ZZZZ999958	6000	=   AND XY.SYSTEM_NAME NOT IN(SELECT SYSTEM_NAME FROM
ZZZZ999958	6100	=   ?WN.MM?_M_?@ZZZZZZ_PERMISSION_NO##?_GRANT_VIEW
ZZZZ999958	6200	=   WHERE SYSTEM_GRANT='PUBLIC')))
ZZZZ999958	6300	NAME2=
ZZZZ999958	6400	=   IS NULL THEN ' ' ELSE
ZZZZ999958	6500	COPY=GRANT##
ZZZZ999958	6600	=   END FROM ?WN.MM?_M_?@ZZZZZZ_PERMISSION_NO##?_OBJECT_VIEW
ZZZZ999958	6700	=   XX WHERE XX.SYSTEM_NAME NOT
ZZZZ999958	6800	=   IN(SELECT SYSTEM_NAME FROM ?WN.WORK_TABLE1?)};
ZZZZ999958	6900	=SET{WN.CASE='IS NULL THEN '' '' ELSE'};
ZZZZ999958	7000	=DBO_SQL{INSERT INTO ?WN.WORK_TABLE2?(SYSTEM_NAME
ZZZZ999958	7100	=   ,SYSTEM_DATA_NAME,SYSTEM_SEQ,SYSTEM_DEFAULT_TYPE
ZZZZ999958	7200	=   ,SYSTEM_DEFAULT_LENGTH1,SYSTEM_DEFAULT_LENGTH2
ZZZZ999958	7300	=   ) SELECT XX.SYSTEM_NAME,XX.SYSTEM_DATA_NAME
ZZZZ999958	7400	=   ,XX.SYSTEM_SEQ,XX.SYSTEM_DEFAULT_TYPE
ZZZZ999958	7500	=   ,CASE WHEN XX.SYSTEM_DEFAULT_LENGTH1>999999999
ZZZZ999958	7600	=   THEN 999999999 ELSE XX.SYSTEM_DEFAULT_LENGTH1 END
ZZZZ999958	7700	=   ,XX.SYSTEM_DEFAULT_LENGTH2
ZZZZ999958	7800	=   FROM ?WN.MM?_M_?@ZZZZZZ_PERMISSION_NO##?_COLUMN_VIEW XX
ZZZZ999958	7900	=   };
ZZZZ999958	8000	REPEAT2=10
ZZZZ999958	8100	=DBO_UPDATE{?WN.WORK_TABLE2?,SYSTEM_IX$-}{
ZZZZ999958	8200	$1+=   '*'
ZZZZ999958	8300	$1-=   CAST(I.SYSTEM_NO AS CHAR(1))
ZZZZ999958	8400	=   }{?WN.MM?_M_?@ZZZZZZ_PERMISSION_NO##?_INDEX_VIEW I WHERE
ZZZZ999958	8500	=   I.?_NE&O.SYSTEM_NAME? AND I.SYSTEM_IX='$-'
ZZZZ999958	8600	=   AND I.?_NE&O.SYSTEM_DATA_NAME?};
ZZZZ999958	8700	REPEAT=
ZZZZ999958	8800	=SET{_JOB_PERMISSION='ZZZZ'};
ZZZZ999958	8900	NAME= (ALL)
ZZZZ999958	9000	=SET{_REAL_TEST='REAL',WN.TEST=' '};
ZZZZ999958	9100	COPY=ALL
ZZZZ999958	9200	*****( TABLE TESTをREALに追加 )******************************
ZZZZ999958	9300	=COPY_TABLE{?_WORK_TABLE?B,?WN.REAL1?};
ZZZZ999958	9400	=SQL{INSERT INTO ?WN.REAL1? SELECT * FROM ?WN.TEST1?
ZZZZ999958	9500	=   WHERE SYSTEM_NAME NOT
ZZZZ999958	9600	=   IN(SELECT SYSTEM_NAME FROM ?_WORK_TABLE?B)};
ZZZZ999958	9700	***( INDEXが元の方が大きい場合は元を優先 )***
ZZZZ999958	9800	=UPDATE{?WN.REAL1?,SYSTEM_INDEX}{I.SYSTEM_INDEX}
ZZZZ999958	9900	=  {?_MM?_I_TABLE_TABLE I WHERE O.?_NE&I.SYSTEM_NAME?
ZZZZ999958	10000	=   AND O.?_NL&I.SYSTEM_INDEX?};
ZZZZ999958	10100	***( ?_MM?_I_TABLE_TABLEを更新 )***
ZZZZ999958	10200	=REPLACE_ALL{?_MM?_I_TABLE_TABLE,?WN.REAL1?
ZZZZ999958	10300	=  ,SYSTEM_TEST,SYSTEM_INDEX,SYSTEM_PUBLIC}
ZZZZ999958	10310	=  {SYSTEM_NAME}{}{};
ZZZZ999958	10400	******( COLUMN TESTをREALに追加 )****************************
ZZZZ999958	10500	=COPY_TABLE{?_WORK_TABLE?D,?WN.REAL2?};
ZZZZ999958	10600	=SQL{INSERT INTO ?WN.REAL2? SELECT * FROM ?WN.TEST2?
ZZZZ999958	10700	=   WHERE SYSTEM_NAME NOT
ZZZZ999958	10800	=   IN(SELECT SYSTEM_NAME FROM ?_WORK_TABLE?D)};
ZZZZ999958	10900	***( ?_MM?_I_COLUMN_TABLEを更新 )***
ZZZZ999958	11000	=REPLACE_ALL{?_MM?_I_COLUMN_TABLE,?WN.REAL2?
ZZZZ999958	11100	=  ,SYSTEM_SEQ,SYSTEM_DEFAULT_TYPE
ZZZZ999958	11200	=  ,SYSTEM_DEFAULT_LENGTH1,SYSTEM_DEFAULT_LENGTH2
ZZZZ999958	11300	=  ,SYSTEM_IX0,SYSTEM_IX1,SYSTEM_IX2,SYSTEM_IX3,SYSTEM_IX4
ZZZZ999958	11400	=  ,SYSTEM_IX5,SYSTEM_IX6,SYSTEM_IX7,SYSTEM_IX8,SYSTEM_IX9}
ZZZZ999958	11500	=   {?&X2.KEY?}{}{};
ZZZZ999958	11600	COPY=DROP_TABLE_WORK
ZZZZ999959	100	*****( TODAY 設定 )********
ZZZZ999959	200	*=SET{WN.D=_TODAY};
ZZZZ999959	300	*   ,WN.YMD=WN.D[1;4]+'-'+WN.D[5;2]+'-'+WN.D[7;2]};
ZZZZ999959	310	=SET{WN.QUERE='/'};
ZZZZ999959	400	*****( 開始時間WN.TIMEに設定 )********
ZZZZ999959	500	=SET{WC.KEY21='TIME_START'};
ZZZZ999959	700	=SET{WC.KEY22='JDBC'};
ZZZZ999959	710	=SET{WC.KEY23='LINUX_AT_Q_?_REAL_TEST?'};
ZZZZ999959	800	W+REPEAT=2 (TIME_START,JDBC)
ZZZZ999959	810	W-REPEAT=3 (TIME_START,JDBC,LINUX_AT_Q_?_REAL_TEST?)
ZZZZ999959	900	=PROGRAM{0,?_MM?_ETC_TABLE,WN.##.SYSTEM_ETC=}
ZZZZ999959	1000	=  {WC.SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999959	1100	=  ,WC.SYSTEM_KEY2='ZZZZZZ_?WC.KEY2##?'}{};
ZZZZ999959	1200	=IF{_PROGRAM_COUNT=0}
ZZZZ999959	1400	=   ERROR{ETC,?WC.SYSTEM_KEY1?,?WC.SYSTEM_KEY2? NOT FOUND};
ZZZZ999959	1510	1+=SET{WN.TIME=WN.1.SYSTEM_ETC};
ZZZZ999959	1511	2+=SET{WN.JDBC=WN.2.SYSTEM_ETC};
ZZZZ999959	1520	3+=SET{WN.QUERE=WN.3.SYSTEM_ETC};
ZZZZ999959	1540	REPEAT=
ZZZZ999959	1600	*SQL_SET{WN.TIME}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ999959	1700	*   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM'
ZZZZ999959	1800	*   AND SYSTEM_KEY2='ZZZZZZ_TIME_START'
ZZZZ999959	1900	*   AND Z_CANCEL=' '};
ZZZZ999959	2000	*IF{_SQL_SET_COUNT=0}SET{WN.TIME='08:30'};
ZZZZ999959	2200	*****( 次の稼働日WN.DATEに設定 )**************
ZZZZ999959	2300	=SQL_SET{WN.DATE}{SELECT MIN(SYSTEM_DATE) FROM
ZZZZ999959	2400	=   ?_MM?_CALENDAR_TABLE WHERE SYSTEM_DATE>'?_TODAY?'
ZZZZ999959	2500	=   AND SYSTEM_HOLIDAY=' '};
ZZZZ999959	2600	=IF{_SQL_SET_COUNT=0}ERROR{WN.DATE};
ZZZZ999959	2700	=IF{WN.DATE@COUNT!=8}ERROR{WN.DATE};
ZZZZ999959	2800	W+=SET{WN.YMD=WN.DATE[1;4]+'/'+WN.DATE[5;2]
ZZZZ999959	2900	W+=  +'/'+WN.DATE[7;2]};
ZZZZ999959	3000	W-=SET{WN.YMD=WN.DATE[5;2]+WN.DATE[7;2]+WN.DATE[3;2]};
ZZZZ999959	3100	****( ATを実行し時間起動状況を?_WORK?.TXTに書き込む )*****
ZZZZ999959	3200	=BAT_SERVER{ZZZZZZETC,AT ?_WORK?.TXT};
ZZZZ999959	3300	****( ?_WORK?.TXTより時間起動状況解析 )*****************
ZZZZ999959	3400	=READ_OPEN{2,?_TMP??_WORK?.TXT,/};
ZZZZ999959	3500	*=SET{WN.CHK=':'+_P+'I'+_P,WN.QUERE=};
ZZZZ999959	3600	=READ_NEXT2:READ_NEXT{2,WN.D,WN.U}JUMP{READ_END2};
ZZZZ999959	3700	=SET{WN.1=,WN.2=,WN.3=,WN.4=,WN.5=,WN.6=};
ZZZZ999959	3800	=SET{WN.7=,WN.8=,WN.9=,WN.10=,WN.11=,WN.12=};
ZZZZ999959	3900	=IF{WN.U=}JUMP{WINDOWS};
ZZZZ999959	4000	=LINUX:SPLIT_CHAR{WN.}{WN.U}{};
ZZZZ999959	4100	*SQL_SET{WN.QUERE}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ999959	4200	*   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM' AND Z_CANCEL=' '
ZZZZ999959	4300	*   AND SYSTEM_KEY2='ZZZZZZ_LINUX_AT_Q_?_REAL_TEST?'}
ZZZZ999959	4400	*IF{_SQL_SET_COUNT=0}ERROR
ZZZZ999959	4500	*  {ETC,ZZZZZZ_SYSTEM,LINUX_AT_Q_?_REAL_TEST? NOT FOUND};
ZZZZ999959	4600	=IF{WN.3!=WN.QUERE}BACK{READ_NEXT2};(QUEREでシステム判定)*
ZZZZ999959	4700	=IF{WN.1=WN.YMD}BACK{READ_NEXT2}; 本日予約分は無判定*
ZZZZ999959	4800	=SET{WN.AT_DD=WN.1};
ZZZZ999959	4900	=JUMP{CHK};
ZZZZ999959	5000	****( WINDOWS )*********
ZZZZ999959	5100	=WINDOWS:
ZZZZ999959	5200	=SPLIT_CHAR{WN.}{WN.D}{};
ZZZZ999959	5300	=IF{WN.1[1;6]='I_?_REAL_TEST?'}
ZZZZ999959	5400	=   IF{WN.1[14]=_SYSTEM}IF{WN.1[8;2]='99'}IF{WN.1[11;2]='99'}
ZZZZ999959	5500	=   JUMP{SKIP};
ZZZZ999959	5600	=BACK{READ_NEXT2};
ZZZZ999959	5700	=SKIP:IF{WN.2[3;1]=':'}JUMP{XP};
ZZZZ999959	5800	=IF{WN.2[5;1]='/'}JUMP{NOT_XP};
ZZZZ999959	5900	=BACK{READ_NEXT2};
ZZZZ999959	6000	=NOT_XP:SET{WN.AT_DD=WN.2[1;10]};
ZZZZ999959	6100	=SET{WN.TIME=WN.3[1;5]};
ZZZZ999959	6200	=IF{WN.TIME[2;1]=':'}SET{WN.TIME='0'+WN.TIME[1;4]};
ZZZZ999959	6300	=JUMP{SKIP};
ZZZZ999959	6400	=XP:SET{WN.AT_DD=WN.3[1;10],WN.TIME=WN.2[1;5]};
ZZZZ999959	6500	=SKIP:
ZZZZ999959	6600	*J:SET{WN.AT_DD=WN.3,WN.AT_TIME=WN.4,WN.AT_SYSTEM=WN.10};
ZZZZ999959	6700	*IF{WN.AT_TIME[2;1]=':'}
ZZZZ999959	6800	*****( 起動日違いはエラー )*****************
ZZZZ999959	6900	=CHK:IF{WN.YMD!=WN.AT_DD}ERROR{AT DATE ?WN.YMD?!=?WN.AT_DD?};
ZZZZ999959	7000	*****( すでに実行済みは無処理で終了 )*****************
ZZZZ999959	7100	=MESSAGE{AT ?WN.YMD? READY_START};
ZZZZ999959	7200	=EXIT{};
ZZZZ999959	7300	*****( 未起動時ここに来る )*******************
ZZZZ999959	7400	=READ_END2:READ_CLOSE{2};
ZZZZ999959	7500	*W+=SET{WN.QUERE='-'};
ZZZZ999959	7600	*W-=SQL_SET{WN.QUERE}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ999959	7700	*W-= WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM' AND Z_CANCEL=' '
ZZZZ999959	7800	*W-=   AND SYSTEM_KEY2='ZZZZZZ_LINUX_AT_Q_?_REAL_TEST?'}
ZZZZ999959	7900	*W-=IF{_SQL_SET_COUNT=0}ERROR
ZZZZ999959	8000	*W-={ETC,ZZZZZZ_SYSTEM,LINUX_AT_Q_?_REAL_TEST? NOT FOUND};
ZZZZ999959	8100	*SQL_SET{WN.JDBC}{SELECT SYSTEM_ETC FROM ?_MM?_ETC_TABLE
ZZZZ999959	8200	*   WHERE SYSTEM_KEY1='ZZZZZZ_SYSTEM' AND Z_CANCEL=' '
ZZZZ999959	8300	*   AND SYSTEM_KEY2='ZZZZZZ_JDBC'};
ZZZZ999959	8400	*IF{_SQL_SET_COUNT=0}
ZZZZ999959	8500	*   ERROR{ETC,ZZZZZZ_SYSTEM,ZZZZZZ_JDBC NOT FOUND};
ZZZZ999959	8600	=MESSAGE{ZZZZZZTIME/?WN.TIME[1;2]? ?WN.TIME[4;2]?
ZZZZ999959	8700	=   NEXT ?WN.YMD? ?WN.QUERE? ?WN.JDBC@LOWER?};
ZZZZ999959	8800	******( 時間起動予約実行 )***********************
ZZZZ999959	8900	=BAT_SERVER{ZZZZZZTIME,?WN.TIME[1;2]? ?WN.TIME[4;2]?
ZZZZ999959	9000	=   NEXT ?WN.YMD? ?WN.QUERE? ?WN.JDBC@LOWER?};
ZZZZ999959	9100	******( ?_MM?_I_TIME_TABLEのステータスを'TIME'に変更 )*****
ZZZZ999959	9200	*SQL{UPDATE ?_MM?_I_TIME_TABLE SET
ZZZZ999959	9300	*   SYSTEM_?_REAL_TEST?_STATUS='TIME'
ZZZZ999959	9400	*   WHERE SYSTEM_HH='99' AND SYSTEM_MIN='99'};
ZZZZ999959	9410	=PROGRAM{3,?_MM?_I_TIME_TABLE
ZZZZ999959	9411	=  ,WC.SYSTEM_?_REAL_TEST?_STATUS='TIME'}
ZZZZ999959	9430	=  {WC.SYSTEM_HH='99',WC.SYSTEM_MIN='99'}{};
ZZZZ999961	100	***( 生産サンプル用暦　作成 )***
ZZZZ999961	200	*==( 該当テーブル無い時は処理中止)==*
ZZZZ999961	300	=IF_TABLE_NOT{?_MM?_CALENDAR_TABLE}EXIT{};
ZZZZ999961	400	=IF_TABLE_NOT{?_MM?_PLACE_TABLE}EXIT{};
ZZZZ999961	500	*=====( MRP 処理中設定  )==============================
ZZZZ999961	600	=SQL{UPDATE ?_MM?_ETC_TABLE SET HATTYUU_ETC_DATA='1'
ZZZZ999961	700	=   ,?_Z_UPDATE_CHANGE? WHERE HATTYUU_ETC='WW_MRP_RUN'
ZZZZ999961	800	=   AND HATTYUU_ETC_KEY=' ' AND Z_CANCEL=' '};
ZZZZ999961	900	=IF{_SQL_COUNT_123<>1}ERROR{ETC_TABLE WW_MRP_RUN NOT FOUND};
ZZZZ999961	1000	*==( 暦期間抜き出し　)==*
ZZZZ999961	1100	=SQL_SET{W_CALENDAR_DAY}{SELECT HATTYUU_ETC_DATA FROM
ZZZZ999961	1200	=   ?_MM?_ETC_TABLE WHERE HATTYUU_ETC='ZZ_CALENDAR_DAY'
ZZZZ999961	1300	=   AND HATTYUU_ETC_KEY=' ' AND Z_CANCEL=' '};
ZZZZ999961	1310	=IF{_SQL_SET_COUNT=0}
ZZZZ999961	1400	=  ERROR{ETC_TABLE,ZZ_CALENDAR_DAY NOT FOUND};
ZZZZ999961	1500	*==( 暦作成 )==*
ZZZZ999961	1600	*--( 社外はHOLIDAY_DEFAULTで以外はHOLIDAYを使用 )--*
ZZZZ999961	1700	=SQL{INSERT INTO ?_MM?_CALENDAR_TABLE(?_Z_INSERT_NAME?
ZZZZ999961	1800	=   ,HATTYUU_PLACE,HATTYUU_DATE,HATTYUU_HOLIDAY
ZZZZ999961	1900	=   ,HATTYUU_HOLIDAY_DEFAULT)
ZZZZ999961	2000	=   SELECT ?_Z_INSERT_VALUE?,HATTYUU_PLACE,SYSTEM_DATE
ZZZZ999961	2100	=   ,CASE  HATTYUU_PLACE_MARK WHEN 'O'
ZZZZ999961	2110	=   THEN SYSTEM_HOLIDAY_DEFAULT
ZZZZ999961	2200	=   ELSE SYSTEM_HOLIDAY END
ZZZZ999961	2300	=  ,SYSTEM_HOLIDAY_DEFAULT FROM ?_MA_SYSTEM?_CALENDAR_TABLE C
ZZZZ999961	2400	=   ,?_MM?_PLACE_TABLE P WHERE SYSTEM_DATE>='?_TODAY?' AND
ZZZZ999961	2520	=   ?_DAY_DATE((_NOW_DATE);(W_CALENDAR_DAY))?
ZZZZ999961	2600	=   >=SYSTEM_DATE AND HATTYUU_CALENDAR_MARK=' '
ZZZZ999961	2700	=   AND C.Z_CANCEL=' ' AND  P.Z_CANCEL=' '
ZZZZ999961	2800	=   AND NOT EXISTS( SELECT HATTYUU_DATE FROM
ZZZZ999961	2900	=   ?_MM?_CALENDAR_TABLE X
ZZZZ999961	3000	=   WHERE X.HATTYUU_PLACE=P.HATTYUU_PLACE
ZZZZ999961	3100	=   AND X.HATTYUU_DATE=C.SYSTEM_DATE)};
ZZZZ999961	3200	*==( 古い暦削除 )==*
ZZZZ999961	3300	=SQL{UPDATE ?_MM?_CALENDAR_TABLE SET
ZZZZ999961	3400	=   ?_Z_UPDATE_CANCEL?
ZZZZ999961	3410	=   WHERE HATTYUU_DATE<(SELECT MIN(SYSTEM_DATE)
ZZZZ999961	3500	=   FROM ?_MA_SYSTEM?_CALENDAR_TABLE WHERE Z_CANCEL=' ')
ZZZZ999961	3600	=   AND Z_CANCEL=' '};
ZZZZ999962	100	***( MRP_TRAN_A 生産計画 抜き出し )***
ZZZZ999962	200	*==( 該当テーブル無い時は処理中止)==*
ZZZZ999962	300	=IF_TABLE_NOT{?_MM?_PRODUCTION_TABLE}EXIT{};
ZZZZ999962	400	*==(W_YEAR 生産計画保管年数読み込み )=======
ZZZZ999962	500	=SQL_SET{W_YEAR}{SELECT HATTYUU_ETC_DATA FROM
ZZZZ999962	600	=   ?_MM?_ETC_TABLE
ZZZZ999962	610	=   WHERE HATTYUU_ETC='ZZ_PRODUCTION_YEAR'
ZZZZ999962	700	=   AND HATTYUU_ETC_KEY=' ' AND Z_CANCEL=' '};
ZZZZ999962	710	=IF{_SQL_SET_COUNT=0}
ZZZZ999962	800	=   ERROR{ETC='ZZ_PRODUCTION_YEAR' NOT FOUND};
ZZZZ999962	900	*==( 古い生産計画削除 )==*
ZZZZ999962	910	=SET{W_YEAR_DAYS='-365*'+W_YEAR};
ZZZZ999962	1000	=SQL{UPDATE ?_MM?_PRODUCTION_TABLE
ZZZZ999962	1010	=   SET ?_Z_UPDATE_CANCEL? WHERE
ZZZZ999962	1100	=   Z_CANCEL=' ' AND  HATTYUU_DATE<
ZZZZ999962	1220	=   ?_DAY_DATE((_NOW_DATE);(W_YEAR_DAYS))?};
ZZZZ999962	1300	*==( 準備 )==*
ZZZZ999962	1400	=SET_TABLE{&X2,?_MM?_PRODUCTION_TABLE};
ZZZZ999962	1510	=SET_DICTIONARY{HATTYUU_QTY_SUM};
ZZZZ999962	2000	=SET{W_KEY_CRE='?&X2.C&HATTYUU_OBJECT?'
ZZZZ999962	2010	=   +',?&X2.C&HATTYUU_DATE?'
ZZZZ999962	2100	=   +',?&X2.C&HATTYUU_PLACE?'
ZZZZ999962	2200	=   +',HATTYUU_OWNER_PLACE,?&X2.C2&HATTYUU_PLACE?'
ZZZZ999962	2300	=   +',HATTYUU_PRODUCTION_OBJECT,?&X2.C2&HATTYUU_OBJECT?'
ZZZZ999962	2400	=   +',HATTYUU_PRODUCTION_DATE,?&X2.C2&HATTYUU_DATE?'
ZZZZ999962	2500	=   +',HATTYUU_PRODUCTION_PLACE,?&X2.C2&HATTYUU_PLACE?'
ZZZZ999962	2600	=   +',HATTYUU_PRODUCTION_MARK,C,1'};
ZZZZ999962	2700	=SET{W_DATA_CRE='HATTYUU_START_QTY_SUM'
ZZZZ999962	2710	=   +',?&C2&HATTYUU_QTY_SUM?'
ZZZZ999962	2800	=   +',HATTYUU_QTY_SUM,?&C2&HATTYUU_QTY_SUM?'
ZZZZ999962	2802	=   +',HATTYUU_ORDER_QTY_SUM'
ZZZZ999962	2810	=   +',?&C2&HATTYUU_QTY_SUM?'
ZZZZ999962	2900	=   +',HATTYUU_ARRANGE_MARK,C,1'
ZZZZ999962	2910	=   +',HATTYUU_LOT,INT,HATTYUU_LOT_MARK,C,1'
ZZZZ999962	3000	=   +',HATTYUU_PROCESS_DAYS,INT,HATTYUU_LEVEL,INT'
ZZZZ999962	3100	=   +',HATTYUU_START_DATE,?&X2.C2&HATTYUU_DATE?'};
ZZZZ999962	3200	*==(WW_PRODUCTION_DATE 生産計画日設定 )==*
ZZZZ999962	3300	=SQL_SET{WW_PRODUCTION_DATE}{SELECT HATTYUU_ETC_DATA FROM
ZZZZ999962	3400	=   ?_MM?_ETC_TABLE WHERE HATTYUU_ETC='WW_PRODUCTION_DATE'
ZZZZ999962	3500	=   AND HATTYUU_ETC_KEY=' ' AND Z_CANCEL=' '};
ZZZZ999962	3510	=IF{_SQL_SET_COUNT=0}
ZZZZ999962	3600	=   ERROR{ETC='WW_PRODUCTION_DATE' NOT FOUND};
ZZZZ999962	3700	*==(TRAN_A 生産計画抜き出し WW_PRODUCTION_DATE以降
ZZZZ999962	3800	****( A HATTYUU_PRODUCTION_MARK=* )***
ZZZZ999962	3900	=DROP_TABLE{?_WW?_MRP_TRAN_A};
ZZZZ999962	4000	=CREATE_TABLE2{?_WW?_MRP_TRAN_A}
ZZZZ999962	4100	=  {?W_KEY_CRE?,?W_DATA_CRE?};
ZZZZ999962	4200	=SQL{INSERT INTO ?_WW?_MRP_TRAN_A
ZZZZ999962	4210	=   SELECT HATTYUU_OBJECT
ZZZZ999962	4300	=   ,HATTYUU_DATE,HATTYUU_PLACE,HATTYUU_PLACE,HATTYUU_OBJECT
ZZZZ999962	4400	=   ,HATTYUU_DATE,HATTYUU_PLACE,'*'
ZZZZ999962	4410	=   ,HATTYUU_QTY,HATTYUU_QTY,HATTYUU_QTY
ZZZZ999962	4500	=   ,' ',0,' ',0,0,' ' FROM
ZZZZ999962	4600	=   ?_MM?_PRODUCTION_TABLE WHERE
ZZZZ999962	4700	=   HATTYUU_DATE>'?WW_PRODUCTION_DATE?'
ZZZZ999962	4800	=   AND HATTYUU_QTY>0 AND Z_CANCEL=' '};
ZZZZ999962	4900	*==(MRP_TRAN_A 納品計画分生産計画抜き出し==*
ZZZZ999962	5000	****( A HATTYUU_PRODUCTION_MARK='*'->'X' )***
ZZZZ999962	5100	=SQL{INSERT INTO ?_WW?_MRP_TRAN_A SELECT HATTYUU_OBJECT
ZZZZ999962	5200	=   ,HATTYUU_DATE,HATTYUU_PLACE,HATTYUU_PLACE,HATTYUU_OBJECT
ZZZZ999962	5300	=   ,HATTYUU_DATE,HATTYUU_PLACE,'X'
ZZZZ999962	5310	=   ,HATTYUU_QTY_SUM,HATTYUU_QTY_SUM,HATTYUU_QTY_SUM
ZZZZ999962	5400	=   ,' ',0,' ',0,0,' ' FROM
ZZZZ999962	5500	=   ?_MM?_SLIP_PLAN_TABLE WHERE HATTYUU_PRODUCTION_MARK='*'
ZZZZ999962	5600	=   AND HATTYUU_SLIP_MARK=' ' AND Z_CANCEL=' '};
ZZZZ999963	100	***( MRP_BOM 構成テーブル,MRP_OBJECT テーブル作成　)***
ZZZZ999963	200	*==( 該当テーブル無い時は処理中止)==*
ZZZZ999963	300	=IF_TABLE_NOT{?_MM?_PRODUCTION_TABLE}EXIT{};
ZZZZ999963	400	*==( 作業テーブルDROP )==*
ZZZZ999963	500	NAME=DROP_TABLE
ZZZZ999963	600	=DROP_TABLE{?_WORK_TABLE?A};
ZZZZ999963	700	=DROP_TABLE{?_WORK_TABLE?B};
ZZZZ999963	800	NAME=
ZZZZ999963	900	*JUMP{NEXT};
ZZZZ999963	1000	*==( WW_PRODUCTION_DATE 生産計画日設定 )==*
ZZZZ999963	1100	=SQL_SET{WW_PRODUCTION_DATE}{SELECT HATTYUU_ETC_DATA FROM
ZZZZ999963	1200	=   ?_MM?_ETC_TABLE WHERE HATTYUU_ETC='WW_PRODUCTION_DATE'
ZZZZ999963	1300	=   AND HATTYUU_ETC_KEY=' ' AND Z_CANCEL=' '};
ZZZZ999963	1310	=IF{_SQL_SET_COUNT=0}
ZZZZ999963	1400	=  ERROR{ETC_TABLE,WW_PRODUCTION_DATE NOT FOUND};
ZZZZ999963	1500	*==( 準備処理 )==*
ZZZZ999963	1600	=SET{W0LEVEL=0};
ZZZZ999963	1700	=SET_TABLE{&X2,?_MM?_PRODUCTION_TABLE};
ZZZZ999963	1800	=SET_TABLE{&X3,?_MM?_BOM_TABLE};
ZZZZ999963	1900	=CREATE_TABLE2{?_WORK_TABLE?A,?&X2.C&HATTYUU_OBJECT?}{};
ZZZZ999963	2000	=DROP_TABLE{?_WW?_MRP_OBJECT};
ZZZZ999963	2100	=CREATE_TABLE2{?_WW?_MRP_OBJECT,?&X2.C&HATTYUU_OBJECT?}
ZZZZ999963	2200	=  {HATTYUU_LEVEL,INT,HATTYUU_ARRANGE_MARK,C,1};
ZZZZ999963	2300	=DROP_TABLE{?_WW?_MRP_BOM};
ZZZZ999963	2400	=CREATE_TABLE2{?_WW?_MRP_BOM,?&X3.C&HATTYUU_OWNER_OBJECT?
ZZZZ999963	2500	=   ,?&X3.C&HATTYUU_MEMBER_OBJECT?}
ZZZZ999963	2510	=  {?&X3.C&HATTYUU_NUMERATOR?
ZZZZ999963	2600	=   ,?&X3.C&HATTYUU_DENOMINATOR?};
ZZZZ999963	2700	=SQL{INSERT INTO ?_WW?_MRP_BOM SELECT HATTYUU_OWNER_OBJECT
ZZZZ999963	2800	=   ,HATTYUU_MEMBER_OBJECT,HATTYUU_NUMERATOR
ZZZZ999963	2810	=   ,HATTYUU_DENOMINATOR
ZZZZ999963	2900	=   FROM ?_MM?_BOM_TABLE B,?_MM?_OBJECT_TABLE O
ZZZZ999963	3000	=   WHERE O.HATTYUU_OBJECT=B.HATTYUU_OWNER_OBJECT
ZZZZ999963	3100	=   AND HATTYUU_BOM_OK=' ' AND B.Z_CANCEL=' '
ZZZZ999963	3200	=   AND O.Z_CANCEL=' '};
ZZZZ999963	3300	=COPY_TABLE{?_WORK_TABLE?B,?_WW?_MRP_BOM,NOT};
ZZZZ999963	3400	*==( A 対象物　抜き出し )==*
ZZZZ999963	3500	=SQL{INSERT INTO ?_WORK_TABLE?A SELECT DISTINCT
ZZZZ999963	3600	=   HATTYUU_OBJECT FROM ?_MM?_PRODUCTION_TABLE WHERE
ZZZZ999963	3700	=   HATTYUU_QTY>0 AND HATTYUU_DATE>'?WW_PRODUCTION_DATE?'
ZZZZ999963	3800	=   AND Z_CANCEL=' '};
ZZZZ999963	3900	=LOOP:
ZZZZ999963	4000	*==(レベルUPDATE)==*
ZZZZ999963	4100	=SQL{UPDATE ?_WW?_MRP_OBJECT SET HATTYUU_LEVEL=?W0LEVEL?
ZZZZ999963	4200	=   WHERE  HATTYUU_OBJECT
ZZZZ999963	4300	=   IN(SELECT HATTYUU_OBJECT FROM ?_WORK_TABLE?A)};
ZZZZ999963	4400	*==(レベルINSERT)==*
ZZZZ999963	4500	=SQL{INSERT INTO ?_WW?_MRP_OBJECT SELECT HATTYUU_OBJECT
ZZZZ999963	4600	=   ,?W0LEVEL?,' ' FROM ?_WORK_TABLE?A A
ZZZZ999963	4610	=   WHERE NOT EXISTS
ZZZZ999963	4700	=   (SELECT HATTYUU_OBJECT FROM ?_WW?_MRP_OBJECT L
ZZZZ999963	4800	=   WHERE L.HATTYUU_OBJECT=A.HATTYUU_OBJECT)};
ZZZZ999963	4900	=SQL{DELETE FROM ?_WORK_TABLE?B};
ZZZZ999963	5000	*==(構成１レベル展開 )==*
ZZZZ999963	5100	=SQL{INSERT INTO ?_WORK_TABLE?B SELECT HATTYUU_OWNER_OBJECT
ZZZZ999963	5200	=   ,HATTYUU_MEMBER_OBJECT,HATTYUU_NUMERATOR
ZZZZ999963	5210	=   ,HATTYUU_DENOMINATOR
ZZZZ999963	5300	=   FROM ?_MM?_BOM_TABLE B,?_WORK_TABLE?A A WHERE
ZZZZ999963	5400	=   B.HATTYUU_OWNER_OBJECT=A.HATTYUU_OBJECT
ZZZZ999963	5410	=   AND B.Z_CANCEL=' '
ZZZZ999963	5500	=   AND HATTYUU_NUMERATOR<>0};
ZZZZ999963	5600	=SQL{DELETE FROM ?_WORK_TABLE?A};
ZZZZ999963	5700	*==( 物ユニーク化 )==*
ZZZZ999963	5800	=SQL{INSERT INTO ?_WORK_TABLE?A SELECT DISTINCT
ZZZZ999963	5900	=   HATTYUU_MEMBER_OBJECT FROM  ?_WORK_TABLE?B};
ZZZZ999963	6000	*==( 展開終了判定 )==*
ZZZZ999963	6100	=SQL_SET{W0CNT}{SELECT COUNT(*) FROM ?_WORK_TABLE?A};
ZZZZ999963	6200	=IF{W0CNT=0}JUMP{FIN};
ZZZZ999963	6300	*==( MRP_BOM 展開データ累積 )==*
ZZZZ999963	6400	=SQL{INSERT INTO ?_WW?_MRP_BOM SELECT HATTYUU_OWNER_OBJECT
ZZZZ999963	6500	=   ,HATTYUU_MEMBER_OBJECT,HATTYUU_NUMERATOR
ZZZZ999963	6510	=   ,HATTYUU_DENOMINATOR
ZZZZ999963	6600	=   FROM ?_WORK_TABLE?B B WHERE NOT EXISTS(SELECT
ZZZZ999963	6700	=   HATTYUU_OWNER_OBJECT FROM ?_WW?_MRP_BOM BOM WHERE
ZZZZ999963	6800	=   BOM.HATTYUU_OWNER_OBJECT=B.HATTYUU_OWNER_OBJECT
ZZZZ999963	6900	=   AND BOM.HATTYUU_MEMBER_OBJECT=B.HATTYUU_MEMBER_OBJECT)};
ZZZZ999963	7000	*=( レベル　カウント　アップ )==*
ZZZZ999963	7100	=COMPUTE{W0LEVEL+=1};
ZZZZ999963	7200	*==( 次の展開に戻る )==*
ZZZZ999963	7300	=BACK{LOOP};
ZZZZ999963	7400	=FIN:
ZZZZ999963	7500	***( MRP_PROCESS 工程抜き出し )***
ZZZZ999963	7600	=SET_TABLE{&X4,?_MM?_PROCESS_TABLE};
ZZZZ999963	7700	=DROP_TABLE{?_WW?_MRP_PROCESS};
ZZZZ999963	7800	=CREATE_TABLE2{?_WW?_MRP_PROCESS,
ZZZZ999963	7900	=   ?&X4.C&HATTYUU_OBJECT?,?&X4.C&HATTYUU_PLACE?}
ZZZZ999963	8000	=  {?&X4.C&HATTYUU_PERCENT?,?&X4.C&HATTYUU_ARRANGE_MARK?
ZZZZ999963	8100	=   ,?&X4.C&HATTYUU_LOT?,?&X4.C&HATTYUU_LOT_MARK?
ZZZZ999963	8200	=   ,?&X4.C&HATTYUU_PROCESS_DAYS?,?&X4.C&HATTYUU_STORAGE?};
ZZZZ999963	8300	=SQL{INSERT INTO ?_WW?_MRP_PROCESS SELECT
ZZZZ999963	8400	=   HATTYUU_OBJECT,HATTYUU_PLACE
ZZZZ999963	8500	=   ,HATTYUU_PERCENT,HATTYUU_ARRANGE_MARK
ZZZZ999963	8600	=   ,HATTYUU_LOT,HATTYUU_LOT_MARK
ZZZZ999963	8700	=   ,HATTYUU_PROCESS_DAYS,HATTYUU_STORAGE
ZZZZ999963	8800	=   FROM ?_MM?_PROCESS_TABLE X3
ZZZZ999963	8900	=   WHERE (X3.HATTYUU_PERCENT>0
ZZZZ999963	8910	=   OR X3.HATTYUU_ARRANGE_MARK='*')
ZZZZ999963	9000	=   AND EXISTS(SELECT HATTYUU_OBJECT FROM ?_WW?_MRP_OBJECT X4
ZZZZ999963	9100	=   WHERE X3.?_NE&X4.HATTYUU_OBJECT?)
ZZZZ999963	9200	=   AND X3.Z_CANCEL=' '};
ZZZZ999963	9300	*****( 手配不要設定 * )**********************************
ZZZZ999963	9400	=UPDATE{?_WW?_MRP_OBJECT,HATTYUU_ARRANGE_MARK}
ZZZZ999963	9500	=  {I.HATTYUU_ARRANGE_MARK}{?_MM?_OBJECT_TABLE I WHERE
ZZZZ999963	9600	=   O.?_NE&I.HATTYUU_OBJECT?
ZZZZ999963	9700	=   AND I.Z_CANCEL=' '};
ZZZZ999963	9800	=SQL{UPDATE ?_WW?_MRP_OBJECT SET HATTYUU_ARRANGE_MARK='*'
ZZZZ999963	9900	=   WHERE HATTYUU_OBJECT
ZZZZ999963	10000	=   IN(SELECT HATTYUU_OBJECT FROM ?_WW?_MRP_PROCESS X2 WHERE
ZZZZ999963	10100	=   X2.HATTYUU_ARRANGE_MARK='*'
ZZZZ999963	10200	=   AND NOT EXISTS(SELECT HATTYUU_OBJECT
ZZZZ999963	10300	=   FROM ?_WW?_MRP_PROCESS X3 WHERE
ZZZZ999963	10400	=   X2.?_NE&X3.HATTYUU_OBJECT?
ZZZZ999963	10500	=   AND X3.HATTYUU_ARRANGE_MARK<>'*'))};
ZZZZ999963	10600	***( 工程無　'P' 設定)***
ZZZZ999963	10700	=SQL{UPDATE ?_WW?_MRP_OBJECT SET HATTYUU_ARRANGE_MARK='P'
ZZZZ999963	10800	=  WHERE HATTYUU_OBJECT NOT
ZZZZ999963	10900	=  IN(SELECT HATTYUU_OBJECT FROM ?_WW?_MRP_PROCESS)};
ZZZZ999963	11000	COPY=DROP_TABLE
ZZZZ999964	100	*==( 該当テーブル無い時は処理中止 )==*
ZZZZ999964	200	=IF_TABLE_NOT{?_MM?_PRODUCTION_TABLE}EXIT{};
ZZZZ999964	300	*==( W_MY_PLACE 自社設定 )==*
ZZZZ999964	400	***( 自社設定 出来ないときは処理中止 )***
ZZZZ999964	500	=SQL_SET{W_MY_PLACE}{SELECT HATTYUU_PLACE FROM
ZZZZ999964	600	=   ?_MM?_PLACE_TABLE WHERE HATTYUU_PLACE_MARK='='
ZZZZ999964	700	=   AND Z_CANCEL=' '};
ZZZZ999964	800	=IF{_SQL_SET_COUNT=0}
ZZZZ999964	900	=   MESSAGE{ HATTYUU_PLACE_MARK='=' NOT FOUND ABNOMAL END}
ZZZZ999964	1000	=   EXIT{};
ZZZZ999964	1100	***( 準備 )***
ZZZZ999964	1200	=SET_TABLE{&X2,?_MM?_PRODUCTION_TABLE};
ZZZZ999964	1300	=SET_TABLE{&X3,?_MM?_PROCESS_TABLE};
ZZZZ999964	1400	=SET_DICTIONARY{HATTYUU_QTY_SUM};
ZZZZ999964	1500	=SET{W_KEY='HATTYUU_OBJECT,HATTYUU_DATE,HATTYUU_PLACE'
ZZZZ999964	1600	=   +',HATTYUU_OWNER_PLACE,HATTYUU_PRODUCTION_OBJECT'
ZZZZ999964	1700	=   +',HATTYUU_PRODUCTION_DATE,HATTYUU_PRODUCTION_PLACE'
ZZZZ999964	1800	=   +',HATTYUU_PRODUCTION_MARK'};
ZZZZ999964	1900	=SET{W_KEY_CRE='?&X2.C&HATTYUU_OBJECT?,?&X2.C&HATTYUU_DATE?'
ZZZZ999964	2000	=   +',?&X2.C&HATTYUU_PLACE?'
ZZZZ999964	2100	=   +',HATTYUU_OWNER_PLACE,?&X2.C2&HATTYUU_PLACE?'
ZZZZ999964	2200	=   +',HATTYUU_PRODUCTION_OBJECT,?&X2.C2&HATTYUU_OBJECT?'
ZZZZ999964	2300	=   +',HATTYUU_PRODUCTION_DATE,?&X2.C2&HATTYUU_DATE?'
ZZZZ999964	2400	=   +',HATTYUU_PRODUCTION_PLACE,?&X2.C2&HATTYUU_PLACE?'
ZZZZ999964	2500	=   +',HATTYUU_PRODUCTION_MARK,C,1'};
ZZZZ999964	2600	=SET{W_DATA_CRE='HATTYUU_START_QTY_SUM,?&C2&HATTYUU_QTY_SUM?'
ZZZZ999964	2700	=   +',HATTYUU_QTY_SUM,?&C2&HATTYUU_QTY_SUM?'
ZZZZ999964	2800	=   +',HATTYUU_ORDER_QTY_SUM,?&C2&HATTYUU_QTY_SUM?'
ZZZZ999964	2900	=   +',HATTYUU_ARRANGE_MARK,C,1'
ZZZZ999964	3000	=   +',HATTYUU_LOT,INT,HATTYUU_LOT_MARK,C,1'
ZZZZ999964	3100	=   +',HATTYUU_PROCESS_DAYS,INT,HATTYUU_LEVEL,INT'
ZZZZ999964	3200	=   +',HATTYUU_START_DATE,?&X2.C2&HATTYUU_DATE?'};
ZZZZ999964	3300	=SET{W_SUB=',SUB_MARK,C,1,SUB_MARK2,C,1'
ZZZZ999964	3400	=   +',SUB_PLACE,?&X3.C2&HATTYUU_PLACE?'
ZZZZ999964	3500	=   +',SUB_STORAGE,?&X3.C2&HATTYUU_STORAGE?'
ZZZZ999964	3600	=   +',SUB_NO,INT'};
ZZZZ999964	3700	*=====( MRP_PLACE 場所　抜き出し )==========================
ZZZZ999964	3800	=SET_TABLE{&X4,?_MM?_PLACE_TABLE};
ZZZZ999964	3900	=DROP_TABLE{?_WW?_MRP_PLACE};
ZZZZ999964	4000	=CREATE_TABLE2{?_WW?_MRP_PLACE,
ZZZZ999964	4100	=   ?&X4.C&HATTYUU_PLACE?}
ZZZZ999964	4200	=  {?&X4.C&HATTYUU_CALENDAR_PLACE?,?&X4.C&HATTYUU_HOUR?
ZZZZ999964	4300	=   ,?&X4.C&HATTYUU_PLACE_MARK?
ZZZZ999964	4400	=   ,?&X4.C&HATTYUU_WEEK1_MARK?,?&X4.C&HATTYUU_WEEK2_MARK?
ZZZZ999964	4500	=   ,?&X4.C&HATTYUU_WEEK3_MARK?,?&X4.C&HATTYUU_WEEK4_MARK?
ZZZZ999964	4600	=   ,?&X4.C&HATTYUU_WEEK5_MARK?,?&X4.C&HATTYUU_WEEK6_MARK?
ZZZZ999964	4700	=   ,?&X4.C&HATTYUU_WEEK7_MARK?};
ZZZZ999964	4800	=SQL{INSERT INTO ?_WW?_MRP_PLACE SELECT  X4.HATTYUU_PLACE
ZZZZ999964	4900	=   ,CASE HATTYUU_CALENDAR_MARK
ZZZZ999964	5000	=   WHEN ' ' THEN HATTYUU_PLACE
ZZZZ999964	5100	=   WHEN '*' THEN HATTYUU_CALENDAR_PLACE
ZZZZ999964	5200	=   ELSE         '?W_MY_PLACE?' END,HATTYUU_HOUR
ZZZZ999964	5300	=   ,HATTYUU_PLACE_MARK,HATTYUU_WEEK1_MARK,HATTYUU_WEEK2_MARK
ZZZZ999964	5400	=   ,HATTYUU_WEEK3_MARK,HATTYUU_WEEK4_MARK,HATTYUU_WEEK5_MARK
ZZZZ999964	5500	=   ,HATTYUU_WEEK6_MARK,HATTYUU_WEEK7_MARK
ZZZZ999964	5600	=   FROM ?_MM?_PLACE_TABLE X4 WHERE
ZZZZ999964	5700	=   (EXISTS(SELECT HATTYUU_PLACE FROM ?_WW?_MRP_PROCESS T4
ZZZZ999964	5800	=   WHERE X4.HATTYUU_PLACE=T4.HATTYUU_PLACE)
ZZZZ999964	5900	=   OR    X4.HATTYUU_PLACE='?W_MY_PLACE?')
ZZZZ999964	6000	=   AND   X4.Z_CANCEL=' '};
ZZZZ999964	6100	***( 納品計画残抜き出し PLAN_B)***
ZZZZ999964	6200	=SET_TABLE{&X5,?_MM?_SLIP_PLAN_TABLE};
ZZZZ999964	6300	=DROP_TABLE{?_WW?_MRP_PLAN_B};
ZZZZ999964	6400	=CREATE_TABLE2{?_WW?_MRP_PLAN_B,?&X5.C&HATTYUU_NO?}
ZZZZ999964	6500	=  {?&X5.C&HATTYUU_OBJECT?,?&X5.C&HATTYUU_DATE?
ZZZZ999964	6600	=   ,?&X5.C&HATTYUU_PLACE?
ZZZZ999964	6700	=   ,?&X5.C&HATTYUU_OWNER_PLACE?,HATTYUU_START_QTY_SUM
ZZZZ999964	6800	=   ,?&C2&HATTYUU_QTY_SUM?,HATTYUU_QTY_SUM
ZZZZ999964	6900	=   ,?&C2&HATTYUU_QTY_SUM?
ZZZZ999964	7000	=   ,SUB_DATE,?&X5.C2&HATTYUU_DATE?
ZZZZ999964	7100	=   ,SUB_PLACE,?&X5.C2&HATTYUU_PLACE?};
ZZZZ999964	7200	=SQL{INSERT INTO ?_WW?_MRP_PLAN_B SELECT HATTYUU_NO
ZZZZ999964	7300	=   ,HATTYUU_OBJECT,HATTYUU_DATE,HATTYUU_PLACE
ZZZZ999964	7400	=   ,HATTYUU_OWNER_PLACE
ZZZZ999964	7500	=   ,HATTYUU_QTY_SUM,HATTYUU_QTY_SUM,' ',' ' FROM
ZZZZ999964	7600	=   ?_MM?_SLIP_PLAN_TABLE WHERE HATTYUU_PRODUCTION_MARK=' '
ZZZZ999964	7700	=   AND HATTYUU_SLIP_MARK=' ' AND Z_CANCEL=' '};
ZZZZ999964	7800	***( MRP_STOCK_PLACE_A 仕掛抜き出し A)***
ZZZZ999964	7900	=SET_TABLE{&X6,?_MM?_STOCK_PLACE_TABLE};
ZZZZ999964	8000	=DROP_TABLE{?_WW?_MRP_STOCK_PLACE_A};
ZZZZ999964	8100	=CREATE_TABLE2{?_WW?_MRP_STOCK_PLACE_A,
ZZZZ999964	8200	=   ?&X6.C&HATTYUU_OBJECT?,?&X6.C&HATTYUU_PLACE?}
ZZZZ999964	8300	=  {HATTYUU_MARK,C,1,HATTYUU_START_QTY_SUM
ZZZZ999964	8400	=   ,?&X6.C2&HATTYUU_QTY_SUM?
ZZZZ999964	8500	=   ,?&X6.C&HATTYUU_QTY_SUM?};
ZZZZ999964	8600	=SQL{INSERT INTO ?_WW?_MRP_STOCK_PLACE_A SELECT
ZZZZ999964	8700	=   X6.HATTYUU_OBJECT,X6.HATTYUU_PLACE
ZZZZ999964	8800	= ,CASE WHEN X0.HATTYUU_STORAGE IS NULL THEN ' ' ELSE '1' END
ZZZZ999964	8900	=   ,X6.HATTYUU_QTY_SUM,X6.HATTYUU_QTY_SUM
ZZZZ999964	9000	=   FROM ?_MM?_STOCK_PLACE_TABLE X6
ZZZZ999964	9100	=   LEFT OUTER JOIN ?_MM?_PROCESS_TABLE X0
ZZZZ999964	9200	=   ON X6.?_NE&X0.HATTYUU_OBJECT?
ZZZZ999964	9300	=   AND X6.?_NE&X0.HATTYUU_PLACE?
ZZZZ999964	9400	=   AND(X0.HATTYUU_PERCENT>0 OR X0.HATTYUU_ARRANGE_MARK='*')
ZZZZ999964	9500	=   AND X0.Z_CANCEL=' '
ZZZZ999964	9600	=   WHERE X6.HATTYUU_QTY_SUM<>0 AND X6.Z_CANCEL=' '};
ZZZZ999964	9700	***( MRP_STOCK_STORAGE_A  在庫抜き出し )***
ZZZZ999964	9800	=SET_TABLE{&X7,?_MM?_STOCK_STORAGE_TABLE};
ZZZZ999964	9900	=DROP_TABLE{?_WW?_MRP_STOCK_STORAGE_A};
ZZZZ999964	10000	=CREATE_TABLE2{?_WW?_MRP_STOCK_STORAGE_A,
ZZZZ999964	10100	=   ?&X7.C&HATTYUU_OBJECT?,?&X7.C&HATTYUU_STORAGE?
ZZZZ999964	10200	=   ,?&X7.C&HATTYUU_STORAGE_MARK?}
ZZZZ999964	10300	=  {HATTYUU_START_QTY_SUM,?&X7.C2&HATTYUU_QTY_SUM?
ZZZZ999964	10400	=   ,?&X7.C&HATTYUU_QTY_SUM?};
ZZZZ999964	10500	=SQL{INSERT INTO ?_WW?_MRP_STOCK_STORAGE_A SELECT
ZZZZ999964	10600	=   X7.HATTYUU_OBJECT,X7.HATTYUU_STORAGE
ZZZZ999964	10700	=   ,X7.HATTYUU_STORAGE_MARK
ZZZZ999964	10800	=   ,X7.HATTYUU_QTY_SUM,X7.HATTYUU_QTY_SUM
ZZZZ999964	10900	=   FROM ?_MM?_STOCK_STORAGE_TABLE X7
ZZZZ999964	11000	=   WHERE X7.HATTYUU_QTY_SUM<>0
ZZZZ999964	11100	=   AND X7.HATTYUU_STORAGE_MARK<>'*'
ZZZZ999964	11200	=   AND X7.HATTYUU_PRODUCTION_MARK=' ' AND X7.Z_CANCEL=' '};
ZZZZ999964	11300	*=====( 在庫，仕掛テーブル、マイナス数消し込み A->B )========
ZZZZ999964	11400	***( マイナス在庫、仕掛は相殺して、補正する )***
ZZZZ999964	11500	*==( 準備 )==*
ZZZZ999964	11600	=SET_TABLE{&X8,?_WW?_MRP_STOCK_STORAGE_A};
ZZZZ999964	11700	=DROP_TABLE{?_WW?_MRP_STOCK_MINUS_X};
ZZZZ999964	11800	=DROP_TABLE{?_WW?_MRP_STOCK_MINUS_Y};
ZZZZ999964	11900	=DROP_TABLE{?_WW?_MRP_STOCK_WORK};
ZZZZ999964	12000	=CREATE_TABLE2{?_WW?_MRP_STOCK_MINUS_X}
ZZZZ999964	12100	=  {?&X8.C&HATTYUU_OBJECT?,?&X8.C&HATTYUU_QTY_SUM?};
ZZZZ999964	12200	=CREATE_TABLE2{?_WW?_MRP_STOCK_MINUS_Y,
ZZZZ999964	12300	=   ?&X8.C&HATTYUU_OBJECT?}{?&X8.C&HATTYUU_QTY_SUM?};
ZZZZ999964	12400	=CREATE_TABLE2{?_WW?_MRP_STOCK_WORK,
ZZZZ999964	12500	=   ?&X8.C&HATTYUU_OBJECT?}{?&X8.C&HATTYUU_QTY_SUM?};
ZZZZ999964	12600	=DROP_TABLE{?_WW?_MRP_STOCK_STORAGE_B};
ZZZZ999964	12700	=COPY_TABLE{?_WW?_MRP_STOCK_STORAGE_B,
ZZZZ999964	12800	=   ?_WW?_MRP_STOCK_STORAGE_A,WHERE HATTYUU_QTY_SUM>0};
ZZZZ999964	12900	=SQL{INSERT INTO ?_WW?_MRP_STOCK_MINUS_X
ZZZZ999964	13000	=   SELECT HATTYUU_OBJECT,SUM(0-HATTYUU_QTY_SUM)
ZZZZ999964	13100	=   FROM ?_WW?_MRP_STOCK_STORAGE_A WHERE HATTYUU_QTY_SUM<0
ZZZZ999964	13200	=   GROUP BY HATTYUU_OBJECT};
ZZZZ999964	13300	=DROP_TABLE{?_WW?_MRP_STOCK_PLACE_B};
ZZZZ999964	13400	=COPY_TABLE{?_WW?_MRP_STOCK_PLACE_B,
ZZZZ999964	13500	=   ?_WW?_MRP_STOCK_PLACE_A,WHERE HATTYUU_QTY_SUM>0};
ZZZZ999964	13600	=SQL{INSERT INTO ?_WW?_MRP_STOCK_MINUS_X
ZZZZ999964	13700	=   SELECT HATTYUU_OBJECT,SUM(0-HATTYUU_QTY_SUM)
ZZZZ999964	13800	=   FROM ?_WW?_MRP_STOCK_PLACE_A WHERE HATTYUU_QTY_SUM<0
ZZZZ999964	13900	=   GROUP BY HATTYUU_OBJECT};
ZZZZ999964	14000	=SQL{INSERT INTO ?_WW?_MRP_STOCK_MINUS_Y
ZZZZ999964	14100	=   SELECT HATTYUU_OBJECT,SUM(HATTYUU_QTY_SUM)
ZZZZ999964	14200	=   FROM ?_WW?_MRP_STOCK_MINUS_X GROUP BY HATTYUU_OBJECT};
ZZZZ999964	14300	*==( ZZZZ_MRP_STOCK_STORAGE 在庫 消しこみ B)==*
ZZZZ999964	14400	=SQL1{SELECT DISTINCT HATTYUU_STORAGE,HATTYUU_STORAGE_MARK
ZZZZ999964	14500	=   FROM ?_WW?_MRP_STOCK_STORAGE_B X2 WHERE EXISTS(SELECT
ZZZZ999964	14600	=   HATTYUU_OBJECT FROM ?_WW?_MRP_STOCK_MINUS_Y X3 WHERE
ZZZZ999964	14700	=   X2.?_NE&X3.HATTYUU_OBJECT?)};
ZZZZ999964	14800	=SQL1_NEXT:
ZZZZ999964	14900	=SQL1_NEXT{WC.HATTYUU_STORAGE,WC.HATTYUU_STORAGE_MARK}
ZZZZ999964	15000	=                                           JUMP{SQL1_END};
ZZZZ999964	15100	=SQL{DELETE FROM ?_WW?_MRP_STOCK_WORK};
ZZZZ999964	15200	=SQL{INSERT INTO  ?_WW?_MRP_STOCK_WORK SELECT
ZZZZ999964	15300	=   X2.HATTYUU_OBJECT
ZZZZ999964	15400	=   ,CASE WHEN X2.HATTYUU_QTY_SUM>X3.HATTYUU_QTY_SUM
ZZZZ999964	15500	=   THEN X3.HATTYUU_QTY_SUM ELSE X2.HATTYUU_QTY_SUM END
ZZZZ999964	15600	=   FROM ?_WW?_MRP_STOCK_STORAGE_B X2
ZZZZ999964	15700	=   ,?_WW?_MRP_STOCK_MINUS_Y X3
ZZZZ999964	15800	=   WHERE X2.?_NE&X3.HATTYUU_OBJECT?
ZZZZ999964	15900	=   AND  ?_VRE&WC.HATTYUU_STORAGE?
ZZZZ999964	16000	=   AND  ?_VRE&WC.HATTYUU_STORAGE_MARK?};
ZZZZ999964	16100	=SET{W_AND=' AND O.?_VRE&WC.HATTYUU_STORAGE?'
ZZZZ999964	16200	=   +'AND  O.?_VRE&WC.HATTYUU_STORAGE_MARK?'};
ZZZZ999964	16300	=SET{W_T='?_WW?_MRP_STOCK_STORAGE_B'};
ZZZZ999964	16400	NAME=UPDATE
ZZZZ999964	16500	=UPDATE{?W_T?,HATTYUU_QTY_SUM}
ZZZZ999964	16600	=  {O.HATTYUU_QTY_SUM - I.HATTYUU_QTY_SUM}
ZZZZ999964	16700	=  {?_WW?_MRP_STOCK_WORK I
ZZZZ999964	16800	=   WHERE O.HATTYUU_OBJECT=I.HATTYUU_OBJECT ?W_AND?};
ZZZZ999964	16900	NAME=
ZZZZ999964	17000	=SET{W_T='?_WW?_MRP_STOCK_MINUS_Y',W_AND=};
ZZZZ999964	17100	COPY=UPDATE
ZZZZ999964	17200	=BACK{SQL1_NEXT};
ZZZZ999964	17300	=SQL1_END:
ZZZZ999964	17400	*==( ZZZZ_MRP_STOCK_PLACE 仕掛　消しこみ　B)==*
ZZZZ999964	17500	=SQL1{SELECT DISTINCT HATTYUU_PLACE
ZZZZ999964	17600	=   FROM ?_WW?_MRP_STOCK_PLACE_B X2 WHERE EXISTS(SELECT
ZZZZ999964	17700	=   HATTYUU_OBJECT FROM ?_WW?_MRP_STOCK_MINUS_Y X3 WHERE
ZZZZ999964	17800	=   X2.?_NE&X3.HATTYUU_OBJECT?)};
ZZZZ999964	17900	=SQL1_NEXT:
ZZZZ999964	18000	=SQL1_NEXT{WC.HATTYUU_PLACE}JUMP{SQL1_END};
ZZZZ999964	18100	=SQL{DELETE FROM ?_WW?_MRP_STOCK_WORK};
ZZZZ999964	18200	=SQL{INSERT INTO  ?_WW?_MRP_STOCK_WORK SELECT
ZZZZ999964	18300	=    X2.HATTYUU_OBJECT
ZZZZ999964	18400	=   ,CASE WHEN X2.HATTYUU_QTY_SUM>X3.HATTYUU_QTY_SUM
ZZZZ999964	18500	=   THEN X3.HATTYUU_QTY_SUM ELSE X2.HATTYUU_QTY_SUM END
ZZZZ999964	18600	=   FROM ?_WW?_MRP_STOCK_PLACE_B X2
ZZZZ999964	18700	=   ,?_WW?_MRP_STOCK_MINUS_Y X3
ZZZZ999964	18800	=   WHERE X2.?_NE&X3.HATTYUU_OBJECT?
ZZZZ999964	18900	=   AND  ?_VRE&WC.HATTYUU_PLACE?};
ZZZZ999964	19000	=SET{W_AND=' AND O.?_VRE&WC.HATTYUU_PLACE?'};
ZZZZ999964	19100	=SET{W_T='?_WW?_MRP_STOCK_PLACE_B'};
ZZZZ999964	19200	COPY=UPDATE
ZZZZ999964	19300	=SET{W_T='?_WW?_MRP_STOCK_MINUS_Y',W_AND=};
ZZZZ999964	19400	COPY=UPDATE
ZZZZ999964	19500	=BACK{SQL1_NEXT};
ZZZZ999964	19600	=SQL1_END:
ZZZZ999964	19700	***( トランザクション　サマリー化 A->B )***
ZZZZ999964	19800	=DROP_TABLE{?_WW?_MRP_TRAN_B};
ZZZZ999964	19900	=CREATE_TABLE2{?_WW?_MRP_TRAN_B,?W_KEY_CRE?}{?W_DATA_CRE?};
ZZZZ999964	20100	=SQL{INSERT INTO ?_WW?_MRP_TRAN_B SELECT ?W_KEY?
ZZZZ999964	20200	=   ,SUM(HATTYUU_START_QTY_SUM),SUM(HATTYUU_QTY_SUM)
ZZZZ999964	20300	=   ,SUM(HATTYUU_ORDER_QTY_SUM),MAX(HATTYUU_ARRANGE_MARK)
ZZZZ999964	20400	=   ,MAX(HATTYUU_LOT),MAX(HATTYUU_LOT_MARK)
ZZZZ999964	20500	=   ,MAX(HATTYUU_PROCESS_DAYS),MAX(HATTYUU_LEVEL)
ZZZZ999964	20600	=   ,MIN(HATTYUU_START_DATE)
ZZZZ999964	20700	=   FROM ?_WW?_MRP_TRAN_A GROUP BY ?W_KEY?};
ZZZZ999964	20800	***( 構成無　ZZ_HATTYUU_ARRANGE_MARK='B' 設定)***
ZZZZ999964	20900	=SQL{UPDATE ?_WW?_MRP_TRAN_B
ZZZZ999964	21000	=   SET HATTYUU_ARRANGE_MARK='B'
ZZZZ999964	21100	=   WHERE HATTYUU_OBJECT NOT IN(SELECT HATTYUU_OWNER_OBJECT
ZZZZ999964	21200	=   FROM ?_WW?_MRP_BOM)};
ZZZZ999964	21300	*******( ZZ_REAL_COST_TABLE COPY )**************************
ZZZZ999964	21400	=DROP_TABLE{?_WW?_MRP_REAL_COST};
ZZZZ999964	21500	=COPY_TABLE{?_WW?_MRP_REAL_COST,?_MM?_REAL_COST_TABLE};
ZZZZ999965	100	*============================================================
ZZZZ999965	200	*== (*注意* RERUNする場合はETC_TABLE,WW_PRODUCTION_DATEを
ZZZZ999965	300	*=== １世代前の状態に戻す必要があります )====================
ZZZZ999965	400	*============================================================
ZZZZ999965	500	***( MRP_CALENDAR 手番計算用暦テーブル作成 )***
ZZZZ999965	600	*==( 該当テーブル無い時は処理中止)==*
ZZZZ999965	700	=IF_TABLE_NOT{?_MM?_CALENDAR_TABLE}EXIT{};
ZZZZ999965	800	*==( WC_MY.HATTYUU_PLACE 自社設定 無の時終了　)==*
ZZZZ999965	900	=SQL_SET{WC_MY.HATTYUU_PLACE}{SELECT HATTYUU_PLACE FROM
ZZZZ999965	1000	=   ?_MM?_PLACE_TABLE WHERE HATTYUU_PLACE_MARK='='
ZZZZ999965	1100	=   AND Z_CANCEL=' '};
ZZZZ999965	1200	=IF{_SQL_SET_COUNT=0}
ZZZZ999965	1300	=   ERROR{PLACE_TABLE (HATTYUU_PLACE_MARK='=') NOT FOUND};
ZZZZ999965	1400	*==( 準備 )==*
ZZZZ999965	1500	=SET_TABLE{&X3,?_MM?_CALENDAR_TABLE};
ZZZZ999965	1600	=DROP_TABLE{?_WW?_MRP_CALENDAR};
ZZZZ999965	1700	=CREATE_TABLE2{?_WW?_MRP_CALENDAR,?&X3.C&HATTYUU_PLACE?
ZZZZ999965	1800	=   ,?&X3.C&HATTYUU_DATE?,HATTYUU_DAY,INT}
ZZZZ999965	1900	={HATTYUU_DATE_NEW,?&X3.C2&HATTYUU_DATE?,HATTYUU_MARK,C,1};
ZZZZ999965	2000	*==( W_ZZ_MRP_START_DAY　MRP開始日数設定 )==*
ZZZZ999965	2100	=SQL_SET{W_ZZ_MRP_START_DAY}{SELECT HATTYUU_ETC_DATA FROM
ZZZZ999965	2200	=   ?_MM?_ETC_TABLE WHERE HATTYUU_ETC='ZZ_MRP_START_DAY'
ZZZZ999965	2300	=   AND HATTYUU_ETC_KEY=' ' AND Z_CANCEL=' '};
ZZZZ999965	2400	=IF{_SQL_SET_COUNT=0}
ZZZZ999965	2500	=   ERROR{ETC_TABLE,ZZ_MRP_START_DAY NOT FOUND};
ZZZZ999965	2600	*==( W_DATE_START　MRP開始日設定 )==*
ZZZZ999965	2700	=IF_ERROR_SET{_SQL_LIMIT=W_ZZ_MRP_START_DAY}ERROR{};
ZZZZ999965	2800	=SQL1{SELECT HATTYUU_DATE FROM ?_MM?_CALENDAR_TABLE WHERE
ZZZZ999965	2900	=   ?_VRE&WC_MY.HATTYUU_PLACE?
ZZZZ999965	3000	=   AND HATTYUU_DATE>'?_TODAY?'
ZZZZ999965	3100	=   AND HATTYUU_HOLIDAY=' ' AND Z_CANCEL=' ' ORDER BY 1};
ZZZZ999965	3200	=SET{W0CNT=1};
ZZZZ999965	3300	=SQL1_NEXT:SQL1_NEXT{W_DATE_START}ERROR{CALENDAR};
ZZZZ999965	3400	=IF{W0CNT>=W_ZZ_MRP_START_DAY}JUMP{OK};
ZZZZ999965	3500	=COMPUTE{W0CNT+=1};BACK{SQL1_NEXT};
ZZZZ999965	3600	=OK:SQL{UPDATE ?_MM?_ETC_TABLE SET HATTYUU_ETC_DATA=
ZZZZ999965	3700	=   '?W_DATE_START?',?_Z_UPDATE_CHANGE?
ZZZZ999965	3800	=   WHERE HATTYUU_ETC='WW_MRP_DATE_START'
ZZZZ999965	3900	=   AND HATTYUU_ETC_KEY=' ' AND Z_CANCEL=' '};
ZZZZ999965	4000	=IF{_SQL_COUNT_123!=1}
ZZZZ999965	4100	=   ERROR{UPDATE ETC,WW_MRP_DATE_START};
ZZZZ999965	4200	*==( W_DATE_STOP　MRP終了日設定 )==*
ZZZZ999965	4300	=SQL_SET{W_DATE_STOP}{SELECT MAX(HATTYUU_DATE) FROM
ZZZZ999965	4400	=   ?_MM?_PRODUCTION_TABLE WHERE Z_CANCEL=' '};
ZZZZ999965	4500	=SQL{UPDATE ?_MM?_ETC_TABLE SET HATTYUU_ETC_DATA=
ZZZZ999965	4600	=   '?W_DATE_STOP?',?_Z_UPDATE_CHANGE?
ZZZZ999965	4700	=   WHERE HATTYUU_ETC='WW_MRP_DATE_STOP'
ZZZZ999965	4800	=   AND HATTYUU_ETC_KEY=' '  AND Z_CANCEL=' '};
ZZZZ999965	4900	=IF{_SQL_COUNT_123!=1}ERROR{UPDATE ETC,WW_MRP_DATE_STOP};
ZZZZ999965	5000	*==( CALENDAR_TABLE 作成 )==*
ZZZZ999965	5100	=SQL_FILE{.TXT,OT,,W}
ZZZZ999965	5200	=  {SELECT HATTYUU_PLACE FROM ?_MM?_PLACE_TABLE
ZZZZ999965	5300	=   X2 WHERE EXISTS
ZZZZ999965	5400	=   (SELECT HATTYUU_PLACE FROM ?_WW?_MRP_PLACE
ZZZZ999965	5500	=   T1 WHERE X2.HATTYUU_PLACE=T1.HATTYUU_PLACE)
ZZZZ999965	5600	=   AND HATTYUU_CALENDAR_MARK=' '
ZZZZ999965	5700	=   AND Z_CANCEL=' ' ORDER BY 1};
ZZZZ999965	5800	=READ_OPEN{1,?_TMP??_SQL_FILE?.TXT,/};
ZZZZ999965	5900	=READ_NEXT1:READ_NEXT{1,W_PLACE}JUMP{READ_END1};
ZZZZ999965	6000	=SET{W_WHERE=};SQL1{SELECT HATTYUU_DATE,HATTYUU_HOLIDAY
ZZZZ999965	6100	NAME=CALENDAR
ZZZZ999965	6200	=   FROM ?_MM?_CALENDAR_TABLE
ZZZZ999965	6300	=  WHERE HATTYUU_PLACE='?W_PLACE?'
ZZZZ999965	6400	=   AND HATTYUU_DATE>='?W_DATE_START?'
ZZZZ999965	6500	=   AND HATTYUU_DATE<='?W_DATE_STOP?' ?W_WHERE?
ZZZZ999965	6600	=   AND Z_CANCEL=' ' ORDER BY 1 DESC};
ZZZZ999965	6700	NAME=
ZZZZ999965	6800	=SET{W_WHERE='AND HATTYUU_HOLIDAY='' '''};
ZZZZ999965	6900	=SQL2{SELECT HATTYUU_DATE
ZZZZ999965	7000	COPY=CALENDAR
ZZZZ999965	7100	=SQL1_NEXT:SQL1_NEXT{W_DATE1,W_HOLIDAY}BACK{READ_NEXT1};
ZZZZ999965	7200	=SET{W0CNT=0};
ZZZZ999965	7300	=SQL2_NEXT:SQL2_NEXT{W_DATE2}JUMP{SQL2_END};
ZZZZ999965	7400	=IF{W_DATE1<W_DATE2}BACK{SQL2_NEXT};
ZZZZ999965	7500	=SQL{INSERT INTO ?_WW?_MRP_CALENDAR
ZZZZ999965	7600	=   VALUES('?W_PLACE?'
ZZZZ999965	7700	=   ,'?W_DATE1?',?W0CNT?,'?W_DATE2?','?W_HOLIDAY?')};
ZZZZ999965	7800	=IF{W0CNT>0,W_DATE1=W_DATE2}JUMP{SKIP};
ZZZZ999965	7900	=COMPUTE{W0CNT+=1};
ZZZZ999965	8000	=SQL{INSERT INTO ?_WW?_MRP_CALENDAR
ZZZZ999965	8100	=   VALUES('?W_PLACE?'
ZZZZ999965	8200	=   ,'?W_DATE1?',?W0CNT?,'?W_DATE2?','?W_HOLIDAY?')};
ZZZZ999965	8300	=SKIP:COMPUTE{W0CNT+=1};
ZZZZ999965	8400	=BACK{SQL2_NEXT};
ZZZZ999965	8500	=SQL2_END:SQL2_FIRST{};
ZZZZ999965	8600	=BACK{SQL1_NEXT};
ZZZZ999965	8700	=READ_END1:
ZZZZ999965	8800	=READ_CLOSE{1};
ZZZZ999965	8900	***( 補正処理　)*****************************
ZZZZ999965	9000	*==( 自社休み補正 2 )************************
ZZZZ999965	9100	=SQL{UPDATE ?_WW?_MRP_CALENDAR SET HATTYUU_MARK='2'
ZZZZ999965	9200	=   WHERE HATTYUU_MARK=' ' AND HATTYUU_DATE<>'?W_DATE_START?'
ZZZZ999965	9300	=   AND HATTYUU_DATE IN(SELECT HATTYUU_DATE FROM
ZZZZ999965	9400	=   ?_MM?_CALENDAR_TABLE X3
ZZZZ999965	9500	=   WHERE X3.?_VRE&WC_MY.HATTYUU_PLACE?
ZZZZ999965	9600	=   AND X3.HATTYUU_HOLIDAY<>' ')};
ZZZZ999965	9700	*==( 全工区分追加 )=========================================
ZZZZ999965	9800	=SQL{INSERT INTO ?_WW?_MRP_CALENDAR SELECT
ZZZZ999965	9900	=   X3.HATTYUU_PLACE,X2.HATTYUU_DATE,X2.HATTYUU_DAY
ZZZZ999965	10000	=   ,X2.HATTYUU_DATE_NEW,X2.HATTYUU_MARK FROM
ZZZZ999965	10100	=   ?_WW?_MRP_CALENDAR X2,?_MM?_PLACE_TABLE X3
ZZZZ999965	10200	=   WHERE(X3.HATTYUU_CALENDAR_MARK='*'
ZZZZ999965	10300	=   AND X3.HATTYUU_CALENDAR_PLACE=X2.HATTYUU_PLACE
ZZZZ999965	10400	=   OR X3.HATTYUU_CALENDAR_MARK='='
ZZZZ999965	10500	=   AND X2.?_VRE&WC_MY.HATTYUU_PLACE?)
ZZZZ999965	10600	=   AND X3.Z_CANCEL=' '};
ZZZZ999965	10700	*==( 曜日補正 3 )************************
ZZZZ999965	10800	REPEAT=7
ZZZZ999965	10900	=SQL{UPDATE ?_WW?_MRP_CALENDAR SET HATTYUU_MARK='3'
ZZZZ999965	11000	=   WHERE HATTYUU_MARK=' '
ZZZZ999965	11100	=   AND HATTYUU_DATE<>'?W_DATE_START?' AND
ZZZZ999965	11200	=   ?_WEEK_CHAR(HATTYUU_DATE)?
ZZZZ999965	11300	=   =## AND HATTYUU_PLACE IN(SELECT HATTYUU_PLACE FROM
ZZZZ999965	11400	=   ?_MM?_PLACE_TABLE WHERE Z_CANCEL=' '
ZZZZ999965	11500	=   AND HATTYUU_WEEK##_MARK='*')};
ZZZZ999965	11600	REPEAT=
ZZZZ999965	11700	*==( HATTYUU_DATE_NEW 日付け補正 )************************
ZZZZ999965	11800	=DROP_TABLE{?_WW?_MRP_CALENDAR_SAME};
ZZZZ999965	11900	=COPY_TABLE{?_WW?_MRP_CALENDAR_SAME,?_WW?_MRP_CALENDAR};
ZZZZ999965	12000	=SQL{UPDATE
ZZZZ999965	12100	M-=   ?_WW?_MRP_CALENDAR
ZZZZ999965	12200	=   O SET HATTYUU_DATE_NEW=(SELECT MAX(HATTYUU_DATE)
ZZZZ999965	12300	=   FROM ?_WW?_MRP_CALENDAR_SAME I
ZZZZ999965	12400	=   WHERE I.?_NE&O.HATTYUU_PLACE?
ZZZZ999965	12500	=   AND I.HATTYUU_DATE<=O.HATTYUU_DATE_NEW
ZZZZ999965	12600	=   AND I.HATTYUU_MARK=' ')
ZZZZ999965	12700	M+=   FROM ?_WW?_MRP_CALENDAR O
ZZZZ999965	12800	=   };
ZZZZ999965	12900	*============================================================
ZZZZ999965	13000	*== (*注意* RERUNする場合はETC_TABLE,WW_PRODUCTION_DATEを
ZZZZ999965	13100	*=== １世代前の状態に戻す必要があります )====================
ZZZZ999965	13200	*============================================================
ZZZZ999965	13300	*==( 生産計画日 WW_PRODUCTION_DATE 計算 )===
ZZZZ999965	13400	=SQL_SET{W0MRP_CLOSE_WEEK}{SELECT HATTYUU_ETC_DATA FROM
ZZZZ999965	13500	=   ?_MM?_ETC_TABLE WHERE HATTYUU_ETC='ZZ_MRP_CLOSE_WEEK'
ZZZZ999965	13600	=   AND HATTYUU_ETC_KEY=' ' AND Z_CANCEL=' '};
ZZZZ999965	13700	=IF{_SQL_SET_COUNT=0}
ZZZZ999965	13800	=   ERROR{ETC_TABLE,ZZ_MRP_CLOSE_WEEK NOT FOUND};
ZZZZ999965	13900	=SQL_SET{WW_MRP_DATE_START}{SELECT HATTYUU_ETC_DATA FROM
ZZZZ999965	14000	=   ?_MM?_ETC_TABLE WHERE HATTYUU_ETC='WW_MRP_DATE_START'
ZZZZ999965	14100	=   AND HATTYUU_ETC_KEY=' ' AND Z_CANCEL=' '};
ZZZZ999965	14200	=IF{_SQL_SET_COUNT=0}
ZZZZ999965	14300	=   ERROR{ETC_TABLE,WW_MRP_DATE_START NOT FOUND};
ZZZZ999965	14400	=SET{_SQL_LIMIT=W0MRP_CLOSE_WEEK};締め週分のみ受信*
ZZZZ999965	14500	=SQL1{SELECT SYSTEM_DATE FROM ?_MA_SYSTEM?_CALENDAR_TABLE
ZZZZ999965	14600	=   WHERE  SYSTEM_DATE>'?WW_MRP_DATE_START?' AND
ZZZZ999965	14700	=   ?_WEEK_CHAR(SYSTEM_DATE)?=1 ORDER BY 1};日曜日*
ZZZZ999965	14800	=SQL1_NEXT:SQL1_NEXT{WW_PRODUCTION_DATE}JUMP{SQL1_END};
ZZZZ999965	14900	=BACK{SQL1_NEXT};最後の日付け*
ZZZZ999965	15000	=SQL1_END:
ZZZZ999965	15100	*============================================================
ZZZZ999965	15200	*==( 生産計画日 WW_PRODUCTION_DATE 更新 )===
ZZZZ999965	15300	*============================================================
ZZZZ999965	15400	=SET{W0I=8,W0O=9};
ZZZZ999965	15500	=DROP_TABLE{?_WW?_ETC_TABLE_SAME};
ZZZZ999965	15600	=COPY_TABLE{?_WW?_ETC_TABLE_SAME,?_MM?_ETC_TABLE};
ZZZZ999965	15700	REPEAT=9
ZZZZ999965	15800	=UPDATE{?_MM?_ETC_TABLE,HATTYUU_ETC_DATA,Z_CHANGE}
ZZZZ999965	15900	=  {I.HATTYUU_ETC_DATA,I.Z_CHANGE}
ZZZZ999965	16000	=  {?_WW?_ETC_TABLE_SAME I WHERE
ZZZZ999965	16100	=   I.HATTYUU_ETC='WW_PRODUCTION_DATE'
ZZZZ999965	16200	9-=   AND I.HATTYUU_ETC_KEY='?W0I?'
ZZZZ999965	16300	9+=   AND I.HATTYUU_ETC_KEY=' '
ZZZZ999965	16400	=   AND I.Z_CANCEL=' '
ZZZZ999965	16500	=   AND O.HATTYUU_ETC='WW_PRODUCTION_DATE'
ZZZZ999965	16600	=   AND O.HATTYUU_ETC_KEY='?W0O?'
ZZZZ999965	16700	=   AND O.Z_CANCEL=' '};
ZZZZ999965	16800	=IF{_SQL_COUNT_123<>1}
ZZZZ999965	16900	=   ERROR{ETC_TABLE WW_PRODUCTION_DATE (?W0O?) NOT FOUND};
ZZZZ999965	17000	=COMPUTE{W0I-=1,W0O-=1};
ZZZZ999965	17100	REPEAT=
ZZZZ999965	17200	=SQL{UPDATE ?_MM?_ETC_TABLE SET HATTYUU_ETC_DATA=
ZZZZ999965	17300	=   '?WW_PRODUCTION_DATE?',?_Z_UPDATE_CHANGE? WHERE
ZZZZ999965	17400	=   HATTYUU_ETC='WW_PRODUCTION_DATE'
ZZZZ999965	17500	=   AND HATTYUU_ETC_KEY=' '};
ZZZZ999965	17600	=IF{_SQL_COUNT_123<>1}
ZZZZ999965	17700	=  ERROR{ETC_TABLE WW_PRODUCTION_DATE  NOT FOUND};
ZZZZ999966	100	*==( 該当テーブル無い時は処理中止)==*
ZZZZ999966	200	*SET{_TRACE=0};
ZZZZ999966	300	=IF_TABLE_NOT{?_MM?_PRODUCTION_TABLE}EXIT{};
ZZZZ999966	400	*==( W_MY_PLACE 自社設定 無の時終了　)==*
ZZZZ999966	500	=SQL_SET{W_MY_PLACE}{SELECT HATTYUU_PLACE FROM
ZZZZ999966	600	=   ?_MM?_PLACE_TABLE WHERE HATTYUU_PLACE_MARK='='
ZZZZ999966	700	=   AND Z_CANCEL=' '};
ZZZZ999966	800	=IF{_SQL_SET_COUNT=0}ERROR{W_MY_PLACE};
ZZZZ999966	900	*=====( MRP 処理中解除  )==============================
ZZZZ999966	1000	=SQL{UPDATE ?_MM?_ETC_TABLE SET HATTYUU_ETC_DATA='0'
ZZZZ999966	1100	=   ,?_Z_UPDATE_CHANGE? WHERE HATTYUU_ETC='WW_MRP_RUN'
ZZZZ999966	1200	=   AND HATTYUU_ETC_KEY=' ' AND Z_CANCEL=' '};
ZZZZ999966	1300	=IF{_SQL_COUNT_123<>1}ERROR{ETC_TABLE WW_MRP_RUN NOT FOUND};
ZZZZ999966	1400	***( 準備 )***
ZZZZ999966	1500	=SET{W_KEY=
ZZZZ999966	1600	=   'X1.HATTYUU_OBJECT,X1.HATTYUU_DATE,X1.HATTYUU_PLACE'
ZZZZ999966	1700	=   +',X1.HATTYUU_OWNER_PLACE,X1.HATTYUU_PRODUCTION_OBJECT'
ZZZZ999966	1800	=  +',X1.HATTYUU_PRODUCTION_DATE,X1.HATTYUU_PRODUCTION_PLACE'
ZZZZ999966	1900	=   +',X1.HATTYUU_PRODUCTION_MARK'};
ZZZZ999966	2000	*=====( 発注仕掛データ準備 STOCK_PLACE_B->C)=================
ZZZZ999966	2100	=DROP_TABLE{?_WW?_MRP_STOCK_PLACE_C};
ZZZZ999966	2200	=COPY_TABLE{?_WW?_MRP_STOCK_PLACE_C,
ZZZZ999966	2300	=   ?_WW?_MRP_STOCK_PLACE_B,WHERE HATTYUU_MARK<>' '};
ZZZZ999966	2400	*=====( 在庫仕掛データ準備 STOCK_XXX_B->C)===============
ZZZZ999966	2500	***( 発注仕掛は除く )***
ZZZZ999966	2600	=SET_TABLE{&X2,?_WW?_MRP_STOCK_STORAGE_B};
ZZZZ999966	2700	=DROP_TABLE{?_WW?_MRP_STOCK_C};
ZZZZ999966	2800	=CREATE_TABLE2{?_WW?_MRP_STOCK_C,
ZZZZ999966	2900	=   ?&X2.C&HATTYUU_OBJECT?}
ZZZZ999966	3000	=  {HATTYUU_START_QTY_SUM,?&X2.C2&HATTYUU_QTY_SUM?
ZZZZ999966	3100	=   ,?&X2.C&HATTYUU_QTY_SUM?};
ZZZZ999966	3200	=SQL{INSERT INTO ?_WW?_MRP_STOCK_C SELECT
ZZZZ999966	3300	=   HATTYUU_OBJECT, HATTYUU_QTY_SUM,HATTYUU_QTY_SUM FROM
ZZZZ999966	3400	=   (SELECT HATTYUU_OBJECT
ZZZZ999966	3500	=   ,SUM( HATTYUU_QTY_SUM) AS  HATTYUU_QTY_SUM
ZZZZ999966	3600	=   FROM ?_WW?_MRP_STOCK_STORAGE_B GROUP BY HATTYUU_OBJECT
ZZZZ999966	3700	=   UNION SELECT  HATTYUU_OBJECT,SUM(HATTYUU_QTY_SUM)
ZZZZ999966	3800	=   AS  HATTYUU_QTY_SUM FROM ?_WW?_MRP_STOCK_PLACE_B
ZZZZ999966	3900	=   WHERE HATTYUU_MARK=' ' GROUP BY HATTYUU_OBJECT) X1};
ZZZZ999966	4000	*=====( 納品残サマリー化 PLAN_B->C)==========================
ZZZZ999966	4100	=SET_TABLE{&X1,?_WW?_MRP_PLAN_B};
ZZZZ999966	4200	=DROP_TABLE{?_WW?_MRP_PLAN_C};
ZZZZ999966	4300	=CREATE_TABLE2{?_WW?_MRP_PLAN_C,?&X1.C&HATTYUU_OBJECT?}
ZZZZ999966	4400	=  {HATTYUU_START_QTY_SUM
ZZZZ999966	4500	=   ,?&X2.C2&HATTYUU_QTY_SUM?,?&X2.C&HATTYUU_QTY_SUM?};
ZZZZ999966	4600	=SQL{INSERT INTO ?_WW?_MRP_PLAN_C SELECT HATTYUU_OBJECT
ZZZZ999966	4700	=   ,SUM(HATTYUU_QTY_SUM),SUM(HATTYUU_QTY_SUM) FROM
ZZZZ999966	4800	=   ?_WW?_MRP_PLAN_B  GROUP BY HATTYUU_OBJECT,HATTYUU_PLACE};
ZZZZ999966	4900	***( 作業手番付加 B->C)***
ZZZZ999966	5000	=DROP_TABLE{?_WW?_MRP_TRAN_C};
ZZZZ999966	5100	=COPY_TABLE{?_WW?_MRP_TRAN_C,?_WW?_MRP_TRAN_B,NOT};
ZZZZ999966	5200	=SQL{INSERT INTO ?_WW?_MRP_TRAN_C
ZZZZ999966	5300	=   SELECT X1.HATTYUU_OBJECT,X1.HATTYUU_DATE,X1.HATTYUU_PLACE
ZZZZ999966	5400	=   ,X1.HATTYUU_OWNER_PLACE,X1.HATTYUU_PRODUCTION_OBJECT
ZZZZ999966	5500	=   ,X1.HATTYUU_PRODUCTION_DATE,X1.HATTYUU_PRODUCTION_PLACE
ZZZZ999966	5600	=   ,X1.HATTYUU_PRODUCTION_MARK
ZZZZ999966	5700	=   ,X1.HATTYUU_START_QTY_SUM
ZZZZ999966	5800	=   ,X1.HATTYUU_QTY_SUM,X1.HATTYUU_ORDER_QTY_SUM
ZZZZ999966	5900	=   ,CASE WHEN X2.HATTYUU_ARRANGE_MARK IS NULL THEN ' '
ZZZZ999966	6000	=    ELSE      X2.HATTYUU_ARRANGE_MARK END
ZZZZ999966	6100	=   ,CASE WHEN X2.HATTYUU_LOT IS NULL THEN 0
ZZZZ999966	6200	=    ELSE X2.HATTYUU_LOT END
ZZZZ999966	6300	=   ,CASE WHEN X2.HATTYUU_LOT_MARK IS NULL THEN ' '
ZZZZ999966	6400	=   ELSE X2.HATTYUU_LOT_MARK END
ZZZZ999966	6500	=   ,CASE WHEN X2.HATTYUU_PROCESS_DAYS IS NULL THEN 0
ZZZZ999966	6600	=   ELSE X2.HATTYUU_PROCESS_DAYS END
ZZZZ999966	6700	=   ,X1.HATTYUU_LEVEL,X1.HATTYUU_START_DATE FROM
ZZZZ999966	6800	=   ?_WW?_MRP_TRAN_B X1
ZZZZ999966	6900	=   LEFT OUTER JOIN ?_WW?_MRP_PROCESS X2
ZZZZ999966	7000	=   ON  X1.?_NE&X2.HATTYUU_OBJECT?
ZZZZ999966	7100	=   AND X1.?_NE&X2.HATTYUU_PLACE?};
ZZZZ999966	7200	*====( レベル　付加 C )===================================
ZZZZ999966	7300	=UPDATE{?_WW?_MRP_TRAN_C,HATTYUU_LEVEL}{I.HATTYUU_LEVEL}
ZZZZ999966	7400	=  {?_WW?_MRP_OBJECT I WHERE O.?_NE&I.HATTYUU_OBJECT?
ZZZZ999966	7500	=   AND O.?_NLG&I.HATTYUU_LEVEL?};
ZZZZ999966	7600	=SET{W0CNT_LEVEL=0};
ZZZZ999966	7700	=SQL_SET{W0MAX_LEVEL}
ZZZZ999966	7800	=  {SELECT MAX(HATTYUU_LEVEL) FROM ?_WW?_MRP_OBJECT};
ZZZZ999966	7900	*====( 開始日　設定 WW_MRP_DATE_START )======================
ZZZZ999966	8000	=SQL_SET{WW_MRP_DATE_START}{SELECT HATTYUU_ETC_DATA FROM
ZZZZ999966	8100	=   ?_MM?_ETC_TABLE WHERE HATTYUU_ETC='WW_MRP_DATE_START'
ZZZZ999966	8200	=   AND HATTYUU_ETC_KEY=' '};
ZZZZ999966	8300	=IF{_SQL_SET_COUNT=0}ERROR{PROGRAM MISS};
ZZZZ999966	8400	*============================================================
ZZZZ999966	8500	*=====( レベル単位に繰り返す )===============================
ZZZZ999966	8600	*============================================================
ZZZZ999966	8700	=LOOP:
ZZZZ999966	8800	*=====( 着手日計算 C )====================================***
ZZZZ999966	8900	=UPDATE{?_WW?_MRP_TRAN_C,HATTYUU_START_DATE}
ZZZZ999966	9000	=  {I.HATTYUU_DATE_NEW}{?_WW?_MRP_CALENDAR I WHERE
ZZZZ999966	9100	=   O.?_NE&I.HATTYUU_PLACE?
ZZZZ999966	9200	=   AND O.?_NE&I.HATTYUU_DATE?
ZZZZ999966	9300	=   AND O.HATTYUU_PROCESS_DAYS=I.HATTYUU_DAY
ZZZZ999966	9400	=   AND O.HATTYUU_START_DATE<>I.HATTYUU_DATE_NEW};
ZZZZ999966	9500	*****( カレンダーなし開始日設定 C )**
ZZZZ999966	9600	=SQL{UPDATE ?_WW?_MRP_TRAN_C
ZZZZ999966	9700	=   SET HATTYUU_START_DATE='?WW_MRP_DATE_START?'
ZZZZ999966	9800	=   WHERE HATTYUU_START_DATE=' '};
ZZZZ999966	9900	*=====( 発注仕掛　引当 (QTY) C )============================
ZZZZ999966	10000	***( 納入直前の状態で棚卸した事を想定し発注量は引かない )***
ZZZZ999966	10100	*DROP_TABLE{?_WW?_MRP_W_A};
ZZZZ999966	10200	*SQL{SELECT * INTO ?_WW?_MRP_W_A FROM ?_WW?_MRP_TRAN_C};
ZZZZ999966	10300	=CURSOR2{?_WW?_MRP_TRAN_C,?_WW?_MRP_STOCK_PLACE_C}
ZZZZ999966	10400	=  {HATTYUU_OBJECT,K,HATTYUU_PLACE,K
ZZZZ999966	10500	=   ,HATTYUU_DATE,A,HATTYUU_OWNER_PLACE,A
ZZZZ999966	10600	=   ,HATTYUU_PRODUCTION_OBJECT,A,HATTYUU_PRODUCTION_DATE,A
ZZZZ999966	10700	=   ,HATTYUU_PRODUCTION_PLACE,A
ZZZZ999966	10800	=   ,HATTYUU_PRODUCTION_MARK,A,HATTYUU_QTY_SUM,}
ZZZZ999966	10900	=  {HATTYUU_LEVEL=?W0CNT_LEVEL? AND HATTYUU_QTY_SUM>0
ZZZZ999966	11000	=   AND EXISTS(SELECT 0 FROM ?_WW?_MRP_STOCK_PLACE_C X2 WHERE
ZZZZ999966	11100	=   X1.?_NE&X2.HATTYUU_OBJECT? AND X1.?_NE&X2.HATTYUU_PLACE?
ZZZZ999966	11200	=   AND X2.HATTYUU_QTY_SUM>0)}
ZZZZ999966	11300	=  {COUNT_X,I,UPDATE_X,I}
ZZZZ999966	11400	=  {?_O_SET(W.UPDATE_X (=) 0)?
ZZZZ999966	11500	=   SELECT ?_O_INTO(COUNT_X;COUNT(*))?
ZZZZ999966	11600	=   ?_CONTINUE(FROM )? ?_CONTINUE((_O_TABLE2))?
ZZZZ999966	11700	=   ?_O_SQL((_O_WHERE2))? ?_O_INTO?;
ZZZZ999966	11800	=   ?_O_IF(W.COUNT_X=1)?
ZZZZ999966	11900	=   SELECT ?_O_INTO(W.HATTYUU_QTY_SUM;)? ?_O_SQL? ?_O_INTO?;
ZZZZ999966	12000	=   ?_O_IF_END?}
ZZZZ999966	12100	=  {?_O_IF(W.COUNT_X=1)?
ZZZZ999966	12200	=   ?_O_IF(W.HATTYUU_QTY_SUM>F.)?
ZZZZ999966	12300	=   ?_O_SET(W.HATTYUU_QTY_SUM (=) W.- F.)?
ZZZZ999966	12400	=   ?_O_SET(F.HATTYUU_QTY_SUM (=) 0)?
ZZZZ999966	12500	=   ?_O_ELSE?
ZZZZ999966	12600	=   ?_O_SET(F.HATTYUU_QTY_SUM (=) F.- W.)?
ZZZZ999966	12700	=   ?_O_SET(W.HATTYUU_QTY_SUM (=) 0)?
ZZZZ999966	12800	=   ?_O_IF_END?
ZZZZ999966	12900	=   ?_O_SET(W.UPDATE_X (=) 1)?
ZZZZ999966	13000	=   UPDATE ?_O_TABLE1?
ZZZZ999966	13100	=   ?_O_UPDATE_CHANGE2(F.HATTYUU_QTY_SUM)?
ZZZZ999966	13200	=   ?_O_SQL(WHERE F.HATTYUU_OBJECT=C.)?
ZZZZ999966	13300	=   ?_O_SQL(AND F.HATTYUU_PLACE=C. )?
ZZZZ999966	13400	=   ?_O_SQL(AND F.HATTYUU_DATE=C.)?
ZZZZ999966	13500	=   ?_O_SQL(AND F.HATTYUU_OWNER_PLACE=C. )?
ZZZZ999966	13600	=   ?_O_SQL(AND F.HATTYUU_PRODUCTION_OBJECT=C. )?
ZZZZ999966	13700	=   ?_O_SQL(AND F.HATTYUU_PRODUCTION_DATE=C. )?
ZZZZ999966	13800	=   ?_O_SQL(AND F.HATTYUU_PRODUCTION_PLACE=C. )?
ZZZZ999966	13900	=   ?_O_SQL(AND F.HATTYUU_PRODUCTION_MARK=C. )?;
ZZZZ999966	14000	=   ?_O_IF_END?}
ZZZZ999966	14100	=  {?_O_IF(W.UPDATE_X=1)?
ZZZZ999966	14200	=   UPDATE ?_O_TABLE2?
ZZZZ999966	14300	=   ?_O_UPDATE_CHANGE2(W.HATTYUU_QTY_SUM)?
ZZZZ999966	14400	=   ?_O_WHERE2?;
ZZZZ999966	14500	=   ?_O_IF_END?};
ZZZZ999966	14600	*******( TRACE )*******************************
ZZZZ999966	14700	*=DROP_TABLE{?_WW?_MRP_TRAN_C?W0CNT_LEVEL?B};
ZZZZ999966	14800	*=COPY_TABLE{?_WW?_MRP_TRAN_C?W0CNT_LEVEL?B,
ZZZZ999966	14900	*=           ?_WW?_MRP_TRAN_C};
ZZZZ999966	15000	*******( TRACE )*******************************
ZZZZ999966	15100	*IF{W0CNT_LEVEL=2}SET{ERR=ERR};
ZZZZ999966	15200	*=====( 在庫仕掛　引当 (QTY,ORDER_QTY) C)====================
ZZZZ999966	15300	***( 仕掛工区を無視しているので、無視しない場合は修正要 )***
ZZZZ999966	15400	=CURSOR2{?_WW?_MRP_TRAN_C,?_WW?_MRP_STOCK_C}
ZZZZ999966	15500	={HATTYUU_OBJECT,K,HATTYUU_DATE,A
ZZZZ999966	15600	=   ,HATTYUU_PLACE,A,HATTYUU_OWNER_PLACE,A
ZZZZ999966	15700	= ,HATTYUU_PRODUCTION_OBJECT,A,HATTYUU_PRODUCTION_DATE,A
ZZZZ999966	15800	= ,HATTYUU_PRODUCTION_PLACE,A,HATTYUU_PRODUCTION_MARK,A
ZZZZ999966	15900	= ,HATTYUU_QTY_SUM,,HATTYUU_ORDER_QTY_SUM,}
ZZZZ999966	16000	={HATTYUU_LEVEL=?W0CNT_LEVEL? AND HATTYUU_QTY_SUM>0
ZZZZ999966	16100	= AND X1.HATTYUU_PRODUCTION_MARK=' '
ZZZZ999966	16200	= AND EXISTS(SELECT 0 FROM ?_WW?_MRP_STOCK_C X2 WHERE
ZZZZ999966	16300	= X1.?_NE&X2.HATTYUU_OBJECT? AND X2.HATTYUU_QTY_SUM>0)}
ZZZZ999966	16400	={COUNT_X,I,UPDATE_X,I}
ZZZZ999966	16500	={?_O_SET(W.UPDATE_X (=) 0)?
ZZZZ999966	16600	=SELECT ?_O_INTO(COUNT_X;COUNT(*))?
ZZZZ999966	16700	= ?_CONTINUE(FROM )? ?_CONTINUE((_O_TABLE2))?
ZZZZ999966	16800	= ?_O_SQL((_O_WHERE2))? ?_O_INTO?;
ZZZZ999966	16900	= ?_O_IF(W.COUNT_X=1)?
ZZZZ999966	17000	=    SELECT ?_O_INTO(W.HATTYUU_QTY_SUM;)? ?_O_SQL? ?_O_INTO?;
ZZZZ999966	17100	= ?_O_IF_END?}
ZZZZ999966	17200	={?_O_IF(W.COUNT_X=1 AND W.HATTYUU_QTY_SUM>0)?
ZZZZ999966	17300	=    ?_O_IF(W.HATTYUU_QTY_SUM>F.HATTYUU_QTY_SUM)?
ZZZZ999966	17400	= ?_O_SET(F.HATTYUU_ORDER_QTY_SUM (=) F.- F.HATTYUU_QTY_SUM)?
ZZZZ999966	17500	=       ?_O_SET(W.HATTYUU_QTY_SUM       (=) W.- F.)?
ZZZZ999966	17600	=       ?_O_SET(F.HATTYUU_QTY_SUM (=) 0)?
ZZZZ999966	17700	=    ?_O_ELSE?
ZZZZ999966	17800	=?_O_SET(F.HATTYUU_ORDER_QTY_SUM (=) F. - W.HATTYUU_QTY_SUM)?
ZZZZ999966	17900	=       ?_O_SET(F.HATTYUU_QTY_SUM       (=) F. - W.)?
ZZZZ999966	18000	=       ?_O_SET(W.HATTYUU_QTY_SUM (=) 0)?
ZZZZ999966	18100	=    ?_O_IF_END?
ZZZZ999966	18200	=    ?_O_SET(W.UPDATE_X (=) 1)?
ZZZZ999966	18300	=       UPDATE ?_O_TABLE1?
ZZZZ999966	18400	=  ?_O_UPD_CHA2(F.HATTYUU_QTY_SUM;F.HATTYUU_ORDER_QTY_SUM)?
ZZZZ999966	18500	=       ?_O_SQL(WHERE F.HATTYUU_OBJECT=C.)?
ZZZZ999966	18600	=       ?_O_SQL(AND F.HATTYUU_PLACE=C.)?
ZZZZ999966	18700	=       ?_O_SQL(AND F.HATTYUU_DATE=C.)?
ZZZZ999966	18800	=       ?_O_SQL(AND F.HATTYUU_OWNER_PLACE=C.)?
ZZZZ999966	18900	=       ?_O_SQL(AND F.HATTYUU_PRODUCTION_OBJECT=C.)?
ZZZZ999966	19000	=       ?_O_SQL(AND F.HATTYUU_PRODUCTION_DATE=C.)?
ZZZZ999966	19100	=       ?_O_SQL(AND F.HATTYUU_PRODUCTION_PLACE=C.)?
ZZZZ999966	19200	=       ?_O_SQL(AND F.HATTYUU_PRODUCTION_MARK=C.)?;
ZZZZ999966	19300	= ?_O_IF_END?}
ZZZZ999966	19400	={?_O_IF(W.UPDATE_X=1)?
ZZZZ999966	19500	=    UPDATE ?_O_TABLE2?
ZZZZ999966	19600	=    ?_O_UPDATE_CHANGE2(W.HATTYUU_QTY_SUM)?
ZZZZ999966	19700	=    ?_O_WHERE2?;
ZZZZ999966	19800	= ?_O_IF_END?};
ZZZZ999966	19900	*******( TRACE )*******************************
ZZZZ999966	20000	*=DROP_TABLE{?_WW?_MRP_TRAN_C?W0CNT_LEVEL?C};
ZZZZ999966	20100	*=COPY_TABLE{?_WW?_MRP_TRAN_C?W0CNT_LEVEL?C,
ZZZZ999966	20200	*=           ?_WW?_MRP_TRAN_C};
ZZZZ999966	20300	*******( TRACE )*******************************
ZZZZ999966	20400	*SET{ERR=ERR};
ZZZZ999966	20500	*=====( 発注　引当 (ORDER_QTY) C)=======================
ZZZZ999966	20600	***( 納期を無視しているので、納期を無視しない場合は修正要 )**
ZZZZ999966	20700	=CURSOR2{?_WW?_MRP_TRAN_C,?_WW?_MRP_PLAN_C}
ZZZZ999966	20800	={HATTYUU_OBJECT,K,HATTYUU_DATE,A
ZZZZ999966	20900	=  ,HATTYUU_PLACE,A,HATTYUU_OWNER_PLACE,A
ZZZZ999966	21000	= ,HATTYUU_PRODUCTION_OBJECT,A,HATTYUU_PRODUCTION_DATE,A
ZZZZ999966	21100	= ,HATTYUU_PRODUCTION_PLACE,A,HATTYUU_PRODUCTION_MARK,A
ZZZZ999966	21200	= ,HATTYUU_ORDER_QTY_SUM,}
ZZZZ999966	21300	={HATTYUU_LEVEL=?W0CNT_LEVEL?
ZZZZ999966	21400	=   AND HATTYUU_ORDER_QTY_SUM>0
ZZZZ999966	21500	=   AND HATTYUU_PRODUCTION_MARK=' '
ZZZZ999966	21600	=   AND EXISTS(SELECT 0 FROM ?_WW?_MRP_PLAN_C X2 WHERE
ZZZZ999966	21700	=   X1.?_NE&X2.HATTYUU_OBJECT? AND X2.HATTYUU_QTY_SUM>0)}
ZZZZ999966	21800	={HATTYUU_QTY_SUM,*,COUNT_X,I,UPDATE_X,I}
ZZZZ999966	21900	={?_O_SET(W.UPDATE_X (=) 0)?
ZZZZ999966	22000	=SELECT ?_O_INTO(COUNT_X;COUNT(*))?
ZZZZ999966	22100	=   ?_CONTINUE(FROM )? ?_CONTINUE((_O_TABLE2))?
ZZZZ999966	22200	=   ?_O_SQL((_O_WHERE2))? ?_O_INTO?;
ZZZZ999966	22300	=?_O_IF(W.COUNT_X=1)?
ZZZZ999966	22400	=    SELECT ?_O_INTO(W.HATTYUU_QTY_SUM;)?
ZZZZ999966	22500	=    ?_O_SQL? ?_O_INTO?;
ZZZZ999966	22600	= ?_O_IF_END?}
ZZZZ999966	22700	={?_O_IF(W.COUNT_X=1 AND W.HATTYUU_QTY_SUM>0)?
ZZZZ999966	22800	=    ?_O_IF(W.HATTYUU_QTY_SUM>F.HATTYUU_ORDER_QTY_SUM)?
ZZZZ999966	22900	= ?_O_SET(W.HATTYUU_QTY_SUM (=) W.- F.HATTYUU_ORDER_QTY_SUM)?
ZZZZ999966	23000	=       ?_O_SET(F.HATTYUU_ORDER_QTY_SUM (=) 0)?
ZZZZ999966	23100	=    ?_O_ELSE?
ZZZZ999966	23200	= ?_O_SET(F.HATTYUU_ORDER_QTY_SUM (=) F.- W.HATTYUU_QTY_SUM)?
ZZZZ999966	23300	=       ?_O_SET(W.HATTYUU_QTY_SUM (=) 0)?
ZZZZ999966	23400	=    ?_O_IF_END?
ZZZZ999966	23500	=    ?_O_SET(W.UPDATE_X (=) 1)?
ZZZZ999966	23600	=    UPDATE ?_O_TABLE1?
ZZZZ999966	23700	=    ?_O_UPDATE_CHANGE2(F.HATTYUU_ORDER_QTY_SUM)?
ZZZZ999966	23800	=    ?_O_SQL(WHERE F.HATTYUU_OBJECT=C.)?
ZZZZ999966	23900	=    ?_O_SQL(AND F.HATTYUU_PLACE=C.)?
ZZZZ999966	24000	=    ?_O_SQL(AND F.HATTYUU_DATE=C.)?
ZZZZ999966	24100	=    ?_O_SQL(AND F.HATTYUU_OWNER_PLACE=C.)?
ZZZZ999966	24200	=    ?_O_SQL(AND F.HATTYUU_PRODUCTION_OBJECT=C.)?
ZZZZ999966	24300	=    ?_O_SQL(AND F.HATTYUU_PRODUCTION_DATE=C.)?
ZZZZ999966	24400	=    ?_O_SQL(AND F.HATTYUU_PRODUCTION_PLACE=C.)?
ZZZZ999966	24500	=    ?_O_SQL(AND F.HATTYUU_PRODUCTION_MARK=C.)?;
ZZZZ999966	24600	= ?_O_IF_END?}
ZZZZ999966	24700	={?_O_IF(W.UPDATE_X=1)?
ZZZZ999966	24800	=    UPDATE ?_O_TABLE2?
ZZZZ999966	24900	=    ?_O_UPDATE_CHANGE2(W.HATTYUU_QTY_SUM)?
ZZZZ999966	25000	=    ?_O_WHERE2?;
ZZZZ999966	25100	= ?_O_IF_END?};
ZZZZ999966	25200	*******( TRACE )*******************************
ZZZZ999966	25300	*=DROP_TABLE{?_WW?_MRP_TRAN_C?W0CNT_LEVEL?D};
ZZZZ999966	25400	*=COPY_TABLE{?_WW?_MRP_TRAN_C?W0CNT_LEVEL?D,
ZZZZ999966	25500	*=           ?_WW?_MRP_TRAN_C};
ZZZZ999966	25600	*******( TRACE )*******************************
ZZZZ999966	25700	*====( ロット丸め C->D )============================
ZZZZ999966	25800	*SET{ERR=ERR};
ZZZZ999966	25900	=IF{W0CNT_LEVEL=1}SET{_TRACE=1};
ZZZZ999966	26000	=DROP_TABLE{?_WW?_MRP_TRAN_D};
ZZZZ999966	26100	=COPY_TABLE{?_WW?_MRP_TRAN_D,?_WW?_MRP_TRAN_C,NOT};
ZZZZ999966	26200	=DROP_INDEX{?_WW?_MRP_TRAN_D,0};キーダブリ容認*
ZZZZ999966	26300	***( ロット丸め不要分転送　C->D)***
ZZZZ999966	26400	=SQL{INSERT INTO ?_WW?_MRP_TRAN_D SELECT *
ZZZZ999966	26500	=   FROM ?_WW?_MRP_TRAN_C
ZZZZ999966	26600	=   WHERE(HATTYUU_ARRANGE_MARK<>' '
ZZZZ999966	26700	=   OR HATTYUU_PRODUCTION_MARK<>' '
ZZZZ999966	26800	=   OR HATTYUU_LOT<2     OR HATTYUU_QTY_SUM<1
ZZZZ999966	26900	=   OR HATTYUU_LEVEL<>?W0CNT_LEVEL?)};
ZZZZ999966	27000	***( ロット丸め実施 C->D)***
ZZZZ999966	27100	=SET{WC.MOD=_MOD(F.HATTYUU_ORDER_QTY_SUM;F.HATTYUU_LOT)};
ZZZZ999966	27200	=CURSOR2{?_WW?_MRP_TRAN_C}
ZZZZ999966	27300	=  {HATTYUU_OBJECT,K,HATTYUU_PLACE,K,HATTYUU_OWNER_PLACE,K,
ZZZZ999966	27400	=   HATTYUU_DATE,A,HATTYUU_PRODUCTION_DATE,A
ZZZZ999966	27500	=   ,HATTYUU_PRODUCTION_OBJECT,A
ZZZZ999966	27600	=   ,HATTYUU_PRODUCTION_PLACE,A,HATTYUU_PRODUCTION_MARK,A
ZZZZ999966	27700	=   ,HATTYUU_START_QTY_SUM,,HATTYUU_QTY_SUM,
ZZZZ999966	27800	=   ,HATTYUU_ORDER_QTY_SUM,
ZZZZ999966	27900	=   ,HATTYUU_ARRANGE_MARK,,HATTYUU_LOT,,HATTYUU_LOT_MARK,
ZZZZ999966	28000	=   ,HATTYUU_PROCESS_DAYS,
ZZZZ999966	28100	=   ,HATTYUU_LEVEL,,HATTYUU_START_DATE,}
ZZZZ999966	28200	=  {NOT(HATTYUU_ARRANGE_MARK<>' ' OR HATTYUU_LOT<2
ZZZZ999966	28300	=   OR HATTYUU_PRODUCTION_MARK<>' '
ZZZZ999966	28400	=   OR HATTYUU_QTY_SUM<1 OR HATTYUU_LEVEL<>?W0CNT_LEVEL?)}
ZZZZ999966	28500	=  {COUNT_X,I,UPDATE_X,I,SUB_MARK,C,1,SUB_MARK2,C,1
ZZZZ999966	28600	=   ,SUB_PLACE,?&X1.C2&HATTYUU_PLACE?
ZZZZ999966	28700	=   ,SUB_STORAGE,?&X2.C2&HATTYUU_STORAGE?,SUB_NO,I
ZZZZ999966	28800	=   ,WORK_X,?&X2.C2&HATTYUU_QTY_SUM?
ZZZZ999966	28900	=   ,ORDER_WORK,?&X2.C2&HATTYUU_QTY_SUM?
ZZZZ999966	29000	=   ,HATTYUU_START_QTY_SUM_SAVE,?&X2.C2&HATTYUU_QTY_SUM?}
ZZZZ999966	29100	=  {?_O_SET(W.ORDER_WORK (=) 0)?
ZZZZ999966	29200	=   ?_O_SET(W.WORK_X (=) 0)?}
ZZZZ999966	29300	***( 補正値有り )*******************************
ZZZZ999966	29400	=  {?_O_IF(W.ORDER_WORK>0)?
ZZZZ999966	29500	***( 今回補正値決定 W.HATTYUU_ORDER_QTY_SUM )***
ZZZZ999966	29600	=    ?_O_IF(F.HATTYUU_ORDER_QTY_SUM>W.ORDER_WORK)?
ZZZZ999966	29700	=   ?_O_SET(W.HATTYUU_ORDER_QTY_SUM (=) W.ORDER_WORK)?
ZZZZ999966	29800	=    ?_O_ELSE?
ZZZZ999966	29900	=       ?_O_SET(W.HATTYUU_ORDER_QTY_SUM (=) F.)?
ZZZZ999966	30000	=    ?_O_IF_END?
ZZZZ999966	30100	=    ?_O_IF(F.HATTYUU_QTY_SUM>W.ORDER_WORK)?
ZZZZ999966	30200	=   ?_O_SET(W.HATTYUU_QTY_SUM (=) W.ORDER_WORK)?
ZZZZ999966	30300	=    ?_O_ELSE?
ZZZZ999966	30400	=       ?_O_SET(W.HATTYUU_QTY_SUM (=) F.)?
ZZZZ999966	30500	=    ?_O_IF_END?
ZZZZ999966	30600	***( DATE,HATTYUU_START_DATE は前のデータの値を使用 )***
ZZZZ999966	30700	=    INSERT INTO ?_WW?_MRP_TRAN_D
ZZZZ999966	30800	=       ?_CONTINUE(F.HATTYUU_OBJECT)?
ZZZZ999966	30900	=       ?_CONTINUE(;W.HATTYUU_DATE)?
ZZZZ999966	31000	=       ?_CONTINUE(;F.HATTYUU_PLACE)?
ZZZZ999966	31100	=       ?_CONTINUE(;F.HATTYUU_OWNER_PLACE)?
ZZZZ999966	31200	=       ?_CONTINUE(;F.HATTYUU_PRODUCTION_OBJECT)?
ZZZZ999966	31300	=       ?_CONTINUE(;F.HATTYUU_PRODUCTION_DATE)?
ZZZZ999966	31400	=       ?_CONTINUE(;F.HATTYUU_PRODUCTION_PLACE)?
ZZZZ999966	31500	=       ?_CONTINUE(;F.HATTYUU_PRODUCTION_MARK)?
ZZZZ999966	31600	=       ?_CONTINUE(;W.HATTYUU_START_QTY_SUM)?
ZZZZ999966	31700	=       ?_CONTINUE(;W.HATTYUU_QTY_SUM)?
ZZZZ999966	31800	=       ?_CONTINUE(;W.HATTYUU_ORDER_QTY_SUM)?
ZZZZ999966	31900	=       ?_CONTINUE(;F.HATTYUU_ARRANGE_MARK)?
ZZZZ999966	32000	=       ?_CONTINUE(;F.HATTYUU_LOT)?
ZZZZ999966	32100	=       ?_CONTINUE(;F.HATTYUU_LOT_MARK)?
ZZZZ999966	32200	=       ?_CONTINUE(;F.HATTYUU_PROCESS_DAYS)?
ZZZZ999966	32300	=       ?_CONTINUE(;F.HATTYUU_LEVEL)?
ZZZZ999966	32400	=       ?_O_INSERT2(;W.HATTYUU_START_DATE)?;
ZZZZ999966	32500	**************( 補正分引く* )********************************
ZZZZ999966	32600	=    ?_O_SET(F.HATTYUU_ORDER_QTY_SUM (=) F. - W.)?
ZZZZ999966	32700	=    ?_O_SET(F.HATTYUU_QTY_SUM      (=) F. - W.)?
ZZZZ999966	32800	=   ?_O_IF_END?
ZZZZ999966	32900	***( 自身のデータ出力 D)***
ZZZZ999966	33000	=INSERT INTO ?_WW?_MRP_TRAN_D
ZZZZ999966	33100	=   ?_CONTINUE(F.HATTYUU_OBJECT)?
ZZZZ999966	33200	=   ?_CONTINUE(;F.HATTYUU_DATE)?
ZZZZ999966	33300	=   ?_CONTINUE(;F.HATTYUU_PLACE)?
ZZZZ999966	33400	=   ?_CONTINUE(;F.HATTYUU_OWNER_PLACE)?
ZZZZ999966	33500	=   ?_CONTINUE(;F.HATTYUU_PRODUCTION_OBJECT)?
ZZZZ999966	33600	=   ?_CONTINUE(;F.HATTYUU_PRODUCTION_DATE)?
ZZZZ999966	33700	=   ?_CONTINUE(;F.HATTYUU_PRODUCTION_PLACE)?
ZZZZ999966	33800	=   ?_CONTINUE(;F.HATTYUU_PRODUCTION_MARK)?
ZZZZ999966	33900	=   ?_CONTINUE(;F.HATTYUU_START_QTY_SUM)?
ZZZZ999966	34000	=   ?_CONTINUE(;F.HATTYUU_QTY_SUM;F.HATTYUU_ORDER_QTY_SUM)?
ZZZZ999966	34100	=   ?_CONTINUE(;F.HATTYUU_ARRANGE_MARK)?
ZZZZ999966	34200	=   ?_CONTINUE(;F.HATTYUU_LOT;F.HATTYUU_LOT_MARK)?
ZZZZ999966	34300	=   ?_CONTINUE(;F.HATTYUU_PROCESS_DAYS)?
ZZZZ999966	34400	=   ?_CONTINUE(;F.HATTYUU_LEVEL)?
ZZZZ999966	34500	=   ?_O_INSERT2(;F.HATTYUU_START_DATE)?;
ZZZZ999966	34600	*****( 補正数量 計算 )*****************************
ZZZZ999966	34700	=   ?_CONTINUE(W.ORDER_WORK (=) W. - )?
ZZZZ999966	34800	=   ?_O_SET((WC.MOD))?
ZZZZ999966	34900	*****( 補正データキープ )**************************
ZZZZ999966	35000	=   ?_O_SET(W.HATTYUU_DATE (=) F.)?
ZZZZ999966	35100	=   ?_O_SET(W.HATTYUU_ARRANGE_MARK (=)  F.)?
ZZZZ999966	35200	=   ?_O_SET(W.HATTYUU_LOT (=)  F.)?
ZZZZ999966	35300	=   ?_O_SET(W.HATTYUU_LOT_MARK (=)  F.)?
ZZZZ999966	35400	=   ?_O_SET(W.HATTYUU_PROCESS_DAYS (=)  F.)?
ZZZZ999966	35500	=   ?_O_SET(W.HATTYUU_LEVEL (=)  F.)?
ZZZZ999966	35600	=   ?_O_SET(W.HATTYUU_START_DATE (=)  F.)?
ZZZZ999966	35700	=  }
ZZZZ999966	35800	=  {?_O_IF(W.HATTYUU_LOT_MARK='*' AND W.ORDER_WORK>0)?
ZZZZ999966	35900	***( ロットまるめ分出力 D)***
ZZZZ999966	36000	=    ?_O_SET(W.HATTYUU_ORDER_QTY_SUM (=) W.ORDER_WORK)?
ZZZZ999966	36100	=    ?_O_SET(W.HATTYUU_QTY_SUM (=) W.WORK_X)?
ZZZZ999966	36200	=    INSERT INTO ?_WW?_MRP_TRAN_D
ZZZZ999966	36300	=       ?_CONTINUE(W.HATTYUU_OBJECT)?
ZZZZ999966	36400	=       ?_CONTINUE(;W.HATTYUU_DATE)?
ZZZZ999966	36500	=       ?_CONTINUE(;W.HATTYUU_PLACE)?
ZZZZ999966	36600	=       ?_CONTINUE(;W.HATTYUU_OWNER_PLACE)?
ZZZZ999966	36700	=       ?_CONTINUE(;W.HATTYUU_PRODUCTION_OBJECT)?
ZZZZ999966	36800	=       ?_CONTINUE(;W.HATTYUU_PRODUCTION_DATE)?
ZZZZ999966	36900	=       ?_CONTINUE(;W.HATTYUU_PRODUCTION_PLACE)?
ZZZZ999966	37000	=       ?_CONTINUE(;W.HATTYUU_PRODUCTION_MARK)?
ZZZZ999966	37100	=       ?_CONTINUE(;W.HATTYUU_START_QTY_SUM)?
ZZZZ999966	37200	=       ?_CONTINUE(;W.HATTYUU_QTY_SUM)?
ZZZZ999966	37300	=       ?_CONTINUE(;W.HATTYUU_ORDER_QTY_SUM)?
ZZZZ999966	37400	=       ?_CONTINUE(;W.HATTYUU_ARRANGE_MARK)?
ZZZZ999966	37500	=       ?_CONTINUE(;W.HATTYUU_LOT;W.HATTYUU_LOT_MARK)?
ZZZZ999966	37600	=       ?_CONTINUE(;W.HATTYUU_PROCESS_DAYS;W.HATTYUU_LEVEL)?
ZZZZ999966	37700	=       ?_O_INSERT2(;W.HATTYUU_START_DATE)?;
ZZZZ999966	37800	=   ?_O_IF_END?};
ZZZZ999966	37900	*******( TRACE )*******************************
ZZZZ999966	38000	*=DROP_TABLE{?_WW?_MRP_TRAN_D?W0CNT_LEVEL?E};
ZZZZ999966	38100	*=COPY_TABLE{?_WW?_MRP_TRAN_D?W0CNT_LEVEL?E,
ZZZZ999966	38200	*=           ?_WW?_MRP_TRAN_D};
ZZZZ999966	38300	*******( TRACE )*******************************
ZZZZ999966	38400	*SET{ERR=ERR};
ZZZZ999966	38500	*====( サマリー化 D->C )===============================
ZZZZ999966	38600	=DROP_TABLE{?_WW?_MRP_TRAN_C};
ZZZZ999966	38700	=COPY_TABLE{?_WW?_MRP_TRAN_C,?_WW?_MRP_TRAN_B,NOT};
ZZZZ999966	38800	=SQL{INSERT INTO ?_WW?_MRP_TRAN_C SELECT ?W_KEY?
ZZZZ999966	38900	=   ,SUM(HATTYUU_START_QTY_SUM),SUM(HATTYUU_QTY_SUM)
ZZZZ999966	39000	=   ,SUM(HATTYUU_ORDER_QTY_SUM)
ZZZZ999966	39100	=   ,MAX(HATTYUU_ARRANGE_MARK)
ZZZZ999966	39200	=   ,MAX(HATTYUU_LOT),MAX(HATTYUU_LOT_MARK)
ZZZZ999966	39300	=   ,MAX(HATTYUU_PROCESS_DAYS),MAX(HATTYUU_LEVEL)
ZZZZ999966	39400	=   ,MIN(HATTYUU_START_DATE)
ZZZZ999966	39500	=   FROM ?_WW?_MRP_TRAN_D X1 GROUP BY  ?W_KEY?};
ZZZZ999966	39600	*=====( 終了　判定 )=========================================
ZZZZ999966	39700	=IF{W0CNT_LEVEL>=W0MAX_LEVEL}JUMP{FIN};
ZZZZ999966	39800	*=====( 構成展開 C->D->E )==============================**
ZZZZ999966	39900	=DROP_TABLE{?_WW?_MRP_TRAN_D};
ZZZZ999966	40000	=COPY_TABLE{?_WW?_MRP_TRAN_D,?_WW?_MRP_TRAN_C,NOT};
ZZZZ999966	40100	=DROP_INDEX{?_WW?_MRP_TRAN_D,0};キーダブリ容認*
ZZZZ999966	40200	=DROP_TABLE{?_WW?_MRP_TRAN_E};
ZZZZ999966	40300	=COPY_TABLE{?_WW?_MRP_TRAN_E,?_WW?_MRP_TRAN_C};
ZZZZ999966	40400	=DROP_INDEX{?_WW?_MRP_TRAN_E,0};キーダブリ容認*
ZZZZ999966	40500	=*****( 構成展開 C->D )********************
ZZZZ999966	40600	*( HATTYUU_OWNER_PLACE=HATTYUU_PLACE )***
ZZZZ999966	40700	=SQL{INSERT INTO ?_WW?_MRP_TRAN_D SELECT
ZZZZ999966	40800	=   HATTYUU_MEMBER_OBJECT,HATTYUU_START_DATE,HATTYUU_PLACE
ZZZZ999966	40900	=   ,HATTYUU_PLACE,HATTYUU_PRODUCTION_OBJECT
ZZZZ999966	41000	=   ,HATTYUU_PRODUCTION_DATE,HATTYUU_PRODUCTION_PLACE,' '
ZZZZ999966	41100	=   ,HATTYUU_QTY_SUM*HATTYUU_NUMERATOR/HATTYUU_DENOMINATOR
ZZZZ999966	41200	=   ,HATTYUU_QTY_SUM*HATTYUU_NUMERATOR/HATTYUU_DENOMINATOR
ZZZZ999966	41300	=   ,HATTYUU_QTY_SUM*HATTYUU_NUMERATOR/HATTYUU_DENOMINATOR
ZZZZ999966	41400	=   ,X4.HATTYUU_ARRANGE_MARK,0,' ',0,X4.HATTYUU_LEVEL,' '
ZZZZ999966	41500	=   FROM ?_WW?_MRP_TRAN_C X1,?_WW?_MRP_BOM X2
ZZZZ999966	41600	=   ,?_WW?_MRP_OBJECT X4
ZZZZ999966	41700	=   WHERE X1.HATTYUU_OBJECT=X2.HATTYUU_OWNER_OBJECT
ZZZZ999966	41800	=   AND   X2.HATTYUU_MEMBER_OBJECT=X4.HATTYUU_OBJECT
ZZZZ999966	41900	=   AND   X1.HATTYUU_LEVEL=?W0CNT_LEVEL?};
ZZZZ999966	42000	***( 工区一致は手配不要化 D )***
ZZZZ999966	42100	=DROP_TABLE{?_WW?_MRP_TRAN_D_SAME};
ZZZZ999966	42200	=COPY_TABLE{?_WW?_MRP_TRAN_D_SAME,?_WW?_MRP_TRAN_D};
ZZZZ999966	42300	=SQL{UPDATE ?_WW?_MRP_TRAN_D SET HATTYUU_ARRANGE_MARK='*'
ZZZZ999966	42400	=   WHERE HATTYUU_OBJECT IN(SELECT X1.HATTYUU_OBJECT FROM
ZZZZ999966	42500	=   ?_WW?_MRP_TRAN_D_SAME X1, ?_WW?_MRP_PROCESS X2 WHERE
ZZZZ999966	42600	=   X1.?_NE&X2.HATTYUU_OBJECT?
ZZZZ999966	42700	=   AND X1.?_NE&X2.HATTYUU_PLACE?
ZZZZ999966	42800	=   AND X1.HATTYUU_ARRANGE_MARK<>'*')};
ZZZZ999966	42900	=UPDATE{?_WW?_MRP_TRAN_D,HATTYUU_PROCESS_DAYS}
ZZZZ999966	43000	=  {I.HATTYUU_PROCESS_DAYS}{?_WW?_MRP_PROCESS I WHERE
ZZZZ999966	43100	=   O.?_NE&I.HATTYUU_OBJECT? AND O.?_NE&I.HATTYUU_PLACE?};
ZZZZ999966	43200	***( 工程展開不要分はそのまま転送 D->E )***
ZZZZ999966	43300	=SQL{INSERT INTO ?_WW?_MRP_TRAN_E SELECT * FROM
ZZZZ999966	43400	=  ?_WW?_MRP_TRAN_D WHERE HATTYUU_ARRANGE_MARK<>' '};
ZZZZ999966	43500	*====( 工程展開 D->E )=======================================
ZZZZ999966	43600	=SQL{INSERT INTO ?_WW?_MRP_TRAN_E
ZZZZ999966	43700	=   SELECT X1.HATTYUU_OBJECT,X1.HATTYUU_DATE,X2.HATTYUU_PLACE
ZZZZ999966	43800	=   ,X1.HATTYUU_OWNER_PLACE,X1.HATTYUU_PRODUCTION_OBJECT
ZZZZ999966	43900	 =  ,X1.HATTYUU_PRODUCTION_DATE,X1.HATTYUU_PRODUCTION_PLACE
ZZZZ999966	44000	=   ,X1.HATTYUU_PRODUCTION_MARK
ZZZZ999966	44100	=   ,X1.HATTYUU_START_QTY_SUM*X2.HATTYUU_PERCENT/100
ZZZZ999966	44200	=   ,X1.HATTYUU_QTY_SUM*X2.HATTYUU_PERCENT/100
ZZZZ999966	44300	=   ,X1.HATTYUU_ORDER_QTY_SUM*X2.HATTYUU_PERCENT/100
ZZZZ999966	44400	=   ,X2.HATTYUU_ARRANGE_MARK
ZZZZ999966	44500	=   ,X2.HATTYUU_LOT
ZZZZ999966	44600	=   ,X2.HATTYUU_LOT_MARK
ZZZZ999966	44700	=   ,X2.HATTYUU_PROCESS_DAYS
ZZZZ999966	44800	=   ,X1.HATTYUU_LEVEL,X1.HATTYUU_START_DATE FROM
ZZZZ999966	44900	=   ?_WW?_MRP_TRAN_D X1
ZZZZ999966	45000	=   LEFT OUTER JOIN ?_WW?_MRP_PROCESS X2
ZZZZ999966	45100	=   ON  X1.?_NE&X2.HATTYUU_OBJECT?
ZZZZ999966	45200	=   AND X2.HATTYUU_PERCENT>0
ZZZZ999966	45300	=   WHERE X1.HATTYUU_ARRANGE_MARK=' '};
ZZZZ999966	45400	*====( サマリー化 E->C )==================================
ZZZZ999966	45500	=DROP_TABLE{?_WW?_MRP_TRAN_C};
ZZZZ999966	45600	=COPY_TABLE{?_WW?_MRP_TRAN_C,?_WW?_MRP_TRAN_B,NOT};
ZZZZ999966	45700	=SQL{INSERT INTO ?_WW?_MRP_TRAN_C SELECT ?W_KEY?
ZZZZ999966	45800	=   ,SUM(HATTYUU_START_QTY_SUM),SUM(HATTYUU_QTY_SUM)
ZZZZ999966	45900	=   ,SUM(HATTYUU_ORDER_QTY_SUM)
ZZZZ999966	46000	=   ,MAX(HATTYUU_ARRANGE_MARK)
ZZZZ999966	46100	=   ,MAX(HATTYUU_LOT),MAX(HATTYUU_LOT_MARK)
ZZZZ999966	46200	=   ,MAX(HATTYUU_PROCESS_DAYS),MAX(HATTYUU_LEVEL)
ZZZZ999966	46300	=   ,MIN(HATTYUU_START_DATE)
ZZZZ999966	46400	=   FROM ?_WW?_MRP_TRAN_E X1 GROUP BY ?W_KEY?};
ZZZZ999966	46500	*=====( レベルカウントアップ )==============================
ZZZZ999966	46600	=COMPUTE{W0CNT_LEVEL+=1};
ZZZZ999966	46700	*******( TRACE )*******************************
ZZZZ999966	46800	*=DROP_TABLE{?_WW?_MRP_TRAN_C?W0CNT_LEVEL?A};
ZZZZ999966	46900	*=COPY_TABLE{?_WW?_MRP_TRAN_C?W0CNT_LEVEL?A,
ZZZZ999966	47000	*=           ?_WW?_MRP_TRAN_C};
ZZZZ999966	47100	*******( TRACE )*******************************
ZZZZ999966	47200	=BACK{LOOP};
ZZZZ999966	47300	=FIN:
ZZZZ999967	100	*============================================================
ZZZZ999967	200	*===(* RERUN注意：SLIP_PLAN_TABLE が更新されます )===
ZZZZ999967	300	*============================================================
ZZZZ999967	400	*==( 該当テーブル無い時は処理自体中止)==*
ZZZZ999967	500	=IF_TABLE_NOT{?_MM?_PRODUCTION_TABLE}EXIT{};
ZZZZ999967	600	*==( W_MY_PLACE 自社設定 無の時処理自体中止)==*
ZZZZ999967	700	=SQL_SET{W_MY_PLACE}{SELECT HATTYUU_PLACE FROM
ZZZZ999967	800	=   ?_MM?_PLACE_TABLE WHERE HATTYUU_PLACE_MARK='='
ZZZZ999967	900	=   AND Z_CANCEL=' '};
ZZZZ999967	1000	=IF{_SQL_SET_COUNT=0}EXIT{};
ZZZZ999967	1100	*==( 生産計画日 WW_PRODUCTION_DATE 抜き出し )===
ZZZZ999967	1200	=SQL_SET{WW_PRODUCTION_DATE}{SELECT HATTYUU_ETC_DATA FROM
ZZZZ999967	1300	=   ?_MM?_ETC_TABLE WHERE HATTYUU_ETC='WW_PRODUCTION_DATE'
ZZZZ999967	1400	=   AND HATTYUU_ETC_KEY=' ' AND Z_CANCEL=' '};
ZZZZ999967	1500	=IF{_SQL_SET_COUNT=0}
ZZZZ999967	1600	=   ERROR{ETC_TABLE,WW_PRODUCTION_DAT NOT FOUND};
ZZZZ999967	1700	*==( 準備処理 )===
ZZZZ999967	1800	=DROP_TABLE{?_WW?_MARP_ORDER};
ZZZZ999967	1900	=SET_TABLE{X2,?_WW?_MRP_TRAN_C};
ZZZZ999967	2000	=SET_TABLE{X3,?_MM?_REAL_COST_TABLE};
ZZZZ999967	2100	=SET_DICTIONARY{HATTYUU_STORAGE};
ZZZZ999967	2200	=DROP_TABLE{?_WW?_MRP_ORDER};
ZZZZ999967	2300	=CREATE_TABLE2{?_WW?_MRP_ORDER,?&X2.C&HATTYUU_OBJECT?
ZZZZ999967	2400	=   ,?&X2.C&HATTYUU_DATE?,?&X2.C&HATTYUU_PLACE?
ZZZZ999967	2500	=   ,?&X2.C&HATTYUU_OWNER_PLACE?
ZZZZ999967	2600	=   ,?&X2.C&HATTYUU_PRODUCTION_MARK?
ZZZZ999967	2700	=   ,?&X2.C&HATTYUU_ARRANGE_MARK?,HATTYUU_PLACE_MARK,C,1
ZZZZ999967	2800	=   ,HATTYUU_MARK,C,1}
ZZZZ999967	2900	=  {?&X2.C&HATTYUU_QTY_SUM?,?&X2.C&HATTYUU_START_DATE?
ZZZZ999967	3000	=   ,?&X3.C&HATTYUU_MATERIAL_COST?
ZZZZ999967	3100	=   ,?&X3.C&HATTYUU_PROCESS_COST?
ZZZZ999967	3200	=   ,HATTYUU_NO,C,12,?&C&HATTYUU_STORAGE?};
ZZZZ999967	3300	***( HATTYUU_ARRANGE_MARK ' '->'C' 単価未定 初期設定 )***
ZZZZ999967	3400	***( HATTYUU_MARK='X'は締め日以降でまだ発注不要 )*****
ZZZZ999967	3500	***( 注意：ODER_QTY_SUMがQTY_SUMに変更される )*****
ZZZZ999967	3600	=SQL{INSERT INTO ?_WW?_MRP_ORDER SELECT HATTYUU_OBJECT
ZZZZ999967	3700	=   ,HATTYUU_DATE,HATTYUU_PLACE,HATTYUU_OWNER_PLACE
ZZZZ999967	3800	=   ,HATTYUU_PRODUCTION_MARK
ZZZZ999967	3900	=   ,CASE HATTYUU_ARRANGE_MARK WHEN ' '
ZZZZ999967	4000	=   THEN 'C' ELSE HATTYUU_ARRANGE_MARK END,' '
ZZZZ999967	4100	=   ,CASE WHEN HATTYUU_PRODUCTION_MARK<>'X'
ZZZZ999967	4200	=   AND  HATTYUU_ARRANGE_MARK=' ' AND
ZZZZ999967	4300	=   CASE HATTYUU_PRODUCTION_MARK WHEN '*' THEN HATTYUU_DATE
ZZZZ999967	4400	=   ELSE HATTYUU_START_DATE END <'?WW_PRODUCTION_DATE?' THEN
ZZZZ999967	4500	=   ' ' ELSE 'X' END
ZZZZ999967	4600	=   ,SUM(HATTYUU_ORDER_QTY_SUM)
ZZZZ999967	4700	=   ,MIN(HATTYUU_START_DATE),0,0,' ',' '
ZZZZ999967	4800	=   FROM ?_WW?_MRP_TRAN_C
ZZZZ999967	4900	=   WHERE  HATTYUU_ORDER_QTY_SUM>0
ZZZZ999967	5000	=   GROUP BY HATTYUU_OBJECT,HATTYUU_DATE,HATTYUU_PLACE
ZZZZ999967	5100	=   ,HATTYUU_OWNER_PLACE,HATTYUU_PRODUCTION_MARK
ZZZZ999967	5200	=   ,HATTYUU_ARRANGE_MARK
ZZZZ999967	5300	=   ,CASE WHEN HATTYUU_PRODUCTION_MARK<>'X'
ZZZZ999967	5400	=   AND  HATTYUU_ARRANGE_MARK=' ' AND
ZZZZ999967	5500	=   CASE HATTYUU_PRODUCTION_MARK WHEN '*' THEN HATTYUU_DATE
ZZZZ999967	5600	=   ELSE HATTYUU_START_DATE END <'?WW_PRODUCTION_DATE?' THEN
ZZZZ999967	5700	=   ' ' ELSE 'X' END};
ZZZZ999967	5800	*===( 単価設定,HATTYUU_ARRANGE_MARK='C' のみ )===
ZZZZ999967	5900	=UPDATE{?_WW?_MRP_ORDER,HATTYUU_ARRANGE_MARK
ZZZZ999967	6000	=   ,HATTYUU_MATERIAL_COST,HATTYUU_PROCESS_COST}
ZZZZ999967	6100	=  {' ',I.HATTYUU_MATERIAL_COST,I.HATTYUU_PROCESS_COST}
ZZZZ999967	6200	=  {?_WW?_MRP_REAL_COST I
ZZZZ999967	6300	=   WHERE O.?_NE&I.HATTYUU_OBJECT?
ZZZZ999967	6400	=   AND   O.?_NE&I.HATTYUU_PLACE?
ZZZZ999967	6500	=   AND   O.HATTYUU_ARRANGE_MARK='C'
ZZZZ999967	6600	=   AND   O.HATTYUU_DATE>=I.HATTYUU_BEGIN_DATE
ZZZZ999967	6700	=   AND   O.HATTYUU_DATE<
ZZZZ999967	6800	=   CASE I.HATTYUU_END_DATE WHEN ' ' THEN '99991231' ELSE
ZZZZ999967	6900	=   I.HATTYUU_END_DATE END AND I.Z_CANCEL=' '};
ZZZZ999967	7000	*===( HATTYUU_PLACE_MARK 設定
ZZZZ999967	7100	*===( (社内は単価未定でも伝票発行する為 ) )=
ZZZZ999967	7200	=UPDATE{?_WW?_MRP_ORDER,HATTYUU_PLACE_MARK}
ZZZZ999967	7300	=  {I.HATTYUU_PLACE_MARK}{?_WW?_MRP_PLACE I WHERE
ZZZZ999967	7400	=   O.?_NE&I.HATTYUU_PLACE?};
ZZZZ999967	7500	*===( HATTYUU_MARK 設定 ('E'はエラーデータ ) )=
ZZZZ999967	7600	=SQL{UPDATE ?_WW?_MRP_ORDER  SET HATTYUU_MARK='E'
ZZZZ999967	7700	=   WHERE  HATTYUU_MARK=' '
ZZZZ999967	7800	=   AND HATTYUU_PRODUCTION_MARK<>'1'
ZZZZ999967	7900	=   AND(HATTYUU_ARRANGE_MARK='C' AND HATTYUU_PLACE_MARK='O'
ZZZZ999967	8000	=   OR HATTYUU_ARRANGE_MARK='P'
ZZZZ999967	8100	=   AND HATTYUU_PRODUCTION_MARK=' ')};
ZZZZ999967	8200	*===( 伝票枚数設定 )=========================================
ZZZZ999967	8300	=SQL_SET{W0COUNT}{SELECT COUNT(*) FROM ?_WW?_MRP_ORDER
ZZZZ999967	8400	=   WHERE HATTYUU_MARK=' '};
ZZZZ999967	8500	=IF{W0COUNT=0}JUMP{ZERO};
ZZZZ999967	8600	*===( 伝票番号更新 )=========================================
ZZZZ999967	8700	=SQL{BEGIN TRANSACTION};
ZZZZ999967	8800	=SQL_SET{W0NO}{SELECT HATTYUU_NO_END FROM
ZZZZ999967	8900	=   ?_MM?_SLIP_NO_TABLE ?_LOCK1? WHERE HATTYUU_NO_KEY='SLIP'
ZZZZ999967	9000	=   AND Z_CANCEL=' ' ?_LOCK2?};
ZZZZ999967	9100	=IF{_SQL_SET_COUNT=0}ERROR{SLIP_NO};
ZZZZ999967	9200	=SQL{UPDATE ?_MM?_SLIP_NO_TABLE SET  HATTYUU_NO_END=
ZZZZ999967	9300	=CAST(CASE WHEN ?W0COUNT?+?W0NO?<90000000000 THEN
ZZZZ999967	9400	=   ?W0COUNT?+?W0NO? ELSE 10000000000 END AS CHAR(11))
ZZZZ999967	9500	=   WHERE HATTYUU_NO_KEY='SLIP' AND Z_CANCEL=' '
ZZZZ999967	9600	=   AND HATTYUU_NO_END='?W0NO?'};
ZZZZ999967	9700	=IF{_SQL_COUNT_123!=1}ERROR{UPDATE SLIP_NO};
ZZZZ999967	9800	=SQL{COMMIT TRANSACTION};
ZZZZ999967	9900	*=====( 伝票番号付与 )==============================
ZZZZ999967	10000	=SET{W_FIRST_SW=1};
ZZZZ999967	10100	=SQL1{SELECT HATTYUU_OBJECT,HATTYUU_DATE,HATTYUU_PLACE
ZZZZ999967	10200	=   ,HATTYUU_OWNER_PLACE,HATTYUU_PRODUCTION_MARK
ZZZZ999967	10300	=   ,HATTYUU_ARRANGE_MARK,HATTYUU_PLACE_MARK,HATTYUU_MARK
ZZZZ999967	10400	=   FROM ?_WW?_MRP_ORDER WHERE HATTYUU_MARK=' '
ZZZZ999967	10500	=   ORDER BY HATTYUU_PLACE,HATTYUU_OBJECT,HATTYUU_DATE
ZZZZ999967	10600	=   ,HATTYUU_OWNER_PLACE,HATTYUU_PRODUCTION_MARK
ZZZZ999967	10700	=   ,HATTYUU_ARRANGE_MARK,HATTYUU_PLACE_MARK,HATTYUU_MARK};
ZZZZ999967	10800	=SQL1_NEXT:
ZZZZ999967	10900	=SQL1_NEXT{W.HATTYUU_OBJECT,W.HATTYUU_DATE,W.HATTYUU_PLACE
ZZZZ999967	11000	=   ,W.HATTYUU_OWNER_PLACE,W.HATTYUU_PRODUCTION_MARK
ZZZZ999967	11100	=   ,W.HATTYUU_ARRANGE_MARK,W.HATTYUU_PLACE_MARK
ZZZZ999967	11200	=   ,W.HATTYUU_MARK}
ZZZZ999967	11300	=   JUMP{SQL1_END};
ZZZZ999967	11400	=COMPUTE{W0NO+=1};
ZZZZ999967	11500	=IF{W_FIRST_SW=0}JUMP{CONT};
ZZZZ999967	11600	=SET{W_FIRST_SW=0,W.HATTYUU_NO_BEGIN=W0NO};
ZZZZ999967	11700	=CONT:
ZZZZ999967	11800	=SET{_DIGIT11=W0NO,W_NO=W0NO+_DIGIT11};
ZZZZ999967	11900	=SQL{UPDATE ?_WW?_MRP_ORDER SET HATTYUU_NO='?W_NO?'
ZZZZ999967	12000	=   WHERE ?_VRE&W.HATTYUU_OBJECT?
ZZZZ999967	12100	=   AND ?_VRE&W.HATTYUU_DATE?
ZZZZ999967	12200	=   AND ?_VRE&W.HATTYUU_PLACE?
ZZZZ999967	12300	=   AND ?_VRE&W.HATTYUU_OWNER_PLACE?
ZZZZ999967	12400	=   AND ?_VRE&W.HATTYUU_PRODUCTION_MARK?
ZZZZ999967	12500	=   AND ?_VRE&W.HATTYUU_ARRANGE_MARK?
ZZZZ999967	12600	=   AND ?_VRE&W.HATTYUU_PLACE_MARK?
ZZZZ999967	12700	=   AND ?_VRE&W.HATTYUU_MARK?
ZZZZ999967	12800	=   AND HATTYUU_NO=' '};
ZZZZ999967	12900	=IF{_SQL_COUNT_123<>1}ERROR{UPDATE MRP_ORDER};
ZZZZ999967	13000	=BACK{SQL1_NEXT};
ZZZZ999967	13100	=SQL1_END:
ZZZZ999967	13200	*=====( HATTYUU_NO ダブリ　チェック )====================
ZZZZ999967	13300	=SQL_SET{W_ZZ_NO}{SELECT X2.HATTYUU_NO FROM ?_WW?_MRP_ORDER
ZZZZ999967	13400	=   X2 INNER JOIN ?_MM?_SLIP_PLAN_TABLE X3
ZZZZ999967	13500	=   ON X2.?_NE&X3.HATTYUU_NO? ORDER BY 1};
ZZZZ999967	13600	=IF{_SQL_SET_COUNT>0}
ZZZZ999967	13700	=   ERROR{HATTYUU_NO='?W_ZZ_NO?' ダブり　エラー };
ZZZZ999967	13800	*=====( SLIP_NO_KEEP_TABLE 更新）=================
ZZZZ999967	13900	=SET{W.HATTYUU_NO_END=W0NO};
ZZZZ999967	14000	=PROGRAM{2,?_MM?_SLIP_NO_KEEP_TABLE,W.HATTYUU_NO_END}
ZZZZ999967	14010	=  {W.HATTYUU_NO_BEGIN}{};
ZZZZ999967	14200	*============================================================
ZZZZ999967	14300	=JUMP{ZERO_NOT};
ZZZZ999967	14400	=ZERO:MESSAGE{NEW SLIP COUNT ZERO!};
ZZZZ999967	14500	=ZERO_NOT:
ZZZZ999967	14600	*****( HATTYUU_STORAGE 設定　)**********************
ZZZZ999967	14700	=UPDATE{?_WW?_MRP_ORDER,HATTYUU_STORAGE}{I.HATTYUU_STORAGE}
ZZZZ999967	14800	=  {?_WW?_MRP_PROCESS I WHERE O.?_NE&I.HATTYUU_OBJECT?
ZZZZ999967	14900	=   AND   O.?_NE&I.HATTYUU_PLACE?};
ZZZZ999967	15000	*****( SLIP_PALN 登録 )**********************
ZZZZ999967	15100	=REPLACE_PART_ADD2{?_MM?_SLIP_PLAN_TABLE
ZZZZ999967	15200	=  ,?_WW?_MRP_ORDER,HATTYUU_OBJECT,HATTYUU_DATE,HATTYUU_PLACE
ZZZZ999967	15400	=   ,HATTYUU_OWNER_PLACE,HATTYUU_QTY_SUM
ZZZZ999967	15500	=   ,HATTYUU_PRODUCTION_MARK
ZZZZ999967	15600	=   ,HATTYUU_MATERIAL_COST,HATTYUU_PROCESS_COST
ZZZZ999967	15700	=  ,HATTYUU_START_DATE,HATTYUU_STORAGE}
ZZZZ999967	15710	=  {HATTYUU_NO}{}{I.HATTYUU_NO!=' '};
ZZZZ999967	15800	*****( WW_PRODUCTION_DATE 更新　RERUN注意　)************
ZZZZ999967	15900	=SQL{UPDATE ?_MM?_ETC_TABLE SET
ZZZZ999967	16000	=  HATTYUU_ETC_DATA='?WW_PRODUCTION_DATE?',?_Z_UPDATE_CHANGE?
ZZZZ999967	16100	=   WHERE HATTYUU_ETC='WW_PRODUCTION_DATE'
ZZZZ999967	16200	=   AND HATTYUU_ETC_KEY=' '
ZZZZ999967	16300	=   AND Z_CANCEL=' '};
ZZZZ999967	16400	=IF{_SQL_COUNT_123<>1}
ZZZZ999967	16500	=   ERROR{ETC_TABLE WW_PRODUCTION_DATE NOT FOUND};
