Close a spool report.

    ________________________________________________________________________ 
   |                                                                        |
   |                                                                        |
   | >>__SPOOLCLOSE__TOKEN(data-area)__ ________ _________________________> |
   |                                   |_KEEP___|                           |
   |                                   |_DELETE_|                           |
   |                                                                        |
   |    <___________________                                                |
   | >___ _NOHANDLE________ |__><                                           |
   |     |_RESP__ _______ _|                                                |
   |             |_RESP2_|                                                  |
   | Conditions: ALLOCERR, INVREQ, NOSPOOL, NOSTG, NOTFND, NOTOPEN,         |
   | STRELERR                                                               |
   |                                                                        |
   |________________________________________________________________________|

   Description

   The SPOOLCLOSE command closes a CICS spool report and, optionally, changes
   its retention characteristics. If more than one transaction is trying to
   read reports from JES, SPOOLCLOSE should not be immediately followed by
   SPOOLOPEN. It should be followed by a WAIT, so that other transactions can
   use the interface.

   A default disposition is taken if both KEEP and DELETE are omitted from
   the SPOOLCLOSE command, or if the report is closed implicitly by a
   SYNCPOINT or RETURN command:

   °   When an INPUT report is explicitly closed by a SPOOLCLOSE command, the
       default disposition is DELETE.

   °   In all other cases, the default disposition is KEEP.



   Options


   DELETE
       For an INPUT report, DELETE specifies that the next report is to be
       read on the subsequent OPEN INPUT.

       For an OUTPUT report, DELETE specifies that the report is to be
       purged.

       Note:  When a JCL job is submitted using the internal reader (INTRDR)
              with the DELETE option specified, the job is sometimes run
              before the output is deleted.

   KEEP
       For an INPUT report, KEEP specifies that the report is to be read
       again when SPOOLOPEN INPUT is next issued.

       For an OUTPUT report, KEEP specifies that the report is to be sent to
       its destination node.

   TOKEN(data-area)
       specifies the 8-character CICS-allocated token used to identify a
       report.



   Conditions


   Note:  There are no default actions.


   ALLOCERR
       occurs in any of the following situations:

       °   Dynamic allocation has rejected a request to allocate an input
           data set.

           RESP2 gives the dynamic allocation response code that denotes this
           error.  The first two characters are the information reason code
           (S99INFO), and the second two are the error reason code
           (S99ERROR), as defined in the MVS/ESA Application Development
           Guide: Authorized Assembler Language Programs, GC28-1645.


   INVREQ
       RESP2 values:

       4    Unsupported language.

       8    Unsupported function.

       40   Subsystem interface already enabled.

            Note:  Errors 1024 and over are internal, and should not occur.
                   If one of these error codes is returned, contact your IBM
                   support center.


   NOSPOOL
       RESP2 values:

       4    No subsystem present.

       8    Interface being disabled; CICS is quiescing.

       12   Interface has been stopped.


   NOSTG
       occurs in any of the following situations:

       °   A GETMAIN has failed within the JES interface subtask (DFHPSPSS).

           RESP2 gives the GETMAIN register 15 return code.


   NOTFND
       RESP2 values:

       1024 Input or output function has been corrupted, and SPOOLCLOSE could
            not complete.


   NOTOPEN
       RESP2 values:

       8    Data set has not been opened.


   STRELERR
       occurs in any of the following situations:

       °   A FREEMAIN has failed within the JES interface subtask (DFHPSPSS).

           RESP2 gives the FREEMAIN register 15 return code.

IBM Library Server Copyright 1989, 2005 IBM Corporation. All rights reserved.