You need to use the ALLOC command to define the datasets you use and write to. This is some code I use to copy to a temporary ISPF profile to pre-allocated ISPTLIB (obviously you'll need to allocate it and change the data-class and sysout class);
"Alloc Fi(SYSPRINT) Sysout(Z) Reu"
"Alloc...
Thanks Frank. I made a job that set a highest return code of 12 and then ran the code after that step then as part of it and didn't get the result I wanted.
This is a known problem in batch ISPF where you try and access the ISPSPROF from the ISPTLIB and other jobs are using it even though the disp is share. See http://www-1.ibm.com/support/docview.wss?uid=isg1II02949 for details.
What you can do is allocate ISPTLIB to a temporary dataset then use a...
Does anyone know the offsets of the highest return code in a job that can be accessed using the storage function?
I have written a mini batch scheduler using REXX and it's basically a step that runs at the end of a job and sets a completed flag in a dataset. I was hoping to use storage to...
Well it looks like the problem is the dataset level you are listing doesn't exist. If you don't use quotes the ListC lists datasets prefixed with your userid, e.g. MYID.XXXX.XXXXDS47.IOFLIST as Frank mentioned.
However, you need to bear in mind that ListC lists dataset levels - if you are...
I took did a cut and paste of your code and it works for me. Maybe you need a REXX identifier or are trying to run this as a CList? You are using the right dataset qualifier (please don't consider this insulting - just covering all bases).
You should show what error you received.
You need to remember that the difference is that data in a table is structured in rows and not data like in ISPF edit. Because each row contains data in keys or names, it's not such a simple task as you need to look for the string in either a specific key or name, or all.
I would use something...
You need to use the ALL operand to get the volume. In REXX it would look something like this;
Call Outtrap 'OUT.'
"ListC Lev('MY.DSN') All"
Call Outtrap 'OFF'
do i = 1 to OUT.0
select
when index(OUT.i, 'NONVSAM') > 0 then ,
say 'Dataset - 'word(OUT.i, words(OUT.i))
when...
Have you tried using RXSUBCOM? I haven't done OOREXX for years, but I found this in the help files;
RXSUBCOM LOAD loads a subcommand handler dynamic-link library.
>>-RXSUBCOM---LOAD---envname---+---------+---------------------><
'-dllname-'
Parameters...
NewBee, from your original post I get the impression you are trying to display a panel (as Frank explained) but also trying to do IOF work (from the title and the 'address iof' line).
IOF has a REXX interface but I haven't been inclined to find out how it works so maybe if you explain what...
Hi. Upone reflection I realised that you are trying to run this from a rule. OPS/MVS has 3 area's of execution - from a RULE (what you're doing), from OPSOSF (a TSO address space started task that runs alongside OPS/MVS), and from TSO itself.
From memory you can't make the RULE execution too...
I assume you're talking about an OPS/MVS rule and it's been a while since I had the pleasure of using it, but I believe you can trap the messages with an output trap if it doesn't queue the results.
Something like;
Call Outtrap 'RESP.'
Address 'OPER' "D J,L"
Call Outtrap 'OFF'
Do i = 1 to...
SteveFF's post is correct, but there's a restriction on ISPF variable names and lengths. Date_Month is invalid because it's 10 characters and I don't think _ is allowed.
You could do;
DteMonth = Date('M')
Address 'ISPEXEC' "VPut (DteMonth) Shared"
then in your macro
Address 'ISPEXEC' "VGet...
I am not sure what this error is;
"Record cannot be updated. No record from file IO has been read for update."
Is there a TSO message id associated with it? You can do a "PROF MSGID" before the "Alloc" to get an IKJ message.
Instead of this;
IO.i = overlay(' ', IO.i, 1)
you need;
IO.i =...
This is because you are trying to use desktop REXX commands on a mainframe and it doesn't like it. I think you need something like this (assuming you're changeing the first 3 characters to blanks);
parse upper arg inpf
i=1
say i
say "dsname passed from jcl is:"
say inpf
"Alloc Fi(IO)...
You need to post what CHR is doing - it looks like it's looping and displaying an error panel.
If you want to delete the dataset, why not use IDCAMS or even IEFBR14? Are you deleting records from it?
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.