*DECK RQPARTX 
      PRGM RQPARTX; 
      CONTROL STEXT;
# *CALL CDGDFDCLS # 
*CALL CDGDFDCLS 
*CALL     VERDFDCLS 
  
      XREF
        BEGIN 
# *CALL RQPARDCLS # 
*CALL RQPARDCLS 
        END 
      TERM
