Hi,
Is there any program in any of the CBT tapes, or perhaps on someone's GitHub ..
that makes concatenating lines easy?
If a continuating character is found in column 72, append the next line to
current line, and so on.
Thanks,
- KB
I'm not aware of one but that would be a very trivial rexx program to do so.
This should get you started:
/* rexx */
'alloc f(in) ds(lionel.doc(concinp)) shr reuse'
'execio * diskr in (finis stem in.'
'free f(in)'
Thanks Lionel, what about when there's a 3 or 7-part line (2 or 6 lines with
continuation char respectively.).
Need a safe way to loop the 'else do' bit you've shown below.
- KB
‐‐‐ Original Message ‐‐‐
On Saturday, July 11, 2020 5:26 PM, Lionel B Dyck wrote:
> I'm not aware of one but
Hi Dave,
This is most likely a masked password. If you know the password, simply reset
the password for the ID to the same value. This will DES-encrypt it.
Alternatively, make the ID PROTECTED, remove the password from the JOB card,
and permit the Started Task SURROGAT access to ID to submit it
This is a very quick and somewhat dirty example:
/* rexx */
'alloc f(in) ds(lionel.doc(concinp)) shr reuse'
'execio * diskr in (finis stem in.'
'free f(in)'
do i = 1 to in.0
To move an IODF from one system to another, there are various methods as others
have suggested. We have always used an HCD native process that
1. creates an offload copy of the source IODF
2. submits a second job to transmit the unload to the target site
3. runs the second job at the target site
On Sat, 11 Jul 2020 08:27:54 -0500, Lionel B Dyck wrote:
>This is a very quick and somewhat dirty example:
>
>/* rexx */
> 'alloc f(in) ds(lionel.doc(concinp)) shr reuse'
> 'execio * diskr in (finis stem in.'
> 'free f(in)'
Much more elegant solution.
Lionel B. Dyck <
Website: https://www.lbdsoftware.com
"Worry more about your character than your reputation. Character is what you
are, reputation merely what others think you are." - John Wooden
-Original Message-
From: IBM Mainframe Discussion List On Be
On 11 Jul 2020 08:52:59 -0700, in bit.listserv.ibm-main
(Message-ID:<3911683753066856.wa.paulgboulderaim@listserv.ua.edu>)
000433f07816-dmarc-requ...@listserv.ua.edu (Paul
Gilmartin) wrote:
/* Not making a non-continued line a special case,
I'd simplify the loop to: */
signal on no
On Jul 10, 2020, at 8:10 PM, Tom Conley wrote:
>
> You will need GDDM, and a TN3270 emulator capable of displaying host
> graphics. It's cool when it works, but you will have to scroll up, down,
> right, left to see your whole layout. A huge screen would help.
>
Thanks on all replies. I wis
I don't know if anyone has pointed it out, but if this is a brand new, vanilla
CEC, before you even have to worry about an IODF, you need an IOCDS. Generally
you create that deck from an IODF, and I can't imagine you would choose not to.
All of our CECs are defined in one IODF. For a new mach
Hi All,
I'm installing a software that has to have its own zFS aggregate mounted and
available.
Looking into the USS filesystem I can see many IBM products' zFS aggregates
mounted off /usr/lpp.
I can see no foreign aggregate mounted off /usr/lpp.
However, /usr/lpp is in IBM's Version root whi
On Sat, 11 Jul 2020 12:45:16 -0400, Arthur wrote:
>On 11 Jul 2020 08:52:59 -0700, (Paul Gilmartin) wrote:
>
>>/* Not making a non-continued line a special case,
>> I'd simplify the loop to: */
>>
>>signal on novalue /* Always! */
>>data = ''
>>do i = 1 to in.0
>> parse value in.i with l 72
On Sat, 11 Jul 2020 12:51:04 -0500, Israel Wagshal wrote:
>
>I'm installing a software that has to have its own zFS aggregate mounted and
>available.
>
>Looking into the USS filesystem I can see many IBM products' zFS aggregates
>mounted off /usr/lpp.
>I can see no foreign aggregate mounted off
Correct.
Thanks.
On Fri, 10 Jul 2020 21:19:04 -0500 David Shackelford
wrote:
:>I think you need to clear the "Storage Group Name" and "CDS Name" fields when
switching back from SMS to physical list.
:>The field help for option 1 says those fields must be cleared. (put cursor
on the 1 and hit
Isreal,
> On 11 July 2020, at 15:30, Paul Gilmartin
> <000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
>
> On Sat, 11 Jul 2020 12:51:04 -0500, Israel Wagshal wrote:
>>
>> I'm installing a software that has to have its own zFS aggregate mounted and
>> available.
>>
>> Looking into the
On Sat, 11 Jul 2020 15:30:10 -0500, Paul Gilmartin wrote:
Thank you for pointing to the Filesystem Hierarchy Standard document.
Still, /usr is within the Version root, and its mounting mode must be changed
to RDWR to allow creating subdirectories under /usr/local.
Can this be done on the fly, w
What kind of lines? What RECFM? There are many different continuation rules,
and each of assembler, CLIST, REXX, is different from the others.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV
I issue an IEAMSCHD to and address space which then issues a SCHEDIRB.
The SRB completes, the SCHEDIRB receives R15=0, but the IRB seems to have
vanished without a trace.
Considering the possibility of an abend, I issued a
SLIP,C=XXX,ML=10,J=targetjob,A=SVCD,END
but nothing hits (it did h
You didn't simplify it; you changed the behavior. You're checking for non-blank
while Lionel was checking for plus. Column 72 suggests assembler, but the
concatenation rules are more complicated than what the OP wrote. I have no idea
what the OP wanted, but neither version is correct for assembl
GPSAM is nice for decompreesing Wylbur files, but doesn't address the use of a
single OPEN for multiple members from REXX. You'd still need REXX callable
facilities for OPEN, CLOSE, BLDL*, GET, PUT, FIND and STOW. It might be a nice
way to package some of the logic, but you'd only need a single
Post the code. Set a SLIP in the SRB routine where you issue the SCHEDIRB.
Are you allocating your own IQE/IRB? If so, post the CIRB code.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.
IBM Automatic Binary Optimizer (ABO) is a unique offering that applies
cutting-edge optimization technology to improve the performance of COBOL
applications built with VS COBOL v1.3 to Enterprise COBOL v4.2. You can now try
it out with an improved, easy to use trial cloud service without install
Hi Shmuel,
It's not for any programming language.
It's for key-value pairs such as this.
Sample:
object=blablablablablablablablablablablablablablablabla+
blablablabla
objec2=small
objec3=blablablablablablablablablablablablablablablabla+
blablablablablablablablablablablablablablablablablablab+
bla
That doesn't have anything in column 72. Did you actually mean a trailing plus
in any column? What about a plus followed by spaces?
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on
Hi again,
Specifics I didn't actually expect one would see if I had 72 characters in
an example.
The point is - in col 72, if the line contiunes, there's a +
If there's a continuation, + is the last thing to be found, in col 72.
- KB
‐‐‐ Original Message ‐‐‐
On Sunday, July 12, 202
26 matches
Mail list logo
