$JOB 73(039) 'EDI.SL' PAUL HENDERSON
$UIC <PDH>
$SLIP C
*FILE I:17='EDI.NN 000'O:18='EDI.00 SRC'$
-'/NN',1
NN=00
-$
$EOF
$SLIP C
*FILE I:17='EDI.NN 000'O:18='EDI.02 SRC'$
-'/NN',1
NN=02
-$
$EOF
$SLIP C
*FILE I:17='EDI.NN 000'O:18='EDI.03 SRC'$
-'/NN',1
NN=03
-$
$EOF
$SLIP C
*FILE I:17='EDI.NN 000'O:18='EDI.04 SRC'$
-'/NN',1
NN=04
-$
$EOF
$MAC BRE_EDI.00,EDI.02,EDI.03,EDI.04
$TKB
NRM}
EDI.00}
200}
EDIT00}
EDI.00}
 }
$DEL EDI.00 SRC,EDI.00 BIN
$TKB
NRM}
EDI.02}
200}
EDIT02}
EDI.02}
 }
$DEL EDI.02 SRC,EDI.02 BIN
$TKB
NRM}
EDI.03}
200}
EDIT03}
EDI.03}
 }
$DEL EDI.03 SRC,EDI.03 BIN
$TKB
NRM}
EDI.04}
200}
EDIT04}
EDI.04}
 }
$DEL EDI.04 SRC,EDI.04 BIN
$END