パスワードを忘れた? アカウント作成
この議論は賞味期限が切れたので、アーカイブ化されています。 新たにコメントを付けることはできません。

証券コードに英文字導入。数字4桁では不足」記事へのコメント

  • 駄目なんだろうか?
    • うん。なんかそんな幻が見えた。

      • by Anonymous Coward

        いやいや

        PIC 9(4).

        だろう。
        だって、数字4桁ってきまってるんだから。

        あちこちでCOBOLプログラマーが頭を抱えているんだろうね。
        修正は簡単だけど、テストが大変。
        どこかで、数字4文字を4桁の数値として計算してたりしそうだし。

        > 現在の証券コードは1300から9999の数字4桁となっている

        IF SYOKEN-CODE 10000
              THEN GO TO STOKEN-CODE-ERROR-SYORI.

        とか書いてあったりして。

        • by Anonymous Coward

          不等号を入れたら、意味のないタグとして削除されたらしい。
          これでどうだ?

          IF SYOKEN-CODE &lt 1300 OR SYOKEN-CODE &gt 9999
                      THEN GO TO STOKEN-CODE-ERROR-SYORI.

          # ついでに間違いも修正した。

          • by Anonymous Coward on 2022年06月01日 17時50分 (#4260312)

            PIC 9(4)をPIC X(4)に変えても比較演算子でエラーにならないっぽいのがいやらしいな。EBCDICコード順の比較になるのか?

            親コメント

犯人はmoriwaka -- Anonymous Coward

処理中...