$ SET DEF 2501
$ COPY GF2501.LAB,GF2501.POS  GF2501.LABPOS
$ SORT/STABLE/KEY=(POS:1,SIZE:11) GF2501.LABPOS GF2501.LABPOS
$ ASSIGN GF2501.LABPOS FOR001
$ ASSIGN GF2501.ALL FOR002
$ RUN GFNODUP