         PCC      0                                                     COMP0000
         SPACE    1                                                     COMP0001
POSITION CSECT    1                                                     COMP0002
         SPACE    1                                                     COMP0003
         SYSTEM   SIG9                                                  COMP0004
         SYSTEM   BPM                                                   COMP0005
         SPACE    1                                                     COMP0006
         DEF      POSITION                                              COMP0007
         SPACE    1                                                     COMP0008
         REF      F4:COM,F:1,F:2                                        COMP0009
         SPACE    1                                                     COMP0010
         LI,1     2                 GET # OF DCB'S TO POSITION          COMP0011
         LW,12    DCBS-1,1          GET DCB ADDRESS                     COMP0012
         LW,13    F4:COM-1,1        GET STARTING RECORD NUMBER          COMP0013
         AI,13    -1                GET # OF RECORDS TO POSITION        COMP0014
         M:PFIL   *12,(BOF)         FIRST POSITION TO BOF               COMP0015
         M:PRECORD *12,(N,*13),(FWD),(ABN,ABN)   THEN POSITION TO RECORDCOMP0016
         BDR,1    POSITION+1        DO FOR ALL DCB'S                    COMP0017
         B        *15                & RETURN TO CALLER                 COMP0018
         SPACE    1                                                     COMP0019
DCBS     DATA     F:2,F:1                                               COMP0020
         SPACE    1                                                     COMP0021
ABN      EQU      %                                                     COMP0022
         STW,1    F4:COM+4          SET DCB INDEX                       COMP0023
         B        *F4:COM+3         ERROR RETURN TO CALLER              COMP0024
         END                                                            COMP0025
