Handling Integer Data Types
public function create($data)
{
// $data->peddler = 1234567
// Add parameters
$params = [
// Peddler ID
$this->toolkitService->AddParameterZoned(
'both', 7,0, 'peddlerId', 'peddlerId', $data->peddler
),
// ... other params ...
];
// Call program
$result = $this->toolkitService->PgmCall(
'PLRFMLCRTC', 'SCRAPNEW', $params, null, null
);
// ... error checking and return value
}
*************** Beginning of data *************************************
H Debug DatEdit(*MDY/) Option(*SrcStmt:*noDebugIO)
D peddler S 9B 0
C *entry plist
C parm peddler
/free
Exec sql
insert into scrapnew/pricing_formulas(peddler) values(:peddler);
*inlr = *on;
Return;
*************** Beginning of data *************************************
PGM PARM(&PED) //other params
DCL VAR(&PED) TYPE(*INT) LEN(4)
// other params
CALL PGM(SCRAPNEW/PLRFMLCRTR) PARM(&PED) //other params
ENDPGM
****************** End of data ****************************************