{"id":769,"date":"2018-10-14T12:00:57","date_gmt":"2018-10-14T03:00:57","guid":{"rendered":"https:\/\/www.bold.ne.jp\/engineer-club\/?p=769"},"modified":"2025-09-17T10:40:17","modified_gmt":"2025-09-17T01:40:17","slug":"cobol-evaluate","status":"publish","type":"post","link":"https:\/\/www.bold.ne.jp\/engineer-club\/cobol-evaluate","title":{"rendered":"COBOL\u306eEVALUATE\u3068\u306f\uff1f\u6761\u4ef6\u3067\u51e6\u7406\u3092\u5206\u5c90\u3055\u305b\u308bEVALUATE\u547d\u4ee4\u306e\u4f7f\u3044\u65b9"},"content":{"rendered":"<p>COBOL\u3067\u306f\u3001\u540c\u3058\u9805\u76ee\u5185\u306e\u5024\u3092\u6bd4\u8f03\u3057\u3066\u51e6\u7406\u3092\u5206\u5c90\u3055\u305b\u308b\u6642\u306b<span>EVALUATE<\/span>\u547d\u4ee4\u3092\u4f7f\u7528\u3057\u307e\u3059\u3002<\/p>\n<p>\u51e6\u7406\u306e\u5206\u5c90\u306f<span>IF<\/span>\u6587\u3067\u3082\u8a18\u8ff0\u3067\u304d\u307e\u3059\u304c\u3001<span>EVALUATE<\/span>\u547d\u4ee4\u3092\u4f7f\u7528\u3057\u305f\u65b9\u304c\u4ed6\u8005\u306b\u3082\u308f\u304b\u308a\u3084\u3059\u3044\u8a18\u8ff0\u306b\u306a\u308b\u5834\u5408\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n<p>\u4f7f\u7528\u4f8b\u3092\u3042\u3052\u306a\u304c\u3089\u3001<strong>EVALUATE\u547d\u4ee4\u3092\u4f7f\u3063\u305f\u51e6\u7406\u306e\u5206\u5c90\u65b9\u6cd5<\/strong>\u306b\u3064\u3044\u3066\u89e3\u8aac\u3057\u307e\u3059\u3002<\/p>\n<div id=\"toc_container\" class=\"no_bullets\"><p class=\"toc_title\">\u76ee\u6b21<\/p><ul class=\"toc_list\"><li><a href=\"#COBOLEVALUATE\">\uff11\uff0e\u3010COBOL\u3011EVALUATE\u547d\u4ee4\u306e\u57fa\u672c\u7684\u306a\u4f7f\u3044\u65b9<\/a><ul><li><a href=\"#-EVALUATE\">\uff11-\uff11\uff0eEVALUATE\u6587\u306e\u66f8\u5f0f<\/a><\/li><li><a href=\"#-EVALUATE-2\">\uff11-\uff12\uff0eEVALUATE\u6587\u306e\u4f7f\u7528\u4f8b<\/a><\/li><\/ul><\/li><li><a href=\"#COBOLEVALUATEIF\">\uff12\uff0e\u3010COBOL\u3011EVALUATE\u547d\u4ee4\u3068IF\u6587\u306e\u9055\u3044<\/a><\/li><li><a href=\"#COBOL\">\uff13\uff0e\u88dc\u8db3\uff1aCOBOL\u30b3\u30fc\u30c7\u30a3\u30f3\u30b0\u306e\u30eb\u30fc\u30eb<\/a><ul><li><a href=\"#i\">\uff13-\uff11\uff0e\u82f1\u5927\u6587\u5b57\u3068\u82f1\u5c0f\u6587\u5b57\u306e\u4f7f\u3044\u65b9<\/a><\/li><li><a href=\"#-COBOL\">\uff13-\uff13\uff0eCOBOL\u306f\uff14\u3064\u306e\u90e8\u304b\u3089\u3067\u304d\u3066\u3044\u308b<\/a><\/li><\/ul><\/li><\/ul><\/div>\n<h2><span id=\"COBOLEVALUATE\"><strong>\uff11\uff0e\u3010COBOL\u3011EVALUATE<\/strong><strong>\u547d\u4ee4\u306e\u57fa\u672c\u7684\u306a\u4f7f\u3044\u65b9<\/strong><\/span><\/h2>\n<p>EVALUATE\u6587\u306f\u6761\u4ef6\u5f0f\u306e\u3072\u3068\u3064\u3067\u3059\u3002<\/p>\n<p>\u8a55\u4fa1\u5224\u5b9a\u3059\u308b\u9805\u76ee\u306e\u5185\u5bb9\u306b\u3088\u3063\u3066\u300c\u25cb\u3060\u3063\u305f\u3089\uff21\u306e\u51e6\u7406\u300d\u300c\u25b3\u3060\u3063\u305f\u3089\uff22\u306e\u51e6\u7406\u300d\u306a\u3069\u3001\u591a\u5c90\u9078\u629e\u3092\u884c\u3046\u969b\u306b\u4f7f\u7528\u3057\u307e\u3059\u3002<\/p>\n<p>EVALUATE\u6587\u304c\u5b9f\u884c\u3055\u308c\u308b\u3068\u5148\u982d\u306e\u300c<span>WHEN<\/span>\u300d\u304b\u3089\u8a55\u4fa1\u304c\u884c\u308f\u308c\u3001\u6700\u521d\u306b\u4e00\u81f4\u3057\u305f<span>WHEN<\/span>\u3067\u6307\u5b9a\u3057\u3066\u3044\u308b\u547d\u4ee4\u6587\u304c\u5b9f\u884c\u3055\u308c\u307e\u3059\u3002<\/p>\n<p>\u3069\u306e<span>WHEN<\/span>\u306b\u3082\u8a72\u5f53\u3057\u306a\u3044\u5834\u5408\u306b\u306f\u3001\u300c<span>WHEN<\/span>\u3000<span>OTHER<\/span>\u300d\u306e\u6307\u5b9a\u304c\u3042\u308c\u3070\u3001\u305d\u306e\u547d\u4ee4\u6587\u304c\u5b9f\u884c\u3055\u308c\u307e\u3059\u3002<\/p>\n<h3><span id=\"-EVALUATE\"><strong>\uff11-\uff11\uff0eEVALUATE\u6587\u306e\u66f8\u5f0f<\/strong><\/span><\/h3>\n<pre class=\"prettyprint lang:default decode:true\">EVALUATE\u3000\uff1c\u8a55\u4fa1\u5bfe\u8c61\uff1e\u3000\r\nWHEN\u3000\uff1c\u5024\uff11\uff1e\r\n\u3000\u3000\u3000\uff1c\u5b9f\u884c\u3059\u308b\u547d\u4ee4\u6587\uff1e\r\nWHEN\u3000\uff1c\u5024\uff12\uff1e\r\n\u3000\u3000\u3000\uff1c\u5b9f\u884c\u3059\u308b\u547d\u4ee4\u6587\uff1e\r\nWHEN\u3000\uff1c\u5024\uff13\uff1e\r\n\u3000\u3000\u3000\uff1c\u5b9f\u884c\u3059\u308b\u547d\u4ee4\u6587\uff1e\r\nWHEN\u3000OTHER\r\n\u3000\u3000\u3000\uff1c\u5b9f\u884c\u3059\u308b\u547d\u4ee4\u6587\uff1e\r\nEND-EVALUATE.\r\n<\/pre>\n<p>\u203b<span>EVALUATE<\/span>\u3001\u8a55\u4fa1\u5bfe\u8c61\u3001<span>WHEN<\/span>\u306a\u3069\u306e\u5404\u8981\u7d20\u9593\u306e\u7a7a\u767d\u3084\u6539\u884c\u306e\u6709\u7121\u306f\u81ea\u7531\u3067\u3059\u3002<\/p>\n<p>\uff1c\u8a55\u4fa1\u5bfe\u8c61\uff1e\u306e\u90e8\u5206\u306f\u4ee5\u4e0b\u304c\u8a18\u8ff0\u3067\u304d\u307e\u3059\u3002<\/p>\n<ul>\n<li>\u4e00\u610f\u540d<\/li>\n<li>\u5b9a\u6570<\/li>\n<li>\u5f0f<\/li>\n<li><span>TRUE<\/span><\/li>\n<li><span>FALSE<\/span><\/li>\n<\/ul>\n<h3><span id=\"-EVALUATE-2\"><strong>\uff11-\uff12\uff0eEVALUATE\u6587\u306e\u4f7f\u7528\u4f8b<\/strong><\/span><\/h3>\n<p>\u203b\u300c<span>WRK-NUM<\/span>\u300d\u300c<span>S-NUM<\/span>\u300d\u306f<span>WORKING-STORAGE SECTION<\/span>\u3067\u8a18\u8ff0<\/p>\n<h4><span class=\"f-marker-p\">\u3010\u4f8b\uff11\u3011\u300c<span>WRK-NUM<\/span>\u300d\u306e\u5024\u304c<span>100<\/span>\u3060\u3063\u305f\u3089\u300c<span>S-SUM<\/span>\u300d\u3078\u5024\u3092\u4ee3\u5165\u3059\u308b<\/span><\/h4>\n<pre class=\"prettyprint lang:default decode:true\">EVALUATE\u3000WRK-NUM\u3000\r\n\u3000\u3000WHEN 100\r\n\u3000\u3000MOVE WRK-NUM TO S-NUM\r\n\u3000\u3000WHEN OTHER\r\n\u3000\u3000\u3000\u3000 CONTINUE\r\nEND-EVALUATE.<\/pre>\n<h4><span class=\"f-marker-p\">\u3010\u4f8b\uff12\u3011\u300c<span>WRK-NUM<\/span>\u300d\u306e\u5024\u304c<span>300<\/span>\u304b<span>500<\/span>\u3060\u3063\u305f\u3089\u300c<span>S-SUM<\/span>\u300d\u3078\u5024\u3092\u4ee3\u5165\u3059\u308b<\/span><\/h4>\n<pre class=\"prettyprint lang:default decode:true\">EVALUATE TRUE\r\n\u3000\u3000WHEN WRK-NUM = 300\r\n\u3000\u3000WHEN WRK-NUM = 500\r\n\u3000\u3000\u3000MOVE WRK-NUM TO S-NUM\r\n\u3000\u3000WHEN OTHER\r\n\u3000\u3000\u3000CONTINUE\r\nEND-EVALUATE.<\/pre>\n<h4><span class=\"f-marker-p\">\u3010\u4f8b\uff13\u3011\u8a55\u4fa1\u5bfe\u8c61\u304c\u8907\u6570\u3042\u308b\u5834\u5408\u3000\u300c<span>ALSO<\/span>\u300d\u3092\u4f7f\u7528\u3057\u3066\u8a18\u8ff0\u3059\u308b\uff08\u8a55\u4fa1\u57fa\u6e96\u306f\u300c\u304b\u3064\u300d\uff09<\/span><\/h4>\n<pre class=\"prettyprint lang:default decode:true\">EVALUATE WRK-NUM ALSO WRK-TOTAL\r\n\u3000\u3000WHEN 100 ALSO ANY\r\n\u3000\u3000\u3000\u3000\u3000MOVE WRK-NUM TO S-NUM\r\n\u3000\u3000WHEN 400 ALSO 3000 THRU 4000\u3000\u3000\u2190WRK-NUM\u304c400\u304b\u3064WRK-TOTAL\u304c3000\uff5e4000\u306e\u5834\u5408\r\n\u3000\u3000\u3000\u3000\u3000MOVE ZERO TO S-NUM\r\n\u3000\u3000WHEN OTHER\r\n\u3000\u3000\u3000\u3000\u3000CONTINUE\r\nEND-EVALUATE.<\/pre>\n<ul style=\"list-style-type: square;\">\n<li>\u300c<span>THRU<\/span>\u300d\u306f\u5024\u306e\u7bc4\u56f2\u6307\u5b9a<\/li>\n<li>\u300c<span>ANY<\/span>\u300d\u306f\u8a55\u4fa1\u3057\u306a\u3044\u5834\u5408\u306b\u8a18\u8ff0<\/li>\n<\/ul>\n<h2><span id=\"COBOLEVALUATEIF\"><strong>\uff12\uff0e<\/strong><strong>\u3010COBOL\u3011<\/strong><strong>EVALUATE<\/strong><strong>\u547d\u4ee4\u3068<span>IF<\/span>\u6587\u306e\u9055\u3044<\/strong><\/span><\/h2>\n<p>IF\u6587\u306f\u300c\u4f55\u304b\u3057\u3089\u306e\u6761\u4ef6\u304c\u6210\u308a\u7acb\u3063\u305f\u3068\u304d\u306b\u25cb\u25cb\u306e\u51e6\u7406\u3092\u5b9f\u884c\u3059\u308b\u300d\u3068\u3044\u3046\u3088\u3046\u306a\u5834\u5408\u306b\u4f7f\u7528\u3057\u307e\u3059\u3002<\/p>\n<p>\u6761\u4ef6\u5206\u5c90\u304c\u3067\u304d\u308b\u3068\u3044\u3046\u70b9\u3067\u306f\u540c\u3058\u3067\u3059\u304c\u3001<span>IF<\/span>\u6587\u306e\u4e2d\u3067\u3055\u3089\u306b<span>IF<\/span>\u6587\u306e\u5224\u5b9a\u304c\u5165\u308b\u3088\u3046\u306a\u30cd\u30b9\u30c8\uff08\u5165\u308c\u5b50\uff09\u304c\u591a\u304f\u306a\u308b\u5834\u5408\u306b\u306f<span>EVALUATE<\/span>\u6587\u3092\u4f7f\u7528\u3057\u307e\u3059\u3002<\/p>\n<p>\u4f8b\u3048\u3070\u300c<span>WRK-PEOPLE<\/span>\u300d\u300c<span>WRK-SEIBETSU<\/span>\u300d\u3068\u3044\u3046\uff12\u3064\u306e\u9805\u76ee\u306e\u5024\u3092\u8a55\u4fa1\u3057\u3066\u51e6\u7406\u3092\u5206\u5c90\u3055\u305b\u305f\u3044\u3068\u3057\u307e\u3059\u3002<\/p>\n<p>\u300c<span>WRK-SEIBETSU<\/span>\u300d\u306b\u306f<span>&#8220;<\/span>\u7537\u6027<span>&#8220;<\/span>\u3001<span>&#8220;<\/span>\u5973\u6027<span>&#8220;<\/span>\u304c\u5165\u529b\u3055\u308c\u307e\u3059\u304c\u3001<\/p>\n<p>\u300c<span>WRK-PEOPLE<\/span>\u300d\u306e\u5024\u304c<span>&#8220;<\/span>\u751f\u5f92<span>&#8220;<\/span>\u3001<span>&#8220;<\/span>\u5148\u751f<span>&#8220;<\/span>\u4ee5\u5916\u306e\u5834\u5408\u306f\u7a7a\u767d\u3067\u3059\u3002<\/p>\n<p>\u300c<span>WRK-PEOPLE<\/span>\u300d\u306b\u306f<span>&#8220;<\/span>\u5148\u751f<span>&#8220;<\/span>\u3001<span>&#8220;<\/span>\u751f\u5f92<span>&#8220;<\/span>\u3001<span>&#8220;<\/span>\u8b1b\u5e2b<span>&#8220;<\/span>\u3001\u3084\u3001\u4ed6\u306e\u5358\u8a9e\u3082\u5165\u529b\u3055\u308c\u308b\u5834\u5408\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n<p>\u305d\u308c\u305e\u308c\u306e\u4eba\u6570\u3092\u6570\u3048\u305f\u3044\u3068\u601d\u3044\u307e\u3059\u304c\u3001\u3053\u306e\u3088\u3046\u306b\u6761\u4ef6\u304c\u591a\u5c90\u306b\u5206\u5c90\u3059\u308b\u5834\u5408\u306f\u3001<span>IF<\/span>\u6587\u3067\u4f5c\u6210\u3059\u308b\u3088\u308a\u3082\u3001<span>EVALUATE<\/span>\u6587\u3092\u4f7f\u7528\u3059\u308b\u3068\u30b9\u30c3\u30ad\u30ea\u3057\u307e\u3059\u3002<\/p>\n<h4><span class=\"f-marker-y\">\u3010<span>IF<\/span>\u6587\u3067\u306e\u4f5c\u6210\u4f8b\u3011<\/span><\/h4>\n<pre class=\"prettyprint lang:default decode:true\">IF  WRK-PEOPLE  =  \"\u751f\u5f92\"\r\n    IF  WRK-SEIBETSU  =  \"\u7537\u6027\"\r\n        ADD  1  TO  WRK-CNT1\r\n    ELSE\r\n        ADD  1  TO  WRK-CNT2\r\n    END-IF\r\nELSE\r\n    IF  WRK-PEOPLE  =  \"\u5148\u751f\"\r\n        IF  WRK-SEIBETSU  =  \"\u7537\u6027\"\r\n        ADD  1  TO  WRK-CNT3\r\n        ELSE\r\n        ADD  1  TO  WRK-CNT4\r\n        END-IF\r\n    ELSE\r\n        IF  WRK-PEOPLE  =  \"\u8b1b\u5e2b\"\r\n            ADD  1  TO  WRK-CNT5\r\n        ELSE\r\n            ADD  1  TO  WRK-CNT6\r\n        END-IF\r\n    END-IF\r\nEND-IF.<\/pre>\n<h4><span class=\"f-marker-y\"><span class=\"f-marker-w\">\u3010<strong>EVALUATE\u6587\u3067\u306e\u4f5c\u6210\u4f8b\u3011<\/strong><\/span><br \/>\n<\/span><\/h4>\n<pre class=\"prettyprint lang:default decode:true\">EVALUATE  WRK-PEOPLE  ALSO  WRK-SEIBETSU\r\n    WHEN  \"\u751f\u5f92\"  ALSO  \"\u7537\u6027\"\r\n        ADD 1 TO WRK-CNT1\r\n    WHEN  \"\u751f\u5f92\"  ALSO  ANY\r\n        ADD  1  TO  WRK-CNT2\r\n    WHEN  \"\u5148\u751f\"  ALSO  \"\u7537\u6027\"\r\n        ADD  1  TO  WRK-CNT3\r\n    WHEN  \"\u5148\u751f\"  ALSO  ANY\r\n        ADD  1  TO  WRK-CNT4\r\n    WHEN  \"\u8b1b\u5e2b\"  ALSO  ANY\r\n        ADD  1  TO  WRK-CNT5\r\n    WHEN  OTHER\r\n        ADD  1  TO  WRK-CNT6\r\nEND-EVALUATE.<\/pre>\n<p>\u203b\u300c<span>WRK-PEOPLE<\/span>\u300d\u304c<span>&#8220;<\/span>\u751f\u5f92<span>&#8220;<\/span>\u3001<span>&#8220;<\/span>\u5148\u751f<span>&#8220;<\/span>\u306e\u5834\u5408\u306f\u300c<span>WRK-SEIBETSU<\/span>\u300d\u306b<span>&#8220;<\/span>\u7537\u6027<span>&#8220;<\/span>\u304b<span>&#8220;<\/span>\u5973\u6027<span>&#8220;<\/span>\u304c\u5fc5\u305a\u5165\u529b\u3055\u308c\u3066\u3044\u307e\u3059\u3002<\/p>\n<h2><span id=\"COBOL\"><strong>\uff13\uff0e\u88dc\u8db3\uff1a<span>COBOL<\/span>\u30b3\u30fc\u30c7\u30a3\u30f3\u30b0\u306e\u30eb\u30fc\u30eb<\/strong><\/span><\/h2>\n<h3><span id=\"i\"><strong>\uff13-\uff11\uff0e\u82f1\u5927\u6587\u5b57\u3068\u82f1\u5c0f\u6587\u5b57\u306e\u4f7f\u3044\u65b9<\/strong><\/span><\/h3>\n<p>COBOL\u306f\u5927\u6587\u5b57\u3001\u5c0f\u6587\u5b57\u306e\u3069\u3061\u3089\u3067\u8a18\u8ff0\u3057\u3066\u3082\u304b\u307e\u3044\u307e\u305b\u3093\u304c\u3001\u5c0f\u6587\u5b57\u306f\u5927\u6587\u5b57\u3068\u540c\u7b49\u306b\u6271\u308f\u308c\u307e\u3059\u306e\u3067\u3001\u300c<span>COBOL<\/span>\u306f\u5927\u6587\u5b57\u3067\u8a18\u8ff0\u300d\u3068\u899a\u3048\u3066\u3057\u307e\u3063\u3066\u3082\u5dee\u652f\u3048\u3042\u308a\u307e\u305b\u3093\u3002<\/p>\n<p>\u305f\u3060\u3057\u3001\u30b3\u30e1\u30f3\u30c8\u884c\u3001\u82f1\u6570\u5b57\u5b9a\u6570\u3001<span>PROGRAM-ID<\/span>\uff08\u30b3\u30f3\u30d1\u30a4\u30eb\u30aa\u30d7\u30b7\u30e7\u30f3\u306b\u3088\u308a\u540c\u7b49\u3068\u3059\u308b\u3053\u3068\u304c\u53ef\u80fd\uff09\u306f\u533a\u5225\u3055\u308c\u307e\u3059\u3002<\/p>\n<p><strong>\uff13\uff0d\uff12\u3000\u30b3\u30fc\u30c7\u30a3\u30f3\u30b0\u30d5\u30a9\u30fc\u30de\u30c3\u30c8<\/strong><\/p>\n<p>1\u884c\u306e\u8a18\u8ff0\u306f<span>80<\/span>\u6587\u5b57\u4ee5\u5185\u306b\u304a\u3055\u3081\u308b\u5fc5\u8981\u304c\u3042\u308a\u3001\u884c\u5185\u306f\u3044\u304f\u3064\u304b\u306e\u9818\u57df\u306b\u5206\u304b\u308c\u3066\u3044\u307e\u3059\u3002<\/p>\n<div class=\"attention a-1\">\n<p>\uff11\uff5e\uff16\u6587\u5b57\u3000\u3000\u3000\u30fb\u30fb\u30fb\u4e00\u9023\u756a\u53f7\u9818\u57df\u3000\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u884c\u756a\u53f7<\/p>\n<p>\uff17\u6587\u5b57\u76ee\u3000\u3000\u3000\u3000\u30fb\u30fb\u30fb\u6a19\u8b58\u9818\u57df\u3000\u305d\u306e\u884c\u306b\u4f55\u304c\u8a18\u8ff0\u3055\u308c\u3066\u3044\u308b\u306e\u304b\u3092\u793a\u3059<\/p>\n<p>\uff18\uff5e\uff11\uff11\u6587\u5b57\u3000\u3000\u30fb\u30fb\u30fb\uff21\u9818\u57df\u3000\u5404\u90e8\u306e\u958b\u59cb\u5ba3\u8a00\u3084\u30c7\u30fc\u30bf\u9805\u76ee\u306e\u30ec\u30d9\u30eb\u756a\u53f7\u3092\u8a18\u8ff0\u3059\u308b\u3002<\/p>\n<p>\uff11\uff12\uff5e\uff17\uff12\u6587\u5b57\u3000\u30fb\u30fb\u30fb\uff22\u9818\u57df\u3000\u547d\u4ee4\u6587\u3084\u4f5c\u696d\u9818\u57df\u306e\u30ec\u30d9\u30eb\u756a\u53f7\u3092\u8a18\u8ff0\u3059\u308b<\/p>\n<p>\uff17\uff13\uff5e\uff18\uff10\u6587\u5b57\u3000\u30fb\u30fb\u30fb\u898b\u51fa\u3057\u9818\u57df\u3000\u30b3\u30f3\u30d1\u30a4\u30eb\u5bfe\u8c61\u5916\u306e\u30b3\u30e1\u30f3\u30c8\u9818\u57df<\/p>\n<\/div>\n<p><a href=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2018\/10\/bae3d7fdbd449848d5da8c9d0ab26deb.png\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2018\/10\/bae3d7fdbd449848d5da8c9d0ab26deb.png\" alt=\"COBOL\u3000EVALUATE\u3092\u5fb9\u5e95\u89e3\u8aac\uff01\" width=\"676\" height=\"366\" class=\"alignnone size-full wp-image-771\" \/><\/a><\/p>\n<h3><span id=\"-COBOL\"><strong>\uff13-\uff13\uff0eCOBOL<\/strong><strong>\u306f\uff14\u3064\u306e\u90e8\u304b\u3089\u3067\u304d\u3066\u3044\u308b<\/strong><\/span><\/h3>\n<p>COBOL\u306b\u306f\uff14\u3064\u306e<span>DIVISION<\/span>\u3068\u547c\u3070\u308c\u308b\u533a\u5206\u3051\u304c\u3042\u308a\u307e\u3059\u3002\u3053\u306e\uff14\u3064\u306e<span>DIVISION<\/span>\uff08\u90e8\uff09\u306f\u5fc5\u305a\u8a18\u8ff0\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n<p>DIVISION\u306e\u4e2d\u306f\u3001\u3055\u3089\u306b<span>SECTION<\/span>\u306b\u7d30\u5206\u5316\u3055\u308c\u3066\u3044\u307e\u3059\u3002<\/p>\n<p>\u4e3b\u306a<span>DIVISION<\/span>\u3068<span>SECTION<\/span>\u3001\u8a18\u8ff0\u9805\u76ee\u3092\u4ee5\u4e0b\u306b\u307e\u3068\u3081\u307e\u3059\u3002<\/p>\n<h4><strong>\u2605<span>IDENTIFICATION<\/span>\u3000<span>DIVISION<\/span><\/strong>\uff08\u898b\u51fa\u3057\u90e8\uff09<\/h4>\n<ul>\n<li>PROGRAM-ID.\u3000\uff1c\u30d7\u30ed\u30b0\u30e9\u30e0\u540d\uff1e\uff0e<\/li>\n<li>AUTHOR \uff1c\u4f5c\u6210\u8005\uff1e\uff0e<\/li>\n<li>DATE-WRITTEN\u3000\uff1c\u4f5c\u6210\u65e5\uff1e\uff0e\u3000\u203b\u81ea\u52d5\u66f4\u65b0\u3055\u308c\u307e\u305b\u3093<\/li>\n<\/ul>\n<h4><strong>\u2605ENVIRONMENT<\/strong><strong>\u3000<span>DIVISION<\/span><\/strong>\u3000 \uff08\u74b0\u5883\u8a2d\u5b9a\u90e8\uff09<\/h4>\n<ul>\n<li>CONFIGURATION\u3000<span>SECTION<\/span>\uff0e<\/li>\n<li>SOURCE-COMPUTER\uff0e\u3000\uff1c\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u540d\uff1e\uff0e<\/li>\n<li>OBJECT-COMPUTER\uff0e\u3000\uff1c\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u540d\uff1e\uff0e<\/li>\n<li>INPUT-OUTPUT\u3000<span>SECTION<\/span>\uff0e<\/li>\n<li>FILE-CONTROL\uff0e<\/li>\n<\/ul>\n<h4><strong>\u2605DATA<\/strong><strong>\u3000<span>DIVISION<\/span><\/strong>\u3000\uff08\u30c7\u30fc\u30bf\u90e8\uff09<\/h4>\n<ul>\n<li>FILE SECTION\uff0e\u3000\u3000\u3000\u00a0 \u3000\u3000\u3000\u3000\uff08\u4f7f\u7528\u3059\u308b\u5165\u51fa\u529b\u30d5\u30a1\u30a4\u30eb\u306e\u30c7\u30fc\u30bf\u9805\u76ee\u306b\u3064\u3044\u3066\u5b9a\u7fa9\u3057\u307e\u3059\uff09<\/li>\n<li>WORKING-STORAGE\u3000<span>SECTION<\/span>\uff0e\uff08\u4e00\u6642\u7684\u306a\u30c7\u30fc\u30bf\u306e\u4fdd\u5b58\u5834\u6240\u306a\u3069\u3001\u4f5c\u696d\u9818\u57df\u3092\u5b9a\u7fa9\u3057\u307e\u3059\u3002\uff09<\/li>\n<li>LINKAGE\u3000<span>SECTION<\/span>\uff0e\u3000\u3000\u3000\u3000\u3000\uff08\u5916\u90e8\u30d7\u30ed\u30b0\u30e9\u30e0\u3068\u306e\u30c7\u30fc\u30bf\u306e\u3084\u308a\u3068\u308a\u306b\u95a2\u3059\u308b\u60c5\u5831\u3092\u5b9a\u7fa9\u3057\u307e\u3059\uff09<\/li>\n<\/ul>\n<h4><strong>\u2605<\/strong><strong>PROCEDURE<\/strong><strong>\u3000<span>DIVISION<\/span><\/strong>\u3000\uff08\u624b\u7d9a\u304d\u90e8\uff09<\/h4>\n<ul>\n<li>\u547d\u4ee4\u6587\u304c\u8a18\u8ff0\u3055\u308c\u308b\u305f\u3081\u3001<span>SECTION<\/span>\u306f\u3042\u308a\u307e\u305b\u3093\u3002<\/li>\n<\/ul>\n<p>\u4ee5\u4e0a\u3001<span>EVALUATE<\/span>\u6587\u306b\u3064\u3044\u3066\u306e\u57fa\u672c\u7684\u306a\u4f7f\u3044\u65b9\u3092\u307e\u3068\u3081\u307e\u3057\u305f\u3002<\/p>\n<p>\u6761\u4ef6\u5206\u5c90\u304c\u591a\u3044\u6642\u306f<span>EVALUATE<\/span>\u6587\u3092\u4f7f\u3046\u3001\u3068\u601d\u3063\u3066\u3044\u305f\u3060\u3051\u308c\u3070\u8ff7\u308f\u305a\u306b\u3059\u3080\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>COBOL\u3067\u306f\u3001\u540c\u3058\u9805\u76ee\u5185\u306e\u5024\u3092\u6bd4\u8f03\u3057\u3066\u51e6\u7406\u3092\u5206\u5c90\u3055\u305b\u308b\u6642\u306bEVALUATE\u547d\u4ee4\u3092\u4f7f\u7528\u3057\u307e\u3059\u3002 \u51e6\u7406\u306e\u5206\u5c90\u306fIF\u6587\u3067\u3082\u8a18\u8ff0\u3067\u304d\u307e\u3059\u304c\u3001EVALUATE\u547d\u4ee4\u3092\u4f7f\u7528\u3057\u305f\u65b9\u304c\u4ed6\u8005\u306b\u3082\u308f\u304b\u308a\u3084\u3059\u3044\u8a18\u8ff0\u306b\u306a\u308b\u5834\u5408\u304c\u3042\u308a\u307e\u3059\u3002 \u4f7f\u7528 [&hellip;]<\/p>\n","protected":false},"author":10,"featured_media":772,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[15],"acf":[],"_links":{"self":[{"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/posts\/769"}],"collection":[{"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/users\/10"}],"replies":[{"embeddable":true,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/comments?post=769"}],"version-history":[{"count":12,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/posts\/769\/revisions"}],"predecessor-version":[{"id":5675,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/posts\/769\/revisions\/5675"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/media\/772"}],"wp:attachment":[{"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/media?parent=769"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/categories?post=769"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}