diff --git a/samples/PFGREPSRC.CMD b/samples/PFGREPSRC.CMD
new file mode 100644
index 0000000..6fc601d
--- /dev/null
+++ b/samples/PFGREPSRC.CMD
@@ -0,0 +1,64 @@
+/* Text: Search Library Source Members using PFGREP */                                                      
+             CMD        PROMPT('Search Library Src Members')                                                
+             PARM       KWD(SRCLIBRARY) TYPE(*CHAR) LEN(10) MIN(1) +                                        
+                          EXPR(*YES) CASE(*MIXED) PROMPT('Source +                                          
+                          library name pattern')                                                            
+             PARM       KWD(SRCFILE) TYPE(*CHAR) LEN(10) +                                                  
+                          DFT(QCLSRC) EXPR(*YES) CASE(*MIXED) +                                             
+                          PROMPT('Source file name pattern')                                                
+             PARM       KWD(SRCMEMBER) TYPE(*CHAR) LEN(10) +                                                
+                          DFT(*) EXPR(*YES) CASE(*MIXED) +                                                  
+                          PROMPT('Source member name pattern')                                              
+             PARM       KWD(SEARCHFOR) TYPE(*CHAR) LEN(50) MIN(1) +                                         
+                          EXPR(*YES) CASE(*MIXED) PROMPT('Search +                                          
+                          for value')                                                                       
+             PARM       KWD(PROMPTCMD) TYPE(*CHAR) LEN(4) RSTD(*YES) +                                      
+                          DFT(*NO) VALUES(*NO *YES) MAX(1) +                                                
+                          CASE(*MIXED) PROMPT('Prompt QSHEXEC command')                                     
+             PARM       KWD(SETPKGPATH) TYPE(*CHAR) LEN(4) +                                                
+                          RSTD(*YES) DFT(*YES) VALUES(*NO *YES) +                                           
+                          EXPR(*YES) CASE(*MIXED) PROMPT('Set +                                             
+                          QOpenSys yum package path')                                                       
+             PARM       KWD(DSPSTDOUT) TYPE(*CHAR) LEN(4) RSTD(*YES) +                                      
+                          DFT(*NO) VALUES(*NO *YES) PROMPT('Display +                                       
+                          Standard Output Result')                                                          
+             PARM       KWD(LOGSTDOUT) TYPE(*CHAR) LEN(4) RSTD(*YES) +                                      
+                          DFT(*NO) VALUES(*NO *YES) PROMPT('Log +                                           
+                          standard output to job log')                                                      
+             PARM       KWD(PRTSTDOUT) TYPE(*CHAR) LEN(4) RSTD(*YES) +                                      
+                          DFT(*NO) VALUES(*NO *YES) PROMPT('Print +                                         
+                          Standard Output Result')                                                          
+             PARM       KWD(DLTSTDOUT) TYPE(*CHAR) LEN(4) RSTD(*YES) +                                      
+                          DFT(*YES) VALUES(*NO *YES) PROMPT('Delete +                                       
+                          Standard Output Result')                                                          
+             PARM       KWD(IFSSTDOUT) TYPE(*CHAR) LEN(4) RSTD(*YES) +                                      
+                          DFT(*NO) VALUES(*NO *YES) PROMPT('Copy +                                          
+                          std output to IFS file')                                                          
+             PARM       KWD(IFSFILE) TYPE(*CHAR) LEN(255) +                                                 
+                          PROMPT('IFS file for stdout results')                                             
+             PARM       KWD(IFSOPT) TYPE(*CHAR) LEN(10) RSTD(*YES) +                                        
+                          DFT(*REPLACE) VALUES(*ADD *REPLACE *NONE) +                                       
+                          PROMPT('IFS file option')                                                         
+             PARM       KWD(CCSID) TYPE(*CHAR) LEN(10) DFT(*SAME) +                                         
+                          SPCVAL((*SAME *SAME)) PROMPT('Coded +                                             
+                          character set ID for job')                                                        
+             PARM       KWD(PRTSPLF) TYPE(*CHAR) LEN(10) +                                                  
+                          DFT(PFGREPSRC) PROMPT('Print stdout +                                            
+                          spool file')                                                                      
+             PARM       KWD(PRTUSRDTA) TYPE(*CHAR) LEN(10) DFT(*NONE) SPCVAL((*NONE ' ')) +                 
+                          PROMPT('Print stdout user data')                                                  
+             PARM       KWD(PRTTXT) TYPE(*CHAR) LEN(30) DFT(*NONE) SPCVAL((*NONE ' ')) CASE(*MIXED) +       
+                          PROMPT('Print stdout print text')                                                 
+             PARM       KWD(PRTHOLD) TYPE(*CHAR) LEN(4) RSTD(*YES) +                                        
+                          DFT(*YES) VALUES(*NO *YES) SPCVAL((*NONE +                                        
+                          ' ')) CASE(*MIXED) PROMPT('Print stdout +                                         
+                          hold spool file')                                                                 
+             PARM       KWD(PRTOUTQ) TYPE(QUAL2) MIN(1) +                                                   
+                          PROMPT('Print stdout to outq')                                                    
+             PARM       KWD(PASEJOBNAM) TYPE(*CHAR) LEN(10) +                                               
+                          DFT(*DEFAULT) CASE(*MIXED) PROMPT('PASE +                                         
+                          fork thread job names')                                                           
+ QUAL2:      QUAL       TYPE(*NAME) LEN(10) DFT(*SAME) +                                                    
+                          SPCVAL((*SAME)) EXPR(*YES)                                                        
+             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +                                                    
+                          SPCVAL((*LIBL)) EXPR(*YES) PROMPT('Library')