On Tue, 18 Sep 2007 12:08:58 -0400, Lizette Koehler
<[EMAIL PROTECTED]> wrote:
>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.
>
>
IEFSD095. Documented somewhere in JES2 manuals I think. Here is
a rexx program I use to call it. It probably was posted to IBM main or
some other listserv a long time ago, but I don't recall who did it and
I don't have comments in my source... so I apologize to someone.
/* REXX - BIG LETTER ROUTINE SYS1.AOSB0(IEFSD095) */
/* ADDRESS ISPEXEC "LIBDEF ISPLLIB DATASET ID('SYS1.AOSB0') STACK" */
PARSE VALUE DATE() WITH D M Y
CALL SAYBIG D !! M
CALL SAYBIG Y
/* ADDRESS ISPEXEC "LIBDEF ISPLLIB" */
RETURN
SAYBIG: PROCEDURE
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
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:[EMAIL PROTECTED]
z/OS and OS390 expert at http://searchDataCenter.com/ateExperts/
Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html
----------------------------------------------------------------------
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
