Re: QLansrv copy

[Vernon Hamberg <hambergv@xxxxxxxxxxxxxx>]

Jeff

At 04:29 PM 2/11/1998 -0500, you wrote:
>> CPYTOSTMF FROMMBR('\QSYS.LIB\QTEMP.LIB\HTML.FILE\HTML.MBR')    
>>            TOSTMF('\qlansrv\public\employeedirectory\empdir.html')   
>>            STMFOPT(*REPLACE)                                    
>>            CVTDTA(*TBL)                                         
>>            TBL('QSYS.LIB\QASCII.TBL')                           
>
>Thanks for responding.  I got it to work!  I found a sample in the
>redbook GG24-4378-00 "LAN Server/400:  A Guide to Using the AS/400 as a
>File Server".  In their example, they use an AS/400 code page of 37, and
>a stream file code page of 850, both hard-coded.
>
>I'll do some more reading and find out the pros/cons of their method vs
>yours of using the QASCII.TBL.
>
>What's really flaky (IMO) is having to place the data in a program
>described file first.  I understand the ramifications of packed data,
>but as long as I avoid troublesome data types, I don't see the purpose
>on not allowing externally described files.

You might try FTP. You can use the same AS/400 as client _and_ server by
entering

    ftp loopback

Packed fields are still an issue, but you can copy (put) any kind of file
this way. Execute 

    namefmt 1

in the FTP session to be able to see the LanServer file structure.

HTH

Vernon Hamberg
Systems Software Programmer
Old Republic National Title Insurance Company
400 Second Avenue South
Minneapolis, MN  55401-2499
(612) 371-1111 x480


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---