madhuchowdary Feb 17, 2011   9:58 AM GMT

thanks, but my requirement is find out all source files(qddssrc,qrpglesrc,qclsrc),particular file name,that object type.please give example cl or rpg

350 pointsBadges:

WoodEngineer Feb 17, 2011   5:10 PM GMT

This IBM command may do what you want. Just run it over all the source files you need to check. There are lots of choices for the OPTION parm. I just used *PRT as an illustration. FNDSTRPDM STRING(FILENAME) FILE(QRPGLESRC) MBR(*ALL) OPTION(*PRT)

7,900 pointsBadges:

CharlieBrowne Feb 17, 2011   6:48 PM GMT

Here is some code for my FNDSRC command. It searches all Q* files on the system for a member and then uses WRKMBRPDM to display all of them. You can easily modify this to get what you need. *

CMD        PROMPT('FIND A SOURCE FILE MEMBER')           
                                                         
PARM       KWD(MBR) TYPE(*CHAR) LEN(10) PROMPT('Source + 
             Member')                                    

+++
PGM        PARM(&NAME)                                    
                                                          
DCLF       FILE(DSPOBJD)                                  
DCL        VAR(&NAME) TYPE(*CHAR) LEN(10)                 
DCL        VAR(&TEXT) TYPE(*CHAR) LEN(50)                 
DCL        VAR(&CHG ) TYPE(*CHAR) LEN(13)                 
DCL        VAR(&USE ) TYPE(*CHAR) LEN(07)                 
                                                          
DCL        VAR(&SLICE) TYPE(*DEC)  LEN(07 0)              
DCL        VAR(&Purge) TYPE(*CHAR) LEN(10)                
DCL        VAR(&Pool ) TYPE(*CHAR) LEN(10)                
DCL        VAR(&SWS  ) TYPE(*CHAR) LEN(08)                
                                                          
RTVJOBA    TIMESLICE(&SLICE) PURGE(&PURGE) TSEPOOL(&POOL) 
CHGJOB     TIMESLICE(9999999) PURGE(*NO) TSEPOOL(*NONE)   
                                                          
    DSPOBJD    OBJ(*ALL/Q*) OBJTYPE(*FILE) +              
               OUTPUT(*OUTFILE) OUTFILE(QTEMP/DSPOBJD)    
                                                          
DLTF       FILE(QTEMP/&NAME)      
            MONMSG     CPF0000                                         
            CRTSRCPF   FILE(QTEMP/&NAME) RCDLEN(112)                   
                                                                       
            OVRDBF     FILE(DSPOBJD) TOFILE(QTEMP/DSPOBJD)             
LOOP:       RCVF                                                       
            MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(PDM))           
                                                                       
            If         Cond(&OdObAt = 'PF') Then(Do)                   
            RTVMBRD    FILE(&ODLBNM/&ODOBNM) MBR(&NAME)                
            MONMSG     MSGID(CPF9815 CPF9812 CPF2864 CPF9822) +        
                         EXEC(GOTO CMDLBL(LOOP))                       
                                                                       
            CPYF       FROMFILE(&ODLBNM/&ODOBNM) TOFILE(QTEMP/&NAME) + 
                         FROMMBR(&NAME) TOMBR(&ODLBNM) +               
                         MBROPT(*ADD) CRTFILE(*YES) FMTOPT(*NOCHK)     
            EndDo                                                      
            GOTO       CMDLBL(LOOP)                                    
                                                                       
PDM:                                                                   
            DLTOVR     DSPOBJD                                         
CHGJOB     TIMESLICE(&SLICE) PURGE(&PURGE) TSEPOOL(&POOL)  
ENDPGM

62,340 pointsBadges:

HMSSL2K Feb 17, 2011   10:14 PM GMT

You should post you work here or what you have tried to do. This sounds like a homework question. I'm only saying this because you don't say what you tried to do before asking us for help.

3,175 pointsBadges:

The Most-Watched IT Questions: March 1, 2011 - ITKE Community Blog Mar 1, 2011   6:49 AM GMT

[...] 5. CharlieBrowne gave some pointers on when to use the D Spec on DS in AS/400. 6. WoodEngineer and CharlieBrowne gave some code suggestions for finding a string in AS/400 library. [...]

0 pointsBadges: