*COMDECK  CCLPVO
 CCLPVO   TITLE  PATTERN VALUE OFFSETS
**        CCLPVO - GET 1ST AND LAST PVT OFFSETS FOR THIS PARAMETER
* 
* 
*         CCLPVO READS THE CURRENT PPT ENTRY (BGPWPL HAS OFFSET) AND
*         EXTRACTS THE 1ST (IACNPV) AND LAST (IACLPE) PVT OFFSETS.
*         INITIALLY IACPRE (PREVIOUS OFFSET) IS SET TO EQUAL IACNPV.
* 
*         EXIT - IACNPV - NEXT PVT ENTRY OFFSET 
*                IACPRE - PREVIOUS PVT OFFSET (EQUAL TO IACNPV) 
*                IACLPE - OFFSET OF LAST PVT ENTRY
* 
*         REGISTERS SAVED - A4,A5  X4,X5
* 
 CCLPVO   SUBR   =
          SA1    BGPWPL            GET CURRENT PPT ENTRY
          SA2    PPT+W.PPVAL+X1    GET CURRENT PPT ENTRY
          EX7    X2,PPVAL 
          SA7    IACNPV 
          ERRNZ  W.PPVAL-W.PPLV 
          EX0    X2,PPLV
          IX6    X7+X0             IACLPE = PPVAL + LENGTH (PPLV) 
          SA6    IACLPE            STORE OFFSET OF LAST PVT ENTRY 
          SA7    IACPRE 
          JP     CCLPVO 
  
  
