HP3000-L Archives

March 2014, Week 4

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: How to remove ACD's from multiple files?
From:
"Keven Miller (rtt)" <[log in to unmask]>
Reply To:
Keven Miller (rtt)
Date:
Mon, 24 Mar 2014 16:29:54 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (90 lines) 
And if you don't have MPEX,
you can use a command file like the one below.

CMDF.CMD

PARM FILES=@, PCMD="ECHO File !"
SETVAR XSI_CMD "!PCMD"
IF FINFO ( "CMDFLST,TEMP", "EXISTS" ) THEN
PURGE CMDFLST,TEMP
ENDIF
FILE CMDFLST;MSG;TEMP;NOCCTL;REC=-40,,F,ASCII;DISC=100000
LISTF !FILES,6;*CMDFLST
FILE CMDFLST,OLDTEMP
SETVAR XSI_CNT FINFO ( "CMDFLST,TEMP", "EOF" )
SETVAR XSI_R 0
WHILE !XSI_R < !XSI_CNT DO
   INPUT XSI_FILE < CMDFLST
   SETVAR XSI_R XSI_R + 1
   SETVAR XSI_FILE RTRIM ( XSI_FILE )

   SETVAR XSI_DO REPL (XSI_CMD, "!", XSI_FILE)
   SETJCW CIERROR=0
   CONTINUE
   !XSI_DO
   IF CIERROR = 0 THEN
      ECHO !XSI_DO
   ENDIF
ENDWHILE
ECHO !XSI_CNT FILES
DELETEVAR XSI_@
PURGE CMDFLST,TEMP


This command file takes 2 parameters.
1. a  fileset (wildcards allowed)
2. an MPE command with a ! exclamation as place holder for the filename

It does a LISTF ,6 of your fileset into a MSG file.
Then reads through the MSG file and processes each file with your command.

:cmdf [log in to unmask]
File BG.C.KEVENM
File BIN2ASCC.C.KEVENM
File BINGO.C.KEVENM
File BLOWFISH.C.KEVENM
File BREAK.C.KEVENM
File BTGLOBAL.C.KEVENM
File BTREADC.C.KEVENM
File BUGS.C.KEVENM
File BULDACCT.C.KEVENM
9 FILES
:altsec bugs.c;newacd=(r,w:mgr.kevenm;r,w,racd:@.@)
:LISTF bugs.c,-2
MON, MAR 24, 2014, 4:23 PM
ACCOUNT= KEVENM GROUP= C 
FILENAME ------------ACD ENTRIES--------------
BUGS MGR.KEVENM : R,W 
@.@ : R,W,RACD 
?
:cmdf [log in to unmask], "altsec !;delacd"
altsec BG.C.KEVENM;delacd
There is no ACD associated with the target file. (CIERR 7305)
altsec BIN2ASCC.C.KEVENM;delacd
There is no ACD associated with the target file. (CIERR 7305)
altsec BINGO.C.KEVENM;delacd
There is no ACD associated with the target file. (CIERR 7305)
altsec BLOWFISH.C.KEVENM;delacd
There is no ACD associated with the target file. (CIERR 7305)
altsec BREAK.C.KEVENM;delacd
There is no ACD associated with the target file. (CIERR 7305)
altsec BTGLOBAL.C.KEVENM;delacd
There is no ACD associated with the target file. (CIERR 7305)
altsec BTREADC.C.KEVENM;delacd
There is no ACD associated with the target file. (CIERR 7305)
altsec BUGS.C.KEVENM;delacd
altsec BULDACCT.C.KEVENM;delacd
There is no ACD associated with the target file. (CIERR 7305)
9 FILES
:listf bugs.c,-2
MON, MAR 24, 2014, 4:23 PM
ACCOUNT= KEVENM GROUP= C 
FILENAME ------------ACD ENTRIES--------------
BUGS NO ACDS
?

Keven Miller

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2