PARM CS$FILESET='', SRCLOC=''

# DIRCOMP MPEX script.
# Ron Tilby

  IF ('!FILESET' = '') OR ('!SRCLOC' = '') THEN

    ECHO This procedure shows files that exist in one group.account
    ECHO   but do not exist in another group.account.
    ECHO For example: To show all PROGRAM files in OBJ.FINACT that
    ECHO   don't have a corresponding file in SRC.FINACT enter:
    ECHO   DIRCOMP @.OBJ.FINACT(CODE = "PROG"), SRC.FINACT

  ELSE

    REPEAT

      SETVAR X1 = RFILE.FILE + '.' + '!SRCLOC'
      IF NOT FEXISTS('!X1') THEN
        ECHO ![RFILE.FILE].![RFILE.GROUP].![RFILE.ACCOUNT]
      ENDIF

    FORFILES !FILESET

  ENDIF