Re: Complex immediate fields

[Roger Bolan]

When I compose a reply in Gmail, I have a fixed width font option.  Does it
come through below?
(It would be really swell if the Assembler List knew about a fixed-width
font for such examples.)
LISTUSE MAIN ESD=0001 LOC= LEN=01000 REG=F OFF=0 LAB=
00  (1/12)10  WIPE  BUF,C'A'
00 4100F01010(1/3)11+ LA0,BUF
04 A7180200  (1/4)12+ LHI   1,L'BUF
08 C029C10000(1/5)13+ LFI
 2,C'A'*X'100'
0E 0E02  (1/6)14+ MVCL  0,2
10  (1/14)16 BUF  DSCL512
000210  (1/15)17  END

On Fri, Mar 29, 2024 at 4:47 PM Dan Greiner  wrote:

> The example I illustrated with the macro does not appear to have the
> overflow issue that Robert mentions ... at least, not with the z390
> assembler. A slightly modified example (with LHI instead of LA) follows:
>
> Assembler Listing
> 00(1/1)1  MACRO
> 00(1/2)2WIPE
> ,
> 00(1/3)3LA0,
> 00(1/4)4  LHI
>  1,L'
> 00(1/5)5  LFI
>  2,*X'100'
> 00(1/6)6  MVCL  0,2
> 00(1/7)7  MEND
> 00(1/9)8 MAIN CSECT
> 00   (1/10)9  USING MAIN,15
> LISTUSE MAIN ESD=0001 LOC= LEN=01000 REG=F OFF=0 LAB=
> 00  (1/12)10  WIPE
> BUF,C'A'
> 00 4100F01010(1/3)11+ LA0,BUF
> 04 A7180200  (1/4)12+ LHI   1,L'BUF
> 08 C029C10000(1/5)13+ LFI
>  2,C'A'*X'100'
> 0E 0E02  (1/6)14+ MVCL  0,2
> 10  (1/14)16 BUF  DSCL512
> 000210  (1/15)17  END
>
> (It would be really swell if the Assembler List knew about a fixed-width
> font for such examples.)
>

Re: How to create a pdf file from Mainframe

[Roger Bolan]

Yes.  I don't know the prices.
Infoprint Server is part of z/OS, but you have to enable it.
The transforms are separately orderable products.  You can order IBM Print
Transforms from AFP which has three features for afpxpdf, afpxps, and
afpxpcl.
There is another product, Infoprint Transforms to AFP that includes
pcl2afp, ps2afp, pdf2afp, sap2afp.
There is also Infoprint XT which is for transforming Xerox data streams to
AFP.

On Wed, Jan 10, 2024 at 8:41 AM Roger Bolan  wrote:

>
>
> On Tue, Jan 9, 2024 at 9:53 PM Paul Gilmartin <
> 0014e0e4a59b-dmarc-requ...@listserv.uga.edu> wrote:
>
>> On 1/9/24 21:36:50, Roger Bolan wrote:
>> > Infoprint Server is a component of z/OS.  It has a companion product IBM
>> > Print Transforms from AFP.
>> >
>> Is it separately priced?
>>
>> > The afpxpdf transform can transform either line
>> > data or AFP into PDF.  Infoprint Server can take that PDF and send it to
>> > printers or email the PDF as an attachment.  All of the documentation on
>> > Printing with PSF, Infoprint Server, and using the Transforms can be
>> found
>> > under this link:  Infoprint Server and Transforms, PSF for z/OS - APS -
>> IBM
>> > Documentation
>> > <
>> https://www.ibm.com/docs/en/zos/3.1.0?topic=infoprint-server-transforms-psf-zos-aps
>> >
>> > --Roger
>> >
>> > On Mon, Jan 8, 2024 at 10:51 AM sudershan ravi wrote:
>> >>
>> >> Could someone help me on creating a pdf file from the mainframe job.
>> What
>> >> are the options we have?
>> --
>> gil
>>
>

Re: How to create a pdf file from Mainframe

[Roger Bolan]

On Tue, Jan 9, 2024 at 9:53 PM Paul Gilmartin <
0014e0e4a59b-dmarc-requ...@listserv.uga.edu> wrote:

> On 1/9/24 21:36:50, Roger Bolan wrote:
> > Infoprint Server is a component of z/OS.  It has a companion product IBM
> > Print Transforms from AFP.
> >
> Is it separately priced?
>
> > The afpxpdf transform can transform either line
> > data or AFP into PDF.  Infoprint Server can take that PDF and send it to
> > printers or email the PDF as an attachment.  All of the documentation on
> > Printing with PSF, Infoprint Server, and using the Transforms can be
> found
> > under this link:  Infoprint Server and Transforms, PSF for z/OS - APS -
> IBM
> > Documentation
> > <
> https://www.ibm.com/docs/en/zos/3.1.0?topic=infoprint-server-transforms-psf-zos-aps
> >
> > --Roger
> >
> > On Mon, Jan 8, 2024 at 10:51 AM sudershan ravi wrote:
> >>
> >> Could someone help me on creating a pdf file from the mainframe job.
> What
> >> are the options we have?
> --
> gil
>

Re: How to create a pdf file from Mainframe

[Roger Bolan]

Infoprint Server is a component of z/OS.  It has a companion product IBM
Print Transforms from AFP.  The afpxpdf transform can transform either line
data or AFP into PDF.  Infoprint Server can take that PDF and send it to
printers or email the PDF as an attachment.  All of the documentation on
Printing with PSF, Infoprint Server, and using the Transforms can be found
under this link:  Infoprint Server and Transforms, PSF for z/OS - APS - IBM
Documentation

--Roger

On Mon, Jan 8, 2024 at 10:51 AM sudershan ravi 
wrote:

> Hi Everyone,
>
> Could someone help me on creating a pdf file from the mainframe job. What
> are the options we have?
>
> Thanks,
> Sudershan
>

Re: Man or boy test

[Roger Bolan]

Yes!  I haven't used FORTRAN in decades now either, but I can verify that I
did exactly that in college when I was first learning "FORTRAN IV", or
maybe it was the faster "WATFIV", but I passed a 2 to a subroutine and and
it changed it for the rest of the program.

On Mon, Feb 12, 2018 at 4:56 AM, Martin Ward  wrote:

> On 11/02/18 20:48, Paul Gilmartin wrote:
>
>> IBM FORTRAN, for example, passes everything by reference (think CALL
>> macro).
>> (But my experience may be many decades outdated.)
>>
>
> At least one early FORTRAN compiler passed everything by reference.
> If you passed the number 3, the subroutine received the address
> in the literal table where the number 3 was stored, and could
> assign a new value to it. From that point on, any references
> to the literal number 3 in the program would get the new value!
>
>
> --
> Martin
>
> Dr Martin Ward | Email: mar...@gkc.org.uk | http://www.gkc.org.uk
> G.K.Chesterton site: http://www.gkc.org.uk/gkc | Erdos number: 4
>

Re: BDAM files

[Roger Bolan]

Do they really exist?  Yes (sort of).  In about 1990 we converted a big
application program from 24-bit to 31-bit.  Basically we just divided our
load modules into two halves.  One part ran below the 16M line to do all
the 24-bit I/O code and the rest was 31-bit AMODE(31), RMODE(ANY).
That code is still running fine today on z/OS 2.3.   I'm sure we'd have
more options today, but that worked in 1990.


On Mon, Nov 27, 2017 at 6:05 PM, Charles Mills  wrote:

> It would be awesome if 24-bit would just go away. But are you volunteering
> to convert all those 24-bit programs? (Do they really exist? Heck, there's
> a
> current thread on IBM-MAIN about compatibility with OS/390 1.5.")
>
> IBM has made the philosophical decision that slavish upward compatibility
> is
> non-negotiable, except when that principle conflicts with the principle of
> integrity. I think IBM over-learned the lesson of the "Future System"
> (https://en.wikipedia.org/wiki/IBM_Future_Systems_project#Project_end,
> last
> paragraph of section) but that is just IMHO.
>
> Charles
>
>
> -Original Message-
> From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU
> ]
> On Behalf Of Paul Gilmartin
> Sent: Monday, November 27, 2017 4:19 PM
> To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
> Subject: Re: BDAM files
>
> On 2017-11-27, at 14:09:56, Charles Mills wrote:
>
> > You've got to do a little bit more hoop-jumping for AMODE(31) -- separate
> storage for the DCBs, and remembering the extra parameters on the various
> macros. Not prohibitive, but a little more to remember, and a few more
> possibilities for gotchas.
> >
> Wouldn't it be great if a single SET symbol setting could condition all the
> system macros to generate 24/31/64 bit expansions?
>
> Better if 24-bit just went away and never came back.  And the horse it rode
> in on.
>
> > I have not mentioned this in a while, but I wrote a paper on converting
> an
> xMODE(24) xSAM program to xMODE(31). If anyone wants a copy, just write me
> off-line. Not a sales pitch for anything; no salesman will call.
>
> -- gil
>

Re: USING 0,0

[Roger Bolan]

I don't think R0 has ever worked as a base register.  Try another.
 On May 15, 2015 2:44 PM, glen herrmannsfeldt g...@ugcs.caltech.edu
wrote:

 I wonder if USING 0,0 and USING 4096,1 should work correctly.

 I have tried it with START 1000, and START 5000, respectively,
 such that addresses are in the appropriate range, but, using
 the Tachyon assembler, get addressability errors.

 Or maybe there is an assembler option to allow this that
 I don't see.

 This is my first time trying to assemble for absolute addresses.

 -- glen

Re: Adding 30 seconds to a specific time

[Roger Bolan]

It was excellent.  I think I see one little nit to pick.  It looks like the
original poster said 30 seconds and the answer was for 30 minutes.
But the technique is good.


On Sun, Jun 22, 2014 at 8:28 AM, John Gilmore jwgli...@gmail.com wrote:

 John [McKown],

 A superb post!

 Most discussions of calendrical arithmetic here have a strongly emetic
 effect upon me.  (They make me want to vomit.)

 It is a great pleasure to read one that gets things right.

 John Gilmore, Ashland, MA 01721 - USA

Re: Sortlessness?

[Roger Bolan]

As a programmer, I only had to put my deck in the sorter AFTER I dropped
it! :)


On Fri, Aug 30, 2013 at 2:43 PM, Capps, Joey jca...@informatica.com wrote:

 Not since the old days when you dropped your card deck in a physical card
 sorter :-)

 -Original Message-
 From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU]
 On Behalf Of Gord Tomlin
 Sent: Friday, August 30, 2013 3:33 PM
 To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
 Subject: Sortlessness?

 Just a little Friday afternoon curiosity...does anyone have, or know of,
 any z/OS systems that have *no* sort product (DFSORT, Syncsort, etc.)
 installed? Before anyone asks, no, I am not planning to develop one!

 --

 Regards, Gord Tomlin
 Action Software International
 (a division of Mazda Computer Corporation)
 Tel: (905) 470-7113, Fax: (905) 470-6507

Re: ASSEMBLER-LIST Digest - 5 Jun 2011 to 6 Jun 2011 (#2011-96)

[Roger Bolan]

I'll second Tobias's recommendation:

http://publib.boulder.ibm.com/infocenter/zos/v1r12/index.jsp

http://publib.boulder.ibm.com/infocenter/zos/v1r12/index.jspI know you're
right about important information sometimes being hidden in obscure places.
 The solution is to give up on the hard copy manuals and use the online
manuals.  With BookManager bookshelves, searchable PDF's and the Information
Centers I'm sure the writers expect you to search online for information and
some of it would be impossible to find using only hard copy.   The only time
I use hard copy is when I need information on an old IBM product.  Some of
the products still used and supported today last put out new documentation
before the books started going online.

One caveat about searching in the infocenter link above.   You will often
get too many hits.  If you have an idea of the areas to which you can limit
the search, use the SEARCH SCOPE settings to do it.  You can save those so
that you can do more focused searches when you need to, and and only search
everything when you have no idea where to look.

Not everything is in the Information Centers.   Some books are on FTP sites,
some are still only in BookManager Bookshelves and some are located in
places that seem impossible to find from the main www.ibm.com page.   Some
books have moved to other sites like infoprint.com or afpcinc.org. .
Google is your friend for finding books.
--Roger

On Tue, Jun 7, 2011 at 11:27 AM, John Walker jwalker...@yahoo.com wrote:

 I don't often comment here, but I feel motivated to comment about the 'read
 the manual' comments.  I can't speak for OLD IBM manuals, but I CAN speak
 for current ones.  You are inundated in spurious and unnecessary things in
 all the RIGHT places, but frequently the important information is in very
 obscure places.  AND there is no consistency in where that obscure location
 is.  This is consistent with the typical programmer doc, but still...one
 can't say reading the manual does anything but tell you where the
 information you need is NOT at.  As such, I've given up on IBM manuals 20
 years ago.  Can anyone give a class on reading current IBM manuals and FIND
 info(which you don't already know, I can find THAT)?

Re: ASSEMBLER-LIST Digest - 20 Jan 2011 to 21 Jan 2011 (#2011-11)

[Roger Bolan]

Another thing to check is the LOCK or UNLOCK status by issuing the PROFILE
command with no parameters on the ISPF command line while in edit on one of
the affected members:
=PROF JCL (FIXED - 80)RECOVERY ONNUMBER
OFF..
=PROF CAPS ONHEX OFFNULLS ON STDTABS ON
`
=PROF AUTOSAVE ONAUTONUM OFFAUTOLIST OFFSTATS
ON.
=PROF PROFILE UNLOCKIMACRO NONEPACK OFFNOTE
ON...
=PROF HILITE OFF CURSOR
FIND.
=TABS - *   *
 *
=COLS
+1+2+3+4+5+6+7+

If you set the profile the way you want it, and then issue PROFILE LOCK.
 Changes you make during an individual edit session will then not affect the
saved version of the profile and should always start an edit session with
the saved profile settings.  If you have UNLOCK then a change made during
one session may affect your later sessions.

--Roger


On Mon, Jan 31, 2011 at 1:44 PM, John Walker jwalker...@yahoo.com wrote:

 Say, I have been noticing over the last year or so that i FREQUENTLY end up
 with my edit setting set to NULLS ON.  This is an annoying and aberrant
 setting for any non-PC or non-unix use, which is to say ALL mainframe
 applications and work.  However, when I set it to off, it ends up being
 reset somehow by ISPF.  It seems that sometimes I am not even in browse or
 edit and it still does it.  How can I reset this obvious over-riding default
 which I dislike?

Re: Best (or any) practices to rewrite spaghetti

[Roger Bolan]

I'm sure others will tell you about coding techniques and structured macros
etc.  My advice when improving old spaghetti assembler code is this:
Make sure you have a regression test library ready to insure that the
behavior of the new code matches the old code.  Spaghetti code can hide a
lot of little subtleties and you need to make sure that the more structured,
more readable code doesn't change or miss anything.   You also need to
compare performance.  On more than one occasion we found the performance of
the old spaghetti code module hard to beat or match.
--Roger

On Thu, Feb 3, 2011 at 10:16 AM, Miklos Szigetvari 
miklos.szigetv...@isis-papyrus.com wrote:

Hi

Asking here for the best practices to rewrite spaghetti assembler
 code to use structured programming macros
 I think I red a number of  SHARE presentations

 My concern is currently the error handling
  Till now, if an error occurred, there  was a JUMP/BRANCH to an error
 block, with all the possible error messages , and after a  JUMP/BRANCH
 to the module RETURN.
 Seems to me , instead of this,  some DOEXIT or ASMLEAVE would be more
 complicated