Re: tn5250 Newbie Questions....

[Elias Mandouvalos <ocean@xxxxxxxxxxxx>]

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 LINUX5250@midrange.com.
>| To subscribe to this list send email to LINUX5250-SUB@midrange.com.
>| To unsubscribe from this list send email to LINUX5250-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator: david@midrange.com
>+---
>
>

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