• ベストアンサー

COBOL ２次元配列について

COBOL の２次元配列（？）について質問です。 例えば 01 A ...03 B OCCURS 5 ......05 C .........07 D OCCURS 10 ............09 E ............09 F とある場合、個々の E,F にアクセスするには どのように記述すればいいのでしょうか。。 MOVE 1 TO E(1,1) や、 MOVE 1 TO A(1,1) ではダメでした…。 よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

MOVE 1 TO E(1 1) 添え字をスペースで区切ればいいはずです。

tenoption
質問者

お礼

ありがとうございました！ 朝回答を見させていただいて、さっそく試してみました。 動作も確認できました。 時間がなかったもので、本当に助かりました…。 スペースなのは、このコンパイラ特有の仕様でしょうか。。-_-;

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. その他（プログラミング・開発）

関連するQ&A

  • 多次元配列を、1次元の配列にする関数を書いてください。

    以下のように、多次元配列の配列をペチャンコにする関数（array_flatten）ってどうかきますか？ <?php $arr[0] = 'a'; $arr[1][0] = 'b'; $arr[1][1][0] = 'c'; $arr[1][1][1][0] = 'd'; $arr[1][1][1][1][0] = 'e'; $arr[1][1][1][2] = 'f'; $arr[1][1][2] = 'g'; $arr[1][2] = 'h'; $arr[2] = 'i'; function array_flatten($arg){ 　　処理; } $new_arr = array_flatten($arr); print_r($new_arr); ?> ↓ Array ( 　　[0] => a 　　[1] => b 　　[2] => c 　　[3] => d 　　[4] => e 　　[5] => f 　　[6] => g 　　[7] => h 　　[8] => i ) ※関数のなかで、ペチャンコの配列を格納するための新しい配列を宣言すると、 同関数を再帰的に呼び出したら、その配列が初期化されますよね？

    • ベストアンサー
    • PHP
  • 多次元配列のカウントのしかた

    すみません、質問させてください。 $array1:1次元配列 $array2:2次元配列 1次元配列のカウント（要素数）をしるには count($array1) とすれば取得することができますが、 2次元配列のカウントを取得するにはどのように すればいいのでしょうか？そんな関数はありますか？ $array2のデータの中身 $array[0][0] = 'a'; $array[0][1] = 'b'; $array[1][0] = 'c'; $array[1][1] = 'd'; $array[2][0] = 'e'; $array[2][1] = 'f'; この場合、3という値が欲しいのですが・・・ 宜しくお願い致します。

    • ベストアンサー
    • PHP
  • COBOLについて

    COBOLで以下のような仕様の場合、どのようなロジックにするのが良いでしょうか？ ・仕様 　A項目=値A または 　B項目=値B または 　(C項目=値C かつ D項目=値D ) または 　E項目=値E 上記の場合、何も処理しない(以降の処理もせずに、次レコードを読みに行く 　上記以外の場合、処理1を行い、次処理以降の処理を継続する。 (ロジック1) IF A項目=値A OR B項目=値B OR (C項目=値C かつ D項目=値D ) OR E項目=値E THEN CONTINUE ELSE 処理1を行う END-IF. (ロジック2) IF A項目=値A MOVE '1' TO 該当フラグ END-IF. IF B項目=値B MOVE '1' TO 該当フラグ END-IF. IF (C項目=値C かつ D項目=値D ) MOVE '1' TO 該当フラグ END-IF. IF E項目=値E MOVE '1' TO 該当フラグ END-IF. IF 該当フラグ='1' CONTINUE ELSE 処理1 END-IF. 自分は仕様に沿ってロジック1で組むべきだと思うのですが、 ロジック1は分かりずらいのとメンテが大変なのでロジック2で組むべきだと言われました。 どちらで組むのが普通でしょうか？どなたか教えて下さい！

  • 多次元配列の初期化

    多次元配列の初期化を行いたいのですが、 下記の方法では、配列の値が多くなったときに大変 なので他に良い方法はありませんでしょうか？ char lesson[7][6] = { {'A', 'B', 'C', 'D', 'E', 'F'}, {'G', 'H', 'I', 'J', 'K', 'L'}, {'M', 'N', 'O', 'P', 'Q', 'R'}, {'S', 'T', 'U', 'V', 'W', 'X'}, {'Y', 'Z', 'a', 'b', 'c', 'd'}, {'e', 'f', 'g', 'h', 'i', 'j'}, {'k', 'l', 'm', 'n', 'o', 'p'}, };

  • Excel VBA 2次元配列の一部をセルに出す

    Excel VBAで2次元配列中の一つの次元をセルに一発（For等でループせずに）で縦方向に書きたいのですが、何か良い方法は有るでしょうか。 例 Dim tmp(2, 2) As String tmp(0, 0) = "A"　　　　　: tmp(0, 1) = "B"　　:　 tmp(0, 2) = "C" tmp(1, 0) = "D"　　　 : tmp(1, 1) = "E"　　　 : tmp(1, 2) = "F" tmp(2, 0) = "G"　　　 : tmp(2, 1) = "H"　:　　 tmp(2, 2) = "I" 　　セル　B1　～ B3　に　ｔｍｐ(1,0)～temp(1,2)の出力したい （　セル　B1に D、セルB2に E、　セル　B31に　F　が入る） Transposeをみたのですが、一次元配列が前提のようです。 2次元配列の要素の一つを一次元にする方法でも構いません。 　 よろしくお願いします。

  • COBOLについて

    COBOL初心者なのですが。 COBOLで 01　A. 　　03 B PIC 9(02). 　　03 C PIC X(02). MOVE　　SPACE　　TO　　A. とした時、基本項目であるBには何が入っているのでしょうか？ 数字項目にSPACEというのはありえないですよね。 どなたかわかる方、教えていただけませんか？

  • 多次元配列の工夫

    現在、あるプログラミングを作成しています。 そこで4次元配列を使用することが必要になってきました。 ---------------------------------------------- 4次元空間 for(a=・・・a++){ for(b=・・・b++){ for(c=・・・c++){ for(d=・・・d++){ if(ある条件が揃った場合) jouken[a][b][c][d]++; }}}} ---------------------------------------------- 以上のようなことをやりたいのですが、 a～cの値は3桁オーダーなので、メモリを食いすぎ、 処理が桁違いに遅くなり（ページング発生？）、 困っています。 これの解決方法としてはどのようなものがありますかね？たとえば、2次元配列を複数個使うなど。 よろしくお願いします。

  • 2次元配列の使い方

    Access 2013 vba メイン画面に、2つのサブフォーム（共に帳票）があり 親→子→孫 となっています。 この時、親、子、孫のレコードを取得して ある書類を作成しエクセルに出力しようとしています。 この場合、親のデータは普通に変数Aに入れて 子のデータは一次元配列B()に入れ 孫のデータは一次元配列C(0)～C(3)に入れたものを、更に子用の一次元配列B1()～B4()に入れるように作りにしようと考えています。 この場合、 子の画面で次の2レコード目に進んだ時、子画面用のB1...B4の配列変数に入れている孫のC(0)～C(3)の配列の中身は、子画面の一レコードと二レコード目では同じものになるのでしょうか。 もし、同じものになるのであれば、この方法は使えないと思っていますが。。。 他に何か良い方法はありますでしょうか。 Accessで、クラスを作って、それを配列変数に入れるとか・・・ よろしくお願いします。

  • 多次元配列のスマートな書き方

    $key文字列の:区切りで階層化した多次元配列に$valを代入するのですが 階層が深くなるにつれてcaseの記述も増えるため、ほとんど無限？に深くても 代入できるように（イ）の部分を変えたいのですが、スマートに記述する方法はありますか？ <?php $key = "A:B:C"; ////$key = "A:B:C:D:E:F:G"; // この場合はcase 7まで書かなければならない？ $val = "test"; $soe = split(":", $key); // -------------------------- イ switch (count($soe)) { case 1: $atr[$soe[0]] = $val; break; case 2: $atr[$soe[0]][$soe[1]] = $val; break; case 3: $atr[$soe[0]][$soe[1]][$soe[2]] = $val; break; default: print "ERR!"; exit; } // -------------------------- イ print_r($atr); exit; ?>

    • 締切済み
    • PHP
  • PHPで２次元配列を１次元配列にしたいのですが、わからないので教えてく

    PHPで２次元配列を１次元配列にしたいのですが、わからないので教えてください。 例えば２次元配列を以下のようにします。 $ss[0][0]=a $ss[0][1]=b $ss[0][2]=c $ss[1][0]=あ $ss[2][0]=い $ss[3][0]=う これを以下のような１次元配列にしたいです。、 $ss[0][0]→$g[0],$ss[0][1]→$g[1],$ss[0][2]=$g[2] $ss[1][0]→$h[0],$ss[2][0]→$h[1],$ss[3][0]=$h[2] よろしくお願いします。

    • ベストアンサー
    • PHP

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する