Re:

[Mike.Barton@xxxxxxxxxxxx]

>Would that require that the *MODULE object exist and not just
>the *PGM?  You know, CRTBNDCL versus CRTCLMOD & CRTPGM.  Because,
>if such an animal as RTVCLLESRC existed, it would have to have a
>parameter for which module you wanted to retrieve from the program.
>Perhaps with a default of *PGM.

Rob
     No, the modules themselves do not need to exist.

What you do is specify the program object and then the
program (optionally) lists the separate modules used to compile it
which you can then restore.

Since the tool itself is a conglomerate of different modules,
this is the output used on itself.

Screen for Command RTVSRC prompted:


                        Retrieve ILE Source Code (RTVSRC)

 Type choices, press Enter.

 Object . . . . . . . . . . . . . > RTVSRC        Name
   Library  . . . . . . . . . . .     *LIBL       Name, *LIBL, *CURLIB
 Object type  . . . . . . . . . .   *ANY          *ANY, *PGM, *SRVPGM
 Module . . . . . . . . . . . . .   *SELECT       Name, *SELECT, *OBJECT




This results in the following display:

                            Retrieve ILE Source Code

   Object . . . . . . :   RTVSRC            Type . . . . . . . :   *PGM
     Library  . . . . :     XXXX

 Type options, press Enter.
   1=Retrieve Source

                              Source      Source      Source
 Opt  Module      Library     File        Library     Member      Attribute
      RTVSRCL     XXXX        QCLSRC      XXXX        RTVSRCL     CLLE
      RTVSRC1     XXXX        QRPGLESRC   XXXX        RTVSRC1     RPGLE
      RTVSRC2     XXXX        QRPGLESRC   XXXX        RTVSRC2     RPGLE
      RTVSRC3     XXXX        QRPGLESRC   XXXX        RTVSRC3     RPGLE


                                                                         Bottom
 Type command, press Enter.
 ===>
 F3=Exit   F4=Prompt   F9=Retrieve   F11=Display creation details   F12=Cancel


You can then retreive any of the module sources you want.

Suggest you give it a go !

Mike



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