Re: Who to contact about IBM-main?
Paul Gilmartin wrote: I believe LISTSERV has a one-strike-and-out policy for bounces. That could have got to you. Indeed. Or the OP and/or his e-mail provider has been flagged as a spammer or inappropriate poster. Or flagged as NO-MAIL as Darren warned many times when there are too many OT posts. And I got a subscription probe in the last few days. Perhaps that failed you. I get that probe every month. This tell me I'm still a good friend. ;-) Groete / Greetings Elardus Engelbrecht -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ASSIST Assembler
Assist features are included in http://www/z390.org/ . On Sun, Nov 17, 2013 at 9:50 PM, Cameron Seay cws...@gmail.com wrote: Anybody know where I can get a copy of the ASSIST assembler for academic only purposes. The Northern Illinois site is no longer active. Thanks. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IXGBRWSE - SMF Logstream
Hi Jose, We do not ship an official mapping macro for the SMF buffers returned by a log stream browse. The intended interface to get SMF records in log streams is IFASMFDL. You can however IXGBRWSE the log stream and see the buffers are returned in a consistent format, but this is of course not supported by IBM. In some cases the data returned by the log stream browse has to be manipulated by SMF before the user sees it, such as if zEDC compression is turned on in z/OS V2R1. -Nick Jones z/OS Development -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IXGBRWSE - SMF Logstream
Hi Nick I'm using the IXGBRWSE to browse the SMF logstream, I don't understand why it is unsupported , or that is the supported way to get the SMF log streams ? On 18.11.2013 13:20, Nick Jones wrote: Hi Jose, We do not ship an official mapping macro for the SMF buffers returned by a log stream browse. The intended interface to get SMF records in log streams is IFASMFDL. You can however IXGBRWSE the log stream and see the buffers are returned in a consistent format, but this is of course not supported by IBM. In some cases the data returned by the log stream browse has to be manipulated by SMF before the user sees it, such as if zEDC compression is turned on in z/OS V2R1. -Nick Jones z/OS Development -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Kind regards, / Mit freundlichen Grüßen Miklos Szigetvari Research Development ISIS Papyrus Europe AG Alter Wienerweg 12, A-2344 Maria Enzersdorf, Austria T: +43(2236) 27551 333, F: +43(2236)21081 E-mail: miklos.szigetv...@isis-papyrus.com Info: i...@isis-papyrus.com Hotline: +43-2236-27551-111 Visit our brand new extended Website at www.isis-papyrus.com --- This e-mail is only intended for the recipient and not legally binding. Unauthorised use, publication, reproduction or disclosure of the content of this e-mail is not permitted. This email has been checked for known viruses, but ISIS Papyrus accepts no responsibility for malicious or inappropriate content. --- -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ASSIST Assembler
On Sun, 17 Nov 2013 23:09:03 -0500, John P. Baker jba...@ngssallc.com wrote: It is available at http://www.jaymoseley.com/hercules/download/zips/assist.tgz. Just curious: how does Hercules/ASSIST: http://www.jaymoseley.com/hercules/compilers/contents.htm compare to z390: http://www.z390.org/ ...? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Who to contact about IBM-main?
On Mon, 18 Nov 2013 05:50:27 -0600, Elardus Engelbrecht wrote: Or flagged as NO-MAIL as Darren warned many times when there are too many OT posts. I'd place Ed pretty far down the list of such suspects. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
USS Callable Assembler Services
Im exploring the use of Message Queues with USS Callable Assembler Services. From a single program I invoked BPX1QGT, BPX1QSN, BPX1QRC I prepare the structures and the parameters necessary to invoke BPX1QGT to create a message Queue LARL R11,UMSGWORK XCUMSGWORK,UMSGWORK MVC UMSG_KEY,PRIVATEK Key USING S_MODE,R2 Map USS Mode Constants LAR2,UMSG_SMODE S_MODE (Mapped By BPXYMODE) MVI S_TYPE,IPC_CREAT+IPC_EXCL MVI S_MODE1,0 Not Used MVI S_MODE2,S_IRUSR All Read Write Permissions MVI S_MODE3,S_IWUSR+S_IRGRP+S_IWGRP+S_IROTH+S_IWOTH DROP R2 Inform Assembler I then chain through the CVT to locate the address of BPX1QGT L 15,16 CVT - communication vector table L 15,544(15) CSRTABLE L 15,24(15) CSR slot L 15,696(15) Address of the service STR15,BPX1QGT@Store Address Of BPX1QGT I issue a Call to BPX1QGT CALL (15), Create A Message Queue+ (UMSG_KEY, Input: Key+ UMSG_SMODE, Input: Creation Flags BRXMODE/IPC+ UMSGVAL,Return Value: 0, -1 + UMSGRETURN, Return code + UMSGREASON),Reason code + INKINST=BASR, + VL,MF=(E,UMSGPLIST) -- ICM R0,B'',UMSGVAL Get Return Value JNP RETVAL_ERRORNo STR0,UMSG_ID Store MSG_ID Associated With Key L 15,16 CVT - communication vector table L 15,544(15)CSRTABLE L 15,24(15) CSR slot L 15,704(15)Address of the service STR15,BPX1QSN@ Store Address Of BPX1QSN L R15,BPX1QSN@ Get Address Of BPX1QSN CALL (15), Get host by name + (UMSG_ID, Input: MessageQueue ID+ UMSG_BUF@,Input: -MSGBUFBPXYMSG+ UMSG_ALET,Input: Alet Of Message Buffer + UMSG_SIZE,Input: Length Of MSGBUF + UMSG_FLAGS, Input: Flags BPXY1PC+ UMSGVAL, Return Value: 0, -1 + UMSGRETURN, Return code + UMSGREASON), Reason code + INKINST=BASR, + VL,MF=(E,UMSGPLIST) -- ICM R0,B'',UMSGVALGet Return Value JNP RETVAL_ERROR No After I issue BPX1QSN I receive a Return Code of 0079 and a Reason Code of 030A I looked up the meaning of these codes: 0079 The parameter is incorrect 030A Message type must be greater than zero The 030A is telling me that Message Type must be greater than zero. However Message Type is not a parameter supplied with the call to BPX1QSN. Message Type is specified prior to issuing BOX1QGT, and is part of the SMODE_DS Structure. Can some one advise why my BPXQSN is failing with a Reason Code of 030a as MSG_TYPE is not zero MVI S_TYPE,IPC_CREAT+IPC_EXCL Paul D'Angelo -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ASSIST Assembler
Open http://www.z390.org/z390_User_Guide.pdf and search for assist. On Mon, Nov 18, 2013 at 9:25 AM, Paul Gilmartin paulgboul...@aim.com wrote: On Sun, 17 Nov 2013 23:09:03 -0500, John P. Baker jba...@ngssallc.com wrote: It is available at http://www.jaymoseley.com/hercules/download/zips/assist.tgz. Just curious: how does Hercules/ASSIST: http://www.jaymoseley.com/hercules/compilers/contents.htm compare to z390: http://www.z390.org/ ...? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: IXGBRWSE - SMF Logstream
IXGBRWSE returns via the buffer keyword the exact area that the exploiter requested to be written to the logstream. Thus, it is that exploiter that knows the mapping. I conclude, by the fact that SMF apparently documents only the SMF record itself (and that an SMF record is only part of the logstream record), that ether - SMF does not want you to be reading these records and dealing with them on your own; or - it's an oversight; or - it was thought about but was not thought worthwhile. Is there a business need for reading the logstream that such a program as IFASMFDL does not accommodate? Peter Relson z/OS Core Technology Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: USS Callable Assembler Services
On 18 November 2013 12:20, esst...@juno.com esst...@juno.com wrote: After I issue BPX1QSN I receive a Return Code of 0079 and a Reason Code of 030A I'm a little puzzled at your ICM R0,B'',UMSGVALGet Return Value JNP RETVAL_ERROR No after the BPX1QSN call, since the only defined RETVALs for BPX1QSN are 0 and -1, yet your branch goes to RETVAL_ERROR in both those cases. Are you perhaps reporting on some leftover stuff in the return and reason code fields? Those field values are undefined (generally means not updated) if the routine returns a 0. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: USS Callable Assembler Services
On Mon, 18 Nov 2013 17:20:34 GMT, esst...@juno.com wrote: L 15,16 CVT - communication vector table I don't have an answer to your questions, but I think you mean LA 15,16 -- Tom Marchant -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: USS Callable Assembler Services
Tony Harminc wrote after the BPX1QSN call, since the only defined RETVALs for BPX1QSN are 0 and -1, yet your branch goes to RETVAL_ERROR in both those cases. Are you perhaps reporting on some leftover stuff in the return and reason code fields? Those field values are undefined (generally means not updated) if the routine returns a 0. Point well taken, I used the BNP imstruction as it was referenced on the BPX1QGT service. The sample code in the publications do leave out some details. Having said that the value in RETVAL contained all X'' -- Original Message -- From: Tony Harminc t...@harminc.net To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: USS Callable Assembler Services Date: Mon, 18 Nov 2013 13:35:05 -0500 On 18 November 2013 12:20, esst...@juno.com esst...@juno.com wrote: After I issue BPX1QSN I receive a Return Code of 0079 and a Reason Code of 030A I'm a little puzzled at your ICM R0,B'',UMSGVALGet Return Value JNP RETVAL_ERROR No after the BPX1QSN call, since the only defined RETVALs for BPX1QSN are 0 and -1, yet your branch goes to RETVAL_ERROR in both those cases. Are you perhaps reporting on some leftover stuff in the return and reason code fields? Those field values are undefined (generally means not updated) if the routine returns a 0. 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
Re: USS Callable Assembler Services
On 11/18/2013 12:01 PM, esst...@juno.com wrote: Tony Harminc wrote after the BPX1QSN call, since the only defined RETVALs for BPX1QSN are 0 and -1, yet your branch goes to RETVAL_ERROR in both those cases. Are you perhaps reporting on some leftover stuff in the return and reason code fields? Those field values are undefined (generally means not updated) if the routine returns a 0. Point well taken, I used the BNP imstruction as it was referenced on the BPX1QGT service. The sample code in the publications do leave out some details. Having said that the value in RETVAL contained all X'' Which is, of course, -1. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * We are going out of business effective 30 December, 2013 * To purchase a set of our training materials at terrific prices, check out our Going Out Of Business Sale: http://www.trainersfriend.com/SpecialSale -- Original Message -- From: Tony Harminc t...@harminc.net To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: USS Callable Assembler Services Date: Mon, 18 Nov 2013 13:35:05 -0500 On 18 November 2013 12:20, esst...@juno.com esst...@juno.com wrote: After I issue BPX1QSN I receive a Return Code of 0079 and a Reason Code of 030A I'm a little puzzled at your ICM R0,B'',UMSGVALGet Return Value JNP RETVAL_ERROR No after the BPX1QSN call, since the only defined RETVALs for BPX1QSN are 0 and -1, yet your branch goes to RETVAL_ERROR in both those cases. Are you perhaps reporting on some leftover stuff in the return and reason code fields? Those field values are undefined (generally means not updated) if the routine returns a 0. 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
Re: USS Callable Assembler Services
If he wants the CVT pointer it's at location 16 (x'10') and has been since the dawn of time. For what his code wants to do this would be correct. (I prefer to do a USING and use the tags, though.) On 11/18/2013 1:47 PM, Tom Marchant wrote: On Mon, 18 Nov 2013 17:20:34 GMT, esst...@juno.com wrote: L 15,16 CVT - communication vector table I don't have an answer to your questions, but I think you mean LA 15,16 -- -- Jim Blalock z/OS Support Manager CCIT, Clemson University (864) 656-3680 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: USS Callable Assembler Services
Tom Marchant and others pointed out I don't have an answer to your questions, but I think you mean LA 15,16 And I agree, However From z/OS UNIX System Services Programming: Assembler Callable Services Reference SA23-2281-00 The following is an example of code that specifies the offset. The example assumes that register 1 is set up with the address of the parameter list. Replace offset with the appropriate value from the following offset table. L 15,16 CVT - common vector table L 15,544(15) CSRTABLE L 15,24(15) CSR slot L 15,offset(15) Address of the service BALR 14,15 Branch and link I suspect the documentation is wrong -- Original Message -- From: Tom Marchant m42tom-ibmm...@yahoo.com To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: USS Callable Assembler Services Date: Mon, 18 Nov 2013 12:47:43 -0600 On Mon, 18 Nov 2013 17:20:34 GMT, esst...@juno.com wrote: L 15,16 CVT - communication vector table I don't have an answer to your questions, but I think you mean LA 15,16 -- Tom Marchant -- 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
Re: USS Callable Assembler Services
I have used the CSR table before, it's where the name-token services pointers are (cool service by the way, see IEANTxx in Auth Asm Services). This is working code that finds it on post-OS390 systems. I have cut-n-pasted this little segment into lots of routines. CVTCSRT = CVT+544. l r2,cvtptr |CVTPTR=absolute x'10' using cvtmap,r2 | * *--* * * Sequence to find in-storage addresses of Name/Token routines. * * Refer to current Assembler Services Reference. * *--* l r15,cvtcsrt | Callable Services table l r15,x'14'(r15,0) | Sorry, no DSECT. l r1,x'08'(r15,0) |Addr of IEANTRT str1,pwa_ieantrt| Save for use later drop r2| Done with CVT base I think the doc is correct. On 11/18/2013 2:36 PM, esst...@juno.com wrote: Tom Marchant and others pointed out I don't have an answer to your questions, but I think you mean LA 15,16 And I agree, However From z/OS UNIX System Services Programming: Assembler Callable Services Reference SA23-2281-00 The following is an example of code that specifies the offset. The example assumes that register 1 is set up with the address of the parameter list. Replace offset with the appropriate value from the following offset table. L 15,16 CVT - common vector table L 15,544(15) CSRTABLE L 15,24(15) CSR slot L 15,offset(15) Address of the service BALR 14,15 Branch and link I suspect the documentation is wrong -- Original Message -- From: Tom Marchant m42tom-ibmm...@yahoo.com To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: USS Callable Assembler Services Date: Mon, 18 Nov 2013 12:47:43 -0600 On Mon, 18 Nov 2013 17:20:34 GMT, esst...@juno.com wrote: L 15,16 CVT - communication vector table I don't have an answer to your questions, but I think you mean LA 15,16 -- -- Jim Blalock z/OS Support Manager CCIT, Clemson University (864) 656-3680 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: USS Callable Assembler Services
On 18 November 2013 14:36, esst...@juno.com esst...@juno.com wrote: Tom Marchant and others pointed out I don't have an answer to your questions, but I think you mean LA 15,16 And I agree, However From z/OS UNIX System Services Programming: Assembler Callable Services Reference SA23-2281-00 The following is an example of code that specifies the offset. The example assumes that register 1 is set up with the address of the parameter list. Replace offset with the appropriate value from the following offset table. L 15,16 CVT - common vector table L 15,544(15) CSRTABLE L 15,24(15) CSR slot L 15,offset(15) Address of the service BALR 14,15 Branch and link I suspect the documentation is wrong It's not wrong, and changing L to LA would break what you have. You could indeed use the IHAPSA and CVT macros and avoid use of hard-coded constants, but the problem with this is that the CSRTABLE and what it points to are OCO, so there are no IBM-supplied mappings or names. I wrote a little macro that contains roughly what you show above. It takes the service name as an argument and generates the call with the offset and arguments. There are other services reached through the CSRTABLE with offsets other than 24; some of them are documented to various extents, and others not at all. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: USS Callable Assembler Services
For BPX1QSN, message type is the first word of the message. It contains 0. Jon Perryman. From: esst...@juno.com esst...@juno.com L 15,16 CVT - communication vector table L 15,544(15) CSRTABLE L 15,24(15) CSR slot L 15,704(15) Address of the service ST R15,BPX1QSN@ Store Address Of BPX1QSN L R15,BPX1QSN@ Get Address Of BPX1QSN CALL (15), Get host by name + (UMSG_ID, Input: MessageQueue ID + UMSG_BUF@, Input: -MSGBUF BPXYMSG+ UMSG_ALET, Input: Alet Of Message Buffer + UMSG_SIZE, Input: Length Of MSGBUF + UMSG_FLAGS, Input: Flags BPXY1PC+ UMSGVAL, Return Value: 0, -1 + UMSGRETURN, Return code + UMSGREASON), Reason code + INKINST=BASR, + VL,MF=(E,UMSGPLIST) -- After I issue BPX1QSN I receive a Return Code of 0079 and a Reason Code of 030A I looked up the meaning of these codes: 0079 The parameter is incorrect 030A Message type must be greater than zero -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: OSE (SNA) Connectivity Issue on z/OS
Hello, Thanks for response . Look like the problem has been resolved now by using OSA/SF. We are still doing testing to confirm this changes. Thanks to all for helping. On Mon, Nov 18, 2013 at 6:14 AM, Peter Bishop peter.bis...@eds.com wrote: Hi Venkat, You need to use OSA/SF if you're using SNA mode on the OSE CHPID. Extract from OSA Express manual SA22-7935-14 below, where the any other refers to anything other than TCPIP Passthru using the default OAT: ---start extract Any other non-QDIO OSA-Express feature requires OSA/SF to configure the OSA. ---end extract Also, see the text for message IST1023E. cheers Peter On Sun, 17 Nov 2013 19:33:27 +0530, venkat kulkarni venkatkulkarn...@gmail.com wrote: Hello, We are trying to make SNA connectivity between CICS region on z/OS 1.13 system using Bean connect and IBM communication controller sitting on AIX system . For doing this connectivity, we did below setup but somehow this connectivity not working. 1) I created OSE type of chipid and connected 30 devices with type OSA using control unit. I have used OSE CHPID MAC address in AIX box for this connection. 2) I created XCA major node definition and used CUADDR= first device number from above created 30 devices. OSA120MJ VBUILD TYPE=XCA EXT COMM ADAPTER MAJOR NODE OSA120PT PORT MEDIUM=CSMACD, CSMA/CD 802.3 LAN+ ADAPNO=0, FIRST OSA ETHERNET PORT + CUADDR=1200, CHANNEL UNIT ADDRESS + TIMER=60, WAIT 60 SECS AFTER CHANNEL ACTIVATED + SAPADDR=4 SERVICE ACCESS POINT ADDRESS OSA120G1 GROUP DIAL=YES, LINES IN GROUP NEED SWITCHED PROT+ ANSWER=ON, PUS CAN DIAL TO VTAM WHEN LINE ACT + AUTOGEN=(12,L,P), AUTO CREATE 12 LINES + CALL=INOUT,INCOMING AND OUTGOING CALLS + ISTATUS=ACTIVE LINE ACTIVE WHEN MAJ NODE ACTIVE 3) I also created switched major node and in this I have used IDBLK and IDNUM from the node_id = 05d12138 parameter in AIX system IBM communication controller config file * SNABDVBUILD TYPE=SWNET ABD1 PUADDR=04,* IDBLK=05D, * IDNUM=12138,* CPCP=YES, * DISCNT=NO, * ISTATUS=ACTIVE, * MAXPATH=4, * MAXOUT=7, * SSCPFM=USSSCS, * USSTAB=USSTAB, * USSTAB=USSTAB, * MAXDATA=1033, * PACING=0, * VPACING=0, * MODETAB=MODECIVM, * PUTYPE=2 PATH01 PATH DIALNO=00040015C5E836A6 ABD101 LULOCADDR=00, * DLOGMOD=CICVLU62, * MODETAB=MODECICV ABD102 LULOCADDR=00 INDEPENDENT NODE ABD103 LULOCADDR=00 INDEPENDENT NODE ABD104 LULOCADDR=00 INDEPENDENT NODE ABD105 LULOCADDR=00 INDEPENDENT NODE ABD1L2 LULOCADDR=02,3270 LU2 SESSION * DLOGMOD=M4G,MODETAB=M3278S ABD1L3 LULOCADDR=03,3270 LU2 SESSION * DLOGMOD=M4G,MODETAB=M3278S ABD1A2 LULOCADDR=12,USSTAB=USSNOMSG DEPENDENT LU FOR APPC ABD1A3 LULOCADDR=13,USSTAB=USSNOMSG DEPENDENT LU FOR APPC ABD1A4 LULOCADDR=14,USSTAB=USSNOMSG DEPENDENT LU FOR APPC 3) We have CICS region name CICSB and below are VTAM defination APPLCIC2 VBUILD TYPE=APPL CICSBAPPL ACBNAME=CICSB,NAME USED TO CONNECT TO VTAM X AUTH=(ACQ,VPACE,PASS),ACQUIRE AND PASS DEVICES X EAS=31, ESTIMATED NUMBER OF SESSIONS X MODETAB=MODECICV, MODETABLE USED IF WE ARE SLU X DLOGMOD=CICVLU62, DLOGMOD USED IF WE ARE SLU X PARSESS=YES, MULTIPLE SESS WITH OTHER APPL X SONSCIP=YES, USE SCIP EXIT IF WE ARE PLU X APPC=NO,X
Re: USS Callable Assembler Services
In 20131118.143646.2538...@webmail05.dca.untd.com, on 11/18/2013 at 07:36 PM, esst...@juno.com esst...@juno.com said: Tom Marchant and others pointed out I don't have an answer to your questions, but I think you mean LA 15,16 And I agree, However From z/OS UNIX System Services Programming: Assembler Callable Services Reference SA23-2281-00 The following is an example of code that specifies the offset. The example assumes that register 1 is set up with the address of the parameter list. Replace offset with the appropriate value from the following offset table. L 15,16 CVT - common vector table L 15,544(15) CSRTABLE L 15,24(15) CSR slot L 15,offset(15) Address of the service BALR 14,15 Branch and link I suspect the documentation is wrong Why? The CVT is not and never has been at 16. The code is correct as given, although I would prefer the use of a mapping macro rather than magic numbers. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Serialization without Enque
On 11/10/2013 1:19 PM, Mark Zelden wrote: I've not been paying that close of attention, but I'm more curious about what people did for these situations prior to PLO. ENQ/DEQ or Latch -- Edward E Jaffe Phoenix Software International, Inc 831 Parkview Drive North El Segundo, CA 90245 http://www.phoenixsoftware.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN