当前位置：网站首页>AS400 API 从零到一的整个历程

AS400 API 从零到一的整个历程

2022-07-01 01:08:00 【Saidywin】

简单的分享，如果有不一样的见解可以一起讨论

1）AS400上安装对应的577ODG1 这个软件

如果你不知道有没有装，你可以通过

GO LICPGM 这个命令，10 去看到哪些安装的软件

怎么安装具体如下：

1. To install the libraries, run the command go licpgm

2. Select option 11 to install a Licensed Program and install option 39

如果发现有IBM HTTP Server For I

2）启动 HTTP 服务，这是基本要求。

STRTCPSVR *HTTP HTTPSVR(*ADMIN)

192.168.88.249 是AS400 的IP 地址

http://192.168.88.249:2001/HTTPAdmin

如果说你的User没有权限去登录Admin，需要给User profile *ALLOBJ and *IOSYSCFG的权限去创建服务器

因为Web服务是需要指定对应的user profile但是如果是个人的user profile是有密码过期的这样就会导致你的user 密码过期后面API 服务不能用了。所有要create 一个永久不过期的用户：

CRTUSRPRF USRPRF(IWSREST02) PASSWORD(*NONE)

3）服务器create 成功后接下来就是部署rest API 服务

部署服务的时候可以选择SRVPGM 和 PGM

Produce的形式：

h nomain PGMINFO(∗PCML:∗MODULE)
d ConvertTemp pr
d tempIn 10 const
d tempOut 10
p ConvertTemp b export
d ConvertTemp pi
d tempIn 10 const
d tempOut 10
d tempI s 8P 2
d tempO s 8P 2
d value S 50A
/free
value = %STR(%ADDR(tempIn));
tempI=%DEC(value:7:2);
tempO = (5/9)∗(tempI - 32);
value = %CHAR(tempO);
tempOut = value;
%STR(%ADDR(tempOut):10)=tempOut;
/end-free
p ConvertTemp e

PGM 的形式：

/free
   ctl-opt *debug(yes) PGMINFO(∗PCML:*DCLCASE:∗MODULE);
   dcl-f custpf usage(*update) keyed                        
                         rename(TESTPFR:NEWNAME) USROPN ;
   dcl-s k1cust like(CUBK)  INZ(1);
   dcl-ds w1request INZ qualified;
      customer  char(10);
      customername char(10);
   end-ds W1reqeust;
   
   dcl-pi *n;
   
   // request
   customerds  likeds(w1request);
   //response
   statuscode int(5);
   end-pi;
   exsr sr100;
   eval *INLR = *ON;
   return;'
   // ================================================== 
   begsr SR100; 
       OPEN NEWNAME;
       eval k1cust = w1request.customer;  
       Chain  k1cust   NEWNAME;
       If %found(NEWNAME);
       eval custname =w1request.customername;
       update NEWNAME;
       eval statuscode = 200;
       else;
        eval statuscode = 400;
       endif;
       Close NEWNAME;
   endsr;   
   // ==================================================                       
/end-free

但是记得如果说要让IWS 识别到对应的SRVPGM或者PGM

是需要在 H Spec 定义，不然识别不到

H PGMINFO(∗PCML:∗MODULE)

API服务给到名字

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-nKNKCH1T-1656494130334)(https://mmbiz.qpic.cn/mmbiz_png/WxKgPiboJnT3CMr74DI8WmNj5DDvcQHnQxwsCAdwevG10PbOdLmcnfDTcsREWcajaX0ic41R7zmibv2Ck1M8bibGdg/640?wx_fmt=png)]