Hey retired I dont follow.... can u email off server ... Scott J Ford Software Engineer http://www.identityforge.com/
________________________________ From: retired mainframer <[email protected]> To: [email protected] Sent: Friday, May 24, 2013 2:22 PM Subject: Re: ECSA Is it really deliberate that the parameters for the first routine are in a different order than the parameters for the second? :>: -----Original Message----- :>: From: IBM Mainframe Discussion List [mailto:[email protected]] On :>: Behalf Of Scott Ford :>: Sent: Friday, May 24, 2013 9:16 AM :>: To: [email protected] :>: Subject: ECSA :>: :>: Guys and Gals: :>: :>: I just received a problem from a customer and its odd. I will try to :>: explain. :>: :>: 1. Customer is on z/OS 1.13 ..Put ( i dont know we have asked) :>: 2. We have a STC that does this: :>: a. We issue a Storage Obtain like below :>: b. STC passed amount desired ...we call an assembler module which :>: is snippeted below.. :>: <obviously we are a vendor - i can show it all - and i am sorry :>: about that> :>: :>: LM R9,R11,4(R1) LOAD ADDRESS STG AMT, ADR & RC :>: L R9,0(R9) STG AMT - S/B 4K MULTIPLE :>: MODESET KEY=ZERO,MODE=SUP GO INTO SUPERVISOR MODE :>: STORAGE OBTAIN,LENGTH=(9),SP=231, X :>: LOC=31,COND=YES,CHECKZERO=YES :>: ST R1,0(R10) RETURN ADDR, IF ANY :>: ST R15,0(R11) RETURN CODE, OK IF ZERO :>: MODESET KEY=NZERO,MODE=PROB BACK TO MORTALITY :>: :>: c. STC shutdowns via a Modify command... :>: we call an asembler routine that issues the release :>: :>: LM R9,R11,4(R1) LOAD ADDRESS STG ADR, SIZE & RC :>: L R9,0(R9) STG ADR :>: L R10,0(R10) STG SIZE :>: MODESET KEY=ZERO,MODE=SUP GO INTO SUPERVISOR MODE :>: STORAGE RELEASE,LENGTH=(10),SP=231,ADDR=(9),KEY=0 :>: ST R15,0(R11) RETURN CODE, OK IF ZERO :>: MODESET KEY=NZERO,MODE=PROB BACK TO MORTALITY :>: *------------------------------------------------------------- :>: L R13,4(R13) CALLER SAVE AREA :>: RETURN (14,12),RC=(15) ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
