Save_Image error

Please do not use to report errors- use your regional help desk.
Please mark posts as being for RPG or RDMLX (LANSA) developer.
To subscribe by email, display this forum, scroll to the end and select ‘Subscribe Forum’.
Post Reply
soapagent
Posts: 93
Joined: Mon Jul 16, 2012 6:19 pm

Save_Image error

Post by soapagent » Fri Aug 25, 2017 2:58 pm

I have a long range app which allows the user to take a photo and upload it to the iSeries. I have the following code

#Com_Owner.Save_Image Name(ADDIMAGE) Filename(#ifslnm) Result(#Iresult)

If Cond(#Iresult *EQ 1)

... Create database record

else

Message Msgid(mbo0004) Msgf(HSCMSG) Msgdta(#Iresult)
Endif

The result code is appearing in the message (I've only seen a screen print) as U0 (with an acute accent over the U).

This function has always worked in the past and it works for me internally. Its just failing in the field. The only difference I can think of is the quality of the connection.

The only code change this year was the addition of two lines to set the image size.

#Com_Owner.Set_Image Layout_Row(3) Layout_Col(1) Layout_Cols(4) Allowchange(True) Blankimageresource('AttachPhotoHere2.png') Name(ADDIMAGE) Newimage_Thumbnail(25%)

#Com_Owner.Set Property('ADDIMAGE.NewImage.Resize.Width.LD') To('960')
#Com_Owner.Set Property('ADDIMAGE.NewImage.Resize.Height.LD') To('720')

Anything spring to mind?

tsupartono
Posts: 289
Joined: Wed Apr 18, 2012 10:21 am

Re: Save_Image error

Post by tsupartono » Fri Aug 25, 2017 3:39 pm

When did this start failing?
Has there been any updates (SP, EPC) recently applied to the LANSA installation on the IBM i?

soapagent
Posts: 93
Joined: Mon Jul 16, 2012 6:19 pm

Re: Save_Image error

Post by soapagent » Fri Aug 25, 2017 4:34 pm

Sorry Tony, I did some more checking and someone had changed the authority on the upload folder so the writes were being rejected. Its working again now.

Many thanks for the rapid response.

Have a good weekend.

Post Reply