$ ! -----------------------------------------------------
$ ! Script   : Readf.com
$ ! Function : Script to read input file & extract from
$ !            start position to 8 characters which are
$ !            part of custome code.
$ ! Date     : 10/30/2004
$ ! Updated  : 11/01/2004
$ ! Author   : Ramki
$ ! -----------------------------------------------------
$ OPEN/READ INPUT_FILE NDUMP_CUST_ACCT.DAT;2
$ READ_LOOP:
$ READ/END_OF_FILE=ENDIT INPUT_FILE NUM
$ FIRST_CHAR = F$EXTRACT(0,8,NUM)
$ ! WRITE SYS$OUTPUT FIRST_CHAR - If one field in each line
$ SECOND_CHAR = F$EXTRACT(13,10,NUM)
$ WRITE SYS$OUTPUT FIRST_CHAR," | ", SECOND_CHAR
$ GOTO READ_LOOP
$ ENDIT:
$    CLOSE INPUT_FILE
$ EXIT
