Below is the REXX
/*REXX*/
/* call set_hwi_constants */
"ALLOC F(HWICIREX) DA('SYS1.MACLIB(HWICIREX)') SHR REUS" /* @02C*/
"execio * diskr "HWICIREX" (stem linelist. finis "
"FREE F(HWICIREX)"
do x = 1 to linelist.0
interpret linelist.x
end
drop linelist.
"ALLOC F(HWIC2REX) DA('SYS1.MACLIB(HWIC2REX)') SHR REUS" /* @02C*/
"execio * diskr "HWIC2REX" (stem linelist. finis "
"FREE F(HWIC2REX)"
do x = 1 to linelist.0
interpret linelist.x
end
drop linelist.
/* ----------------------------------------------------------------- */
/* Main */
/* ----------------------------------------------------------------- */
say ' =>> BCPii QUERY status starting ... <<='
call ConnectToCPC 'IBM390PS.BT01C '
If REXXHostRC = 0 & ReturnCode = 0 Then
Do /* CPC connect successful */
call ConnectToImage CPCConnectToken, 'BT013B '
If REXXHostRC = 0 & ReturnCode = 0 Then
Do /* Image connect successful */
call QueryIMAGEAttr ImageConnectToken
If operstat= '00000002' Then
Do
call IssueBCPiiCommand ImageConnectToken loadaddr loadparm
End
call ReleaseConnection 'Image', ImageConnectToken
End
call ReleaseConnection 'CPC', CPCConnectToken
End
say ' =>> BCPii QUERY status ending ... <<= ' /*@01A*/
Exit ReturnCode
/* ================================================================ */
/* Try_Set */
/* */
/* Try_Set will invoke a series of subroutines: */
/* ConnectToCPC to create a connection to the local CPC. */
/* IssueBCPiiSet to set a value for a CPC attribute. */
/* ReleaseConnection to release the CPC connection. */
/* */
/* ================================================================ */
Try_Set:
/* --------------------------------------------------------------- */
/* Report Try_Set was called. */
/* --------------------------------------------------------------- */
say ' =>> Routine Try_Set has been called ' /*@01C*/
say
/* --------------------------------------------------------------- */
/* Set the target to the local CPC and establish a connection. */
/* --------------------------------------------------------------- */
call ConnectToCPC HWI_LOCAL_HOST_CPC
If REXXHostRC = 0 & ReturnCode = 0 Then
Do /* CPC connect successful */
/* ----------------------------------------------------------- */
/* Set HWISET parameters. */
/* ----------------------------------------------------------- */
SetType = HWI_ACCSTAT
SetTypeValue = HWMCA_STATUS_OPERATING
/* ----------------------------------------------------------- */
/* Call IssueBCPiiSet to invoke HWISET to set a value to an */
/* attribute for an object. In this case, set the value of */
/* the Acceptable Status attribute for a CPC. */
/* */
/* The user must have Update authority to set an attribute. */
/* ----------------------------------------------------------- */
call IssueBCPiiSet CPCConnectToken, SetType, SetTypeValue
If REXXHostRC = 0 & ReturnCode = 0 Then /*@01A*/
/*@01A*/
say ' > A value has been SET for the acceptable status attribute.'
say
/* ----------------------------------------------------------- */
/* Call HWIDISC to disconnect the CPC. */
/* ----------------------------------------------------------- */
call ReleaseConnection 'CPC', CPCConnectToken
End /* CPC connect successful */
return /* end Try_Set */
/* ================================================================ */
/* ConnectToCPC */
/* */
/* Call HWICONN to connect to a CPC to obtain a connect token. */
/* */
/* ================================================================ */
ConnectToCPC:
PARSE ARG ConnectTypeValue
/* InConnectToken is ignored when connecting to a CPC. */
/* --------------------------------------------------------------- */
/* --------------------------------------------------------------- */
/* Set HWICONN parameters. */
/* --------------------------------------------------------------- */
ConnectType = HWI_CPC
/* --------------------------------------------------------------- */
/* Call HWICONN. */
/* --------------------------------------------------------------- */
say ' =>> HWICONN - Connect to CPC 'ConnectTypeValue /*@01C*/
address bcpii "hwiconn ",
"ReturnCode ",
"InConnectToken ",
"OutConnectToken ",
"ConnectType ",
"ConnectTypeValue ",
"DiagArea." /*@03C*/
/* --------------------------------------------------------------- */
/* Save value returned as REXX special variable, RC. */
/* --------------------------------------------------------------- */
REXXHostRc = RC
/* --------------------------------------------------------------- */
/* Report HWICONN results. */
/* --------------------------------------------------------------- */
say ' REXXHostRc = ' d2x(REXXHostRc)
say ' HWICONN rc = ' d2x(ReturnCode)
say
/* --------------------------------------------------------------- */
/* If HWICONN fails, report diagnostic information. */
/* --------------------------------------------------------------- */
If REXXHostRC <>0 | ReturnCode <> 0 Then
Do
say ' DiagArea.Diag_Index = ' DiagArea.Diag_Index
say ' DiagArea.Diag_Key = ' DiagArea.Diag_Key
say ' DiagArea.Diag_Actual = ' DiagArea.Diag_Actual
say ' DiagArea.Diag_Expected = ' DiagArea.Diag_Expected
say ' DiagArea.Diag_CommErr = ' DiagArea.Diag_CommErr
say ' DiagArea.Diag_Text = ' DiagArea.Diag_Text
say
End
Else
Do
CPCConnectToken = OutConnectToken
End
return /* end ConnectToCPC */
/* ================================================================ */
/* ConnectToImage */
/* */
/* Call HWICONN to connect to an image. */
/* */
/* ================================================================ */
ConnectToImage:
PARSE ARG InConnectToken, ConnectTypeValue
/* --------------------------------------------------------------- */
/* Set HWICONN parameters. */
/* --------------------------------------------------------------- */
ConnectType = HWI_IMAGE
/* --------------------------------------------------------------- */
/* Call HWICONN. */
/* --------------------------------------------------------------- */
say ' =>> HWICONN - Connect to image 'ConnectTypeValue /*@01C*/
address bcpii "hwiconn ",
"ReturnCode ",
"InConnectToken ",
"OutConnectToken ",
"ConnectType ",
"ConnectTypeValue ",
"DiagArea." /*@03C*/
/* --------------------------------------------------------------- */
/* Save value returned as REXX special variable, RC. */
/* --------------------------------------------------------------- */
REXXHostRc = RC
/* --------------------------------------------------------------- */
/* Report HWICONN results. */
/* --------------------------------------------------------------- */
say ' REXXHostRc = ' d2x(REXXHostRc)
say ' HWICONN rc = ' d2x(ReturnCode)
say
/* --------------------------------------------------------------- */
/* If HWICONN fails, report diagnostic information. */
/* --------------------------------------------------------------- */
If REXXHostRC <>0 | ReturnCode <> 0 Then
Do
say ' DiagArea.Diag_Index = ' DiagArea.Diag_Index
say ' DiagArea.Diag_Key = ' DiagArea.Diag_Key
say ' DiagArea.Diag_Actual = ' DiagArea.Diag_Actual
say ' DiagArea.Diag_Expected = ' DiagArea.Diag_Expected
say ' DiagArea.Diag_CommErr = ' DiagArea.Diag_CommErr
say ' DiagArea.Diag_Text = ' DiagArea.Diag_Text
say
End
Else
ImageConnectToken = OutConnectToken
return /* end ConnectToImage */
/* ================================================================ */
/* IssueBCPiiSet */
/* */
/* Pass these arguments to HWISET: */
/* = the address of a return code variable. */
/* = a connect token for a CPC, image, caprec, or an activation */
/* profile connection, depending on the attribute being set. */
/* = the name of the attribute whose value will be changed. */
/* For example, the acceptable status attribute, HWI_ACCSTAT, */
/* can be set on a CPC or on an image. */
/* = the value to which an attribute will be set. */
/* For example, the HWI_ACCSTAT attribute could be set */
/* to Hwmca_Status_Operating or Hwmca_Status_Exceptions, etc. */
/* = the caller's diagnostic area. */
/* */
/* ================================================================ */
IssueBCPiiSet:
PARSE ARG ConnectToken, SetType, SetTypeValue
/* --------------------------------------------------------------- */
/* Call HWISET. */
/* --------------------------------------------------------------- */
say ' =>> HWISET - Set an attribute value ' /*@01C*/
address bcpii "hwiset ",
"ReturnCode ",
"ConnectToken ",
"SetType ",
"SetTypeValue ",
"DiagArea." /*@03C*/
/* --------------------------------------------------------------- */
/* Save value returned as REXX special variable, RC. */
/* --------------------------------------------------------------- */
REXXHostRc = RC
/* --------------------------------------------------------------- */
/* Report HWISET results. */
/* --------------------------------------------------------------- */
say ' REXXHostRc = ' d2x(REXXHostRc)
say ' HWISET rc = ' d2x(ReturnCode)
say
/* --------------------------------------------------------------- */
/* If HWISET fails, report diagnostic information. */
/* --------------------------------------------------------------- */
If REXXHostRC <>0 | ReturnCode <> 0 Then
Do
say ' DiagArea.Diag_Index = ' DiagArea.Diag_Index
say ' DiagArea.Diag_Key = ' DiagArea.Diag_Key
say ' DiagArea.Diag_Actual = ' DiagArea.Diag_Actual
say ' DiagArea.Diag_Expected = ' DiagArea.Diag_Expected
say ' DiagArea.Diag_CommErr = ' DiagArea.Diag_CommErr
say ' DiagArea.Diag_Text = ' DiagArea.Diag_Text
say
End
return /* end IssueBCPiiSet */
/* ================================================================ */
/* ListCPCs */
/* */
/* Call HWILIST to list all CPCs in an HMC network to which you */
/* have authority. Save the returned list in List_of_CPCs array. */
/* */
/* ================================================================ */
ListCPCs:
/* --------------------------------------------------------------- */
/* Report HWILIST CPCs is starting. */
/* --------------------------------------------------------------- */
say ' =>> HWILIST - List CPCs ' /*@01C */
/* --------------------------------------------------------------- */
/* Set HWILIST parameters. */
/* --------------------------------------------------------------- */
ListType = HWI_LIST_CPCS
/* --------------------------------------------------------------- */
/* Initialize AnswerArea. */
/* --------------------------------------------------------------- */
CPCList. = 'CPC names will be listed here'
/* --------------------------------------------------------------- */
/* Call HWILIST. */
/* Note: The input connect token is ignored for a List CPCs */
/* request. The parameter is not initialized. */
/* --------------------------------------------------------------- */
address bcpii "hwilist ",
"ReturnCode ",
"ConnectToken ",
"ListType ",
"CPCList. ",
"DiagArea." /*@03C*/
/* --------------------------------------------------------------- */
/* Save value returned as REXX special variable, RC. */
/* --------------------------------------------------------------- */
REXXHostRc = RC
/* --------------------------------------------------------------- */
/* Report HWILIST results. */
/* --------------------------------------------------------------- */
say ' REXXHostRc = ' d2x(REXXHostRc)
say ' HWILIST rc = ' d2x(ReturnCode)
say
/* --------------------------------------------------------------- */
/* If HWILIST fails, report diagnostic information. */
/* --------------------------------------------------------------- */
If REXXHostRC <>0 | ReturnCode <> 0 Then
Do
say ' DiagArea.Diag_Index = ' DiagArea.Diag_Index
say ' DiagArea.Diag_Key = ' DiagArea.Diag_Key
say ' DiagArea.Diag_Actual = ' DiagArea.Diag_Actual
say ' DiagArea.Diag_Expected = ' DiagArea.Diag_Expected
say ' DiagArea.Diag_CommErr = ' DiagArea.Diag_CommErr
say ' DiagArea.Diag_Text = ' DiagArea.Diag_Text
say
End
Else /*@01A*/
Do /*@01A*/
/* ----------------------------------------------------------- */
/* Report the number of CPCs returned. */
/* ----------------------------------------------------------- */
say ' Number of CPCs found = 'CPCList.0 /*@01C*/
say
/* ----------------------------------------------------------- */
/* Write the list of CPCs returned. */
/* ----------------------------------------------------------- */
Do i = 1 to CPCList.0
say ' CPC 'i' = 'CPCList.i /*@01C*/
End
say
End /* end CPCs returned *@01A*/
return /* end ListCPCs */
/* ================================================================ */
/* ListImages */
/* */
/* Call HWILIST to list the images on the CPC that is represented */
/* by the input connect token. Save the returned list in */
/* List_of_Images array. */
/* */
/* ================================================================ */
ListImages:
PARSE ARG ConnectToken
/* --------------------------------------------------------------- */
/* Report HWILIST is starting. */
/* --------------------------------------------------------------- */
say ' =>> HWILIST - List images ' /*@01C*/
/* --------------------------------------------------------------- */
/* Set HWILIST parameters. */
/* --------------------------------------------------------------- */
ListType = HWI_LIST_IMAGES
/* --------------------------------------------------------------- */
/* Initialize AnswerArea. */
/* --------------------------------------------------------------- */
ImageList. = 'Image names will be listed here'
/* --------------------------------------------------------------- */
/* Call HWILIST. */
/* --------------------------------------------------------------- */
address bcpii "hwilist ",
"ReturnCode ",
"ConnectToken ",
"ListType ",
"ImageList. ",
"DiagArea." /*@03C*/
/* --------------------------------------------------------------- */
/* Save value returned as REXX special variable, RC. */
/* --------------------------------------------------------------- */
REXXHostRc = RC
/* --------------------------------------------------------------- */
/* Report HWILIST results. */
/* --------------------------------------------------------------- */
say ' REXXHostRc = ' d2x(REXXHostRc)
say ' HWILIST rc = ' d2x(ReturnCode)
say
/* --------------------------------------------------------------- */
/* If HWILIST fails, report diagnostic information. */
/* --------------------------------------------------------------- */
If REXXHostRC <>0 | ReturnCode <> 0 Then
Do
say ' DiagArea.Diag_Index = ' DiagArea.Diag_Index
say ' DiagArea.Diag_Key = ' DiagArea.Diag_Key
say ' DiagArea.Diag_Actual = ' DiagArea.Diag_Actual
say ' DiagArea.Diag_Expected = ' DiagArea.Diag_Expected
say ' DiagArea.Diag_CommErr = ' DiagArea.Diag_CommErr
say ' DiagArea.Diag_Text = ' DiagArea.Diag_Text
say
ImageList.0=0
End
Else
Do /* images returned */
/* ----------------------------------------------------------- */
/* Report the number of images returned. */
/* ----------------------------------------------------------- */
say ' Number of images found = 'ImageList.0 /*@01C*/
say
/* ----------------------------------------------------------- */
/* Write the list of images returned. */
/* ----------------------------------------------------------- */
Do j = 1 to ImageList.0
say ' Image 'j' = 'ImageList.j /*@01C*/
End
say
End /* end images returned */
return /* end ListImages */
/* ================================================================ */
/* QueryCPCAttr */
/* */
/* Call HWIQUERY to retrieve SE/HMC managed data for a CPC */
/* which is represented by the input connect token. */
/* */
/* By changing the query parm, you may change or add any */
/* attributes to retrieve. */
/* */
/* The following steps are necessary to change the query */
/* parameters: */
/* 1. Declare the attribute values */
/* 2. Set the number of the attributes for the request */
/* 3. Set the query parm */
/* */
/* ================================================================ */
QueryCPCAttr:
PARSE ARG ConnectToken
say ' =>> HWIQUERY - Query CPC attributes ' /*@01C*/
/* --------------------------------------------------------------- */
/* Build QueryParm structure to query CPC attributes. QueryParm */
/* index 0 contains the number of attributes to be queried. */
/* --------------------------------------------------------------- */
QueryParm.0 = 4
QueryParm.1.ATTRIBUTEIDENTIFIER = HWI_MMODEL
QueryParm.2.ATTRIBUTEIDENTIFIER = HWI_SNAADDR
QueryParm.3.ATTRIBUTEIDENTIFIER = HWI_NUMGPP /*@01A*/
QueryParm.4.ATTRIBUTEIDENTIFIER = HWI_IPLTOKEN /*@01A*/
/* --------------------------------------------------------------- */
/* Call HWIQUERY. */
/* --------------------------------------------------------------- */
address bcpii "hwiquery ",
"ReturnCode ",
"ConnectToken ",
"QueryParm. ",
"DiagArea." /*@03C*/
/* --------------------------------------------------------------- */
/* Save value returned as REXX special variable, RC. */
/* --------------------------------------------------------------- */
REXXHostRc = RC
/* --------------------------------------------------------------- */
/* Report HWIQUERY results. */
/* --------------------------------------------------------------- */
say ' REXXHostRc = ' d2x(REXXHostRc)
say ' HWIQUERY rc = ' d2x(ReturnCode)
say
/* --------------------------------------------------------------- */
/* If HWIQUERY fails, report diagnostic information. */
/* --------------------------------------------------------------- */
If REXXHostRC <>0 | ReturnCode <> 0 Then
Do
say ' DiagArea.Diag_Index = ' DiagArea.Diag_Index
say ' DiagArea.Diag_Key = ' DiagArea.Diag_Key
say ' DiagArea.Diag_Actual = ' DiagArea.Diag_Actual
say ' DiagArea.Diag_Expected = ' DiagArea.Diag_Expected
say ' DiagArea.Diag_CommErr = ' DiagArea.Diag_CommErr
say ' DiagArea.Diag_Text = ' DiagArea.Diag_Text
say
End
Else /*@01A*/
Do /*@01A*/
/* ------------------------------------------------------------ */
/* Report the returned attribute values. */
/* ------------------------------------------------------------ */
say ' > Model Number is ' QueryParm.1.ATTRIBUTEVALUE /*@01C*/
say ' > SNA Addr is ' QueryParm.2.ATTRIBUTEVALUE /*@01C*/
say ' > Num GPP is ' QueryParm.3.ATTRIBUTEVALUE /*@01A*/
say ' > IPLTOKEN is ' QueryParm.4.ATTRIBUTEVALUE /*@01A*/
say
End /*@01A*/
return /* end QueryCPCAttr */
/* ================================================================ */
/* QueryIMAGEAttr */
/* */
/* Call HWIQUERY to retrieve SE/HMC managed data for an image */
/* which is represented by the input connect token. */
/* */
/* By changing the query parm, you may change or add any */
/* attributes to retrieve. */
/* */
/* The following steps are necessary to change the query */
/* parameters */
/* 1. Declare the attribute values */
/* 2. Set the number of the attributes for the request */
/* 3. Set the query parm */
/* */
/* ================================================================ */
QueryIMAGEAttr:
PARSE ARG ConnectToken
/* --------------------------------------------------------------- */
/* Report HWIQUERY is starting. */
/* --------------------------------------------------------------- */
say ' =>> HWIQUERY - Query image attributes ' /*@01A*/
/* --------------------------------------------------------------- */
/* Build a QueryParm structure to query an image attribute. */
/* QueryParm index 0 contains the number of attributes to be */
/* queried. */
/* --------------------------------------------------------------- */
QueryParm.0 = 3
QueryParm.1.ATTRIBUTEIDENTIFIER = HWI_OPERSTAT
QueryParm.2.ATTRIBUTEIDENTIFIER = HWI_LAST_USED_LOADADDR
QueryParm.3.ATTRIBUTEIDENTIFIER = HWI_LAST_USED_LOADPARM
/* --------------------------------------------------------------- */
/* Call HWIQUERY. */
/* --------------------------------------------------------------- */
address bcpii "hwiquery ",
"ReturnCode ",
"ConnectToken ",
"QueryParm. ",
"DiagArea." /*@03C*/
/* --------------------------------------------------------------- */
/* Save value returned as REXX special variable, RC. */
/* --------------------------------------------------------------- */
REXXHostRc = RC
/* --------------------------------------------------------------- */
/* Report HWIQUERY results. */
/* --------------------------------------------------------------- */
say ' REXXHostRc = ' d2x(REXXHostRc)
say ' HWIQUERY rc = ' d2x(ReturnCode)
say
/* --------------------------------------------------------------- */
/* If HWIQUERY fails, report diagnostic information. */
/* --------------------------------------------------------------- */
If REXXHostRC <>0 | ReturnCode <> 0 Then
Do
say ' DiagArea.Diag_Index = ' DiagArea.Diag_Index
say ' DiagArea.Diag_Key = ' DiagArea.Diag_Key
say ' DiagArea.Diag_Actual = ' DiagArea.Diag_Actual
say ' DiagArea.Diag_Expected = ' DiagArea.Diag_Expected
say ' DiagArea.Diag_CommErr = ' DiagArea.Diag_CommErr
say ' DiagArea.Diag_Text = ' DiagArea.Diag_Text
say
End
Else /*@01A*/
Do /*@01A*/
/* ------------------------------------------------------------ */
/* Report the returned attribute values. */
/* ------------------------------------------------------------ */
say ' > Operstat is ' QueryParm.1.ATTRIBUTEVALUE /*@01C*/
say ' > Loadaddr is ' QueryParm.2.ATTRIBUTEVALUE /*@01C*/
say ' > Loadparm is ' QueryParm.3.ATTRIBUTEVALUE /*@01C*/
operstat = QueryParm.1.ATTRIBUTEVALUE
loadaddr = QueryParm.2.ATTRIBUTEVALUE
loadparm = QueryParm.3.ATTRIBUTEVALUE
End
return /* end QueryIMAGEAttr */
/* ================================================================ */
/* ReleaseConnection */
/* */
/* Call HWIDISC to disconnect a connection which is represented */
/* by the input connect token. */
/* */
/* ================================================================ */
ReleaseConnection:
PARSE ARG ReleaseType, ConnectToken
/* --------------------------------------------------------------- */
/* Report HWIDISC is starting. */
/* --------------------------------------------------------------- */
say ' =>> HWIDISC - Release 'ReleaseType' connection ' /*@01C*/
/* --------------------------------------------------------------- */
/* Call HWIDISC. */
/* --------------------------------------------------------------- */
address bcpii "hwidisc ",
"ReturnCode ",
"ConnectToken ",
"DiagArea." /*@03C*/
/* --------------------------------------------------------------- */
/* Save value returned as REXX special variable, RC. */
/* --------------------------------------------------------------- */
REXXHostRc = RC
/* --------------------------------------------------------------- */
/* Report HWIDISC results. */
/* --------------------------------------------------------------- */
say ' REXXHostRc = ' d2x(REXXHostRc)
say ' HWIDISC rc = ' d2x(ReturnCode)
say
/* --------------------------------------------------------------- */
/* If HWIDISC fails, report diagnostic information. */
/* --------------------------------------------------------------- */
If REXXHostRC <>0 | ReturnCode <> 0 Then
Do;
say ' DiagArea.Diag_Index = ' DiagArea.Diag_Index
say ' DiagArea.Diag_Key = ' DiagArea.Diag_Key
say ' DiagArea.Diag_Actual = ' DiagArea.Diag_Actual
say ' DiagArea.Diag_Expected = ' DiagArea.Diag_Expected
say ' DiagArea.Diag_CommErr = ' DiagArea.Diag_CommErr
say ' DiagArea.Diag_Text = ' DiagArea.Diag_Text
End;
return /* end ReleaseConnection */
/* ================================================================ */
/* IssueBCPiiCommand */
/* */
/* Call HWICMD passing these arguments: */
/* = a return code variable. */
/* = a connect token for a CPC, or an image connection. */
/* = the type of command being issued. */
/* For example, a cmd type of HWI_OSCMD would indicate that */
/* a system operating command is being issued. */
/* = the value of the operating system command. */
/* For HWI_OSCMD, a user might provide an input command */
/* string such as "d grs". */
/* = a diagnostic area. */
/* */
/* Remember: HWICMD responds in two ways. An immediate response */
/* indicates whether a command was accepted for */
/* processing. At command completion, an */
/* asynchronous result is provided through event */
/* processing. */
/* */
/* ================================================================ */
IssueBCPiiCommand:
PARSE ARG ImgCToken load_addr load_parm
/* --------------------------------------------------------------- */
/* Report HWICMD is starting. */
/* --------------------------------------------------------------- */
say ' =>> HWICMD - Issue a BCPii command '
ConnectToken = ImgCToken
CmdType = HWI_CMD_LOAD
CmdParm.LoadAddr = load_addr
CmdParm.LoadParm = load_parm
CmdParm.ForceType = HWI_CMD_NOFORCE
say CmdParm.LoadAddr CmdParm.LoadParm CmdParm.ForceType
/* --------------------------------------------------------------- */
/* Call HWICMD. */
/* --------------------------------------------------------------- */
address bcpii "hwicmd ",
"ReturnCode ",
"ConnectToken ",
"CmdType ",
"CmdParm. ",
"DiagArea." /*@03C*/
/* --------------------------------------------------------------- */
/* Save value returned as REXX special variable, RC. */
/* --------------------------------------------------------------- */
REXXHostRc = RC
/* --------------------------------------------------------------- */
/* Report HWICMD results. */
/* --------------------------------------------------------------- */
say ' REXXHostRc = ' d2x(REXXHostRc)
say ' HWICMD rc = ' d2x(ReturnCode)
say
/* --------------------------------------------------------------- */
/* If HWICMD fails, report diagnostic information. */
/* --------------------------------------------------------------- */
If REXXHostRC <>0 | ReturnCode <> 0 Then
Do
say ' DiagArea.Diag_Index = ' DiagArea.Diag_Index
say ' DiagArea.Diag_Key = ' DiagArea.Diag_Key
say ' DiagArea.Diag_Actual = ' DiagArea.Diag_Actual
say ' DiagArea.Diag_Expected = ' DiagArea.Diag_Expected
say ' DiagArea.Diag_CommErr = ' DiagArea.Diag_CommErr
say ' DiagArea.Diag_Text = ' DiagArea.Diag_Text
say
End
return /* end IssueBCPiiCommand */
set_hwi_constants:
/* ----------------------------------------------------------------- */
/* Copy HWICIREX and HWIC2REX here when running in the TSO=NO */
/* environment. */
/* ----------------------------------------------------------------- */
Return 0
->Can you post your rexx?
On Thu, 8 Mar 2018, 08:31 [email protected], <[email protected]> wrote:
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
