Calling system programs from COBOL is doable provided you use the correct
calling conventions.
I OS we have two different ways of passing parms ... Generally see
https://www.ibm.com/docs/en/cobol-zos/6.3?topic=statements-call-statement
by Reference, content or value...
Check out
https://www
I am doing some utility routines for a product I'm working on.
I have used ISPQRY in REXX code but that was under IKJEFT* (I
have tried it with various combinations).
So I thought I'd just stick a dynamic call to ISPQRY into a COBOL
program and have it spit out what it got back.
So, if the
Just taking a guess here: Most ISPF services run at the same task level as
the invoking user program. I believe that EDIT (and View) run at a
different task level, and therefore may not have access to the same
parameter pointers.
OREXXMan
Q: What do you call the residence of the ungulate with t
ary 6, 2023 11:32 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Having a little difficulty with a REXX command LMOPEN
On Mon, 6 Feb 2023 15:29:01 +, Seymour J Metz wrote:
>It follows TSO command conventions, so in that sense it is a TSO command, but
>it is in an ISPF library.
>
So &
On Mon, 6 Feb 2023 15:29:01 +, Seymour J Metz wrote:
>It follows TSO command conventions, so in that sense it is a TSO command, but
>it is in an ISPF library.
>
So 'ADDRESS TSO "ISPQRY"' fails if ISPF libraries are not allocated?
Did you mean trimodal?
By "bimodal" I meant ISPF vs. non-IS
Monday, February 6, 2023 9:53 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Having a little difficulty with a REXX command LMOPEN
On Mon, 6 Feb 2023 04:48:09 +, Seymour J Metz wrote:
>I would probably use ISPQRY, but your usage is shorter.
>
But does that require TSO? I wanted to be TSO
- - - John Wooden
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Paul Gilmartin
Sent: Monday, February 6, 2023 8:54 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Having a little difficulty with a REXX command LMOPEN
On Mon, 6 Feb 2023 04:48:09 +, Seymour J Met
On Mon, 6 Feb 2023 04:48:09 +, Seymour J Metz wrote:
>I would probably use ISPQRY, but your usage is shorter.
>
But does that require TSO? I wanted to be TSO-independent:
z/OS 2.5 ISPF Services Guide
IBM SC19-3626-50
Under TSO/E REXX that uses ADDRESS TSO you can use:
"ISPQRY"
ct: Re: Having a little difficulty with a REXX command LMOPEN
On Mon, 6 Feb 2023 01:33:47 +, Seymour J Metz wrote:
>Are you sure you want to use say rather than, e.g., ADDRESS ISPEXEC DISPLAY
>'MSG(ISRZ002)'?
>
Thrtr are scripts intended to be bimodal where I have dome:
ADD
On Mon, 6 Feb 2023 01:33:47 +, Seymour J Metz wrote:
>Are you sure you want to use say rather than, e.g., ADDRESS ISPEXEC DISPLAY
>'MSG(ISRZ002)'?
>
Thrtr are scripts intended to be bimodal where I have dome:
ADDRESS ISPEXEC DISPLAY 'MSG(ISRZ002)'
IF RC<>0 THEN DO /* ISPF not active.
4:59 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Having a little difficulty with a REXX command LMOPEN
Here is my DO/END Loop.
I am copying members from a previous Backup Library, back into my execution
Library, using an input list to derive a MEMBER Name (I have named this string
variable
gt; Iterate
>
> /* signal evac */
> End
>
> Else Do
> replFl = 'REPLACE'
> "LMMOVE FROMID("Nbkp") TODATAID("Nlib")",
> "FROMMEM("rComp") "replFl
> If rc /= 0 Then Do
> er
iginal Message-
From: IBM Mainframe Discussion List On Behalf Of
Cameron Conacher
Sent: Sunday, February 5, 2023 3:59 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Having a little difficulty with a REXX command LMOPEN
Here is my DO/END Loop.
I am copying members from a previous Backup Library
Do
rptRsn = 'Move from N-Backup library complete'
End
End
call buildrpt
"LMMLIST Dataid("Nbkp") OPTION(free)"
"LMCLOSE Dataid("Nlib")"
"LMFREE Dataid("Nbkp")"
"LMFREE Dataid("Nlib&quo
> signal evac
> End
> Else Do
> rptRsn = 'Move from N-Backup library complete'
> End
>End
>call buildrpt
>"LMMLIST Dataid("Nbkp") OPTION(free)"
>"LMCLOSE Dataid("Nlib")"
>
kup library complete'
End
End
call buildrpt
"LMMLIST Dataid("Nbkp") OPTION(free)"
"LMCLOSE Dataid("Nlib")"
"LMFREE Dataid("Nbkp")"
"LMFREE Dataid("Nlib")"
End
Thanks
…….Cameron
From: IBM Mai
Behalf
> Of Lionel B. Dyck
> Sent: Friday, February 3, 2023 8:39 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: [External] Re: Having a little difficulty with a REXX command
> LMOPEN
>
> Here is a sample that I wrote awhile ago to better understand how lmcopy
> works - hope
...Cameron
From: IBM Mainframe Discussion List On Behalf Of
Lionel B. Dyck
Sent: Friday, February 3, 2023 8:39 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] Re: Having a little difficulty with a REXX command LMOPEN
Here is a sample that I wrote awhile ago to better understand how lmcopy
works
When you get the error, display zerrsm and zerrlm.
We need to see your code.
I think Seymour is asking the right question.
On Fri, 3 Feb 2023, 07:19 Cameron Conacher, <03cfc59146bb-dmarc-
requ...@listserv.ua.edu> wrote:
> Good Morning,
> I have a small REXX which essentially copies members
;
Sent: Friday, February 3, 2023 8:18 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Having a little difficulty with a REXX command LMOPEN
Good Morning,
I have a small REXX which essentially copies members of one PDSE to another.
It iterates over members of the first PDSE and copies the members to the
, reputation merely what others think you are. - - - John Wooden
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Cameron Conacher
Sent: Friday, February 3, 2023 7:19 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Having a little difficulty with a REXX command LMOPEN
Good Mo
What functions are you using to copy the members…
https://www.ibm.com/docs/en/zos/2.1.0?topic=services-lmopen-open-data-set
There is a mention in the link that LMMOVE AND LMCOPY don’t require LMOPEN.
Also are you following the LMOPEN with and LMCLOSE?
You might need to create a list on mem
Good Morning,
I have a small REXX which essentially copies members of one PDSE to another.
It iterates over members of the first PDSE and copies the members to the second
PDSE.
After about eighty members are copied, my LMOPEN fails with a return code of 8.
I checked the manual and a return code
23 matches
Mail list logo
