A simple tool to dump all source in a library

README.markdown

A simple tool to dump all source in a library

DUMPALLSRC.RPGLE

     FDSPFDP    IF   E             DISK


     C                   eval      *inlr = *on

     C                   read      QWHFDML

     C                   dow       (not %eof)

     C     callList      plist
     C                   parm                    mlLib
     C                   parm                    mlFile
     C                   parm                    mlName
     C                   parm                    mlSeu2

     C                   CALL      'SVNDMPSRC'   callList

     C                   read      QWHFDML

     C                   enddo 

DUMPALLSRCC.CLLE

             PGM        PARM(&LIB)

             DCL        VAR(&LIB) TYPE(*CHAR) LEN(10)

             ADDLIBLE   LIB(MWLIBR)
             MONMSG     MSGID(CPF0000)

             DSPFD      FILE(&LIB/Q*) TYPE(*MBRLIST) OUTPUT(*OUTFILE) FILEATR(*PF) +
                          OUTFILE(MWLIBR/DSPFDP)

             CALL       PGM(DMPALLSRC)

             ENDPGM 

SVNDMPSRC.CLLE

             PGM        PARM(&LIB &FILE &MEMBER &TYPEIN)

             /* Parameters */
             DCL        VAR(&LIB) TYPE(*CHAR) LEN(10)
             DCL        VAR(&FILE) TYPE(*CHAR) LEN(10)
             DCL        VAR(&MEMBER) TYPE(*CHAR) LEN(10)
             DCL        VAR(&TYPEIN) TYPE(*CHAR) LEN(10)
             DCL        VAR(&TYPE) TYPE(*CHAR) LEN(10)
             /* Local Variables */
             DCL        VAR(&FROMLOC) TYPE(*CHAR) LEN(250)
             DCL        VAR(&TOLOC) TYPE(*CHAR) LEN(250)
             DCL        VAR(&CMD) TYPE(*CHAR) LEN(500)

             /* Setup the directories */
             CHGVAR     VAR(&FROMLOC) VALUE('/QSYS.LIB/' || &LIB *TCAT '.LIB/' || &FILE *TCAT +
                          '.FILE/' || &MEMBER *TCAT '.MBR')
             CHGVAR     VAR(&TYPE) VALUE(&TYPEIN) /* In case there is no extension */
             MONMSG     MSGID(CPF0000) EXEC(DO)
                CHGVAR     VAR(&TYPE) VALUE(' ')
             ENDDO
             IF         COND(&TYPE *NE ' ') THEN(DO)
             CHGVAR     VAR(&TOLOC) VALUE('/rpgSourceDump/' || &LIB *TCAT '/' || &FILE *TCAT +
                          '/' || &MEMBER *TCAT '.' || &TYPE)
             ENDDO
             ELSE       CMD(DO)
             CHGVAR     VAR(&TOLOC) VALUE('/rpgSourceDump/' || &LIB *TCAT '/' || &FILE *TCAT +
                          '/' || &MEMBER)
             ENDDO

             /* Make sure the library folder exists */
             CHGVAR     VAR(&CMD) VALUE('/rpgSourceDump/' || &LIB)
             MKDIR      DIR(&CMD)
             MONMSG     MSGID(CPFA0A0)

             /* Make sure the source file exists */
             CHGVAR     VAR(&CMD) VALUE('/rpgSourceDump/' || &LIB *TCAT '/' || &FILE)
             MKDIR      DIR(&CMD)
             MONMSG     MSGID(CPFA0A0)

             /* Copy the source to a stream file */
 RETRYCOPY:
             CPYTOSTMF  FROMMBR(&FROMLOC) TOSTMF(&TOLOC) STMFOPT(*REPLACE) STMFCODPAG(819)
             MONMSG     MSGID(CPFA0B1 CPDA082)
             MONMSG     MSGID(CPFA097 CPDA08A) EXEC(DO)
                RMVLNK     OBJLNK(&TOLOC)
                MONMSG     MSGID(CPFA0B1 CPFA0A9) EXEC(GOTO CMDLBL(END))
                GOTO       CMDLBL(RETRYCOPY)
             ENDDO

 END:
             ENDPGM