* %GOTO CSPLBSL ; /* 02000000 MACRO 04000000 IKJCSPL 06000000 .* RELEASE 20 SUPPORT CODE -- 20035 06010000 CSPL DSECT 08000000 *********************************************************************** 10000000 * THE COMMAND SCAN PARAMETER LIST (CSPL) IS A LIST OF ADDRESSES * 12000000 * PASSED FROM THE INVOKER TO COMMAND SCAN VIA REGISTER 1 * 14000000 *********************************************************************** 16000000 SPACE 18000000 CSPLUPT DS A PTR TO UPT 20000000 CSPLECT DS A PTR TO ECT 22000000 CSPLECB DS A PTR TO CP'S ECB 24000000 CSPLFLG DS A PTR TO FLAG WORD WHICH IS OBTAINED & FREED 26000000 * BY CALLER. BIT 0 SET TO 0= SYNTAX CHECKING OF 28000000 * COMMAND NAME. 30000000 CSPLOA DS A PTR TO OUTPUT AREA (CSOA DSECT) 32000000 CSPLCBUF DS A PTR TO COMMAND BUFFER 34000000 **/ 36000000 MEND 38000000 * %CSPLBSL : ; 40000000 * %IF CSPLSTORAGE='' %THEN /* @ZA29467 */ 42000000 * %CSPLSTORAGE='BASED(CSPLPTR)'; /* @ZA29467 */ 42050000 * DECLARE 42100000 * 1 CSPL CSPLSTORAGE, /* @ZA29467 */ 42150000 * /* *************************************************************** */ 46000000 * /* THE COMMAND SCAN PARAMETER LIST (CSPL) IS A LIST OF ADDRESSES */ 48000000 * /* PASSED FROM THE INVOKER TO COMMAND SCAN VIA REGISTER 1 */ 50000000 * /* *************************************************************** */ 52000000 * 54000000 * 56000000 * 58000000 * 60000000 * 62000000 * 64000000 * 66000000 * 68000000 * 70000000 * 72000000 * 2 CSPLUPT PTR(31), /* PTR TO */ 74000000 * 2 CSPLECT PTR(31), /* PTR TO */ 76000000 * 2 CSPLECB PTR(31), /* PTR TO */ 78000000 * 2 CSPLFLG PTR(31), /* PTR TO BY CALLER. BIT 0 SET 80000000 * TO 0= SYNTAX CHECKING OF 82000000 * COMMAND NAME. */ 84000000 * 2 CSPLOA PTR(31), /* PTR TO OUTPUT AREA (CSOA 86000000 * DSECT) */ 88000000 * 2 CSPLCBUF PTR(31); /* PTR TO COMMAND BUFFER */ 90000000 * 92000000