Most Windows Shares can be seen via Net Server SMB client. If you have that configured, try the following command, WRKLNK '/QNTC/*'. This should give you a list of SMB servers on your network. (May list all of your PC on the network and can take quite a while to populate.)
here is a link on setting up SMB shares.
http://www-01.ibm.com/support/docview.wss?uid=nas8N1018146
Here is a midrange discussing on this subject.
http://archive.midrange.com/rpg400-l/201004/msg00210.html
Chris Bipes
Director of Information Services
CrossCheck, Inc.
-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Thomas Burrows
Sent: Tuesday, February 03, 2015 8:56 AM
To: Midrange Systems Technical Discussion
Subject: cpytoimpf command question
In my current project I am using the "cpytoimpf" command to copy from an
iSeries DB file to an IFS file.
DCL VAR(&PART1) TYPE(*CHAR) LEN(11) +
VALUE('/home/dir1/')
DCL VAR(&PART2) TYPE(*CHAR) LEN(10)
DCL VAR(&PART3) TYPE(*CHAR) LEN(4) +
VALUE('.prg')
chgvar var(&TOSTMF) value(&part1 |< &out |< &part3)
CPYTOIMPF FROMFILE(QTEMP/&OUT) TOSTMF(&TOSTMF) +
MBROPT(*REPLACE) STMFCODPAG(*PCASCII) +
RCDDLM(*LF) STRDLM(*NONE)
The above code is in a loop where the value of &OUT is changing each
time the loop is executed.
What is output is a TEXT file with the extension of "PRG". Files are fed
into a controller on an automated saw that cuts strips of wood to specific
lengths, etc according to commands inside the PRG file.
How can I use the CPYTOIMPF command to output to a network folder? We want
to avoid the manual step of moving the files from an IFS folder to the
network folder.
I know about mapping IFS folders so they show up on your PC. But not sure
about going the other direction.
midrange.com
