Search results for query: *

I have a similar, but much fancier, version of this approach using Attachmate Reflection VBA and the Excel object model. Good shop standards helped out there as we always display "Page xxx of xxx" in the upper right corner of multi-page screens. Makes handling the paging easier. The macro is...

This is actually quite easy with Attachmate's Reflection product which the poster is using. I'm using it very successfully with TSO. Two comments: 1. I SetCurrentDirectory only for retrieval of members from PDSes. It should not be needed for a fully-qualified filename such as the one shown...

So, the following should do the needed replacement: INSPECT WS-TEXT REPLACING ALL X"25" BY "-"

Randy - I won't defend Nic's post, but I will point out that those of us who are experienced COBOL coders are often asked questions which could be easily answered if one were simply to read/study the manual. I, for one, am amazed at the number of COBOL coders who have never opened the manual...

This should be a simple problem given that this is an introductory COBOL course. The compiler involved likely is at least 1985 standard compliant which means it should support de-edited moves: 01 WS-INPUT-NUMBER PIC 9(6).99. 01 WS-OUTPUT-NUMBER PIC ZZZ,ZZ9.99. ... MOVE WS-INPUT-NUMBER...

I am trying to use the Reflection settings.rsu file to distribute custom settings to my users. I have followed the directions in the tech note 1566 but can't seem to get it to work reliably. Anyone have any thoughts? Thanks, Glenn

As suggested, you should confirm the ADV/NOADV option is consistent between the compilers. IIRC, your system programmer can set defaults for the installation and they may very well be different from previous defaults. Confirm the options on the compile listing match between the old and new...

VSE is picky on this one. You can't use variable files because the records do not contain the necessary length information at the beginning of each record/block. VSE also does not support the same record length information in the file labels that z/OS does, so you generally have to get the DTF...

No big deal I think. 1. Count the number of 9's in the PIC, e.g. S9(3)V9(4) has seven 9's. Store in NUMBER-OF-NINES. 2. As part of the counting above, retain the number of nines following the decimal point. Store in NUMBER-OF-DECIMALS. 3. Do something like this to get the field moved to...

I've seen this issue before. The record you've defined in the AIX is 1,000 bytes. That has to contain the key and the RBA of EACH duplicate base record for that key. Try increasing the record size. Regards, Glenn

I believe your only choice is to disable the transaction, not a particular map or program. Regards, Glenn

You might want to use LE callable services to get the local time in YYYYMMDDHHMMSS999 format (CEELOCT). Check the LE programming guide for details. Regards, Glenn

I should also point you to the FAQ: faq209-5154

PHV is correct. COMP-2 is normally double-precision floating-point. Implementation is hardware dependent. Many vendors implement floating-point following the IEEE standard. See http://en.wikipedia.org/wiki/IEEE_floating-point_standard. Regards, Glenn

TonHu - Points well taken. If you'll re-read my post, I don't think I made the claim that VB/VBA is a truly OO language environment. I guess I'm principally influenced by the questioner's desire to "learn something about OOP and GUI programming." I think VB/VBA can teach you many useful OO...

If I were you, I'd pick up a text on VBA or look into some of the tutorials on the web. Visual Basic for Applications is supported in Microsoft Excel, Word, Outlook, and many other products (including some non-Microsoft ones). I'd go that way for a few reasons: 1. Standard object-oriented...

The process I've always used for this sort of thing is to do the conversion by writing code to parse the input string following whatever rules are appropriate for your input (leading or trailing sign, implied or actual decimal point provided, maximum value allowed, embedded separators...

Mainframe COBOL has used the same sort engine for many years (always as far as I know). Nevertheless, many mainframe shops do not allow internal COBOL sorts because they are much more inefficient than standalone sorts. THe reason is that DFHSORT (and other sort products like SYNCSORT) is...

The behavior you describe is very strange. AFAIK, FDs in separate routines are independent of each other unless EXTERNAL is specified. You should ALWAYS get a 47 unless the file is opened by ProgramC. What is your environment? Regards, Glenn

No trivial solution comes to my mind for this. It's hard to provide the best solution for your situation without more information, but a fairly general approach is to loop through the input field. Test each byte for numeric and, if numeric, move it to the output field. Something like: 01...