* /* */ 01050002 * /* MACCOMP Y-2 SC1DE/SJD61 */ 01100002 * /* MACSTAT Y-2 73103/Y02113 */ 01150002 * /* */ 01200002 * %GO TO GENPLS1; 01250002 */* GENCB HEADER ARGUMENT CONTROL ENTRY DECLARATION */ 02000000 */* CREATED BY USER WITH GENCB MACRO */ 03000000 */* */ 04000000 */* */ 05000000 */* 0 ___________________________________________________ */ 06000000 */* | | | | */ 07000000 */* | GENBTC | GENFTC | GENCOP | */ 08000000 */* |____________|___________|________________________| */ 09000000 */* | | */ 10000000 */* | GENUSA | */ 11000000 */* 8 |_________________________________________________| */ 12000000 */* | | | */ 13000000 */* | GENUSL | * | */ 14000000 */* |________________________|________________________| */ 15000000 *%GENPLS1 :; 16000000 * %IF GENEND ^= ',' /* IF LAST BLOCK */ 17000000 * %THEN %GENEND = ';'; /* THEN CLOSE DCL STMT */ 18000000 * %IF GENLVL ^= '' /* IF BLOCK CONCATENATED */ 19000000 * %THEN %GO TO GENPLS2; /* THEN BYPASS DECLARE */ 20000000 * DCL 1 GENC BASED /* LEVEL ONE DECLARE */ 21000000 * %GO TO GENPLS3; /* SKIP MINOR LEVEL DCL */ 22000000 *%GENPLS2 : GENDUM =GENLVL || ' GENC'; /* SET MINOR LEVEL NUMBER*/ 23000000 * GENDUM /* MINOR STRUCTURE */ 24000000 *%GENPLS3 :; 25000000 * BDY(WORD), 26000000 * /******************************************************/ 27000000 * /* */ 28000000 * /* GENCB HEADER ARGUMENT CONTROL ENTRY */ 29000000 * /* */ 30000000 * /******************************************************/ 31000000 * 32000000 * 5 GENBTC BIT(8), /* BLOCK TYPE CODE */ 33000000 * %GENACB = '''A0''X'; /* ACB BLOCK TYPE CODE */ 34000000 * %GENXLST = '''B0''X'; /* EXLST BLOCK TYPE CODE */ 35000000 * %GENRPL = '''C0''X'; /* RPL BLOCK TYPE CODE */ 36000000 * 5 GENFTC BIT(8), /* FUNCTION TYPE CODE */ 37000000 * %GENFTYP = '''01''X'; /* GENCB FUNCT TYPE CODE */ 38000000 * 5 GENCOP FIXED(15), /* NUMBER OF COPIES */ 39000000 * 5 GENUSA PTR(31), /* USER AREA ADDRESS */ 40000000 * 5 GENUSL FIXED(15), /* USER AREA LENGTH */ 41000000 * 5 * FIXED(15)GENEND /* RESERVED */ 42000000 * %GENLEN = 'LENGTH(GENC)'; /* LENGTH OF THIS BLOCK */ 43000000 * %GO TO GENPLS4; 44000000 MACRO 45000000 IDAGENC &DSECT=YES 46000000 AIF ('&DSECT' EQ 'YES').GEN1 47000000 GENC DS 0F GENCB HEADER ARG CONTROL ENTRY 48000000 AGO .GEN2 49000000 .GEN1 ANOP 50000000 GENC DSECT GENCB HEADER ARG CONTROL ENTRY 51000000 .GEN2 ANOP 52000000 GENBTC DS B BLOCK TYPE CODE 53000000 GENACB EQU X'A0' ACB BLOCK TYPE CODE 54000000 GENXLST EQU X'B0' EXLST BLOCK TYPE CODE 55000000 GENRPL EQU X'C0' RPL BLOCK TYPE CODE 56000000 GENFTC DS B FUNCTION TYPE CODE 57000000 GENFTYP EQU 1 GENCB FUNCTION TYPE CODE 58000000 GENCOP DS H NUMBER OF COPIES 59000000 GENUSA DS A USER AREA ADDRESS 60000000 GENUSL DS H USER AREA LENGTH 61000000 DS H RESERVED 62000000 GENLEN EQU *-GENC LENGTH OF THIS BLOCK 63000000 MEND 64000000 *%GENPLS4 :; 65000000