* %GOTO CSOABSL ; /* 01000000 MACRO 02000000 IKJCSOA 03000000 .* RELEASE 20 SUPPORT CODE -- 20035 03010000 .* RELEASE 3.0 SUPPORT CODE --Y30PQJN 03060000 CSOA DSECT 04000000 *********************************************************************** 05000000 * THE COMMAND SCAN OUTPUT AREA (CSOA) IS AN AREA POINTED TO * 06000000 * BY THE CSPL. IT IS USED BY COMMAND SCAN TO INDICATE ITS * 07000000 * FINDINGS. IT IS OBTAINED AND FREED BY THE INVOKER * 08000000 *********************************************************************** 09000000 SPACE 10000000 CSOACNM DS A PTR TO COMMAND NAME-IF 0 INVALID CMD NAME 11000000 CSOALNM DS H LENGTH OF CMD NAME 12000000 CSOAFLG DS X FLAGS 13000000 CSOAVWP EQU X'80' VALID WITH PARAMETERS 14000000 CSOAVNP EQU X'40' VALID NO PARAMS 15000000 CSOAQM EQU X'20' QUESTION MARK 16000000 CSOANOC EQU X'10' NO COMMAND 17000000 CSOABAD EQU X'08' BAD CMD NAME 18000000 CSOAEXEC EQU X'04' IMPLICIT EXEC COMMAND NAME Y30PQJN 18050000 DS CL1 RESERVED 19000000 **/ 20000000 MEND 21000000 * %CSOABSL : ; 22000000 * %IF CSOASTORAGE='' %THEN /* @ZA29467 */ 23000000 * %CSOASTORAGE='BASED(CSOAPTR)'; /* @ZA29467 */ 23050000 * DECLARE 23100000 * 1 CSOA CSOASTORAGE, /* @ZA29467 */ 23150000 * /* *************************************************************** */ 25000000 * /* THE COMMAND SCAN OUTPUT AREA (CSOA) IS AN AREA POINTED TO */ 26000000 * /* BY THE CSPL. IT IS USED BY COMMAND SCAN TO INDICATE ITS */ 27000000 * /* FINDINGS. IT IS OBTAINED AND FREED BY THE INVOKER */ 28000000 * /* *************************************************************** */ 29000000 * 30000000 * 31000000 * 32000000 * 33000000 * 34000000 * 35000000 * 36000000 * 37000000 * 38000000 * 39000000 * 2 CSOACNM PTR(31), /* PTR TO COMMAND NAME-IF 0 40000000 * INVALID CMD NAME */ 41000000 * 2 CSOALNM FIXED(15), /* LENGTH OF CMD NAME */ 42000000 * 2 CSOAFLG CHAR(1), /* FLAGS */ 43000000 * 3 CSOAVWP BIT(1), /* VALID WITH PARAMETERS */ 44000000 * 3 CSOAVNP BIT(1), /* VALID NO */ 45000000 * 3 CSOAQM BIT(1), /* QUESTION MARK */ 46000000 * 3 CSOANOC BIT(1), /* NO COMMAND */ 47000000 * 3 CSOABAD BIT(1), /* BAD CMD NAME */ 48000000 * 3 CSOAEXEC BIT(1), /* IMPLICIT EXEC COMMAND NAME */ 49000000 * /* Y30PQJN*/ 49050000 * 3 * BIT(1), /* RESERVED */ 50000000 * 3 * BIT(1), /* RESERVED */ 51000000 * 2 * CHAR(1); /* RESERVED */ 52000000 * 53000000