Verifying IMS connectivity

You can test IMS connectivity in two ways, by sending test transactions or by running the SQL SELECT statements by using the DRDA via ODBM. You must select the desired option and then press Enter to proceed.

Test transactions

Selecting Test transactions sends a predefined transaction to a specified IMS Connect to confirm that the IMS region is properly receiving and processing messages.

The following figure shows the Test Transactions panel:

To send a transaction or IMS command without changing any other fields, enter the message and press Enter.

The message is sent to the selected IMS Connect, and the results are displayed on the Verify Browse panel.

Important

To add multiple segments and messages on the message input lines, enter a single delimiter character in the Seg/msg delim field for delimiting segments. For example: to use ; as the delimiter, enter TEST;SEG1;SEG2;;/DIS A;;

When you specify a delimiter, you can type a single segment that spans more than one line. If you do not type to the end of a line and do not end the line with a delimiter, a single blank is inserted between the lines.

If you do not specify a delimiter, use the following rules to divide the input lines into messages and segments:

Each line is a separate segment.
Any line that starts with a slash (/) or hyphen (-) begins a new message.
Any line that ends with a period (.) ends a message.

Prompt datastore list is empty when Energizer routing is inactive. Refer valid datastore name from PROCLIB HWS configuration member.

For information about GENID and RETURNID, see Energizer support for GENID and RETURNID.

Edit SQL

Selecting Edit SQL opens a member from a specified SQL partitioned data set (PDS) for editing. Only SQL SELECTstatements are supported.

An SQL Library is the PDS that contains your SQL members.

The member name is the name of the member that contains the SQL SELECTstatement.

The following table describes the SQL keywords and their support status:

Keyword	Support status	Description
BETWEEN	Yes	Filters records with values within a given inclusive range
NOT BETWEEN	Yes	Filters records with values outside a given inclusive range
IN	Yes	Filters records where a column’s value matches any value in a specified list
NOT IN	Yes	Filters records where a column’s value does not match any value in a specified list
OR	Yes	Combines multiple conditions and returns records if at least one condition is true
AND	Yes	Combines multiple conditions and returns records only if all the conditions are true
=	Yes	Compares two values and returns records where they are exactly equal
<	Yes	Filters records where a column’s value is less than the specified value
>	Yes	Filters records where a column’s value is greater than the specified value
<>	Yes	Filters records where a column’s value is not equal to the specified value
<=	Yes	Filters records where a column’s value is less than or equal to the specified value
>=	Yes	Filters records where a column’s value is greater than or equal to the specified value
SUBQUERY	No	Nested query within a SQL SELECTstatement that returns results used by the outer query
GROUP BY	No	Groups rows with the same values in specified columns to perform aggregate functions on each group
HAVING	No	Filters groups created by GROUP BYbased on a specified condition
ORDER BY	No	Sorts the query result set by one or more columns in an ascending or descending order
LIKE	No	Filters records based on pattern matching with wildcards % and _
NOT LIKE	No	Filters records that do not match a specified pattern using wildcards % and _
NULL	No	Filters records where a column contains a missing or unknown value
NOT NULL	No	Filters records where a column contains a value
CONCAT	No	Combines two or more strings into a single string in a SQL SELECTstatement
\|\|	No	String concatenation operator in the SQL that combines two or more strings into one
SUBSTR	No	Extracts a substring from a string, starting at a specified position for a given length
DISTINCT	No	Filters duplicate values and returns only unique records
AGREEGATE FUNCTIONS (such as, MAX , MIN, AVG, SUM, and COUNT)	No	Performs calculations on a set of values and returns as a single result

A sample SQL member is as follows:

. . . . . . . . . . . . . . . . . . . . . . . . . . .
   File Edit Edit_Settings Menu Utilities Compilers Test Help
-------------------------------------------------------------------------------
VIEW       EI.R190000.PTFS.SAMP(SQLPARTD) - 01.02          Columns 00001 00072
Command ===>                                                  Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 --Comment
000002 -- ; semicolon indicates end of SQL statement
000003 -- Below are few sample SQLs
000004 -- Only SELECT SQLs are supported
000005 SELECT * FROM DBPCB01.PARTROOT WHERE
000006 PARTKEY > '02AN960C09       ';
000007 --SELECT * FROM DBPCB01.PARTROOT WHERE PARTKEY = '02AN960C10       ';
000008 --SELECT * FROM DBPCB01.PARTROOT;
000009 --SELECT * FROM DBPCB01.PARTROOT WHERE
000010 --PARTKEY = '02AAAAAAAA       ' OR
000011 --PARTKEY = '02AN960C10       ' OR
000012 --PARTKEY = '02BBBBBBBB       ';
000013 --SELECT * FROM DBPCB01.PARTROOT WHERE PARTKEY > '02AN960C09       ';
000014 --SELECT * FROM DBPCB01.STANINFO WHERE STANKEY = '02';
000015 --SELECT * FROM DBPCB01.STANINFO;
000016 --SELECT STANKEY,PROCCD,INVCD FROM DBPCB01.STANINFO WHERE STANKEY = '02'
000017 --SELECT * FROM DBPCB01.BACKORDR WHERE BACKKEY = '1234567890';
****** **************************** Bottom of Data ****************************

Execute SQL

Select the Execute SQL option to run a SQL SELECT statement from the specified member against the IMS ODBM ALIAS by using DRDA. This validates connectivity and access to the IMS databases via ODBM.

The following table lists the Connect profile fields and their descriptions:

Field	Description
DRDA port	Specifies the ODBM port number used for DRDA access to IMS
Alias	Specifies the ODBM alias name that maps to the IMS database connection
PSB	Specifies the Program Specification Block (PSB) used during the SQL run
UserID and password	Specifies the credentials required for connecting via ODBM DRDA

A sample Execute SQL result is as follows:

   File Edit Edit_Settings Menu Utilities Compilers Test Help
-----------------------------------------------------------------------------------------------------------------------
VIEW       SYS25184.T085321.RA000.MVSPSU.R0659413                                                  Columns 00001 00112
****** ************************************************* Top of Data **************************************************
==MSG> -CAUTION- Data contains invalid (non-display) characters. Use command
==MSG>           ===> FIND P'.' to position cursor to these
000001 SELECT * FROM DBPCB01.PARTROOT WHERE PARTKEY = '02AN960C10       ';
000002 Initializing...MVSPSU
000003 Opening socket...
000004 Connecting to IMS Connect...
000005 Sending: EXCSAT
000006 0026 D051 0001 0020 1041 - 000A 115E MVSPSU
000007                          - 000B 115A BMC AMI
000008                          - 0007 1147 DFS
000009 0010 D001 0001 000A 106D - 0006 11A2 0003
000010 Response received: Length =72
000011 0038 D043 0001 0032 1443 - 0011 116D UP5DICON.+ d
000012                          - 000A 115E MVSPSU
000013                          - 000C 115A 5635-A06
000014                          - 0007 1147 DFS
000015 0010 D003 0001 000A 14AC - 0006 11A2 0003
000016 --------------------------------------------------------------------------------
000017 Sending: SECCHK
000018 0029 D001 0001 0023 106E - 0006 11A2 0003
000019                          - 000A 11A0 MVSPSU
000020                          - 000F 11A1********
000021 Response received: Length =21
000022 0015 D002 0001 000F 1219 - 0006 1149 0000
000023                          - 0005 11A4 00
000024 --------------------------------------------------------------------------------
000025 Sending: ACCRDB
000026 0039 D001 0001 0033 2001 - 0011 2110 DFSSAM02.UP5D
000027                          - 0006 210F 2407
000028                          - 000B 112E BMC AMI
000029                          - 000D 002F QTDSQL370
000030 Response received: Length =57
000031 0039 D002 0001 0033 2201 - 0008 112E
000032                          - 0006 1149 0000
000033                          - 0014 2135 46C019C8 46C8DCE0 6FC096FD 7F000000
000034                          - 000D 002F QTDSQL370
000035 --------------------------------------------------------------------------------
000036 002C D051 0001 0026 200C - 0008 2156 0000000C
000037                          - 0006 2141
000038                          - 000C C907 DFSCAT00
000039                          - 0008 2114 00008000
000040 001E D053 0001 0018 CC01 - 000C C901 DFSCAT00
000041                          - 0008 C904 00000100
000042 000D D053 0001 0007 CC05 -GUR
000043 0044 D003 0001 003E CC06 - 0006 C905 0002
000044                          - 000C C906 DFSRT
000045                          - 0028 C906 HEADER (RHDRSEQ EQPSB     DFSSAM02)
000046 Response received: Length =477
000047 0010 D052 0001 000A 2205 - 0006 1149 0000
000048 001C D053 0001 0016 241A - 0676D026 00000671 E0D00001 0671F0E0 0000
000049 01B1 D003 0001 01AB 241B - aiboalen 0000017F aibretrn 00000000 aibreasn 00000000 aiberrxt 00000000
000050                          - db name DFSCD000 seg lev           status   ' '     seg name
000051             Segment data -
000052   ._% ÎV"ËZ?>       V>T?UZ>X Cø      ËÈ/>U/%?>V `VË   <ns2:psb xmlns
000053 :ns2="http://www.ibm.com/ims/PSB" psbName="DFSSAM02" timestamp="250130
000054 2161421" xmlSchemaVersion="1" gsamRollb="N" userVersion="0"><dbPCB nam
000055 e="DBPCB01" dbdName="DI21PART" procopt="G" timestamp="0000000000000"><
000056 pcbName>DBPCB01</pcbName><senseg name="PARTROOT"><senseg name="STANI
000057 NFO"/></senseg></dbPCB></ns2:psb>
000058 --------------------------------------------------------------------------------
000059 000A D001 0001 0004 200E
000060 Response received: Length =43
000061 002B D002 0001 0025 220C - 0005 2115 01
000062                          - 0006 1149 0004
000063                          - 0016 CC02 aiboalen 00000000 aibretrn 00000000 aibreasn 00000000 aiberrxt 00000000
000064 --------------------------------------------------------------------------------
000065 002C D051 0001 0026 200C - 0008 2156 0000000C
000066                          - 0006 2141
000067                          - 000C C907 DFSCAT00
000068                          - 0008 2114 00008000
000069 001E D053 0001 0018 CC01 - 000C C901 DFSCAT00
000070                          - 0008 C904 00000100
000071 000D D053 0001 0007 CC05 -GUR
000072 0044 D003 0001 003E CC06 - 0006 C905 0002
000073                          - 000C C906 DFSRT
000074                          - 0028 C906 HEADER (RHDRSEQ EQDBD     DI21PART)
000075 Response received: Length =3862
000076 0010 D052 0001 000A 2205 - 0006 1149 0000
000077 001C D053 0001 0016 241A - 0676D026 00000671 E0D00001 0671F0E0 0000
000078 0EEA D003 0001 0EE4 241B - aiboalen 00000EB8 aibretrn 00000000 aibreasn 00000000 aiberrxt 00000000
000079                          - db name DFSCD000 seg lev           status   ' '     seg name
000080             Segment data -
000081   ._% ÎV"ËZ?>       V>T?UZ>X Cø      ËÈ/>U/%?>V `VË   <ns2:dbd xmlns
000082 :ns2="http://www.ibm.com/ims/DBD" dbdName="DI21PART" timestamp="250130
000083 2161421" version="PF1A71D:Copyload;" encoding="Cp1047" xmlSchemaVersio
000084 n="1"><access dbType="HISAM"><hisam><record reclen1="678" reclen2="678
000085 "/></hisam></access><segment imsName="PARTROOT" name="PARTROOT" encodi
000086 ng="Cp1047"><hisam><bytes maxBytes="50"/></hisam><field imsDatatype="C
000087 " imsName="PARTKEY" name="PARTKEY" seqType="U"><startPos>1</startPos><
000088 bytes>17</bytes><marshaller encoding="Cp1047"><typeConverter>CHAR</typ
000089 eConverter></marshaller><applicationDatatype datatype="CHAR"/></field>
000090 <field imsDatatype="C" imsName="DESC" name="DESC_COL"><startPos>27</st
000091 artPos><bytes>20</bytes><remarks>PF1A71D:added;</remarks><marshaller e
000092 ncoding="Cp1047"><typeConverter>CHAR</typeConverter></marshaller><appl
000093 icationDatatype datatype="CHAR"/></field><segment imsName="STANINFO" n
000094 ame="STANINFO" encoding="Cp1047"><hisam><bytes maxBytes="85"/></hisam>
000095 <field imsDatatype="C" imsName="STANKEY" name="STANKEY" seqType="U"><s
000096 tartPos>1</startPos><bytes>2</bytes><marshaller encoding="Cp1047"><typ
000097 eConverter>CHAR</typeConverter></marshaller><applicationDatatype datat
000098 ype="CHAR"/></field><field imsDatatype="C" imsName="PROCCD" name="PROC
000099 CD"><startPos>19</startPos><bytes>2</bytes><remarks>PF1A71D:added;</re
000100 marks><marshaller encoding="Cp1047"><typeConverter>CHAR</typeConverter
000101 ></marshaller><applicationDatatype datatype="CHAR"/></field><field ims
000102 Datatype="C" imsName="INVCD" name="INVCD"><startPos>21</startPos><byte
000103 s>1</bytes><remarks>PF1A71D:added;</remarks><marshaller encoding="Cp10
000104 47"><typeConverter>CHAR</typeConverter></marshaller><applicationDataty
000105 pe datatype="CHAR"/></field><field imsDatatype="C" imsName="PLANRNO" n
000106 ame="PLANRNO"><startPos>22</startPos><bytes>2</bytes><remarks>PF1A71D:
000107 added;</remarks><marshaller encoding="Cp1047"><typeConverter>CHAR</typ
000108 eConverter></marshaller><applicationDatatype datatype="CHAR"/></field>
000109 <field imsDatatype="C" imsName="MAKEDEP" name="MAKEDEP"><startPos>48</
000110 startPos><bytes>2</bytes><remarks>PF1A71D:added;</remarks><marshaller
000111 encoding="Cp1047"><typeConverter>CHAR</typeConverter></marshaller><app
000112 licationDatatype datatype="CHAR"/></field><field imsDatatype="C" imsNa
000113 me="MAKECOST" name="MAKECOST"><startPos>50</startPos><bytes>2</bytes><
000114 remarks>PF1A71D:added;</remarks><marshaller encoding="Cp1047"><typeCon
000115 verter>CHAR</typeConverter></marshaller><applicationDatatype datatype=
000116 "CHAR"/></field><field imsDatatype="C" imsName="COMDTCD" name="COMDTCD
000117 "><startPos>54</startPos><bytes>4</bytes><remarks>PF1A71D:added;</rema
000118 rks><marshaller encoding="Cp1047"><typeConverter>CHAR</typeConverter><
000119 /marshaller><applicationDatatype datatype="CHAR"/></field></segment><s
000120 egment imsName="STOKSTAT" name="STOKSTAT" encoding="Cp1047"><hisam><by
000121 tes maxBytes="160"/></hisam><field imsDatatype="C" imsName="STOCKEY" n
000122 ame="STOCKEY" seqType="U"><startPos>1</startPos><bytes>16</bytes><mars
000123 haller encoding="Cp1047"><typeConverter>CHAR</typeConverter></marshall
000124 er><applicationDatatype datatype="CHAR"/></field><segment imsName="CYC
000125 COUNT" name="CYCCOUNT" encoding="Cp1047"><hisam><bytes maxBytes="25"/>
000126 </hisam><field imsDatatype="C" imsName="CYCLKEY" name="CYCLKEY" seqTyp
000127 e="U"><startPos>1</startPos><bytes>2</bytes><marshaller encoding="Cp10
000128 47"><typeConverter>CHAR</typeConverter></marshaller><applicationDataty
000129 pe datatype="CHAR"/></field></segment><segment imsName="BACKORDR" name
000130 ="BACKORDR" encoding="Cp1047"><hisam><bytes maxBytes="75"/></hisam><fi
000131 eld imsDatatype="C" imsName="BACKKEY" name="BACKKEY" seqType="U"><star
000132 tPos>1</startPos><bytes>10</bytes><marshaller encoding="Cp1047"><typeC
000133 onverter>CHAR</typeConverter></marshaller><applicationDatatype datatyp
000134 e="CHAR"/></field></segment></segment></segment></ns2:dbd>
000135 --------------------------------------------------------------------------------
000136 000A D001 0001 0004 200E
000137 Response received: Length =43
000138 002B D002 0001 0025 220C - 0005 2115 01
000139                          - 0006 1149 0004
000140                          - 0016 CC02 aiboalen 00000000 aibretrn 00000000 aibreasn 00000000 aiberrxt 00000000
000141 --------------------------------------------------------------------------------
000142 002B D051 0001 0025 200C - 0008 2156 000001F4
000143                          - 0006 2141
000144                          - 000B C907 DBPCB01
000145                          - 0008 2114 00008000
000146 001D D053 0001 0017 CC01 - 000B C901 DBPCB01
000147                          - 0008 C904 00000100
000148 0014 D053 0001 000E CC05 -RETRIEVENH
000149 0012 D053 0001 000C CC04 -00000100
000150 0012 D053 0001 000C CC04 -00000100
000151 0039 D003 0001 0033 CC06 - 0006 C905 0001
000152                          - 0029 C906 PARTROOT(PARTKEY EQ02AN960C10       )
000153 Response received: Length =212
000154 0010 D052 0001 000A 2205 - 0006 1149 0000
000155 001C D053 0001 0016 241A - 0676D026 00000671 E0D00001 0671F0E0 0000
000156 006C D053 0001 0066 241B - aiboalen 00000032 aibretrn 00000000 aibreasn 00000000 aiberrxt 00000000
000157                          - db name DI21PART seg lev 01       status   ' '     seg name PARTROOT
000158                          - key feedback '02AN960C10       '
000159             Segment data -
000160 -------------------------------------------------------------------
000161 | PARENT_KEY         | PARTKEY            | DESC
000162 -------------------------------------------------------------------
000163 | 02AN960C10         | 02AN960C10         | WASHER
000164 003C D002 0001 0036 220B - 0006 1149 0004
000165                          - 002C CC02 aiboalen 00000000 aibretrn 00000900 aibreasn 00000000 aiberrxt 00000000
000166                                      db name DI21PART seg lev 00       status   'GE'     seg name
000167 --------------------------------------------------------------------------------
000168 Sending: RDBCMM
000169 000A D001 0001 0004 200E
000170 Response received: Length =43
000171 002B D002 0001 0025 220C - 0005 2115 01
000172                          - 0006 1149 0004
000173                          - 0016 CC02 aiboalen 00000000 aibretrn 00000000 aibreasn 00000000 aiberrxt 00000000
000174 --------------------------------------------------------------------------------
000175 Sending: DEALLOCDB
000176 001B D001 0001 0015 C801 - 0011 2110 DFSSAM02.UP5D
000177 Response received: Length =50
000178 0032 D002 0001 002C CA01 - 000C 2110 DFSSAM02
000179                          - 0006 1149 0000
000180                          - 0016 CC02 aiboalen 00000000 aibretrn 00000000 aibreasn 00000000 aiberrxt 00000000
000181 --------------------------------------------------------------------------------
****** ************************************************ Bottom of Data ************************************************

Verifying IMS connectivity

Test transactions

Edit SQL

Execute SQL

On this page