hi,
Since about half a century the 10 line Speedy implentation of snobol can do this (changing recfm is
automatic).
The SPITBOL LOADMODS can be found here
https://www.jaymoseley.com/hercules/compilers/spitbol370.htm
CBTTAPE inclusion is under construction.
Best
Peter
Instead of 'O = R' one can remove trailing blanks or else.
Once I wrote an extractor for unix tar archives of some source code modifying #includes on the fly,
aPS: dding C trigraphs etc.
On 20/04/2023 21:06, Robert Prins wrote:
There's a program on one of the CBTTape site "tapes" (I'm sure someone will
jump in with the number of the tape) called UPDTE that can handle any
LRECL, been using it for years.
Robert
//SPITBOL JOB 1,'CREATE PDS',NOTIFY=&SYSUID,REGION=2M
//SPIT370 EXEC PGM=SPITBOL
//STEPLIB DD DSN=SPITBOL.SPIT370.LOADMODS,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD DUMMY
//SYSIN DD *
INPUT(.I,'SYSUT1')
READ R = I :F(FINAL)
R POS(0) './ ADD MEMBER=' BREAK(' ') . MEMBER :S(NEXT)
O = R :(READ)
NEXT OUTPUT = 'MEMBER=' MEMBER
DIFFER(O) ENDFILE(OF)
OF = 'SYSUT2(' MEMBER ')'
OUTPUT(.O,OF) :(READ)
FINAL DIFFER(O) ENDFILE(OF)
END
//SYSUT1 DD *
./ ADD MEMBER=AAA
1
2
3
./ ADD MEMBER=BBB
A
B
C
/*
//SYSUT2 DD DISP=SHR,DSN=SPITBOL.PDS
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN