RE: retrieving source

["Suresh Moda" <suresh.moda@xxxxxxxxx>]

Hello Steve,

I have never tried this one but you can check this out if it works or not.



The following is a screen of a command output:

RETRIEVE SOURCES (RTVSRC) 

Type choices, press Enter. 

SOURCE MEMBERS TO RETRIEVE: 
SOURCE . . . . . . . . . . . . Name, *OBJ, *NONE 
SOURCE FILE . . . . . . . . . *OBJ Name, *OBJ 
EXISTING OR NEW SOURCE . . . . *OLD *OLD, *NEW 
SOURCE TYPE FOR NEW MEMBER RPG, SQLRPG, RPGLE... 
SOURCE LIBRARY CODE . . . . Character value, *NONE 
+ for more values                                 


Command Source

CMD PROMPT('RETRIEVE SOURCES') 
PARM KWD(MEMBER) TYPE(SRC_MBRS) MIN(1) MAX(30) + 
LISTDSPL(*INT2) PROMPT('SOURCE MEMBERS TO + 
RETRIEVE') 
QUAL2: QUAL TYPE(*NAME) LEN(4) RSTD(*YES) DFT(*OLD) + 
SPCVAL((*OLD) (*NEW)) 
QUAL TYPE(*CHAR) LEN(10) RSTD(*YES) SPCVAL((RPG) + 
(SQLRPG) (RPGLE) (SQLRPGLE) (CLP) (CLLE) + 
(CMD) (DSPF) (PRTF) (PF) (LF) (PNLGRP)) + 
EXPR(*YES) PROMPT('SOURCE TYPE FOR NEW + 
MEMBER') 
QUAL TYPE(*CHAR) LEN(3) SPCVAL((*NONE *NO)) + 
PROMPT('SOURCE LIBRARY CODE') 
SRC_MBRS:ELEM TYPE(*NAME) LEN(10) DFT(*OBJ) SPCVAL((*OBJ) + 
(*NONE)) EXPR(*YES) PROMPT('SOURCE') 
ELEM TYPE(*NAME) LEN(10) DFT(*OBJ) SPCVAL((*OBJ)) + 
EXPR(*YES) PROMPT('SOURCE FILE') 
ELEM TYPE(QUAL2) PROMPT('EXISTING OR NEW SOURCE')


For more help pls refer to site

http://www-912.ibm.com/s_dir/slkbase.NSF/0/13d57e991138dee9862569750044a57b?
OpenDocument

Regards,

Suresh


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Raby, Steve (GE
Advanced Materials, consultant)
Sent: Wednesday, December 15, 2004 5:06 PM
To: RPG programming on the AS400 / iSeries
Subject: retrieving source


Hello all,

Anyone know of a way to retrieve source from a DSPF file?

Best regards

Steve

Steve Raby
GEP Contractor (Mulix)
___________________________________________________
LNP Engineering Plastics            Tel. +31 162 587684 
Ottergeerde 22-28                    Fax  +31 162 518188
4941VM   Raamsdonksveer    Mobile +31 620 542063
                                            Mail : steve.raby@xxxxxxxxxxxx



--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

http://www.patni.com
World-Wide Partnerships. World-Class Solutions.
_____________________________________________________________________

This e-mail message may contain proprietary, confidential or legally
privileged information for the sole use of the person or entity to
whom this message was originally addressed. Any review, e-transmission
dissemination or other use of or taking of any action in reliance upon
this information by persons or entities other than the intended
recipient is prohibited. If you have received this e-mail in error
kindly delete  this e-mail from your records. If it appears that this
mail has been forwarded to you without proper authority, please notify
us immediately at netadmin@xxxxxxxxx and delete this mail. 
_____________________________________________________________________