$ ! -----------------------------------------------------
$ ! Script   : Rewards.com
$ ! Function : Script to read input rewards file & use the
$ !            customer code to match the entry in customer
$ !            master file & extract the corresponding name of
$ !            that customer.
$ ! Date     : 11/15/2004
$ ! Author   : Ramki
$ ! -----------------------------------------------------
$ OPEN/READ INPUT_FILE RPT_REWARDS.DAT;1
$ 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
