ＴｈｅＰＩＰＳのＡＵＴＯプログラムで使える変数は、整数型変数がＸ１か
らＸ４０、実数型変数はＺ１からＺ４０、文字型変数はＶ１からＶ３０までと
固定されています。プログラム作成においては、この決められた変数を上手に
組み合わせて使いこなさなければなりません。目的のプログラムを作成する過
程で、プログラムの設計を机上で行い、変数の割り振りを決めてコーディング
作業を開始する事が奨励されながらも実際に行っている人は皆無でしょう。私
を含めほとんどの人は、思い立つところからいきなりＷＰ指令にてプログラム
を作成し始める事でしょう。変数の使用数が少なければ必要に応じて順番に変
数を使って行けば問題はないのですが、次第にプログラムが込み入ってくると
変数の使い方が乱雑になり、管理が大変になります。また、特にサブルーチン
化したり他のサブルーチンを参照したりする必要がでてきた場合には、変数が
重複してしまう様な問題に直面します。このような場合、今までに作成したプ
ログラムの変数内容を書き換える事を強いられます。このことを単純な文字変
換としてとらえた場合、ＴｈｅＰＩＰＳの機能として、ＣＵ指令やＷＰ指令中
の「文字編集」の「置換」機能を使用する事も可能です。
しかし実際に使うと、ＡＵＴＯプログラムと言う特殊な文字列のために次のよ
うな不満が出てきます。
（１）該当以外の変数が変換されてしまう。
［ＥＸ］Ｘ１をＸ２に変換しようとすると、Ｘ１０・Ｘ１１・・等がＸ２０
・Ｘ２１・・と変換される。
（２）複数種類の変数を入れ換える場合の操作に注意が必要であり大変面倒で
ある。
［ＥＸ］Ｘ１をＸ２・Ｘ２をＸ１にする場合、一度にＸ１をＸ２に変換して
しまうと、次にＸ２をＸ１に変換する時に、前にＸ１からＸ２に変
換したＸ２の内容もまたＸ１に戻ってしまう為結果が得られない。
Ｘ１を一時別の文字に換えて（但し、同一のプログラム内で使用さ
れていない文字列でなければならない）Ｘ２をＸ１に変換し、一時
的に他の文字列に対比していた元のＸ１をＸ２に変換する。
そこで、今回はＡＵＴＯプログラムの変数を一度に変換してしまうＡＵＴＯプ
ログラムを作成します。
つまり［資料１］＜ＶＥＸＣ＞実行元サンプルプログラムの様な内容を［資料
２］変数変換定義表（サンプル）の内容に従い変数を自動的に書き換え、［資
料３］実行後サンプルプログラムにする。
以前に紹介しました、変数リファレンステーブル作成プログラム＜ＶＲＴ＞と
併用して利用される事をお勧めします。
ＡＵＴＯプログラム＜ＶＥＸＣ＞仕様
１．主画面にあるプログラムに対してプログラム全体、行番号指定での一部指
定範囲に対して変数の変換を実行できる。
２．変数の変更内容は、以前紹介しました（ソードマガジン’９５年９月号）
変数リファレンステーブル作成プログラム＜ＶＲＴ＞での変数テーブル表
を利用し、これに必要な列を追加して活用します。サブ画面を作業エリア
として使用します。実行後はサブ画面のデータは削除されますので注意が
必要です。
３．変換表は元の変数名（変数列）と、変更したい変数名（変更列）を指定し
て実行させる事で、中間変更名（ＷＯＲＫ列）を自動的にセットし使用行
番号の列に変換をした行番号をセットする。［資料２］変数変換定義表
４．変換表は＜ＶＲＴ＞プログラムの結果（変数リファレンステーブル）を事
前にサブ画面に用意していても処理できるようにする。また再実行する事
も考慮する。実行スピードを上げるために変換に関係しない行の削除を指
定できるようにする。
５．変換にて文字数が増える場合がある。（ＥＸ：Ｘ１をＸ１１にする場合１
桁字数が増す）この場合プログラムの右端が桁溢れし消える場合があるが
実行そのものは無視して行う。但し、使用行番号列に変更行番号をセット
する時は「マイナス」符号を付加し注意を与える。
６．中間変換文字の指定は自動的にプログラム上で行う。文字列桁数を２桁に
固定し１文字目は変換範囲に使用されていない文字とする。
標準として”￣”文字を使用しプログラム上で使用されている場合はＡＳ
ＣＩＩコード を１つずつ進めていく。２文字目は”！”文字から順にコ
ードを進め自動的に割り付けていく。この文字を変換表のＷＯＲＫ列にセ
ットし実行する。
＜ＶＥＸＣ＞プログラム概要
［資料４］＜ＶＥＸＣ＞プログラムリスト・［資料５］＜ＶＥＸＣ＞プログ
ラム変数リファレンステーブルを参照の上補足的な説明を致します。
【２〜５行目】変数Ｖ５には、変数変換テーブル表の元となるページ指定。ソ
ードマガジン９５年９月号で紹介しました＜ＶＲＴ＞プログラムでのＡＵＴＯ
プログラム変数リファレンステーブルと同じ環境を指定して下さい。変数Ｘ７
，Ｘ８，Ｘ９は、作業用に使う一時書き換えよう文字コードで、Ｘ９は１文字
目コード、Ｘ８は２文字目コード、Ｘ７は２文字目コードの最終コード。ＡＳ
ＣＩＩ関数は対象文字のＪＩＳ（キャラクター）コード番号を得る。
【６〜１５行目】処理を開始する行番号を変数Ｖ１に入力させる。［ＥＳＣ］
を押した場合は＄終了へ飛ぶ。［ＥＮＴＥＲ］のみは、行番号１からに自動設
定し数字指定で画面上のデータ最終行番号以内は次の処理へ飛び、文字指定の
場合は、プログラム名の検索のため１行目から最終行番号までの行内容を指定
文字列でのプログラム名を探す。該当がなければエラー処理へ飛び再入力をす
る。変数Ｘ１０は最終的な処理開始行番号となる。
【１６〜２５行目】処理を終了する行番号を変数Ｖ２に入力する。［ＥＳＣ］
を押した場合は＄終了に飛ぶ。変数Ｖ２が［ＥＮＴＥＲ］のみで有れば最終行
を探す処理（＄ＥＲＳＴ）へ飛ぶ。変数Ｖ２が数字で有れば、テーブルの入力
処理（＄ＴＢＩＰ）へ飛ぶ。変数Ｘ１１は処理終了行を格納する為のもので、
範囲が変数Ｘ１０未満で最終行（Ｅ）より大きい場合は範囲外のためエラー処
理へ飛ぶ。変数Ｖ１にプログラムのタイトルの検索をするための条件をセット
し処理開始行番号の次から最終行番号までの間を探す。検索が終了した場合プ
ログラム名で終了した場合はその行の１行前までが対象行となる。
【２６〜３５行目】画面をスワップし既に変換定義表が有るかどうかの確認を
する。文書形式で有れば変換定義表は有り得ない。次に変換定義表として最低
必要な列の存在を確認する。変数Ｘ２５はエラーを累積するためのものでエラ
ーが最終的になければ変換定義表が存在していると言える。定義表がない場合
には、読込を促進する為の入力選択をし読込をしない時と［ＥＳＣ］を押した
時は＄終了へ飛ぶ。
【３６〜４０行目】変数Ｘ１９は、ＷＯＲＫ・変更と言う２つの列を挿入する
のに必要な桁数。列の桁数と縦罫線で各列５桁必要。ＷＯＲＫ列が有ればこの
列を挿入しないでよい為変数Ｘ１９は５桁少なくて良い。同じく、変更列が有
ればＸ１９は５桁少なくて良い。変数Ｘ１９が０と言うことは挿入しなくて良
いため入力処理＄ＴＧＩＰへ飛ぶ。
ページの横桁数［ＳＴＡＴＵＳ（１，２）］から使用桁数［ＳＴＡＴＵＳ（１
，６）］を引いたものが変数Ｘ１９よりも大きい時は列の挿入が可能であるた
め列作成処理＄ＣＡＰＲへ飛ぶ。
【４１〜５０行目】現在の使用行数を変数Ｘ１５に求め、画面の最大面積（１
４Ｋｂ）を変数Ｘ１５で割ると設定可能な最大横桁数が求められ変数Ｘ２０に
セットする。変数Ｘ２０が１０２４より大きいときは横桁の最大が１０２４で
有るため１０２４に一致させる。最大設定可能桁数から今の使用桁数［ＳＴＡ
ＴＵＳ（１，６）］を引いたものが変数Ｘ１９以上で有ればＩＮＦＯ指令にて
変更できる為、＄ＩＦＰＲへ飛ぶ。変数Ｘ１９桁数確保出来ない場合に
は、余裕のある列の桁数を短縮する必要がある。そのため「仕様・内容」列が
通常大きく取っているのでこの列より必要な桁数小さくした桁数を変数Ｘ２１
に求め。この桁数が１０以上で有ればＣＦ指令にて桁数を変更する。それ以外
は処理不能になりエラー表示し終了する。
【５１〜５５行目】「ＷＯＲＫ」列の存在を、列番号を求めるＣＮ関数にてエ
ラー２２があった場合は無しと判断する。存在しないときは、「使用行番号」
列の前に桁数４で挿入する。同様に「変更」列の存在を確認し無ければ、「使
用行番号」列の前に桁数４で挿入する。
【５６〜６１行目】ＷＣ指令でのＥＮＴＲＹ機能を使い「変更」列に、新しい
変数名をを入力させる。「ＷＯＲＫ」と「使用行番号」列を空白にし、表のデ
ータ開始と終了行を変数Ｘ４，５にセットし、変更列の空白行スイッチ変数を
初期化する。変更列の空白行が有れば行を削除するための＠参照列を変更列に
し、それ以外は空白行スイッチを１にしラベル＄ＪＭＰ２に飛ぶ。
【６２〜６９行目】変更処理に関係しない行を削除するかの確認（関係の無い
行があると処理に時間がかかるために）。［ＥＳＣ］で終了。エラーメッセー
ジとエラー処理後の戻りラベル名指定。入力指定がにより行を削除し空白行ス
イッチを１にする。
【７０〜７１行目】変数Ｘ４，５にデータ開始、終了行番号をセットし、空白
行スイッチが１（空白行がない時）はラベル名＄ＪＭＰ２へ飛ぶ。
【７２〜７７行目】対象データ行の開始、終了を求めるために、変数Ｘ４，５
に最大、最小行番号をセットし、開始行から最終行までを変更列が空白で有れ
ば更新する。
【７８〜８４行目】変換一覧表をサブ画面に移す。ＷＯＲＫ用文字の有無の確
認の為、処理開始、終了行番号内の文字列を比較する。
【８５−１２０行目】プログラムリストの変更処理対象行番号のループ。
【８６〜８８行目】変数Ｖ１２へ処理行の取り込みと変更対象データの有無ス
イッチの初期化。処理中行番号の表示。
【８９−１１９行目】元変数名をＷＯＲＫ名に変える処理と、ＷＯＲＫ名を新
変数名に変える処理の切換。
【９０−１１８行目】変更一覧表の開始、終了行番号のループ。
【９１行目】ＷＯＲＫ名から新変数名の書換時で変更対象がなかった場合はラ
ベル名＄ＮＸＴ２へ。
【９２〜９６行目】サブ画面の変更列の内容を取り込み内容がないか罫線時は
ラベル名＄ＮＸＴ０に飛ぶ。ＷＯＲＫ名に変更時で変数Ｘ２が初回の時以外は
ラベル名＄ＪＭＰ５に飛ぶ。ＷＯＲＫ文字の組立をし、サブ画面のＷＯＲＫ列
にセットし変数Ｘ８を次のＷＯＲＫ文字作成の準備とし１を追加する。変数Ｘ
８がＸ７より大きくなるとＷＯＲＫ文字列作成限界でエラー処理へ飛ぶ。
【９７〜９８行目】元変数名からＷＯＲＫ名に変更する時点では、変数Ｖ８に
ＷＯＲＫ文字を、変数Ｖ１１に元変数名をセットする。ＷＯＲＫ文字から新変
数名に変換するときは、変数Ｖ８に新変数名を、変数Ｖ１１にＷＯＲＫ文字列
をセットする。
【９９〜１０４行目】文字検索開始の初期値桁数を変数Ｘ１３にセット。変更
文字を検索、変数Ｘ１２が０の時は該当無しでラベル名＄ＮＸＴ０に飛ぶ。
検索変数番号が１桁でＷＯＲＫ文字に変える時は、次の文字が数字で有れば該
当変数でないためにラベル名＄ＥＸＣ３へ飛ぶ。
【１０５〜１０９行目】変数Ｘ１２が１の時は１桁目から該当変数があるため
に該当変数を外した右側文字列と変更文字列に置き換え変数Ｖ１２に組立てる
。該当変数が変数Ｖ１２の中間に有る場合はその左側と右側の間に変更文字列
を入れて組立てる。一番右側に該当変数がある場合は、左文字列と変更文字列
を組立てる。この処理を通過するという事は変換を行った事なので変数Ｘ１６
のスイッチを１にする。処理後の文字列を元の行に戻す。
【１１０〜１１１行目】処理後に戻す文字列が桁数が増えた時で、画面桁数以
上になった場合は内容の一部が消えるため、注意を与えるため変換行番号の符
号をマイナスにする。２回目処理（ＷＯＲＫ文字から新変数にする時）で桁溢
れが無い場合はラベル名＄ＥＸＣ３へ飛ぶ。
【１１２〜１１７行目】使用行番号の更新のためサブ画面の変更一覧表の使用
行番号列の内容を変数Ｖ１３に読み込む。現在処理中の行番号が既にセットさ
れていればラベル名＄ＥＸＣ３へ飛ぶ。使用行番号覧が空白の時は行番号区切
りが必要ないため、変数Ｖ１４を空白にする。それ以外は区切り記号「／」を
セットする。現在の内容に今回の行番号をセットしサブ画面の表に書込。同じ
行の残り文字列を検索するために変数Ｘ１３を処理終了の次の桁数にセットす
る。セットした桁数が検索文字列の桁数より小さければラベル名＄ＥＸＣ２に
戻り処理を継続する。
【１２１〜１２２行目】ＤＩＳＰ画面を閉じ、ＳＴ
ＯＰ文に飛ぶ。
【１２４〜１２９行目】エラー処理ルーチン。
＜ＶＥＸＣ＞プログラムの操作方法
変数の変更処理を行いたいプログラムを画面に呼び出しておきます。
［資料１］のプログラムを［資料２］の内容にて変数変換を行う操作を例にご
紹介します。
（１）ＡＵＴＯプログラムを動かします。
ＶＥＸＣ［ＥＮＴＥＲ］
（２）処理プログラム名（・・・）
［ＥＮＴＥＲ］
プログラム名の指定、行番号の指定が可能です。
（３）処理終了行番号・・・
［ＥＮＴＥＲ］
行番号指定と使い分けて下さい。［ＥＮＴＥＲ］の時は自動的に開始行
からのプログラムの範囲内となります。
（４）［資料２］の表が画面に表示されますので変更列の該当変数行に新しい
変数名を入力して下さい。変更しないところは空白の状態で、ＷＯＲＫ
列は入力しないで下さい。入力が終了すると［ＥＳＣ］で終了します。
（５）変更無指定の行を削除してもいいですか？
［ＥＮＴＥＲ］
空白行が多い場合には処理時間が多くかかりますのでできる限り空白行
を消すように操作して下さい。再処理の場合には、（４）の操作中はＷ
指令中なのでプルダウン処理の行挿入などの機能を使う事も可能です。
（６）最終的に処理が出来たら、サブ画面の使用行番号列で桁溢れ等の確認を
して元のプログラムページに登録して下さい。
