Search results for query: *

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.

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 */...

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

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

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

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

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

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

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

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

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

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

//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 /*

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