{"id":1079,"date":"2018-12-04T12:00:45","date_gmt":"2018-12-04T03:00:45","guid":{"rendered":"https:\/\/www.bold.ne.jp\/engineer-club\/?p=1079"},"modified":"2025-09-17T14:00:06","modified_gmt":"2025-09-17T05:00:06","slug":"cobol-perform","status":"publish","type":"post","link":"https:\/\/www.bold.ne.jp\/engineer-club\/cobol-perform","title":{"rendered":"COBOL\u306ePERFORM\u547d\u4ee4\u3068\u306f\uff1f\u51e6\u7406\u3092\u547c\u3073\u51fa\u3059\u30fb\u7e70\u308a\u8fd4\u3059\u305f\u3081\u306ePERFORM\u306e\u4f7f\u3044\u65b9"},"content":{"rendered":"<p>COBOL\u3067\u306f\u3001<span>PERFORM<\/span>\u3068\u3044\u3046\u547d\u4ee4\u6587\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n<p>\u30d7\u30ed\u30b0\u30e9\u30e0\u5185\u3067\u3001\u3042\u308b\u51e6\u7406\u3092\u7e70\u308a\u8fd4\u3057\u5b9f\u884c\u3055\u305b\u305f\u3044\u3068\u304d\u306b\u4f7f\u7528\u3057\u307e\u3059\u304c\u3001\u7e70\u308a\u8fd4\u3057\u306e\u56de\u6570\u3084\u7d42\u4e86\u6761\u4ef6\u3092\u6307\u5b9a\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n<p>\u4f7f\u7528\u4f8b\u3092\u3042\u3052\u306a\u304c\u3089\u3001<span style=\"text-decoration: underline;\">PERFORM\u547d\u4ee4\u3092\u4f7f\u3063\u305f\u8a18\u8ff0\u65b9\u6cd5\u306b\u3064\u3044\u3066<\/span>\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=\"#COBOLPERFORM\">\uff11\uff0e\u3010COBOL\u3011PERFORM\u547d\u4ee4\u306e\u57fa\u672c\u7684\u306a\u4f7f\u3044\u65b9<\/a><ul><li><a href=\"#-PERFORM\">\uff11-\uff11\uff0ePERFORM\u547d\u4ee4\u306e\u66f8\u5f0f<\/a><\/li><li><a href=\"#-PERFORM-2\">\uff11-\uff12\uff0ePERFORM\u547d\u4ee4\u306e\u4f7f\u7528\u4f8b<\/a><\/li><\/ul><\/li><li><a href=\"#COBOLPERFORMGO_TO\">\uff12\uff0e\u3010COBOL\u3011PERFORM\u547d\u4ee4\u3068GO TO\u547d\u4ee4\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><li><a href=\"#i-2\">\uff14\uff0e\u6700\u5f8c\u306b<\/a><\/li><\/ul><\/div>\n<h2><span id=\"COBOLPERFORM\">\uff11\uff0e\u3010COBOL\u3011PERFORM\u547d\u4ee4\u306e\u57fa\u672c\u7684\u306a\u4f7f\u3044\u65b9<\/span><\/h2>\n<p>PERFORM\u547d\u4ee4\u306b\u306f\u3001\u4e3b\u306b\u4ee5\u4e0b\u306e<span>2<\/span>\u3064\u306e\u4f7f\u3044\u65b9\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n<ol style=\"list-style-type: upper-alpha;\">\n<li>\u30b5\u30d6\u30eb\u30fc\u30c1\u30f3\uff08\u51e6\u7406\u306e\u307e\u3068\u307e\u308a\uff09\u306e\u547c\u3073\u51fa\u3057<\/li>\n<li>\u3042\u308b\u6761\u4ef6\u3092\u6e80\u305f\u3059\u307e\u3067\u3001\u51e6\u7406\u3092\u7e70\u308a\u8fd4\u3059\uff08\u56de\u6570\u3001\u307e\u305f\u306f\u7d42\u4e86\u6761\u4ef6\uff09<\/li>\n<\/ol>\n<p>A\u3067\u306f\u3001\u547c\u3073\u51fa\u3057\u305f\u30b5\u30d6\u30eb\u30fc\u30c1\u30f3\u3092\uff11\u56de\u5b9f\u884c\u3057\u305f\u3089\u3001<span>PERFORM<\/span>\u547d\u4ee4\u8a18\u8ff0\u884c\u304b\u3089\u6b21\u306e\u884c\u3078\u51e6\u7406\u304c\u9032\u307f\u307e\u3059\u3002<\/p>\n<p>B\u306e\u5834\u5408\u306f\u3001\u6307\u5b9a\u306e\u56de\u6570\u3084\u7d42\u4e86\u6761\u4ef6\u3092\u6e80\u305f\u3059\u307e\u3067\u3001\u51e6\u7406\u3092\u7e70\u308a\u8fd4\u3057\u3066\u304b\u3089\u6b21\u306e\u884c\u3078\u51e6\u7406\u304c\u9032\u307f\u307e\u3059\u3002<\/p>\n<h3><span id=\"-PERFORM\">\uff11-\uff11\uff0ePERFORM\u547d\u4ee4\u306e\u66f8\u5f0f<\/span><\/h3>\n<p>\u4ee5\u4e0b\u306e\u66f8\u5f0f\u3067\u8a18\u8ff0\u3057\u307e\u3059\u3002<\/p>\n<div class=\"attention a-3\">\n<p class=\"attention-title\">\u2460\u30b5\u30d6\u30eb\u30fc\u30c1\u30f3\u306e\u547c\u3073\u51fa\u3057<\/p>\n<p>PERFORM\u00a0\u00a0\u00a0\u00a0 \uff1c\u624b\u7d9a\u304d\u540d\uff1e<\/p>\n<p>\uff1c\u624b\u7d9a\u304d\u540d\uff1e\u3067\u8a18\u8ff0\u3055\u308c\u305f\u51e6\u7406\u3092<span>1<\/span>\u56de\u5b9f\u884c\u3057\u307e\u3059\u3002<\/p>\n<\/div>\n<div class=\"attention a-3\">\n<p class=\"attention-title\">\u2461\u3042\u308b\u7d42\u4e86\u6761\u4ef6\u3092\u6e80\u305f\u3059\u307e\u3067\u7e70\u308a\u8fd4\u3059\uff08<span>UNTIL<\/span>\u306e\u4f7f\u7528\uff09<\/p>\n<p>PERFORM\u00a0\u00a0\u00a0\u00a0 \uff1c\u624b\u7d9a\u304d\u540d\uff1e<span>\u00a0\u00a0\u00a0\u00a0 UNTIL\u00a0\u00a0 <\/span>\uff1c\u7d42\u4e86\u6761\u4ef6\uff1e<\/p>\n<p>\u4f8b\uff1a<span>PERFORM\u00a0\u00a0\u00a0\u00a0 <\/span>\uff1c\u624b\u7d9a\u304d\u540d\uff1e<span>\u00a0\u00a0\u00a0\u00a0 UNTIL\u00a0\u00a0 END-FLG = &#8220;END&#8221;<\/span><\/p>\n<p>\uff1c\u624b\u7d9a\u304d\u540d\uff1e\u3067\u8a18\u8ff0\u3055\u308c\u305f\u51e6\u7406\u3092\u300c<span>END-FLG<\/span>\u300d\u306b\u300c<span>END<\/span>\u300d\u304c\u5165\u529b\u3055\u308c\u308b\u307e\u3067\u7e70\u308a\u8fd4\u3057\u307e\u3059\u3002<\/p>\n<\/div>\n<div class=\"attention a-3\">\n<p class=\"attention-title\">\u2462\u3042\u308b\u7d42\u4e86\u6761\u4ef6\u3092\u6e80\u305f\u3059\u307e\u3067\u7e70\u308a\u8fd4\u3059\uff08<span>VARYING<\/span>\u306e\u4f7f\u7528\uff09<\/p>\n<p>PERFORM\u00a0\u00a0\u00a0\u00a0 VARYING\u00a0\u00a0 CNT\u00a0 FROM\u00a0 \uff1c\u521d\u671f\u5024\uff1e <span>\u00a0BY\u00a0 <\/span>\uff1c\u5897\u5206\u5024\uff1e \u00a0<span>UNTIL\u00a0 <\/span>\uff1c\u7d42\u4e86\u6761\u4ef6\uff1e<\/p>\n<p>\u4f8b\uff1a<span>PERFORM\u00a0\u00a0 VARYING\u00a0\u00a0 CNT\u00a0 FROM\u00a0 1\u00a0 BY\u00a0 1\u00a0 UNTIL\u00a0 CNT\u00a0 =\u00a0 100<\/span><\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ADD\u00a0 3\u00a0 TO\u00a0 WRK-NUM<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0 END-PERFORM.<\/p>\n<p>\u300c<span>CNT<\/span>\u300d\u306e\u5024\u304c<span>100<\/span>\u306b\u306a\u308b\u307e\u3067\u300c<span>WRK-NUM<\/span>\u300d\u306b<span>3<\/span>\u3092\u8db3\u3059\u51e6\u7406\u3092\u7e70\u308a\u8fd4\u3057\u307e\u3059\u3002<\/p>\n<p>\u300c<span>ADD\u00a0 3\u00a0 TO\u00a0 WRK-NUM<\/span>\u300d\u3092\uff11\u56de\u5b9f\u884c\u3059\u308b\u3068\u300c<span>CNT<\/span>\u300d\u306e\u5024\u304c<span>1<\/span>\u5897\u3048\u307e\u3059\u3002<\/p>\n<\/div>\n<div class=\"attention a-3\">\n<p class=\"attention-title\">\u2463\u3042\u308b\u7d42\u4e86\u6761\u4ef6\u3092\u6e80\u305f\u3059\u307e\u3067\u7e70\u308a\u8fd4\u3059\uff08\u56de\u6570\u3092\u6307\u5b9a\uff09<\/p>\n<p>PERFORM\u00a0\u00a0\u00a0\u00a0 \uff1c\u7e70\u308a\u8fd4\u3059\u56de\u6570\uff1e<span>\u00a0\u00a0 TIMES<\/span><\/p>\n<p>\u4f8b\uff1a<span>PERFORM\u00a0\u00a0 5\u00a0\u00a0 TIMES<\/span><\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ADD\u00a0 3\u00a0 TO\u00a0 WRK-NUM<\/p>\n<p>\u00a0\u00a0\u00a0\u00a0\u00a0 END-PERFORM.<\/p>\n<p>\uff15\u56de\u7e70\u308a\u8fd4\u3057\u307e\u3059\u3002<\/p>\n<\/div>\n<p>\u203b\uff1c\u624b\u7d9a\u304d\u540d\uff1e\u306b\u76f8\u5f53\u3059\u308b\u306e\u306f\u3001\u7bc0\u540d\u3068\u6bb5\u843d\u540d\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n<h3><span id=\"-PERFORM-2\">\uff11-\uff12\uff0ePERFORM\u547d\u4ee4\u306e\u4f7f\u7528\u4f8b<\/span><\/h3>\n<p>\u203b\u300c<span>WRK-NAME<\/span>\u300d\u300c<span>END-FLG<\/span>\u300d\u300c<span>CNT<\/span>\u300d\u306f<span>WORKING-STORAGE SECTION<\/span>\u3067\u8a18\u8ff0<\/p>\n<pre class=\"prettyprint lang:default decode:true\">PROCEDURE            DIVISION.\r\nPERFORM INIT001-PROC.   \u3000\u3000\u3000\u3000\u3000\u2190\uff11\uff0d\uff11\u2460\u306e\u4f8b\r\n*\r\nPERFORM EDT001-PROC  UNTIL   END-FLG = \"END\"\u3000\u3000\u3000\u3000\u3000\u2190\uff11\uff0d\uff11\u2461\u306e\u4f8b\r\n*\r\nDISPLAY \"COUNT END\" UPON CONSOLE.\r\n*\r\nPERFORM   VARYING   CNT  FROM  1  BY  1  UNTIL  CNT  =  100\u3000\u3000\u3000\u2190\uff11\uff0d\uff11\u2462\u306e\u4f8b\r\n            ADD  3  TO  WRK-NUM\r\n END-PERFORM.\r\n*\r\nSTOP RUN. \r\n*****************************************\r\n*\u521d\u671f\u51e6\u7406\r\n*****************************************\r\nINIT001-PROC     SECTION.\r\n*\r\nMOVE SPACE TO END-FLG.\r\nMOVE SPACE TO WRK-NAME.\r\n*\r\nOPEN  INPUT  IN-FILE.\r\nINIT001-PROC-EXIT.\r\nEXIT.\r\n*****************************************\r\n*\u7de8\u96c6\u305d\u306e\uff11\r\n*****************************************\r\nEDT001-PROC     SECTION.\r\nREAD  IN-FILE\r\n  AT   END  \r\n           MOVE  \"END\"  TO  END-FLG\r\n  NOT  AT  END  \r\n           MOVE  SYOHINMEI  TO  WRK-NAME\r\nPERFORM  EDT002-PROC\r\nEND-READ.\r\n*\r\nEDT001-PROC-EXIT.\r\nEXIT.\r\n*<\/pre>\n<p>\u203b\u300c<span>SECTION<\/span>\u300d\u306f\u7bc0\u306e\u898b\u51fa\u3057\u3092\u5b9a\u7fa9\u3059\u308b\u3082\u306e\u3067\u3059\u3002<\/p>\n<p>PROCEDURE DIVISION\uff08\u624b\u7d9a\u304d\u90e8\uff09\u3067<span>A<\/span>\u9818\u57df\u304b\u3089\u8a18\u8ff0\u3055\u308c\u305f\u540d\u524d\u304c\u7bc0\u540d\u307e\u305f\u306f\u6bb5\u843d\u540d\u3068\u307f\u306a\u3055\u308c\u3001<span>SECTION<\/span>\u3092\u4f34\u3046\u3082\u306e\u304c\u7bc0\u3001<span>SECTION<\/span>\u306e\u306a\u3044\u3082\u306e\u304c\u6bb5\u843d\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>\u7bc0\u3084\u6bb5\u843d\u306f\u3001\u30d7\u30ed\u30b0\u30e9\u30e0\u4f5c\u6210\u8005\u304c\u5fc5\u8981\u306b\u5fdc\u3058\u3066\u4f5c\u308a\u307e\u3059\u3002<\/p>\n<h2><span id=\"COBOLPERFORMGO_TO\">\uff12\uff0e\u3010COBOL\u3011PERFORM\u547d\u4ee4\u3068GO TO\u547d\u4ee4\u306e\u9055\u3044<\/span><\/h2>\n<p>PERFORM\u547d\u4ee4\u306f\u3001\u305d\u308c\u304c\u8a18\u8ff0\u3055\u308c\u305f\u884c\u3092\u5b9f\u884c\u3057\u305f\u5f8c\u306b\u3001\u6b21\u306e\u884c\u304b\u3089\u51e6\u7406\u3092\u7d9a\u3051\u307e\u3059\u304c\u3001<span>GO TO<\/span>\u547d\u4ee4\u306f\u6307\u5b9a\u3055\u308c\u305f\u6bb5\u843d\u306b\u30b8\u30e3\u30f3\u30d7\u3057\u3001<span>GO TO<\/span>\u547d\u4ee4\u304c\u8a18\u8ff0\u3055\u308c\u305f\u884c\u306b\u306f\u623b\u3063\u3066\u304d\u307e\u305b\u3093\u3002<\/p>\n<p>\u5177\u4f53\u4f8b\u3092\u898b\u3066\u307f\u307e\u3057\u3087\u3046\u3002<\/p>\n<h4><strong><span class=\"f-marker-p\">\u3010PERFORM\u547d\u4ee4\u306e\u5b9f\u884c\u9806\u3011<\/span><\/strong><\/h4>\n<pre class=\"prettyprint lang:default decode:true\">PROCEDURE            DIVISION.\r\nPERFORM COUNT-PROC.   \u2460\r\nDISPLAY \"COUNT END\" UPON CONSOLE.   \u2461\r\nSTOP RUN.   \u2462<\/pre>\n<p>\u898b\u305f\u76ee\u305d\u306e\u307e\u307e\u2460\u2192\u2461\u2192\u2462\u3001\u306e\u9806\u306b\u547d\u4ee4\u304c\u5b9f\u884c\u3055\u308c\u307e\u3059\u3002<\/p>\n<h4><span class=\"f-marker-y\"><strong>\u3010<span>GO TO<\/span>\u547d\u4ee4\u306e\u5b9f\u884c\u9806\u3011<\/strong><\/span><\/h4>\n<pre class=\"prettyprint lang:default decode:true\">PROCEDURE            DIVISION.\r\nPERFORM COUNT-PROC.   \u2460\r\nGO TO EDIT-001.   \u2461\r\nDISPLAY \"COUNT END\" UPON CONSOLE.   \u2462\r\nADD  1  TO  WRK-CNT.    \u2463\r\n\u3000\u30fb\r\n\u3000\u30fb\r\n\u3000\u30fb\r\nSTOP RUN. <\/pre>\n<p>\u2460\u2192\u2461\u3068\u9032\u307f\u3001\u2461\u3067\u3001\u6bb5\u843d\u300c<span>EDIT-001<\/span>\u300d\u3078\u30b8\u30e3\u30f3\u30d7\u3057\u307e\u3059\u306e\u3067\u3001\u2462\u3001\u2463\u306f\u5b9f\u884c\u3055\u308c\u307e\u305b\u3093\u3002<\/p>\n<p>\u203b<span>GO TO<\/span>\u547d\u4ee4\u306f\u591a\u7528\u3059\u308b\u3068\u5168\u4f53\u7684\u306a\u6d41\u308c\u304c\u628a\u63e1\u3057\u306b\u304f\u304f\u306a\u308a\u307e\u3059\u306e\u3067\u3001\u4f7f\u7528\u306f\u6700\u5c0f\u9650\u306b\u3068\u3069\u3081\u307e\u3057\u3087\u3046\u3002<\/p>\n<h2><span id=\"COBOL\">\uff13\uff0e\u88dc\u8db3\uff1aCOBOL\u30b3\u30fc\u30c7\u30a3\u30f3\u30b0\u306e\u30eb\u30fc\u30eb<\/span><\/h2>\n<h3><span id=\"i\">\uff13-\uff11\uff0e\u82f1\u5927\u6587\u5b57\u3068\u82f1\u5c0f\u6587\u5b57\u306e\u4f7f\u3044\u65b9<\/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\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>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<blockquote>\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<\/blockquote>\n<p><a href=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2018\/12\/55346215fbf4e99f63e7ec8f7111ef83.png\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/www.bold.ne.jp\/engineer-club\/wp-content\/uploads\/2018\/12\/55346215fbf4e99f63e7ec8f7111ef83.png\" alt=\"PERFORM\u306b\u3064\u3044\u3066\u89e3\u8aac\uff01\" width=\"676\" height=\"366\" class=\"alignnone size-full wp-image-1082\" \/><\/a><\/p>\n<h3><span id=\"-COBOL\">\uff13-\uff13\uff0eCOBOL\u306f\uff14\u3064\u306e\u90e8\u304b\u3089\u3067\u304d\u3066\u3044\u308b<\/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<div class=\"attention a-3\">\n<p class=\"attention-title\" style=\"text-align: left;\">IDENTIFICATION\u3000DIVISION\uff08\u898b\u51fa\u3057\u90e8\uff09<\/p>\n<ul>\n<li>PROGRAM-ID.\u3000\uff1c\u30d7\u30ed\u30b0\u30e9\u30e0\u540d\uff1e\uff0e<\/li>\n<li>\n<p>AUTHOR \uff1c\u4f5c\u6210\u8005\uff1e\uff0e<\/p>\n<\/li>\n<li>DATE-WRITTEN\u3000\uff1c\u4f5c\u6210\u65e5\uff1e\uff0e\u3000\u203b\u65e5\u4ed8\u306f\u81ea\u52d5\u66f4\u65b0\u3055\u308c\u307e\u305b\u3093<\/li>\n<\/ul>\n<\/div>\n<div class=\"attention a-3\">\n<p class=\"attention-title\" style=\"text-align: left;\">ENVIRONMENT\u3000DIVISION\u3000 \uff08\u74b0\u5883\u8a2d\u5b9a\u90e8\uff09<\/p>\n<ul>\n<li>\n<p>CONGIFURATION\u3000<span>SECTION<\/span>\uff0e<\/p>\n<\/li>\n<li>\n<p>SOURCE-COMPUTER\uff0e\u3000\uff1c\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u540d\uff1e\uff0e<\/p>\n<\/li>\n<li>\n<p>OBJECT-COMPUTER\uff0e\u3000\uff1c\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u540d\uff1e\uff0e<\/p>\n<\/li>\n<li>\n<p>INPUT-OUTPUT\u3000<span>SECTION<\/span>\uff0e<\/p>\n<\/li>\n<li>FILE-CONTROL\uff0e<\/li>\n<\/ul>\n<\/div>\n<div class=\"attention a-3\">\n<p class=\"attention-title\">DATA\u3000DIVISION\uff08\u30c7\u30fc\u30bf\u90e8\uff09\u203b\u30d5\u30e9\u30b0\u3084\u30ab\u30a6\u30f3\u30bf\u30fc\u306a\u3069\u306fWORKING-STORAGE\u3000SECTION\uff0e\u306b\u8a18\u8ff0<\/p>\n<ul>\n<li>\n<p>FILE SECTION\uff0e\u3000\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<\/p>\n<\/li>\n<li>\n<p>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<\/p>\n<\/li>\n<li>\n<p>LINKAGE\u3000<span>SECTION<\/span>\uff0e\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<\/p>\n<\/li>\n<\/ul>\n<\/div>\n<div class=\"attention a-3\">\n<p class=\"attention-title\" style=\"text-align: left;\">PROCEDURE\u3000DIVISION\uff08\u624b\u7d9a\u304d\u90e8\uff09\u3000\u203bPERFORM\u547d\u4ee4\u306f\u3053\u3053\u3067\u4f7f\u7528\u3057\u307e\u3059\u3002<\/p>\n<ul>\n<li>\u547d\u4ee4\u6587\u304c\u8a18\u8ff0\u3055\u308c\u308b\u305f\u3081\u3001\u898f\u5b9a\u306e<span>SECTION<\/span>\u306f\u3042\u308a\u307e\u305b\u3093\u3002<\/li>\n<\/ul>\n<\/div>\n<h2><span id=\"i-2\">\uff14\uff0e\u6700\u5f8c\u306b<\/span><\/h2>\n<p>\u4ee5\u4e0a\u3001<span>PERFORM<\/span>\u547d\u4ee4\u306b\u3064\u3044\u3066\u306e\u57fa\u672c\u7684\u306a\u4f7f\u3044\u65b9\u3092\u307e\u3068\u3081\u307e\u3057\u305f\u3002<\/p>\n<p>\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u4f5c\u6210\u3059\u308b\u969b\u306b\u3001\u95a2\u9023\u3059\u308b\u51e6\u7406\u3084\u6a5f\u80fd\u3054\u3068\u306a\u3069\u3001\u307e\u3068\u307e\u3063\u305f\u51e6\u7406\u3092\u30b5\u30d6\u30eb\u30fc\u30c1\u30f3\u3068\u3057\u3066\u5c0f\u5206\u3051\u306b\u3057\u3001\u305d\u308c\u3089\u3092\u7d44\u307f\u5408\u308f\u305b\u3066\u5168\u4f53\u3092\u4f5c\u308a\u4e0a\u3052\u3066\u3044\u304f\u3068\u3001\u898b\u76f4\u3059\u969b\u306b\u3082\u5168\u4f53\u50cf\u3092\u3064\u304b\u307f\u3084\u3059\u304f\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>PERFORM\u547d\u4ee4\u3092\u4f7f\u7528\u3059\u308b\u3053\u3068\u3067\u3001\u305d\u306e\u51e6\u7406\u306e\u7e70\u308a\u8fd4\u3057\u56de\u6570\u3084\u7d42\u4e86\u6761\u4ef6\u3082\u6307\u5b9a\u3057\u3084\u3059\u304f\u3001\u308f\u304b\u308a\u3084\u3059\u304f\u306a\u308a\u307e\u3059\u306e\u3067\u3001\u662f\u975e\u4f7f\u7528\u65b9\u6cd5\u3092\u899a\u3048\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>COBOL\u3067\u306f\u3001PERFORM\u3068\u3044\u3046\u547d\u4ee4\u6587\u304c\u3042\u308a\u307e\u3059\u3002 \u30d7\u30ed\u30b0\u30e9\u30e0\u5185\u3067\u3001\u3042\u308b\u51e6\u7406\u3092\u7e70\u308a\u8fd4\u3057\u5b9f\u884c\u3055\u305b\u305f\u3044\u3068\u304d\u306b\u4f7f\u7528\u3057\u307e\u3059\u304c\u3001\u7e70\u308a\u8fd4\u3057\u306e\u56de\u6570\u3084\u7d42\u4e86\u6761\u4ef6\u3092\u6307\u5b9a\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002 \u4f7f\u7528\u4f8b\u3092\u3042\u3052\u306a\u304c\u3089\u3001PERFORM\u547d\u4ee4\u3092\u4f7f\u3063\u305f [&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\/1079"}],"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=1079"}],"version-history":[{"count":11,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/posts\/1079\/revisions"}],"predecessor-version":[{"id":5710,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/posts\/1079\/revisions\/5710"}],"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=1079"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.bold.ne.jp\/engineer-club\/wp-json\/wp\/v2\/categories?post=1079"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}