This is part of my RPG Utils series to help overcome some of the day-to-day activities which can be automated.
Developers, QA, Analyst or anyone who wants to access source code in RPG rejoice. This will help you to find any source within many libraries with just one command. Just set the library list once and enjoy.

These instructions will get you a copy of the project up and running on your local machine for development and testing purposes.

You need to have AS400 Machine access (duh!)
Create a RPGUtils Source File to store the files.

CRTSRCPF RPGUTILS

• LIBLISTF
  This is a PF source which will hold the library list data.

• LIBLISTP
  This is the program to maintain library list.

• LIBLISTD
  Display file required for library list program.

• LIBLISTCMD
  Command source file.

• VALLSRCC
  Driver CL program.

• VALLSRCCMD
  Driver command source file.

• VALLSRCD
  Display file used by main program.

• VALLSRCP
  Main program.

• CPYBK
  A copybook to store prototype definitions and other. If you use any other library that RPGUTILS, please change the path in above RPG program/s for this copy book.

Step 1. Upload all files to AS400 server, use ftp. DO NOT CHANGE THE MODE TO BINARY.

  open pub400.com
  username
  password
  cd /QSYS.LIB
  cd YOURLIB.LIB
  cd RPGUTILS.FILE
  mput *.MBR
  disconnect
  quit

Step 2. Change the attribute type accordingly once uploaded.

  LIBLISTCMD  CMD     
  LIBLISTD    DSPF    
  LIBLISTF    PF      
  LIBLISTP    SQLRPGLE
  VALLSRCC    CLLE    
  VALLSRCCMD  CMD     
  VALLSRCD    DSPF    
  VALLSRCP    SQLRPGLE       
  CPYBK       CPY

Step3. Use below command to compile.

DSPOBJD OBJ(YOURLIB) OBJTYPE(*LIB) OUTPUT(*OUTFILE) OUTFILE(QTEMP/LIBINFOF)   

CRTPF FILE(YOURLIB/LIBLISTF) SRCFILE(YOURLIB/RPGUTILS) SRCMBR(LIBLISTF)           

CRTDSPF FILE(YOURLIB/LIBLISTD) SRCFILE(YOURLIB/RPGUTILS) SRCMBR(LIBLISTD) REPLACE(*YES)  

CRTDSPF FILE(YOURLIB/VALLSRCD) SRCFILE(YOURLIB/RPGUTILS) SRCMBR(LIBLISTD) REPLACE(*YES)  

CRTSQLRPGI OBJ(YOURLIB/LIBLISTP) SRCFILE((YOURLIB/RPGUTILS) SRCMBR(LIBLISTP) OBJTYPE(*PGM) REPLACE(*YES)  

CRTSQLRPGI OBJ(YOURLIB/VALLSRCP) SRCFILE((YOURLIB/RPGUTILS) SRCMBR(VALLSRCP) OBJTYPE(*PGM) REPLACE(*YES)  

CRTBNDCL PGM(YOURLIB/VALLSRCC) SRCFILE((YOURLIB/RPGUTILS) SRCMBR(VALLSRCC) REPLACE(*NO)               

CRTCMD CMD(YOURLIB/LIBLIST) PGM(*LIBL/LIBLISTP) SRCFILE(YOURLIB/RPGUTILS) SRCMBR(LIBLISTCMD) REPLACE(*YES)  

CRTCMD CMD(YOURLIB/FA) PGM(*LIBL/VALLSRCC) SRCFILE(YOURLIB/RPGUTILS) SRCMBR(VALLSRCCMD) REPLACE(*YES) 

Step 4.

Add libraries to library list using below command.

LIBLIST

This would ask for following things:

LIBRARY......:           
SEQUENCE.....:           
OBJECT/SOURCE:    (O/S/B)
PROGRAM/DATA.:    (P/D/B)

Library is the library you want to add. Leave the sequence blank for now. Used for search sequence of libraries.

Object or Source or Both. Since library list is used by my other utilities, this is some extra information for now.
Object library would be library which contains objects only. Source would be for source. Both for Both :)
You can enter 'B'.

Programs or Data or Both. If library is object library, then whether it holds only programs or files or both.
You can enter 'B'.

FA <source member name>

E.g. Now, if we want to find all the places (libraries that we added in library list) where source for LIBLISTP is present, we would: FA LIBLISTP (this will show the source from all the libraries, if present in that library)

You can the then position the cursor on select line and press enter to view the source.

Ashish Bagaddeo

This project is licensed under the Apache License v2.0 - see the LICENSE.md file for details

Thanks www.PUB400.com for hosting a public server.