Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. KiwiREXXDude

    How to use IBM Utilities in REXX

    ...data-class and sysout class); "Alloc Fi(SYSPRINT) Sysout(Z) Reu" "Alloc Fi(SYSIN) New Lrecl(80) DataClas(LOG) DSOrg(PS) Reu" "Alloc Fi(TEMPPROF) Da('SYS1.SISPTENU') Shr Reu" OUT.1 = " COPY I=TEMPPROF,O=ISPTLIB" "Execio * DiskW SYSIN (Stem OUT. Finis)" "IEBCOPY" "Free Fi(SYSPRINT SYSIN TEMPPROF)"
  2. KiwiREXXDude

    Rexx and ISPF panels

    I have done things like that, and recommend calling it as a protected subroutine.
  3. KiwiREXXDude

    Return code position in storage

    That's exactly what I wanted thanks!
  4. KiwiREXXDude

    Return code position in storage

    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.
  5. KiwiREXXDude

    Got a problem with ISPT036 with ISPSPROF?

    ...DD DSN=&&ISPTLIB,DISP=(,DELETE),UNIT=SYSDA, // SPACE=(CYL,(1,1,10),RLSE),LRECL=80,RECFM=FB,BLKSIZE=0 //SYSTSIN DD * COPYTLIB ISPSTART CMD(MYREXX) NEWAPPL(REXX) //* REXX (COPYTLIB): /* Rexx to copy the ISPF profile to a temporary PDS in batch */ "Alloc Fi(SYSPRINT)...
  6. KiwiREXXDude

    Return code position in storage

    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...
  7. KiwiREXXDude

    Need VOLSERs from output tape

    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...
  8. KiwiREXXDude

    Shrink a dataset to smaller column length

    Frank, wouldn't Space do it regardless of the position of the blank? line = Space(line, 0)
  9. KiwiREXXDude

    Need VOLSERs from output tape

    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.
  10. KiwiREXXDude

    ISPF tables

    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...
  11. KiwiREXXDude

    Need VOLSERs from output tape

    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...
  12. KiwiREXXDude

    Calling VB DLL From REXX

    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...
  13. KiwiREXXDude

    How to code a rexx exec to display mvs commands using IOF panel

    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...
  14. KiwiREXXDude

    Grab info from mstr Console

    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...
  15. KiwiREXXDude

    Grab info from mstr Console

    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...
  16. KiwiREXXDude

    Reading Sysout as Input

    Maybe you need to explain why you don't want to write the output to a temp dataset. SteveXFF seems to be on the money.
  17. KiwiREXXDude

    Using REXX variables in ISREDIT

    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...
  18. KiwiREXXDude

    File operations in REXX

    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 =...
  19. KiwiREXXDude

    File operations in REXX

    ...first 3 characters to blanks); parse upper arg inpf i=1 say i say "dsname passed from jcl is:" say inpf "Alloc Fi(IO) Da('"inpf"') Shr Reu" "Execio * DiskRU IO (Stem IO.)" Do i = 1 to IO.0 IO.i = overlay(' ', IO.i, 1) End "Execio * DiskW IO (Stem IO. Finis)" "Free Fi(IO)" say IO.0 "lines...
  20. KiwiREXXDude

    Use ISPSTART running under IKJEFT01 to initiate the ISPF environment

    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?

Part and Inventory Search

Back
Top