The whole process of AS400 API from zero to one

Simple sharing , If you have different opinions, you can discuss them together

1）AS400 Install the corresponding 577ODG1 This software

If you don't know if you're pretending , You can go through

GO LICPGM This command ,10 To see which software is installed

How to install is as follows ：

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

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

If you find any IBM HTTP Server For I

2） start-up HTTP service , This is the basic requirement .

STRTCPSVR *HTTP HTTPSVR(*ADMIN)

192.168.88.249 yes AS400 Of IP Address

http://192.168.88.249:2001/HTTPAdmin

If you say your User No permission to log in Admin, Need to give User profile *ALLOBJ and *IOSYSCFG To create a server

because Web Services need to specify corresponding user profile But if it's personal user profile The password has expired, which will lead to your user After the password expires API The service doesn't work . All to create A user who never expires ：

CRTUSRPRF USRPRF(IWSREST02) PASSWORD(*NONE)

3） The server create After success, the next step is deployment rest API service

When deploying services, you can choose SRVPGM  and PGM

Produce In the form of ：

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 In the form of ：

/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

But remember if you say you want to IWS  Identify the corresponding SRVPGM perhaps PGM

It needs to be  H Spec  Definition , Otherwise, I can't recognize

H PGMINFO(∗PCML:∗MODULE)

API Service to name

[ Failed to transfer the external chain picture , The origin station may have anti-theft chain mechanism , It is suggested to save the pictures and upload them directly (img-nKNKCH1T-1656494130334)(https://mmbiz.qpic.cn/mmbiz_png/WxKgPiboJnT3CMr74DI8WmNj5DDvcQHnQxwsCAdwevG10PbOdLmcnfDTcsREWcajaX0ic41R7zmibv2Ck1M8bibGdg/640?wx_fmt=png)]

Choose the appropriate method

Plus library list

Deployment success

Property display Basic resources URL:

http://192.168.88.249:10021/web/services/fto

stop WEB service

ENDTCPSVR SERVER(*HTTP) HTTPSVR(IWSREST02)

need Debug API Job

Subsystem QUSRWRK

Job QZRCSRVS

STRSRVJOB   Go then STRDBG debug To the corresponding API backstage QZRCSRVS job, Remember SRVPGM Yes, No Debug Of , As long as the deployment time is Program You can only

GET、POST、PUT、DELETE

GET and Delete Yes, it can only be used Path_Parm  perhaps query_Parm You can't use Body Of

That's the deployment API Service for , Next is the need to API The service is carried out SSL Configuration of

To configure SSL/TLS Set up

Configure the machine to use SSL/TLS Encrypted communication can be enabled . This helps prevent data from being intercepted during transmission 、 To crack or tamper with .

Configuration process when using self signed certificates

1. Create and install device certificates ：

   IBM Mainly through iKeyman

2. Enable SSL/TLS：

   To configure SSL

3. Restart the server

   

SSL Of IBM Of SSL Mainly used iKeyman Generate secret key ：

How do I extract certificates from key databases using the iKeyman utility?

https://www.youtube.com/watch?v=aFUF8KAaMIQ

How do I receive a signed certificate from a certificate authority using the iKeyman utility?

https://www.youtube.com/watch?v=Wq1ftCAow9Y