Previous Topic Table Of Contents Parent Topic Next Topic |  | # The Shadow OS/390 Web Server Allocation Status Block Related Topics Web Server API Function Index
| May not be used in Shadow/REXX
| May not be used from Other REXX Interpreters
| High-level Language Interface available through the use of the SWSFREE and SWSALLOC APIs
This structure allows the user to retrieve any error messages generated during dynamic allocation and de-allocation. It will also allow the user to obtain the system-generated DDName or DSName if one is not specified during the invocation of the SWSALLOC API. ## PL/I Layout
    /*------------------------------------------------------------------*/
    /* THE FOLLOWING DEFINES THE ALLOCATION STATUS BLOCK                */
    /* WHERE DYNAMIC ALLOCATION INFORMATION IS RETURNED TO THE          */
    /* CLIENT PROGRAM.   THIS CONTROL BLOCK IS USED WITH THE            */
    /* SWSALLOC AND SWSFREE HIGH-LEVEL LANGUAGE INTERFACE.              */
    /*-+----1----+----2----+----3----+----4----+----5----+----6----+----*/
      DCL 1 SWSASB,                  /* ALLOCATION STATUS BLOCK AREA    */
            2 ASBINFO  FIXED BIN(31),  /*  DAIR INFO CODE               */
            2 ASBRSN   FIXED BIN(31),  /*  DAIR REASON CODE             */
            2 ASBDDN   CHAR(8),      /*  ASSIGNED DDNAME                */
            2 ASBDSN   CHAR(44),     /*  ASSIGNED DSNAME                */
            2 ASBMSG   CHAR(256);    /*  ERROR MESSAGE                  */

         This layout is available when you specify:

              %INCLUDE   SPCPHD;
## C Layout
    /*--------------------------------------------------------------------*/
    /*  The following structure is used as a feedback area                */
    /*  for dynamic allocate and de-allocation requests.                  */
    /*--+----1----+----2----+----3----+----4----+----5----+----6----+----7*/
    typedef struct SWS_ALLOCATION_STATUS_BLOCK {                          */
      long   Info_Code;               /* DAIR Info Code                   */
      long   Reason_Code;             /* SVC 99 Reason Code               */
      char   Assigned_DDName[8];      /* Assigned DDName from SWSAlloc    */
      char   Assigned_DSName[44];     /* Assigned DSName from SWSAlloc    */
      char   Error_Message[256];      /* Dynamic (de)allocation error msg */
    } SWS_ALLOCATION_STATUS_BLOCK;    /* request string structure         */

         This layout is available when you specify:

              #include  "sccphd.h"
## COBOL Layout
    019105******************************************************************
    019110* THE SWSALLOC/SWSFREE API INTERFACES USE THE FOLLOWING AREA     *
    019115******************************************************************
    019120 01  SWS-ALLOCATION-STATUS-BLOCK.
    019125  03 SWSASB-INFO-CODE           PIC S9(5)   COMP.
    019130  03 SWSASB-REASON-CODE         PIC S9(5)   COMP.
    019135  03 SWSASB-ASSIGNED-DDNAME     PIC X(8).
    019140  03 SWSASB-ASSIGNED-DSNAME     PIC X(44).
    019145  03 SWSASB-ERROR-MESSAGE       PIC X(256).

         This layout is available when you specify:

              COPY  SBCPHD.
`Top`