Record Layouts › Parameter Mapped by APCCSXAP

Parameter Mapped by APCCSXAP

The following record layout, mapped by COBOL member APCCSXAP, describes the approval data block passed to the security exit program.

01  APCCSXAP‑APPROVAL‑BLOCK.
    05  APCCSXAP‑APPROVAL‑STATUS PIC X(03)     VALUE SPACE.
      88  APCCSXAP‑APPROVED‑PROD               VALUE 'APP'.
      88  APCCSXAP‑APPROVED‑QA                 VALUE 'APQ'.
      88  APCCSXAP‑APPROVED‑BKOT               VALUE 'APB'.
    05  APCCSXAP‑APPROVAL‑NUMBER PIC 9(02)     VALUE ZERO.
    05  APCCSXAP‑APPROVAL‑ISSUED PIC X(01)     VALUE SPACE.
      88  APCCSXAP‑APPROVED                    VALUE 'Y'.
      88  APCCSXAP‑DISAPPROVED                 VALUE 'D'.
      88  APCCSXAP‑UNAPPROVED                  VALUE 'N'.
    05  FILLER                  PIC X(14)      VALUE SPACE.