Renaming objects in the .ifs

[Sergeant]

Hi All.

I am at my wit's end trying to get an example of code I found, to work.

I am trying to rename a file in the IFS, but it is not working.

We are on V5r4 and PTFs are up to date.

I'm confident in it's function, but I cant figure out what i'm doing wrong.

I want to use the .ifs directory '\\as400\dir1\dir2\filea.dat'
and rename it to '\\as400\dir1\dir2\fileb.dat'

Please help.

H DFTACTGRP(*NO) BNDDIR('QC2LE')
D rename PR 10I 0 ExtProc('Qp0lRenameKeep')
D old * Value options(*string)
D new * Value options(*string)


D ReportError PR


D Source s 100A
D Target s 100A


c eval Source='/home/klemscot/editest.txt'
c eval Target='/tmp/editest.txt'


*
* Note that if Source and Target are in different filesystems,
* this will fail with "CPE3405: Improper Link"
*

c if rename(%trimr(source):
c %trimr(target)) < 0
c callp ReportError
c endif

c eval *inlr = *on

P ReportError B
D ReportError PI

D sys_errno PR * ExtProc('__errno')
D p_errno s *
D errno s 10I 0 based(p_errno)

D QMHSNDPM PR ExtPgm('QMHSNDPM')
D MessageID 7A Const
D QualMsgF 20A Const
D MsgData 1A Const
D MsgDtaLen 10I 0 Const
D MsgType 10A Const
D CallStkEnt 10A Const
D CallStkCnt 10I 0 Const
D MessageKey 4A
D ErrorCode 8192A options(*varsize)

D dsEC DS
D BytesProv 1 4I 0 inz(0)
D BytesAvail 5 8I 0 inz(0)

D MsgKey S 4A
D MsgNo s 4P 0
c eval p_errno = sys_errno
c eval msgno = errno
c callp QMHSNDPM( 'CPE' + %editc(msgno:'X')
c : 'QCPFMSG *LIBL'
c : ' ': 0: '*ESCAPE': '*': 3
c : MsgKey: dsEC)