home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / PGMCFG.ZIP / PGM_CFG / X25.CMD < prev   
OS/2 REXX Batch file  |  1991-12-04  |  11KB  |  252 lines
  1. /* APPN over X.25 connection using 5250 workstation emulation                */
  2. /*****************************************************************************/
  3. /*                                                                           */
  4. /*   The Profiles that must be configured to establish                       */
  5. /*   this connection are:                                                    */
  6. /*                                                                           */
  7. /*      - Workstation Profile                                                */
  8. /*      - Auto-start Options Profile                                         */
  9. /*      - X.25 DLC Adapter Profile                                           */
  10. /*      - APPN Local CP Profile                                              */
  11. /*      - APPN Logical Link Profile                                          */
  12. /*      - APPN Partner LU Profile                                            */
  13. /*      - APPN Partner LU Location Profile                                   */
  14. /*      - APPN Mode Profile                                                  */
  15. /*      - APPN Defaults Profile                                              */
  16. /*      - APPN CNOS PLU Alias Profile                                        */
  17. /*      - X.25 Adapter Profile                                               */
  18. /*      - X.25 PVC Profile                                                   */
  19. /*      - X.25 Link Profile                                                  */
  20. /*      - X.25 Remote Directory  Profile                                     */
  21. /*      - X.25 Routing Table Profile                                         */
  22. /*      - 5250 WSF Terminal Configuration Profile                            */
  23. /*      - 5250 WSF Session Selection Profile                                 */
  24. /*      - 5250 APPC LU Alias Profile                                         */
  25. /*                                                                           */
  26. /*                                                                           */
  27. /* SETUP:                                                                    */
  28. /*   o  Hardware:       PC                                                   */
  29. /*                      IBM AS/400 or S/370 Host Computer                    */
  30. /*   o  PC Software:    OS/2 1.3 Extended Edition or higher                  */
  31. /*                      Extended Services                                    */
  32. /*   o  Host Software:  OS/400 or S/370  depending on Host                   */
  33. /*   o  Connectivity:   Lab Patch area must be configured for Host to        */
  34. /*                      PC X.25 Connection                                   */
  35. /*   o  Files:          Model Configuration Files  (ACSCFGUS.CFG)            */
  36. /*                                                                           */
  37. /*****************************************************************************/
  38.  
  39. rc = JOB(BEGIN, X25PC)
  40.  
  41. rc = FILE(ADD, X25)
  42.  
  43. rc = MACHINE(PUT,WKST,,
  44.              COMMENT          EQ  'Workstation profile',,
  45.              MACHINE_TYPE     EQ  8570,,
  46.              DISP_MSG_POPUP   EQ  Y,,
  47.              START_3270_DFT   EQ  N,,
  48.              START_3270_APPC  EQ  N,,
  49.              START_ASYNC_TRM  EQ  N,,
  50.              START_5250_WSF   EQ  Y,,
  51.              FIRST_SCREEN     EQ  1,,
  52.              LOAD_SERVICES    EQ  1)
  53.  
  54. rc = SNA(ADD,XDLC EQ XLINK,,
  55.          COMMENT           EQ 'X25 SNA Link',,
  56.          LOAD              EQ Y,,
  57.          FREE_CONNECTS     EQ Y,,
  58.          MAX_RU_SIZE       EQ 1024,,
  59.          IN_CONNECTS       EQ 0,,
  60.          CALL_ADDR_REQ     EQ Y,,
  61.          NEGOT_PACK_SIZE   EQ N,,
  62.          NEGOT_WIND_SIZE   EQ N,,
  63.          DEF_LINK_STA_ROLE EQ 1,,
  64.          DEF_RETRY_COUNT   EQ 5,,
  65.          DEF_TIMEOUT       EQ 200,,
  66.          REVERSE_CHARGES   EQ N)
  67.  
  68. rc = APPN(ADD,DEFINE_LOCAL_CP              EQ 'USIBMTH.X25ST02',,
  69.               CP_ALIAS                     EQ 'X25ST02',,
  70.               NAU_ADDRESS                  EQ 0,,
  71.               NODE_TYPE                    EQ 3,,
  72.               NODE_ID                      EQ '00000',,
  73.               HOST_FP_LINK_NAME            EQ 'LINK0001',,
  74.               HOST_FP_SUPPORT              EQ 'Y')
  75.  
  76. rc = APPN(ADD,DEFINE_LOGICAL_LINK          EQ LINK0001,,
  77.               FQ_ADJACENT_CP_NAME          EQ 'USIBMTH.AUSHATT',,
  78.               ADJACENT_NODE_TYPE           EQ 1,,
  79.               DLC_NAME                     EQ 'X25DLC',,
  80.               X25_DIRECTORY_ENTRY          EQ 'XDIR',,
  81.               CP_CP_SESSION_SUPPORT        EQ 'N',,
  82.               ACTIVATE_AT_STARTUP          EQ 'Y',,
  83.               LIMITED_RESOURCE             EQ '-1',,
  84.               LINK_STATION_ROLE            EQ '-1',,
  85.               SOLICIT_SSCP_SESSION         EQ 'Y',,
  86.               EFFECTIVE_CAPACITY           EQ '-1',,
  87.               COST_PER_CONNECT_TIME        EQ '-1',,
  88.               COST_PER_BYTE                EQ '-1',,
  89.               SECURITY                     EQ '-1',,
  90.               PROPAGATION_DELAY            EQ '-1',,
  91.               USER_DEFINED_1               EQ '-1',,
  92.               USER_DEFINED_2               EQ '-1',,
  93.               USER_DEFINED_3               EQ '-1')
  94.  
  95. rc = APPN(ADD,DEFINE_PARTNER_LU EQ 'USIBMTH.AUSHATT',,
  96.               PARTNER_LU_ALIAS             EQ 'AUSHATT',,
  97.               MAX_MC_LL_SEND_SIZE          EQ 32767,,
  98.               CONV_SECURITY_VERIFICATION   EQ 'N',,
  99.               PARALLEL_SESSION_SUPPORT     EQ 'Y')
  100.  
  101. rc = APPN(ADD,DEFINE_PARTNER_LU_LOCATION EQ 'USIBMTH.AUSHATT',,
  102.               WILDCARD_ENTRY               EQ 0,,
  103.               FQ_OWNING_CP_NAME            EQ 'USIBMTH.AUSHATT',,
  104.               LOCAL_NODE_NN_SERVER         EQ 'N')
  105.  
  106. rc = APPN(ADD,DEFINE_MODE EQ QPCSUPP,,
  107.               COS_NAME                     EQ '#CONNECT',,
  108.               DEFAULT_RU_SIZE              EQ 'Y',,
  109.               RECEIVE_PACING_WINDOW        EQ 7,,
  110.               MAX_NEGOTIABLE_SESSION_LIMIT EQ 32767,,
  111.               PLU_MODE_SESSION_LIMIT       EQ 32,,
  112.               MIN_CONWINNERS_SOURCE        EQ 0)
  113.  
  114. rc = APPN(PUT,DEFINE_DEFAULTS,,
  115.               IMPLICIT_INBOUND_PLU_SUPPORT EQ 'Y',,
  116.               DIRECTORY_FOR_INBOUND_ATTACHES EQ '*',,
  117.               DEFAULT_MODE_NAME            EQ 'BLANK',,
  118.               MAX_MC_LL_SEND_SIZE          EQ 32767,,
  119.               DEFAULT_TP_OPERATION         EQ 2,,
  120.               DEFAULT_TP_PROGRAM_TYPE      EQ 0,,
  121.               DEFAULT_TP_CONV_SECURITY_RQD EQ 'N',,
  122.               MAX_HELD_ALERTS              EQ 10)
  123.  
  124. rc =  5250(ADD, TERM EQ T1,MODEL EQ M1,,
  125.           COMMENT EQ '5250 WSF Terminal Default Profile  (Copy of M1)',,
  126.           AT_KB_NAME EQ ACS5APUS,,
  127.           ENH_KB_NAME EQ ACS5ENUS,,
  128.           BUFF_KEYS EQ Y,,
  129.           HOST_TYPE EQ 2,,
  130.           AS400_WS_ID EQ ' ',,
  131.           SYS36_WS_ID EQ ' ',,
  132.           DBCS_USER_CHAR EQ 1,,
  133.           DBCS_LANG_SEL EQ 1,,
  134.           AUTO_SIGNON EQ N,,
  135.           SEP_FOR_BLNK EQ 1)
  136.  
  137. rc = 5250(PUT, SESSION, SESS_LU_ALIAS   EQ X25ST02,,
  138.           SESS1_PROF_NAME EQ T1,,
  139.           SESS1_PLU_ALIAS EQ AUSHATT,,
  140.           SESS1_MODE_NAME EQ QPCSUPP,,
  141.           SESS1_SHORT_ID  EQ 'A')
  142.           /*SESS2_PROF_NAME EQ TERM2,,*/
  143.           /*SESS2_PLU_ALIAS EQ LURECV1,,*/
  144.           /*SESS2_MODE_NAME EQ MODE1,,*/
  145.           /*SESS2_SHORT_ID  EQ 'B')*/
  146.           /*SESS3_PROF_NAME EQ '',,*/  /*Only Two Sessions are Configured*/
  147.           /*SESS3_PLU_ALIAS EQ '',,*/  /*Should More Sessions Be Needed, */
  148.           /*SESS3_MODE_NAME EQ '',,*/  /*Configure The List To The Left  */
  149.           /*SESS4_PROF_NAME EQ '',,*/
  150.           /*SESS4_PLU_ALIAS EQ '',,*/
  151.           /*SESS4_MODE_NAME EQ '',,*/
  152.           /*SESS5_PROF_NAME EQ '',,*/
  153.           /*SESS5_PLU_ALIAS EQ '',,*/
  154.           /*SESS5_MODE_NAME EQ '')*/
  155.  
  156. rc = X25(ADD, ADAPTER EQ XADAPT,,
  157.          COMMENT EQ 'X.25 adapter slot number',,
  158.          ADPT_SLOT_NUM EQ 6)
  159.  
  160. rc = X25(ADD, PVC EQ XPVC,,
  161.          COMMENT EQ 'X.25 PVC information',,
  162.          LINK_NAME EQ XLINK,,
  163.          LOGICAL_CHAN_NUM EQ 7,,
  164.          SNA_CIRCUIT EQ Y,,
  165.          INCOM_PK_SIZE EQ 128,,
  166.          OUTGO_PK_SIZE EQ 128,,
  167.          INCOM_WND_SIZE EQ 7,,
  168.          OUTGO_WND_SIZE EQ 7,,
  169.          SNA_RMT_DTE_TYPE EQ 1)
  170.  
  171. rc = X25(ADD, LINK EQ XLINK,,
  172.          COMMENT EQ 'X.25 link information',,
  173.          ADAPTER_NAME EQ XADAPT,,
  174.          NETWORK_TYPE EQ 1,,
  175.          DTE_ADDR EQ 8000,,
  176.          OPERATION EQ 1,,
  177.          CCITT_COMP EQ 1,,
  178.          INIT_LK_MODE EQ 2,,
  179.          DISCON_DELAY_TOUT EQ 0,,
  180.          LK_SET_UP_MODE EQ 2,,
  181.          AUTO_CALL_UNIT EQ N,,
  182.          CON_TIMEOUT EQ 120,,
  183.          LOW_PVC_NUM EQ 7,,
  184.          NUM_PVC EQ 1,,
  185.          LOW_INONLY_SVC_NUM EQ 25,,
  186.          NUM_INONLY_SVC EQ 0,,
  187.          LOW_2WAY_SVC_NUM EQ 9,,
  188.          NUM_2WAY_SVC EQ 12,,
  189.          LOW_OUTONLY_SVC_NUM EQ 25)
  190.  
  191. rc = X25(PUT,LINK EQ XLINK,NUM_OUTONLY_SVC EQ 0,,
  192.          FRAME_SEQ_MOD EQ 1)
  193.  
  194. rc = X25(PUT,LINK EQ XLINK,WINDOW_SIZE EQ 7,,
  195.          RETRY_TM_OUT EQ 3000,,
  196.          FRAME_RETRY_CT EQ 20,,
  197.          INOP_TM_OUT EQ 30,,
  198.          RSTRT_REQ_TOUT EQ 180,,
  199.          CALL_REQ_TOUT EQ 200,,
  200.          RESET_REQ_TOUT EQ 180,,
  201.          CLEAR_REQ_TOUT EQ 180,,
  202.          ACK_TOUT EQ 180,,
  203.          DATA_PK_TOUT EQ 180,,
  204.          INTRUPT_PK_TOUT EQ 180,,
  205.          RESET_REQ_RETRY EQ 5,,
  206.          CLEAR_REQ_RETRY EQ 5,,
  207.          DFALT_INCOM_PKT EQ 128,,
  208.          MAX_INCOM_PKT EQ 128,,
  209.          DFALT_OUTGO_PKT EQ 128,,
  210.          MAX_OUTGO_PKT EQ 128,,
  211.          DFALT_INCOM_WND EQ 7)
  212.  
  213. rc = X25(PUT,LINK EQ XLINK,MAX_OUTGO_WND EQ 7,,
  214.          MAX_INCOM_WND EQ 7,,
  215.          DFALT_OUTGO_WND EQ 7,,
  216.          PK_SEQ_NUM_MOD EQ 1,,
  217.          PVC_DFALT_IN_PKT EQ 128,,
  218.          PVC_DFALT_OUT_PKT EQ 128,,
  219.          PVC_DFALT_IN_WND EQ 7,,
  220.          PVC_DFALT_OUT_WND EQ 7)
  221.  
  222. rc = X25(ADD, RDIR EQ XDIR, MODEL EQ M3,,
  223.          COMMENT EQ 'X.25 Remote Directory Entry (PVC) - SNA',,
  224.          LINK_NAME EQ XLINK,,
  225.          PVC_NAME EQ XPVC,,
  226.          RETRY_CT EQ 5,,
  227.          TM_OUT EQ 200,,
  228.          LINK_STN_ROLE EQ 1)
  229.        /*REQ_REV_CHRG EQ '',,*/       /* Move the relevent lines from this */
  230.        /*ACPT_REV_CHRG EQ '',,*/      /* list into the above profile and   */
  231.        /*RETRY_CALL_COL EQ '',,*/     /* assign values to configure another*/
  232.        /*SVC_REMOTE_ADDR EQ '',,*/    /* type of RDIR.                     */
  233.        /*SVC_REMOTE_ADDR_EXT EQ ''*/
  234.        /*RMT_DTE_TYP EQ '',,*/
  235.        /*REMOTE_ADDR EQ '',,*/
  236.  
  237. rc = X25(ADD, ROUTE EQ M8COPY, MODEL EQ M8,,
  238.          COMMENT EQ 'Copy of Routing Table Profile M8 (SNA)',,
  239.          LINK_NAME EQ '*',,
  240.          RTBL_ENTRY_TYPE EQ 1,,
  241.          CALL_USER_DATA EQ 'C3',,
  242.          CALLED_ADDR EQ '*',,
  243.          CALLING_ADDR EQ '*',,
  244.          CALLED_ADDR_EXT EQ '*',,
  245.          CALLING_ADDR_EXT EQ '*')
  246.  
  247. rc = FILE(VERIFY,X25)
  248.  
  249. say 'X25PC PROCESSING COMPLETE'
  250.  
  251. rc = JOB(END, X25PC)
  252.