none
Where to from here? RRS feed

  • Question

  • So I have managed to set-up a peer connection to a remote mainframe over LU6.2 using Host Integration Server. It reports the connection active. That part I got right. But...

    I expected to be able to connect to the TN3270 server on my HIS, and thereby be able to communicate with the mainframe. I can't associate the LU with a TN3270 connection. That, and apparently that's not how it is done anymore for these guys. That's LU2, and they don't create those kinds of connections anymore (internal policy I suppose) ...

    So, I have a document for this system that is titled "Message Header Specification for APPC/LU6.2" and it's super dated (Windows NT, 56K modems, etc.) I've never seen anything like it before. I've never interacted with a mainframe like this before and I don't even have enough knowledge to know what I don't know.

    My question is, where do I go from here? I have the format for the command string I need to send to the mainframe. I have an offset report for the data it should spit back. How do I write a program (Java, C#, C++ even) that connects to HIS and sends that command to the right spot (and what do I look for to know where the right spot is) ? Can I just make a socket connection to some listening HIS port and stream the command string that way? Is there a library or some example code I can look at to figure out how to communicate?

    Folks, I'm lost and I need to spend the night by your fire and get sent on in the correct direction when morning rolls around. 

    Thursday, March 1, 2018 8:53 PM

All replies

  • Chris,

    What product on the mainframe are you trying to access (e.g. DB2, CICS, IMS, MQS,...)?  That might help us provide guidance.

    Tuesday, March 20, 2018 10:40 PM
  • Hi Chris,

    That's a REALLY good question. CICS?

    Besides the screenshots I was given to use to configure HIS, I have a document from the mainframe operator with these infotables that I don't understand: 

    The following are the logmode, the class-of service tables and the acb
    definition that are used for APPC /LU 6.2 protocol
    
    CAMV62P MODEENT LOGMODE=CAMV62P,
                COMPROT= X '50B1', COMMON PROTOCOL
                FMPROF=X '13', FUNCTION IN MANAGEMENT PROFILE
                PRIPROT=X 'B0', PLU PROTOCOL
                TYPE=0,
                TSPROF=X '07', TRANSPORT SERVICES PROFILE
                SECPROT=X 'B0, SLU PROTOCOL
                COS=COSTP1, COS
                PSERVIC=X '060200000000000000104F00'               PRESENTATION SERVICE
    
    ************************************************************************
    * ENTRY FROM THE CLASS OF SERVICE TABLE *
    ************************************************************************
    
    ISTSDCOS COSTAB
    COSTP1 COS VR=((0,1),(1,1),(2,1),(3,1),(4.1),(5,1),(6,1), x
                (7,1),(0,0),(0,2))
    
    ************************************************************************
    * ACB DEFINITION *
    ************************************************************************
    *
    
    VBUILD TYPE=APPL
    
    MWCSSYS1 APPL AUTH=(ACQ,PASS,VPACE),EAS=40,PARSESS=YES, x
                SONSCIP=YES,MODETAB=TDCMODE,DLOGMOD=CICSBIND
    
                             CICS SAMPLE CONNECTION DEFINITION
                                    FOR APPC / LU 6.2
    
    OBJECT CHARACTERISTICS                                    CICS RELEASE = 0410
     CEDC View
      Connection : CICUS1
      Group : MVCUSR1
      DEscription :
     CONNECTION IDENTIFIERS
    Netname : CICSUSR
    INDsys :
    REMOTE ATTRIBUTES
    REMOTESystem :
    REMOTEName :
    CONNECTION PROPERTIES
     ACcessmethod : Vtam            Vtam | IRc | INdirect | Xm
     Protocol : Appc                Appc | Lu61
     SInglesess : No                No | Yes
     DAtastream : User              User | 3270 | SCs | STrfield | Lms
     RECordformat : U               U | Vb
    OPERATIONAL PROPERTIES
     AUtoconnect : No               No | Yes | All
     INService : Yes                Yes | No
    SECURITY
     SEcurityname :
     ATtachsec : Local              Local | Identify | Verify | Persistent | Mixidpe
    
    BINDPassword : PASSWORD NOT SPECIFIED
    BINDSecurity : No               No | Yes
    
    
    Protocol : Appc Appc | Lu61
    MAximum : 006 , 003 0-999
    RECEIVEPfx :
    RECEIVECount : 1-999
    SENDPfx :
    SENDCount : 1-999
    SENDSize : 02048 1-30720
    RECEIVESize : 02048 1-30720
    
                         CICS SAMPLE SESSION DEFINITION
                            FOR APPC / LU 6.2
    
    OBJECT CHARACTERISTICS                              CICS RELEASE = 0410
      CEDC View
        Sessions       : SESSUS1
        Group          : MVCUSR1
        DEscription    :
      SESSION IDENTIFIERS
      Connection       : CICUS1
        SESSName       :
        NETnameq       :
      MOdename         : CAMV62P
    SESSION PROPERTIES
      Protocol         : Appc Appc | Lu61
      MAximum          : 006 , 003               0-999
      RECEIVEPfx       :
      RECEIVECount     : 1-999
      SENDPfx          :
      SENDCount        : 1-999
      SENDSize         : 02048                   1-30720
      RECEIVESize      : 02048                   1-30720
      SESSPriority     : 000                     0-255
      Transaction      :
    OPERATOR DEFAULTS
      OPERId           :
      OPERPriority     : 000                     0-255
      OPERRsl          : 0                       0-24,...
      OPERSecurity     : 1                       1-64,...
    PRESET SECURITY
      SESSPriority     : 000                     0-255
      Transaction      :
    OPERATOR DEFAULTS
      OPERId           :
      OPERPriority     : 000                     0-255
    
    
                          CICS SAMPLE SESSION DEFINITION
                           FOR APPC / LU 6.2 (continued)
      OPERRsl          : 0                       0-24,...
      OPERSecurity     : 1                       1-64,...
    PRESET SECURITY
      USERId           : MVDACFE
    OPERATIONAL PROPERTIES
      Autoconnect      : Yes                     No | Yes | All
      INservice        :                         No | Yes
      Buildchain       : Yes                     Yes | No
      USERArealen      : 065                     0-255
      IOarealen        : 00000 , 00000           0-32767
      RELreq           : No                      No | Yes
      DIscreq          : No                      No | Yes
      USERId           : MVDACFE
    OPERATIONAL PROPERTIES
      Autoconnect      : Yes                     No | Yes | All
      INservice        :                         No | Yes
       Buildchain      : Yes                     Yes | No
      USERArealen      : 065                     0-255
      IOarealen        : 00000 , 00000           0-32767
      RELreq           : No                      No | Yes
      DIscreq          : No                      0-255
    RECOVERY
      RECOVOption      : Sysdefault              Sysdefault | Clearconv | Releasesess | Uncondrel | None
      RECOVNotify      : None                    None | Message | Transaction
    
    
    

    I've been trying to research what this means and how to invoke it. I am at the point where I think I need to invoke a remote TP with APPC. I can see where I  can set-up APPC aliases and TP partner things. Who knows what cryptic alphabet soup goes in the blanks though.

    The support staff for the mainframe keeps telling me that this is really easy to program and can't understand why I'm having a problem. They say I have everything I need to make this work and the discussion ends there. 

    Monday, April 9, 2018 8:17 PM