* This is untested but should show the ASCB like: * * ASCB: 00FDBC00 * +0000 ASCB..... ASCB FWDP..... 00FB0980 BWDP..... 00000000 * +000C LTCS..... 00000000 SVRB..... 008AB938 SYNC..... 004BF442 * +0018 IOSP..... 00000000 WQID..... 0000 SAWQ..... 00000000 * +0024 ASID..... 0001 SRMF..... 00 LL5...... 00 * ... * * Note: the Local storage copy of the data area was obtained by using * the ADPLSACC service to copy data from the dump into My_ASCB * LOAD EP=IEAASCBP <- IBM ASCB CB model defs ST R0,Parmlist+0 MVC Parmlist+4(4),=X'00FDBC00' V/S address LA R1,My_ASCB ASCB in local storage ST R1,Parmlist+8 LA R1,L'My_ASCB STH R1,Parmlist+12 Length of data area LA R1,Parmlist JAS R14,Control_Block_Format ... * * Call ADPLSFMT service * * Input: R1 points to parameter list: * +0 address of control block model defs * +4 V/S address * +8 address of local copy of control block * +12 half word of length of local copy of control block Control_Block_Format: BAKR R14,0 L R7,X_ABDPL Locate ABDPL LA R6,My_LFMT Locate our LFMT XC 0(ADPLLFMT,R6),0(R6) Clear it to zero s MVC ADPLPPTR-ADPLPFMT(4,R6),0(R1) Save model address MVC ADPLPBAV-ADPLPFMT(4,R6),4(R1) V/S Address MVC ADPLPBAS-ADPLPFMT(4,R6),8(R1) Local copy address MVC ADPLPBLS-ADPLPFMT(2,R6),12(R1) Length of copy OI ADPLPVC1-ADPLPFMT(R6),ADPLPNOR L R15,ADPLSERV-ABDPL(R7) CALL (15),((7),=AL4(ADPLSFMT),(6)),MF=(E,PARMLIST) PR , MY_LFMT DS XL(ADPLLFMT)