PARM GC_NRECS,GC_TOGROUP

# FILENAME: GRPCOPY2.XEQ - Joe Geiser
#
# READ THE LISTF FILE, EXTRACT FROM-FILENAME,
# AND EXECUTE THE PROPER COPY COMMAND

SETVAR GC_CNTR,7
INPUT GC_REC
SETVAR GC_FACCT,"![STR("!GC_REC",11,8)]"
SETVAR GC_FGRP,"![STR("!GC_REC",31,8)]"
SETVAR GC_ALEN,POS(" ","!GC_FACCT")-1
SETVAR GC_GLEN,POS(" ","!GC_FGRP")-1
IF !GC_ALEN < 0 THEN
  SETVAR GC_ALEN,8
ENDIF
IF !GC_GLEN < 0 THEN
  SETVAR GC_GLEN,8
ENDIF
SETVAR GC_FROMGRP,"![STR("!GC_FGRP",1,!GC_GLEN)]"&
       + "." + "![STR("!GC_FACCT",1,!GC_ALEN)]"
INPUT GC_REC
INPUT GC_REC
INPUT GC_REC
INPUT GC_REC
WHILE !GC_CNTR < !GC_NRECS
  INPUT GC_REC
  IF "![STR("!GC_REC",1,8)]" = "ACCOUNT="
    INPUT GR_REC
    INPUT GC_REC
    INPUT GC_REC
    INPUT GC_REC
    INPUT GC_REC
    SETVAR GC_CNTR,!GC_CNTR+5
  ENDIF
  SETVAR GC_FLEN,POS(" ","!GC_REC")-1
    SETVAR GC_FNAME,"![STR("!GC_REC",1,!GC_FLEN)]"
    ECHO COPY !GC_FNAME.!GC_FROMGRP,!GC_FNAME.!GC_TOGROUP
    CONTINUE
    COPY !GC_FNAME.!GC_FROMGRP,!GC_FNAME.!GC_TOGROUP
    SETVAR GC_CNTR,!GC_CNTR+1
ENDWHILE