Home > IT Answers > AS/400 > Find string in AS/400 library
madhuchowdary
345 pts.
 Find string in AS/400 library
AS/400, AS/400 Library, String
my requirement is find out string and which file contain that string,file name,file type,source file name this information find

Software/Hardware used:
software
ASKED: February 16, 2011  6:06 PM
UPDATED: February 17, 2011  10:14 PM
RELATED QUESTIONS
Answer Wiki:
Can you please give us some clarification. Do you need to scan the data in a PF Data file to find a character string? Or is it a PF-SRC file where you need to scan the source members to find something.. If that is the case then you can use WRKMBRPDM. Put '25' in the option field by the first member and then do F13 to repeat that option for all members. A screen will appear where you can enter the string value you are looking to find. * Are you looking to find a string either in a file name or the text description of a file or member. If so, you can also use PDM for that by using F15 to get a subset list.
Last Wiki Answer Submitted:  February 16, 2011  7:12 pm  by  CharlieBrowne   32,785 pts.
All Answer Wiki Contributors:  CharlieBrowne   32,785 pts.
To see all answers submitted to the Answer Wiki: View Answer History.


RSS - Discussions Help
Discuss This Question:
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

 

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

madhuchowdary
 345 pts.
 

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)

WoodEngineer
 5,525 pts.
 

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
CharlieBrowne
 32,785 pts.
 

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.

HMSSL2K
 3,175 pts.