Here's a REXX exec I came across some time ago (I don't know who
provided this):
/* REXX - BIG LETTER ROUTINE SYS1.AOSB0(IEFSD095) */
parse arg str
Address ISPEXEC "LIBDEF ISPLLIB DATASET ID('SYS1.AOSB0') STACK"
Call REXXBIG str
Address ISPEXEC "LIBDEF ISPLLIB"
Exit
REXXBIG:
Arg txt
p1 = txt
p4 = d2c(length(txt),4)
p567 = ' '
do i = 1 to 12
p2 = d2c(i,4)
p3 = copies(' ',length(txt) * 14 - 2)
Address LINKPGM "IEFSD095 P1 P2 P3 P4 P567 P567 P567"
Say p3
end
Say
Return
Don Imbriale
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Ulrich Krueger
Sent: Tuesday, September 18, 2007 12:16 PM
To: [email protected]
Subject: Re: Need a program to create BLOCK Letters
Lizette,
Many years ago there was a "Block character routine" available in
library SYS1.AOSB0, named IEFSD095. This routine was (is?) used to
create the block letters for JES2 separator pages. Documentation: The
page I copied from an old manual says "Job Management - External
Writers".
I hope this gives you a starting point for further research.
Regards,
Ulrich Krueger
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Lizette Koehler
Sent: Tuesday, September 18, 2007 09:09
To: [email protected]
Subject: Need a program to create BLOCK Letters
I had one of these a long time ago written in assembler.
I am looking for a pgm that will create a BLOCK of a LETTER
For example, I pass it a T it would produce output like this (if it
could slant it that would be very nice).
TTTTTTTTT
TTTTTTTTT
TT
TT
TT
TT
Does anyone have anything like this? I have scaned the files in CBT
Tape but the one liners do not tell if there is such a pgm.
I did find a couple called BLOKHDR but it only created a phrase in a
block, not a block letter.
***********************************************************************
Bear Stearns is not responsible for any recommendation, solicitation,
offer or agreement or any information about any transaction, customer
account or account activity contained in this communication.
***********************************************************************
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
