[ ホームページ ] [ 携帯用URL ]
ＧＯＧＯ！！ＣＯＢＯＬ掲示板

[ EZBBS.NET | DoChat.NET | 新規作成 | ランキング | オプション ]
ｉモード＆Vodafone（絵文字）、au対応！ケータイからも返信できる無料掲示板！
名前
 E-mail 
題名
内容
   タグ有効 改行有効 等幅フォント
URL


148．コボラーの良さ気な会社みっけた... 返信  引用 
名前：いまこそコボラーの時代！    日付：5月28日(木) 18時40分
なんか、よさげっす
http://www.real-work.tv/search/view/offerNum/100044/
http://www.real-work.tv/search/view/offerNum/100044/

147．CCLを教えてください 返信  引用 
名前：めるも    日付：3月20日(金) 1時47分
ＣＣＬというテスト仕様書がありますが、オンラインを」新規で
作成した場合、ＣＣＬはどこまで記載するばいいのかわかりません
たとえば、ＰＣＬを省略しＣＣＬのみでよい場合とかどこまで
ＰＣＬを反映させればいいかわかりません。またＣＣＬとは
CICSでいうＬＩＮＫが正常に行われるかの確認のみですか？
もし、項目をＳＥＮＤするのみのＰＧＭの場合ＣＣＬはどう記載
するばいいか教えてください

56．ＮＥＣ汎用機と富士通（ＩＢＭ）汎用機上での開発の違いについて 返信  引用 
名前：taketake    日付：10月2日(火) 10時17分
いつもお世話になります。
富士通汎用機コボラー（経験１０年）です。

１年ほど前にＩＢＭ汎用機を初めて経験したのですが、
富士通汎用機と似ている部分が多くスムーズに開発（ＣＯＢＯＬ，ＪＣＬ）する事が出来ました。

今回、ＮＥＣ汎用機（ＡＣＯＳ）で開発するのですが、
富士通とＩＢＭほど似ていないと思っています。

ＡＣＯＳ上でのＣＯＢＯＬ，ＪＣＬ開発に際して、特徴や注意点などありました教えて頂けないでしょうか。

よろしくお願いします。


57．Re: ＮＥＣ汎用機と富士通（ＩＢＭ）汎用機上での開発の違いについて
名前：通りすがりのおっさん    日付：10月20日(土) 9時26分
富士通であろうがＩＢＭであろうが、基本さえ知っていれば何とかなりますよ。

その昔ＮＥＣもしましたが、何とかなりましたね。
最初はＪＣＬとかがぜんぜん違ったので戸惑ったりはしましたが。

今でも覚えていているのは、オンラインのプログラムでＥｎｔｅｒ以外が押されたときに、画面の内容がプログラムに通知されないことを知らなかったことぐらいかな。　今は違うかもしれませんが。

「所詮言語でしょ」って気持ちがあれば、何とかなりますって。

数少なくなってきたホストの開発者として応援してます

146．Re: ＮＥＣ汎用機と富士通（ＩＢＭ）汎用機上での開発の違いについて
名前：王亜京    日付：2月8日(日) 11時40分
　　卒業したから日本向けのソフトウェア開発を従事しています。いろんな開発経験を持っています。日本向けのシステム開発流れをよく認識しています。仕事の慎重さを持って、責任感が強いです。

30．空白を削除する方法について 返信  引用 
名前：見習いコボラー    日付：5月2日(水) 0時6分
インプットファイルで１文字以上１５文字以内可変するデータがあり,それを
01 入力 pic x(15).で項目を指定した時

これを( )の中にスペースなしで出力したいんですがどうしたらいいでしょうか。

自分ではworkingstorage section に
01 出力Ｒ.
03 pic x(1) value "(".
03 文字列 pic x(16).
01 文字カウント pic 9(2).
01 括弧 pic 9(1) value ")"
と指定して
move space to 文字列.
inspect 入力 tallying 文字カウント for characters.
compute 文字カウント = 文字カウント + 1.
string 入力 delimited space into 文字列.
string 括弧 delimited size into 文字列 with pointer 文字カウント.
write プリントＲ　from 出力Ｒ.
とういのを考えてみたのですが、これ以外になにか方法があったら教えてくださいよろしくお願いします。


31．Re: 空白を削除する方法について
名前：通行人    日付：5月2日(水) 20時44分
ＰＣ系ＣＯＢＯＬでは　有効文字長さを求める関数が用意されていると思うのですが
因みにPow-Cobolでしたら
WORKING-STRAGEに
01　文字長 PIC S9(04) COMP-5.
01 出力Ｒ PIC X(17).

PROCEDURE......
COMPUTE 文字長 = FUNCTION STORED-CHAR-LENGTH(入力文字）
MOVE "(" TO 出力Ｒ(1:1)
MOVE 入力文字　　TO 出力Ｒ(2:文字長)
ADD 2 TO 文字長
MOVE ")" TO 出力Ｒ(文字長:1)

とか　で　有効文字だけ出力できると思いますが
　使用言語、機種を　記載しておけば　
皆さんから的確なアドバイスが頂けますよ

35．Re: 空白を削除する方法について
名前：むふふ    日付：5月8日(火) 22時13分
単に
STRING "(" DELIMITED SIZE
入力 DELIMTED SPACE
")" DELIMITED SIZE
INTO 文字列

ではダメでしょうかね。

38．Re: 空白を削除する方法について
名前：ちんとんしゃん    日付：5月11日(金) 13時26分
空白を含む文字列に対してどのような結果を望むかによってコーディングも
変わってくるかと思います。
１５文字は長いので「□Ａ□Ｂ□Ｃ□」の７文字の文字列で考えた場合
#□は空白文字

結果１
（）
結果２
（□Ａ□Ｂ□Ｃ）
結果３
（ＡＢＣ）

上記３つぐらいが考えられますが

結果１を望むならむふふさんの回答で良いと思います。
結果２を望むなら
PERFORM VARYING 文字カウント FROM LENGTH OF 入力文字列 BY -1
　　　　UNTIL 文字カウント < 1
　　IF 入力文字列(文字カウント:) <> SPACE
　　　　EXIT PERFORM
　　END-IF
END-PERFORM
MOVE SPACE TO 出力Ｒ
STRING "(" 入力文字列(1:文字カウント) ")" DELIMITED BY SIZE INTO 出力Ｒ

結果３を望むなら
MOVE "(" TO 出力Ｒ
PERFORM VARYING 文字カウント FROM LENGTH OF 入力文字列 BY 1
　　　　UNTIL 文字カウント < 1
　　IF 入力文字列(文字カウント:) = SPACE
　　　　EXIT PERFORM
　　END-IF
　　IF 入力文字列(文字カウント:1) <> SPACE
　　　　MOVE 入力文字列(文字カウント:1)
　　　　　　　　　　　TO 出力Ｒ(文字カウント + 1:1)
　　END-IF
END-PERFORM
MOVE ")" TO 出力Ｒ(文字カウント:1)


こんな感じでしょうか？
いわゆるRTRIMのような結果をお望みでしたら結果２でしょうか？
INSPECT文はちょっと苦手なのでPERFORMで書いてみました

39．Re: 空白を削除する方法について
名前：ちんとんしゃん    日付：5月11日(金) 13時28分
結果３のコーディングに誤りがありましたので下記に訂正します

結果３を望むなら
MOVE "(" TO 出力Ｒ
PERFORM VARYING 文字カウント FROM 1 BY 1
　　　　UNTIL 文字カウント > LENGTH OF 入力文字列
　　IF 入力文字列(文字カウント:) = SPACE
　　　　EXIT PERFORM
　　END-IF
　　IF 入力文字列(文字カウント:1) <> SPACE
　　　　MOVE 入力文字列(文字カウント:1)
　　　　　　　　　　　TO 出力Ｒ(文字カウント + 1:1)
　　END-IF
END-PERFORM
MOVE ")" TO 出力Ｒ(文字カウント:1)

41．Re: 空白を削除する方法について
名前：見習いコボラー    日付：5月22日(火) 19時52分
返信おそくなって申し訳ありません。
本当に沢山のご意見ありがとうございました。

仕事の関係でＣＯＢＯＬを使わなければならない立場にあるので
また質問することがありますがどうぞよろしくお願いします。

145．Re: 空白を削除する方法について
名前：...    日付：1月26日(月) 21時17分
Nice site you have!
http://themexicandream.com/vamonos/lesbiche.php

144．PowerCOBOL　ツールバーのビットマップ 返信  引用 
名前：すー    日付：11月11日(火) 11時43分
富士通PowerCOBOLを使用しています。
ツールバー用にビットマップを作成していますが、256色のビットマップを使用すると、色が化けてしまいます。
ユーザーズガイドに「イメージリストとして利用するファイルは、16色ビットマップとして作成してください。16色を超えている場合、実行時に自動的に減色（マッピング）されます。」と書かれているのですが、諦めきれません。
C++やVBのツールバーで、通常の方法では16色しか使用できないけど、256色を使用できる方法があったのですが、PowerCOBOLでは無理なのでしょうか。どなたかご存知ありませんか。
はっきり「どうやっても無理」という事でも分かれば諦めがつくのですが…。

139．クリック、ダブルクリックイベント発生 返信  引用 
名前：POW初心者    日付：9月17日(水) 17時32分
POWER-COBOLでﾌｫｰｶｽされている所でﾀﾞﾌﾞﾙｸﾘｯｸすると
ﾀﾞﾌﾞﾙｸﾘｯｸｲﾍﾞﾝﾄが発生するのですが
ﾌｫｰｶｽされていない所では、先にｸﾘｯｸｲﾍﾞﾝﾄが発生し
ﾀﾞﾌﾞﾙｸﾘｯｸとみなされません。
ﾌﾟﾛﾊﾟﾃｨの設定が悪いのでしょうか？
何か解決方法をご存知ではありませんか？
よろしくお願いします。


140．Re: クリック、ダブルクリックイベント発生
名前：Peg    日付：9月18日(木) 12時35分
ダブルクリックイベントが発生しない条件が判りません。
一応確認しましたがフォーカスに関係なく、コントロール上でダブルクリックするとクリックイベントとダブルクリックイベントが発生しています。

141．Re: クリック、ダブルクリックイベント発生
名前：POW初心者    日付：9月18日(木) 21時11分
レスありがとうございます。
テストではクリックイベントの後に、ダブルクリックイベントが発生するのですが
実際プログラムではクリックイベントだけの発生になってしまいます。
クリックイベントで処理を行っている事が原因かとも思います。
もう少し調べて、わからない時はまた質問させて下さい。

143．Re: クリック、ダブルクリックイベント発生
名前：POW初心者    日付：9月20日(土) 12時1分
自己レスです。
列スタイルの自動編集状態と編集可能両方にチェックを
入れたことが原因でした。

134．メモリが解放されない(?) 返信  引用 
名前：yam    日付：9月6日(土) 0時27分
はじめまして。yamと申します。早速ですが、かなり行き詰ってしまい、どうかご教示をお願いいたします。

COBOLは8年前に経験していますが、今の環境は初めてで、初心者のようなものです。

プログラムを実行すると終了フラグなどに値が入り、
コントロールブレークして正常終了しますが、
そのあとに再度プログラムを実行すると、
そのフラグに値が入った状態で処理が始まってしまうのです。
もちろん、初期化をきちんとしています。

このようなこと今までなかったので、
この動きに唖然としています。

問題には何が考えられるのでしょうか？

なお、以下にシステム構成などを記載します。
お手数ですが、どなたかどうかよろしくお願いいたします。


プラットフォーム：SUNW　Sun-Fire-V245
OS：Solaris9
CPU：1500MHZ×2
MemorySize：16G
DB：Oracle9i
COBOL：YPS-COBOL6.0

BEA　TUXEDOなるもので、クライアントと電文のやりとりをしています。


135．Re: メモリが解放されない(?)
名前：Peg    日付：9月8日(月) 15時58分
実行直後に MOVE ZERO TO FLG. のように初期化しているのに
再度実行すると FLG が初期化されないと言う事なんですかねぇ
そうであるなら、これだけでは原因が判らないです。

どのようにこのプログラムが呼び出されているか判りませんが、
呼び出した後に CANCEL してみてはどうでしょうか？

142．Re: ﾒﾓﾘが解放されない(?)
名前：yam    日付：9月18日(木) 21時44分
ありがとうございます。他にも色々と問題があるようなので、整理してみます。
返信が遅れてしまい申し訳ありませんでした。

ページ： 1 2 3 4 5 6 7 8 

無料アクセス解析

アクセス解析の決定版！無料レンタルで最大100ページ解析！

   投稿KEY
   パスワード
EZBBS.NET produced by InsideWeb