The Shadow OS/390 Web Server Allocation Status Block
Related Topics
 |
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.