基礎的なことなのですが、CHAINの書き方がわかりません。
今やっているのは、受注明細ファイルを出力するもので、
受注明細ファイルの商品コードをキーにして商品マスタを検索。
該当レコードがあれば、マスタの商品名称を出力ファイルの商品名称へ送るプログラムです。
CHAINを使って検索するのはわかるのですが、それをどう書けばいいかがわかりません。
またまた図々しいですが、できればサンプルのソースコードがあるとありがたいです。
よろしくおねがいします;;

このQ&Aに関連する最新のQ&A

A 回答 (3件)

freesiaさんが言われているので、freesiaさんの例を使わせてもらい追加です。


標識には大体数字2桁をするのですが、商品コードで商品マスタを
CHAINで来た時は標識は’0’できなかったときは’1’となります。
その標識を後で条件の分岐に使用します。

項目1   演算命令     項目2       結果           HI
商品コード CHAIN   商品マスター                99
*IN99 IFEQ ’0’
      MOVEL   読んだ商品名称   名称出力フィールド
      ENDIF  
    • good
    • 0
この回答へのお礼

ありがとうございます。
わかりやすく書いていただき感謝です。
またよろしくお願いします。

お礼日時:2001/11/29 13:39

こんにちわ。


#1のfreesiaさんの回答であっていますが、MOVELは標識がOFF(対象レコードがある)
時だけにしましょう。何が入るかわからないので・・・^^;
標識の聞き方はいろいろ有るので、また聞いてください。
また、キーが複数の時はキーフィールドを切らないと行けません。
    • good
    • 0
この回答へのお礼

ありがとうございます。
またよろしくお願いします。

お礼日時:2001/11/29 13:38

こんにちは。

RPGと格闘している者です。RPGは何で学ばれているので
しょうか。IBMのテキストなどにサンプルコードはありませんか。私は下記
のように記述します。ご参考までに。的外れだったらごめんなさい。

項目1   演算命令 項目2         結果           HI
商品コード CHAIN  商品マスター                 標識
        MOVEL  読んだ商品名称   名称出力フィールド
    • good
    • 0
この回答へのお礼

ありがとうございます。
またいろいろありましたらよろしくお願いします。
IBMのテキスト等無い状況なのでとても辛いです;;

お礼日時:2001/11/29 13:36

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q東京ディズニーランドで配布される記念日などのピンについての質問です。

東京ディズニーランドで配布される記念日などのピンについての質問です。
今までその日に行ったことがないのですが、配布される日というのはあらかじめ分かるものなのでしょうか?

また最近も配布はされているのでしょうか?
11月18日のミッキーの誕生日に配布されたりしますか?

その日はやっぱり混雑しますか?

色々質問ぃて申し訳ないのですが、よろしくお願いします。

Aベストアンサー

25周年を最後に、正式?な配布はしていませんが…

去年だったっけ?TDSのキャンドルライトリフレクションズが終わるときに、サイリウム(折ると光る棒)を配りました。
でもこれは告知ナシで、どちらかというとCMの撮影用のためという感じでした。
ミッキーの誕生日と、キャンドルの最終日に配ったと記憶してます…

あとは、カウントダウンのときは毎年配布というか、記念品がつきます。

確か10周年から4/15のみ告知ナシで配布がはじまりました。
(それ以前は、5年おきの○周年というときにスクラッチとかはあった)
ミレニアムカウントダウンあたりから、開園記念日以外の日に配布をするようになり、公式HPでも告知がされるようになりましたが、25周年を最後に(しかも確か24個という半端な数で)配布は終了しました。
それ以降、HPで事前に告知されるような配布はしていないと思います。
事前告知があったときの配布日はかなり混雑しますよ。
10~14周年の、4/15のみ配布のころは、4/15に行けばふるい常連にばったり会う…なんてぐらいでした。
ただ25周年までの近年は配布も頻繁でしたので、配布初期のころと比べると分散していたように思います。

今年に関しては、公式では告知はないと思います。
最近は情報あまり入ってこないのですが、とりあえず11/18に配布があるかどうかは今のところ耳にはしていません。
ただ去年はかなりぎりぎりに知ったので、ないとも言い切れないですが。

25周年を最後に、正式?な配布はしていませんが…

去年だったっけ?TDSのキャンドルライトリフレクションズが終わるときに、サイリウム(折ると光る棒)を配りました。
でもこれは告知ナシで、どちらかというとCMの撮影用のためという感じでした。
ミッキーの誕生日と、キャンドルの最終日に配ったと記憶してます…

あとは、カウントダウンのときは毎年配布というか、記念品がつきます。

確か10周年から4/15のみ告知ナシで配布がはじまりました。
(それ以前は、5年おきの○周年というときにスクラッチとかはあっ...続きを読む

Qバッチファイルで、記号を含む引数をファイル出力したい

バッチファイルで、記号を含む引数(ファイルのパス)をファイル出力したいのですが、うまくいきません。

バッチファイル
C:\AAA\BBB.bat
に対し、

テキストファイル
C:\AAA\『,』『^』『%』『&』.txt
をドラッグ&ドロップした場合に、

引数をテキストファイルに出力したいのですが、方法が分かりません。

以下の5パターンを試してみたのですが、駄目でした。

何か方法はあるでしょうか。

---------------------------------------

■ バッチファイルの書式
echo %1> CCC.txt

■ 出力結果
C:\AAA\『

---------------------------------------

■ バッチファイルの書式
echo "%1"> CCC.txt

■ 出力結果
"C:\AAA\『"

---------------------------------------

■ バッチファイルの書式
echo "%~1"> CCC.txt

■ 出力結果
"C:\AAA\『"

---------------------------------------

■ バッチファイルの書式
echo %*> CCC.txt

■ 出力結果
C:\AAA\『,』『』『%』『

---------------------------------------

■ バッチファイルの書式
echo "%*"> CCC.txt

■ 出力結果
"C:\AAA\『,』『』『%』『"

---------------------------------------

バッチファイルで、記号を含む引数(ファイルのパス)をファイル出力したいのですが、うまくいきません。

バッチファイル
C:\AAA\BBB.bat
に対し、

テキストファイル
C:\AAA\『,』『^』『%』『&』.txt
をドラッグ&ドロップした場合に、

引数をテキストファイルに出力したいのですが、方法が分かりません。

以下の5パターンを試してみたのですが、駄目でした。

何か方法はあるでしょうか。

---------------------------------------

■ バッチファイルの書式
echo %1> CCC.txt

■ 出力...続きを読む

Aベストアンサー

バッチでは無理です。VBScript等を使ってください。

Set fso = CreateObject("Scripting.FileSystemObject")
set argv=WScript.Arguments
Set f = fso.OpenTextFile("C:\Path\to\CCC.txt", 2, True)

For I = 0 to argv.Count - 1
f.WriteLine argv(I)
Next

QQ.手首付近の局部麻酔について 僕はあと2日したら局部麻酔で手首のピンを抜釘します。でも、局部麻

Q.手首付近の局部麻酔について


僕はあと2日したら局部麻酔で手首のピンを抜釘します。でも、局部麻酔が不安で仕方ありません、本題ですが、局部麻酔は、注射されてから何秒くらいで感覚が無くなるのでしょうか(効果が出てくるのでしょうか。)

Aベストアンサー

5秒から10秒くらいですかね?

麻酔ですからまったく痛みは感じません。

痛みを感じていたら麻酔の意味がありませんからね。

QEXCELVBAでファイルにあるデータをtxtファイルに出力しようと考えています。

EXCELVBAでファイルにあるデータを
txtファイルに出力しようと考えています。
txtファイルに出力することはできましたが、
エクセルのデータを参照しません。
どうすればいいのでしょうか。
よろしくおねがいします。

**********************************
作成したVBA
**********************************
Sub test_Click()

Dim fNAME As String 'ファイル名格納用
fNAME = "c:\test.txt"
Open fNAME For Output As #1

****************************************************
ここにB1からB10までの値をいれようと考えています。
ループのさせ方もよくわかりません。
****************************************************
Print #1, "test1=" & Range("B1").Select & "
Print #1, "test2=" & Range("B2").Select & "

Print #1, "test10=" & Range("B10").Select & "

Close #1
End Sub

EXCELVBAでファイルにあるデータを
txtファイルに出力しようと考えています。
txtファイルに出力することはできましたが、
エクセルのデータを参照しません。
どうすればいいのでしょうか。
よろしくおねがいします。

**********************************
作成したVBA
**********************************
Sub test_Click()

Dim fNAME As String 'ファイル名格納用
fNAME = "c:\test.txt"
Open fNAME For Output As #1

****************************************************
ここにB1からB10...続きを読む

Aベストアンサー

Range("B1").Select ではなく Range("B1").Value としてみましょう
他のセルに対しても同じように Valueでデータを取得しましょう

Q日焼け止め、ピンからキリまで☆

日焼け止めの、価格は、ピンからキリまでありますが、
効能に違いはあるのでしょうか?

伸びがいい、落ちにくい、などの理由でしょうか?

やっぱり、高いのは焼けない!
やっぱり、安いのは焼けてしまった!

の経験談など、ございましたら、お願いします。m(..)m

Aベストアンサー

日焼け防止効果はSPF値が高いほどまたPA値の+が多いほど日焼けしにくいです。
SPF 120、 PA+++は白浮きします。
SPF 50、PA+++などなら塗ったかどうかわからないものもあります。また塗った感じがさらっとしていて長く安定しているものが値段が高いように感じられます。

●使う基油の違い
 べたべた感・さらさら感・汗でおちやすさ
 長く皮膚に安定しているかなど。
●使う反射材の違い
 紫外線収集剤や反射材などの材料が金属アレルギーを起しにくい材料か又は匂わない材料かで変わります。安いものは鉱物、アルミなどですが高いものはパール粉末や酸化チタン、酸化亜鉛などを使用します。
●見た目の感じ
 白浮きしないかどうかの感じ

参考URL:http://nayami.spaspa.jp/suncare.html

Qksh 複数のファイルから中身を1行ずつ取り出して別のファイルに出力したい

いつもお世話になっております。
kshについての質問なのですが、どうかよろしくお願い致します。

(1)複数のselect文の結果をそれぞれ別のファイルに出力する。(ファイルa,b,c・・・)
(2)a,b,c…それぞれのファイルから1行ずつ別のファイル(ファイルd)に出力する。

例:ファイルaの中身
  (a1111
  a2222
  a3333)
  ファイルbの中身
  (b1111
  b2222
  b3333)
  ファイルcの中身
  (c1111
  c2222
  c3333)

結果ファイル(ファイルd)の中身
a1111
b1111
c1111
a2222
b2222
c2222




上記のような方法が可能でしょうか?

Aベストアンサー

(1)は関係ないですよね?

paste -d "
" file-a file-b file-c >file-d

-d の後に改行コードを入れないといけないので、""で囲みます。

paste file-a file-b file-c だと、
a1111<tab>b1111<tab>c1111
a2222<tab>b2222<tab>c2222
のようにタブで区切られるのでタブじゃなくて改行で区切られるようにします。

Q「取引債務の弁済期日から90日」についてピンと来る方いますか?

売買契約にかかる債務は、債務履行しないまま弁済期日から90日経過すると、「何かが起こる」ような感じがするのですが、これについて何かご存知の方は是非教えてください!法律に書いてある場合は、法律名もお教えいただけますと助かります。

Aベストアンサー

補足があって初めて分かりました。

○銀行の不良債権で、3ヶ月以上延滞している債権を要管理債権に分類しているようなのですが

これは、金融再生法(金融機能の再生のための緊急措置に関する法律)およびその施行規則において、金融機関が開示すべき債権の種類として「要管理債権」を定め、その基準に「3ヶ月以上延滞している」というのがあるからです。銀行法でも3ヶ月延滞という基準による開示義務があります。

http://www.zenginkyo.or.jp/pub/pamph/pdf/dp2_1.pdf

これらの債権については金融機関の開示義務が生じるというだけで、もとの債権自体には何らの変化も生じません。

売買契約だから、というものでもないですね。

Qソースコードの差分がある行番号を出力するには?

ソースコードを修正したときに、変更箇所のイメージではなく、
変更箇所について修正行番号を出力する方法はありませんでしょうか?

例えば以下のようなことです。
  修正前ファイル(file_old.c)
    1: aaaaa
    2: bbbbb
    3: ccccc
    4: ddddd
    5: eeeee

  修正後ファイル(file_old.c)
    1: aaaaa
    2: bbbbb
    3: CCCCC
    4: ddddd
    5: EEEEE

 このときに、変更詳細では無く、「3行目と5行目が変更されている」という情報が欲しいのです。

現在は、DFとかRekisaを使用して、変更箇所をハイライト表示して、
手作業で、「20行目と28行目、50行目が修正されているな」と確認しています。
修正箇所が少ないうちは、そんなに手間じゃないのですが、
100ステップ単位で修正したときなどは、修正箇所のピックアップが面倒だなぁと。

何か良い方法やツールありませんでしょうか?

ソースコードを修正したときに、変更箇所のイメージではなく、
変更箇所について修正行番号を出力する方法はありませんでしょうか?

例えば以下のようなことです。
  修正前ファイル(file_old.c)
    1: aaaaa
    2: bbbbb
    3: ccccc
    4: ddddd
    5: eeeee

  修正後ファイル(file_old.c)
    1: aaaaa
    2: bbbbb
    3: CCCCC
    4: ddddd
    5: EEEEE

 このときに、変更詳細では無く、「3行目と5行目が変更されている」という...続きを読む

Aベストアンサー

「グラフィカルでない」というところに思わず反応してしまった。
UNIX系のコマンドだけどdiffコマンドはだめでしょうかねえ。
 C:\hoge> diff file_old.c file_new.c
 3c3
 < ccccc
 ---
 > CCCCC
 5c5
 < eeeee
 ---
 > EEEEE

念のため説明すると「3c3」の'c'は変更された(changed)ことを示す。
cの左はfile_old.cの行番号、右はfile_new.cの行番号です。

行番号だけ表示するというのはちょっと面倒だけど、行番号のところだけまとめるのは簡単にできる。
 C:\hoge> diff file_old.c file_new.c | sort
 ---
 ---
 < ccccc
 < eeeee
 > CCCCC
 > EEEEE
 3c3
 5c5

ファイルに出力すれば編集もできる。
 C:\hoge> diff file_old.c file_new.c | sort > hogehoge.txt

うーん。もっといいやり方があるんだろうけどね。簡単な方法が浮かばない。

参考URL:http://www.vector.co.jp/soft/winnt/util/se015010.html

「グラフィカルでない」というところに思わず反応してしまった。
UNIX系のコマンドだけどdiffコマンドはだめでしょうかねえ。
 C:\hoge> diff file_old.c file_new.c
 3c3
 < ccccc
 ---
 > CCCCC
 5c5
 < eeeee
 ---
 > EEEEE

念のため説明すると「3c3」の'c'は変更された(changed)ことを示す。
cの左はfile_old.cの行番号、右はfile_new.cの行番号です。

行番号だけ表示するというのはちょっと面倒だけど、行番号のところだけまとめるのは簡単にできる。
 C:\hoge> diff file_old.c...続きを読む

Q彼氏がバイトでネクタイを締めていて、ネクタイピンが欲しいと言っていたそうなのでネクタイピンを買いまし

彼氏がバイトでネクタイを締めていて、ネクタイピンが欲しいと言っていたそうなのでネクタイピンを買いました。
これを何でもない日に渡すのか、2ヶ月記念日の飲みの時に渡すのか迷ってます。

どちらがいいと思いますか??
どちらが嬉しいでしょうか?
何でもない日のプレゼントもいいなと思ったのですが…

Aベストアンサー

2ヶ月記念日がどのくらい先なのか知りませんが、2週間以上先ならば私は先に渡します。ネクタイピンを贈るときの意味をネットで知って贈ってあげたらよりすてきなプレゼントになると思います。

Q日本語URLと文字コード。名称を教えてください。

例えばブラウザのURL欄に入力した

http://ja.wikipedia.org/wiki/日本語

という文字列は、IE以外では、それをテキストエディタなどにコピペすると

http://ja.wikipedia.org/wiki/%E6%97%A5%E6%9C%AC%E8%AA%9E

となりますが、この「%(16進数)」の文字コードの名称を教えていただけないでしょうか。

よろしくお願いします。

Aベストアンサー

URLエンコード
http://ja.wikipedia.org/wiki/URL%E3%82%A8%E3%83%B3%E3%82%B3%E3%83%BC%E3%83%89


人気Q&Aランキング

おすすめ情報