?DICTIONARY \CAESARS.$DATA3.DDL
?OUT $S.#JRC
?ASSIGN CCAGENT-REC,\CAESARS.$DATA6.CCFILE.CCAGENT
OPEN    CCAGENT-REC;
 title     @date as date *
           TAB 20 "* * *   C A E S A R S   P A L A C E   * * *"
           TAB 70 "PAGE " @PAGENO ;
  subtitle @time as time *
           TAB 20 "            BRANCH LISTING        "
           TAB 70 "CCAGENT";
!----------------------------------------------------------------
LIST
    BY CCAGENT-AGENT       HEADING "BRANCH/CODE"
          CCAGENT-DESCRIPTION HEADING "BRANCH/DESCRIPTION"
          CCAGENT-STATUS
          CCAGENT-TYPE
WHERE CCAGENT-STATUS NOT = "I" AND CCAGENT-TYPE = "DI";