Re: QFileSvr.400 usage -- MIDRANGE-L

Hi Tom,

Good points. Of course, the member into the member copy should be okwhen using the TOOBJ instead of TODIR, and the REPLACE(*YES) parm. Notethat the TOOBJ parm allows a directory path as well as an object name, e.g.


CPY OBJ('/home/pdow/atest1.txt') TOOBJ('/home/subdir1/subdir2/atest2.txt')

so this

CPY OBJ('/QSYS.LIB/ROBDELME.LIB/DELETEME.FILE/DELETEME.MBR')

TODIR('/QFileSvr.400/GDIHQ/QSYS.LIB/ROBDELME.LIB/DELETEME.FILE/DELETEME.MBR')


should've been

CPY OBJ('/QSYS.LIB/ROBDELME.LIB/DELETEME.FILE/DELETEME.MBR')

TOOBJ('/QFileSvr.400/GDIHQ/QSYS.LIB/ROBDELME.LIB/DELETEME.FILE/DELETEME.MBR')

and if the TOOBJ already existed, the REPLACE(*YES) parm should'veallowed successful completion.

Windows drag-n-drop doesn't allow name changes, and probably isn't agood comparison to a command. The COPY command is a better comparison,except it can copy a Word document into what appears to be an executblebut isn't, e.g.


   COPY WORD.DOC WORD.EXE

CPY has to be smarter than that, but even COPY can't copy WORD.DOC to adirectory of the same name, it would copy it _into_ the directory; northe reverse (copying a directory to a text file). Given that, it's notsurprising that


CPY OBJ('/QSYS.LIB/ROBDELME.LIB/DELETEME.FILE/DELETEME.MBR')
        TODIR('/QFileSvr.400/GDIHQ/QSYS.LIB/ROBDELME.LIB/DELETEME.FILE')

worked when there was no DELETEME member in the DELETEME file. Andprobably would've worked if the member already existed if REPLACE(*YES)had been specified.


What I would expect to work is

CPY OBJ('/QSYS.LIB/ROBDELME.LIB/DELETEME.FILE')
        TODIR('/QFileSvr.400/GDIHQ/QSYS.LIB/ROBDELME.LIB')

or even

CPY OBJ('/QSYS.LIB/ROBDELME.LIB')
        TODIR('/QFileSvr.400/GDIHQ/QSYS.LIB')

Granted that QSYS.LIB is quite a bit different from any of the otherfile systems, but CPY handles it to some degree, so why not completely?Maybe even to the degree of being able to


CPY OBJ('/QSYS.LIB/SOMELIB.LIB/SOMEPGM.PGM')
        TODIR('/QFileSvr.400/RMTSYS/temp')

and back

CPY OBJ('/QFileSvr.400/RMTSYS/temp/SOMEPGM.PGM')
        TODIR('/QSYS.LIB/SOMELIB.LIB/SOMEPGM.PGM')

as long as no changes were made to it on the remote system. If notprogram objects, then perhaps data areas, user spaces, data queues,etc. I mean, if you're going to call it an integreated file system,then integrate it!

Which brings up the subject my buddy & I have agreed to disagree on --is QSYS.LIB in the IFS or is the IFS in QSYS.LIB?


*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
pdow@xxxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxxx> /