* %GOTO CPPLBSL ; /* 03000020 MACRO 06000020 IKJCPPL 09000020 .* A 0-999999 S20031 09050020 *********************************************************************** 12000020 * THE COMMAND PROCESSOR PARAMETER LIST (CPPL) IS A LIST OF * 15000020 * ADDRESSES PASSED FROM THE TMP TO THE CP VIA REGISTER 1 * 18000020 *********************************************************************** 21000020 CPPL DSECT 24000020 CPPLCBUF DS A PTR TO COMMAND BUFFER 27000020 CPPLUPT DS A PTR TO UPT 33000020 CPPLPSCB DS A PTR TO PSCB 36000020 CPPLECT DS A PTR TO ECT 39000020 **/ 42000020 MEND 45000020 * %CPPLBSL: ; 48000020 * %IF CPPLSTORAGE='' %THEN /* @ZA29467 */ 48050000 * %CPPLSTORAGE='BASED(CPPLPTR)'; /* @ZA29467 */ 48100000 * /* *************************************************************** */ 51000020 * /* THE COMMAND PROCESSOR PARAMETER LIST (CPPL) IS A LIST OF */ 54000020 * /* ADDRESSES PASSED FROM THE TMP TO THE CP VIA REGISTER 1 */ 57000020 * /* *************************************************************** */ 60000020 * DECLARE 63000020 * 1 CPPL CPPLSTORAGE, /* @ZA29467 */ 63050000 * 2 CPPLCBUF PTR(31), /* PTR TO COMMAND BUFFER */ 69000020 * 2 CPPLUPT PTR(31), /* PTR TO UPT */ 78000020 * 2 CPPLPSCB PTR(31), /* PTR TO PSCB */ 81000020 * 2 CPPLECT PTR(31); /* PTR TO ECT */ 84000020 * 84050020