PARM CM_NAME

# FILENAME: COMPRESS.XEQ - Joe Geiser
#
# *** "COMPRESS" A FILE BY SETTING LIMIT=EOF ***
# *** NOTE THAT ALL OTHER FILE ATTRIBUTES ARE DUPLICATED

SETVAR CM_CIERR,CIERROR
SETVAR CIERROR,0

IF FINFO("!CM_NAME",0) THEN
  SETVAR CM_OPTIONS,FINFO("!CM_NAME",13)
  SETVAR CM_TYPE,&
    STR("!CM_OPTIONS",1,![POS(",","!CM_OPTIONS")-1])
  SETVAR CM_FORMAT,&
    STR("!CM_OPTIONS",![POS(",","!CM_OPTIONS")+2],1)
  SETVAR CM_RECLEN FINFO ('!CM_NAME', 14)
  IF CM_RECLEN < 0 THEN
    SETVAR CM_BLKFACTR FINFO('!CM_NAME',15)/(-CM_RECLEN/2)
  ELSE
    SETVAR CM_BLKFACTR FINFO('CM_NAME',15)/CM_RECLEN
  ENDIF
  CONTINUE
  BUILD XYZZYZZ;REC=!CM_RECLEN,!CM_BLKFACTR,&
    !CM_FORMAT,!CM_TYPE;DISC=![FINFO("!CM_NAME",19)],1,1;&
    CODE=![FINFO("!CM_NAME",9)]
  CONTINUE
  FCOPY FROM=!CM_NAME;TO=XYZZYZZ
  IF !CIERROR = 0 THEN
    PURGE !CM_NAME
    RENAME XYZZYZZ,!CM_NAME
  ELSE
    ECHO CIERROR ON FCOPY=!CIERROR
  ENDIF
ELSE
  ECHO !CM_NAME DOESN'T EXIST.....
ENDIF
SETVAR CIERROR,CM_CIERR
DELETEVAR CM@