HDTenEightyP/NetNews huggingface dataset:
Organization: Management Systems Laboratories, Virginia Tech.
Newsgroups: bit.listserv.xedit-l
Date:         Mon, 5 Oct 1992 08:21:49 EST
From:         Asif Taiyabi <AAT@VTMSL.BITNET>
Subject:      deleting blank lines

I am a xedit novice so please forgive me if there is something obvious that I a
m missing.

I would like to reduce 2 or more blank lines to 1 blank line in my file, User S
ervices  was not of much help, they said there was nothing they knew of that co
uld do it. Surely there must be some macro out there that can do this ?

Thanks for your help
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.xedit-l
Date:         Tue, 6 Oct 1992 14:14:14 PDT
Comments:     Warning -- original Sender: tag was NETNEWS@UVVM.UVIC.CA
From:         Melvin Klassen <KLASSEN@UVVM.BITNET>
Subject:      Re: XEDIT File with LRECL > 255

Joseph J Kij 212 447-3700 x3 <JJKBB@BBADMIN> writes:
>      Try the following:
>          XEDIT fn ft fm (WID n
>      where n is any numeric value ( <32768 ?)
>      You should then be able to edit data up to n.

A few points need correcting:
 - if the record-format for the file is "fixed",
   then 'N' can be any value less than 2**31 (2,147,483,648),
   if your virtual-memory size is large enough;
 - if the record-format for the file is "variable",
   then 'N' can be any value less than 2**16 (65536);
 - you'll still need to issue the following commands,
     SET LRECL  *
     SET TRUNC  *
     SET ZONE 1 *
   in this specific order,
   if you wish to access beyond column 80 of each record;
 - you may wish to use 'SET VERIFY 1 *' to view beyond column 80.

Cheers.
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
X-Envelope-to: xedit-l@UGA.BITNET
Newsgroups: bit.listserv.xedit-l
Date:         Tue, 6 Oct 1992 16:39:18 EDT
From:         kdlutes@UALR.EDU
Subject:      Rexx macro's
Comments: To: xedit-l@uga.bitnet

I had been an XEDIT/REXX user for the past 6 years.  I recently switched
locations and no longer use them.  But now I have bitnet.  I've got a
collection of some good Rexx macro's.  Do you have a place to upload them
too?
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.xedit-l
Date:         Tue, 6 Oct 1992 16:14:50 EST
From:         Joseph J Kij 212 447-3700 x3 <JJKBB@BBADMIN.BITNET>
Subject:      XEDIT File with LRECL > 255

      Try the following:

          XEDIT fn ft fm (WID n

      where n is any numeric value ( <32768 ?)

      You should then be able to edit data up to n.
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.xedit-l
Date:         Tue, 6 Oct 1992 15:08:04 EDT
From:         kdlutes@UALR.EDU
Subject:      255 chars in xedit
Comments: To: XEDIT-L%UGA.bitnet@KSUVM.KSU.EDU

I tried many times, but was never able to get record lengths longer than
255.  I thinks thats an XEDIT limit.
From: KLASSEN@UVVM.BITNET (Melvin Klassen)
Newsgroups: bit.listserv.xedit-l
Subject: Re: reformatting raw data to be suitable for input to SAS(r)
Date: 5 Oct 92 21:00:00 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Comments:     Warning -- original Sender: tag was NETNEWS@UVVM.UVIC.CA

Bryan Combs <SSQLBC@UIUCVMD> writes:
> I have an XEDIT problem.  I have a file that has a record lenth of 255
> characters in XEDIT.  The file is raw data.  However, each case is actually
> about 930 records long.  I need to get the data in a format that can be read
> in SAS fixed-format.  Therefore, I need to find a way to change the record
> length of the file without losing any data (if I make each record shorter),
> or to increase the record length and unwrap the data.

The data probably is **already** in a form suitable for input to SAS.

The SAS software is quite-capable of reading multiple input records
as it generates each observation.  The software can read records of
any "width", i.e., 80 is normal, 255 is easy, and 32767 is not hard.
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Subject: (no subject given)
Newsgroups: bit.listserv.xedit-l
Date:         Tue, 6 Oct 1992 09:20:58 EST
From:         Paul Russell <PRUSSELL@IUBVM.BITNET>

If you have CMS PIPELINES, this should be fairly easy to do with PIPES.
(I don't have PIPES, so I won't try to pretend to know how to do this.)
If you don't have PIPES, you could use a short REXX program to read the
existing file with EXECIO, put the lines together, and write a new file
with EXECIO.  (Oh, no!  EXECIO!)  The structure of the data in the input
file will dictate the logic required to put the lines back together.  If
the input data includes continuation characters in some fixed position
(usually the last) of each record, you could use the presence/absence of
the continuation character to determine whether to continue building the
current output record or to start a new output record.  If, on the other
hand, each full record has been broken into a fixed number of shorter
records, you could use a simple iterative loop to create an output record
for every x input records.  Some quick and dirty, untested, simple REXX
examples follow:

/* For example only - may contain syntax and/or logic errors */
infile = 'INPUT DATA *'
outfile = 'OUTPUT DATA A'
outlrecl = 930
'EXECIO * DISKR' infile '0 (FINIS STEM IN.'
if rc <> 0 then exit rc
out. = '' ; out.0 = 0
call BUILD_OUTPUT
if out.0 > 0 then
   'EXECIO' out.0 'DISKW' outfile '0 F' outlrecl '(FINIS STEM OUT.'
exit rc
/* Subroutine to build output if input has continuation characters */
BUILD_OUTPUT: procedure expose in. out.
cont_char = 'X'
count = 1
do n = 1 to in.n
   if substr(in.n,length(in.n),1) = cont_char then
      out.count = out.count || substr(in.n,1,length(in.n)-1)
   else
      do
         out.count = out.count || in.n
         out.0 = count ; count = count + 1
      end
end
return
/* Subroutine to build output from fixed number of input records */
BUILD_OUTPUT: procedure expose in. out.
count = 1 ; infix = 4
do n = 1 to in.n
   out.count = out.count || in.n
   if count // infix = 0 then
      do
         out.0 = count ; count = count + 1
      end
end
return
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.xedit-l
Date:         Tue, 29 Sep 1992 08:24:27 EDT
From:         kdlutes@UALR.EDU
Subject:      Xedit
Comments: To: xedit-l%uga.bitnet@ksuvm.ksu.edu

I don't know exactly what they call it, but IBM is using REXX as their batch
 language for OS/2.
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Organization: The University of Alabama, Tuscaloosa
Newsgroups: bit.listserv.xedit-l
Date:         Tue, 6 Oct 1992 16:03:09 CDT
From:         Darren Evans-Young <DARREN@UA1VM.UA.EDU>
Subject:      Re: 255 chars in xedit

On Tue, 6 Oct 1992 15:08:04 EDT <kdlutes@UALR.EDU> said:
>I tried many times, but was never able to get record lengths longer than
>255.  I thinks thats an XEDIT limit.

Nope, nope, nope.

First,  enter: XEDIT fn ft fm (WIDTH nnnnn
Second, once in XEDIT, on command line enter: LRECL nnnnn
Third, enter: TRUNC nnnnn

You will now have a file with an LRECL of nnnnn

Darren

Darren Evans-Young                                  darren@ua1vm.ua.edu
Seebeck Computer Center                             70651.2605@CompuServe.COM
The University of Alabama, Tuscaloosa               (205)348-3988
From: SSQLBC@UIUCVMD.BITNET
Newsgroups: bit.listserv.xedit-l
Subject: (no subject given)
Date: 5 Oct 92 16:31:59 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU


 I have an xedit problem.  I have a file that has a record lenth of 255
characters in xedit.  The file is raw data.  However, each case is actually
about 930 records long.  I need to get the data in a format that can be read
in sas fixed format.  Therefore, I need to find a way to change the record
length of the file without losing any data (if I make each record shorter),
or to increase the record lenth and unwrap the data.
Thank you

Bryan Combs
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Organization: "ECU Computing and Information Systems"
Newsgroups: bit.listserv.cics-l
Date:         Tue, 29 Sep 1992 13:19:33 EDT
From:         "Brad S. Carson" <SSBSC@ECUVM1.BITNET>
Subject:      Re: CICS V3.3 TYPE 3 SVC
              29 Sep 1992 12:16:00 LCL from <WTP.ADMIN@MHS.UNC.EDU>

No you do not have to link the SVC as IGC00xx.  All you have to do is
to place module DFHCSVC into the LPA and add the following to IEASVCxx
in SYS1.PARMLIB

SVCPARM 216,REPLACE,TYPE(3),EPNAME(DFHCSVC)

and IPL with the CLPA option.


------------------------------------------------------------------------
Brad S. Carson                       Bitnet  :  SSBSC@ECUVM1
Systems Programmer (VM, MVS & VMS)   Internet:  SSBSC@ECUVM.CIS.ECU.EDU
East Carolina University             NASCOMM :  CarsBraS
Austin Building Room 108             Bellnet :  (919) 757 - 4346
Greenville, NC 27858
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Subject: (no subject given)
Newsgroups: bit.listserv.cics-l
Date:         Tue, 6 Oct 1992 16:17:48 BSC
From:         CPDSBD02@FGVRJ.BITNET

    SOME TIME AGO I RECEIVED A PROGRAM THAT RESET A TERMINAL FROM
VSE/SP TO VM UNDER CICS. NOW I AM TRYNG TO USE IT BUT TERMINAL IS PUT
OUT OF SERVICE WHEN TASK FINISH. DOES ANYBODE KNOW THE WAY TO SOLVE
THIS PROBLEM ?

THANKS IN ADVANCE,

VALERIA CESARIO
From: WTP.ADMIN@MHS.UNC.EDU ((WTP))
Newsgroups: bit.listserv.cics-l
Subject: CICS V3.3 TYPE 3 SVC
Date: 29 Sep 92 16:44:06 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
X-Delivery-Notice:  SMTP MAIL FROM does not correspond to sender.
Comments: To: "(-)" <CICS-L@akronvm.bitnet>

To: CICS-L
Cc: BILL PITTS VIA INET

Does DFHCSVC need to be linked as IGC0021F (SVC 216) when it is installed
in the LPA?

The Installllation guide discusses installing it in the LPA and defining it
to MVS via the SVCPARM entries in IEASVCnn member of PARMLIB, but does not
make reference to the TYPE 3 nameing convention of IGC00nnn (where nnn is
the signed decimal SVC number).

Thanks

Bill Pitts
Systems Programmer
Communications
Administrative Data Processing
University of North Carolina
Chapel Hill, NC 27599-1150
BitNet: PITTS@UNC.BITNET
InterNet: WTP.ADMIN@MHS.UNC.EDU
ATTNet: (919) 966-5835

*-----------------------------------------*
 The opinions expressed herein are mine.
 You can't have them.
*-----------------------------------------*
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.cics-l
Date:         Wed, 30 Sep 1992 14:24:54 CDT
From:         Jeff Huestis <HUESTIS@WULIBS.BITNET>
Subject:      SYSIN Task Initiation

I've been installing SQL/DS in a CICS 2.1-VSE/ESA environment, and ran into
something that I've never heard of (but haven't yet been able to get working).

The SQL installation manual says that if you code a TCT entry for CRLP support
(card-reader/line-printer), then you can put an SQL transaction into the
CICS startup job stream (after EXEC DFHSIP) and it will be invoked after CICS
initialization.  But I can't find any other references to this technique in
the CICS manuals themselves.  Does anybody know where to find an exhaustive
treatment of this?

Additional details:
1.  Since I'm reading SIT override parameters from SYSIN/SYSIPT, I've put the
    SQL transaction after the $END statement.
2.  I'm doing this with DTSINIT, not with DFHSIP as in the SQL example, since
    we have ICCF in our test region, not our production region.

Any further insights would be appreciated.

Jeff Huestis
Washington University Libraries
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.cics-l
Date:         Fri, 2 Oct 1992 08:29:47 EST
From:         "Helen P. Nulty" <HNUL@SLUMUS.BITNET>
Subject:      Automatic signoff of a CICS/BTAM user
Comments: To: cics-l@uga.bitnet

Thanks to all who made suggestions for the problem I posted on this
topic back on 9/9.  We used Greg Schmalhofer's solution in its entirety
and borrowed and idea from Warren Van Wyck to get the result we were
looking for.

in the DFHTEPM macro we added the following after the label:
TEPCD94B   DS  0H
           NI  TCTLEECB+1,255-(ABENDT+TERMOS+DISCON+ABORTWR)
           MVC TCTTETC,=C'IEGM'

We are ICCF users and IEGM transaction presents the signon screen.

Thanks again.

Helen P. Nulty      (315-379-5979)
Systems Programmer
St. Lawrence University, Computer Services
Canton, NY  13617
<hnul@slumus> or <nulty@stlawu>
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Organization: "ECU Computing and Information Systems"
Newsgroups: bit.listserv.cics-l
Date:         Tue, 29 Sep 1992 07:26:22 EDT
From:         "Brad S. Carson" <SSBSC@ECUVM1.BITNET>
Subject:      Help with CICS/ESA 3.3 and RACF
Comments: To: CICS List <CICS-L@UGA.BITNET>,
              RACF Disscussion List <RACF-L@UGA.BITNET>

Hello, here at East Carolina University we are installing CICS for the
first time and need some help.  When I try to bring up CICS to run the
online IVP I get the message:

  DFHXS0205 CICSTEST
  09/27/92 16:43:48 CICSTEST External security initialization has
  failed with return code X'00000004' and reason code X'04001000'.

I know this means I have something configured wrong between RACF and
CICS.  I have been looking through some of the manuals but they don't
seem to answer my question.  That question is

  What are the proper definitions needed for RACF to work with CICS???

The software:   MVS/ESA 4.2.2 on a 9121-210
                CICS/ESA 3.3.0
                RACF 1.9


Thanks in advance for any help you can offer.


------------------------------------------------------------------------
Brad S. Carson                       Bitnet  :  SSBSC@ECUVM1
Systems Programmer (VM, MVS & VMS)   Internet:  SSBSC@ECUVM.CIS.ECU.EDU
East Carolina University             NASCOMM :  CarsBraS
Austin Building Room 108             Bellnet :  (919) 757 - 4346
Greenville, NC 27858
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Original_To:  BITNET%"cics-l@uga"
Newsgroups: bit.listserv.cics-l
Date:         Wed, 30 Sep 1992 16:17:00 CDT
From:         VAUGHAN@VUCTRVAX.BITNET
Subject:      SYSIN Task Initiation

    We did something similar to this a while back. I still have
my CICS startup JCL, but not the TCT entry. This is what the
last part of our startup looked like:

// EXEC DTSINIT...
NO
NO
YES
00,...
01,...
02,...
03,...




CSSN PS=BRS,NAME=BRS\
INIT SAMPLE\
/*
/. EXIT
/*
* $$ EOJ


Maryanne Vaughan
Vanderbilt University
VAUGHAN@VUCTRVAX
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Original_To:  BITNET%"cics-l@uga"
Newsgroups: bit.listserv.cics-l
Date:         Tue, 29 Sep 1992 13:58:00 CDT
From:         VAUGHAN@VUCTRVAX.BITNET
Subject:      signing off a user

   We are running CICS 1.7 and VSE/SP 4.1.1.  We use the IUI, and
occasionally someone will try to sign on but will get the message
"USERID ALREADY IN USE AT xxxx".  There is an option from the
'display active users' screen to sign off a user. Could someone
tell me the CICS command that is the equivalent?
Thanks in advance,
Maryanne Vaughan
Vanderbilt University
VAUGHAN@VUCTRVAX
Newsgroups: bit.listserv.cics-l
From: TAC@ysub.ysu.edu (Troy Allen Cross)
Subject: DFHDUP (CICS Dump Program) Modifications
Organization: Youngstown State University
Date: Fri, 2 Oct 1992 14:13:10 GMT

Last week, on this list, there was some mention of DFHDUP modifications.
 
Could someone please send me the modifications to the DFHDUP program
for CICS/MVS 2.1.1 to allow specific dump selection?
 
Also, I have heard of a modification that puts the CICS dumps into different
members of a PDS?  Is this the same modification?
 
Please note that I do not have access the CICS SHARE tape.  Or any SHARE/CBT/
Naspa tapes for that matter.
 
Thanks in advance, Troy
 
************************************************************************
* Troy Allen Cross                                                     *
* Software Specialist (MVS/XA & CICS/MVS SYSPROG)                      *
* Youngstown State University                                          *
* 410 Wick Avenue                                                      *
* Youngstown, OH 44555-3036                                            *
* A.K.A. on BITNET as TAC@YSUB and Internet as TAC@YSU.EDU             *
************************************************************************
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.cics-l
Date:         Tue, 29 Sep 1992 15:48:36 EDT
From:         Larry Holder <##09@UTMARTN.BITNET>
Subject:      signing off a user

>    We are running CICS 1.7 and VSE/SP 4.1.1.  We use the IUI, and
> occasionally someone will try to sign on but will get the message
> "USERID ALREADY IN USE AT xxxx".  There is an option from the
> 'display active users' screen to sign off a user. Could someone
> tell me the CICS command that is the equivalent?

There is no command I know of, for CICS 1.7 or 2.1 at least, to do
a signoff of a userid for another terminal.  The action is
basically to reset some TCT fields, including the anchor to the
pseudo-SNT entry that is built at signon.  I believe the IUI also keeps
track of signed-on users in its control file, because CICS
itself lets a userid sign on to more than one terminal at a time.

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)
Newsgroups: bit.listserv.cics-l
Date:         Fri, 2 Oct 1992 08:31:03 EDT
From:         Steve Rimar <D1SAR@AKRONVM.BITNET>
Subject:      Re: mixed case processing

We are also in the process of having upper/lower case translation available
by transaction. First of all ditto on Larry Holder's comments.
We also have a product 'Dialog Manager' from Technologic Software Concepts Inc.
that allows us to control the translation by transaction.  Since we have 3 CICS
regions and want to have only 1 TCT this product will handle our translations.

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*                                                                       *
*  STEVE RIMAR                       INTERNET: D1SAR@VM1.CC.UAKRON.EDU  *
*  INFORMATION SERVICES              BITNET:   D1SAR@AKRONVM            *
*  THE UNIVERSITY OF AKRON                                              *
*  AKRON, OHIO  44325           "ANY FOOL CAN CRITICIZE, CONDEMN, AND   *
*                                COMPLAIN-- AND MOST DO."               *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.cics-l
Date:         Thu, 1 Oct 1992 14:12:48 CDT
From:         NREEVES@TWSUVM.BITNET
Subject:      mixed case processing

Our shop is discussing the feasibility of changing from all upper case CICS
processing to mixed case processing. We currently have all terminals defined
with UCTRAN on (with the exception of terms used exclusively for NOTIS
processing). Almost all of the applications involved are written in command-
level Cobol. We're at CICS/VSE 2.1 (VSE/ESA 1.1), but I don't think that's
particularly relevant unless there are commands or functions available that
I don't know about.

What experiences, ideas, warnings, etc. does anyone have in processing in
mixed case, especially in converting from all upper to mixed case? Thoughts
regarding retraining users, files, dl/i databases, sorts, program changes,
etc. would be appreciated.

Thanks.

Nancy Reeves
<><
Technical Support Analyst        bitnet: nreeves@twsuvm
Wichita State University         internet: nreeves@twsuvm.uc.twsu.edu
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.cics-l
Date:         Thu, 1 Oct 1992 16:24:10 CST
From:         Larry Holder <##09@UTMARTN.BITNET>
Subject:      mixed case processing

> What experiences, ideas, warnings, etc. does anyone have in processing in
> mixed case, especially in converting from all upper to mixed case? Thoughts
> regarding retraining users, files, dl/i databases, sorts, program changes,
> etc. would be appreciated.

For one, if you define your terminals as mixed-case, you will have to
be sure that the PCT also has reference to each transid in lower-case;
I think the "xtransid" might take care of this.

As far as files go, they shouldn't care if the characters are upper or
lower - they're just bit combinations, with lowercase a-z coming before
uppercase A-Z in the EBCDIC order.

We have only limited need of mixed-case, specifically a transaction that
lets users type in correspondence to students.  We have a program that
is linked to to flip the bit that turns off uppercase, and turns it back
on when processing is complete.  There are a couple of fields on the
mixed-case screen that are needed in uppercase; we handle this ourselves
using the COBOL-II "inspect ... converting" verb.  We also have a
subroutine called Namemix that takes an uppercase field and produces
a mixed-case field with proper capitalization; it recognizes Roman
numerals and other special quirks.

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