• 締切済み

富士通COBOLの画面定義について

何年か前にはＮＥＣでプログラムを組んでいたのですが、最近は富士通のCOBOLでプログラムを組んでいます。富士通のCOBOLで画面の定義がよく わかりません。例えば下記の記述で FD DSP-F. 01 GM-REC. 03 GRP001. 05 GM-SYORI-K-COM PIC X(03). 05 GM-SYORI-K PIC 9(01). 上記のGM-SYORI-K-COM PIC X(03)の3バイトは何を定義しているのですか？それとこの３バイトを使ってどんな事ができるのですか？ 富士通のマニュアルを見ても説明しているところがなくて困っています。 基本的な質問で申し訳ありませんが、よろしくお願いします

みんなの回答

  • Hardking
  • ベストアンサー率45% (73/160)
回答No.2

1, IF (GM-SYORI-K-COM(1:1) = "Z" ) 2, IF (GM-SYORI-K-COM(1:1) = "S" ) 3, MOVE " C " TO GM-SYORI-K-COM 上記コーディングの処理内容ですが 1,2,は入力項目の判定で 1,GM-SYORI-K-COMの先頭1桁入力値が"Z"ならばという制御文 2,GM-SYORI-K-COMの先頭1桁入力値が"S"ならばという制御文 3,GM-SYORI-K-COMへ" C "という３桁の文字を出力する転記文 です。

  • Hardking
  • ベストアンサー率45% (73/160)
回答No.1

画面定義ファイルを使用した富士通系ＣＯＢＯＬプログラム のコーディング例です。 表示ファイルのレコードレイアウトを定義しています。 ちなみGM-SYORI-K-COMは、英数字半角３桁の画面項目です。 項目詳細設定は、別途管理で画面定義ファイルに記します。 まず、開発手順の概要を下記します。 １．画面定義ファイルの作成 　　・画面項目の属性設定 位置、フォント、入出力、色・・・etc ２．ＣＯＢＯＬプログラムの作成 　　・画面定義ファイルと表示ファイルDSP-Fを関連付けする。 　　・OPEN命令で表示ファイルをオープンする。 　　・READ命令で画面入力項目値を取得する。 　　・WRITE命令で画面出力項目値へ設定する。 　　・CLOSE命令で表示ファイルをクローズする。 という感じで画面操作をプログラム的にファイル入出力で行います。

TAKEWIT
質問者

補足

早速の回答有難うございます。まだまだ未熟な者で、またお伺いしますが ある人の作ったプログラムの中で、下記の処理をしているのですが この1,2,3,は画面に対してどのような処理をしているのでしょうか 1, IF (GM-SYORI-K-COM(1:1) = "Z" ) 2, IF (GM-SYORI-K-COM(1:1) = "S" ) 3, MOVE " C " TO GM-SYORI-K-COM よろしくお願いします。

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

関連するQ&A

  • COBOLの文字列検索を教えて下さい。

    cobol初心者です。 「100バイトのレコードを複数件読み込み、決まった文字列を検索する」というPGMを作ろうとしています。 03 REC-1 PIC X(100) 03 REC-2 PIC X(05) という定義があるとき REC-1 = "abcdefghijklmnopqrstu…"　　　　　　　というデータに対して、 REC2 = "hijkl"　　　　　　　　　　　　　　　　　　　　の検索をしたい場合 どのようなコーディングで調べることができるのでしょうか？ 何レコード目の何バイトでヒットしたかを表示したいので、 INSPECT命令は使用せず、REC-1を１バイト単位で取り出して、 １文字ずつ判定しようと思っています。 レコードを越えてのヒットは行いません。 この場合配列を使うという考え方は正しいですか？ 読み込んだ100バイトのレコードを1バイト単位で取り出して比較するには、 REDEFINEを用いて再定義すると考えています。 その場合のREADでの読み込み方がよくわかりません。 コーディング例等を載せてもらえると助かります。 cobolをはじめたばかりで、基本的な知識が抜けているかもしれません・・・ よろしくお願い致します。

  • ＣＯＢＯＬでの可変長定義について

    ｕｎｉｘ環境下でＣＯＢＯＬ８５を使用しています。 あるデータを可変長でＷＲＩＴＥしていくのですが、 データにヘッダー情報みたいなものが付加されてしまい困っています。 ヘッダー情報を付加しないようにするにはどうすればいいのでしょうか？ 定義： 　FD Ａファイル RECORD IS VARYING 1 TO 100 DEPENDING ON A-CNT. 　01 A-DATA PIC X(100). とか 　FD Ａファイル RECORD IS VARYING IN SIZE DEPENDING ON A-CNT. 　01 A-DATA PIC X(100). というパターンで試しています。 Ａファイルにaaaという３バイトデータをＷＲＩＴＥすると、 COBOL85020315020304・・・・・aaaというデータが出力されます。 あるコボラーに聞くと「定義がおかしいからでしょう」と言ってたのですが、 どうおかしいかは本人もわからないようです。 どうすればヘッダー情報（COBOL85020315020304・・・・・）がつかず、 可変長でＷＲＩＴＥできるのでしょうか？教えて下さい。

  • COBOLとCの変数定義

    いつもお世話になってます。 今回は、COBOLとC言語の変数定義の事で質問させていただきます。 以下のCOBOLの変数定義をC言語で記述するとどのようになるでしょうか？ 01 wkarea. 05 wk-code. pic s9(03) comp. 05 wk-err-code. 10 filler. pic x(01) value '0'. 10 wk-err-code-9 pic 9(05) 412. 05 wk-err-mdl. 10 filler pic x(01) value '0'. 10 wk-err-mdl-9 pic 9(40) value space. 05 wk-e-code 10 filler pic x(01) value 'A'. 10 filler pic x(01) value 'B'. 10 wl-id pic x(02). 10 wk-no pic 9(03) value xero 10 wk-level pic x(01) value low-value. ちょっと手間かも分かりませんが、どなたか詳しい方いらっしゃいましたら、お答え頂けると有難いです。 よろしくお願いします。 .

  • COBOLで変数が何文字で宣言されたかを取得する方法

    COBOLで、例えば 01 IN-REC. 02 IN-BANGO PIC X(05). 02 IN-SHIMEI PIC X(15). …（100個続く）… 02 IN-CLASS PIC X(10). 02 IN-SEISEKI. 03 IN-SUGAKU PIC 9(03). 03 IN-EIGO PIC 9(03). …（続く）… 03 IN-KOKUGO PIC 9(03). となっていたとします。このとき、プログラム中で IN-RECが何文字で宣言されているかを上の宣言文の各変数の文字数を いちいち計算機か暗算で足し算していく以外に関数みたいな形で 知る方法はないでしょうか？ また、ないなら、それを計算するマクロを自力で作るにはどうしたら よいのでしょうか？

  • COBOLで検索する方法

    03 REC-DA PIC X(200) 03 CHR1 PIC X(30) という定義があるとき REC-DA = "あいうえおABC12345かきくけこさしすefg" というデータに対して CHR1 = "ABC" または "かきくけ"　などがあるかどうかなどの検索をしたい場合 どのような命令で調べるのでしょうか？ まずCHR1の長さ3または8?4?をはかりREC-DAもこの長さに区切り順に検索していく・・・ とかいわれましたが、そんな無駄な作業が必要なんですか？ いままでC++,JAVAとかやっていたので REC-DA.find(CHR1) = TRUE とかそんな具合にできると思ったのですが。 良い方法を教えてください。

  • COBOL数値転記の仕様

    このたび、まったくの未経験のＣＯＢＯＬをやることになりました。 で、数値データの表し方になんやかやとやたら方法があるようなのですが、それらを互いに「転記」したときに、どういう結果になるものか、皆目わからないんです（環境はＣＯＢＯＬ８５でＷｉｎｄｏｗｓ上での開発です）。 テクニックとしては基本だと思うのですが、それでいてどこにも説明されていな～い！フリーのＣＯＢＯＬツールは見つけてきましたが、使い方が？？？なもので…。 　たとえば、 　01 X1 PIC XX　（数値が入ってるとします） 　01 N1 PIC 99 　01 D1 PIC 99 COMP 　01 B1 PIC 1(16) BIT な場合、X1とN1は直接 　MOVE N1 TO X1 などとやってもデータは失われないと思うんですが、他の形式での操作は（桁あふれとか無視して）ちゃんと転記できるのでしょうか。 いま特に、D1からX1へというパターンが多いです。１バイトの２進データを、数値の文字列として使おう、というんです。いわば、１バイトを３バイトに展開してやるんです。何も考えずに書けば、 　01 D2 PIC 9(4) COMP VALUE 97 　01 X2 PIC X(3) 　MOVE D2 TO X2 でしょうけど、たぶん'a△△'になるだけのような気がします…。 　それとも、 　01 N2 PIC 9(4) 　MOVE D2 TO N2 　MOVE N2 TO X2 などとやっていけたりするのでしょうか。 いったいどうなるのでしょう、いろいろ書いちゃいましたけど、各々の転記の仕組みを教えてください。 また、ＣＯＢＯＬの（お堅い規格を書き写しただけでない）解説のサイトなどあれば、ご紹介いただけますでしょうか。

  • COBOL FILLER

    COBOLのFILLER項目の出力を質問させていただきます。 質問１ OUT1-FILE. 01 OUT-REC 　02 FILLER PIC X(10). このファイルを何もせず WRITE　で出力した場合は空ファイルが出力されますか？それとも"0000000000"が出力されますか？ 質問２ またこのファイルをINITHILIZEした後WRITEでファイル出力したら何が出力されますか？ 質問３ このファイルをMOVE ZERO TO OUT-REC　した後WRITEでファイル出力したら何が出力されますか？

  • オフコン（富士通Ｋシリーズ）ＣＯＢＯＬと汎用機ＣＯＢＯＬの違い

    　私、富士通オフコン（ＫやPRIMERGY6000）でのシステム開発を１０年以上やっています。当然ＣＯＢＯＬ言語での開発です。オフコン市場が縮小傾向（AS400は別のようですが）にあるなか、汎用機の開発やリプレースは盛んに行われていると認識しています。 　私の勘ではデータベースのREAD/WRITEのあたりや画面プログラムの表示のさせ方などが違うのでは、と思うのですが、実際に富士通オフコンのＣＯＢＯＬ－Ｇと汎用機（富士通でもＩＢＭでもなんでも構いません）ＣＯＢＯＬを経験された方に、その相違点をお聞きしたく存じます。 　宜しくお願いします。

  • COBOL初心者です。

    COBOL初心者です。 プログラミング自体初めて１か月です。 いかんせん本当に初心者なので どう質問したらイイのか分からないんですがヨロシクです。 実行したらなんか固まってしまう？んです。 記述がおかしいんでしょうけど、何がおかしいのか分からなくて… どう書けばイイのか分からないのでソースをそのまま貼り付けます。 IDENTIFICATION DIVISION. PROGRAM-ID. 000. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT IN-FILE ASSIGN TO "x.txt". DATA DIVISION. FILE SECTION. FD IN-FILE. 01 IN-REC. 03 X PIC X(10). WORKING STORAGE SECTION. 01 WORK. 03 WK-X PIC X(10). 01 END-FLAG PIC 9 VALUE 0. PROCEDURE DIVISION. MAIN-SEC SECTION. MAIN-010. OPEN INPUT IN-FILE. PERFORM UNTIL END-FLAG = 1 READ IN-FILE AT END MOVE 1 TO END-FLAG NOT AT END MOVE X TO WK-X DISPLAY WK-X END-PERFORM. CLOSE IN-FILE. STOP RUN. MAIN-SEC-END. EXIT. なんしか、"x.txt"を読み込みたいんです。 勉強中なのでとりあえず読み込みたいデータはちっちゃくしました。 うーんどう伝えたらイイんでしょう～ よろしくお願いします。

  • COBOLでのランダムアクセス

    すみませんCOBOL初心者です。 FILE-CONTROL. SELECT URIAGE-MOKUHYOU ASSIGN TO "c:\dat\mokuhyou.dat" ORGANIZATION IS INDEXED ACCESS MODE IS RANDOM RECORD KEY IS UM-SHITEN-CODE. DATA DIVISION. 　　FILE SECTION. 　　FD URIAGE-MOKUHYOU. 　　01 UM-REC. 　　　05 UM-SHITEN. 　　　　10 UM-SHITEN-CODE PIC X(4). 　　　　10 UM-SHITEN-MEI PIC X(20). 　　　05 UM-KINGAKU PIC 9(10) OCCURS 12. WORKING-STORAGE SECTION. 　　01 TSUKI PIC 9(2). 　　01 WK-SHITEN-CODE PIC X(4). PROCEDURE DIVISION. 　　DISPLAY "支店コードを入力してください --> : " 　　ACCEPT WK-SHITEN-CODE 　　OPEN INPUT URIAGE-MOKUHYOU 　　READ URIAGE-MOKUHYOU 　　　INVALID KEY 　　　　DISPLAY "ERROR; 支店コード = " WK-SHITEN-CODE 　　　NOT INVALID KEY 　　　　DISPLAY WK-SHITEN-CODE " の売上げ目標は " UM-REC 　　END-READ. 　　STOP RUN. というプログラムを作成し、"mokuhyou.dat"という入力ファイルに正しくデータが格納されているのですが、コンパイルは問題なく、実行すると、 JMP0310I-U OPEN ERROR FILE=mokuhyou.dat. 'ACC-METHOD'. PGM=TEST046 ADR=00401258 とまず画面にでて、OKを押すと、 JMP0099I-U FORCED TERMINATION CODE=0310 というエラーになります。 おそらくファイルが正常に読み込めないものと推測されますが、解決法を教えてください。お願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する