      ***--------------------------------------------------------------*
      *** Revision History                                             *
      ***--------------------------------------------------------------*
      ***  $Log: cascbprn.cpy,v $
      ***  Revision 1.1  2005/10/17 15:15:25  jeremyc
      ***  RPI: NOTAPDR: Merge JCL work
      ***
      ***  Revision 1.1  2005/07/20 14:07:57  dmf
      ***  Start of movement of CASSPOOL.DLL into JCL component
      ***
      ***  Revision 1.2  2005/06/05 20:51:08  sc
      ***  sc-j53 Fix problem where printer name is lost prior to
      ***         call to printer exit; Add pointer for spool
      ***         record to interface; Add comments to code
      ***         where spool record should be read;
      ***    Mod: cascbprn.cpy casprn.cbl
      ***
      ***  Revision 1.1  2004/07/26 02:03:45  sc
      ***  jes-13 Code complete for batch printer & printer exit;
      ***         Correct MFE compile errors.
      ***    Mod: casbat.cbl   cascbprn.cpy cascpcat.cpy cascwjes.cpy
      ***         cacwprn.cpy  casprn.cbl   casrdo42.cbl casrdo43.cbl
      ***         casrdo47.cbl casrdo52.cbl casxmast.htm dfhcbdca.cpy
      ***         dfhcprdt.cpy dfheini1.cbl dfhgglbl.cbl messages
      ***         sampprnx.cbl txmake.ctl
      ***
      ***--------------------------------------------------------------*
       01  (ws)-prn-exit-interface.
           03  (ws)-prn-version                     pic x(4) comp-5.
               88  (ws)-prn-current-version-88      value 1.
           03  (ws)-prn-command                     pic x    comp-5.
               88  (ws)-prn-exit-init-88            value 0.
               88  (ws)-prn-exit-print-88           value 1.
               88  (ws)-prn-exit-term-88            value 2.
           03  (ws)-prn-char                        pic x.
               88  (ws)-prn-char-ascii-88           value 'A'.
               88  (ws)-prn-char-ebcdic-88          value 'E'.
               88  (ws)-prn-char-unknown-88         value '?'.
           03  (ws)-prn-sysout-status               pic x(2).
               88  (ws)-prn-sysout-status-ok-88     value '00'.
               88  (ws)-prn-sysout-status-eof-88    value '10'.
      ***--------------------------------------------------------------*
           03  (ws)-prn-sysout-open-pptr            procedure-pointer.
           03  (ws)-prn-sysout-read-next-pptr       procedure-pointer.
           03  (ws)-prn-sysout-close-pptr           procedure-pointer.
           03  (ws)-prn-message-pptr                procedure-pointer.
           03                                       procedure-pointer.
           03                                       procedure-pointer.
           03                                       procedure-pointer.
      ***--------------------------------------------------------------*
           03  (ws)-prn-spool-record-ptr            pointer.
           03  (ws)-prn-catalog-record-ptr          pointer.
           03  (ws)-prn-printer-handle              pic x(4) comp-5.
           03  (ws)-prn-lrecl                       pic x(4) comp-5.
           03  (ws)-prn-lrecl-max                   pic x(4) comp-5.
           03  (ws)-prn-lrecl-min                   pic x(4) comp-5.
           03  (ws)-prn-var-len                     pic x(4) comp-5.
           03  (ws)-prn-buffer-len                  pic x(4) comp-5.
           03  (ws)-prn-buffer.
               05  (ws)-prn-buffer-byte occurs 384 times pic x comp-x.
           03  (ws)-prn-document.
               05  (ws)-prn-document-len            pic x(2) comp-5.
               05  (ws)-prn-document-title          pic x(128).
           03  (ws)-prn-printer.
               05  (ws)-prn-printer-name-len        pic x(2) comp-5.
               05  (ws)-prn-printer-name            pic x(128).
           03  (ws)-prn-sysout-file-name            pic x(260).
      ***--------------------------------------------------------------*
      ***  $Workfile:   cascbprn.cpy  $ end
      ***--------------------------------------------------------------*
