Here is the publication number SA32-0973-50
Here is the code from page 221
*
PUTLINE PARM=PUTBLOK,OUTPUT=(TEXTADS,MULTLIN,DATA), X
MF=(E,IOPLADS)
* PROCESSING
* STORAGE DECLARATIONS
*
ECBADS DS F
IOPLADS DS 4F'0'
TEXTADS DC A(TEXT2) FORWARD POINTER TO THE NEXT LINE.
DC H'20' LENGTH OF THE FIRST LINE.
DC H'0' RESERVED.
DC CL16'MULTILINE DATA 1'
PUTBLOK PUTLINE MF=L LIST FORM OF THE PUTLINE MACRO
* INSTRUCTION.
*
TEXT2 DC A(0) END OF CHAIN INDICATOR.
DC H'20' LENGTH OF THE SECOND LINE.
DC H'0' RESERVED.
DC CL16'MULTILINE DATA 2'
*
This is the output I get running under TESTAUTH
AT +35A
TESTAUTH
GO
MULTILINE DATA 1 MULTILINE DATA 2 IKJ57024I AT +35A
TESTAUTH
Here is my code
*
L R8,STBUFF
PUTLINE PARM=PUTBLOK,OUTPUT=((R8),MULTLIN,DATA), X
MF=(E,MYIOPL)
Thid is my output
00028748 A7F4000C 12C9E2D9 D7C3D740 404040F2 *................*
00028758
F0F2F14B F0F5F700 90ECD00C 18CF41F0 *................* 00028768
00005800
C2E40700 47F0C030 00005200 *................* 00028778 89F00008
BFFDC02C
1B110A78 18B150D0 *................* 00028788 B00450B0 D00898F1
D01018DB
D203B048 *................* 00028798 100047F0 C12A40F5 F6F5F060
E9D6E240
*................* 000287A8 4040C3D6 D7E8D9C9 C7C8E340 C9C2D440
*........
Here is part of the buffer I am outputting what register 8 is pointing to
20E0C5B0. 20E0C5FC 00480000 F0F0F0F2 F8F7F4F8 *..E.....00028748*
4040C1F7 C6F4F0F0 F0C34040 F1F2C3F9 * A7F4000C 12C9*
20E0C5D0. C5F2C4F9 4040C4F7 C3F3C4F7 F4F04040 *E2D9 D7C3D740 *
F4F0F4F0 F4F0C6F2 40405C4B 4B4B4B4B *404040F2 *.....*
20E0C5F0. 4B4B4B4B 4B4B4B4B 4B4B4B5C 20E0C648 *...........*..F.*
00480000 F0F0F0F2 F8F7F5F8 4040C6F0 *....00028758 F0*
20E0C610. C6F2C6F1 F4C24040 C6F0C6F5 C6F7F0F0 *F2F14B F0F5F700*
4040F9F0 C5C3C4F0 F0C34040 F1F8C3C6 * 90ECD00C 18CF*
20E0C630. F4F1C6F0 40405C4B 4B4B4B4B 4B4B4B4B *41F0 *.........*
4B4B4B4B 4B4B4B5C 20E0C694 00480000 *.......*..Fm....*
20E0C650. F0F0F0F2 F8F7F6F8 4040F0F0 F0F0F5F8 *00028768 000058*
F0F04040 C3F2C5F4 F0F7F0F0 4040F4F7 *00 C2E40700 47*
20E0C670. C6F0C3F0 F3F04040 F0F0F0F0 F5F2F0F0 *F0C030 00005200*
40405C4B 4B4B4B4B 4B4B4B4B 4B4B4B4B * *.............*
20E0C690. 4B4B4B5C 20E0C6E0 00480000 F0F0F0F2 *...*..F.....0002*
Thank you
-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of
Seymour J Metz
Sent: Sunday, May 7, 2023 12:25 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: PUTLINE MULTLIN doesn't make a new line
Please show your code. In particular, what is TERMPUT=?
The term "unprintable" is vague; it depends on the particular character set
and translation table.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
________________________________________
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Joseph Reichman [reichman...@gmail.com]
Sent: Sunday, May 7, 2023 11:33 AM
To: IBM-MAIN@LISTSERV.UA.EDU <mailto:IBM-MAIN@LISTSERV.UA.EDU>
Subject: PUTLINE MULTLIN doesn't make a new line
Hi
I have a couple of PUTLINE questions
first does the MULTLIN,DATA parms When the format is in the way described in
TSO/E services guide I mean forward chain point length (which includes 4
bytes for the len + offset ) do a new line break I went so fat as copy the
example in the book (z/os 2.5 page 221 ) the two data lines appear on the
same line
second if I have unprintable characters in my message do I have to translate
it my self (to wipe out the non-printable) or is there some way putline will
do it for me
Thanks
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu <mailto:lists...@listserv.ua.edu> with the
message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu <mailto:lists...@listserv.ua.edu> with the
message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
