home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / PGMCFG.ZIP / PGM_CFG / TWINAX.CMD < prev    next >
OS/2 REXX Batch file  |  1991-12-04  |  8KB  |  149 lines
  1. /*  APPN API over a Twinaxial connection*/
  2. /**********************************************************************/
  3. /*    The features and records that must be configured to establish   */
  4. /*    this connection are:                                            */
  5. /*                                                                    */
  6. /*    - MACHINE WKST                                                  */
  7. /*    - SNA TDLC                                                      */
  8. /*    - APPN DEFINE_LOCAL_CP                                          */
  9. /*    - APPN DEFINE_LOGICAL_LINK                                      */
  10. /*    - APPN DEFINE_LOCAL_LU                                          */
  11. /*    - APPN DEFINE_PARTNER_LU                                        */
  12. /*    - APPN DEFINE_PARTNER_LU_LOCATION                               */
  13. /*    - APPN DEFINE_MODE                                              */
  14. /*    - APPN DEFINE_DEFAULTS is automatically added                   */
  15. /*    - APPN DEFINE_TP                                                */
  16. /*    - APPN START_ATTACH_MANAGER is automatically added              */
  17. /*    - APPN CNOS_FQ_PLU_NAME                                         */
  18. /*    - APPN DEFINE_USER_ID_PASSWORD                                  */
  19. /*                                                                    */
  20. /*  DEPENDENCIES/LIMITATIONS:                                         */
  21. /*                                                                    */
  22. /*          There must be an application program installed on the     */
  23. /*          workstation that interfaces with the APPC API.            */
  24. /*                                                                    */
  25. /* SETUP:                                                             */
  26. /*   -  Hardware:       PC                                            */
  27. /*                      IBM AS/400 or S/370 Host                      */
  28. /*   -  PC Software:    OS/2 Standard Edition 1.30.1 or higher        */
  29. /*                      Extended Services                             */
  30. /*   -  Host Software:  AS/400 or S/370 operating system              */
  31. /*   -  Files:          Model configuration files ACSCFGUS            */
  32. /*                                                                    */
  33. /* NOTE:    You will need to replace names and address to what        */
  34. /*          is appropriate for your environment                       */
  35. /*                                                                    */
  36. /**********************************************************************/
  37.  
  38. /* Begin the job                                                      */
  39.  
  40. rc = JOB(BEGIN,TWINAX)
  41.  
  42. /* Create new local configuration                                     */
  43.  
  44. rc = FILE(ADD,TWINAX)
  45.  
  46. /* Modify the workstation profile.                                    */
  47.  
  48. rc = MACHINE(PUT,WKST,  COMMENT           EQ   'Workstation profile',,
  49.                         MACHINE_TYPE      EQ   '8570',,
  50.                         DISP_MSG_POPUP    EQ   'Y',,
  51.                         START_3270_DFT    EQ   'N',,
  52.                         START_3270_APPC   EQ   'N',,
  53.                         START_ASYNC_TRM   EQ   'N',,
  54.                         START_5250_WSF    EQ   'N',,
  55.                         FIRST_SCREEN      EQ   '1',,
  56.                         LOAD_SERVICES     EQ   '1')
  57.  
  58. /* Setup the SNA TDLC record                                          */
  59.  
  60. rc = SNA(ADD,TDLC, LOAD            EQ 'Y',,
  61.                    MAX_RU_SIZE     EQ '256',,
  62.                    CONTROL_ADDR    EQ '0',,
  63.                    ADAPT_TYPE      EQ '1',,
  64.                    5250_IO_PORT    EQ '71',,
  65.                    5250_INT_LEVEL  EQ '5',,
  66.                    5250_RAM_LOCA   EQ '1')
  67.  
  68. /* Setup all APPN records                                             */
  69.  
  70. rc = APPN(ADD,DEFINE_LOCAL_CP               EQ 'NY.THF825',,
  71.               CP_ALIAS                      EQ 'THF285',,
  72.               NAU_ADDRESS                   EQ 0,,
  73.               NODE_TYPE                     EQ 2,,
  74.               NODE_ID                       EQ F8232,,
  75.               HOST_FP_SUPPORT               EQ 'N')
  76.  
  77. rc = APPN(ADD,DEFINE_LOGICAL_LINK           EQ LINK0001,,
  78.               FQ_ADJACENT_CP_NAME           EQ 'NY.CP000002',,
  79.               ADJACENT_NODE_TYPE            EQ 1,,
  80.               DLC_NAME                      EQ 'TWINAX',,
  81.               ADAPTER_NUMBER                EQ 0,,
  82.               CP_CP_SESSION_SUPPORT         EQ 'N',,
  83.               ACTIVATE_AT_STARTUP           EQ 'N',,
  84.               LIMITED_RESOURCE              EQ '-1',,
  85.               LINK_STATION_ROLE             EQ '-1',,
  86.               SOLICIT_SSCP_SESSION          EQ 'Y',,
  87.               EFFECTIVE_CAPACITY            EQ '-1',,
  88.               COST_PER_CONNECT_TIME         EQ '-1',,
  89.               COST_PER_BYTE                 EQ '-1',,
  90.               SECURITY                      EQ '-1',,
  91.               PROPAGATION_DELAY             EQ '-1',,
  92.               USER_DEFINED_1                EQ '-1',,
  93.               USER_DEFINED_2                EQ '-1',,
  94.               USER_DEFINED_3                EQ '-1')
  95.  
  96. rc = APPN(ADD,DEFINE_LOCAL_LU               EQ THF82501,,
  97.               LU_ALIAS                      EQ THF82501,,
  98.               NAU_ADDRESS                   EQ 1)
  99.  
  100. rc = APPN(ADD,DEFINE_PARTNER_LU             EQ 'NY.TH2CICSA',,
  101.               PARTNER_LU_ALIAS              EQ 'TH2CICSA',,
  102.               PARTNER_LU_UNINTERPRETED_NAME EQ 'TH2CICSA',,
  103.               MAX_MC_LL_SEND_SIZE           EQ 32767,,
  104.               CONV_SECURITY_VERIFICATION    EQ 'Y',,
  105.               PARALLEL_SESSION_SUPPORT      EQ 'N')
  106.  
  107. rc = APPN(ADD,DEFINE_PARTNER_LU_LOCATION    EQ 'NY.TH2CICSA',,
  108.               WILDCARD_ENTRY                EQ 0,,
  109.               FQ_OWNING_CP_NAME             EQ 'NY.CP000002',,
  110.               LOCAL_NODE_NN_SERVER          EQ 'Y')
  111.  
  112. rc = APPN(ADD,DEFINE_MODE                   EQ LU62,,
  113.               COS_NAME                      EQ '#CONNECT',,
  114.               DEFAULT_RU_SIZE               EQ 'N',,
  115.               MAX_RU_SIZE_UPPER_BOUND       EQ 256,,
  116.               RECEIVE_PACING_WINDOW         EQ 8,,
  117.               MAX_NEGOTIABLE_SESSION_LIMIT  EQ 32767,,
  118.               PLU_MODE_SESSION_LIMIT        EQ 1,,
  119.               MIN_CONWINNERS_SOURCE         EQ 0)
  120.  
  121. rc = APPN(ADD,DEFINE_TP                     EQ APPNPCTP,,
  122.               FILESPEC                      EQ '\RJPROG\EDF.EXE',,
  123.               CONVERSATION_TYPE             EQ 2,,
  124.               CONV_SECURITY_RQD             EQ N,,
  125.               SYNC_LEVEL                    EQ 2,,
  126.               TP_OPERATION                  EQ 0,,
  127.               PROGRAM_TYPE                  EQ 0,,
  128.               INCOMING_ALLOCATE_QUEUE_DEPTH EQ 5,,
  129.               INCOMING_ALLOCATE_TIMEOUT     EQ 28800,,
  130.               RECEIVE_ALLOCATE_TIMEOUT      EQ 28800)
  131.  
  132. rc = APPN(ADD,CNOS_FQ_PLU_NAME              EQ 'THF82501,NY.TH2CICS,LU62',,
  133.               SET_NEGOTIABLE                EQ 'N',,
  134.               PLU_MODE_SESSION_LIMIT        EQ 1,,
  135.               MIN_CONWINNERS_SOURCE         EQ 0,,
  136.               MIN_CONWINNERS_TARGET         EQ 0,,
  137.               AUTO_ACTIVATE                 EQ 0)
  138.  
  139. rc = APPN(ADD,DEFINE_USER_ID_PASSWORD       EQ U7337,,
  140.               PASSWORD                      EQ 7337)
  141.  
  142. rc = FILE(VERIFY,TWINAX.CFG)
  143.  
  144. /* End exec and close log file. */
  145.  
  146. rc = JOB(END)
  147.  
  148. say 'TWINAX  PROCESSING COMPLETE'
  149.