Tip 3: how to call a low-code module from an RPG program

• Navigate to the workspace "pjstips".
• Click New/Module File.

• Click Edit/Source, to bring up the Source view.

• Clear the current default code, and enter the code below.

• {
    "routines": [
      {
        "name": "routine1",
        "inputs": [
          {
            "type": "decimal",
            "ibmiLength": 4,
            "name": "custno",
            "ibmiDecimals": 0
          }
        ],
        "outputs": [
          {
            "type": "string",
            "ibmiLength": 30,
            "name": "name"
          }
        ],
        "steps": [
          {
            "text": "Consume REST service",
            "answers": {
              "plugin": "Custom:web-service",
              "uri": "http://localhost:8081/run/pjstips/pjstips_02_3",
              "method": "POST",
              "headers": "",
              "body": "{\n  \"custno\": input[\"custno\"]\n}",
              "json": true,
              "auth": "",
              "capture_response": true,
              "capture_on_error": false,
              "capture_as": "Value",
              "specific_property": "",
              "destination": "Work variable",
              "work_variable": "myres"
            }
          },
          {
            "text": "Set Module output",
            "answers": {
              "plugin": "Program Data:set-module-output",
              "module-output-values": {
                "name": "myres[\"name\"]"
              }
            }
          }
        ]
      }
    ]
  }

• Click Edit/Design, to bring up the Design view.
• Click Home/Save As, and save as pjstips_03_1.module.json.
• You've created a low-code module, as shown below, with a routine named "routine1" that:
  
  • Takes an input parameter of "custno"
  • Uses plug "Consume REST service" to issue a POST request to URL http://localhost:8081/run/pjstips/pjstips_02_3 (created in a previous example).
  • The input "custno" is specified in the "body" of the POST request.
  • The returned JSON object from the REST web service is saved in a work variable named "myres".
  • The value of myres["name"] is used to set the output value output["name"].
• 

You can call this low-module from another low-code module, from another "regular" (i.e. NOT low-code) PJS module, or from an RPG program. To call it from an RPG program, use the code generated in the panel "IBM i Call Interface" panel. Below is an example, there the input custno is set to 1234 to pass to the low-code module, which calls the REST service to get the customer name, which is then returned to the RPG program, which is then displayed on the screen.

**free

  Dcl-PR PJSCALL ExtPgm;
    ParmType        Char(30)          Const;
    ModuleID        VarUCS2(500)      Const;
    RoutineName     VarUCS2(70)       Const;
    InputParms      Char(16773104)    Const Options(*Varsize:*Omit:*NoPass);
    InputParmSize   Int(10)           Const Options(*Omit:*NoPass);
    OutputParms     Char(16773104)    Options(*Varsize:*Omit:*NoPass);
    OutputParmSize  Int(10)           Const Options(*Omit:*NoPass);
  End-PR;

  Dcl-DS InputDS Qualified Inz;
    custno  Zoned(4: 0);
  End-DS;

  Dcl-DS OutputDS Qualified Inz;
    name  VarChar(30);
  End-DS;

  InputDS.custno = 1234;

  Monitor;

    PJSCALL('*MODULE'
      : 'pjstips:pjstips_03_1.module.json'
      : 'routine1'
      : InputDS
      : %Size(InputDS)
      : OutputDS
      : %Size(OutputDS)
    );

  On-Error;


  EndMon;

  dsply  OutputDS.name;
  *inlr = *on;
  return;