*/********************************************************************/ 00010037
*/*                                                                  */ 00020037
*/*   MACRO NAME = IDAWSHD                                           */ 00030037
*/*                                                                  */ 00040037
*/*   DESCRIPTIVE NAME = WORKING STORAGE HEADER                      */ 00042037
*/*                                                                  */ 00044037
*/*   FUNCTION = DESCRIBES BLOCKS OF CORE THAT ARE USED FOR WORKING  */ 00046037
*/*              STORAGE                                             */ 00046437
*/*                                                                  */ 00048037
*/*   CONTROL BLOCK STRUCTURE = POINTED TO BY IDAAMB                 */ 00048437
*/*                                                                  */ 00048837
*/*   INCLUDED MACROS = NONE                                         */ 00049237
*/*                                                                  */ 00049637
*/*   METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY                */ 00049737
*/*                                                                  */ 00049837
*/*   CREATED BY = VSAM OPEN                                         */ 00049937
*/*                                                                  */ 00066637
*/*   STATUS = VS/1 RELEASE 4  (CHANGE FLAG @X04SVXX)                */ 00076637
*/*            @ZA26092                                              */ 00078637
*/*                                                                  */ 00079637
*/*   DATE OF LAST CHANGE = 15 APR 75                        @Z40ESSR*/ 00080604
*/*                       = 01 MAR 78                        @ZA29035*/ 00081637
*/*                                                                  */ 00082637
*/********************************************************************/ 00083037
* DCL 1 IDAWSHD BASED,              /* WORK SPACE HEADER             */ 00083337
*      2 WSHDID CHAR(1),            /* CONTROL BLOCK ID-X'44'        */ 00100037
*      2 WSHDPOOL FIXED(8),         /* SUBPOOL OF IDAWSHD            */ 00150037
*      2 WSHDLEN FIXED(15),         /* LENGTH OF WORK SPACE HEADER   */ 00200037
*      2 WSHDACHN PTR(31),          /* ACCESS CHAIN          @ZA29035*/ 00250037
*       3 WSHDGMTB BIT(8),          /* GETMAIN RESOURCE BYTE @ZA26092*/ 00270037
*       3 WSHDNEXT PTR(24),         /* PTR TO NEXT IDAWSHD   @ZA26092*/ 00290037
*      2 WSHDGMWA CHAR(10),         /* GETMAIN WORK AREA             */ 00350037
*      2 WSHDNUS FIXED(15),         /* NBR OF USED SLOTS             */ 00400037
*      2 WSHDGMRA PTR(31),          /* GETMAIN RESULT                */ 00450037
*      2 WSHDOCHN PTR(31),          /* ORDERED SLOT CHAIN            */ 00460037
*      2 WSHDSLT(4),                /* WORK SPACE SLOT               */ 00500037
*       3 WSHDSAD PTR(31),          /* POINTER TO BLOCK              */ 00510037
*        4 * BIT(8),                /* FLAG FIELD            @Z30SSMR*/ 00520037
*         5 * BIT(2),               /* RESERVED              @Z30SSMR*/ 00530037
*         5 WSHDGSR BIT(1),         /* CORE IS IN GSR KEY    @Z40ESSR*/ 00540004
*       3 WSHDSGMW,                 /* WORK AREA FOR SLOT GETMAIN    */ 00550037
*        4 WSHDSFM,                 /* FREEMAIN FIELD FOR DELVRP     */ 00600037
*         5 WSHDSFSP FIXED(8),      /* SUBPOOL FOR BLOCK             */ 00650037
*         5 WSHDSFLN FIXED(24),     /* LENGTH IN BYTES OF BLOCK      */ 00700037
*        4 WSHDSONX PTR(31),        /* PTR TO NEXT ON ORDERED CHN    */ 00750037
*        4 WSHDSBV FIXED(15),       /* NBR OF BYTES PRE SLOT BIT     */ 00800037
*        4 WSHDSFLG BIT(8),         /* WORK SPACE SLOT FLAGS         */ 00850037
*         5 WSHDSFNO BIT(1),        /* SLOT HAS NO AVAILABLE CORE    */ 00900037
*        4 WSHDSBM BIT(8);          /* BIT MASK                      */ 00950037