Hp3000MpexXeqDircomp < TWiki

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

-- ChrisBartram - 09 Jun 2006

Topic Hp3000MpexXeqDircomp . { Edit | Attach | Backlinks: Web All webs | Printable | History: r1 More }

Parents: WebHome > Hp3000CommandFiles > Hp3000MpexXeqs

Copyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding TWiki? Send feedback
Note: Please contribute updates to this topic on TWiki.org at TWiki:TWiki.Hp3000MpexXeqDircomp

	TWiki > TWiki > Hp3000CommandFiles > Hp3000MpexXeqs > Hp3000MpexXeqDircomp	TWiki webs: Main \| TWiki \| Sandbox
	TWiki . { Welcome \| Register \| Changes \| Topics \| Index \| Search \| Go }