SNA and LU 6.2 Considerations › Sample Definitions for SNA Support

Sample Definitions for SNA Support

The following example shows sample system generation statements and VTAM definitions that implement SNA support for LU 6.2 sessions in a DC/UCF system. The example creates two LUs, each with four sessions. For each LU, two sessions are reserved for the multiple session service manager (mode table entry SNASVCMG).

The system generation statements consist of:

• One LINE statement with line type VTAMLU. You need only one LINE statement to support all LUs regardless of LU type.
• Eight PTERM statements with physical terminal type LU. All but one of the physical terminals are defined as ACQUIRE. The sessions that use these physical terminals are automatically connected at DC/UCF system startup.
• One PROGRAM statement for the multiple session service manager.
• One TASK statement for the multiple session service manager.

The VTAM definitions consist of:

• The VTAMLST entry for the APPL type major node
• The mode table entries with bind parameters for LU 6.2 sessions

System Generation Statements

ADD LINE SNALU1
    TYPE VTAMLU
    APPL ID IDMSSNA
    RPL 8
    ENABLED.

ADD PTERM LU10
    TYPE LU
    ENABLED
    ACQUIRE
    NAME IS LU620001
    MODEENT IS SNASVCMG
    CONTENTION IS WINNER.

ADD LTERM LU10
    ENABLED
    PRIORITY IS 240.

ADD PTERM LU11
    TYPE LU
    ENABLED
    ACQUIRE
    NAME IS LU620001
    MODEENT IS SNASVCMG
    CONTENTION IS LOSER.

ADD LTERM LU11
    ENABLED
    PRIORITY IS 240.

ADD PTERM LU12
    TYPE LU
    ENABLED
    ACQUIRE
    NAME IS LU620001
    MODEENT IS APPC01
    CONTENTION IS WINNER.

ADD LTERM LU12
    ENABLED.

ADD PTERM LU13
    TYPE LU
    ENABLED
    ACQUIRE
    NAME IS LU620001
    MODEENT IS APPC01
    CONTENTION IS LOSER.

ADD LTERM LU13
    ENABLED.
ADD PTERM LU20
    TYPE LU
    ENABLED
    ACQUIRE
    NAME IS LU620002
    MODEENT IS SNASVCMG
    CONTENTION IS WINNER.

ADD LTERM LU20
    ENABLED
    PRIORITY IS 240.

ADD PTERM LU21
    TYPE LU
    ENABLED
    ACQUIRE
    NAME IS LU620002
    MODEENT IS SNASVCMG
    CONTENTION IS LOS .

ADD LTERM LU21
    ENABLED
    PRIORITY IS 240.

ADD PTERM LU22
    TYPE LU
    ENABLED
    ACQUIRE
    NAME IS LU620002
    MODEENT IS APPC01
    CONTENTION IS WINNER.

ADD LTERM LU22
    ENABLED.

ADD PTERM LU23
    TYPE LU
    ENABLED
    NAME IS LU620002
    MODEENT IS APPC01
    CONTENTION IS OFF.

ADD LTERM LU23
    ENABLED.

ADD PROGRAM RHDCCNOS
    LANGUAGE IS ASSEMBLER
    REENTRANT
    NOPROTECT.

ADD TASK 06F1
    INVOKES PROGRAM RHDCCNOS
    PRIORITY IS 240
    NOINPUT
    INACTIVE INTERVAL IS OFF.

VTAMLST Entry

         VBUILD TYPE=APPL

IDMSSNA  APPL  ACBNAME=IDMSSNA,                                        -
               AUTH=(ACQ,NOPASS,NVPACE,NOTSO,NOPO),                    -
               EAS=20,PARSESS=YES,                                     -
               MODETAB=LU62TAB

Important! Do not specify APPC=YES on the VTAM Application Definition.

Mode Table Entries

MODEENT  LOGMODE=APPC01,              (Parallel sessions)              -
         TYPE=0,                                                       -
         FMPROF=X'13',                                                 -
         TSPROF=X'07',                                                 -
         PRIPROT=X'B0',                                                -
         SECPROT=X'B0',                                                -
         COMPROT=X'50B1',                                              -
         RUSIZES=X'8787',                                              -
         PSERVIC=X'060200000000000000002F00'

MODEENT  LOGMODE=APPC02,              (Single sessions)                 -
         TYPE=0,                                                       -
         FMPROF=X'13',                                                 -
         TSPROF=X'07',                                                 -
         PRIPROT=X'B0',                                                -
         SECPROT=X'B0',                                                -
         COMPROT=X'50B1',                                              -
         RUSIZES=X'8787',                                              -
         PSERVIC=X'060200000000000000002C00'

MODEENT  LOGMODE=SNASVCMG,                                             -
         TYPE=0,                                                       -
         FMPROF=X'13',                                                 -
         TSPROF=X'07',                                                 -
         PRIPROT=X'B0',                                                -
         SECPROT=X'B0',                                                -
         COMPROT=X'50B1',                                              -
         RUSIZES=X'8787',                                              -
         PSERVIC=X'060200000000000000002F00'