PARM GP_NRECS

# FILENAME: GRPPURG2.XEQ - Joe Geiser
#
# READ THE LISTF FILE, EXTRACT FROM-FILENAME,
# AND EXECUTE THE PURGE COMMAND

SETVAR GP_CNTR,7
INPUT GP_REC
SETVAR GP_ACCT,"![STR("!GP_REC",11,8)]"
SETVAR GP_GRP,"![STR("!GP_REC",31,8)]"
SETVAR GP_ALEN,POS(" ","!GP_ACCT")-1
SETVAR GP_GLEN,POS(" ","!GP_GRP")-1
IF !GP_ALEN <= 0 THEN
  SETVAR GP_ALEN,8
ENDIF
IF !GP_GLEN <= 0 THEN
  SETVAR GP_GLEN,8
ENDIF
SETVAR GP_PGROUP,"![STR("!GP_GRP",1,!GP_GLEN)]"&
       + "." + "![STR("!GP_ACCT",1,!GP_ALEN)]"
INPUT GP_REC
INPUT GP_REC
INPUT GP_REC
INPUT GP_REC
WHILE !GP_CNTR < !GP_NRECS
  INPUT GP_REC
  SETVAR GP_TESTIT,STR("!GP_REC",1,8)
  IF "!GP_TESTIT" <> "        " AND "!GP_TESTIT" <> "FILENAME" &
    AND "!GP_TESTIT" <> "ACCOUNT=" THEN
    SETVAR GP_FLEN,POS(" ","!GP_REC")-1
    SETVAR GP_FNAME,"![STR("!GP_REC",1,!GP_FLEN)]"
    ECHO PURGE !GP_FNAME.!GP_PGROUP
    PURGE !GP_FNAME.!GP_PGROUP
  ENDIF
  SETVAR GP_CNTR,!GP_CNTR+1
ENDWHILE