COBOLって今需要増えてるの？Part7

[1 仕様書無しさん 2018/05/26(土) 20:22:38.70]

■前スレ
COBOLって今需要増えてるの？Part5 [無断転載禁止]©2ch.net
http://medaka.2ch.net/test/read.cgi/prog/1481468519/
COBOLって今需要増えてるの？Part6©2ch.net
https://medaka.5ch.net/test/read.cgi/prog/1497126175/

[2 仕様書無しさん 2018/05/26(土) 20:53:16.36]

髪の毛は増えてない！

[3 仕様書無しさん 2018/05/26(土) 22:36:32.86]

仕事はあるある

[4 仕様書無しさん 2018/05/26(土) 23:30:37.10]

> 999 名前： 仕様書無しさん [sage] 投稿日： 2018/05/26(土) 19:52:09.83
> >>996
> COBOLの現場は今でもCOBOL85が主流だから
> FUNCTIONの出る幕ないよね
利用者定義関数のことなら確かにCOBOL2002からだけど、
組み込み関数ならCOBOL85の時点でとっくに実装されてた。

[5 仕様書無しさん 2018/05/27(日) 01:13:34.36]

>>4
私の勉強不足かもしれないけど
組み込み関数の存在自体知らないわ
職場に据え付けのCOBOL85の言語仕様書には
そのようなものは記述されていなかったからなんだけどね

[6 仕様書無しさん 2018/05/27(日) 16:59:23.09]

>>5
たまたま>>5が知らなかっただけだろうね。
組み込み関数自体は特段マイナーなものではない。
テーブル内の特定の項目の最大値や合計値等を求める場合に
テーブルを1から最後までループしていたり、
ある数をある数で割った余りだけが必要（商は不要）な場合に、
わざわざWORKING-STORAGEに使いもしない商格納用の変数を定義して
DIVIDE文を使ってたりするソースを見ると、無駄なことしてるなあって思う。

[7 仕様書無しさん 2018/05/27(日) 23:11:31.58]

組み込み関数って第3次追補1規格だから、
日本に入ってくるのが遅かったんじゃないの？
古いCOBOL85の仕様書には載ってなくても不思議はない。

[8 仕様書無しさん 2018/05/27(日) 23:26:54.65]

第3次追補1規格は米国では1989年、日本でも1992年制定か。それでもなかなか古いね。

[9 仕様書無しさん 2018/06/02(土) 11:05:00.48]

EVALUATE ZERO
WHEN FUNCTION MOD(YEAR 400)
　DISPLAY '閏年'
WHEN FUNCTION MOD(YEAR 100)
　DISPLAY '平年'
WHEN FUNCTION MOD(YEAR 004)
　DISPLAY '閏年'
WHEN OTHER
　DISPLAY '平年'
END-EVALUATE.

[10 仕様書無しさん 2018/06/06(水) 05:18:55.90]

まだあるのかこれ