ベストアンサー COBOLのスペース 2002/06/10 12:44 PROCUDURE DIVISIONやOPEN INPUTなどのスペースの数は決まっているものですか？決まっているのならその文字数を教えてください。 みんなの回答 （2） 専門家の回答 質問者が選んだベストアンサー ベストアンサー rvr3958 ベストアンサー率33% (145/428) 2002/06/10 12:53 回答No.1 １カラム以上の空白があれば問題無いです。 但し、会社によってコーディング規約等定めている所も多々有り、そのような所では全ての命令やSECTIONの書き出し位置や間の取り方まで定めている時もあります。 質問者 お礼 2002/06/13 01:27 回答ありがとうございます。参考にさせていただきます。 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 その他の回答 (1) KIMV ベストアンサー率15% (82/544) 2002/06/10 13:04 回答No.2 ＞スペースの数は決まっているものですか？ 特になし。 書き出しが Ａ領域（８～１２カラム目）， Ｂ領域（１２～７１カラム目）が合ってればＯＫ 質問者 お礼 2002/06/13 01:28 ありがとうござしました。解決しました。 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 カテゴリ [技術者向] コンピュータープログラミング・開発その他（プログラミング・開発） 関連するQ&A COBOLのプログラム IDENTIFICATION DIVISION. PROGRAM-ID. KADAI1. AUTHOR. KYU99 ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. WIN-PC. OBJECT-COMPUTER. MSR-3. INPUT-OUTPUT SECTION. FILE-CONTROL. ====SELECT IN-F ASSIGN TO "DEMO.TXT". ====SELECT OU-F ASSIGN TO "MEISAI.TXT". DATA DIVISION. FILE SECTION. FD ( 1 ) BLOCK 10 RECORDS ====LABEL RECORD STANDARD ====DATA RECORD IN-R. 01==IN-R PICTURE X(122). FD==OU-F LABEL RECORD OMITTED ====DATA RECORD OU-R. 01 ( 2 ) PICTURE X(122). WORKING-STORAGE SECTION. 01 KAIGA PICTURE X(122). PROCEDURE DIVISION. ====OPEN INPUT IN-F OUTPUT ( 3 ). ( 4 ). READ IN-F AT END GO TO ( 5 ). ====MOVE SPACE TO OU-R. ====MOVE IN-R TO KAIGA. ====WRITE ( 6 ) FROM KAIGA AFTER O. ====GO TO ( 7 ). OWARI. CLOSE ( 8 ) OU-F. ====STOP RUN. これは、学校の課題です。さっぱりわからないのでここで質問しました。 括弧にはいるものを教えてください。ヒントだけでもいいのでよろしくお願いします。=は無視してください。 スペースである長さにするには？ ある列名の文字数が10文字(MAX10文字)のとき後ろにスペースをつけて15文字にしたいのですがどうすればいいのでしょうか？ 例えば ABCDEFGHIJ ABCDE というデータを ABCDEFGHIJ_____ ABCDE__________ (ただし_はスペースを表す) として表示させたいのです。 ある列の文字数が10文字固定だとつなげてできるのですが… よろしくおねがいします。 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"を読み込みたいんです。 勉強中なのでとりあえず読み込みたいデータはちっちゃくしました。 うーんどう伝えたらイイんでしょう～ よろしくお願いします。 ネットワークエンジニアとは？技術職の未来を考える OKWAVE コラム COBOLのプログラムで・・。 現在COBOLプログラムを作ってまして以下のプログラムで表示結果が「EQUAL」となるようにしたいのですがどうやったらいいでしょうか？回答のほうよろしくお願いします、以下がプログラムです。 IDENTIFICATION DIVISION. PROGRAM-ID. TEST9. DATA DIVISION. * WORKING-STORAGE SECTION. * 01 GR01. 02 DATA1 PIC N(2). * 01 DATA2 PIC N(2). 02 SPACE TO DATA2 * PROCEDURE DIVISION. * MOVE SPACE TO GR01. * MOVE SPACE TO DATA2. IF DATA1 = DATA2 THEN DISPLAY "EQUAL" ELSE DISPLAY "NOT EQUAL" END-IF. * * STOP RUN. * END PROGRAM TEST9. COBOL COBOLで INIT-SEC. OPEN INPUT IN-FILE. OUTPUT OUT-FILE. DISPLAY " 学番 名前 国 数 英 合計". MOVE ZERO TO CTR-IN CTR-OUT. PERFORM READ-SEC. の部分に「開始メッセージを表示する」を追加したいのですがプログラムソースを教えてください。 COBOL 以下のソースに「指定外の数値です。」になったらプログラムを終了するにしたいのです。ソースを教えてください。 IDENTIFICATION DIVISION. PROGRAM-ID. TEST-001. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 W-NUM PIC 9(3). 88 NUM-RANGE VALUE 128 129 130 . PROCEDURE DIVISION. MAIN. DISPLAY "開始(START)". DISPLAY "３桁の数値を入力してください" ACCEPT W-NUM. IF NUM-RANGE THEN DISPLAY "指定の数値です。" ELSE DISPLAY "指定外の数値です。" END-IF. STOP RUN. 半角スペースを有効にしたい Dim aa As String InpF1 = "c:\bb.csv" Open InpF1 For Input As #1 Do Until EOF(1) Input #1, aa Loop close #1 上記の構文で入力データの値が "XYZ " ・・・後ろが半角スペース の時、読み込みされたデータが "XYZ"だけになります。 これを"XYZ "の形でaaに取り込みすることは 可能でしょうか？ よろしくお願いします。 スペースを含む文字を分解するには エクセル ＶＢＡにて 一つのセルに”ああ いいい う ｆ ・・・”のように、スペースを含む文字があり、その文字の長さやスペースの数が不定の場合において、 別のセルの一つ一つに、”ああ”と”いいい”と”う”・・・を分けて入れたいのですがどうすればいいのでしょうか？ スペースを除いた文字数 エクセルで、セル内のスペースを除いた文字数を返す関数を教えて下さい。 excelで文字数をスペースを除いてカウント シート内に入力した文字数をカウントしたいのですが、 １つのセルに『木村 拓哉』のように姓名の間に半角スペースが 入っています。この半角スペースを無視して文字数をカウントするには どのような関数が適していますか？ LEN関数を使うと、スペースも１文字としてカウントされてしまいます。 宜しくお願い致します。 スペースの空け方 ＨＰを作る時に文字と文字の間にスペースを入れるやり方が分かりません ＨＰはFFFTPで作っているのでスペースを入れるタグを教えて下さい 全角スペースのチェックについて こんにちは。 全角スペースについてのご質問です。 ある入力項目に対して必須チェックを行っております。 下記のコードはServlet内で以下のチェックを行っております。 ---------------------------------------------------------------- String name = req.getParameter("name"); bean.setName(name); if(bean.name().trim().length() == 0 || bean.name() == null){ return NO_INPUT_ERR; } ---------------------------------------------------------------- このチェックでは半角スペース『 』であればエラーとして判断してくれますが、 全角スペース『 』ではエラーとして判断してくれません。 （全角スペースはtrim()を実行しても省いてくれないため） 全角スペース『 』の判断をする場合は、 新規にクラスを作成して文字数分繰り返しチェックを入れるような処理を 自分で作成しないとチェックは出来ないのでしょうか？ ご存知の方がおりましたら、ご教授の程お願い致します。 AIは使う人の年齢や市場にも影響する？人工知能の可能性 OKWAVE コラム 行頭に変なスペースが… 入力したデータをログファイルの一番上に入れたいために以下のようにしました。 open(FH2,"***.log"); flock(FH2,2); @files = <FH2>; flock(FH2,8); close FH2; open(FH,">***.log"); @filew = "user=$FORM{'name'}<>TIME=$FORM{'TIME'}\n@files"; print FH @filew; close(FH); こうするとなぜかログファイルの2行目以降の頭にスペースが1文字分入ります。 2個目のログファイルオープンの3行目 print FH @filew; のスペースが原因かと思い、 print FH@filew; としてみましたが、やっぱりスペースが入りました。 このスペースを入らないようにするにはどうしたらいいでしょうか？ スペースが空きすぎて困っています。 サークルのHPを今作っています。 メンバー紹介するために表形式にして名前だけの表をつくりました。そして、その表の上に「member」と表題を書いたのですが、表と「member」の間のスペースがどうしても空きすぎてしまいます。行を重ねるごとに、どんどんひらいていきます。 タグもここにのせたかったのですが、文字数がオーバーしてのせることができませんでした。これだけで解りにくいかも知れませんが、よろしくお願い致します。 【文字数調整】 指定文字数までスペースを付与させる方法について お世話になっています。 【文字数調整】 指定文字数までスペースを付与させる方法はないものでしょうか？ （ソフトはWord、Excel、サクラエディタを使用しています。） 文字数：50 として指定されている文字枠があったとして ５文字入力文字があれば、残りの４５文字をスペースを入れたいのですがなにか良い方法はありませんでしょうか。 「あああああ」 ↓ 「あああああ 」 という風な感じでスペースを追加（文字数調整）したいのです。 「入力文字が指定文字数に足りない場合、スペースを挿入する方法はありませんでしょうか。 PerlのCGIで全角スペースを入れて PerlのCGIで全角スペースを入れて print <<HTML; <p>完了 ボタン 次へ<br> <input type="submit" value=" 完了 > "></p> HTML 隙間をあけて見やすくするのに全角スペースを入れていますが ブラウザで表示したときに（charset=Shift_JIS"） どんな時に文字化けするのか忘れたのですが どんな時に文字化けするのでしょうか？ COBOLで「WORKING-STORAGE SECTION.」と「L COBOLで「WORKING-STORAGE SECTION.」と「LINKAGE SECTION.」を 使用して、呼び出そうとしていますが以下のエラーが発生してしまいます。 「line12,column 6:""SAMPLE-02""文法が間違っています。」 です。 どのように文法が間違っているのでしょうか？ 以上、よろしくお願いします。 「SAMPLE_01.COB」 ---------------------------------------------- *文字列の表示 IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE-01. * ENVIRONMENT DIVISION. * DATA DIVISION. WORKING-STORAGE SECTION. 01 HELLO PIC X(12) VALUE "Hello World!". * PROCEDURE DIVISION. CALL "SAMPLE-02" USING HELLO. STOP RUN. 「SAMPLE_02.COB」 ---------------------------------------------- *項目に値を入れる IDENTIFICATION DIVISION. PROGRAM-ID. SAMPLE-02. * ENVIRONMENT DIVISION. * DATA DIVISION. LINKAGE SECTION. 01 HELLO PIC X(12). * PROCEDURE DIVISION USING HELLO. DISPLAY HELLO. STOP RUN. ワードで1/4スペース Word2000を使っています。 検索と置換の特殊文字の中に「1/4スペース」とありますが、文字入力中に簡単に1/4スペースは表示できるのでしょうか？ 例えば、全角スペースならスペースキー、 半角スペースならシフト＋スペースキーのように。 よろしくお願いします。 C言語 strcmp 半角スペースがあるとだめ？ C言語 strcmp 半角スペースが文字列に含まれている場合 文字列の比較がうまくいきません。半角スペースがあると比較できないのでしょうか？ プログラム //strcmp #include <stdio.h> #include <string.h> int main(void){ char input[256]; char str[] = "HelloWorld!"; //char str[] = "Hello World!";だとうまくいかない。 printf("%s\n>", str); scanf("%s", input); if ( strcmp(input, str) == 0){ printf("同じです。\n"); }else{ printf("違います。\n"); } return 0; } COBOLプログラム２ このプログラムは売り上げファイルを読み、最初に見出し印刷し、１レコード１行で印刷し、最後に数量、金額の合計を印刷するプログラムです。 どこが間違ってるでしょうか。教えてください。 PROCEDURE＿＿DIVISION. HAJIME. ＿＿＿OPEN INPUT IN-F OUTPUT OU-F . ＿＿＿MOVE SHOHIN-CODE TO SHOHIN. ＿＿＿MOVE SURYOU TO SURYOU. ＿＿＿MOVE DENPYO-NO TO DENPYO-NO. ＿＿＿MOVE KINGAKU-W TO KINGAKU. ＿＿＿WRITE OU-R FROM MIDASHI. NX.＿_READ IN-F AT END GO TO OWARI. ＿＿＿MOVE SPACE TO OU-R. ＿＿＿MOVE CORRESPONDING IN-R TO MEISAI. ＿＿＿COMPUTER KINGAKU-L=SURYOU OF IN-R*TANKA OF IN-R. ＿＿＿MOVE KINGAKU-L TO KINGAKU. ＿＿＿WRITE OU-R FROM MEISAI. ＿＿＿COMPUTER SURYOU-W=SURYOU-W+SURYOU. ＿＿＿COMPUTER KINGAKU-W=KINGAKU-W+KINGAKU. ＿＿＿GO TO NX. OWARI. ＿＿＿MOVE SURYOU-W TO G-SURYOU. ＿＿＿MOVE KINGAKU-W TO G-KINGAKU. ＿＿＿WRITE OU-R FROM GOKEI. ＿＿＿CLOSE IN-F OU-F. ＿＿＿STOP RUN. 注目のQ&A 「You」や「I」が入った曲といえば？ Part2 結婚について考えていない大学生の彼氏について 関東の方に聞きたいです 大阪万博について 駅の清涼飲料水自販機 不倫の慰謝料の請求について 新型コロナウイルスがもたらした功績について教えて 旧姓を使う理由。 回復メディアの保存方法 好きな人を諦める方法 小諸市（長野県）在住でスキーやスノボをする方の用具 カテゴリ [技術者向] コンピューター プログラミング・開発 Microsoft ASPC・C++・C#CGIJavaJavaScriptPerlPHPVisual BasicHTMLXMLCSSFlashAJAXRubySwiftPythonパフォーマンス・チューニングオープンソース開発SEOスマートフォンアプリ開発その他（プログラミング・開発） カテゴリ一覧を見る OKWAVE コラム 突然のトラブル？プリンター・メール・LINE編 携帯料金を賢く見直す！格安SIMと端末選びのポイントは？ 友達って必要？友情って何だろう 大震災時の現実とは？私たちができる備え 「結婚相談所は恥ずかしい」は時代遅れ！負け組の誤解と出会いの掴み方 あなたにピッタリな商品が見つかる！ OKWAVE セレクト コスメ化粧品 化粧水・クレンジングなど 健康食品・サプリ コンブチャなど バス用品 入浴剤・アミノ酸シャンプーなど スマホアプリ マッチングアプリなど ヘアケア 白髪染めヘアカラーなど インターネット回線 プロバイダ、光回線など
お礼
回答ありがとうございます。参考にさせていただきます。