Wayne Driscoll wrote:
CLC 3(R6),=C'IOLQ' will actually compare 6 bytes of data, starting at
location 0, with the value C'IOLQ'. The format for an SS instruction is
instruction offset(length,base),offset(base). To compare 1 byte, you would
need to code CLC 3(,R6),=C'IOLQ'
This sort o
In a recent note, Skip Robinson said:
> Date: Wed, 5 Oct 2005 17:41:35 -0700
>
> For me, the primary reason for coding CLC =C'IOLQ',3(R6)is that the
> generated length of a byte instruction, unless it's explicitly coded, is
> taken from the first operand. This instruction will compa
a. You don't need nor want to output to a SAS dataset, if you just want to
count things in the infile. Each OUTPUT takes CPU time and disk space;
instead use DATA _NULL_, SUM statements to accumulate, and a PUT the
sum at the END= of the INFILE:
DATA _NULL_;
INFILE test LENGTH=LENDATA E
IBM is helping out in the aftermath of the hurricane.
http://www.ibm.com/news/us/en/2005/09/2005_09_26.html
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET
At 10:54 -0500 on 10/04/2005, Adam Floro wrote about Re: JES2 Exit6 -
Changing Class= Based on PGM=:
Many thanks to Robert Rosenberg for his suggestion on preserving R1.
It didn't even dawn on me that the $$WTO was wiping that out. My
assembler skills are a bit rusty these days.
You're Welc
On Oct 5, 2005, at 9:03 AM, Mark Zelden wrote:
---SNIP-
Since you have SYNCSORT, will HISTOGRM work? I don't think I've run
it in 15 years, but I just tried and it looks like it is what you
want. Here was my test JCL:
//STEP01 EXEC PGM=HISTOGRM
//*STEP
In a message dated 10/5/2005 9:03:53 P.M. Central Standard Time,
[EMAIL PROTECTED] writes:
And, I don't think I'd ever use it
if I needed to follow it with anything but BE or BNE.
>>
BXLE perhaps?
--
For IBM-MAIN subsc
Skip,
Just a nit (albeit one that could cause huge problems in the program)
CLE 3(R6),=C'IOLQ' will actually compare 6 bytes of data, starting at
location 0, with the value C'IOLQ'. The format for an SS instruction is
instruction offset(length,base),offset(base). To compare 1 byte, you woul
On Wed, 5 Oct 2005 17:41:35 -0700, in bit.listserv.ibm-main
(Message-ID:<[EMAIL PROTECTED]>)
Skip Robinson <[EMAIL PROTECTED]> wrote:
Comparing the merits of
CLC =C'IOLQ',3(R6)
vs.
CLC 3(4,R6),=C'IOLQ'
I don't think this is about natural language influence.
It's just about
programming c
>DATA LRECL00(KEEP=L);
INFILE IN LENGTH=L;
INPUT @;
OUTPUT;
RUN;
...
First: L would not be a written variable.
It should be:
DATA LRECL00(KEEP=LEN);
INFILE IN LENGTH=L;
INPUT @ ;
LEN = L ;
Second: @ holds the line. You don't want that! You'll be stuck on the fi
Sam,
SAS off the top of my head:
//INDD DSN=MY.DSN,DISP=SHR
//SYSIN DD *
DATA LRECL00(KEEP=L);
INFILE IN LENGTH=L;
INPUT @;
OUTPUT;
RUN;
PROC UNIVARIATE DATA=LRECL00;
VAR L;
RUN;
Should be close - hope it helps;
Ron
> -Original Message-
> From: IBM
For me, the primary reason for coding CLC =C'IOLQ',3(R6)is that the
generated length of a byte instruction, unless it's explicitly coded, is
taken from the first operand. This instruction will compare (correctly, I
presume) four bytes of data because the first operand is four bytes long.
If
Hi Jon:
Don't know if you tried this but it can be done even if vendor package. Check
if BMS maps are above the line. If not re-link to above. Will work with
applications below the line. Can save some DSA storage.
Regards,
Gene
--
Could you (temporarily) attach a 3590 to the B20?
If so then could you EXPORT the 3590 from the B18 and IMPORT to the B20 then
EJECT the 3590 from the B20 thereby copying the data to a 3592 (keeping zero
3590 scratches in the B20).
I'm not sure if a VTS will allow mixed device types for the stack
Sam wrote on 06/10/2005 03:17:09 AM:
> Hi Jon,
>
> SQA will overflow into CSA if it gets to 100% and many shops size SQA and
> ESQA to overflow deliberately. An 11M PVT seems pretty good to me too.
I
> can only manage 9M on most of my systems. Remember you get PVT in 1M
chunks
> so you would ha
We are looking at totally replacing our tape subsystem. The current plan
is to replace our 3494-B18 with a 3494-B20. We will also be getting a
3584/3953 tape library with 3592 drives for off-site storage.
One of our biggest applications to move is ViewDirect from Mobius. From
all that we can tell,
If you have a value in a register, and you want to convert it to printable
HEX, here is a slightly easier method using the Translate instruction (TR)
Hex_conv ds0h
str5,hexdata
unpk charhex(9),hexdata(5)
trcharhex(8),convhex-240
convhex definition:
Rexx Uploaders,
This ISPF edit macro solves most or all of the translation problems I've
seen.
ISREDIT MACRO
ISREDIT CHANGE ALL X'6A' X'4F'
ISREDIT CHANGE ALL X'B7' X'61'
ISREDIT CHANGE ALL X'CD' X'5C'
ISREDIT CHANGE ALL X'B07E' X'5F7E'
ISREDIT CHANGE ALL X'E07E' X'5F7E'
ISREDIT CHANGE ALL
In article <[EMAIL PROTECTED]>,
Jerry Ragland <[EMAIL PROTECTED]> wrote:
> Thanks John and Andy,
> Your solution worked perfectly and now I am not getting SOC2. I am
> new to assembler and I find really hard to understand the explanation
> u have given. I understand that the macro expands inli
In article <[EMAIL PROTECTED]>,
Jeremy C B Nicoll <[EMAIL PROTECTED]> wrote:
> In article
> <[EMAIL PROTECTED]>,
>"DOMINGUEZ MARTIN, ANGEL LUIS" <[EMAIL PROTECTED]> wrote:
> > We are a little bit confused about how DFSort behaviors when it
> > faces an apparent bad dataset. The data set is a
DanD wrote on 10/05/2005 12:20:43 PM:
>
> I was wondering if anyone has used the ADPLSMAP IPCS service routine to
map
> a dataspace?
> Any code samples would be welcome.
>
Can you expand on the phrase "map a dataspace"? In my mind I'm hearing it
meaning the following:
1. Somehow you or your p
Thanks for the tip. I'll pass it on to our CICS guy.
Jon
I don't know if it is of any interest, but have you looked at RMODE31
for MacKinney systems?
http://www.mackinney.com/products/other/rmode31.htm
--
For IBM-MAIN sub
> -Original Message-
> From: IBM Mainframe Discussion List
> [mailto:[EMAIL PROTECTED] On Behalf Of Jon Brock
> Sent: Wednesday, October 05, 2005 12:30 PM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: Re: Consequences of lowering SQA spec
>
>
> I think you are correct. The problem is that I can
I think you are correct. The problem is that I can't do anything with the CICS
region; I can only manage the OS to try to get the region as much
below-the-line space as possible. (Our CICS sysprog can't even do a whole lot
with the region -- it is running a purchased app, and he has no ability
Hi Jon,
SQA will overflow into CSA if it gets to 100% and many shops size SQA and
ESQA to overflow deliberately. An 11M PVT seems pretty good to me too. I
can only manage 9M on most of my systems. Remember you get PVT in 1M chunks
so you would have to reduce common below the line enough to get
> -Original Message-
> From: IBM Mainframe Discussion List
> [mailto:[EMAIL PROTECTED] On Behalf Of Jon Brock
> Sent: Wednesday, October 05, 2005 10:55 AM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: Consequences of lowering SQA spec
>
>
> We are trying to fix a problem that one of our CICS reg
Hi.
Hello. I believe that the problem is the CICS and not in the SQA area. I
suggest to check the following thing: All the transactions and programs must be
stored on the line of 16mb, thus we can reduce the value of parameter "DSALIM"
and this we unloaded the SQA.
Saludos a todos, desde Chile
Greetings,
I was wondering if anyone has used the ADPLSMAP IPCS service routine to map
a dataspace?
Any code samples would be welcome.
Thanks in advance.
DanD
--
For IBM-MAIN subscribe / signoff / archive access instructio
We are trying to fix a problem that one of our CICS regions has with going
short-on-storage below the 16MB line. (In the UDSA and CDSA pools, to be
exact.) As part of this effort, I am trying to expand the size of our private
area. (Insert your Viagra joke here.) At the moment, we have a pri
Kirk,
You are correct about Histogram being "retro". I believe it was written
in the early 1970's. The program was designed to report on various
information related to VL files. The reason for the HIS004A message is
that the RECFM of the SYSUT1 file is supposed to be some form of "V". If
the RE
> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Perryman, Brian
>
> You can't specify (REPLACE on a PUT, only on a GET
DUH!
Still conceptually absurd, though.
-jc-
"I will visit my optometrist SOON, I promise."
--
> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Robert Borkowski
>
> Probably Your JCL has numbered lines,
No.
-jc-
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send ema
Martin Kline wrote:
> I believe the question is why would the sort continue to run after
issuing
> the messages, when the documentation for the messages clearly states that
> the program terminates. The requestor understands this to mean that the
> sort program should terminate.
I understood that
Frank said:
>I don't understand what you're saying here.
I believe the question is why would the sort continue to run after issuing
the messages, when the documentation for the messages clearly states that
the program terminates. The requestor understands this to mean that the
sort program shou
I love this program. So retro. Without the magic handshake on SYSIN,
SYSUT1 gets 013-18. If SYSUT1 is RECFM=F file you get:
HIS004A INVALID DCB OR ACB DATA
And what exactly is a "record too short"? What does "key length" mean on
a flat file?
HISTOGRM VERSION 4 JAN. 1981
HI
I'm no expert, but are you sure the put command allows the "(REPLACE" at the
end of the command line?
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED]
Behalf Of Chase, John
Sent: Wednesday, October 05, 2005 9:56 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: More "fu
PUT does not have a (REPLACE option, just GET.
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Chase, John
Sent: Wednesday, October 05, 2005 9:56 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: More "fun" with z/OS FTP
Hi, All,
At the risk of "wearing
Angel Luis Dominguez wrote:
>
>Excuse all, one thing more about this topic from another point of
> view:
>
> 1) Someone tells df/Sort to use SORT FIELDS=(1,38,PD,A)
> 2) DF/SORT gives ICE017A and ICE012A messages about this is an error.
You only see the ICE017A and ICE012A messages because you
Because (REPLACE is a parameter on the get command, not the put.
Craig
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Chase, John
Sent: Wednesday, October 05, 2005 9:56 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: More "fun" with z/OS FTP
Hi, All,
You can't specify (REPLACE on a PUT, only on a GET
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED]
Behalf Of Chase, John
Sent: 05 October 2005 14:56
To: IBM-MAIN@BAMA.UA.EDU
Subject: More "fun" with z/OS FTP
Hi, All,
At the risk of "wearing out my welcom
Probably Your JCL has numbered lines,
try to use command UNNUM in editor and submit Your job again.
--
Robert Borkowski
BRE Bank SA - DIN Łódź (S/390 Team)
Chase, John wrote:
Hi, All,
At the risk of "wearing out my welcome" here (assuming I haven't already),
I've abandoned the idea of usin
On Wed, 5 Oct 2005 09:17:03 -0400, Knutson, Sam <[EMAIL PROTECTED]> wrote:
>Hi,
>
>I can write a quick and dirty program to do this but since it is for an
>application group a supported utility would be preferred.
>
>Does anyone have code to use SAS, SYNCSORT or some other utility to quickly
>summ
Sam,
The following sort control cards should provide what you are looking
for. It simply prints one line per record length and provides the
number of records with that length. You can add headers if you want a
more formal report.
SORT FIELDS=(5,2,CH,A)
INREC FIELDS=(1,4,1,2,X
Hi, All,
At the risk of "wearing out my welcome" here (assuming I haven't already),
I've abandoned the idea of using a "protected" ID for FTP and am now using a
NETRC dataset.
Everything works as expected, until this:
EZA1460I Command:
EZA1736I put 'HLQ.SRCHFOR.TERSE' 'HLQ.SRCHFOR.TERSE.PRD2'
In a recent note, Gerhard Postpischil said:
> Date: Wed, 5 Oct 2005 08:59:02 -0400
>
>
> I'm wondering about a few things, since this does not do what you said
> you wanted. The code will change a job with any program name beginning
> with IOLQ (e.g., IOLQTEST, IOLQFAKE). If this is your
This has been cross-posted to the IBM-Main and the VM lists to gather as many
ideas as I can.
We have a problem with users who really only use our systems to push or pull
data via FTP. As we go forward with FTPS (SSL protected FTP) our security
people more readily accept FTP. Our problem is that
Chase, John wrote:
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Perryman, Brian
FTP requires a Login, and protected userids can't be used in
any login operation, so I'd be surprised if you could do it.
Why would you want to though John? Sounds like a massive
s
> -Original Message-
> From: IBM Mainframe Discussion List
> [mailto:[EMAIL PROTECTED] On Behalf Of Chase, John
> Sent: Wednesday, October 05, 2005 7:49 AM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: z/OS 1.5 FTP using "Protected" User ID
>
>
> Hi, All,
>
> Is it possible? ("Protected" ID in
> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Perryman, Brian
>
> FTP requires a Login, and protected userids can't be used in
> any login operation, so I'd be surprised if you could do it.
>
> Why would you want to though John? Sounds like a massive
> security
&DSNThe name of the data set or collection for which ACS processing is
taking place. For VSAM data sets, only the cluster name is passed to the ACS
routine; the component names are not. *If the data set has an absolute or
relative generation number, it is stripped from &DSN* The generation n
Hi,
I can write a quick and dirty program to do this but since it is for an
application group a supported utility would be preferred.
Does anyone have code to use SAS, SYNCSORT or some other utility to quickly
summarize the lengths of all the records in a file of variable length
records?
Chase, John wrote:
Hi, All,
Is it possible? ("Protected" ID in RACF terminology is one defined with
NO-PASSWORD.) If so, where is it documented?
No, it is not. As documented in SAG (I believe) user with PROECTED
attribute cannot be used where password verification is needed.
So FTP STC use
Adam Floro wrote:
and stayed away from R1 altogether. Here's the code that finally worked:
CLC 3(4,R6),=X'C9D6D3D8' PGM=IOLQ?
BNE RETURN NO, BYE
MVC JCTJCLAS,=CL1'O'SET CLASS TO 'O'
B RETURN LEAVE THE EXIT.
I'm wonder
FTP requires a Login, and protected userids can't be used in any login
operation, so I'd be surprised if you could do it.
Why would you want to though John? Sounds like a massive security exposure??
Brian
-
This e-mail message is for the sole use of the intended recipient(s)and may
contain con
Hi, All,
Is it possible? ("Protected" ID in RACF terminology is one defined with
NO-PASSWORD.) If so, where is it documented?
TIA,
-jc-
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMA
Hi folks
I have a GDG, let's call it A.B.C for now.
I have a Storclass ACS routine with FILTLIST DSN_GDG INCLUDE(A.B.C)
If I migrate and recall dataset A.B.C.G0001V00, it matches the filter list
DSN_GDG (I know that it does because that is used to subsequently place it on a
volume).
If I cha
Mark,
No, we missed that too. AND, I see there is now an AUTH=(ALLOPER) and an
AUTH=(ALLUSER), which I now need to investigate and see what's under them.
At 03:53 PM 10/4/2005, you wrote:
Speaking of SDSF authorizations...
Did anyone using ISFPRMxx or ISFPARMS notice that you can now
specif
On 10/4/05, McKown, John <[EMAIL PROTECTED]> wrote:
> I never did understand why IBM couldn't implement VM-like VCTCs using
> LPAR code.
You and me both John. It would have made life much simpler all round.
Jim McAlpine
--
For
Excuse all, one thing more about this topic from another point of
view:
1) Someone tells df/Sort to use SORT FIELDS=(1,38,PD,A)
2) DF/SORT gives ICE017A and ICE012A messages about this is an error.
3) Messages manual for ICE012A and ICE017A in System Action is "THE PROGRAM
TERMINATES"
4)
Hi,
You cannot use FTP to create new GDG base,
GDG base must exist on the target system before You use FTP to create new
versions of GDS (GDG datasets).
--
Robert Borkowski
BRE Bank SA - DIN Łódź (S/390 Team)
Chase, John wrote:
On 10/3/2005 8:42 AM, Chase, John wrote:
Here's the output
ibm-main wrote:
From: "R.S."
The 9672s use to have a special jumper cable for escon ctc. But I heard
of a
special black cable built into the Z/890 .
Has anyone any knowledge of this "special Black Cable" , I am going
down to
open box now...
I have never seen SBC (Special Black Cable
61 matches
Mail list logo
