<?xml version="1.0" encoding="UTF-8" ?><rdf:RDF 
  xmlns="http://purl.org/rss/1.0/"
  xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" 
  xmlns:dc="http://purl.org/dc/elements/1.1/"
  xml:lang="ja">
  <channel rdf:about="http://www31.atwiki.jp/bonze2/">
    <title>bonze2 @ ウィキ</title>
    <link>http://www31.atwiki.jp/bonze2/</link>
    <description>bonze2 @ ウィキ</description>

    <dc:language>ja</dc:language>
    <dc:date>2010-11-09T14:31:49+09:00</dc:date>

    <items>
      <rdf:Seq>
                <rdf:li rdf:resource="http://www31.atwiki.jp/bonze2/pages/15.html" />
                <rdf:li rdf:resource="http://www31.atwiki.jp/bonze2/pages/1.html" />
                <rdf:li rdf:resource="http://www31.atwiki.jp/bonze2/pages/13.html" />
                <rdf:li rdf:resource="http://www31.atwiki.jp/bonze2/pages/19.html" />
                <rdf:li rdf:resource="http://www31.atwiki.jp/bonze2/pages/18.html" />
                <rdf:li rdf:resource="http://www31.atwiki.jp/bonze2/pages/16.html" />
                <rdf:li rdf:resource="http://www31.atwiki.jp/bonze2/pages/14.html" />
                <rdf:li rdf:resource="http://www31.atwiki.jp/bonze2/pages/2.html" />
                <rdf:li rdf:resource="http://www31.atwiki.jp/bonze2/pages/3.html" />
                <rdf:li rdf:resource="http://www31.atwiki.jp/bonze2/pages/4.html" />
              </rdf:Seq>
    </items>
	
		
    
  </channel>
    <item rdf:about="http://www31.atwiki.jp/bonze2/pages/15.html">
    <title>JScript on WSH</title>
    <link>http://www31.atwiki.jp/bonze2/pages/15.html</link>
    <description>
      -[[JScript/よくあるパターン]]

*emacsでJScriptを編集するための準備

**メジャーモード
.wsfファイルとして作成する場合、XMLとJavaScriptの表記がまざることになる。

***mmm-mode
http://sourceforge.net/projects/mmm-mode/

 cd mmm-mode
 EMACS=meadow ./configure
 make

として，コンパイルをします．

これができなければ， dired で開いて拡張子が el のファイルにmでマークをつけて， Bとしてコンパイルしてもかまいません．
後は，フォルダごと site-lisp へ移動します．
そして，以下の設定を追加します．

 ;; mmm-mode
 (require &#039;mmm-mode)
 (setq mmm-global-mode &#039;maybe)
 ;; 色設定．これは，好みで．色をつけたくないなら nil にします．
 (set-face-background &#039;mmm-default-submode-face &quot;navy&quot;)

参考：http://www.bookshelf.jp/soft/meadow_13.html#SEC102

***js2-mode
http://code.google.com/p/js2-mode/

-最新ファイルをダウンロード。
-site-lisp にコピー
-ファイル名を js2.el にする
-バイトコンパイル（Diredでマーク(m)してバイトコンパイル(B)）

 ;; js2-mode
 (autoload &#039;js2-mode &quot;js2&quot; nil t)
 (add-to-list &#039;auto-mode-alist &#039;(&quot;\\.js$&quot; . js2-mode))

mmm-modeで有効にするには、さらに

 (mmm-add-classes
  &#039;((wsf
    :submode js2-mode
    :front &quot;&lt;script[^&gt;]*&gt;\n&lt;!--\n&quot;
    :back  &quot; ?--&gt;\n&lt;/script&gt;&quot;)))
 (mmm-add-mode-ext-class nil &quot;\\.wsf$&quot; &#039;wsf)

***javascript-mode
http://www.brgeight.se/

参考：http://d.hatena.ne.jp/m-hiyama/20080627/1214549228
http://stickydiary.blog88.fc2.com/blog-entry-94.html    </description>
    <dc:date>2010-11-09T14:31:49+09:00</dc:date>
  </item>
    <item rdf:about="http://www31.atwiki.jp/bonze2/pages/1.html">
    <title>トップページ</title>
    <link>http://www31.atwiki.jp/bonze2/pages/1.html</link>
    <description>
      **トップページ
自分用まとめサイト（の予定）

-[[REXX]]
-[[JScript on WSH]]

-[[IMS]]
-[[DB2]]
-[[MQ]]
-[[CICS]]

#calendar(option=link)
- あれれ  -- hogehoge  (2009-11-18 04:48:48)
- あん  -- うん  (2009-11-18 04:52:02)
- ふが  -- ほげ  (2009-11-18 04:53:27)
- bfffdbfdb  -- gege  (2009-11-18 05:15:00)
- b  -- a  (2009-11-18 05:31:33)
- d  -- c  (2009-11-18 05:36:47)
#comment

----
今日のアクセス数
&amp;counter(today)
合計アクセス数
&amp;counter(total)
----

**まずはこちらをご覧ください。
-[[@wikiの基本操作&gt;http://atwiki.jp/guide/category2.html]]
-[[用途別のオススメ機能紹介&gt;http://atwiki.jp/guide/category22.html]]
-[[@wikiの設定/管理&gt;http://atwiki.jp/guide/category6.html]]

**分からないことは？
-[[@wiki ご利用ガイド&gt;http://atwiki.jp/guide/]]
-[[よくある質問&gt;http://atwiki.jp/guide/category1.html]]
-[[無料で会員登録できるSNS内の@wiki助け合いコミュニティ&gt;http://sns.atfb.jp/view_community2.php?no=112]]
-[[@wiki更新情報&gt;http://www1.atwiki.jp/guide/pages/264.html]]
-[[@wikiへのお問合せフォーム&gt;http://atwiki.jp/helpdesk]]
等をご活用ください    </description>
    <dc:date>2009-12-27T05:39:35+09:00</dc:date>
  </item>
    <item rdf:about="http://www31.atwiki.jp/bonze2/pages/13.html">
    <title>REXX</title>
    <link>http://www31.atwiki.jp/bonze2/pages/13.html</link>
    <description>
      スクリプト言語。IBMメインフレームでも使えるというのが最大の特徴かも。

オブジェクト指向を取り入れたバージョンもあるらしい(ooREXX)が、
ここではそうでないREXX(classic REXX)を扱う。

-[[REXX/文法]]
-[[REXX/変数・配列・連想配列]]
-[[REXX/関数・サブルーチン]]
-[[REXX/レシピ集]]

----
今日のアクセス数
&amp;counter(today)
合計アクセス数
&amp;counter(total)
----    </description>
    <dc:date>2009-11-11T21:20:40+09:00</dc:date>
  </item>
    <item rdf:about="http://www31.atwiki.jp/bonze2/pages/19.html">
    <title>REXX/レシピ集</title>
    <link>http://www31.atwiki.jp/bonze2/pages/19.html</link>
    <description>
      * ファイルの入力
ファイルからレコードを読むなら、TSOのEXECIOを利用。
 &quot;EXECIO 1 DISKR INDD (STEM LINE.)&quot;    /* INDD というDDから1レコード読んで、配列 LINE に入れる
 SAY LINE.1

使用メモリを気にしないなら、いっぺんに全レコードを読んでしまうこともできる。
 &quot;EXECIO * DISKR INDD (STEM LINE.)&quot;    /* INDD というDDから全レコードを読んで、配列 LINE に入れる
 DO I=1 TO LINE.0    /* 配列の添字 0 の要素はレコード数
  SAY LINE.I    /* 1レコードずつ順に表示
 END

ファイルを1レコードずつ読んで処理をする典型的なコード
 DO WHILE 1
  &quot;EXECIO 1 DISKR INDD (STEM LINE.)&quot;
  IF RC&lt;&gt;0 THEN LEAVE    /* ファイルの終わりに達したら DO WHILE ループから抜ける
  (do something)
 END    /* DO WHILE 1 の終わり

*ファイルの出力
 LINE.1=&#039;HELLO,WORLD&#039;
 &quot;EXECIO 1 DISKW OUTDD (STEM LINE.)&quot;    /* OUTDD というDDに LINE.1 の内容を1レコード書き込む

複数レコードをいっぺんに出力する場合
 LINE.1=&#039;//JOBNAME JOB CLASS=A,MSGCLASS=A&#039;
 LINE.2=&#039;//IEFBR14  EXEC PGM=IEFBR14&#039;
 LINE.3=&#039;//DD1      DD DSN=DATASET,DISP=(MOD,DELETE),SPACE=(TRK,1),UNIT=SYSDA&#039;
 &quot;EXECIO 3 DISKW OUTDD (STEM LINE.)&quot;    /* OUTDD というDDに LINE.1〜LINE.3 の内容を書き込む

レコード数を変数で指定する場合
 LINE.1=&#039;//JOBNAME JOB CLASS=A,MSGCLASS=A&#039;
 LINE.2=&#039;//IEFBR14  EXEC PGM=IEFBR14&#039;
 LINE.3=&#039;//DD1      DD DSN=DATASET1,DISP=(MOD,DELETE),SPACE=(TRK,1),UNIT=SYSDA&#039;
    （略）
 LINE.9=&#039;//DD7      DD DSN=DATASET7,DISP=(MOD,DELETE),SPACE=(TRK,1),UNIT=SYSDA&#039;
 
 LINE.0=9    /* 出力するレコード数
 &quot;EXECIO * DISKW OUTDD (STEM LINE.)&quot;


*TSOコマンドを発行し、その結果を受け取る
OUTTRAP() で、TSOコマンドのレスポンスを配列に受け取るようにする。

 X=OUTTRAP(&#039;LINE.&#039;)
 &quot;LISTDS (&#039;dataset name&#039;) MEMBERS&quot;    /* 配列 LINE. にLISTDSコマンドのレスポンスが入る
 DO I=1 TO LINE.0                     /* LINE.0 はコマンドレスポンスの行数
  (do something)
 END
 X=OUTTRAP(&#039;OFF&#039;)    </description>
    <dc:date>2009-11-11T21:19:52+09:00</dc:date>
  </item>
    <item rdf:about="http://www31.atwiki.jp/bonze2/pages/18.html">
    <title>REXX/関数・サブルーチン</title>
    <link>http://www31.atwiki.jp/bonze2/pages/18.html</link>
    <description>
      関数とサブルーチンの違いは、結果を呼び出し元に返すかどうかだけ。
|関数|返す|
|サブルーチン|返さない|

関数
 J=FUNC(2) /* 関数っぽく呼び出せる
 SAY J     /* 4
 EXIT
 
 FUNC: PROCEDURE
  ARG N
  RETURN N*N


*変数のスコープ
関数・サブルーチンの中では、変数スコープは完全に独立している。
（逆に言えば、呼び出し元と同じ変数を使用しても影響を与えない）

引数は、値渡し、参照渡しいずれも可能。

**値渡し
-基本は値渡し
-配列を渡すことはできない
 I=10
 CALL SUB I
 SAY I    /* 10
 EXIT
 
 SUB: PROCEDURE
  ARG I
  SAY I   /* 10
  I=50    /* Iを変更
  SAY I   /* 50
  RETURN

**参照渡し
-配列を渡すことも可能
-参照渡しをする変数名が固定されてしまうので、サブルーチンの可搬性が低下し、美しくない
 I=10
 ARRAY.=0
 CALL SUB
 SAY I          /* 50   10 ではない
 SAY ARRAY.2    /* 100   0 ではない
 EXIT
 
 SUB: PROCEDURE EXPOSE I ARRAY.    /* I と ARRAY. を参照渡しとする（名前はここで決まってしまう）
  SAY I   /* 10
  I=50    /* Iを変更
  SAY I   /* 50
 
  ARRAY.2=100
  RETURN

参照渡しをする変数名を、実行時に指定するようにすることも可能ではある。
この例では、参照渡しする変数の名前を REFERENCE という変数が示す。
でも REFERENCE という名前は、サブルーチンで固定されてしまうので、結局可搬性はあんまりよくない。
 I=100
 REFERENCE=&#039;I&#039;
 CALL SUB
 SAY I    /* 500
 
 K=200
 REFERENCE=&#039;K&#039;
 CALL SUB
 SAY K    /* 500
 EXIT
 
 SUB: PROCEDURE (REFERENCE) /* 参照渡しする変数名を示す変数は REFERENCE という名前にすると決める
  REF=WORD(REFERENCE,1)    /* REFERENCE の最初のワードが、参照渡しされた変数名
  SAY VALUE(REF)           /* 最初の呼び出しでは 100、2番目では 200
  VALUE(REF,500)
  RETURN    </description>
    <dc:date>2009-11-11T19:17:07+09:00</dc:date>
  </item>
    <item rdf:about="http://www31.atwiki.jp/bonze2/pages/16.html">
    <title>JScript/よくあるパターン</title>
    <link>http://www31.atwiki.jp/bonze2/pages/16.html</link>
    <description>
      *ユーザーからの入力を受け付ける
jscriptやWSHにはユーザーからの入力を受け付ける機能はない。
COMで他のソフトの機能を利用するようにすればよい。

どうもexcelを使うのがとても簡単な様子。
 var excel=new ActiveXObject(&quot;Excel.Application&quot;);
 var result=excel.InputBox(&quot;何かいれてね&quot;,&quot;what?&quot;);
 excel.quit();    </description>
    <dc:date>2009-10-30T13:12:38+09:00</dc:date>
  </item>
    <item rdf:about="http://www31.atwiki.jp/bonze2/pages/14.html">
    <title>REXX/変数・配列・連想配列</title>
    <link>http://www31.atwiki.jp/bonze2/pages/14.html</link>
    <description>
      -事前定義は不要
-データ型を持たない（基本は文字列だが、コンテキストによって自動的に変換）
-初期値は、変数名そのもの
 SAY VAR1    /* VAR1 が出力される

*配列
添字は . （ドット）で区切って指定
 ARRAY.1=&#039;ABC&#039;
 ARRAY.2=1000
添字は変数でも指定可能
 I=1
 SAY ARRAY.I    /* ABC が出力される
外部関数などと配列をやりとりする場合、添字 0 の要素は、配列の要素数を示すことが多い。

*連想配列
配列の添字は、整数だけでなく文字列を指定することも可能。
 NAME=&#039;HOGE&#039;
 ADDRESS.NAME=&#039;TOKYO&#039;
 NAME=&#039;BACH&#039;
 ADDRESS.NAME=&#039;FRANCE&#039;
 :
 KEY=&#039;BACH&#039;
 SAY ADDRESS.KEY    /* FRANCE が出力される
ただし、添字をリテラルで指定することはできない。
 ADDRESS.&#039;HOGE&#039;=&#039;TOKYO&#039;    /* これはだめ

連想配列の添字や要素を列挙する方法は提供されていないことに注意。
（他の言語でいうところの foreach など）    </description>
    <dc:date>2009-10-30T06:03:08+09:00</dc:date>
  </item>
    <item rdf:about="http://www31.atwiki.jp/bonze2/pages/2.html">
    <title>メニュー</title>
    <link>http://www31.atwiki.jp/bonze2/pages/2.html</link>
    <description>
      **メニュー
-[[トップページ]]

----

**リンク
-[[@wiki&gt;&gt;http://atwiki.jp]]
-[[@wikiご利用ガイド&gt;&gt;http://atwiki.jp/guide/]]

// リンクを張るには &quot;[&quot; 2つで文字列を括ります。
// &quot;&gt;&quot; の左側に文字、右側にURLを記述するとリンクになります


**更新履歴
#recent(20)

&amp;link_editmenu(text=ここを編集)    </description>
    <dc:date>2009-10-30T04:58:55+09:00</dc:date>
  </item>
    <item rdf:about="http://www31.atwiki.jp/bonze2/pages/3.html">
    <title>右メニュー</title>
    <link>http://www31.atwiki.jp/bonze2/pages/3.html</link>
    <description>
      **更新履歴
#recent(20)


&amp;link_editmenu2(text=ここを編集)
    </description>
    <dc:date>2009-10-30T04:37:45+09:00</dc:date>
  </item>
    <item rdf:about="http://www31.atwiki.jp/bonze2/pages/4.html">
    <title>プラグイン/ニュース</title>
    <link>http://www31.atwiki.jp/bonze2/pages/4.html</link>
    <description>
      * ニュース
@wikiのwikiモードでは
 #news(興味のある単語)
と入力することで、あるキーワードに関連するニュース一覧を表示することができます
詳しくはこちらをご覧ください。
＝＞http://atwiki.jp/guide/17_174_ja.html


-----


たとえば、#news(wiki)と入力すると以下のように表示されます。


#news(wiki)
    </description>
    <dc:date>2009-10-30T04:37:45+09:00</dc:date>
  </item>
  </rdf:RDF>

