chuk-shirley
1/22/2015 - 4:30 PM

Handling Integer Data Types

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 ****************************************