PARM CF_NAME # FILENAME: CODECMD - Joe Geiser # # *** MODIFY AN ASCII FILE TO HAVE A FILECODE = 1 *** # *** NOTE THAT ALL OTHER FILE ATTRIBUTES ARE DUPLICATED SETVAR CF_CIERR,CIERROR SETVAR CIERROR,0 IF FINFO("!CF_NAME",0) THEN SETVAR CF_OPTIONS,FINFO("!CF_NAME",13) SETVAR CF_TYPE,& STR("!CF_OPTIONS",1,![POS(",","!CF_OPTIONS")-1]) SETVAR CF_FORMAT,& STR("!CF_OPTIONS",![POS(",","!CF_OPTIONS")+2],1) SETVAR CF_RECLEN FINFO ('!CF_NAME', 14) IF CF_RECLEN < 0 THEN SETVAR CF_BLKFACTR FINFO('!CF_NAME',15)/(-CF_RECLEN/2) ELSE SETVAR CF_BLKFACTR FINFO('CF_NAME',15)/CF_RECLEN ENDIF CONTINUE BUILD XYZZYZZ;REC=!CF_RECLEN,!CF_BLKFACTR,& !CF_FORMAT,!CF_TYPE;CODE=1;DISC=![FINFO("!CF_NAME",12)] CONTINUE FCOPY FROM=!CF_NAME;TO=XYZZYZZ IF !CIERROR = 0 THEN PURGE !CF_NAME RENAME XYZZYZZ,!CF_NAME ELSE ECHO CIERROR ON FCOPY=!CIERROR ENDIF ELSE ECHO !CF_NAME DOESN'T EXIST..... ENDIF SETVAR CIERROR,CF_CIERR DELETEVAR CF@