/* fmtrpgsrc */                                                                 
/*format RPG source memebr */                                                   
/* Albert York */                                                               
                                                                                
             PGM        PARM(&INFILE &MBR &STARTPOS &INCREMENT +                
                          &SHOWLINENO)                                          
                                                                                
             DCL        VAR(&INFILE) TYPE(*CHAR) LEN(20)                        
             DCL        VAR(&MBR) TYPE(*CHAR) LEN(10)                           
             DCL        VAR(&FILENAME) TYPE(*CHAR) LEN(10)                      
             DCL        VAR(&LIBRARY) TYPE(*CHAR) LEN(10)                       
             DCL        VAR(&STARTPOS) TYPE(*DEC) LEN(2 0)                      
             DCL        VAR(&INCREMENT) TYPE(*DEC) LEN(2 0)                     
             DCL        VAR(&SHOWLINENO) TYPE(*CHAR) LEN(4)                     
             DCL        VAR(&ATTR) TYPE(*CHAR) LEN(3)                           
                                                                                
             CHGVAR     VAR(&FILENAME) VALUE(&INFILE)                           
             CHGVAR     VAR(&LIBRARY) VALUE(%SST(&INFILE 11 10))                
                                                                                
             RTVMBRD    FILE(&LIBRARY/&FILENAME) MBR(&MBR) +                    
                          FILEATR(&ATTR)                                        
             MONMSG     MSGID(CPF0000) EXEC(DO)                                 
             SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Invalid +          
                          source member ' *CAT &LIBRARY *TCAT '/' +             
                          *CAT &FILENAME *TCAT '/' *CAT &MBR) +                 
                          MSGTYPE(*ESCAPE)                                      
             ENDDO                                                              
                                                                                
             OVRDBF     FILE(QRPGLESRC) TOFILE(&LIBRARY/&FILENAME) +            
                          MBR(&MBR)                                             
             CALL       PGM(INDENTRPGR) PARM(&STARTPOS &INCREMENT +             
                          &SHOWLINENO)                                          
             SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Source +           
                          member ' *CAT &LIBRARY *TCAT '/' *CAT +               
                          &FILENAME *TCAT '/' *CAT &MBR *BCAT 'has +            
                          been formatted') MSGTYPE(*COMP)                       
                                                                                
             ENDPGM                                                             
