I received it thru the list.
Haven't received one privately, yet.
Charles Hardee
CA technologies
Sr Sustaining Engineer
Tel: +1-952-838-1039
charles.har...@ca.com
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of
Shane Ginnane
Sent:
Hardee
CA technologies
Sr Sustaining Engineer
Tel: +1-952-838-1039
charles.har...@ca.com
-Original Message-
From: Hardee, Charles H
Sent: Friday, August 05, 2011 7:06 AM
To: 'IBM Mainframe Discussion List'
Subject: RE: A nice website,go it
I received it thru the list.
Haven't received one
I'm using 2007 and when I right click on the message and choose message
options in the list, I get internet headers in the display. Is that what
you're looking for?
Chuck
Charles Hardee
CA technologies
Sr Sustaining Engineer
Tel: +1-952-838-1039
charles.har...@ca.com
-Original
, John
Sent: Friday, July 15, 2011 2:33 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: FW: Mysterious Email (original had no subject)
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Hardee, Charles H
I'm using 2007 and when I right click on the message and choose
message
Allan, at first I thought that might be the problem, but the OP stated that
ONLY the VSHDEBUG output is gone, the rest of the output was present and if you
look at the DDs that were supplied, they ALL stated SYSOUT=* (see below for
original post).
So, what makes VSHDEBUG go away if the other
List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of
Walt Farrell
Sent: Tuesday, June 28, 2011 9:41 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: DD mystery
On Tue, 28 Jun 2011 10:17:08 -0400, Hardee, Charles H
charles.har...@ca.com wrote:
Allan, at first I thought that might be the problem, but the OP stated
Are you really using CLIST or are you using CLIST interchangeably with REXX and
you are using a REXX program?
If you are really using a REXX, why not do this and leave the PROFILE option
alone.
/* rexx */
) and
archives them.
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of
Hardee, Charles H
Sent: Monday, June 13, 2011 10:43 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: TSO STATUS and IKJ56192I/IKJ56211I msgs
Are you really using CLIST or are you
Hello Everyone,
I am in need of locating the where the MEMLIMT value is stored for the
active job.
Can anyone out there give me an idea of where to look?
Also, if you know, is the value stored in the address space control
block, whatever block that is, a merged value between the system
Thanks Dan and Mark, however I am now confused, but not by anything
either of said.
Dan, in the dump I am looking at, I found the SCTX and it does, in fact,
have the value you indicate.
Mark, I found the RAX in this dump and it, too, had the same value as
found in the SCTX.
However, and this is
Phil,
If memory serves me correctly, you need an ALIAS for the second entry point.
Or, you need to link it under the second entry name, naming the secondary entry
point as the entry.
I don't recall which, but this might help you get further.
Chuck
Charles Hardee
CA technologies
Sr Sustaining
Try this: EVALMAP EQ 1900093C. SELECT(STRUCTURE) REXX(ADDRESS(XADDR))
Chuck
Charles Hardee
CA technologies
Sr Sustaining Engineer
Tel: +1-952-838-1039
charles.har...@ca.com
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of
Binyamin
Hold on a moment.
Michael, you said you had to add C2X() to the statement. Are you using an
EVALUATE command requesting the data be returned in character format? If so,
are you using the UNFORMATTED operand as well?
I don't remember which release of z/OS and its related IPCS implemented it,
No, you still need to have the seconds position at a minimum for a borrow.
You're really better off subtracting the two STCK values using either the
entire binary number or, the remaining digits after taking off the right 12
bits.
Assuming addr below points to where your TOD value is, and I
At the risk of assuming something, I suspect that the 26 character TOD is a
formatted string like this /MM/DD.HH:MM:SS.XX
The XX on the end would be microseconds.
Chuck
Charles Hardee
CA technologies
Sr Sustaining Engineer
Tel: +1-952-838-1039
charles.har...@ca.com
Larry,
Your command delimiter is currently set to semi-colon (;).
So, ISPF thinks that the exclude command is really 2 commands and the first,
the exclude, only has 1 quotation mark.
Go to option 0 and change the command delimiter to something else then try your
exclude again.
Don't forget to
After you have coded, assembled and linked your model(s).
Place the loadlib to where you linked it into the STEPLIB concatenation if you
have the ability or, as others have already stated, place use TSOLIB to
allocate it to your TSO session prior to invoking ISPF/PDF and subsequently
IPCS.
Michael,
STRUCTURE is a option of the EQUATE command, well indirectly. It is actually
part of the data-description options that are common to most IPCS commands.
EQ mytcb 00123400 STRUCTURE(tcb)
Then if you:
CBFORMAT mytcb
you will get a TCB structure formatted starting with location mytcb,
Yann,
If you use the REXX code supplied by Jon L. Veilleux below, you will be able to
get the dsn and member name.
At the point in his code where the IF is triggered, sysoutline.x will
contain the information you seek. Simply parse sysoutline.x into 2 variables,
something like parse var
No, LISTDSI will not work, at least not for me. Here's my REXX (based on Jon's
earlier REXX):
/* rexx */
Z=OUTTRAP(SYSOUTLINE.,'*',NOCONCAT)
ADDRESS TSO
INDEX=' '
LISTALC STATUS
Jim,
How do you want to see the results? For instance, open the PDS using ISPF/Edit
or View and then type SRCHFOR string where string is what you want to find,
then hit ENTER. The resulting scan will place *Found in the prompt column.
Place your cursor on the Column header, Prompt and press
@bama.ua.edu
Subject: Re: how to identify members that DO NOT contain a string
On Wed, Jul 21, 2010 at 3:20 PM, Hardee, Charles H charles.har...@ca.comwrote:
Jim,
How do you want to see the results? For instance, open the PDS using
ISPF/Edit or View and then type SRCHFOR string where string is what
Hi Don,
01 WK-NDX PIC S9(04) COMP.
01 WK-ZONE PIC S9(04) COMP.
01 WK-DIGITPIC S9(04) COMP.
01 TEXT-LENGTH PIC S9(04) COMP.
01 TEXT-FIELD.
05 TEXT-CHAR PIC X(01)
Try this simple rexx:
/* rexx */
lovalue = 0
hivalue = 9
/*testvalue = 0'FA'x000 */
Hi Dave,
I forwarded your message on to one of the support managers here at CA.
She replied with the following:
Quote
There were changes made to Support Online over the weekend which
implemented a single signon. Have your tried the age old solution of
deleting
your cookies and closing the
Depends on who was in control when the asked for storage and how the
system reacts to the request.
I get the same problem when I run one of my IPCS REXXes. In fact, I've
opened a problem with IBM and they are looking into what causes the IPCS
problem.
-Original Message-
From: IBM
] On
Behalf Of Lindy Mayfield
Sent: Monday, March 29, 2010 4:09 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: How to find loadlib in a dump?
you get 80A abends?
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Hardee, Charles H
Sent: 30. maaliskuuta
I just sent GET IBM-MAIN INFO to the listserv and it worked just fine.
Do you have ANYTHING else in your message body? A signature perhaps.
The body, as far as I know must contain nothing but the instruction.
-Original Message-
From: IBM Mainframe Discussion List
Could your mail server be adding something to the email as it goes out?
The body must be empty as far as I know.
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Walter Marguccio
Sent: Thursday, March 25, 2010 10:39 AM
To:
I've tried this and if it were me, I wouldn't go for it.
TSOCMD;foo bar
works, for what is requested, that is, the exec gets bar in lower case and
both the say before and after the parse command cause the display of lower
case bar, but when the exec ends, which is where I have the problem, I
That's the problem. I've fought this battle before and can't figure out the
winning move.
There's no easy solution. Some are better than others and some are near
impossible to do due to policies in effect at one's site, etc.
I would really love to see the ISPF tool changed to support lower
Charles,
Is FOO a REXX EXEC or a CLIST. They are not the same. REXX is one
command set and processor and CLIST is a completely different command
set and processor.
With respect to your question, I have never been successful getting
lower case passed to a CLIST however, I have never had a problem
Charles,
I copied your statements into a new member in my REXX PDS and executed
it and I got:
File Edit Edit_Settings Menu Utilities
FOOHARCH03.REXX.EXEC(FOO) - 01.00
Command === tso foo bar
**
Yeah, I just tried it from the ISPF main menu and I got upper case for
both of the say statements.
I second that Grrr, Grrr!
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Charles Mills
Sent: Monday, March 01, 2010 12:14 PM
To:
Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf
Of Hardee, Charles H
Sent: Monday, March 01, 2010 9:26 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Mixed case to a CLIST from ISPF command line?
Charles,
Is FOO a REXX EXEC or a CLIST. They are not the same. REXX is one
command set
If you really want to twist the knife with those PC weenies, point them
here:
http://www.frozencpu.com/cat/l1/g30/Liquid_Cooling.html?id=rWHp49Wp
I can't say that it's water cooling, but this is one of many suppliers
of liquid
cooling add-ons for the PC, and they've been available for many years
According to:
http://publib.boulder.ibm.com/infocenter/zos/v1r9/index.jsp?topic=/com.i
bm.zos.r9.ikjb700/inurp.htm
error 23 indicates:
Processing unsuccessful; the IKJURPS service was invoked in an
environment in which the TSO/E TMP cannot process an IKJURPS request.
For example, during LOGON
Hello Group,
Has anyone ever experienced an 878-10 abend in IPCS while processing a
dump?
Without going into details, what I am attempting to do is read every
page in a dump in order to scan the page for a particular string.
I am using a REXX (found at the end of this note) that simply
, January 26, 2010 12:27 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: 878-10 abend in IPCS
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Edward Jaffe
Hardee, Charles H wrote:
Has anyone ever experienced an 878-10 abend in IPCS while processing
a
dump?
I used to get
Hi Tony,
That would work as long as the dump format never changed down the road.
While it is pretty straight forward to do, and I have done it as a test,
I don't want to get into something I have to check on each new release
of z/OS. Couple that with the fact that after I find an occurrence of
the
I, too, don't see how they can be more secure.
Possession is supposedly 9/10ths as the saying goes, but unless there's
something bio-metric in the chip/card/human being relationship, I would
have to say that the chips cards are no more, if not less, secure than
the regular plastic we use today.
Hello Everyone,
I am looking into the fields found in LE's Common Anchor Area (CEECAA).
When I assemble the DSECT I get fields mapped from x'000' to x'38F'.
This matches the Language Environment Debugging Guide.
However, when I run the IPCS LEDATA ALL processor, it maps data out to
a
Yes, you can.
In fact, we use a generic logon REXX that looks to see if the user has a
logon exit CLIST or REXX available and run it after the standard
allocations are performed. In the exit CLIST or REXX one can use the
CONCAT utility mentioned earlier to add other PDS files to any DD they
want
I agree with Paul, why do you call this a problem.
As Paul indicates, the substituted values would be those in effect when
the step (EXEC as Paul said) is reached.
If you have a SET for a variable name prior to step 1 and then a SET for
the same variable name prior to step 2, isn't the intention
What number Altair Kit did you get?
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Mikhail Ramendik
Sent: Tuesday, September 01, 2009 11:01 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: 33 Years In IT/Security/Audit
2009/9/1 Doc Farmer
Has anyone ever ran compiled REXX under IPCS?
What about compiled and linked REXX under IPCS?
If so, any experiences you would like to relate?
Thanks,
Chuck
snip
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Patrick O'Keefe
Sent:
Ray,
Try this:
(I am assuming DDX is pre-allocated to your session, batch or
interactive)
DSIRC = LISTDSI(DDX FILE)
if DSIRC = 0 then
say DDX is allocated to file SYSDSNAME on volume SYSVOLUME which
is of type SYSUNIT
exit
Chuck
-Original Message-
From: IBM Mainframe Discussion
Ray,
Using your basic REXX, open the PDS with LRECL 256, etc, and read in the
directory entries into a stem.
Then, once the directory is loaded, close the PDS.
Now, with library management services, you should be able to walk thru
your stem and for each member issue a LM call and delete the
Hello Everyone,
I am in need of determining the SYSOUT class associated with a DD in a
job's JCL stream.
I have examined DYNALLOC and find no SVC99 text unit that can tell me
what I need to know.
I have also examined the returned information from RDJFCB and, alas, it,
too, is void of the
They were probably using the Windoze Calculator on an Intel Based
Pentium PC.
You know how accurate those CPUs are...
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Schwarz, Barry A
Sent: Monday, June 08, 2009 1:52 PM
To:
Gilbert,
Try this:
PROC 0
CONTROL MSG LIST CON
SET X = STR( AA-BB )
SET NEWX = STR()
John,
If this is an opportunity to fix something that already exists, then
this may not be a solution for you. On the other hand, if this is
something the programmer is working on tight now, that is, in
development, consider this.
What if you removed the AIX option from the problem completely.
Are you thinking of: SCRNAME screen name [PERM|ON|OFF]?
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Field, Alan C.
Sent: Monday, April 27, 2009 11:23 AM
To: IBM-MAIN@bama.ua.edu
Subject: ISPF Question
I think it was on IBM-MAIN I saw
This, Jim, is extremely sad new.
Though I did not know him, he has helped me tremendously on different
IPCS projects for the years.
He will be greatly missed.
My prayers and condolences go to his loved ones.
Chuck
-Original Message-
From: IBM Mainframe Discussion List
I haven't done CICS in ages, and I mean ages.
So, if IDMSINTC is something we deliver and link via SMP/E, then I
suspect the fix I have may come into play here.
However, if the client assembles something and then links it together,
if we document a suggested link edit process, we need to make
Sorry everyone, this got sent to the wrong place.
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On
Behalf Of Hardee, Charles H
Sent: Monday, February 09, 2009 1:20 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: Extracting in-stream dataset (i.e. SYSIN
Make sure you don't have and SLIPs coded for the abend condition you're testing
that have instructions to bypass the (E)STAE processing.
I was testing a change to one of our (E)STAE routines and kept thinking my
change wasn't working so I went to put a SLIP on to monitor instruction fetch
in
Jim, you're right!
My apologies. The problem I experienced was that I was adding some logic to
take a dump under certain conditions when our (E)STAE got control. It was the
dump that I wasn't getting and when I looked into it, there was a SLIP that had
been set to bypass dump processing for the
Is the PROCLIB on a DASD volume accessible to the other system?
If so, why not code a JCLLIB statement:
//LIBSRCH JCLLIB ORDER=PROCLIB.ON.OTHER.MVS
Then, use a SYSAFF statement to send the job to the appropriate MVS:
/*JOBPARM SYSAFF=MVSB
So, you would have something similar to:
//RUNONB
Subject: Re: appending userid in a file
Don't know where you are looking but I use this all the time:
SYSUID=USERID()
Jon L. Veilleux
[EMAIL PROTECTED]
(860) 636-2683
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Hardee, Charles H
Ron,
I just went back thru the REXX manual and I sure don't see a function
called USERID().
However, there is the function SYSVAR() which takes, among others, the
following parameters:
SYSPREF - The prefix as defined in the user profile
SYSUID - the user id under which the current
Luis,
That is not quite correct.
You can use double quotes or the apostrophe as long as they are paired.
If you start a literal with an apostrophe, you must end the literal with
an apostrophe.
If you start it with the double quote character, then you must end it
with a double quote character:
Can you post the first 5 or 6 lines in a fixed pitch font like Courier?
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at
Bob is absolutely correct.
I needed CSECT information for a project I was working on that was
analyzing a dump using IPCS. I ended up dynamically calling AMBLIST,
feeding it control statements and then parsing it's output.
The process was to automate checking whether a client had certain
patches
Regarding the TSO/ISPF Screen swapping command SWAP name.
Is there anyone out there that knows how to invoke the SCRNAME command
from within a REXX and/or CLIST?
I have an IMACRO set for most, if not all, of my files and I would like
to modify it to issue the SCRNAME command using the member name
Hi John,
Thanks for the thought. I've tried that and either I have something not
quite right, or it doesn't work any longer. This is what I have:
ISPEXEC VGET (ZDEL)
SET CMD = STR(SCRNAME ONZDEL.SCRNAME MEMBERNM PERM)
ISPEXEC DISPLAY PANEL(FAKETSO)
snip
Remove the ampersand from your COMMAND(CMD) operand. Also, add an
)INIT
section to your fake panel with a .RESP=END statment following it.
ISPEXEC VGET (ZDEL)
SET CMD = STR(SCRNAME ONZDEL.SCRNAME MEMBERNM PERM)
ISPEXEC DISPLAY PANEL(FAKETSO) COMMAND(CMD)
)BODY
blank line
)INIT
Actually, everything I do I try to do in REXX.
Unfortunately, some things are still in CLIST and
beyond my control to change, else changed they would be.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send
Fantablous movie!
Computer takes over the world, almost!
Classic!
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Rick Fochtman
Sent: Tuesday, May 13, 2008 1:59 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Mainframe programming vs the Web
John,
snip
Yea, I gave them those references. They're gonna scream: I didn't need
to do that in the PAST!!! sobwhinemoan
/snip
Were you running on multiple physical machines in the past? Or a single
machine, single LPAR in the past? If so, then you need to remind them
that file locking, in
Point IPCSPARM to the appropriate parmlib.
At least that's what I do and it runs fine for me.
Chuck
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Binyamin Dissen
Sent: Friday, May 02, 2008 6:39 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: What is
Hello Everyone,
In IPCS, option 2 (ANALYSIS), option 6 (COMPONENT), Select XESDATA
(bottom of the screen). On the next screen, select SUMMARY and FACILITY
and start the XESDATA subcommand.
Page through the output and you'll see something like this:
SUMMARY OF COUPLING
Edward,
It may be better asked off list, but I have been wondering the same
thing for a long time as well. Frankly, I'm glad the question was asked.
Can anyone offer a definitive answer? Or just speculation?
Chuck
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL
Consider this:
05 INPUT-VALUE.
10 IVC OCCURS 5 TIMES PIC X(01).
05 OUTPUT-VALUEPIC S9(07) DISPLAY.
05 WORK-VALUEPIC S9(04) COMP.
05 WORK-VALUE-RREDEFINES WORK-VALUE.
10 FILLER PIC X(01).
10 WVC PIC X(01).
05 IX
1) import them into your spreadsheet
2) Select them all to copy them
3) Right click on the selected entries and click on COPY
4) Move down 1 row in the first column
5) Right click in this column and select PASTE SPECIAL
6) On the paste special, click the selection Transpose
7) Click on OK
8) After
Radoslaw,
Have you tried loading the data in reverse key order? (10, 9, 8, 7, etc)
Chuck
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of R.S.
Sent: Monday, December 03, 2007 11:03 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: KSDS CA split, no CI
Radoslaw,
Have you tried loading the data in reverse key order? (10, 9, 8, 7, etc)
Chuck
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of R.S.
Sent: Monday, December 03, 2007 11:03 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: KSDS CA split, no CI
And a lot of the roads have those bumps between the lanes.
Aren't they for Braille driving?
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Binyamin Dissen
Sent: Thursday, November 08, 2007 12:10 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: High
snip
The question earlier today about getting the address of a branch
instruction out of a dump. One of the responses indicated that if at a
specific level of z/os and on a specific level of hardware, the address
would be in the dump. Does this mean branch tracing is active all the
time? The
Thanks Don.
-Original Message-
From: IBM M7ainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Don Poitras
Sent: Wednesday, November 07, 2007 8:41 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Another Branch Trace question
Hardee, Charles H wrote:
In reference to the level of z
Just a thought, since I'm not a DB2 person, can you wrap the SQL
statement between a MACRO header and MEND at the beginning of your
program and then use the generated macro to any advantage?
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Ron
Al,
The KEY() piece of data in a storage display indicates the storage key
the block is in, whether it is protected or not, has it been referenced
and has it been changed.
The last time I looked this up, and I don't remember where I found it,
the KEY() value decodes to the following:
KEY() = ??
If it was M$, they would have been told to put the server back on the
truck and try to take it off again and then see if t works :)
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Ed Gould
Sent: Tuesday, August 28, 2007 6:48 PM
To:
Hey Sherman (completing the reference),
If my memory serves me correctly, and lately I'm not sure, the option to
which you refer is PMAP.
Chuck
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Rugen, Len
Sent: Wednesday, August 01, 2007
Put a + sign at the end of each line except the last:
//SYSTSIN DD *
%BLSCBSUQ WMSB.TCPIP.TRACE.SYSN.DATA.G0021V00
//COMMAND DD *
CTRACE COMP(SYSTCPDA) +
START(07/26/07,09.16.42.548700) +
Thanks for the info Bob.
Unfortunately, this is a report currently being produced via code from a
CLIST. I'm not sure I want to add much code to it, however, as the
CLISTs are in the process of being converted to REX EXECs.
In any case, your info seems to be something that would be available to
a
Hi Bob,
What about simply another internal variable, similar to say, TITLE.
One could then code
For Page: EVAL PAGENUM CLIST|REXX(STO(variable_name))
For Line: EVAL LINENUM CLIST|REXX(STO(variable_name))
I mean, if one could dream and hope, I would think this might be the
easiest
Hello Fellow Listers,
Does anyone know if there is a means of finding our what page and/or
line on a page one is in when running IPCS in batch and producing a
report using REXX or CLIST commands?
Also, does anyone know if there is an IPCS list like IBM Main?
Thanks,
Chuck
Paul,
I don't agree.
When you transfer data in ASCII mode, unless you tell ftp to *not* add
CRLF to the record, each record will get a CRLF added to it as it is
stored. This is evidenced by your display having 3 lines for FOO3 and 4
lines for FOO4.
On the other hand, when you ask ftp to
Yes, I did, and I don't appreciate things like this.
This list, to me, is a source of problem/idea interaction, not a means
to plug one's business or drum up new clients (with some exceptions for
certain list members that contribute much more than they advertise).
Chuck
-Original
I would suspect they got the addresses from the membership list.
I do not have the luxury of attending these outside meetings so the only
thing I really have in common with the vast majority of everyone else
here is this list.
Chuck
-Original Message-
From: IBM Mainframe Discussion List
I thought I saw a memo, but I thought it was referring to vitamins
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of McKown, John
Sent: Thursday, May 24, 2007 2:11 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: Non-Standard Mainframe Language?
Bill
Doesn't the EXEC parameter imply that you want the member prepared for
compilation? Shouldn't you be using PUNCH instead and then supply an
LRECl for the punch file of 121 or 133, or whatever you want?
Chuck
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL
I can get there just fine using the link you supplied.
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of David Day
Sent: Thursday, May 17, 2007 7:58 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: z/os publications...can't get to website...help wanted
You can do the following:
05 HEX-DATA.
10 HEX-NUMERIC PIC S9(9) COMP.
05 HEX-DIGIT OCCURS 8 TIMES
PIC 9(1) COMP.
05 DIGIT-INDEXPIC S9(04) COMP.
05 HEX-STRING
10 STRING-CHAR
Try this link to IBM's manuals on the 'net:
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2M671/12.4
16?SHELF=EZ2ZO10IDT=20070118143320CASE=
This will take you to the IDC3009 message.
However, two questions I have is 1) what is the 90, reason code or
return code? And 2) is it
Try this for your line 8 statement:
varvalue=QUAL1.vqual2a||vqual2b.QUAL3
With the above, I get:
4 *-* vqual2a='QUAL'
5 *-* vqual2b='2'
6 *-* varvalue=QUAL1.vqual2a||vqual2b.QUAL3
7 *-* interpret
Hans,
Try this:
/* REXX */
arg debugopt
if debugopt = DEBUG then trace all
iobuff = LIB SDSNCLST [EMAIL PROTECTED]
parse var iobuff . varname varvalue .
say variable name: varname
say Variable Valu: varvalue
dsn. =
dsn.0 = 0
do forever
parse var varvalue
According to the IBM Jargon and General Computing Dictionary, Tenth
Edition, preface signed:
Mike Cowlishaw (MFC at VENTA)
IBM UK Laboratories,
Hursley Park,
Winchester, UK
The following is the definition of CLIP:
CLIP (klip) v. To change the (magnetic) pack label
on a DASD volume (disk pack).
In my estimation, however, something doesn't add up here.
Let's assume 40 hours a week and 50 weeks a year. No overtime, no 2
weeks paid vacation:
$34 X 40 X 50 = $68,000 $63k
But the listing said a 44 hour week:
$34 X 44 X 50 = $74,800 $63k
But if the extra 4 hours are at 1 1/2 time:
$34
1 - 100 of 107 matches
Mail list logo
