Recent content by 3gm

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