/********************************************************* @G24LB18*/ 00050042 /* @G24LB18*/ 00100042 /* NAME - IEZTABP (TABLE PROCESSOR PARAMETER LIST MAPPING @G24LB18*/ 00150042 /* MACRO) @G24LB18*/ 00200042 /* @G24LB18*/ 00250042 /* STATUS - MVS @G24LB18*/ 00300042 /* @G24LB18*/ 00350042 /* FUNCTION - MAPPING MACRO FOR THE MSVC TABLE PROCESSOR @G24LB18*/ 00400042 /* (ICBVTP00) PARAMETER LIST. THIS LIST DEFINES @G24LB18*/ 00450042 /* THE FUNCTION TO BE PERFORMED BY THE TABLE @G24LB18*/ 00500042 /* PROCESSOR AND CONTAINS THE INPUTS TO THE @G24LB18*/ 00550042 /* TABLE PROCESSOR AND THE OUTPUTS FROM THE @G24LB18*/ 00600042 /* TABLE PROCESSOR. @G24LB18*/ 00650042 /* @G24LB18*/ 00700042 /********************************************************* @G24LB18*/ 00750042 DCL 00800042 1 TABP BDY(WORD) BASED, /* TABLE PROCESSOR REQ @G24LB18*/ 00850042 /* PARM LIST @G24LB18*/ 00900042 2 TABFLAGS, /* TABLE PROCESSOR FUNC @G24LB18*/ 00950042 3 TABFBLDE BIT(1), /* BUILD DD ENTRY FUNC @G24LB18*/ 01000042 3 TABFSRCD BIT(1), /* SEARCH FOR DD ENTRY @G24LB18*/ 01050042 /* FUNC @G24LB18*/ 01100042 3 TABFBFIT BIT(1), /* UPDATE BEST FIT TABLE @G24LB18*/ 01150042 /* FUNC @G24LB18*/ 01200042 3 TABFTSPC BIT(1), /* GET TOTAL SPACE FOR @G24LB18*/ 01250042 /* VOLSER FUNC @G24LB18*/ 01300042 3 TABFUTRM BIT(1), /* UNSUCCESSFUL @G24LB18*/ 01350042 /* TERMINATION FUNC @G24LB18*/ 01400042 3 TABFFREE BIT(1), /* FREE STEP TABLE FUNC @G24LB18*/ 01450042 3 * BIT(2), /* UNUSED @G24LB18*/ 01500042 2 * CHAR(1), /* UNUSED @G24LB18*/ 01510042 2 TABVOLID CHAR(6), /* VOL SER FOR SEARCH @G24LB18*/ 01600042 3 TABDDNUM FIXED(15), /* DD # FOR SEARCH @G24LB18*/ 01610042 3 TABSELRB PTR(31), /* SELECT REQ BLOCK ADDR @G24LB18*/ 01700042 4 TABJOBID FIXED(31), /* TCB ADDR(VS1) OR @G24LB18*/ 01750042 /* ASID(MVS) @G24LB18*/ 01800042 5 TABBFTBL PTR(31), /* BEST FIT TABLE ADDR @G24LB18*/ 01850042 2 TABDDRET PTR(31), /* DD ENTRY ADDR RET @G24LB18*/ 01900042 /* AREA @G24LB18*/ 01950042 3 TABHDRET PTR(31), /* STEP TABLE HEADER @G24LB18*/ 02000042 /* ENTRY ADDR RETURN @G24LB18*/ 02050042 /* AREA @G24LB18*/ 02100042 4 TABSPRET FIXED(15), /* SELECTED SPACE RET @G24LB18*/ 02150042 /* AREA @G24LB18*/ 02200042 4 * CHAR(2); /* UNUSED @G24LB18*/ 02250042