COBOLプログラムでCSV出力時に空白になる問題の解決方法は？| OKWAVE

何度もすみません（COBOLプログラミング）

何度もすみません。下記のようにプログラムを変更して実行しました。 IDENTIFICATION DIVISION. PROGRAM-ID. REI-01. ENVIRONMENT DIVISION. CONFIGURATION SECTION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT INFILE ASSIGN TO "C:\COBOL\kamokuUT.txt" ORGANIZATION LINE SEQUENTIAL. SELECT OUTFILE ASSIGN TO "C:\COBOL\UT3.csv" ORGANIZATION LINE SEQUENTIAL. DATA DIVISION. FILE SECTION. FD INFILE. 01 INREC. 02 I-NUMBER PIC 9(2). 02 I-NAME PIC X(20). 02 I-KAMOKU-SYURUI PIC 9(3). 02 I-KAMOKU-TEN PIC X(3). FD OUTFILE. 01 OUTREC. 02 O-NUMBER PIC 9(2). 02 O-COMMA PIC X(1) VALUE ",". 02 O-NAME PIC X(20). 02 O-COMMA PIC X(1) VALUE ",". 02 O-KAMOKU-SYURUI PIC 9(3). 02 O-COMMA PIC X(1) VALUE ",". 02 O-KAMOKU-TEN PIC X(3). WORKING-STORAGE SECTION. 77 W-FLAG PIC X(1). 01 W-MIDASHI. 02 W-ID PIC X(8) VALUE "社員番号". 02 W-COMMA PIC X(1) VALUE ",". 02 W-NAME PIC X(4) VALUE "名前". 02 W-COMMA PIC X(1) VALUE ",". 02 W-KAMOKU PIC X(4) VALUE "科目". 02 W-COMMA PIC X(1) VALUE ",". 02 W-TEN PIC X(4) VALUE "点数". PROCEDURE DIVISION. PERFORM MAE-SHORI THRU MAE-SHORI-EXIT PERFORM SHU-SHORI THRU SHU-SHORI-EXIT UNTIL W-FLAG = "1" PERFORM ATO-SHORI THRU ATO-SHORI-EXIT STOP RUN. MAE-SHORI. OPEN INPUT INFILE OUTPUT OUTFILE MOVE "0" TO W-FLAG READ INFILE AT END MOVE "1" TO W-FLAG END-READ. MAE-SHORI-EXIT. EXIT. SHU-SHORI. WRITE OUTREC FROM W-MIDASHI. IF I-KAMOKU-TEN >= 70 THEN MOVE I-NUMBER TO O-NUMBER MOVE I-NAME TO O-NAME MOVE I-KAMOKU-SYURUI TO O-KAMOKU-SYURUI MOVE I-KAMOKU-TEN TO O-KAMOKU-TEN WRITE OUTREC FROM INREC ELSE CONTINUE END-IF. READ INFILE AT END MOVE "1" TO W-FLAG END-READ. SHU-SHORI-EXIT. EXIT. ATO-SHORI. CLOSE INFILE OUTFILE. ATO-SHORI-EXIT. EXIT. そして、CSVファイルを開くと、＿＿＿＿＿＿＿＿＿＿＿＿社員番号名前科目点数社員番号名前科目点数社員番号名前科目点数＿＿＿＿＿＿＿＿＿＿＿＿としか表示されませんでした。入力ファイルは前回のものと同様です・・・参考書を基に色々調べてみたのですが、解決できませんでした。。回答いただけると幸いです。宜しくお願い致します。

COBOL　1：１のマッチングについて

こんばんは。プログラム作成が行き詰ってしまったので、アドバイス頂けると幸いです。要件：マスタから名前を検索する出力番号、名前、合計点の３つ【マスタファイル】生徒番号　　名前（数字３桁）　（全角６文字）　　・　　　　　　　・　　・　　　　　　　・　　・　　　　　　　・【トランザクションファイル】生徒番号　　　合計点（数字３桁）　　（数字３桁）　　・　　　　　　　・　　　・　　　　　　　・【出力ファイル】生徒番号　氏名　合計点 001 ○○　　□□ DATA DIVISION. FILE SECTION. FD INFILEM. 01 INRECM. 05 IM-ID PIC X(03). 05 IM-NAME PIC X(12). FD INFILET. 01 INRECT. 05 IT-ID PIC X(03). 05 IT-GOUKEI PIC 9(03). FD OUTFILE. 01 OUTREC. 05 O-ID PIC X(03). 05 O-NAME PIC X(12). 05 O-GOUKEI PIC ZZ9. WORKING-STORAGE SECTION. 01 WM-ID PIC X(03). 01 WT-ID PIC X(03). 01 W-GOUKEI PIC 9(03). PROCEDURE DIVISION. PERFORM MAE-SHORI THRU MAE-SHORI-EXIT PERFORM SHU-SHORI THRU SHU-SHORI-EXIT UNTIL WM-ID = HIGH-VALUE AND WT-ID = HIGH-VALUE PERFORM ATO-SHORI THRU ATO-SHORI-EXIT STOP RUN. MAE-SHORI. OPEN INPUT INFILEM INFILET OUTPUT OUTFILE MOVE SPACE TO WM-ID MOVE SPACE TO WT-ID READ INFILEM AT END MOVE HIGH-VALUE TO WM-ID END-READ IF WM-ID NOT = HIGH-VALUE THEN MOVE IM-ID TO WM-ID END-IF READ INFILET AT END MOVE HIGH-VALUE TO WT-ID END-READ IF WT-ID NOT = HIGH-VALUE THEN MOVE IT-ID TO WT-ID END-IF. MAE-SHORI-EXIT. EXIT. SHU-SHORI. IF WM-ID = WT-ID THEN PERFORM KOUSHIN THRU KOUSHIN-EXIT ELSE IF WM-ID < WT-ID THEN PERFORM SHUTURYOKU THRU SHUTURYOKU-EXIT ELSE PERFORM ERRORS THRU ERRORS-EXIT END-IF END-IF. SHU-SHORI-EXIT. EXIT. KOUSHIN. MOVE IT-GOUKEI TO W-GOUKEI MOVE IM-ID TO O-ID MOVE IM-NAME TO O-NAME MOVE W-GOUKEI TO O-GOUKEI WRITE OUTREC READ INFILEM AT END MOVE HIGH-VALUE TO WM-ID END-READ IF WM-ID NOT = HIGH-VALUE THEN MOVE IM-ID TO WM-ID END-IF READ INFILET AT END MOVE HIGH-VALUE TO WT-ID END-READ IF WT-ID NOT = HIGH-VALUE THEN MOVE IT-ID TO WT-ID END-IF. KOUSHIN-EXIT. EXIT. SHUTURYOKU. MOVE IM-ID TO O-ID MOVE IM-NAME TO O-NAME MOVE W-GOUKEI TO O-GOUKEI WRITE OUTREC READ INFILEM AT END MOVE HIGH-VALUE TO WM-ID END-READ IF WM-ID NOT = HIGH-VALUE THEN MOVE IM-ID TO WM-ID END-IF. SHUTURYOKU-EXIT. EXIT. ERRORS. DISPLAY "** ERROR ** IM-ID=" IM-ID " IT-ID=" IT-ID READ INFILET AT END MOVE HIGH-VALUE TO WT-ID END-READ IF WT-ID NOT = HIGH-VALUE THEN MOVE IT-ID TO WT-ID END-IF. ERRORS-EXIT. EXIT. ATO-SHORI. CLOSE INFILEM INFILET OUTFILE. ATO-SHORI-EXIT. EXIT. 上記のソースで実行すると番号　名前　２桁の謎の数字が１レコードとしてでてきてしまいます。詳しい方、ご教示くださいませ。

COBOL

COBOLから.NETへ移す作業をしております。以下の点で詰まりました。１、pic X(03) COLUMN 7. このうち、COLＵＭＮは何をしているのでしょうか？調べてもわかりませんでした。２、 MOVE ZEROとイニシャライズの違いについて MOVE R-TBL TO ZEROとINITIALIZE R-TBL 実際に何が違うのでしょうか？ R-TBL内にname pic X(08)という変数と number pic 9(2)という変数があったとすると ZEROの方は　name⇒"00000000" で　number⇒0 INITHLIZEの方は　name⇒""　　で　number ⇒　0 でしょうか？３、HIGH-VALUEについて HIGH-VALUEが取りうる最大値を表すことはわかりました。 VBでもC#でもchar.MAXVALUEみたいに取れます。 name pic X(10)にHIGH-VALUEを入れるとすると.NETで実現しようとすると string name = char.MAXVALUEとなります。これを 01 R-TBL. 02 box PIC 9(5). 02 id PIC 9(5). に代入したいのですがうまく出来ません。どうすればよいのでしょうか？

COBOL OCCURSで指定したデータの参照の仕方

IBM COBOL でプログラムを作成しています。初歩的な質問で恥ずかしいのですが、どなたか教えていただけますか。まず、以下のようなTABLEを定義しました。 01 A-TABLE. 03 B OCCURS 100. 05 C PIC X(08) VALUE SPACE. 05 D PIC X(02) VALUE SPACE. 05 E PIC X(08) VALUE SPACE. 05 F PIC X(05) VALUE SPACE. 05 G PIC X(05) VALUE SPACE. 05 H PIC X(05) VALUE SPACE. その後に、INPUTファイルからREADしたデータのうち、必要な部分だけを該当のTABLEに添え字を使用して代入していく処理を作成したいと思っています。その場合に、上記の「C」～「H」に代入するにはどうすればよいでしょうか？また後続の処理で直接その値を参照したいのですが、どうすれば良いでしょうか？私の考えられる範囲で以下のようにプログラムしましたが、実行時に「OUTSIDE THE REGION OF THE TABLE.」というようなエラーが出力されてしまいました。 MOVE I TO C(IDX1) MOVE J TO D(IDX1) MOVE K TO E(IDX1) MOVE L TO F(IDX1) MOVE M TO G(IDX1) MOVE N TO H(IDX1) どなたかよろしくお願いします。

ＣＯＢＯＬのプログラムがビルドできません；；

今年の４月からシステム関係の会社に就職する者です。就職にあたって会社からの課題としてCOBOLのプログラムを転記して実行するというものが出たのですが、どうしてもビルドエラーになってしまい困っています。 IDENTIFICATION DIVISION. PROGRAM-ID. 　KADAI005 ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. / DATA DIVISION. FILE SECTION. / WORKING-STORAGE SECTION. 01 Ｗ－九九ＴＢＬ. 03 Ｗ－行　OCCURS 9. 05 Ｗ－列　OCCURS 9. 07 Ｗ－積　PIC 9(02). 01 Ｗ－指標１　PIC 9(02). 01 Ｗ－指標２　PIC 9(02). 01 Ｗ－合計　PIC 9(04). / PROCEDURE DIVISION. メインコントロール　　　　　　　 SECTION. メインコントロールＳ. メインコントロール　　PERFORM 初期処理. PERFORM 主処理. PERFORM 終了処理. メインコントロールＥ. EXIT. 初期処理　　　　　　　　　　　　 SECTION. 初期処理Ｓ. ワークエリアの初期化 MOVE ZERO TO Ｗ－九九ＴＢＬＷ－合計. 初期処理Ｅ. EXIT. 主処理　　　　　　　　　　　　　 SECTION. 主処理Ｓ. PERFORM VARYING Ｗ－行 FROM 1 BY 1 UNTIL Ｗ－行 > 9 PERFORM VARYING Ｗ－列 FROM 1 BY 1 UNTIL Ｗ－列 > 9 COMPUTE Ｗ－積(Ｗ－行,Ｗ－列) = Ｗ－行 * Ｗ－列　　　　 COMPUTE Ｗ－合計 = Ｗ－合計 + Ｗ－行 * Ｗ－列　　　END-PERFORM END-PERFORM. DISPLAY "合計　＝" Ｗ－合計. DISPLAY "５×４＝" Ｗ－積(5,4). DISPLAY "２×７＝" Ｗ－積(2,7). 主処理Ｅ. EXIT. 終了処理　　　　　　　　　　　　　SECTION. 終了処理Ｓ. プログラム終了 STOP RUN. 終了処理Ｅ. EXIT. 提出期限が明日に迫っていて焦っています；回答よろしくお願いします。

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初心者です。

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

COBOLの転記結果の問題

01 AAA PIC 99V99 VALUE 1234 01 BBB PIC 9V9 　　　　　：　　　　　： MOVE AAA TO BBB ----------------------------- とすると、BBBの転記結果はなんですか？ 23 でいいのでしょうか？

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. これは、学校の課題です。さっぱりわからないのでここで質問しました。括弧にはいるものを教えてください。ヒントだけでもいいのでよろしくお願いします。=は無視してください。

cobolのコントロールブレイク

趣味の一環としてcobolのファイル入出力プログラムを勉強しているのですが、リング構造を利用したコントロールブレイク機能の実装で躓いてしまいました。知恵をお貸しいただければ幸いです。ソースコードここから IDENTIFICATION DIVISION. PROGRAM-ID. BREAKDV1. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT INF ASSIGN TO "C:\cobol\sample.cbl" STATUS FST. SELECT OUF ASSIGN TO "C:\cobol\data.txt". DATA DIVISION. FILE SECTION. FD INF. 01 F1R PIC X(72). WORKING-STORAGE SECTION. 01 INKEY PIC 9(01). 01 SAVKEY PIC 9(01). 01 FST PIC X(02). PROCEDURE DIVISION. ACCEPT INF OPEN INPUT INF OUTPUT OUF PERFORM 読込処理 THRU 読込出口 PERFORM UNTIL INKEY = HIGH-VALUE MOVE SAVKEY TO INKEY PERFORM UNTIL INKEY NOT = SAVKEY PERFORM 同一処理 THRU 同一出口 PERFORM 読込処理 THRU 読込出口 END-PERFORM PERFORM 合計処理 THRU 合計出口 END-PERFORM PERFORM 総計処理 THRU 総計出口 CLOSE INF OUF STOP RUN. 同一処理. DISPLAY "SAME" WRITE F1R DISPLAY F1R 同一出口. EXIT. 合計処理. DISPLAY "TOTAL" 合計出口. EXIT. 総計処理. DISPLAY "END" 総計出口. EXIT. 読込処理. PERFORM UNTIL FST NOT "00" READ INF END MOVE HIGH-VALUE TO INKEY NOT END CONTINUE END-READ END-PERFORM 読込出口. EXIT. ソースコードここまで（処理内容は仮のものです）参考文献ではこのような組み方でよいはずなのですが、コンパイルした際に BREAKDV1.cbl:19: Error: syntax error, unexpected "end of file" とエラーが発生してしまいました。このエラーを解消する方法をお教え下さい。開発環境： Windows7SP1+MinGW32、サクラエディタ

COBOLのCALL文がいまいちつかめません。

いつもお世話になっています。 WINDOWSでCOBOL85を使いながら、COBOLの勉強をしています。 JAVAを基本情報試験のために勉強したくらいの初心者です。シーケンシャルファイルでマッチング処理を行う、小さなプログラムを課題としている途中、 CALL文を使ってサブプログラムを作ってみてくださいと言われました。そこで質問なのですが、メインプログラムの集団項目をUSING指定で引数として、サブプログラムで受け取り、処理をするまではいいのですが、戻り値をどのようにして受け取ればいいのかがイメージがつかめません。・戻り値を受け取るための命令・戻り値は１つだと思うのですが、どの変数？に返ってくるのか（集団項目ごと返ってくる？）など、何かあればご助言をいただけないでしょうか？ソースは次の通りです。よろしくお願いいたします。 ■メイン IDENTIFICATION DIVISION. PROGRAM-ID. MACHING_TEST. （省略） WORKING-STORAGE SECTION. 　　01 JUDGE_F. 　　　03 KEY_F 　　　　PIC 9(01). 　　　03 CHANGE_F 　　　　PIC X(06). 　　　03 EXCEP_M 　　　　PIC 9(01). （省略） CALL "JUDGE_FEMALE" USING JUDGE_F ON EXCEPTION 　　DISPLAY N"エラーです。プログラムを終了します" 　　STOP RUN 　　NOT ON EXCEPTION 　　　IF EXCEP_M = 9 THEN MOVE "ERRER!" TO　FEMALE_OUT ELSE 　IF EXCEP_M = 1 THEN MOVE　CHANGE_F　TO 　FEMALE_OUT 　END-IF 　　　END-IF 　　　END-CALL. （以下略） ■サブ IDENTIFICATION DIVISION. PROGRAM-ID. JUDGE_FEMALE. DATA DIVISION. LINKAGE SECTION. 01 JUDGE_F. 　03 KEY_F PIC 9(01). 　03 CHANGE_F PIC X(06). 　03 EXCEP_M PIC 9(01). PROCEDURE DIVISION USING JUDGE_F. IF KEY_F = 1 　THEN 　　MOVE "オトコ" TO CHANGE_F 　　MOVE 1 TO EXCEP_M 　ELSE 　　IF KEY_F = 2 THEN 　MOVE "オンナ" TO CHANGE_F 　MOVE 1 TO EXCEP_M ELSE 　MOVE 9 TO EXCEP_M END-IF END-IF. PROGRAM-END. 　STOP RUN.

COBOL API 初期フォルダを指定する方法

COBOL で Windows APIでフォルダの選択を表示しましたが、初期フォルダを指定する方法がわかりません。どなたか教えて下さい。 COBOLは富士通 NetCOBOLです。コールバック関数をどうやって記述したらよいのかわかりません。 MOVE LOW-VALUE TO browseinfo. MOVE ハンドル TO hwndOwner. MOVE 17 TO pidlRoot MOVE LOW-VALUE TO lpszTitle-VALUE. STRING "フォルダを選択してください。" DELIMITED BY INTO Title-VALUE. MOVE FUNCTION ADDR(lpszTitle-VALUE) TO lpszTitle. COMPUTE ulFlags = H"01" + H"02" + H"04" + H"4000" MOVE LOW-VALUE TO lParam-VALUE. STRING "D:\CSVLOAD" DELIMITED BY SIZE INTO lParam-VALUE WITH POINTER X. MOVE FUNCTION ADDR(lParam-VALUE) TO lParam. DISPLAY "ulFlags = " ulFlags. CALL "SHBrowseForFolderA" WITH STDCALL LINKAGE USING BY REFERENCE browseinfo RETURNING pID . DISPLAY "SHBrowseForFolderAのReturnValue = " pID IF pID NOT = 0 CALL "SHGetPathFromIDList" WITH STDCALL LINKAGE USING BY VALUE pID BY REFERENCE pszPath RETURNING ReturnValue DISPLAY "SHGetPathFromIDListA = " ReturnValue DISPLAY " pszPath = " pszPath DISPLAY "pszDisplayName-VALUE = " pszDisplayName-VALUE END-IF.

COBOL FILLER

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

なぜ空白が？

Ajaxを用いてphpファイルにアクセスするプログラムを書きました・・・略・・・ new Ajax.Request("MyPhotoSet.php?room="+MyPhotoObj.room+"&user="+MyPhotoObj.curUser+"&role="+MyPhotoObj.role+"&pic=1&mess=", { method:"get", onSuccess:MyPhotoObj.Entered,onFailure: EnteredError}); } ・・・略・・・ MyPhotoSet.phpのファイルにリクエストしてから「？」以降の文字を引数として渡しています。 [使用したPHPファイル] <?php $RoomName=$_GET["room"]; $UserName=$_GET["user"]; $role=$_GET["role"]; $pic=$_GET["pic"]; $mess=$_GET["mess"]; print"".$UserName."/".$role."/".$pic."/".$mess.""; ?> 上記のphpファイルにアクセスした後MyPhotoObj.Entered関数に"".$UserName."/".$role."/".$pic."/".$mess."";を返しています。 [MyPhotoObl.Entered関数] MyPhotoObj.Entered = function (myRequest){ var buff=myRequest.responseText; if(buff=="") exit(); alert("Entered="+buff); user=buff.split("/")[0]; role=buff.split("/")[1]; pic=buff.split("/")[2]; mess=buff.split("/")[3]; $("im").src=MyPhotoObj.MyDir+MyPhotoObj.room+"/"+user+"/"+pic+".jpg"; $("name").value=user; $("mess").value=mess; ここでalertを確認すると、 Entered= ikeda/w/1/ となりikedaの前に空白が入ってしまうのですが、これはなぜでしょうか？消す方法はあるのでしょうか？？宜しくお願いします。

【COBOL】文字列から数値項目に転記するにあたって

こんにちは。早速ですがCOBOLのプログラミングで困っています。 MOVEを使って文字列を数値項目に転記する際についてなのですが、私の今の困っている現状を報告します。 ↓　　↓　　　↓ W-A PIC X(5). ←中身は12345 上記のW-Aをの中味が、文字列で'12345'となっている場合に、このW-Aの中味を、12.345と数値項目で表示するにはどうすればいいのでしょうか？ちなみに小数点第3位まで表示したいのです。色々参考書とか見ても分からなかったので困っています。。今日中に終わらせなくてはならない事なので、どうかアドバイスの方を頂けたらと思っています。。基本的な部分で申し訳ないのですが、どうぞ宜しくお願いします。

汎用機のCOBOLのソース上でUNICODEのカンマを設定したい

汎用機のCOBOLを使用しています。今回、ソース上でUNICODEのカンマを設定する必要がでてきたのですが、どのように設定していいかわかりません。。。処理をしたデータをバイナリで（文字コードを変換しないで）転送する必要があり、かつデータの受け取り側がカンマをUNICODEでと指定してきているため、（COBOL上でカンマを打っても、汎用機の英数字コード（EBCDIK)になってしまいますので）どうしてもCOBOL上でUNICODEのカンマをしなければなりません。 UNICODEでのカンマはコードが「U+002C」ということなのですが、どのように設定すればUNICODEでカンマと認識されるのでしょうか？とりあえず、下記のような項目をつくってデータをつくってみたのですが・・・ 01 X-COMMA PIC X(02) VALUE X'002C' データの受け取り側がこのコードをカンマと判断してくれませんでした・・・コードはU+002Cとなっているのでそのとおりに設定したかったのですが、「+」が設定できないため、上記のような書き方としました。何かぜんぜん別の書き方をするのでしょうか？質問の内容がわかりづらく申し訳ありませんが、どなたか知恵を貸していただければと思います。よろしくお願いします。

Ｃ言語

ファイルデータ(11,22,33,0,44)を読み込んで表示することを5回繰り返すプログラムを作りたいのですが分かりません。さらに出来ればファイルデータが0でなければ表示し、0を読み込んだら終了するwhile文でのプログラムも教えてください。途中経過 #include <stdlib.h> #include <stdio.h> int main(void) { int x = 0,i; FILE *infile; infile = fopen ("test.txt", "r"); if(infile == NULL) { fprintf(stderr, "test.txtが開けません\n"); exit(1); } i = 0 while(1){ i++; fscanf(infile, "%d", &x); printf("%d\n", x); if(i = 5)break; } fclose(infile); return 0; } ここまでで実行すると11しか表示されません。これまでの質問分かるかたどなたか教えてくださいお願いします。

変数の一括代入

ＶＢをはじめたばかりなんですが、ＣＯＢＯＬだと例えば、 01 DATA-AREA. 　　03 DATA-1　　　　　PIC 9(02). 　　03 DATA-2　　　　　PIC X(02). 　　03 DATA-3　　　　　PIC 9(02). 01 WORK-AREA. 　　03 WORK-DATA　　　PIC X(06). ..... というレコードがあるとすると　　MOVE WORK-DATA　　TO　DATA-AREA. で、DATA-1からDATA-3まで代入できると思いますが、ＶＢではこういうことはできるのでしょうか？

Exit Subでコードを抜け出したい

If textbox.value "" Then X1 = textbox.Value For i = 1 To 100 X2 = ws.Cells(i, 1).Value If X1 = X2 Then Holder = i Exit For End If If X1 <= X2 Then Holder = i Exit For End If Next i End If 上記のようなコードがあります。textboxというテキストボックスの中の文字列とExcelのセルの文字列を比較して処理を行いたいと思っています。X1=X2、もしくはX1 <=X2の時ループを抜けます。これに追加して、X1=X2、X1<=X2以外にこれにあてはまらない文字列がある場合は処理を中止してexit subをしたいと思っています。わからないのは、ExcelのセルのA列から100行を検索して、その結果上記の二つの条件を満たさない場合は"データがありません"でexit subをしたいと思っています。どこにexit subで抜けるようなコードを追加すればよいでしょうか？

COBOLプログラムでCSV出力時に空白になる問題の解決方法は？

cobolプログラムをCSV出力しても空白に...

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

お礼 2015/05/01 11:01

関連するQ&A

何度もすみません（COBOLプログラミング）

COBOL　1：１のマッチングについて

COBOL

COBOL OCCURSで指定したデータの参照の仕方

ＣＯＢＯＬのプログラムがビルドできません；；

COBOL数値転記の仕様

COBOL初心者です。

COBOLについて

COBOLの転記結果の問題

COBOLのプログラム

cobolのコントロールブレイク

COBOLのCALL文がいまいちつかめません。

COBOL API 初期フォルダを指定する方法

COBOL FILLER

なぜ空白が？

【COBOL】文字列から数値項目に転記するにあたって

汎用機のCOBOLのソース上でUNICODEのカンマを設定したい

Ｃ言語

変数の一括代入

Exit Subでコードを抜け出したい

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

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

COBOLプログラムでCSV出力時に空白になる問題の解決方法は？

cobolプログラムをCSV出力しても空白に...

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

お礼 2015/05/01 11:01

関連するQ&A

何度もすみません（COBOLプログラミング）

COBOL 1：１のマッチングについて

COBOL

COBOL OCCURSで指定したデータの参照の仕方

ＣＯＢＯＬのプログラムがビルドできません；；

COBOL数値転記の仕様

COBOL初心者です。

COBOLについて

COBOLの転記結果の問題

COBOLのプログラム

cobolのコントロールブレイク

COBOLのCALL文がいまいちつかめません。

COBOL API 初期フォルダを指定する方法

COBOL FILLER

なぜ空白が？

【COBOL】文字列から数値項目に転記するにあたって

汎用機のCOBOLのソース上でUNICODEのカンマを設定したい

Ｃ言語

変数の一括代入

Exit Subでコードを抜け出したい

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

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

COBOL　1：１のマッチングについて

カテゴリ
一覧

専門家に質問してみよう
専門家登録