Migrate REXX Procedures That Contain Multiple Unrecognized Entities
12-1
Migrating procedures that have multiple unrecognized entities is similar to migrating procedures with a single unrecognized entity.
Of Black Lion Telecom’s 200 NetView REXX procedures, 30 of them contain multiple unrecognized entities. They need to provide equivalent function in
NetMaster
.These include some of the oldest REXX procedures and those that will need the most redevelopment and coding work.
Some of the procedures contain only the unrecognized entities that were encountered while migrating procedures containing a single unrecognized entity. Some of these can be updated in the same manner.
This leaves the more challenging procedures to migrate. Some of these procedures can be replaced by
NetMaster
features, thus minimizing recoding. Also, full-screen handling is already done by these features. Any remaining procedures can be converted with help from Technical Support.NetMaster Features
NetMaster
FeaturesNetMaster
has a wide range of SNA management features.The
Broadcom
consultant has been working with the migration team to examine and identify where standard NetMaster NM for SNA
and NetMaster NA
options can replace functions implemented with NetView REXX.The consultant advises that an easy way to access and review the
NetMaster NM for SNA
features is to enter /SNA
at any menu prompt to list the high-level shortcuts to SNA features. The shortcuts can then be used to access those features.Black Lion Telecom has several NetView REXX procedures that were written to do APPN-related tasks. These tasks, and more, are already done by the APPN features in
NetMaster
.Example: APPN Features
The APPN Menu enables you to display the APPN Transport Resource List, which is typical of a
NetMaster NM for SNA
display. Additional data can be displayed by pressing PF11.PROD1------------------ NCS : Transport Resource List ------------------------- Command ===> Scroll ===> CSR S/=View TRLE D=Display TRLE SU=View ULP PU SUC=View ULP CP ?=More Actions TRL MPC MPC --Upper Layer Protocol (ULP)-- Entry Ctrl Status Level Usage HPDT PU CP Name TG AMF1G01Z MPC ACTIV QDIO SHARE YES AMF1G02X MPC ACTIV QDIO SHARE YES AMF1G03X MPC NEVAC QDIO SHARE *NA* AMF1G51X MPC NEVAC QDIO SHARE *NA* AMF1G52X MPC NEVAC QDIO SHARE *NA* AMF1G53X MPC NEVAC QDIO SHARE *NA* AMF3G10X MPC NEVAC QDIO SHARE *NA* A11TA01 MPC ACTIV NOHPDT ***N/A** NO A11AP01 SERVRA01.A01X99 21 A11TA29 MPC ACTIV NOHPDT ***N/A** NO A11AP29 SERVRA01.A29X99 21 A11TA31 MPC ACTIV NOHPDT ***N/A** NO A11AP31 SERVRA01.A31X99 21 A11TA55 MPC ACTIV NOHPDT ***N/A** NO A11AP55 SERVRA01.A55X99 21 A11TA57 MPC INACT NOHPDT ***N/A** *NA* A11TA58 MPC ACTIV NOHPDT ***N/A** NO A11AP58 SERVRA01.A58X99 21 A11TA61 MPC ACTIV NOHPDT ***N/A** NO A11AP61 SERVRA01.A61X99 21 ISTT11D1 XCF ACTIV HPDT SHARE *NA* ISTP11D1 SERVRA01.A01X99 22 ISTT1131 XCF ACTIV HPDT SHARE *NA* ISTP1131 SERVRA01.A31X99 22 F1=Help F2=Split F3=Exit F5=Find F6=Refresh F7=Backward F8=Forward F9=Swap F11=Right
A wide variety of actions can be performed against each entry. For example, entering S beside an entry opens the Node Display - TRLE panel:
Node Name ...AMF1G01ZLink Name ...PROD1|HOST| NetID SERVRA01 (NONE) | | OpSys z/OS **END** | A11X99 | Subarea 11 || VTAM ... 6.1.7|||TRLE| Status ACTIV | | Desired ACTIV | AMF1G01Z | Linetyp LEASED || Prcol MPC
Another example is to use APING to test connectivity:
PROD1-------------------- NCS : APING Results List ---------------------------- Command ===> Scroll ===> CSR Resource Name .......SERVRA01.A01X99Count ...............3Packet Count ........1Packet Size .........100Echo? ...............Logmode .............Transaction Program-------------------------------------------------------------------------- Resource Min/Avg/Max Cnt Pkts Size Rate LogMode COS USILDA01.A01X99 1/1/2 3 1 100 150KB/s #INTER *BLANK* -------------------------------------------------------------------------- IST1460I TGN CPNAME TG TYPE HPR IST1461I 21 SERVRA01.A01X99 APPN ANR IST1463I ALLOCATION DURATION: 5 MILLISECONDS IST1464I PROGRAM STARTUP AND VERSION EXCHANGE: 2 MILLISECONDS **END** F1=Help F2=Split F3=Exit F6=Action F7=Backward F8=Forward F9=Swap F10=Topology F11=VTAMDisp