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
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 ... 
AMF1G01Z
                      Link 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.A01X99
  Count ...............  
3
  Packet Count ........  
1
  Packet Size .........  
100
  Echo? ...............  
  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