* /* */ 01050002 * /* MACCOMP Y-2 SC1DE/SJD61 */ 01100002 * /* MACSTAT Y-2 73103/Y02113 */ 01150002 * /* */ 01200002 * %GO TO TESTPLS1; 01250002 */* TESTCB HEADER ARGUMENT CONTROL ENTRY */ 02000000 */* CREATED BY USER WITH TESTCB MACRO */ 03000000 */* */ 04000000 */* */ 05000000 */* 0 ___________________________________________________ */ 06000000 */* | | | | */ 07000000 */* | TESTBTC | TESTFTC | TESTOBJ | */ 08000000 */* |____________|___________|________________________| */ 09000000 */* | | */ 10000000 */* | TESTBLAD | */ 11000000 */* 8 |_________________________________________________| */ 12000000 */* | | */ 13000000 */* | TESTERET | */ 14000000 */* 12 |_________________________________________________| */ 15000000 */* | | */ 16000000 */* | * | */ 17000000 */* |_________________________________________________| */ 18000000 */* */ 19000000 *%TESTPLS1 :; 20000000 * %IF TESTEND ^= ',' /* IF LAST BLOCK */ 21000000 * %THEN %TESTEND = ';'; /* THEN CLOSE DCL STMT */ 22000000 * %IF TESTLVL ^= '' /* IF BLOCK CONCATENATED */ 23000000 * %THEN %GO TO TESTPLS2; /* THEN BYPASS DECLARE */ 24000000 * DCL 1 TEST BASED /* LEVEL ONE DECLARE */ 25000000 * %GO TO TESTPLS3; /* SKIP MINOR LEVEL DCL */ 26000000 *%TESTPLS2 : TESTDUM = TESTLVL || ' TEST '; /* SET MINOR LEVEL NUMBER*/ 27000000 * TESTDUM /* MINOR STRUCTURE */ 28000000 *%TESTPLS3 :; 29000000 * BDY(WORD), 30000000 * /******************************************************/ 31000000 * /* */ 32000000 * /* TESTCB HEADER ARGUMENT CONTROL ENTRY */ 33000000 * /* */ 34000000 * /******************************************************/ 35000000 * 5 TESTBTC BIT(8), /* BLOCK TYPE CODE */ 36000000 * %TESTACB = '''A0''X'; /* ACB BLOCK TYPE CODE */ 37000000 * %TESTXLST = '''B0''X'; /* EXLST BLOCK TYPE CODE */ 38000000 * %TESTRPL = '''C0''X'; /* RPL BLOCK TYPE CODE */ 39000000 * 5 TESTFTC BIT(8), /* FUNCTION TYPE CODE */ 40000000 * %TESTFTYP = '''04''X'; /* TESTCB FUNC TYPE CODE */ 41000000 * 5 TESTOBJ FIXED(15), /* OBJECT TYPE CODE */ 42000000 * %TESTDATA = '0'; /* DATA OBJECT TYPE CODE */ 43000000 * %TESTINDX = '1'; /* INDEX OBJECT TYPE CODE*/ 44000000 * 5 TESTBLAD PTR(31), /* CONTROL BLOCK ADDRESS */ 45000000 * 5 TESTERET PTR(31), /* ERROR RETURN ADDRESS */ 46000000 * 5 * FIXED(31)TESTEND /* RESERVED */ 47000000 * %TESTLEN = 'LENGTH(TEST)'; /* LENGTH OF THIS BLOCK */ 48000000 * %GO TO TESTPLS4; 49000000 MACRO 50000000 IDATEST &DSECT=YES 51000000 AIF ('&DSECT' EQ 'YES').TEST1 52000000 TEST DS 0F TESTCB HEADER ARG CONTROL ENTRY 53000000 AGO .TEST2 54000000 .TEST1 ANOP 55000000 TEST DSECT TESTCB HEADER ARG CONTROL ENTRY 56000000 .TEST2 ANOP 57000000 TESTBTC DS B BLOCK TYPE CODE 58000000 TESTACB EQU X'A0' ACB BLOCK TYPE CODE 59000000 TESTXLST EQU X'B0' EXLST BLOCK TYPE CODE 60000000 TESTRPL EQU X'C0' RPL BLOCK TYPE CODE 61000000 TESTFTC DS B FUNCTION TYPE CODE 62000000 TESTFTYP EQU 4 TESTCB FUNCTION TYPE CODE 63000000 TESTOBJ DS H OBJECT TYPE CODE 64000000 TESTDATA EQU 0 DATA OBJECT TYPE CODE 65000000 TESTINDX EQU 1 INDEX OBJECT TYPE CODE 66000000 TESTBLAD DS A CONTROL BLOCK ADDRESS 67000000 TESTERET DS A ERROR RETURN ADDRESS 68000000 DS F RESERVED 69000000 TESTLEN EQU *-TEST LENGTH OF THIS BLOCK 70000000 MEND 71000000 *%TESTPLS4 :; 72000000