*----------------------------------------------------------------------
*The FORMAT subroutine calls the control block formatter service
*to format the PSA using the IBM-supplied formatter model.
*ABDPLPTR is a pointer to the DSECT created by the second invocation
*of BLSABDPL.  ABDPLPTR is stored in register 11 to preserve the pointer
*across the call to the control block formatter service.
*ADPLPFMT refers to the DS set up by the first invocation of BLSABDPL.
*----------------------------------------------------------------------
FORMAT   MVI   ADPLPOPT,ADPLPOAC  Check acronym
         MVC   ADPLPCHA,=CL8'PSA' Name of control block to format
         L     R15,ADPLSERV       Load address of exit services router
         CALL  (15),((ABDPLPTR),CODECBF,ADPLPFMT)  Invoke service
         LTR   R15,R15            Was the PSA displayed?
         BNZ   EXIT               No.  End processing
CODECBF  DC    A(ADPLSCBF)        Control block formatter code
ABDPLPTR EQU   11                 General register 11
*----------------------------------------------------------------------
*        Reserve space for an initialized control block formatter
*        service parameter list.
*        The view control field is set to X'0300'.
*----------------------------------------------------------------------
         BLSABDPL DSECT=NO,AMDEXIT=NO,AMDOSEL=NO,                   *
               AMDPACC=NO,AMDPFMT=YES,AMDPECT=NO,AMDPSEL=NO
*----------------------------------------------------------------------
*        Define the format of the ABDPL addressed by R1 on input
*----------------------------------------------------------------------
         BLSABDPL DSECT=YES,AMDEXIT=YES,AMDOSEL=NO,                   *
               AMDPACC=NO,AMDPFMT=NO,AMDPECT=NO,AMDPSEL=NO