* %GOTO BSLDFPL; /* 03000000 MACRO 06000000 IKJDFPL 09000000 DFPL DSECT 12000000 *********************************************************************** 15000000 * THE DEFAULT SERVICE ROUTINE PARAMETER LIST (DFPL) IS A LIST OF * 18000000 * ADDRESSES PASSED FROM THE INVOKER TO DEFAULT VIA REGISTER 1 * 21000000 *********************************************************************** 24000000 * CHANGE ACTIVITY 24050000 * DELETE DUPLICATE ENTIRIES @ZA81511 24100000 * MISSING SYSLIB - NO CODE CHANGE @ZA86390 24125000 *********************************************************************** 24150000 DFPLUPT DS A PTR TO UPT 27000000 DFPLECT DS A PTR TO ECT 30000000 DFPLECB DS A PTR TO CP'S ECB 33000000 DFPLDFPB DS A PTR TO DEFAULT PARAMETER BLOCK 36000000 **/ 39000000 MEND 42000000 * %BSLDFPL : ; 45000000 * DCL DFPLPTR PTR(31); 48000000 * DECLARE 51000000 * 1 DFPL BASED(DFPLPTR), 54000000 * /* *************************************************************** */ 57000000 * /* THE DEFAULT SERVICE ROUTINE PARAMETER LIST (DFPL) IS A LIST OF */ 60000000 * /* ADDRESSES PASSED FROM THE INVOKER TO DEFAULT VIA REGISTER 1 */ 63000000 * /* *************************************************************** */ 66000000 * 2 DFPLUPT PTR(31), /* PTR TO UPT */ 69000000 * 2 DFPLECT PTR(31), /* PTR TO ECT */ 72000000 * 2 DFPLECB PTR(31), /* PTR TO CP'S ECB */ 75000000 * 2 DFPLDFPB PTR(31); /* PTR TO DEFAULT PARAMETER 78000000 * BLOCK */ 81000000