Exit-put routine, APSUPUT

The exit-put service routine, APSUPUT, enables the separator-page exit routines to put records into the PSF print-record stream.

When APSUPUT is entered, it expects the address of APSUECA in register 5. APSUPUT saves the caller’s registers in the area pointed to by register 13. APSUPUT uses ECAGSAVE as its own save area.

APSUPUT uses a return-code field, ECARCODE, to identify previous failures of APSUPUT during the creation of a single separator page. Separator-page exit routines should not modify the ECARCODE field.

When APSUPUT is entered, register 15 is reset. If an error occurs while putting a record into the PSF print record stream, register 15 and ECARCODE are set and APSUPUT does not run again for this particular separator page.

Input for APSUPUT

When APSUPUT is entered, it contains these:

General Register 5

The address of the exit-communications area (APSUECA).

APSUECA

Before running APSUPUT, the following fields must be set:

• The address of the record in ECARECAD.
• The record length in ECARECLN.
• The record-description flags in ECADRF, which identify the kind of record that APSUPUT is to process. These flags are also described in the IDXFLAG1 field, shown in Figure 83.

Output for APSUPUT

Upon leaving the service routine, APSUPUT passes the ECARCODE and the contents of register 15.