* /* */ 01050002 * /* MACCOMP Y-2 SC1DE/SJD61 */ 01100002 * /* MACSTAT Y-2 73103/Y02113 */ 01150002 * /* */ 01200002 * %GO TO MODPLS1; 01250002 */* MODCB HEADER ARGUMENT CONTROL ENTRY */ 02000090 */* CREATED BY USER WITH MODCB MACRO */ 03000090 */* */ 04000090 */* */ 05000090 */* 0 ___________________________________________________ */ 06000090 */* | | | | */ 07000090 */* | MODBTC | MODFTC | * | */ 08000090 */* |____________|___________|________________________| */ 09000090 */* | | */ 10000090 */* | MODBLAD | */ 11000090 */* |_________________________________________________| */ 12000090 */* */ 13000090 *%MODPLS1 :; 14000090 * %IF MODEND ^= ',' /* IF LAST BLOCK */ 15000090 * %THEN %MODEND = ';'; /* THEN CLOSE DCL STMT */ 16000090 * %IF MODLVL ^= '' /* IF BLOCK CONCATENATED */ 17000090 * %THEN %GO TO MODPLS2; /* THEN BYPASS DECLARE */ 18000090 * DCL 1 MODC BASED /* LEVEL ONE DECLARE */ 19000090 * %GO TO MODPLS3; /* SKIP MINOR LEVEL DCL */ 20000090 *%MODPLS2 : MODDUM = MODLVL || ' MODC'; /* SET MINOR LEVEL NUMBER*/ 21000090 * MODDUM /* MINOR STRUCTURE */ 22000090 *%MODPLS3 :; 23000090 * BDY(WORD), 24000090 * /******************************************************/ 25000090 * /* */ 26000090 * /* MODCB HEADER ARGUMENT CONTROL ENTRY */ 27000090 * /* */ 28000090 * /******************************************************/ 29000090 * 30000090 * 5 MODBTC BIT(8), /* BLOCK TYPE CODE */ 31000090 * %MODACB = '''A0''X'; /* ACB BLOCK TYPE CODE */ 32000090 * %MODXLST = '''B0''X'; /* EXLST BLOCK TYPE CODE */ 33000090 * %MODRPL = '''C0''X'; /* RPL BLOCK TYPE CODE */ 34000090 * 5 MODFTC BIT(8), /* FUNCTION TYPE CODE */ 35000090 * %MODFTYP = '''02''X'; /* MODCB FUNCT TYPE CODE */ 36000090 * %MODFTVT = '''12''X'; /* MODCB FTC FOR VTAM */ 36500000 * 5 * FIXED(15), /* RESERVED */ 37000090 * 5 MODBLAD PTR(31)MODEND /* CONTROL BLOCK ADDRESS */ 40000090 * %MODLEN = 'LENGTH(MODC)'; /* LENGTH OF THIS BLOCK */ 41000090 * %GO TO MODPLS4; 42000090 MACRO 43000090 IDAMODC &DSECT=YES 44000090 AIF ('&DSECT' EQ 'YES').MOD1 45000090 MODC DS 0F MODCB HEADER ARG CONTROL ENTRY 46000090 AGO .MOD2 47000090 .MOD1 ANOP 48000090 MODC DSECT MODCB HEADER ARG CONTROL ENTRY 49000090 .MOD2 ANOP 50000090 MODBTC DS B BLOCK TYPE CODE 51000090 MODACB EQU X'A0' ACB BLOCK TYPE CODE 52000090 MODXLST EQU X'B0' EXLST BLOCK TYPE CODE 53000090 MODRPL EQU X'C0' RPL BLOCK TYPE CODE 54000090 MODFTC DS B FUNCTION TYPE CODE 55000090 MODFTYP EQU 2 MODCB FUNCTION TYPE CODE 56000090 MODFTVT EQU 12 MODCB FTC FOR VTAM 56500000 DS H RESERVED 57000090 MODDATA EQU 0 DATA OBJECT TYPE CODE 58000090 MODINDX EQU 1 INDEX OBJECT TYPE CODE 59000090 MODBLAD DS A CONTROL BLOCK ADDRESS 60000090 MODLEN EQU *-MODC LENGTH OF THIS BLOCK 61000090 MEND 62000090 *%MODPLS4 :; 63000090