Weird truncation error in DASDPDSU

[electric-socket]

I originally reported this to user HerculesWS who apparently doesn't hanmdle this thing, and as ( I later discovered) you are the one who originally wrote it, I thought I should mention this:

Describe the bug
Text documents extracted from a PDS and converted to ASCII using DASDPDSU is strangely truncated on the right at column 72. I am not sure if this would only occur in the Windows version of DASDPDSU.

To Reproduce
Steps to reproduce the behavior:

1. Have a copy of the TK4 MVS release.
2. Start up two MS-DOS windows (or open a terminal window in Linux).
3. Start Hercules in unattended mode, or run it as a background job in shell.
4. Switch to DOS window or shell command line.
5. Fire up a 3270 terminal
6. Logon to TK4, I used HERC02 as I don't need privileges (so you can verify what happens).
7. In the TSOAppls menu system, select 2 ENTER 2 ENTER (RPF, Edit)
8. On the EDIT screen, where it says Member= type PCROSS and press tab
9. in the field Dsname= type PASCAL.PASSAMP and press tab
10. in the field Volume= type PUB000 and press enter
11. When the listing appears, use the F8 key to scroll to the next page until it reaches where it is showing line 173 (if you go too far, press F7 to page up).
12. When you can see that line, type SCR and push enter; the editor will scroll right.
13. The last few characters of this line, starting at byte 63, are \ (*PARENTHESE*) (*] (sic) with the "]" appearing right on column 80. The truncation occurs before this line, but it's much more obvious at this point.
14. Press F3 to exit back to the previous menu.
15. You'll be back to the Member= field, erase the previous item, type in RNFDOC and push enter
16. In the editor, page down to where line 53 occurs.
17. Type SCR to scroll right, then push enter.
18. The last few words on this line are for the Cyber similiar to the RUNOFF
19. Hit F3 several times until you're at READY.
20. You're finished with the terminal, now you need the DOS window (shell prompt)
21. move to the directory where the hercules directory is.
22. make a temporary directory and enter it.
23. type in: ./dasdpdsu <location_of_dasd_file_pub000.240> pascal.pascmp ascii and press enter.
24. Use a text editor to look at files pcross.mac and rnfdoc.mac
25. Scroll to line 173 of pcross.mac . Notice how the line ends, with \ (*PARENTHE
26. Now go to line 53. The line ends with for the Cyber similiar to the and everything after the e in "the" is truncated. It's even more obvious on further lines down the page, everything after column 72 is lost.

Expected behavior
Files should not be truncated.

Screenshots
If applicable, add screenshots to help explain your problem.

System specs (please complete the following information):

• OS: Windows 10 Pro version 20H2
• Hercules Version 3.07 [Built Apr 23, 2010]- No source modifcations or plugins

Additional context
Yeah, I know it's probably to allow files as copied probably a lot smaller, where they don't need the sequence number field (BAL and Cobol, and maybe FORTRAN), but not for others I don't think, and certainly not for documentation members that do go all the way to column 80.

---