You can not do file transfer "a la Client access" with tn5250,
but if you have the ftp server running on the AS/400 you can issue
the CPYTOIMPF command via ftp (assuming you have the appropriate access rights):
ftp myAS400
--- user id and password stuff here -----
quote rcmd "CPYTOIMPF FROMFILE(MYLIB/MYFILE)
TOSTMF('/usr/pub/exportdir/exportfile.txt') MBROPT(*REPLACE)"
quit
Then assuming that you have access to the specified ifs directory above you can
get your file which will be now ascii comma delimited.
Elias
Original message from: Larry Bottorff
>When I log onto our AS/400 I am immediately shunted over to a COBOL app,
>end of story. I cannot get a regular, interactive AS/400 session. However,
>the client we use, WRQ Reflection, has a "transfer" option which produces
>a nice raw file transfer dialog box with quasi-SQL capabilities (and COM
>capabilities). I have no idea what protocol(s) this "transfer" option
>uses, or how it works, but if my app is going to be portable to other
>"turn-key" setups (and not require 100s of WRQ licenses or have to resort
>to VB), I'll need something with WRQ's transfer capabilities, i.e.,
>plug-and-chug, with minimal setup or changes from all the cast-in-iron
>AS/400 setups (such as my own). Is a complete AS/400 file transfer doable
>in a 5250 session? I'm guessing CPYTOIMPF et.al. are commands issued
>during a 5250 session, i.e., they could be automated. This seems like a
>typical need, but this newbie has been hacking through a wilderness so
>far.
>
>On Tue, 15 May 2001, Elias Mandouvalos wrote:
>
>> The command is CPYTOIMPF:
>> ----------------------------------------------------------
>> Copy To Import File (CPYTOIMPF)
>>
>> Type choices, press Enter.
>>
>> From file:
>> File . . . . . . . . . . . . . Name
>> Library . . . . . . . . . . *LIBL Name, *LIBL, *CURLIB
>> Member . . . . . . . . . . . . *FIRST Name, *FIRST
>> To data base file:
>> File . . . . . . . . . . . . . Name
>> Library . . . . . . . . . . *LIBL Name, *LIBL, *CURLIB
>> Member . . . . . . . . . . . . *FIRST Name, *FIRST
>> To stream file . . . . . . . . .
>>
>> Replace or add records . . . . . *ADD *ADD, *REPLACE
>> To CCSID . . . . . . . . . . . . *FILE 1-65533, *FILE
>> Record delimiter . . . . . . . . *EOR Character value, *EOR...
>> Record format of import file . . *DLM *DLM, *FIXED
>> String delimiter . . . . . . . . '"' Character value, *NONE
>> Field delimiter . . . . . . . . ',' Character value
>> Null field indicator . . . . . . *NO *NO, *YES
>> Decimal point . . . . . . . . . *PERIOD *PERIOD, *COMMA
>> Date format . . . . . . . . . . *ISO *ISO, *USA, *EUR, *JIS, *YYMD
>> Time format . . . . . . . . . . *ISO *ISO, *USA, *EUR, *JIS
>>
>> ----------------------------------------------------------
>> >>
>> >> I have a day job (I'm a comp sci at Wichita State) at a Kansas county gov
>> >> (Harvey) where lot of data is in an AS400. I've been using a commercial
>> >> client (WRQ Reflection), but would like to go Open Source. We need to get
>> >> raw files used by an ancient COBOL program over to our LAN. I would like
>> >> to hack tn5250 to simply do file transfers out of the AS400. My ulterior
>> >> motive is to get an entire app running on cygwin for distribution
>> >> throughout the state. (Another motive is to learn about a serious OS
>> >> project!) The COBOL program is CAMA, a popular package that tax appraisers
>> >> use, but has no known hooks for getting stuff into the "modern world". If
>> >> I can get it going for real-time data extraction, I hope to talk the state
>> >> of Kansas into looking at Linux (and OS) more seriously. As of now I'm
>> >> struggling with cygwin on NT, a fine thing, but not the real thing....
>> >>
>> >> I would appreciate some hints, whatever you can spare, on how to subtract
>> >> out the visual (curses, etc.) and just bring over files. You might say,
>> >> "why not do ftp?" Well, I could, but a) I'd like more functionality b)
>> >> things here are bureaucratic and political, i.e., I can't just go up and
>> >> ask for ftp permissions, weird but true....
>
>+---
>| This is the LINUX5250 Mailing List!
>| To submit a new message, send your mail to [EMAIL PROTECTED]
>| To subscribe to this list send email to [EMAIL PROTECTED]
>| To unsubscribe from this list send email to [EMAIL PROTECTED]
>| Questions should be directed to the list owner/operator: [EMAIL PROTECTED]
>+---
>
>
+---
| This is the LINUX5250 Mailing List!
| To submit a new message, send your mail to [EMAIL PROTECTED]
| To subscribe to this list send email to [EMAIL PROTECTED]
| To unsubscribe from this list send email to [EMAIL PROTECTED]
| Questions should be directed to the list owner/operator: [EMAIL PROTECTED]
+---
