*DECK C$DMSKP 
          IDENT  C$DMSKP
          SST 
          COMMENT  ISSUE CDCS -SKIP- CALL 
          B1=1
          ENTRY  C.DMSKP
*                ISSUE THE CDCS -SKIP- CALL 
*                ON ENTRY A0=FIT ADDRESS
*                         (=XC.SVSKP)=NUMBER OF LOGICAL RECORDS TO BE 
*                                     SKIPPED 
 C.DMSKP  BSS    1
 CDCS1    IFEQ   OP.DCS,OP.DCS1 
          SX7    A0          FIT ADDRESS
          SA7    =XC.DMPAR
          RJ     =XC.DMDFO   GET FILE ORDINAL 
          SA7    A7+B1       ADDRESS OF FILE ORDINAL
          SX7    =XC.SVSKP   ADDRESS CONTAINING SKIP COUNT
          SA7    A7+B1
          SA1    =XC.DMPAR   CDCS 
          RJ     =XDM$SKP     -SKIP- CALL 
          RJ     =XC.A0B1    RESTORE A0 (FIT ADDRESS) AND B1(=1)
          EQ     C.DMSKP
 CDCS1    ENDIF 
          END 
