Seymour didn’t try that

I did try x’oa’ didn’t work got a message from my terminal emulator couldn’t 
deal with the unprintable character 

I know in windows rich edit that works to force a new line 

The documentation in the tso services guide is erroneous as I tried the exact 
code and it displayed on the same line 

What I did was force the issue 

Got the width of the screen with getsiz macro 
And I use a really big line 130 across set the length to the max ( the width of 
the terminal ) and init the line to blanks 
Then I left  justify the message 
The next message automatically starts on a new line 

Thanks 
> On May 8, 2023, at 6:08 AM, Seymour J Metz <sme...@gmu.edu> wrote:
> 
>  1. If you request output in storage, does each line end in '15'x (NL)?
> 
> 2. What happens if you use an explicit TERMPUT=EDIT?
>    Yes, that's supposed to be the default, but I'm grasping at straws here.
> 
> 
> --
> 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 1:03 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: PUTLINE MULTLIN doesn't make a new line
> 
> 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
> 
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to 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

Reply via email to