Re: %SCANRPL to escape characters

Well I still don't see the definitions of responsemsglog or responsemsg_data and you either didn't copy/paste from the real source or you have a program error as both statements target responsemsglog ...

Assuming that they are VarChar and you trimmed the data when it was loaded then this is a valid approach.

If they are fixed length fields then %TRIMR into VarChar fields and go from there or ... use the length of the valid portion of the string to constrain the scanrpl.

It should be:

responsemsglog = %scanrpl('"' : '\"' : responsemsglog : 1 : lengthToScan );

Right now you are scanning 4K each time. Limit it to the size and it will run a lot better. In this case it looks like you have around 800 characters so it is scanning about 5X more than it need.

P.S. It is going to be CPU heavy no matter what method you use - you are after all just spinning in memory.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On May 6, 2019, at 1:46 PM, Mohammad Tanveer <surgum@xxxxxxxxx> wrote:

responsemsglog = %scanrpl('\':'\\"':responsemsg_data);
responsemsglog = %scanrpl('"':'\"':responsemsglog);

responsemsglog has json .. maximum size of it is 4K bytes and may look
like this..for example .. every " and \ needs to be escaped.

REQUEST BODY: requestBody=[[ { "form": "freightReport", "routeInfo": {
"email": { "sendTo": "javatestmail@xxxxxxx", "from": "MARK BERKOWITZ" } },
"callingSystem": "US", "language": "English", "locale": "en_US",
"currency": "USD", "vendorNumber": "123456", "carrier": "DC Logistics",
"programName": "EXMADCXX0", "programBatchName": "FRT004E", "sortCode": "S",
"stateShippedFrom": "CALIFORNIA", "invoiceSentBy": "", "printDate":
"10/25/2018", "printTime": "04:00:06", "flagShowAddress": true,
"flagNoLineItems": false, "flagShowUpdateLabel": true, "providedTo": {
"shipViaCode": "LK", "contactName": "TX Logistics", "attention": "Micky M"
}, "messages": [ "Messages One", "Message Two" ], "shipmentList": {
"totalShipments": "1", "shipments": [ { "shipmentNumber": "1", "lineItems":
[ { "shipDate": "10/31/2018", "shipVia": "HL", "warehouseCode": "I6",
"zip": "49442", "zip4": "5396", "customerNumber": "1522814",
"customerName": "GEERPRES", "addr1": "1780 HARVEY ST", "city": "MUSKEGAN",
"state": "MI", "totalLbs": "276", "totalSkids": "1", "totalPieces": "0",
"proNumber": "1071590221", "routingCode": "GR", "subTotal": "",
"subTotalLbs": "", "subTotalSkids": "", "subTotalPieces": "" } ] }, {
"shipmentNumber": "2", "lineItems": [ { "shipDate": "10/31/2018",
"shipVia": "HL", "warehouseCode": "I6", "zip": "49442",]


On Mon, May 6, 2019 at 12:37 PM Jon Paris <jon.paris@xxxxxxxxxxxxxx> wrote:

Wanna show us the actual code and definitions you are using? I can think
of a couple fo things that might cause performance issues but don't want to
just guess.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On May 6, 2019, at 1:21 PM, Mohammad Tanveer <surgum@xxxxxxxxx> wrote:

Is there a better way to escape certain characters in a 4000 byte

character

string? It appears %SCANRPL is taking CPU resources; which performance
manger is not happy about.

I am using it to replace " with \" and \ with \\ ... I have to use this
function for each character I want to escape. This code might execute
60,000 times in 15/20 mins ... during heavy transaction load.

Regards
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related

questions.

Help support midrange.com by shopping at amazon.com with our affiliate

link: https://amazon.midrange.com

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com