Article View: alt.folklore.computers
Article #618460Re: S/360 addressing, not Honeywell 200
From: Dan Espen
Date: Tue, 30 Jan 2018 03:36
Date: Tue, 30 Jan 2018 03:36
31 lines
2891 bytes
2891 bytes
Charlie Gibbs <cgibbs@kltpzyxm.invalid> writes: > On 2018-01-29, hanc...@bbs.cpcn.com <hanc...@bbs.cpcn.com> wrote: > >> On Saturday, January 27, 2018 at 7:37:00 PM UTC-5, Dan Espen wrote: >> >>> MVS applications often get system information >>> by using an address at a fixed low storage location (CVT at 16). >> >> I thought SYNCSORT's run control log was neat since it provided >> a variety of system information, such as Job and Step name. >> I felt this would be useful to include in run control totals for >> application programs. A colleague wrote an assembler routine to >> access that information (easy to do.) > > I wrote a little assembly-language subroutine that would change our > equivalent of a DDNAME in a COBOL program, so the payroll program > could print different cheque forms for several dozen clients in a > single run without having to define a different printer file for > each one. (We still needed a line of JCL for each form, but that > wasn't nearly as much of a hassle.) I had a similar requirement for a COBOL program on a S/34. Instead of calling an Assembler program I simply searched memory downward by byte until I found a match on the DDNAME then changed it. (My first guess (downward) was just a half educated lucky guess.) -- Dan Espen
Technical Details
Message-ID:
<p4op88$at8$1@dont-email.me>Path:
mbox-mo1.pugleaf.net!n14ni21206wmi.0!nntp.google.com!goblin2!goblin1!goblin.stu.neva.ru!eternal-september.org!feeder.eternal-september.org!reader02.eternal-september.org!.POSTED!not-for-mailReferences:
<65g3r9$8gg@bgtnsc03.worldnet.att.net> <p4cn29$fhm$1@dont-email.me> <p4d45k$f8e$1@dont-email.me> <b204534e-f56c-4b29-a177-dd66c2410b6d@googlegroups.com> <p4j0er$2im8$1@gal.iecc.com> <p4j5vb$u75$3@dont-email.me> <77dd9621-65ed-4931-9520-f8bbd19a7d41@googlegroups.com> <p4ogvo013re@news4.newsguy.com>Show Full Headers
Complete Article Headers
X-Received: by 10.223.166.209 with SMTP id t75mr14957wrc.19.1517283401600; Mon, 29 Jan 2018 19:36:41 -0800 (PST) X-BeenThere: alt.folklore.computers@googlegroups.com Received: by 10.28.138.19 with SMTP id m19ls208529wmd.5.gmail; Mon, 29 Jan 2018 19:36:40 -0800 (PST) X-Received: by 10.28.218.16 with SMTP id r16mr3076479wmg.11.1517283400982; Mon, 29 Jan 2018 19:36:40 -0800 (PST) Path: mbox-mo1.pugleaf.net!n14ni21206wmi.0!nntp.google.com!goblin2!goblin1!goblin.stu.neva.ru!eternal-september.org!feeder.eternal-september.org!reader02.eternal-september.org!.POSTED!not-for-mail From: Dan Espen <dan1...@gmail.com> Newsgroups: alt.folklore.computers Subject: Re: S/360 addressing, not Honeywell 200 Date: Mon, 29 Jan 2018 22:36:38 -0500 Organization: A noiseless patient Spider Lines: 31 Message-ID: <p4op88$at8$1@dont-email.me> References: <65g3r9$8gg@bgtnsc03.worldnet.att.net> <p4cn29$fhm$1@dont-email.me> <p4d45k$f8e$1@dont-email.me> <b204534e-f56c-4b29-a177-dd66c2410b6d@googlegroups.com> <p4j0er$2im8$1@gal.iecc.com> <p4j5vb$u75$3@dont-email.me> <77dd9621-65ed-4931-9520-f8bbd19a7d41@googlegroups.com> <p4ogvo013re@news4.newsguy.com> Mime-Version: 1.0 Injection-Info: reader02.eternal-september.org; posting-host="c1b4e35b611874819e1ba3bbab98833d"; logging-data="11176"; mail-complaints-to="ab...@eternal-september.org"; posting-account="U2FsdGVkX1/y7MGRFaCUk2mdcI6azK5KsYHwMF4KHx8=" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.3 (gnu/linux) Cancel-Lock: sha1:olnOXojVpvsl3Js1MytDkRbk6TA= Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 7bit