The TN3270 server is the SLU. ________________________________________ From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of Brian Chapman <bchapma...@gmail.com> Sent: Wednesday, November 9, 2022 3:14 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: GTTERM assistance
I should also add another comment. I was hoping I could just leave the bind area empty and let the SLU (the user's emulator is the SLU in this scenario, right?) populate the bind image with whatever it sends. Thank you, Brian Chapman On Wed, Nov 9, 2022 at 2:59 PM Brian Chapman <bchapma...@gmail.com> wrote: > > Thanks everyone. I went back to my session initialization process and > reviewed my logic for the OPNDST macro. Originally, I did not use the AAREA > or AAREALN parameters on this macro. I added these parameters and set the > NIBNDAR accordingly, but now I'm getting a 084E sense code. > > *09.04.47 JOB21339 +PRT103E VTAM OPNDST request failed for netname > SACTV017. Return = 00000004 Sense = 084E.* > > I reviewed the documentation for this sense code. It seems that VTAM is > expecting certain bind fields to be populated, but I'm not sure which > fields. > > Sense code 084E > > Session parameters not valid—PRI: A positive response to an activation > request (for example, BIND) was received and was changed to a negative > response because session parameters that were not valid were carried in the > response. The services manager receiving the response sends a deactivation > request for the corresponding session. This error can occur if NETIDs are > coded incorrectly on any NETWORK statements in CDRM definitions. See z/OS > Communications Server: SNA Resource Definition Reference > <https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fdocs%2Fen%2FSSLTBW_2.1.0%2Fcom.ibm.zos.v2r1.istrdr0%2Ftoc.htm&data=05%7C01%7Csmetz3%40gmu.edu%7C23ee04746b73415976fb08dac28f1a42%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C638036217121599520%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=Zp1RsmGjzh%2FKMVPzO9kbyYwAYx%2FaHkeOPOKMFWH62Dg%3D&reserved=0> > for > more information. > Sense code 084E - IBM Documentation > <https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fdocs%2Fen%2Fzos%2F2.1.0%3Ftopic%3Dreject-sense-code-084e&data=05%7C01%7Csmetz3%40gmu.edu%7C23ee04746b73415976fb08dac28f1a42%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C638036217121599520%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=0z5mulCk9vhntWWYrQtbZxhx5ZWYQ3g%2FT%2F9w1rAbK34%3D&reserved=0> > > I also reviewed Table 2 on this page, BIND image and response - IBM > Documentation > <https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fdocs%2Fen%2Fzos%2F2.4.0%3Ftopic%3Dsessions-bind-image-response&data=05%7C01%7Csmetz3%40gmu.edu%7C23ee04746b73415976fb08dac28f1a42%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C638036217121599520%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=ZJ0Y8ICwfi2qPviQSM9wKx%2B79zxX%2B3PfzlC0A7J9DSQ%3D&reserved=0>, > and most of the fields that I thought to update are listed as 'VTAM > ignores or overrides application program's setting.' > > Here is the program that's establishing the session. It acquires the user > control blocks necessary for terminal based tasks, and then executes the > OPNDST macro. Again, any assistance would be greatly appreciated. > > **-----------------------------------------------------------------** > ** PROGRAM : PORTDSPI ** > ** AUTHOR : BRIAN CHAPMAN ** > ** WRITTEN ON : 23 AUGUST 2017 ** > ** MODIFIED ON : ** > ** ASM OPTIONS : RENT,REUS AMODE=31 RMODE=31 AC=0 ** > ** DESCRIPTION : TASK INITIALIZATION ROUTINE ** > ** : THIS PROGRAM BUILDS THE INITIAL TASK RELATED ** > ** : CONTROL BLOCKS FOR A NEW TASK TO BE DISPATCHED. ** > **-----------------------------------------------------------------** > ** * > * REGEQU * > ** * > * COPY PORTKERN * > * COPY PORTDMH * > * COPY TASKANCH * > * COPY SESSVTAM * > * COPY SESSSOKT * > ** * > * EJECT * > * IFGRPL AM=VTAM * > * EJECT * > * ISTUSFBC * > * EJECT * > * IFGACB AM=VTAM * > * EJECT * > * IFGEXLST AM=VTAM* > * EJECT * > * ISTDNIB * > * ISTDBIND * > ** * > *WORKAREA DSECT * > *WORKNAME DS CL8 * > *SAVEAREA DS 18F * > *SAVERC DS F * > *SAVEANCH DS F * > ** * > *VTAMRETC DS F * > ** * > *CALLPLST DS 0F * > *CALLPRM1 DS F * > *CALLPRM2 DS F * > *CALLPRM3 DS F * > *CALLPRM4 DS F * > *CALLPRM5 DS F * > ** * > *WORKLEN EQU *-WORKAREA* > ** * > *WORKREG EQU R3 * > *KERNREG EQU R4 * > *ANCHREG EQU R5 * > *DMHREG EQU R6 * > *VTAMREG EQU R6 * > *RPLREG EQU R7 * > *NIBREG EQU R8 * > *ACBREG EQU R9 * > ** * > *PORTDSPI CSECT * > *PORTDSPI AMODE 31 * > *PORTDSPI RMODE ANY * > * STM R14,R12,12(R13) SAVE REGISTERS * > * LR R12,R15 ESTABLISH BASE * > * USING PORTDSPI,R12 SET ADDRESSIBILITY * > * B START * > ** * > * DC CL9'PORTDSPI' * > * DC CL9'&SYSDATC' * > * DC CL5'&SYSTIME' * > ** * > *START DS 0H * > * LR R2,R1 SAVE REGISTER 1 * > * LHI R7,WORKLEN LOAD WORK AREA LENGTH* > * GETMAIN RU,LV=(7),LOC=31 * > * LR WORKREG,R1 * * > * USING WORKAREA,WORKREG SET ADDRESSIBILITY * > ** * > * LR R6,WORKREG LOAD REGISTER * > * SR R15,R15 ZERO FROM LENGTH * > * MVCL R6,R14 INITIALIZE WITH LOW VALUES * > ** * > * ST R13,SAVEAREA+4 CHAIN CALLER'S SAVEAREA ADDRESS* > * LA R13,SAVEAREA * > * ST R13,SAVEAREA+8 SAVE CURRENT SAVEAREA ADDRESS * > * MVC SAVEAREA(4),=CL4'F1SA' * > * MVC WORKNAME(8),=CL8'PORTDSPI' * > ** * > * SGR R15,R15 * > ** * > *GETLINK DS 0H * > * LR R1,R2 RESTORE REGISTER 1 * > * LT KERNREG,0(R1) GET ADDRESS OF KERNEL * > * BZ BADLINK NO LINKAGE PASSED * > * USING PORTKERN,KERNREG SET ADDRESSIBILITY * > ** * > *ALLOCATE DS 0H * > * LHI R7,TASKANCH_LEN LOAD SESSION ANCHOR LENGTH * > * GETMAIN R,LV=(7),LOC=31 * > * LR R6,R1 LOAD REGISTER * > ** * > * LA R8,0 SET DUMMY FROM ADDRESS * > * SR R15,R15 ZERO FROM LENGTH * > * MVCL R6,R14 INITIALIZE WITH LOW VALUES * > ** * > * LR ANCHREG,R1 LOAD REGISTER * > * ST ANCHREG,SAVEANCH SAVE CURRENT ANCHOR * > * USING TASKANCH,ANCHREG SET ADDRESSIBILITY * > * MVC TASKANCH_EYE(8),=CL8'TASKANCH' SET EYECATCHER * > ** * > * L DMHREG,KERNDMH GET ADDRESS OF DISPATCH HEADER* > * USING PORTDMH,DMHREG SET ADDRESSIBILITY * > * ST KERNREG,ANCHKERN STORE KERNEL ADDRESS * > ** * > * ST ANCHREG,DMHRANCH STORE ANCHOR ADDRESS * > * MVC ANCHPROG,DMHRPROG MOVE PROGRAM NAME TO ANCHOR * > * MVC ANCHTYP,DMHRTYPE MOVE INIT TYPE TO ANCHOR * > * MVC ANCHPARM,DMHRPARM MOVE PARAMETER AREA TO ANCHOR* > * DROP DMHREG * > ** * > * TM ANCHTYP,TYPTERM TERMINAL TASK? * > * BO TERMTASK YES. CHECK FOR VTAM BLOCK * > * TM ANCHTYP,TYPSOKT SOCKET TASK? * > * BO SOKTTASK YES. COPY SOCKET FOR CHILD* > * B GETKENUM NO. SETUP KERNEL * > ** * > *TERMTASK DS 0H * > * LT R1,ANCHPARM LOAD ACB ADDRESS * > * BZ BADLINK NO LINKAGE PASSED * > ** * > * LHI R7,SESSVTAM_LEN LOAD SESSION STORAGE LENGTH* > * GETMAIN R,LV=(R7),LOC=BELOW * > ** * > * LR R6,R1 LOAD DYNAMIC SESSION * > * LA R8,INITVTAM LOAD INIT MODEL * > * LHI R9,INITVTAL LOAD INIT MODEL LENGTH * > * MVCL R6,R8 COPY INIT MODEL SESSION * > ** * > * ST R1,ANCHVTAM STORE SESSION VTAM BLOCK * > * LR VTAMREG,R1 LOAD STORAGE ADDRESS * > * USING SESSVTAM,VTAMREG * > * L R1,ANCHPARM LOAD ACB ADDRESS * > * L ACBREG,0(R1) PICK UP ACB ADDRESS * > ** * > * MVC SESSVTAM_EYE,=CL8'SESSVTAM' SET EYECATCHER * > * LA RPLREG,SESSRPL SET UP BASE FOR RPL DSECT * > * LA NIBREG,SESSNIB LOAD BASE FOR NIB DSECT * > * USING IFGRPL,RPLREG * > * USING ISTDNIB,NIBREG * > ** * > * L R2,4(R1) POINT TO THE SYMBOLIC NAME OF * > ** THE LOGICAL UNIT * > * MVC NIBSYM,0(R2) GET THE SYMBOLIC LUNAME * > * MVC NIBUSER,4(R2) USE LAST 4 BYTES OF LUNAME * > * MVC NIBCID,20(R1) PUT CID INTO NIB FOR OPNDST * > ** * > * ST ACBREG,RPLDACB STORE ACB ADDRESS IN SESSION RPL* > * MVC RPLUSFLD,4(R2) PUT USER FIELD IN OPNDST RPL ...* > ** VTAM DOES NOT SET IT ON OPNDST * > ** * > * B TERMCONN * > ** * > *TERMCONN DS 0H * > * SR R15,R15 * > * LA R10,SESSBIND LOAD ADDRESS OF BIND AREA * > * ST R10,SESSBNDA STORE IN VTAM SESSION BLK * > * ST R10,RPLAAREA STORE IN RPL * > * ST R10,NIBNDAR STORE IN NIB * > * LH R11,SESSBNDL LOAD BIND AREA LENGTH * > * MVHHI SESSBNDL,L'SESSBIND MOVE BIND AREA LENGTH * > * OPNDST RPL=(RPLREG),NIB=(NIBREG),OPTCD=(ACCEPT,SPEC,NQ), ** > * AAREA=(R10),AAREALN=(R11) * > ** * > * ST R15,VTAMRETC STORE IN VTAM RETURN CODE * > * ST R15,SAVERC STORE IN PROGRAM RETURN CODE * > ** * > * LTR R15,R15 SESSION ESTABLISHED? * > * BZ GETKENUM YES. * > ** * > * TM KERNFLG3,KERNVRBS VERBOSE MESSAGING ENABLED? * > * BNO TERMDISC NO. SKIP WTO MESSAGE * > ** * > * LA R1,=CL8'PRT103E' LOAD ADDRESS OF WTO CODE LITERAL* > * ST R1,CALLPRM1 STORE ADDRESS IN PARM LIST * > ** * > * LA R1,NIBSYM LOAD ADDRESS OF VTAM LU NAME * > * ST R1,CALLPRM2 STORE IN PARAMETER LIST * > ** * > * LA R1,VTAMRETC LOAD ADDRESS OF VTAM RETURN CODE* > * ST R1,CALLPRM3 STORE IN PARAMETER LIST * > ** * > * LA R1,RPLSSNSI LOAD ADDRESS OF RPL SENSE CODE * > * ST R1,CALLPRM4 STORE IN PARAMETER LIST * > * OI CALLPRM4,X'80' FLIP HIGH ORDER BIT * > ** * > * LA R1,CALLPLST LOAD ADDRESS OF PARM LIST * > * L R15,KERNWTO LOAD ADDRESS * > * CALL (R15) CALL WTO DRIVER MODULE * > ** * > *TERMDISC DS 0H * > * CLSDST RPL=(RPLREG),OPTCD=SYN,ACB=(ACBREG),NIB=(NIBREG) * > ** * > * B RETURN * > ** * > *SOKTTASK DS 0H * > * OI ANCHRTYP,TYPCSOKT SET SOCKET CHILD FLAG * > ** * > * LT R10,ANCHPARM GET ADDRESS OF SOCKET BLOCK * > * BZ BADLINK NO LINKAGE PASSED * > ** * > * LHI R9,SESSSOKT_LEN LOAD SESSION SOCKET LENGTH * > * GETMAIN R,LV=(R9),LOC=31 * > * ST R1,ANCHSOKT STORE NEW SOCKET BLOCK IN ANCHOR* > ** * > * LR R8,R1 LOAD REGISTER * > * LR R11,R9 SET LENGTH OF SESSSOKT * > * MVCL R8,R10 COPY SOCKET BLOCK * > ** * > * USING SESSSOKT,R1 * > * XC EZAAREA,EZAAREA CLEAR EZASMI API AREA * > * XC SOKTSAVE,SOKTSAVE CLEAR SOCKET SAVE AREA * > * DROP R1 * > ** * > * B GETKENUM * > ** * > *GETKENUM DS 0H * > * L R1,KERNNUM LOAD CURRENT KERNEL NUMBER * > * ST R1,ANCHNUM STORE CURRENT TASK NUMBER * > * AP KERNNUM,=P'1' INCREMENT KERNEL NUMBER * > ** * > *UPDTKERN DS 0H * > * L R9,KERNLAST LOAD LAST ANCHOR * > * ST R9,ANCHPREV STORE LAST ANCHOR AS PREVIOUS* > * ST ANCHREG,KERNLAST STORE AS LAST KERNEL ANCHOR * > * LT R1,KERNFRST FIRST ANCHOR ZERO? * > * BZ STORFRST YES. SET AS FIRST ANCHOR * > * B STORLAST NO. APPEND AS LAST ANCHOR * > ** * > *STORFRST DS 0H * > * ST ANCHREG,KERNFRST STORE AS FIRST KERNEL ANCHOR* > * B INITANCH INITIALIZE ANCHOR * > ** * > *STORLAST DS 0H * > * LR ANCHREG,R9 LOAD LAST KERNEL FOR UPDATE * > * L R9,SAVEANCH RELOAD CURRENT ANCHOR * > * ST R9,ANCHNEXT STORE CURRENT ANCHOR AS NEXT* > ** * > *INITANCH DS 0H * > * L ANCHREG,SAVEANCH RELOAD CURRENT ANCHOR * > * OI ANCHSTS,STSATCH SET AS ATTACH STATUS * > ** * > * POST KERNTECB POST TASK CONTROL ECB * > ** * > * B RETURN * > ** * > *BADLINK DS 0H * > * WTO 'PORTDSPI BADLINK' * > * ABEND 99,DUMP * > * B RETURN * > ** * > *RETURN DS 0H * > * L R13,SAVEAREA+4 RESTORE R13 * > * L R2,SAVERC LOAD RC * > ** * > * LHI R0,WORKLEN LOAD WORK AREA LENGTH * > * FREEMAIN RU,LV=(R0),A=(WORKREG) * > ** * > * LR R15,R2 LOAD RC FROM R2 * > * L R14,12(R13) RESTERE R14 * > * LM R0,R12,20(R13) RESTORE R0-R12 (RETAIN R15)* > * BR R14 RETURN TO CALLER * > ** * > * LTORG * > ** * > *INITVTAM DS 0F * > * ORG INITVTAM+SESSVTAM_INIT * > *INITRPL RPL AM=VTAM,RESPOND=FME * > *INITNIB NIB MODE=RECORD,PROC=(RESPX,TRUNC,NEGBIND)* > *INITVTAL EQU *-INITVTAM * > ** * > * END * > > > > Thank you, > > Brian Chapman > > > On Wed, Nov 2, 2022 at 2:37 PM Tony Harminc <t...@harminc.net> wrote: > >> On Wed, 2 Nov 2022 at 04:44, Seymour J Metz <sme...@gmu.edu> wrote: >> >> Doesn't Communications Controller for Linux (CCL) still support SDLC and >> > SNA on the pipe? >> > >> >> I don't follow this area closely, but my impression was that CCL was long >> gone. Is it still available? >> >> >> > In practical terms, I'm confident that most SNA traffic these days is >> > TN3270. >> > >> >> Agreed. >> >> Is anybody still using APPC? >> > >> >> There are apps out there, but surely nobody is developing or enhancing >> them. >> >> Tony H. >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >> > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
