PARM FROMSET,TOSET="!HPGROUP.!HPACCOUNT"

# FILENAME: GRPCOPY.XEQ - Joe Geiser
#
# DO A "LISTF,1" TO GET FILENAMES IN FROMSET

FILE FLIST=FLIST;REC=-79,,F,ASCII;DEV=DISC;NOCCTL
LISTF !FROMSET,1;*FLIST
FILE IN=FLIST;REC=-79
ECHO ***** COPYING "!FROMSET" TO GROUP "!TOSET" *****
CONTINUE
RUN CI.PUB.SYS;INFO="GRPCOPY2.XEQ &
    ![FINFO("FLIST",19)] !TOSET";&
    PARM=2;STDIN=*IN
PURGE FLIST,TEMP
DELETEVAR GC@