HDTenEightyP/NetNews huggingface dataset:
Newsgroups: bit.listserv.ibm-main
Date:         Mon, 9 Nov 1992 16:42:24 CST
From:         Larry Holder <##09@UTMARTN.BITNET>
Subject:      problem opening a vsam file

> A student teaching assistant here has a VS COBOL II program which attempts
> to open a VSAM KSDS file which is varying in record length and also has an
> alternate index with duplicate entries. The file and its index were just
> defined so there is no data in the cluster or its aix component. She wants
> to open the file for the purpose of populating it with data. Unfortunately, an
> when the program attempts to OPEN OUTPUT the file, the program abends and
> displays the following error message:
>
> 4228I FILE SYS09    OPEN  ERROR X'64'(100) CAT IJSYSUC
>
> The contents of the KSDS file's status key = 39 at this point.

Stan:
The VSAM error code X'64' for an OPEN says: "OPEN encountered an empty
alternate index that is part of an upgrade set."
Checking the COBOL-II Appl Pgming Guide, page 218 says "...After you
have defined the alternate index and the path and have loaded the
VSAM indexed file, you can specify a BLDINDEX command to load the
alternate index with index records..."
I'm rusty on this topic, but it sounds like you need to load the
KSDS without reference to any ALTERNATE RECORD KEY, and "then" do a
build for the alternate index via IDCAMS.
If I'm wrong, someone please jump in and correct me.  The original
message indicated a need for a quick reply.

Larry Holder,  Sr. Programmer/Analyst            Bitnet: ##09@UTMARTN
The University of Tennessee at Martin            Phone:  901-587-7890
Martin, TN  38238                                Fax:    901-587-7841

Software: VM/ESA 1.0, VSE/ESA 1.1, CICS/VSE 2.1, COBOL-II, DL/I, SQL/DS
Hardware: IBM 9221-150 with 9336 FBA dasd
PSW:      (Personal Status Words): Saved by grace (Romans 1:16 & 8:38)
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.ibm-main
Date:         Thu, 12 Nov 1992 16:57:00 EST
From:         Jaqui Lynch <LYNCH@BCVMCMS.BITNET>
Subject:      MVS Performance

In response to Rob Ryerson's questions on MVS Performance:
Apart from "It depends" there are several answers to your questions.
I have been involved in performance and capacity stuff for quite a few years
in a number of sites, so if its of any help to you - here goes.

The biggest problem I've come across in the areas above and in tuning in
general is getting support from above, unless there is a major problem.
Because its an ongoing job that really does never end, it takes a lot of time.
Particularly if you don't have the right tools.

Everywhere I have worked, big or small, performance and capacity studies were
done either by a dedicated performance/capacity person (large sites) or by
a designated systems programmer.  If the person is dedicated they typically
have a systems background.  Application tuning is often different - when it
comes to rough dasd tuning it is probably systems, but when you incorporate
Vsam and file placement it is nearly always systems with someone from
applications involved. If its a systems person it is often the manager.

It most certainly is a function of shop size, as a dedicated person is always
going to have time to do it properly and to build up a history, whereas using
systems part-time may result in a job half-done due to other priorities - if
the system is having technical problems then performance won't be their no. 1.
In a small shop dedicating a person to performance would be a luxury.

Experience is also critical, as it is difficult to take on this sort of task
with little or no background.  Ideally the person should have a systems
background or understanding, and an understanding of your applications
environments (cics, cobol, vsam, db2, or whatever).

Specifically, in our shop this is how it works.  I manage the systems pgmers
and also do the capacity and performance analysis.  We have a large CICS
online environment using PL1 and a little cobol and assembler.  I have
3 staff and we also will be supporting RS6000s as well as MVS/ESA.  If
changes need to be made then it really depends where they are.  For instance,
my favorite area is Vsam tuning and when I did an analysis this year I came
up woth a bunch of changes to be made to the files.  The changes were made
by the technical support people in our MIS group not by systems.

If you are interested, there is an international group that addresses
capacity and performance issues for IBMs and Open systems called The
Computer Measurement Group and they have local chapters that meet
regularly.  This is a good place to get advice.  IBM also has a conference
once a year now called the Large Systems Performance Conference.  The CMG
US conference is in Reno for a week from Dec 7th.

Hope this was of some help.

Regards Jaqui
From: ##09@UTMARTN.BITNET (Larry Holder)
Newsgroups: bit.listserv.ibm-main
Subject: Re: Upper/Lower Case Exit for CICS
Date: 9 Nov 92 16:58:55 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU

> On Fri, 6 Nov 1992 16:24:29 CST Larry Holder said:
> >> We run CICS 2.1.2 in MVS/ESA 4.2 amd we are looking for an exit to allow
> >> upper and lower case transactions for a case tool project.  We have
> >> checked the SHARE tape for CICS and were unable to find anything there.
> >> Does anyone know of such an exit?  Please let me know. Thanks
> >
> >Here's ours.  It is LINK'd to from any application.
> >It works for both 1.7 and 2.1.
> >
> But it might not work in 3.1.  I understand that the TCTTE will no longer
> be available in to application programs in 3.1.
>
True.  I was replying based on your current version; I have no manuals
to look forward into 3.1 at this time.  If/when you are able to obtain
such manuals, probably the place to look will be the Customization
Guide.  In our VSE world, there is not yet any version 3 for CICS.
/Larry
From: RYERSONRA@COMPCTR.CCS.CSUS.EDU (Rob Ryerson)
Newsgroups: bit.listserv.ibm-main
Subject: MVS JES2 FIFO print class
Date: 12 Nov 92 18:29:20 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
X-Mailer: Pegasus Mail v2.1c R5.
X-Pmrqc:  1
Comments: To: ibm-main@ricevm1.bitnet

We're sending VM printed output to MVS via RSCS, all printers are now
under MVS control. Output comes as two separate files, a custom
banner, and the output. Question - how can we guarantee FIFO treatment
of the files by JES. We've started with a unique class, assigned
solely to a printer, but I can't identify any parms to guarantee FIFO.
Rob Ryerson Cal. State Sacramento. (cross posted to JES2)
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.ibm-main
Date:         Tue, 10 Nov 1992 10:28:00 EST
From:         "Bill Rodatz 656-0264" <RODATZ@CLEMSON.BITNET>
Subject:      Re: PSF commands

On Thu, 5 Nov 1992 09:21:20 EST Dennis Caffi <ASMIDCC@VM7CG.HQ.AF.MIL> said:
>  I've got PSF V2.1 on MVS/ESA 4.2 running supporting a 4224 printer
> under VTAM 3.3. We are going to add a 3820 shortly. I have some questions.
>
>
> 1.) Where can I find a list of all the PSF/MVS commands ?
> 2.) How do I bring PSF/MVS down (I am cnaceling it now) ?
>
>   Thanks in advance for the help.
>
> -------------------------------------------------------------------------
> Dennis Caffi                                IP: asmidcc@vm7cg.hq.af.mil
> Senior MVS Systems Programmer
> Grumman Data Systems / U.S. Air Force
> Pentagon, Washington, D.C.
> -------------------------------------------------------------------------

Dennis,

Sorry for the delay in responding.  I was asking myself these same
questions when I first began working with our printers.  Our system
configuration closely matches that of yours.

I have never found any MVS commands for PSF.  It is simply a bridge
between application programs and page printers.  We run PSF in
'Deferred-Printing Mode' which causes PSF to act as an output writer,
meaning, that it processes spooled data from JES and sends it to a
a printer device.

PSF really doesn't exist until you start a PSF-attached printer.  Such
printers are defined as Functional Subsystem Applications (FSAs) that
run in separate address spaces.  IBM calls these address spaces,
Functional SubSystems (FSSs).  A FSS uses an interface to communicate
between itself and JES.  To create an FSS for a 3820 in 'Deferred
Printing Mode', you must define the FSS in the JES initialization deck
with the 'FSSDEF' statement.   You must then code a startup procedure
in your system procedure library, which specifies the PSF parms and
the libraries that contain the system resources such as PageDefs.

To terminate a FSS, drain the printer (i.e. $PPRTxx) and cancel the
FSS (i.e. C FSSname).  When all FSSs have been cancelled, PSF
essentially 'goes away'.  I have startup procs for both channel and
SNA attached 3820s that I would be happy to send to you.

I hope this helps.

Bill Rodatz
Systems Programmer            Bitnet:    Rodatz@Clemson
Clemson University            Internet:  Rodatz@Clemson.Edu
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.ibm-main
Date:         Wed, 11 Nov 1992 16:46:11 CET
From:         "Jules Wolfrat" <SSCP0059@HASARA11.BITNET>
Subject:      long response times under VM

We experience the following problem on VM and would like to know if
somebody on the list has some advice of how to handle the situation.

We are running VM/XA 2.1 under LPAR on an IBM 9000-720 (202 MB RSTORE,
464 MB XSTORE for the VM partition and all CPU's shared, but VM using
almost all CPU cycles, 550%). Under VM we have a small number of active
CMS users (10-50), some 100 service machines and 3 AIX/370 guest systems
(PAIX), from which two are batch servers. The main load on the
system comes from big batch jobs (both memory and CPU cycles) on
both VM and AIX.

What we see is that when a new job is started which asks for a large
working set in a short time, VM seems to stop all user activity.
Response times can be as long 30 seconds. Once the new situation has
settled (the job has build up its WS) response becomes normal again.
All VM activity seems to be dedicated to freeing up storage
for the new job, while only the new job apparently is scheduled and
thus is filling up the free pages. What I would like to
see is that the new job in someway could be slowed down in building up
its memory, e.g. if dWS/dt > x then put the job in the E-list or
something equivalent.

Does anybody know a way to handle the above situation? I have
appended our SRM settings below.

IABIAS : INTENSITY=100; DURATION=6
LDUBUF : Q1=100% Q2=75% Q3=50%
STORBUF: Q1=200% Q2=200% Q3=200%
DSPBUF : Q1=32767 Q2=32767 Q3=32767
DISPATCHING MINOR TIMESLICE = 1 MS

Jules Wolfrat
SARA (Academic Computing Services Amsterdam)
P.O. BOX 4613                                  Phone : +31 20 5923028
1009 AP Amsterdam                              Fax   : +31 20 6683167
The Netherlands                                E-Mail: wolfrat@sara.nl
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Organization: Institut fuer Medizinische Computerwissenschaften
Newsgroups: bit.listserv.ibm-main
Date:         Mon, 9 Nov 1992 12:04:37 CET
From:         Christian.J.Reichetzeder@AWIIMC12.IMC.UNIVIE.AC.AT
Subject:      Re: STORAGE BELOW 16M LINE

On Sun, 8 Nov 92 23:43:00 PST Leonard D Woren said:
>You would think so, but page 0 in a V=R machine is a special case.
Indeed prefixing  is applied to  page 0. The  matter is quite  complicated and
even more so with a  V=R guest, who expects page 0 to be  a real page 0 frame.
Thus VM  has to  move it's  own real  page 0  elsewhere. It  may well  be that
certain flavours of  VM goofed in some  aspects (dunno whether MVS  does a LRA
for page 0 for example).
Christian
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Organization: Slippery Rock University - Computer Center
Newsgroups: bit.listserv.ibm-main
Date:         Mon, 9 Nov 1992 01:57:02 EST
From:         Fran Hensler <FJH@SRU.BITNET>
Subject:      Re: System 36 information requested

Hello Dan.  I am not a System/36 programmer or operator but I was involved
in setting up a System/36 application about 10 years ago.

The System/36 is in the Word Processing Department and they produce a
variety of personalized letters.  All personalized data is maintained
on the IBM mainframe running VM and VSE.  Various operations on the
mainframe data will trigger the need for a specific letter to be sent.

For example:  A prospective student has not supplied a high school transcript
by the required date.  This fact would be picked up by a program run daily
on the mainframe.  The data needed to personalize the letter is 'punched'
into a file that will be transmitted the next morning to the System/36.

The System/36 runs as a IBM 3780 RJE connected to the mainframe via 9600
baud leased line.  The software in the mainframe is RSCS.

Each morning about a dozen files are received from the System/36 reader
queue from the mainframe punch queue.  The name of the file is the same
as the name of the letter to be sent.  File 'AP3' would trigger letter
'AP3' to be sent to everyone in the 'AP3' file

Another application:  SRU receives a tape of prospective students from the
Educational Testing Service (the SAT test people).  The tape records include
name and address, high school name, results of the test.  A 'PROSPCT' record
is created on the mainframe if one does not already exist.  Then the
data is punched to file PR1 which the System/36 will pick up and send the
prospect the PR1 letter.

Each morning the System/36 receives on average about 18 files from the
mainframe.  Each file is for a specific letter.

My involvement in this System was to set up the communciation between the
mainframe and the System/36.

All data on the mainframe is maintained in upper case.  The data must be
converted to mixed case before it can be used in a personalized letter.

I'll use my own data for an example:

Mainframe:                           System/36:
   HENSLER, FRANCIS J                   Mr. Francis J. Hensler
   PO BOX 85                            PO Box 85
   SLIPPERY ROCK, PA  16057             Slippery Rock, PA  16057
   SETON-LASALLE HS                     Seton-LaSalle High School

This looks like a simple project until you really get into it -- especially
street addresses with abbreviations for rural delivery and apartments etc.

Well, I'm writting this on my PC at home and the telephone line has dropped
twice.  So I'm going to send this now before it happens again.

Francis J. Hensler, CDP                     BITNET: FJH@SRU
Software Support Specialist                 Phone: (412) 738-2033
Slippery Rock University Computer Center    PANET:     8-654-2033
Slippery Rock, PA  16057-1326  USA   "Yes, Virginia, there is a Slippery Rock"
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Original_To:  JNET%"ibm-main@ricevm1"
Original_cc:  JURASCHEK
Newsgroups: bit.listserv.ibm-main
Date:         Mon, 9 Nov 1992 10:35:00 EST
From:         "David F. Juraschek" <JURASCHEK@GMUVAX.BITNET>
Subject:      Forcing Page Boundaries in High Level Code

Can someone identify how one forces a chunk of executable code to be
oriented to a new page boundary when dealing with a High Level Language.

Specifically, I would like to know how to force portions (plural) of the
PROCEDURE DIVISION in COBOL to begin at new page boundaries.  This is an
academic question - so please - no arguing about COBOL or why one would
want to do this anyhow with todays large systems.  The question is can
it be done, and if so, how.  (Obviously, this is easy to do with Assembler.)

Thanks.

-Dave Juraschek
 IBM Systems - George Mason University
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
X-Mailer: ELM [version 2.3 PL11]
Newsgroups: bit.listserv.ibm-main
Date:         Mon, 9 Nov 1992 09:55:08 CST
From:         "(David E Boyes)" <dboyes@IS.RICE.EDU>
Subject:      Re: Forcing Page Boundaries in High Level Code
Comments: To: IBM-MAIN@ricevm1.rice.edu
              Nov 9, 92 10:35 am

> Specifically, I would like to know how to force portions (plural) of the
> PROCEDURE DIVISION in COBOL to begin at new page boundaries.

Try EJECT. It can be in either area A or area B. I believe
Fortran and PL/1 also support EJECT as a inline compiler
directive.

(ref. VS COBOL II Application Programming Reference (GC26-4047),
pg. 347)
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.ibm-main
Date:         Mon, 9 Nov 1992 14:43:09 EDT
From:         David Strasenburgh <DSTRASEN@BROCKVMA.BITNET>
Subject:      PC Based COBOL Products

I am looking for PC products used for developing and
maintaining mainframe COBOL applications.

A little background info:

         9221-170
         VM/ESA 1.1.1
                       SQL/DS 3.1
                       COBOL II 3.2


         VSE/ESA 1.2
                       CICS 2.1
                       DOS/VS COBOL 1.3.1
                       SQL/DS interface to VM
                       SDF/CICS 1.5.0

I would like to develop applications for both VSE and
VM.  This product would have to be able emulate the SQL/DS
environment on the PC as well as handle CICS.  Any
suggestions would be appreciated.


David Strasenburgh
System Programmer/Analyst
Administrative Computing
SUNY College at Brockport
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
X-Envelope-to: ibm-main@akronvm.bitnet
Content-transfer-encoding: 7BIT
Newsgroups: bit.listserv.ibm-main
Date:         Fri, 6 Nov 1992 11:38:00 -0500
From:         Doug Fraser <dfraser@MCMAIL.CIS.MCMASTER.CA>
Subject:      jcl conversion
Comments: To: ibm-main@akronvm.bitnet

I have a customer who installs a new version of a system (Notis) every
year.  We would like them to change the jcl to meet our local standards
(bent somewhat as it is a bought system).  They feel the time involved to
do so is too great.  I do not want to discuss whether the jcl should be
changed or not.  We have done enough discussion about that here.  I feel
we would be sensitive to the concern of our customer if we had a jcl
conversion aid.  I would appeciate hearing from anyone who uses a jcl
conversion aid, home written or bought.

Doug Fraser                         email: dfraser@mcmail.cis.mcmaster.ca
System Support Manager              phone: (416) 525-9140 ext 3868
Computing and Information Services  fax:   (416) 528-3773
McMaster University
Hamilton, Ontario
From: STAN@VM.TEMPLE.EDU (Stan Horwitz)
Newsgroups: bit.listserv.ibm-main
Subject: problem opening a vsam file
Date: 9 Nov 92 21:05:09 GMT
Organization: Temple University -- Academic Computer Services
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
X-Acknowledge-To: <STAN@vm.temple.edu>

Hello;

A student teaching assistant here has a VS COBOL II program which attempts
to open a VSAM KSDS file which is varying in record length and also has an
alternate index with duplicate entries. The file and its index were just
defined so there is no data in the cluster or its aix component. She wants
to open the file for the purpose of populating it with data. Unfortunately, an
when the program attempts to OPEN OUTPUT the file, the program abends and
displays the following error message:

4228I FILE SYS09    OPEN  ERROR X'64'(100) CAT IJSYSUC

The contents of the KSDS file's status key = 39 at this point.

I have searched high and low for an informative explanation of what this
error means and have found nothing. I know that 39 means there's a conflict
with the way the COBOL program is describing the file and the way it was
created, but I cannot for the life of me see where the conflict resides. I
have looked over this many times and have tried numerous changes to get it
to work without success. One of the administrative programmers here saw
nothing wrong here either and he is resarching further, but I am in a hurry
to resolve this because this is needed for an assignment that will be
discussed in the instructor's class tomorrow afternoon. Does anyone know
what this cryptic error means? The documentation I have has lots of error
codes, but of course the one I need now is not documented.

By the way, this is being run on an IBM 3084Q under VM/XA CMS 5.5 with the
VS COBOL 2 V3.3 compiler. Any help in this matter will be appreciated.

 Stan Horwitz   Internet: STAN @ VM.TEMPLE.EDU  Bitnet: STAN @ TEMPLEVM

 Temple University's Sr. Mainframe Consultant; Manager of the Help-Net
 and Suggest lists; Listserv Postmaster

 Standard disclaimers apply. One of these days I will make this sig file
 look much nicer.
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.ibm-main
Date:         Wed, 11 Nov 1992 16:06:44 EST
From:         HSVDR@TJUVM.BITNET
Subject:      3380 to 3390 conversion

FROM:  Don Robinson, Jefferson University

    We are *finally* moving to 3390's. I am looking at writing a little
program to parse JCL and convert blocksizes. Does anybody already have one?
If not, does anybody want one?

Don
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Original_To:  JNET%"Ibm-main@ricevm1"
Original_cc:  JURASCHEK
Newsgroups: bit.listserv.ibm-main
Date:         Mon, 9 Nov 1992 16:25:00 EST
From:         "David F. Juraschek" <JURASCHEK@GMUVAX.BITNET>
Subject:      Re: Forcing page boundaries in high level code

Oops!  So sorry.
I was not asking how to cause the output to EJECT to the top of a form.
(I can understand the confusion.)

I want to know if there is a COBOL and perhaps a PL/I trick - in the code
that is generated by the compiler - to force portions of the object code
to begin on page boundaries.

For example, is there some way to make various groups of paragraphs to be
aligned at an even 2K or 4K (or whatever) page.  The object here is to
allow portions of a COBOL program, for example to be loaded into the same
physical page of memory - or at least to begin at the same page.   (And,
this should be for a potentially gigantic COBOL program.)  The academic
reason for this is to potentially reduce paging by a large COBOL (or PL/I)
program because at various points it's only referencing other code which
is within the same Page or group of pages in memory.

Alignment is no problem in Assembler and it can be accomplished in the
WORKING STORAGE portion of COBOL without too much hassle.  But how do you
control this kind of alignment in the PROCEDURE DIVISION? (Or similar parts
of a PL/I program?)

Again, this is purely an academic question - so please - no debates about
the viability of COBOL or PL/I (or lack thereof) over some other language.

And, again, I'm not asking about aligning the compiler print out at the
top of form with EJECT or some other printout command.  These are memory
pages - not paper pages.

Thanks.

-Dave Juraschek
 IBM Systems - George Mason University
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.ibm-main
Date:         Mon, 9 Nov 1992 15:27:41 EST
From:         Howard Givner <HOWARD@BKLYN.BITNET>
Subject:      Re: Forcing Page Boundaries in High Level Code
              Nov 9, 92 10:35 am

Split the procedure into separately compiled modules and use the
linkage editor control statements to specify that you want the
separate CSECTs loaded at page boundaries.  The CSECTs could
communicate with shared data areas passed as parameters and use
CALL/RETURN to get back and forth.
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.ibm-main
Date:         Fri, 13 Nov 1992 10:53:45 EST
From:         Dennis Caffi <ASMIDCC@VM7CG.HQ.AF.MIL>
Subject:      Dynamically adding a CPU to MVS/ESA under VM/ESA
Comments: To: IBM Mainframe Discussion List <IBM-MAIN@ricevm1.rice.edu>

  Is is possible to define another CPU to the MVS virtual machine and
have MVS/ESA see it and bring it online ? We are running VM/ESA 1.0
with MVS/ESA 4.2 as a V=R guest. I want to use the CP DEFINE command
to add another CPU to MVS and have MVS bring it online. I have the
correct directory entry defined so I can have multiple CPUs for my MVS
guest. Thanks in advance for the help.

-------------------------------------------------------------------------
Dennis Caffi                                IP: asmidcc@vm7cg.hq.af.mil
Senior MVS Systems Programmer
Grumman Data Systems / U.S. Air Force
Pentagon, Washington, D.C.
-------------------------------------------------------------------------
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU