* * Invoke the IPCS command to show dump parameters * * CBF RTCT+9C? STR(SDUMP) VIEW(FLAGS) * L R2,X_ABDPL Locate ABDPL LA R4,MY_PECT USING ADPLPECT,R4 XC 0(ADPLLECT,R4),0(R4) OI ADPLPEFG,ADPLPESC LA R1,DDP_CMDBUF ST R1,ADPLPEPL L R15,ADPLSERV-ABDPL(R2) Locate IPCS service routine CALL (15), Call IPCS service routine @ ((2), ..ABDPL @ =A(ADPLSECT), ..Type of call: ECT @ (4)), ..ECT parameter list @ MF=(E,PARMLIST) DROP R4 * ... DDP_CMDBUF DC AL2(DDP_CMDBUFL) DC AL2(DDP_CMDL) DDP_CMD DC CL8'CBF' DDP_CMDL EQU *-DDP_CMD DDP_ICMD DC C'CBF RTCT+9C? STR(SDUMP) VIEW(FLAGS)' DDP_CMDBUFL EQU *-DDP_CMDBUF ... X_ABDPL DS F ..Address of ABDPL on entry MY_PECT DS XL(ADPLLECT)