* /* */ 01050002 * /* MACCOMP Y-2 SC1DE/SJD61 */ 01100002 * /* MACSTAT Y-2 73103/Y02113 */ 01150002 * /* */ 01200002 * %GO TO SHOWPLS1; 01250002 */* SHOWCB HEADER ARGUMENT CONTROL ENTRY DECLARATION */ 02000000 */* CREATED BY USER WITH SHOWCB MACRO */ 03000000 */* */ 04000000 */* */ 05000000 */* 0 ___________________________________________________ */ 06000000 */* | | | | */ 07000000 */* | SHOWBTC | SHOWFTC | SHOWOBJ | */ 08000000 */* |____________|___________|________________________| */ 09000000 */* | | */ 10000000 */* | SHOWBLAD | */ 11000000 */* 8 |_________________________________________________| */ 12000000 */* | | */ 13000000 */* | SHOWUSA | */ 14000000 */* 12 |_________________________________________________| */ 15000000 */* | | | */ 16000000 */* | SHOWUSL | * | */ 17000000 */* |________________________|________________________| */ 18000000 */* */ 19000000 *%SHOWPLS1 :; 20000000 * %IF SHOWEND ^= ',' /* IF LAST BLOCK */ 21000000 * %THEN %SHOWEND = ';'; /* THEN CLOSE DCL STMT */ 22000000 * %IF SHOWLVL ^= '' /* IF BLOCK CONCATENATED */ 23000000 * %THEN %GO TO SHOWPLS2; /* THEN BYPASS DECLARE */ 24000000 * DCL 1 SHOW BASED /* LEVEL ONE DECLARE */ 25000000 * %GO TO SHOWPLS3; /* SKIP MINOR LEVEL DCL */ 26000000 *%SHOWPLS2 : SHOWDUM = SHOWLVL || ' SHOW'; /* SET MINOR LEVEL NUMBER*/ 27000000 * SHOWDUM /* MINOR STRUCTURE */ 28000000 *%SHOWPLS3 :; 29000000 * BDY(WORD), 30000000 * /******************************************************/ 31000000 * /* */ 32000000 * /* SHOWCB HEADER ARGUMENT CONTROL ENTRY */ 33000000 * /* */ 34000000 * /******************************************************/ 35000000 * 36000000 * 5 SHOWBTC BIT(8), /* BLOCK TYPE CODE */ 37000000 * %SHOWACB = '''A0''X'; /* ACB BLOCK TYPE CODE */ 38000000 * %SHOWXLST = '''B0''X'; /* EXLST BLOCK TYPE CODE */ 39000000 * %SHOWRPL = '''C0''X'; /* RPL BLOCK TYPE CODE */ 40000000 * 5 SHOWFTC BIT(8), /* FUNCTION TYPE CODE */ 41000000 * %SHOWFTYP = '''03''X'; /* SHOWCB FUNC TYPE CODE */ 42000000 * 5 SHOWOBJ FIXED(15), /* OBJECT TYPE CODE */ 43000000 * %SHOWDATA = '0'; /* DATA OBJECT TYPE CODE */ 44000000 * %SHOWINDX = '1'; /* INDEX OBJECT TYPE CODE*/ 45000000 * 5 SHOWBLAD PTR(31), /* CONTROL BLOCK ADDRESS */ 46000000 * 5 SHOWUSA PTR(31), /* USER AREA ADDRESS */ 47000000 * 5 SHOWUSL FIXED(15), /* USER AREA LENGTH */ 48000000 * 5 * FIXED(15)SHOWEND /* RESERVED */ 49000000 * %SHOWLEN = 'LENGTH(SHOW)'; /* LENGTH OF THIS BLOCK */ 50000000 * %GO TO SHOWPLS4; 51000000 MACRO 52000000 IDASHOW &DSECT=YES 53000000 AIF ('&DSECT' EQ 'YES').SHOW1 54000000 SHOW DS 0F SHOWCB HEADER ARG CONTROL ENTRY 55000000 AGO .SHOW2 56000000 .SHOW1 ANOP 57000000 SHOW DSECT SHOWCB HEADER ARG CONTROL ENTRY 58000000 .SHOW2 ANOP 59000000 SHOWBTC DS B BLOCK TYPE CODE 60000000 SHOWACB EQU X'A0' ACB BLOCK TYPE CODE 61000000 SHOWXLST EQU X'B0' EXLST BLOCK TYPE CODE 62000000 SHOWRPL EQU X'C0' RPL BLOCK TYPE CODE 63000000 SHOWFTC DS B FUNCTION TYPE CODE 64000000 SHOWFTYP EQU 3 SHOWCB FUNCTION TYPE CODE 65000000 SHOWOBJ DS H OBJECT TYPE CODE 66000000 SHOWDATA EQU 0 DATA OBJECT TYPE CODE 67000000 SHOWINDX EQU 1 INDEX OBJECT TYPE CODE 68000000 SHOWBLAD DS A CONTROL BLOCK ADDRESS 69000000 SHOWUSA DS A USER AREA ADDRESS 70000000 SHOWUSL DS H USER AREA LENGTH 71000000 DS H RESERVED 72000000 SHOWLEN EQU *-SHOW LENGTH OF THIS BLOCK 73000000 MEND 74000000 *%SHOWPLS4 :; 75000000