{"id":2212,"date":"2012-11-13T20:27:14","date_gmt":"2012-11-13T11:27:14","guid":{"rendered":"http:\/\/www.lancard.com\/blog\/?p=2212"},"modified":"2025-03-12T11:29:20","modified_gmt":"2025-03-12T02:29:20","slug":"opencobol%e3%81%a8special-names%ef%bc%88%e6%8b%a1%e5%bc%b5%ef%bc%89","status":"publish","type":"post","link":"https:\/\/www.lancard.com\/blog\/2012\/11\/13\/opencobol%e3%81%a8special-names%ef%bc%88%e6%8b%a1%e5%bc%b5%ef%bc%89\/","title":{"rendered":"OpenCOBOL\u3068SPECIAL-NAMES\uff08\u62e1\u5f35\uff09"},"content":{"rendered":"<p>JCL\u304b\u3089COBOL\u3092\u547c\u3073\u51fa\u3059\u969b\u306b\u5916\u90e8\u30d1\u30e9\u30e1\u30fc\u30bf\u3092\u6e21\u3057\u305f\u3044\u3068\u3044\u3046\u3053\u3068\u304c\u3042\u308a\u307e\u3059\u3002\u67d0\u793eJCL\u3067\u306f<\/p>\n<pre>\r\n\\DCV  ACCEPT2,CHARACTER='04' ;\r\n<\/pre>\n<p>\u306a\u3069DCV\u3068\u3044\u3046\u30b3\u30de\u30f3\u30c9\u3067\u5b9a\u7fa9\u3057\u3066\u3001\u3053\u308c\u3092COBOL\u5074\u3067\u306f<\/p>\n<pre lang=\"COBOL\">\r\n       SPECIAL-NAMES.\r\n           CHAR002  IS  ACCEPT2.\r\n<\/pre>\n<p>\u306e\u3088\u3046\u306b\u8a18\u8ff0\u3057\u3066\u53d6\u308a\u8fbc\u3093\u3067\u3044\u308b\u3088\u3046\u3067\u3059\uff08\u3053\u306e\u5834\u5408CHAR002\u306b&#8217;04&#8217;\u304c\u5165\u308a\u307e\u3059\uff09\u3002<br \/>\n\u3068\u3053\u308d\u304c\u3082\u3061\u308d\u3093OpenCOBOL\u306b\u306f\u3053\u306e\u3088\u3046\u306a\u6a5f\u80fd\u306f\u3042\u308a\u307e\u305b\u3093\u3002\u5b9f\u969b SPECIAL-NAMES. \u90e8\u5206\u306e\u5b9a\u7fa9\u3092cobc\/parser.y\u304b\u3089\u62fe\u3044\u4e0a\u3052\u308b\u3068\uff1a<\/p>\n<pre lang=\"bison\">special_name:\r\n  mnemonic_name_clause\r\n| alphabet_name_clause\r\n| symbolic_characters_clause\r\n| locale_clause\r\n| class_name_clause\r\n| currency_sign_clause\r\n| decimal_point_clause\r\n| cursor_clause\r\n| crt_status_clause\r\n| screen_control\r\n| event_status\r\n;<\/pre>\n<p>\u3068\u306a\u3063\u3066\u304a\u308a\u3001mnemonic_name_clause \u90e8\u5206\u304c\u4f7f\u3048\u305d\u3046\u306a\u306e\u3067\u3059\u304c\u3001system_name\u3068\u3057\u3066\u4f7f\u7528\u3067\u304d\u308b\u306e\u306f<\/p>\n<pre lang=\"C\">\r\n} system_table[] = {\r\n  {\"SYSIN\",     CB_DEVICE_NAME,  CB_DEVICE_SYSIN, NULL},\r\n  {\"SYSIPT\",        CB_DEVICE_NAME,  CB_DEVICE_SYSIN, NULL},\r\n  {\"SYSOUT\",        CB_DEVICE_NAME,  CB_DEVICE_SYSOUT, NULL},\r\n  {\"SYSLIST\",       CB_DEVICE_NAME,  CB_DEVICE_SYSOUT, NULL},\r\n  {\"SYSLST\",        CB_DEVICE_NAME,  CB_DEVICE_SYSOUT, NULL},\r\n  {\"PRINTER\",       CB_DEVICE_NAME,  CB_DEVICE_SYSOUT, NULL},\r\n  {\"SYSERR\",        CB_DEVICE_NAME,  CB_DEVICE_SYSERR, NULL},\r\n  {\"CONSOLE\",       CB_DEVICE_NAME,  CB_DEVICE_CONSOLE, NULL},\r\n  {\"C01\",       CB_FEATURE_NAME, CB_FEATURE_C01, NULL},\r\n  {\"C02\",       CB_FEATURE_NAME, CB_FEATURE_C02, NULL},\r\n  {\"C03\",       CB_FEATURE_NAME, CB_FEATURE_C03, NULL},\r\n  {\"C04\",       CB_FEATURE_NAME, CB_FEATURE_C04, NULL},\r\n  {\"C05\",       CB_FEATURE_NAME, CB_FEATURE_C05, NULL},\r\n  {\"C06\",       CB_FEATURE_NAME, CB_FEATURE_C06, NULL},\r\n  {\"C07\",       CB_FEATURE_NAME, CB_FEATURE_C07, NULL},\r\n  {\"C08\",       CB_FEATURE_NAME, CB_FEATURE_C08, NULL},\r\n  {\"C09\",       CB_FEATURE_NAME, CB_FEATURE_C09, NULL},\r\n  {\"C10\",       CB_FEATURE_NAME, CB_FEATURE_C10, NULL},\r\n  {\"C11\",       CB_FEATURE_NAME, CB_FEATURE_C11, NULL},\r\n  {\"C12\",       CB_FEATURE_NAME, CB_FEATURE_C12, NULL},\r\n  {\"FORMFEED\",      CB_FEATURE_NAME, CB_FEATURE_FORMFEED, NULL},\r\n  {\"SWITCH-1\",      CB_SWITCH_NAME,  CB_SWITCH_1, NULL},\r\n  {\"SWITCH-2\",      CB_SWITCH_NAME,  CB_SWITCH_2, NULL},\r\n  {\"SWITCH-3\",          CB_SWITCH_NAME,  CB_SWITCH_3, NULL},\r\n  {\"SWITCH-4\",      CB_SWITCH_NAME,  CB_SWITCH_4, NULL},\r\n  {\"SWITCH-5\",      CB_SWITCH_NAME,  CB_SWITCH_5, NULL},\r\n  {\"SWITCH-6\",      CB_SWITCH_NAME,  CB_SWITCH_6, NULL},\r\n  {\"SWITCH-7\",      CB_SWITCH_NAME,  CB_SWITCH_7, NULL},\r\n  {\"SWITCH-8\",      CB_SWITCH_NAME,  CB_SWITCH_8, NULL},\r\n  {NULL, 0, 0, NULL}\r\n};\r\n<\/pre>\n<p>\u4e0a\u8a18\u4ee5\u5916\u306e\u5834\u5408\u306f&#8221;Unknown system-name &#8216;\u4f55\u3005'&#8221; \u306e\u30e1\u30c3\u30bb\u30fc\u30b8\u304c\u51fa\u529b\u3055\u308c\u3066\u30a8\u30e9\u30fc\u3068\u306a\u308a\u307e\u3059\u3002\u5f0a\u793e\u306b\u3066\u5bfe\u5fdc\u3057\u305f\u969b\u3001\u5f53\u521d\u306f\u5916\u90e8\u304b\u3089\u306e\u5024\u3092\u74b0\u5883\u5909\u6570\u7d4c\u7531\u3067\u6e21\u3059\u4e8b\u3092\u691c\u8a0e\u3057\u307e\u3057\u305f\u304c\u3001COBOL\u5185\u90e8\u3067\u5024\u3092\u30bb\u30c3\u30c8\u3057\u3066JCL\u3078\u8fd4\u3059\u5834\u5408\u304c\u3042\u308b\u3068\u8a00\u3046\u3053\u3068\u3067\u601d\u3044\u5207\u3063\u3066\u6a5f\u80fd\u62e1\u5f35\u3057\u307e\u3057\u305f\u3002DCV\u306b\u3066\u6e21\u3055\u308c\u305f\u5024\u306b\u3064\u3044\u3066\u306f\u74b0\u5883\u5909\u6570(DCV_varname=\u5024)\u3092\u5b9a\u7fa9\u3057\u3066\u6e21\u3057\u3001\u5024\u3092\u66f8\u304d\u66ff\u3048\u308b\u5834\u5408\u3082\u74b0\u5883\u5909\u6570\u3092\u66f8\u304d\u66ff\u3048\u3001\u30d7\u30ed\u30bb\u30b9\u7d42\u4e86\u6642\u306bDCV_varname\u74b0\u5883\u5909\u6570\u306e\u5024\u3092\u5168\u3066\u30d5\u30a1\u30a4\u30eb\u3078\u66f8\u304d\u51fa\u3057\u3066\u3044\u307e\u3059\u3002\u66f8\u304d\u66ff\u3048\u305f\u5024\u3092JCL\u3078\u8fd4\u3059\u969b\u306b\u3053\u306e(\u74b0\u5883\u5909\u6570 SYSTEM_STATUS_FILE \u306b\u5b9a\u7fa9\u3055\u308c\u305f\u30d5\u30a1\u30a4\u30eb\u540d\u306e\uff09\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u3093\u3067\u3044\u307e\u3059\u3002<br \/>\n\u3053\u308c\u3089\u306e\u62e1\u5f35\u3068JCL\u3092perl\u306b\u5909\u63db\u3057\u305f*.jcl\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u4f7f\u7528\u3059\u308b\u3053\u3068\u3067 DCV\u6a5f\u80fd\u306f<\/p>\n<pre lang=\"perl\">\r\nDCV  \"ACCEPT2,CHARACTER='04'\";\r\n<\/pre>\n<p>\u3068\u3044\u3046\u8a18\u8ff0\u306eperl\u30b9\u30af\u30ea\u30d7\u30c8\u3068<\/p>\n<pre lang=\"COBOL\">\r\n       SPECIAL-NAMES.\r\n           CHAR002  IS  ACCEPT2.\r\n<\/pre>\n<p>\u5143\u306eCOBOL\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u305d\u306e\u307e\u307e\u89e3\u91c8\u3067\u304d\u308b\u62e1\u5f35\u3057\u305fOpenCOBOL\u306b\u3066\u51e6\u7406\u3067\u304d\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3057\u305f\u3002\u79fb\u690d\u5bfe\u8c61\u306e\u30b3\u30fc\u30c9\u4e2d\u306bDCV\u3092\u4f7f\u7528\u3057\u3066\u3044\u308b\u7b87\u6240\u304c4\u6841\u7b87\u6240\u4ee5\u4e0a\u3082\u3042\u308a\u307e\u3057\u305f\u304c\u3001\u304b\u306a\u308a\u7c21\u5358\u306b\u79fb\u690d\u304c\u3067\u304d\u307e\u3057\u305f\u3002<\/p>\n<a class=\"synved-social-button synved-social-button-share synved-social-size-24 synved-social-resolution-single synved-social-provider-facebook nolightbox\" data-provider=\"facebook\" target=\"_blank\" rel=\"nofollow\" title=\"Share on Facebook\" href=\"https:\/\/www.facebook.com\/sharer.php?u=https%3A%2F%2Fwww.lancard.com%2Fblog%2Fwp-json%2Fwp%2Fv2%2Fposts%2F2212&#038;t=OpenCOBOL%E3%81%A8SPECIAL-NAMES%EF%BC%88%E6%8B%A1%E5%BC%B5%EF%BC%89&#038;s=100&#038;p&#091;url&#093;=https%3A%2F%2Fwww.lancard.com%2Fblog%2Fwp-json%2Fwp%2Fv2%2Fposts%2F2212&#038;p&#091;images&#093;&#091;0&#093;=&#038;p&#091;title&#093;=OpenCOBOL%E3%81%A8SPECIAL-NAMES%EF%BC%88%E6%8B%A1%E5%BC%B5%EF%BC%89\" style=\"font-size: 0px;width:24px;height:24px;margin:0;margin-bottom:5px;margin-right:5px\"><img loading=\"lazy\" decoding=\"async\" alt=\"Facebook\" title=\"Share on Facebook\" class=\"synved-share-image synved-social-image synved-social-image-share\" width=\"24\" height=\"24\" style=\"display: inline;width:24px;height:24px;margin: 0;padding: 0;border: none;box-shadow: none\" src=\"https:\/\/www.lancard.com\/blog\/wp-content\/plugins\/social-media-feather\/synved-social\/image\/social\/regular\/48x48\/facebook.png\" \/><\/a><a class=\"synved-social-button synved-social-button-share synved-social-size-24 synved-social-resolution-single synved-social-provider-twitter nolightbox\" data-provider=\"twitter\" target=\"_blank\" rel=\"nofollow\" title=\"Share on Twitter\" href=\"http:\/\/twitter.com\/share?url=https%3A%2F%2Fwww.lancard.com%2Fblog%2Fwp-json%2Fwp%2Fv2%2Fposts%2F2212&#038;text=OpenCOBOL%E3%81%A8SPECIAL-NAMES%EF%BC%88%E6%8B%A1%E5%BC%B5%EF%BC%89\" style=\"font-size: 0px;width:24px;height:24px;margin:0;margin-bottom:5px;margin-right:5px\"><img loading=\"lazy\" decoding=\"async\" alt=\"twitter\" title=\"Share on Twitter\" class=\"synved-share-image synved-social-image synved-social-image-share\" width=\"24\" height=\"24\" style=\"display: inline;width:24px;height:24px;margin: 0;padding: 0;border: none;box-shadow: none\" src=\"https:\/\/www.lancard.com\/blog\/wp-content\/plugins\/social-media-feather\/synved-social\/image\/social\/regular\/48x48\/twitter.png\" \/><\/a><a class=\"synved-social-button synved-social-button-share synved-social-size-24 synved-social-resolution-single synved-social-provider-linkedin nolightbox\" data-provider=\"linkedin\" target=\"_blank\" rel=\"nofollow\" title=\"Share on Linkedin\" href=\"https:\/\/www.linkedin.com\/shareArticle?mini=true&#038;url=https%3A%2F%2Fwww.lancard.com%2Fblog%2Fwp-json%2Fwp%2Fv2%2Fposts%2F2212&#038;title=OpenCOBOL%E3%81%A8SPECIAL-NAMES%EF%BC%88%E6%8B%A1%E5%BC%B5%EF%BC%89\" style=\"font-size: 0px;width:24px;height:24px;margin:0;margin-bottom:5px;margin-right:5px\"><img loading=\"lazy\" decoding=\"async\" alt=\"linkedin\" title=\"Share on Linkedin\" class=\"synved-share-image synved-social-image synved-social-image-share\" width=\"24\" height=\"24\" style=\"display: inline;width:24px;height:24px;margin: 0;padding: 0;border: none;box-shadow: none\" src=\"https:\/\/www.lancard.com\/blog\/wp-content\/plugins\/social-media-feather\/synved-social\/image\/social\/regular\/48x48\/linkedin.png\" \/><\/a><a class=\"synved-social-button synved-social-button-share synved-social-size-24 synved-social-resolution-single synved-social-provider-tumblr nolightbox\" data-provider=\"tumblr\" target=\"_blank\" rel=\"nofollow\" title=\"Share on tumblr\" href=\"https:\/\/tumblr.com\/share?s=&#038;v=3&#038;t=OpenCOBOL%E3%81%A8SPECIAL-NAMES%EF%BC%88%E6%8B%A1%E5%BC%B5%EF%BC%89&#038;u=https%3A%2F%2Fwww.lancard.com%2Fblog%2Fwp-json%2Fwp%2Fv2%2Fposts%2F2212\" style=\"font-size: 0px;width:24px;height:24px;margin:0;margin-bottom:5px;margin-right:5px\"><img loading=\"lazy\" decoding=\"async\" alt=\"tumblr\" title=\"Share on tumblr\" class=\"synved-share-image synved-social-image synved-social-image-share\" width=\"24\" height=\"24\" style=\"display: inline;width:24px;height:24px;margin: 0;padding: 0;border: none;box-shadow: none\" src=\"https:\/\/www.lancard.com\/blog\/wp-content\/plugins\/social-media-feather\/synved-social\/image\/social\/regular\/48x48\/tumblr.png\" \/><\/a><a class=\"synved-social-button synved-social-button-share synved-social-size-24 synved-social-resolution-single synved-social-provider-mail nolightbox\" data-provider=\"mail\" rel=\"nofollow\" title=\"Share by email\" href=\"mailto:?subject=OpenCOBOL%E3%81%A8SPECIAL-NAMES%EF%BC%88%E6%8B%A1%E5%BC%B5%EF%BC%89&#038;body=%E3%82%B7%E3%82%A7%E3%82%A2%E3%81%99%E3%82%8B%EF%BC%9A:%20https%3A%2F%2Fwww.lancard.com%2Fblog%2Fwp-json%2Fwp%2Fv2%2Fposts%2F2212\" style=\"font-size: 0px;width:24px;height:24px;margin:0;margin-bottom:5px\"><img loading=\"lazy\" decoding=\"async\" alt=\"mail\" title=\"Share by email\" class=\"synved-share-image synved-social-image synved-social-image-share\" width=\"24\" height=\"24\" style=\"display: inline;width:24px;height:24px;margin: 0;padding: 0;border: none;box-shadow: none\" src=\"https:\/\/www.lancard.com\/blog\/wp-content\/plugins\/social-media-feather\/synved-social\/image\/social\/regular\/48x48\/mail.png\" \/><\/a>","protected":false},"excerpt":{"rendered":"<p>JCL\u304b\u3089COBOL\u3092\u547c\u3073\u51fa\u3059\u969b\u306b\u5916\u90e8\u30d1\u30e9\u30e1\u30fc\u30bf\u3092\u6e21\u3057\u305f\u3044\u3068\u3044\u3046\u3053\u3068\u304c\u3042\u308a\u307e\u3059\u3002\u67d0\u793eJCL\u3067\u306f \\DCV ACCEPT2,CHARACTER=&#8217;04&#8217; ; \u306a\u3069DCV\u3068\u3044\u3046\u30b3\u30de\u30f3\u30c9\u3067\u5b9a\u7fa9\u3057\u3066\u3001\u3053\u308c\u3092COBOL\u5074\u3067\u306f SP [&hellip;]<\/p>\n","protected":false},"author":18,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[9,19,6,1],"tags":[90,134,91,89,92],"class_list":["post-2212","post","type-post","status-publish","format-standard","hentry","category-opencobol","category-perl","category-server","category-1","tag-dcv","tag-opencobol","tag-perl-2","tag-special-names","tag-92"],"_links":{"self":[{"href":"https:\/\/www.lancard.com\/blog\/wp-json\/wp\/v2\/posts\/2212","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.lancard.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.lancard.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.lancard.com\/blog\/wp-json\/wp\/v2\/users\/18"}],"replies":[{"embeddable":true,"href":"https:\/\/www.lancard.com\/blog\/wp-json\/wp\/v2\/comments?post=2212"}],"version-history":[{"count":5,"href":"https:\/\/www.lancard.com\/blog\/wp-json\/wp\/v2\/posts\/2212\/revisions"}],"predecessor-version":[{"id":8231,"href":"https:\/\/www.lancard.com\/blog\/wp-json\/wp\/v2\/posts\/2212\/revisions\/8231"}],"wp:attachment":[{"href":"https:\/\/www.lancard.com\/blog\/wp-json\/wp\/v2\/media?parent=2212"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.lancard.com\/blog\/wp-json\/wp\/v2\/categories?post=2212"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.lancard.com\/blog\/wp-json\/wp\/v2\/tags?post=2212"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}