$SET DEF 2406
$FOR/LIS GHIK
$TYPE GHIK
$LINK GHIK
$ASSIGN K1B:GF2406.LINES FOR001
$ASSIGN K1B:GF2406.GHIK FOR002
$RUN GHIK