コボラーのびっくりすること

1 ：仕様書無しさん：2013/04/02(火) 22:46:53.57 .net

nullという概念がない

2 ：仕様書無しさん：2013/04/02(火) 23:18:03.81 .net

それがマジだから笑えない

3 ：仕様書無しさん：2013/04/02(火) 23:39:00.33 .net

空の箱が作れない。
→箱は物を入れるもの。

4 ：仕様書無しさん：2013/04/03(水) 07:18:44.56 .net

LOW-VALUE

5 ：仕様書無しさん：2013/04/03(水) 08:07:18.10 .net

77　STRINGS　PIC　X(10).

MOVE　''　TO　STRINGS.

とやればSTRINGSの中はnullなのかな?

6 ：仕様書無しさん：2013/04/03(水) 21:55:49.35 .net

NULLを使ったプログラム例

ttp://publib.boulder.ibm.com/iseries/v5r1/ic2924/info/rzakl/xml4rpgapi/rzaklSAXCountCOBOL.html

7 ：仕様書無しさん：2013/04/10(水) 23:22:07.79 .net

>>5
実装は別として、COBOL的には値がnullというよりは「ない」だな

8 ：仕様書無しさん：2013/04/11(木) 00:41:47.01 .net

ぬるぽ

9 ：仕様書無しさん：2013/10/18(金) 09:15:48.19 .net

>>5
MOVE SPACE TO STRINGS. と同じ

10 ：仕様書無しさん：2013/10/19(土) 19:47:48.20 .net

AKBとSKEを兼任できる

11 ：仕様書無しさん：2013/10/19(土) 20:33:35.83 .net

COBOLは、高卒、事務、主婦が多数

12 ：仕様書無しさん：2013/10/20(日) 01:47:47.64 .net

変数名を連番でつけて「見やすいですよー」と宣ふ
メンテすること考えていない

13 ：仕様書無しさん：2013/10/20(日) 02:39:33.22 .net

でもお前ら、人から聞いた話ばかりで
本当の状況は知らないんだろう？

14 ：仕様書無しさん：2013/10/20(日) 07:15:10.00 .net

COBOLの仕事は昔からの常連様がしっかりと掴んで離さないからな
狭い世界で回っている

15 ：仕様書無しさん：2013/10/21(月) 06:40:37.47 .net

nullなんて不要です
Java使いにはわからんのです

16 ：仕様書無しさん：2013/10/21(月) 07:12:06.01 .net

COMP-1でゼロは

17 ：仕様書無しさん：2013/10/21(月) 08:49:47.21 .net

業務系SEが使い捨ての理由
･ソフトの発達で開発が簡単になっているため、需要が減っている。
･事務ソフトは文系向きのため、就職採用が容易である。
･事務ロジックは難易度が低いため、交代要員確保が容易である。
･SEの営業力が弱いため、期間や金額の請求利益が乏しい。
･SEに非婚志向が多いため、低賃金で済まされる。
･SEに従順人格が多いため、残業競争が激しい。
･事業の資本金がかからないため、経営者の参入競争が激しい。
･事業の同業他社が多いため、安売り競争が激しい。
･事業の偽装請負業者が多いため、悪徳利益競争が激しい。
･事業の技術革新のため、若手労働者の獲得競争が激しい。
･事業の経費削減のため、高齢労働者の解雇競争が激しい。

18 ：仕様書無しさん：2013/10/21(月) 09:56:38.44 .net

COBOLの現場でnullを使う理由があるか？
あれば、便利だがな・・・。いや・・・・用途がないなｗ

19 ：仕様書無しさん：2013/10/21(月) 11:11:59.46 .net

業務系は食い扶持としては割とおいしいので仕事と割り切れば問題ない

20 ：仕様書無しさん：2013/10/21(月) 13:08:51.29 .net

アントニー・ホーア「null参照の考案は過ちであった」

21 ：仕様書無しさん：2013/10/21(月) 21:03:18.25 .net

涙こぼる

22 ：仕様書無しさん：2013/10/21(月) 21:07:48.24 .net

いやCOBOLでもRDB使うとNULLはでてくるんじゃまいか？

23 ：仕様書無しさん：2013/10/21(月) 22:17:08.03 .net

>>22
でも、nullか否かの判定は、命令あったっけ？

24 ：仕様書無しさん：2013/10/21(月) 23:34:30.97 .net

>>5
これ初期化しないで覗くと
マジで変なもの入ってる時あるよね。nullどころの話ではない
得体の知れないナニカが入ってる…

25 ：仕様書無しさん：2013/10/22(火) 00:13:02.22 .net

COBOLでNULLはLOW-VALUEじゃ

26 ：仕様書無しさん：2013/10/22(火) 09:09:39.43 .net

X"0000....00"

27 ：仕様書無しさん：2013/10/22(火) 09:33:07.58 .net

COBOLは、高卒、事務、主婦が多数

28 ：仕様書無しさん：2013/10/22(火) 10:47:14.19 .net

プログラマなんてほとんど高卒、専卒だろ
そもそも大学でてプログラマなんかやっている時点で完全に負け組だし

29 ：仕様書無しさん：2013/10/22(火) 10:49:48.21 .net

高卒、専卒＝PG
大卒＝PM、SE
院卒＝ニート

30 ：仕様書無しさん：2013/10/22(火) 12:53:08.18 .net

代入は左から右

31 ：仕様書無しさん：2013/10/22(火) 19:06:17.19 .net

>>25
あった！！！LOW-VALUE！！！そんなのあったな！！ｗｗ

32 ：仕様書無しさん：2013/10/22(火) 19:28:09.31 .net

入社したときはCOBOLだったな

いまじゃすっかりCでインバータ制御だから回路図とにらめっこの日々だ

33 ：仕様書無しさん：2013/10/24(木) 10:40:25.92 .net

昭和４３年に就職した時はアセンブラ、RPG。
１年後にCOBOL、FORTRAN。
その４年後にPL/I。
２０年ほど勤めて転職した先はRPG３だけ。
会社に頼み込んでCOBOLも入れてもらった。

34 ：仕様書無しさん：2013/10/24(木) 10:51:51.47 .net

んで、転職前のCOBOLはフィールド名に漢字が使えたけど
転職先のは英数字だけ。

35 ：仕様書無しさん：2013/10/25(金) 06:51:54.80 .net

漢字はSI/SOでずれるイメージがある

36 ：仕様書無しさん：2013/10/25(金) 23:20:08.24 .net

アルファベットが数字より小さい。

37 ：仕様書無しさん：2013/10/26(土) 00:32:50.68 .net

ピリオドをつけ忘れる

38 ：仕様書無しさん：2013/10/26(土) 22:02:16.44 .net

ＲＰＧからＣＯＢＯＬに移ると何なら何まで全部書かなければならないのにうんざりする

>>36
それはＣＯＢＯＬではなくＥＢＣＤＩＣの話

39 ：仕様書無しさん：2013/11/05(火) 10:37:02.91 .net

事前面接の事実をおさえて職安法44条で刑事告訴
http://wiki.algomon.com/wiki/%E4%BA%8B%E5%89%8D%E9%9D%A2%E6%8E%A5

40 ：仕様書無しさん：2013/11/14(木) 07:14:47.38 .net

evaluate便利過ぎw

41 ：仕様書無しさん：2014/03/02(日) 21:43:41.09 .net

ＡＫＢにコボラーがいるらしいぞ

42 ：仕様書無しさん：2014/03/19(水) 10:41:44.20 .net

【社会】厚労省の中で男が刃物取り出す　銃刀法違反の現行犯で逮捕
ttp://genzo.org/read/uni.2ch.net/newsplus/1389346716/
事前面接
http://ja.wikipedia.org/wiki/%E4%BA%8B%E5%89%8D%E9%9D%A2%E6%8E%A5

今後の犯罪傾向の予測と考察

事前面接の犯罪に憤りをもつ派遣社員や失業者が比較的警備の薄い厚労省、労働局、
労基署にいく可能性がある。しかし他の可能性を考えてみた。
事前面接中に派遣先と派遣元の担当者をターゲットにしたテロである。
派遣社員の事前面接は違法であり、事前面接中に派遣社員が暴れだした場合は
警察に通報できない状況となる。つまり通報すれば労基法6条違反、
職安法44条違反などの犯罪事実が報道で日本中に周知され、グッドウィル事件の再現となる可能性
が出てくる。そのため被害者である派遣先・派遣元が加害者に高額の口止め料
（影響を考慮すれば3000万円以上が妥当）を支払い隠蔽しようとする奇妙なテロがおきうるのだ。
（※グッドウィル摘発のきっかけとなった事故は、現場の派遣スタッフの意図的な自傷事故だったとする説がある。）

仮に、怒りに我を忘れた派遣社員が、派遣営業や面接官の小指を切り落とすような
凶行がおきた場合、小指を失った社員は転職や社会活動が難しいため、現在の会社で
まさに奴隷的待遇で一生飼い殺される運命を耐えるしかない。会社は隠蔽を優先し
派遣社員への高額の口止め料で手を打ち、被害社員はひたすら耐えるだけだ。
社員が反撃した場合は口止め料が倍以上に跳ね上がるので、結果的に派遣社員が
もらえる金額は増え、反撃した社員は名実ともに「刑事犯」として解雇され、非正規雇用以外の
就職はできなくなるが、小指を守れる可能性が残る。

"企業が恐れるものは失うものがない怒りくるう労働者である"

求人情報サイトを使った就職・転職は中間搾取にあたりますので、労基法6条違反およびその幇助罪で刑事告訴してください。
http://ja.wikipedia.org/wiki/%E6%B1%82%E4%BA%BA%E5%BA%83%E5%91%8A
※上記の事前面接と同様に、求人情報サイトからの応募者が募集会社の中間搾取幇助に怒り面接中に暴れる可能性もある。

43 ：仕様書無しさん：2014/04/05(土) 04:45:47.96 .net

俺が生まれる前から動いてるシステムを改修させられたことあるわ。

44 ：仕様書無しさん：2014/04/08(火) 13:15:03.21 .net

>>43
２０００年騒動の時?

45 ：仕様書無しさん：2014/04/10(木) 13:18:13.78 .net

>>41
松井玲奈が一級持ってるらしい

46 ：仕様書無しさん：2014/04/23(水) 08:08:33.27 .net

彼女のアソコがﾇﾙﾇﾙ

47 ：仕様書無しさん：2014/07/19(土) 04:19:24.63 .net

age

48 ：仕様書無しさん：2014/07/19(土) 17:28:32.02 .net

こんな変なコーディングがある。
なぜかエラーとならず実行されAやBの値に関係なく
Ｃには必ず３がセットされてしまうのである。
何言ってるのかと思うだろう。
俺にも解らない。コボラーにしか解らない謎がそこにあるのだ！

IF A = 1
IF B = 1
C = 1
ELSE
C = 2
END-IF.
MOVE 3 TO C.

49 ：仕様書無しさん：2014/07/22(火) 23:18:02.11 .net

実行出来ると聞いてコボラー、びっくり！

50 ：仕様書無しさん：2015/09/29(火) 18:47:37.41 .net

>>45
級なんてあるのね
松井玲奈は元SKE48だね

51 ：仕様書無しさん：2016/06/24(金) 07:37:13.44 .net

民進党はもっと真面目にやれよ
山尾が議員のままだから参院も惨敗じゃん
カネに汚い議員をクビに出来ない岡田は無能

52 ：仕様書無しさん：2016/06/25(土) 07:44:25.15 .net

>>1が無能無知だったということかな？

53 ：仕様書無しさん：2016/06/26(日) 14:46:36.97 .net

コボラーの？

解釈が難しい日本語を使うな。

54 ：仕様書無しさん：2016/06/26(日) 18:13:36.13 .net

itpro.nikkeibp.co.jp/article/COLUMN/20100319/346024/?rt=nocnt

こういうの見るたびに思うんだが、ジェネレータ使っとけばよかったのにな
日立とかもってなかったっけ

55 ：仕様書無しさん：2016/06/26(日) 18:36:04.78 .net

>>54
その人、いいこと言ってるわ。

56 ：仕様書無しさん：2016/06/26(日) 20:21:35.43 .net

コボラーがいいこと言うわけないだろw

57 ：仕様書無しさん：2016/06/26(日) 21:20:40.25 .net

>>56
おまえ読んでものを言えよw

58 ：仕様書無しさん：2016/06/26(日) 21:54:40.80 .net

なんだコボラーじゃないのか？まぎらわしいリンク貼るなよw

59 ：仕様書無しさん：2016/06/27(月) 00:09:38.07 .net

内容も理解せずに批判だけする奴って頭の悪い人間の典型だよな

60 ：仕様書無しさん：2016/06/27(月) 14:43:33.87 .net

>>1
すごくいいことじゃないか
nullを発明した人もnullを作り出したには失敗だったと嘆いてるくらいだじ

61 ：仕様書無しさん：2016/06/27(月) 17:27:40.55 .net

>>59
古典的な釣りにひっかかるアホｗｗｗ

62 ：仕様書無しさん：2016/07/11(月) 12:35:20.86 .net

環境変数の取得方法(Cでいうgetenv)や
パラメータの取得方法(Cでいうargv)を
知らないコボラーの多いこと

63 ：仕様書無しさん：2016/07/11(月) 16:16:37.40 .net

規格にないからな。
必要もないだろうし。

64 ：仕様書無しさん：2016/07/11(月) 17:34:04.67 .net

知ってるとかなり便利だけどね
規格外ってことは拡張機能なのかな？

65 ：仕様書無しさん：2016/07/11(月) 17:51:39.11 .net

>>64
多分メーカーのOS毎に規格が全然違ってたと思う

66 ：仕様書無しさん：2016/07/11(月) 19:46:36.94 .net

>>65
なるほど

67 ：仕様書無しさん：2016/08/12(金) 21:44:15.48 .net

というかshやbatが書けない奴やそもそもそれがなんだか分からない奴が過半数いる

68 ：仕様書無しさん：2016/08/25(木) 22:54:54.89 .net

>>51
民進党はもう駄目だな。
共産党に合併吸収されてしまえ。
序に社民党もな。

69 ：仕様書無しさん：2017/06/11(日) 15:54:18.69 .net

安倍晋三どもが犯罪行為を繰り返すからな

70 ：仕様書無しさん：2017/06/11(日) 15:56:07.48 .net

>>69
たとえば？

71 ：仕様書無しさん：2017/12/29(金) 21:44:15.00 .net

誰でも簡単にパソコン1台で稼げる方法など
参考までに、
⇒　『宮本のゴウリエセレレ』 というブログで見ることができるらしいです。

グーグル検索⇒『宮本のゴウリエセレレ』

3326UZ5CYY

72 ：仕様書無しさん：2018/05/22(火) 13:28:39.41 .net

とても簡単な自宅で稼げる方法
参考までに書いておきます
グーグルで検索するといいかも『ネットで稼ぐ方法　モニアレフヌノ』

MINJT

73 ：仕様書無しさん：2018/08/09(木) 20:05:50.61 .net

>>25

その通りです
あるよ

74 ：仕様書無しさん：2018/12/12(水) 10:04:26.92 .net

新人プログラマーの先輩が、プログラムリストとにらめっこして悩んでた。
で、俺の所にやってきて「この１行が実行されてないんだ」

示す行の前を見ると、NOTE文、そしてピリオド無し・・・

「NOTEって何だ?」
説明したら、落ち込んで床に転がったｗ

75 ：仕様書無しさん：2018/12/12(水) 20:02:08.14 .net

他言語は桁数の制限がないんだな。

76 ：仕様書無しさん：2018/12/12(水) 20:11:41.80 .net

そりゃ浮動小数点数は桁数無制限だわな

77 ：仕様書無しさん：2018/12/12(水) 21:48:55.35 .net

変数定義するところで、USAGE句にPOINTERって書けば、
SET 項目名 TO NULLも出来るし、IF 項目名 = NULL等で判定も出来るぞ。

>>46
松井のCOBOL1級は、多分全商情報処理検定1級（プログラミング部門）の選択問題でCOBOLの問題を選んだって意味だと思う。
数年前まではVBとCOBOLのいずれか選択する方式だった。今ではVBはVBA、COBOLはJavaに置き換わっているがね。
あと余り計算の話だけど、引き算のループでやる人は見たこと無いが、MOD（或いはREM）を知らない人は確かに多い。
そのせいで、必要なのは割り算の余りだけで商は使わないにもかかわらず、商格納用の変数定義してDIVIDE文使う人が多い。

78 ：仕様書無しさん：2018/12/14(金) 07:13:41.50 .net

>>48
こんな風に書こうとしてたのかな？

IF A = 1
　IF B = 1
　　COMPUTE C = 1
　ELSE
　　COMPUTE C = 2
　END-IF
ELSE
　COMPUTE C = 3
END-IF.

79 ：仕様書無しさん：2018/12/14(金) 20:44:16.23 .net

むしろこう書いた方がいかにもコボラーっぽいかもｗ

EVALUATE A ALSO B
WHEN 1 ALSO 1
　COMPUTE C = 1
WHEN 1 ALSO ANY
　COMPUTE C = 2
WHEN OTHER
　COMPUTE C = 3
END-EVALUATE.

80 ：仕様書無しさん：2018/12/15(土) 01:21:20.76 .net

C = (A == 1) ? (B == 1 ? 1 : 2) : 3

81 ：仕様書無しさん：2018/12/15(土) 10:29:32.51 .net

小学生の頃はお父さんがコンピュータの会社に勤めてて自慢に思っていた。
だけど高校生になってPCもろくに触れないスマホの使い方を子供に聞く、ITに全く無知なコボラーだったと気付いたとき自分が悲しくなった。

82 ：仕様書無しさん：2018/12/15(土) 13:49:48.90 .net

>>80
まあ三項演算子ある言語で三項演算子使うならそうなるわな。
なお、実際のIT系企業ではコーディング規約ニキが三項演算子の使用を阻止してくることも多い模様。

83 ：仕様書無しさん：2018/12/16(日) 03:22:41.78 .net

システムエグゼ
苦情申し立てダイレクト窓口

代表取締役社長 酒井 博文
h-sakai@system-exe.co.jp

専務取締役 大場 康次
yohba@system-exe.co.jp
専務取締役 後藤 清孝
kgotou@system-exe.co.jp

取締役 藤林 隆司
rfujiba@system-exe.co.jp
rfujiba2@system-exe.co.jp
取締役 荻野 弘昭
h-ogino@system-exe.co.jp
取締役 新船 幸広
arafune@system-exe.co.jp
arafune_PJ@system-exe.co.jp

監査役 白銀 亨
sirokane@system-exe.co.jp

84 ：仕様書無しさん：2018/12/18(火) 23:40:34.59 .net

IDENTIFICATION DIVISION.
PROGRAM-ID. ISLEAP.
DATA DIVISION.
LINKAGE SECTION.
01 YEAR PIC 9(4).
01 LEAP-FLG PIC X(1).
PROCEDURE DIVISION USING YEAR LEAP-FLG.
IF YEAR IS NUMERIC
　EVALUATE ZERO
　WHEN FUNCTION MOD(YEAR 400)
　　MOVE '1' TO LEAP-FLG
　WHEN FUNCTION MOD(YEAR 100)
　　MOVE ZERO TO LEAP-FLG
　WHEN FUNCTION MOD(YEAR 004)
　　MOVE '1' TO LEAP-FLG
　WHEN OTER
　　MOVE ZERO TO LEAP-FLG
　END-EVALUATE
ELSE
　MOVE '9' TO LEAP-FLG
END-IF.
EXIT PROGRAM.

85 ：仕様書無しさん：2018/12/20(木) 10:34:50.30 .net

　COMPUTE C = 1

コボラーとしてはこの書き方にものすごい無駄を感じる。
なぜかというと、アセンブラではこれが

ZAP　　　C，＝P'0'
ZAP　　　W1,＝P'1’
AP　　　　C,

86 ：なんか勝手に書き込みが動作してしまった・・・：2018/12/20(木) 10:39:18.42 .net

ZAP　　　C，＝P'0'
ZAP　　　W1,＝P'1’
AP　　　　W2,W1
ZAP　　　C,W2

とコーディングされるのだ。

MOVE　０　TO　C　ならば、

ZAP　　　C，＝P'0'

の１行だけとなる

87 ：誤動作ついでに１行消えた：2018/12/20(木) 10:45:01.21 .net

ZAP　　　C，＝P'0'
ZAP　　　W1,＝P'1’
ZAP　　　W2,＝P'0'
AP　　　　W2,W1
ZAP　　　C,W2

だな、たぶん・・・

88 ：仕様書無しさん：2018/12/20(木) 13:14:07.05 .net

LOW-VALUE= null だけど、では
HIGH-VALUEに相当するのは何?

89 ：仕様書無しさん：2018/12/20(木) 22:31:59.86 .net

例えばHPを30回復するとき、

　IF CURRENT-HP + 30 <= MAX-HP
　　COMPUTE CURRENT-HP = CURRENT-HP + 30
　ELSE
　　MOVE MAX-HP TO CURRENT-HP
　END-IF.

よりも

　IF CURRENT-HP + 30 <= MAX-HP
　　COMPUTE CURRENT-HP = CURRENT-HP + 30
　ELSE
　　COMPUTE CURRENT-HP = MAX-HP
　END-IF.

とCOMPUTEに統一して書きたい。

　COMPUTE CURRENT-HP = FUNCTION MIN((CURRENT-HP + 30) MAX-HP).

と書くのが一番いいかも知れんが。

90 ：仕様書無しさん：2018/12/21(金) 00:38:35.36 .net

Rubyだったら
current_hp = (current_hp + 30).clamp(0, max_hp)
みたいなコードですか？

91 ：仕様書無しさん：2018/12/23(日) 19:00:18.84 .net

>>90
Ruby触ったことないから調べてみたけど、
同じことをminとmax使ってやろうとすると、
current_hp = [[0, (current_hp + 30)].max, max_hp].min
になるのかな？　これだとかなり分かりにくくなるから、clampは便利だね。
HPを回復するときは下限の判定は要らないけど、
ダメージを受けたときと回復するときを共通のロジックにするなら、
Rubyのclampみたいな機能が無い場合はmaxとminの合わせ技にせざるを得ない。

92 ：仕様書無しさん：2018/12/26(水) 21:23:54.23 .net

>>88
データ型による

93 ：仕様書無しさん：2019/04/29(月) 11:27:24.55 .net

Pythonで、aをbで割った余りだけが必要で商は不要なときに、わざわざ
　q, r = divmod(a, b)
と書くことは普通せず、
　r = a % b
と書くのが普通だろう。

しかし、COBOLだとAをBで割った余りだけが必要で商は不要なときでも、
　DIVIDE A BY B GIVING Q REMAINDER R.
と書くことが多く、
　COMPUTE R = FUNCTION MOD(A B).　或いは　MOVE FUNCTION MOD(A B) TO R.
と書くことはむしろ少ない。

94 ：仕様書無しさん：2019/04/29(月) 16:58:16.05 .net

そもそもの話、商が不要で余りだけが必要なケースはCOBOLのシステムでは無い
だが逆は普通にある

95 ：仕様書無しさん：2019/04/29(月) 18:02:48.31 .net

>>94
> 商が不要で余りだけが必要なケースはCOBOLのシステムでは無い
そうかな？　そんなこと無いと思うけど。

96 ：仕様書無しさん：2019/04/29(月) 21:22:07.61 .net

うるう年判定とか偶数・奇数判定ってCOBOLじゃあんまりやらないのかな。
特に後者は1行当たり2件分表示する形式の帳票を作るときに、
奇数なら左側、偶数なら右側に編集するとかありがちだと思うけど。
　IF (-1) ** N = 1
　　（偶数のときの処理）
　ELSE
　　（奇数のときの処理）
　END-IF.
でもいいけどね。

97 ：仕様書無しさん：2019/04/30(火) 01:25:28.19 .net

帳票は書式でそういう設定をするのが普通だし
閏年の処理は自分で作るべきではない

98 ：仕様書無しさん：2019/04/30(火) 09:25:05.96 .net

COBOLのコーディングで四捨五入や丸め処理で価を認めるのは見かけるけど、余りだけ求めるのは見たことがないな
どういう想定で必要なんだろうか

99 ：仕様書無しさん：2019/08/13(火) 19:50:18.57 .net

>>8
がっ！

100 ：仕様書無しさん：2019/08/13(火) 19:51:08.52 .net

六年越しでついに取ったよ

101 ：仕様書無しさん：2019/08/13(火) 21:50:35.99 .net

ﾇﾙﾎﾟ

102 ：仕様書無しさん：2019/10/26(土) 16:12:26.09 .net

うるう年判定は、テーブルかファイル参照してたかな？

103 ：仕様書無しさん：2019/10/26(土) 16:48:01.79 .net

EVALUATE TRUE
WHEN FUNCTION MOD(YEAR 4) = ZERO
　AND FUNCTION MOD(YEAR 100) NOT = ZERO
WHEN FUNCTION MOD(YEAR 400) = ZERO
　（閏年の場合の処理）
WHEN OTHER
　（平年の場合の処理）
END-EVALUATE.

でよくない？

104 ：仕様書無しさん：2019/10/26(土) 17:20:07.32 .net

まぁ、それをサブルーチンにしても良いけどね

105 ：仕様書無しさん：2019/10/27(日) 11:12:46.87 .net

highvalue lowvalueがnull相当だろ？