          IDENT  CHCQP,110B,CHCQP
          TITLE  CHCQP - CHANGE CP/QUEUE PRIORITY.
          ABS
          SST
          ENTRY  CHCQP
          ENTRY  RFL=
          SYSCOM B1
          ORG    120B
OPL XTEXT COMCMAC
OPL XTEXT COMCCPM
OPL XTEXT COMCSYS
 CHCQP    BSS    0
          SB1    1
          GETJO  ORIGIN
          SA1    ORIGIN
          SX2    SYOT
          BX3    X1-X2
          NZ     X3,DONE     IF NOT SYOT
          SETQP  7760B
          SETPR  31B
 DONE     ENDRUN
 ORIGIN   BSS    1
 RFL=     END
