RE: Downloading Source from 4.3 to 3.1

[Brian.Johnson@xxxxxxxxxxxxxxx]

Here's a handy command for QY2FTML:

CRTCMD ... PGM(QY2FTML)

/*
************************************************************************
**
*/
/*



*/
/*
     NAME: FTS      CMD
                                                   
*/
/*



*/
/*
     AUTHOR:
                                                              
*/
/*
         Brian Johnson, 14Sep92
                                           
*/
/*



*/
/*
     DESCRIPTION:
                                                         
*/
/*
         File Transfer Support
                                            
*/
/*



*/
/*
         Command interface to file transfer program QY2FTML.
              
*/
/*
         See appendix E in the ICF Programmer's Guide.
                    
*/
/*



*/
/*
     MODIFICATION HISTORY:
                                                
*/
/*
         (name, date, description)
                                        
*/
/*



*/
/*
************************************************************************
**
*/
             CMD        PROMPT('File Transfer Support')

             PARM       KWD(OPTION) TYPE(*CHAR) LEN(1) RSTD(*YES) +

                          VALUES(S R) CHOICE('S=Send R=Retrieve') +

                          PROMPT('Option')

             PARM       KWD(FROMLIB) TYPE(*NAME) LEN(10) +

                          PROMPT('From library')

             PARM       KWD(FROMFILE) TYPE(*NAME) LEN(10) +

                          PROMPT('From file')

             PARM       KWD(FROMMBR) TYPE(*NAME) LEN(10) +

                          PROMPT('From member')

             PARM       KWD(TYPE) TYPE(*CHAR) LEN(6) CONSTANT('      ')

             PARM       KWD(TOLIB) TYPE(*NAME) LEN(10) PROMPT('To +

                          library')

             PARM       KWD(TOFILE) TYPE(*NAME) LEN(10) PROMPT('To +

                          file')

             PARM       KWD(TOMBR) TYPE(*NAME) LEN(10) PROMPT('To +

                          member')

             PARM       KWD(TODATE) TYPE(*CHAR) LEN(6) +

                          CONSTANT('      ')

             PARM       KWD(REPLACE) TYPE(*CHAR) LEN(1) RSTD(*YES) +

                          VALUES(Y N) CHOICE('Y, N') +

                          PROMPT('Replace existing member')

             PARM       KWD(RMTLOCNAME) TYPE(*CHAR) LEN(8) +

                          PROMPT('Remote location name')

             PARM       KWD(PASSWORD) TYPE(*CHAR) LEN(10) +

                          DSPINPUT(*PROMPT) PROMPT('Password on +

                          remote system')

             PARM       KWD(RTNCODE) TYPE(*CHAR) LEN(1) CONSTANT(' ')

             PARM       KWD(MSGID) TYPE(*CHAR) LEN(8) +

                          CONSTANT('        ')


Brian Johnson
Help/Systems, Inc.
brian.johnson@helpsystems.com
www.helpsystems.com
(612) 563-1627





uucp@UUCP1.MCS.NET on 03/12/99 17:05:51

Please respond to MIDRANGE-L@midrange.com

To:   IDRANGE-L@midrange.com>
cc:    (bcc: Brian Johnson/HelpSystems)

Subject:  RE: Downloading Source from 4.3 to 3.1




Consider using the IBM OS/400 V.old file transfer utility in a CLP

CALL       PGM(QY2FTML) PARM(&VSDRC &VFLIB &VFFILE +
             &VFMBR &VTYPE &VTLIB &VTFILE &VTMBR &DATE
             &VRPL &VLOC &VPSWRD &RCODE &MSG &VNETID)


>
> Hi y'all,
>
> Anyone ever managed to do this - our 4.3 OS400 will only allow SAVOBJ
> and
> SAVLIB to 3.2.
>
> I have an F10 3.1 to load to - any solutions without upgrade or
> intermediate machine?







+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@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
+---