* %GOTO STMHNPLS; /* BILINGUAL HEADER 03000010 MACRO 06000010 TSTMHND 09000010 .*A000000-999999 @Y17XAXF 12000010 IEDNSTMH DSECT 15000010 DS 0F 18000010 * 21000010 * DSECT FOR PREFIX OF STARTMH GENERATION 24000010 * 27000010 STMHUNBR DS A . VCON FOR IEDUNBND 28000010 STMHUBXT DS A . ADDR OF USERS UNBIND EXIT 29000010 STMHFLG0 DS XL1 . MH FLAGS 30000010 STMHDFCP EQU X'80' . PARTIAL DFC RESPONSE SUPPORT 33000010 STMHDFC EQU X'40' . FULL DFC RESPONSE SUPPORT 36000010 STMHUNBD EQU X'20' UNBIND EXIT OPERAND SPECIFIED 39000010 * EQU X'10' THRU X'01' . RESERVED 40000010 STMHBEXT DS XL3 . BIND EXIT ADDR 42000010 STMHNLEN EQU *-IEDNSTMH . LEN OF MH PREFIX 45000010 MEND 48000010 * */ 51000010 *%STMHNPLS:; 54000010 * %IF STMH9999^=',' /* DECIDE IF CONCATENATION */ 57000010 * %THEN %STMH9999=';'; /* IS REQUESTED */ 60000010 *DECLARE 63000010 * 1 IEDNSTMH BASED BDY(WORD), 66000010 */* */ 69000010 */* DSECT FOR PREFIX OF STARTMH GENERATION */ 72000010 */* */ 75000010 * 2 STMHUNBR PTR(31), /* VCON TO IEDUNBND */ 78000010 * 2 STMHUBXT PTR(31), /* ADDR OF USERS UNBIND EXIT */ 79000010 * 2 STMHFLG0 CHAR(1), /* MH FLAGS */ 80000010 * 3 STMHDFCP BIT(1), /* PARTIAL DFC RESPONSE SUP*/ 81000010 * 3 STMHDFC BIT(1), /* FULL DFC RESPONSE SUP */ 84000010 * 3 STMHUNBD BIT(1), /* UNBIND EXIT OPERAND 87000010 * SPECIFIED */ 88000010 * 3 * BIT(5), /* RESERVED */ 89000010 * 90000010 * 2 STMHBEXT PTR(24) STMH9999 /* BIND EXIT ADDR */ 93000010 * %STMHNLEN='LENGTH(IEDNSTMH)'; /* LENGTH OF MH PREFIX */ 96000010