Thanks Mark and Don,
This is just what the doctor ordered.
Lizette
>
>>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
>
----------------------------------------------------------------------
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
