exporting PF-SRC to a database ACCESS

[nicolas]

I'm finishing my actual job ... my factory is closing cause this crisis ... I need to export my as400 source program to use in my future jobs .... I hope ..... My problem is to reference single member of the source file.
Thank you in advance
Nicolas

[tomholden]

Re: exporting PF-SRC to a database ACCESS

if you have WDSC, RDi or RDp you can download them as iseries projects to your PC and then zip 'em up on a thumb drive. other than that there's always the venerable FTP using MGET mylib/qrpglesrc.* for example. for a single member just use GET mylib/qrpglesrc.mbrname

[jamief]

Re: exporting PF-SRC to a database ACCESS

this would work in a pinch...
I like to change the extension to the type -- example: rpgle sqlrpgle clle ...etc but you can mod this to take care of that.

 pgm                                                                                  
                                                                                      
              DCL        VAR(&NEWNAME) TYPE(*CHAR) LEN(25)                            
              DCLF       FILE(QTEMP/OUTFILE)                                          
                 monmsg cpf0000                                                       
              DSPFD      FILE(JAMIELIB/SAVSRC) TYPE(*MBRLIST) +                       
                           OUTPUT(*OUTFILE) OUTFILE(QTEMP/OUTFILE)                    
   loop:      RCVF                                                                    
              MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(EXIT))                       
              CHGVAR     VAR(&NEWNAME) VALUE('/jamie/' || &mlname *tcat '.txt')       
              CPYTOIMPF  FROMFILE(JAMIELIB/SAVSRC &MLNAME) +                          
                           TOSTMF(&NEWNAME) MBROPT(*REPLACE) +                        
                           STMFCODPAG(*PCASCII) RCDDLM(*CRLF) +                       
                           DTAFMT(*FIXED) STRDLM(*NONE)                               
              goto loop                                                               
  EXIT:       ENDPGM 

also this is the best FTP in the world!
it connects to the iseries and allows with the click of the mouse to view folders

http://www.ipswitchft.com/Products/Ws_Ftp_Pro/Evaluation.aspx

give it a look.

jamie

[kitvb1]

Re: exporting PF-SRC to a database ACCESS

Sorry to hear that Nicolas... good luck for the future.

[jamief]

Re: exporting PF-SRC to a database ACCESS

@ kit - you sentimental devil!

I should have said that myself... Please let us know if there is anything you need to help.
I can offer you some free hosting and a bit of help if you'd like to put up a semi interactive resume..

please let me know
jamie

[nicolas]

Re: exporting PF-SRC to a database ACCESS

Excuse me for the late of my answer. Thank you so much everybodies.
Thank you Jamie I will keep your help for my future job. thnks Kit.
nicolas