- ベストアンサー
COBOLのスペース
PROCUDURE DIVISIONやOPEN INPUTなどのスペースの数は決まっているものですか?決まっているのならその文字数を教えてください。
- みんなの回答 (2)
- 専門家の回答
関連する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文字固定だとつなげてできるのですが… よろしくおねがいします。
- 締切済み
- Visual Basic
- COBOL初心者です。
COBOL初心者です。 プログラミング自体初めて1か月です。 いかんせん本当に初心者なので どう質問したらイイのか分からないんですがヨロシクです。 実行したらなんか固まってしまう?んです。 記述がおかしいんでしょうけど、何がおかしいのか分からなくて… どう書けばイイのか分からないのでソースをそのまま貼り付けます。 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プログラムを作ってまして以下のプログラムで表示結果が「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 "3桁の数値を入力してください" 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に取り込みすることは 可能でしょうか? よろしくお願いします。
- ベストアンサー
- Visual Basic
- スペースを含む文字を分解するには
エクセル VBAにて 一つのセルに”ああ いいい う f ・・・”のように、スペースを含む文字があり、その文字の長さやスペースの数が不定の場合において、 別のセルの一つ一つに、”ああ”と”いいい”と”う”・・・を分けて入れたいのですがどうすればいいのでしょうか?
- ベストアンサー
- Visual Basic
- excelで文字数をスペースを除いてカウント
シート内に入力した文字数をカウントしたいのですが、 1つのセルに『木村 拓哉』のように姓名の間に半角スペースが 入っています。この半角スペースを無視して文字数をカウントするには どのような関数が適していますか? LEN関数を使うと、スペースも1文字としてカウントされてしまいます。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- MFC-9340の廃トナーボックスを交換してもエラーメッセージが消えない問題について相談します。
- Windows10で無線LAN接続されているMFC-9340で廃トナーボックス交換のエラーが解消しない状況についてお困りのようです。
- ひかり回線で使用しているMFC-9340の廃トナーボックス交換のエラーが解消されず、困っています。
お礼
回答ありがとうございます。参考にさせていただきます。