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 Rhinorhino 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. ShawnStanford

    Send array to macro

    Hmm... Sorry, when you said 'macro' I assumed you meant you wanted to pass information between REXX routines being used as an ISPF edit macro. Good luck.
  2. ShawnStanford

    Send array to macro

    I didn't write this, I found it. I don't remember where or I'd happily credit the author. /***********************************************************************************************/ /* Set up a TEST stem and add some initial data */...
  3. ShawnStanford

    finding the duplicate and original records.

    Obviously, you can code a COBOL program to do this, but I think you're looking for an MVS utility. SYNCSORT will let you throw duplicates into a dataset (SUM FIELDS=NONE,XSUM), but it won't allow you to throw both records into a dataset. If it was me, I'd sort the dataset with SYNCSORT and...
  4. ShawnStanford

    Sorting an arrary or table

    I have an implementation of a comb sort, which is an enhanced bubble sort that performs on a par with quicksort. This implementation is written to be used as an internal subprogram. It sorts a table area of unknown length and undefined content with specifications passed in linkage. It will sort...
  5. ShawnStanford

    I have the FD, now what? (IBM COBOL LE)

    Okay, it occurred to me that I might be able to create a semi-automatic file error message if I could ferret information out of the DCB. So, I wrote a little routine to test my ability to address what I thought was the DCB: IDENTIFICATION DIVISION. PROGRAM-ID. TESTPASS...
  6. ShawnStanford

    REXX / ISREDIT issue...

    Wierd one here. Based on everything I can reference, the following code should step backwards through the labelled lines in a member being edited and unlabel them as it goes. However, when it completes the labels are still visible. If I immediately run the macro again, I get no output as if...
  7. ShawnStanford

    Odd VSAM problem...

    Thanks everyone for your help, but it was a case of 'Duh'. The problem was that an internally maintained end-of-file flag wasn't actually being maintained; it would be turned on but not turned off. This controlled the movement of any retrieved records to linkage for passing back to the calling...
  8. ShawnStanford

    Odd VSAM problem...

    The second called program - the one actually doing the I/O - needs to retain its storage between calls, since it has the FD for the file and such. I don't think it's a 'by reference' problem, since the two data items passed back and forth - the record and a status word - make it just fine. The...
  9. ShawnStanford

    Odd VSAM problem...

    A pirate walks up to a bar and says, "Arrr, I'll be havin' a beer." The bartender pours him a beer and sets it down, then notices that the pirate has a steering wheel sticking out of the fly of his pants. "Hey, buddy," the bartender says. "Does that steering wheel bother you at all?" The pirate...
  10. ShawnStanford

    Retrieving ISPF 'MESSAGE' lines - possible?

    That code initially didn't work for me. However, it did give me a critical hint, so a quick Google search for 'rexx screeni' turned up the missing piece: /* REXX */ ADDRESS ISPEXEC 'VGET (ZSCREENI,ZSCREENC,ZENVIR)' SAY ZSCREENI RETURN which returns this: File Edit Edit_Settings...
  11. ShawnStanford

    Retrieving ISPF 'MESSAGE' lines - possible?

    Yeah, that's an idea. I already have a macro set up to handle compiles that way, so I can steal a lot of the code. It just seemed to me that since I could type 'MD' (Make Data) into a message line and stuff it into the editor, I ought to be able to grab them somehow. Clearly the editor knows...
  12. ShawnStanford

    Retrieving ISPF 'MESSAGE' lines - possible?

    Hi all. I'm in a Big Iron shop working with a JCL checker called 'JEM' (at least, that's the command line for it). It throws up a series of messages showing me what it didn't like about the JCL it's checking, including files it didn't find. Most of the time, I'm looking for a test version of a...
  13. ShawnStanford

    Hi ! I have a rexx program in a

    //IKJEFT01 EXEC PGM=IKJEFT01 //SYSEXEC DD DSN=IDIOT.REXX.EXEC, // DISP=SHR //SYSPRINT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSIN DD DUMMY //SYSTSIN DD * EXECUTIL SEARCHDD(YES) RXPGM /*
  14. ShawnStanford

    Test bit settings??

    If you want the quick and easy way, build a table of expanded bits in WORKING STORAGE and reference the bit you want using your value and reference mod. For instance: 01 BIT-TABLE-ENTRIES. 05 BIT-TABLE-ENTRY-00 PIC X(08) VALUE '00000000'. ... through ... 05...

Part and Inventory Search

Back
Top