{"id":1327,"date":"2019-06-26T08:52:23","date_gmt":"2019-06-26T00:52:23","guid":{"rendered":"http:\/\/www.hefeiyu.com\/?p=1327"},"modified":"2019-06-26T08:52:23","modified_gmt":"2019-06-26T00:52:23","slug":"4gl%e4%b8%8ec%e7%9a%84%e5%85%b3%e7%b3%bb","status":"publish","type":"post","link":"https:\/\/www.hefeiyu.com\/?p=1327","title":{"rendered":"4GL\u4e0eC\u7684\u5173\u7cfb"},"content":{"rendered":"<p><strong>15-1 STACK <\/strong><strong>\u7684\u5904\u7406<\/strong><\/p>\n<p>INFORMIX-4GL \u548c\uff23\u4e4b\u95f4\u6570\u636e\u7684\u4f20\u9001\uff0c\u662f\u5229\u7528\u6570\u636e\u7ed3\u6784\u4e2d stack \u7684\u6280\u5de7\u6765\u8fbe\u6210\u4e24\u8005\u4e4b\u95f4\u7684\u8fd0\u4f5c\u3002<\/p>\n<p>\uff1c\u8bed\u6cd5\u683c\u5f0f\uff1e<\/p>\n<p>CALL function_name(arg1\uff0carg2\uff0c\uff0e\uff0e\uff0eargn)<\/p>\n<p><strong>15-2 <\/strong><strong>\u547c\u53eb\u7684\u534f\u8bae<\/strong><\/p>\n<p>\uf6b1\uff0e\u5f53 informix-4gl \u547c\u53eb\uff23\u65f6\uff0c\u4f1a\u5c06\u51fd\u6570\u4e2d\u7684\u53c2\u6570\u7531\u5de6\u81f3\u53f3\u538b\u5165(PUSH) STACK\u4e2d \uff0c\u5e76\u628a\u53c2\u6570\u7684\u4e2a\u6570\u4e5f\u4f20\u7ed9\uff23\u3002\u800c\uff23\u5fc5\u987b\u5728 STACK \u4e2d\u4f9d\u76f8\u53cd\u7684\u6b21\u5e8f POP \u6240\u6709\u7684\u53c2\u6570\u3002<\/p>\n<p>\uf6b2\uff0e\u5f53\uff23\u6b32\u4f20\u56de\u53d8\u91cf\u7ed9 informix-4gl \u65f6\uff0c\u53c2\u6570\u7684\u538b\u5165\u987a\u5e8f\u5fc5\u987b\u4e0e 4gl \u4e2d returning\u53c2\u6570\u7684\u987a\u5e8f\u76f8\u540c\u3002\u4e5f\u5c31\u662f\u8bf4\uff0c\u65e0\u8bba\u662f\u5728\u4e2a\u6570\u6216\u6570\u636e\u578b\u6001\u90fd\u5fc5\u987b\u548c returning \u53c2\u6570\u7684\u987a\u5e8f\u4e00\u81f4\u3002<\/p>\n<p><strong>15-3 4GL<\/strong><strong>\u4e0e\uff23\u7684\u754c\u9762\u51fd\u6570<\/strong><\/p>\n<p>\u250c\u2500\u2500\u2500\u2500\u2500\u2500\u252c\u2500\u2500\u2500\u2500\u2500\u252c\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u252c\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2510<\/p>\n<p>\u2502\u00a0 \u6570\u636e\u578b\u6001\u00a0 \u2502\u00a0 \u5b9a\u4e49 \u2502 POPPING \u51fd\u6570\u00a0\u00a0 \u2502 PUSHING \u51fd\u6570\u3000 \u2502<\/p>\n<p>\u251c\u2500\u2500\u2500\u2500\u2500\u2500\u253c\u2500\u2500\u2500\u2500\u2500\u253c\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u253c\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2524<\/p>\n<p>\u2502\u00a0 int\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u2502\u00a0\u00a0\u00a0 i\u00a0 \u00a0 \u00a0 \u00a0 \u2502 popint(&amp;i)\u00a0 \u00a0 \u00a0 \u00a0\u2502\u00a0 retint(i)\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u2502<\/p>\n<p>\u2502\u00a0 short\u00a0 \u00a0\u2502\u00a0\u00a0\u00a0 s\u00a0 \u00a0 \u00a0 \u00a0\u2502 popshort(&amp;s)\u00a0\u00a0 \u2502\u00a0 retshort(s)\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0\u2502<\/p>\n<p>\u2502\u00a0 long\u00a0 \u00a0 \u2502\u00a0 \u00a0\u00a0l\u00a0 \u00a0 \u00a0 \u00a0\u2502 poplong(&amp;l)\u00a0 \u00a0 \u00a0\u2502\u00a0 retlong(l)\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0\u2502<\/p>\n<p>\u2502\u00a0 float\u00a0 \u00a0 \u2502\u00a0\u00a0\u00a0 f\u00a0 \u00a0 \u00a0 \u00a0\u2502 popflo(&amp;f)\u00a0 \u00a0 \u00a0 \u00a0 \u2502\u00a0 retflo(&amp;f)\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u2502<\/p>\n<p>\u2502\u00a0 double\u2502\u00a0\u00a0\u00a0 d\u00a0 \u00a0 \u00a0 \u2502 popdub(&amp;d)\u00a0\u00a0\u00a0\u00a0 \u2502\u00a0 retdub(&amp;d)\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0\u2502<\/p>\n<p>\u2502\u00a0 char\u00a0 \u00a0 \u2502 \u00a0str[m] \u2502 popquote(str,m)\u2502\u00a0 retquote(str)\u00a0 \u00a0 \u00a0 \u00a0\u2502<\/p>\n<p>\u2514\u2500\u2500\u2500\u2500\u2500\u2500\u2534\u2500\u2500\u2500\u2500\u2500\u2534\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2534\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2518<\/p>\n<p>\u8bb0\u5f97\u5728\uff23\u4e2d\u7684\u6700\u540e\u4e00\u884c\u53d9\u8ff0\u8981\u52a0\u4e00\u4e2a return\uff0c\u800c\u5728 return \u4e2d\u552f\u4e00\u7684\u53c2\u6570\u662f\u7528\u6765\u4f20\u9012\u6b32\u88ab\u4f20\u56de\u7684\u4e2a\u6570\uff0c\u5373\u4f7f\u6ca1\u6709\u4f20\u56de\u53c2\u6570\u4e5f\u8981 return(0)\u3002<\/p>\n<p>\u00a7\u4f8b\uff1a<\/p>\n<pre class=\"pure-highlightjs\"><code class=\"null\">CALL bankopen(account_no,3,salary,\"bankdisk.txt\") \r\n  \r\n#include &lt;stdio.h&gt; \r\nFILE *fopen(), *fp; \r\n  \r\nstatic int Is_Open  = 1; \r\nstatic int serial_no = 0; \r\nbankopen(n) \r\n    int n; \r\n{ \r\n  int net_income,summary_ty,i,j,len; \r\n  char account_no[8],a[8],bank_file[12],open_file[12]; \r\n  \r\n  serial_no++; \r\n    if    (n != 4) \r\n          exit(1); \r\n    popquote(bank_file,12); \r\n    popint(&amp;net_income); \r\n    popint(&amp;summary_ty); \r\n    popquote(account_no,8); \r\n  len = strlen(bank_file); \r\n  if  (Is_Open)  { \r\n      fp = fopen(bank_file,\"w\"); \r\n      Is_Open = 0; \r\n  } \r\n  fprintf(fp,\" %06d 03\",serial_no); \r\n  len = strlen(account_no); \r\n  for (i = 0; i &lt; len; i++) \r\n      if  (isdigit(account_no[i])) { \r\n          a[i] = account_no[i]; \r\n      } \r\n      else { \r\n          a[i] = '\\0'; \r\n          break; \r\n      } \r\n  len = 7 - strlen(a); \r\n  for (i = 0; i &lt; len; i++) \r\n       fprintf(fp,\"0\"); \r\n  fprintf(fp,\"%s \",a); \r\n  switch (summary_ty) { \r\n      case 1 : fprintf(fp,\"PM\"); \r\n               break; \r\n      case 2 : fprintf(fp,\"PR\"); \r\n               break; \r\n      case 3 : fprintf(fp,\"TH\"); \r\n               break; \r\n  } \r\n  if  (net_income &gt; 0) \r\n       fprintf(fp,\" C %08d\\n\",net_income); \r\n  else \r\n       fprintf(fp,\" D %08d\\n\",net_income); \r\n    return 0; \r\n}<\/code><\/pre>\n<p>&nbsp;<\/p>\n<p>\u8f6c\u8f7d\u8bf7\u6ce8\u660e\uff1a<a href=\"https:\/\/www.hefeiyu.com\">\u8d6b\u975e\u57df<\/a> &raquo; <a href=\"https:\/\/www.hefeiyu.com\/?p=1327\">4GL\u4e0eC\u7684\u5173\u7cfb<\/a><\/p>","protected":false},"excerpt":{"rendered":"<p>15-1 STACK \u7684\u5904\u7406 INFORMIX-4GL \u548c\uff23\u4e4b\u95f4\u6570\u636e\u7684\u4f20\u9001\uff0c\u662f\u5229\u7528\u6570\u636e\u7ed3\u6784\u4e2d stack \u7684\u6280\u5de7\u6765\u8fbe\u6210\u4e24\u8005\u4e4b\u95f4\u7684\u8fd0\u4f5c\u3002 \uff1c\u8bed\u6cd5\u683c\u5f0f\uff1e CALL function_name(arg1\uff0carg2\uff0c\uff0e\uff0e\uff0eargn) 15-2 \u547c\u53eb\u7684\u534f\u8bae \uf6b1 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[26],"tags":[49,464,465],"class_list":["post-1327","post","type-post","status-publish","format-standard","hentry","category-4gl","tag-gl","tag-stack","tag-465"],"_links":{"self":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/1327","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1327"}],"version-history":[{"count":1,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/1327\/revisions"}],"predecessor-version":[{"id":1328,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=\/wp\/v2\/posts\/1327\/revisions\/1328"}],"wp:attachment":[{"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1327"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1327"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.hefeiyu.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1327"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}