HDTenEightyP/NetNews huggingface dataset:
From: PIPER@VNET.BITNET (John P. Hartmann)
Newsgroups: bit.listserv.cmspip-l
Subject: Inline editors.
Date: 15 Oct 92 19:06:15 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU


 RE: Inline editors.

 1.  I saw one for UNIX that a Danish software house has just made.
 The only alternative is an AWK script to turn the file into VI
 commands to load it into an empty file.  But then we all just love
 UNIX, don't we?

 2.  Isn't there a chicken-and-egg problem here?  |XEDIT requires that
 there already is an XEDIT session active.  Getting one up and running
 requires more than fiddeling SVCSAVES as I discovered when I started
 using CMS8; the shared subpools are threaded both on the SVCSAVE and
 on a private chain; XEDIT blows sky high if you try my old tricks with
 CMS8  (Remember the Concurrent Programming session at SHARE in
 Annaheim about 10 years ago?)

 3.  I have started on a REXX-based browser/editor stage; mainly to
 have something that works on TSO.  There is too much religion in
 editor design for me ever to make it public :-)

     j.                                                john@vnet.ibm.com
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Organization: Oklahoma State University
Newsgroups: bit.listserv.cmspip-l
Date:         Thu, 8 Oct 1992 18:42:48 CST
From:         Brent Stilley <UCCXBRS@OSUVM1.BITNET>
Subject:      Re: Pipe lookups
              7 Oct 1992 20:04:51 EST from <IQTI400@INDYCMS.IUPUI.EDU>

On Wed, 7 Oct 1992 20:04:51 EST macphil said:
>On Wed, 7 Oct 1992 15:03:03 PDT Rodger Bagnall said:
>>On Wed, 7 Oct 1992 16:57:39 EST macphil said:
>>>Like the following?  Obviously one wouldn't expect to find anything
>>>resulting in the stem <QDisk.> because everything in the search list
>>>should be linked (except SFS directories).
>>This is not PIPEs but...
>>You can detach a disk without releasing it. You can do STATEs on files
>>on such a phantom disk.
>
>Not on our VM/ESA 1.1 SL 102 machine!  What you describe could
>happen back when we were on the archaic VM/XA 2.1 system, but
>I noticed right away on ESA 1.1 that this doesn't happen anymore...

The CP DETACH now generates a machine check that CMS fields.  Same thing
happens every time you attach a tape drive.

Brent Stilley,  Oklahoma State University, 113 Math Sciences, Stillwater, 74078
From: MAINT@CLVM.BITNET (Richard Seifert, Jr.)
Newsgroups: bit.listserv.cmspip-l
Subject: Re: IBM docs
Date: 15 Oct 92 20:03:23 GMT
Organization: Clarkson University
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU

On Wed, 14 Oct 1992 16:45:39 CDT Rich Winkel said:
>Can anyone give suggestions for pipes documentation from IBM?
>I'm experienced at rexx, but new to pipes.
>Titles and IBM part number would be much appreciated.

     There is a CMS Pipelines User's Guide.  #SL26-0018-00
Rich

>
>Thanks!
>Rich
From: RZOTTO@DKNKURZ1.BITNET (Otto Stolz)
Newsgroups: bit.listserv.cmspip-l
Subject: CMS Pipelines Bibliography (was: IBM docs)
Date: 15 Oct 92 21:53:09 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
X-Acknowledge-To: <RZOTTO@DKNKURZ1>

On Wed, 14 Oct 1992 16:45:39 CDT Rich Winkel said:
> Can anyone give suggestions for pipes documentation from IBM?
> I'm experienced at rexx, but new to pipes.
> Titles and IBM part number would be much appreciated.

Available from IBM:

GG66-3158-00 "CMS Pipelines Tutorial"

SL26-0018-01 "VM CMS Pipelines PRPQ P81059
             User's Guide & Filter Reference"

SB11-6605-0  "VM/SP CMS Pipelines
             Toolsmith's Guide & Filter Programming Reference"

There's also an Installation Reference you won't need,
and a VM/ESA 1.1 manual I don't know.


Available from user organisations:

John Hartman   "How CMS Got Its Plumbing Fixed"
               SHARE Europe Proceedings, ISSN 0255-6464,
               volume sm 1990-I, pages 175-186 (Apr 1990)

Chuck Boeheim  "Pipelines Programming Paradigms: Prefab Plumbing"
               Proceedings of SHARE 77, pages 561-579 (Aug 1991)

Melinda Varian "Plunging into Pipes"
               Proceedings of SHARE 77, pages 548-560 (Aug 1991);
               also in: SHARE Europe Proceedings, ISSN 0255-6464,
               volume am 1991-II, pages 1087-1110 (Oct 1991)

John Hartman   "CMS Pipelines Explained"
               SHARE Europe Proceedings, ISSN 0255-6464,
               volume sm 1992, pages 285-320 (Mar 1992)

John Hartman   "Practical Plumbing"
               SHARE Europe Proceedings, ISSN 0255-6464,
               volume sm 1992, pages 321-336 (Mar 1992)

Melinda Varian "Plunging on--Apprentice Plumbing"
               ??                           (Apr 1992)


Available from the file server LISTSERV at AWIIMC12:

Introduction and overwiew:
  LISTSERV REFCARD    LISTSERV commands, concise reference
  CMSPIP-L READ$$ME   introduction for using CMSPIP-L FILELIST
  CMSPIP-L FILELIST   List of files related to CMS Pipelines

Chuck Boeheim  "Pipelines Programming Paradigms: Prefab Plumbing"
  PARADIGM PACKAGE    The following 3 files
  PARADIGM KNAPSACK   SCRIPT and LISTING in a knapsack
  PARADIGM LIST3820   formatted, in ENCODF format
  PARADIGM LISTPS     For Postscript, in ENCODF format

Melinda Varian "Plunging into Pipes"
  PLUNGE   LISTING    as LISTING
  PLUNGE   LISTPS     in PostScript
  PLUNGE   LIST3820   for 3820


Happy plumbing,
                    Otto Stolz <RZOTTO@DKNKURZ1.Bitnet>
                               <RZOTTO@nyx.uni-konstanz.de>
From: YOSSIE@UCSFVM.UCSF.EDU (Yossie Silverman)
Newsgroups: bit.listserv.cmspip-l
Subject: Re: Pipes and LEXX
Date: 14 Oct 92 20:11:13 GMT
Organization: University of Califonia San Francisco
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
              14 Oct 1992 15:01:42 CDT from <TROTH@RICEVM1.RICE.EDU>

I bet unix has a way to do it.  Best would be to make XEDIT the
"inline" editor.  Should be simple, given that XEDIT reads the
entire file into memory before editing and writes it all out when
done (or parts for updates :-)  I don't think it would be easy
or simple to do without touching XEDIT (though I bet, again, that
it can be done with some SVC trapping and cleverness of the type
routinely found in PIPES anyway :-)  - Yossie

---
Yossie Silverman                   "What did the Caspian Sea?" - Saki
I'Net:  yossie@ucsfvm.ucsf.edu
Bitnet: YOSSIE@UCSFVM              B5/4 f- w- t cd g++ k++ s++ p
From: IGBF@IBM-B.RUTHERFORD.AC.UK (Ivan Fabian)
Newsgroups: bit.listserv.cmspip-l
Subject: Thanks for response on my Address problem
Date: 15 Oct 92 12:21:26 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
X-Delivery-Notice: SMTP MAIL FROM does not correspond to sender.

Thanks to everyone who offered help on returning to the original
addressing mode.

As was suggested I found that using Address on its own did
restore it.

I also thought I would try another suggestion to use

unreadable=Address()
.
.
Address 'COMMAND'
.
.
Address Value unreadable

which also worked.

Thanks again,
Ivan Fabian

+-----------------------------------+------------------------------------+
| Central Computing Department      |     IGBF@UKACRL                    |
| R27, Room G37, Chilton, Didcot    |     IGBF@UK.AC.RL.IB               |
| Oxon. OX11 0QX                    |     GB3FFQJF at IBMMAIL            |
+-----------------------------------+------------------------------------+
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.cmspip-l
Date:         Fri, 9 Oct 1992 15:36:16 LCL
From:         Bridget Rutty <SYSBXR@SUVM.BITNET>
Subject:      Re: Where Does Pipes Load?
Comments: To: Wayne Smith <WTS@MAINE.MAINE.EDU>

On Fri, 09 Oct 92 15:21:39 EDT you said:
>Hi Bridget,
>
>In both the PRPQ and ESA2, CMS Pipelines bootstraps from the transient
>area and loads itself via a relocatable/nucxloaded module (thus 20000 is
>safe).

Thanks, yes - I just discovered this.  It has been suggested to me that
I try nucxloading WAKEUP to see if that will fix my problem.  In playing
around with it I discovered Pipe and Pipemod nucxloaded in my machine.
What things can be discovered when one raises the hood!

Bridget Rutty                                        SYSBXR@SUVM.BITNET
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.cmspip-l
Date:         Fri, 9 Oct 1992 14:23:13 LCL
From:         Bridget Rutty <SYSBXR@SUVM.BITNET>
Subject:      Where Does Pipes Load?

We're trying to run the Merge/Purge utility program from Systems Center
and we don't use VMTAPE.  In this situation the Merge/Purge module
calls an exit (exec) to get tapes mounted.  We have modified the exec
to use WAKEUP to wait for the tape mount.  The Merge/Purge utility
loads at 20000, and WAKEUP sometimes loads at 20000 and sometimes loads
elsewhere.  Obviously, when it loads at 20000 the Merge/Purge utility abends
with a protection exception.

Where does Pipes load?  I have to replace WAKEUP with something and
I don't want to spend time developing a pipes solution just to discover
I have the same problem.

Bridget Rutty                                        SYSBXR@SUVM.BITNET
From: TROTH@RICEVM1.RICE.EDU (Rick Troth)
Newsgroups: bit.listserv.cmspip-l
Subject: in-line editors
Date: 16 Oct 92 23:53:18 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU

Oh well ... this works:

        /* REXX */

        tempfile = Right(Date('D'),3,'0') || Right(Time('S'),5,'0')

        'CALLPIPE *: | >' tempfile 'TEMPFILE A3'
        If rc ^= 0 Then Exit rc

        'CALLPIPE COMMAND XEDIT' tempfile 'TEMPFILE'

        'CALLPIPE STATE' tempfile 'TEMPFILE A'
        If rc = 0 Then
        'CALLPIPE <' tempfile 'TEMPFILE A | *:'

        Exit

If you  FILE  it when you're done,  then your changes are passed to
the next stage.   You can use it to view something disposable.

It would be nice if it didn't write to disk.   Some use of  INSTORE
and  OUTSTORE  would clearly work,  but you'd have to do funny things
with  PROFILE XEDIT.

What should this be called?   PIPEEDIT?   STREAMEDIT?   SCOPE?

Rick Troth <troth@ricevm1.rice.edu>, Rice University, I/S VM Systems Support
From: TROTH@RICEVM1.RICE.EDU (Rick Troth)
Newsgroups: bit.listserv.cmspip-l
Subject: Pipes and LEXX
Date: 14 Oct 92 20:01:42 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU


        Just for grins,  I tried:    pipe < profile exec | lexx
It didn't work.   I didn't expect it to.

        But!   Has anyone created an in-line editor?   Can LEXX be
taught to read from an input stream?   This is something that doesn't
exist even in the  (supposedly)  heavily pipelined UNIX world,
an editor that reads from the input stream,  edits the file,
and sends it to the output stream.   T'would be neat,  no?

Rick Troth <troth@ricevm1.rice.edu>, Rice University, I/S VM Systems Support
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.cmspip-l
Date:         Wed, 7 Oct 1992 16:57:39 EST
From:         macphil <IQTI400@INDYCMS.IUPUI.EDU>
Subject:      Re: Pipe lookups
Comments: To: VM/SP CMS Pipelines Discussion List <CMSPIP-L@MARIST.IUPUI.EDU>

On Wed, 7 Oct 1992 15:10:54 EDT Philip Tejera said:
>What I am trying to do is match the output from a Q V DASD with that
>from a CMS Q DISK, under ESA. The problem is that the former gives the
>address as, say, 0191, while the latter gives 191. Worse still, if there
>is, say, a 1111, it extends to the right of the 191, so it seems I
>will have to left-pad the CMS Q DISK 191 to 0191; but from the manual
>it seems that the Lookup Pad option "is used to extend the shorter of
>two key fields" , that is, to the right, or 1910. I suppose what I
>could do is write a simple Rexx filter to do the padding, but how
>does that affect the lookup syntax?

Like the following?  Obviously one wouldn't expect to find anything
resulting in the stem <QDisk.> because everything in the search list
should be linked (except SFS directories).

Hope this helps!

--------------------------------------------------------------------------
/* */

/* adapted from Melinda Varian's example of mulitple pipelines        */

'PIPE (endchar ?)',
      '  command QUERY DISK',
      '| drop 1',
      '| spec pad 0 w 2 1.4 right',
      '| lkup: lookup 1.4 1.4',
      '| unique 1-4',
      '| stem matches.',
      '?',
      '  cp 10000 q v dasd',
      '| spec w 2 1.4',
      '|lkup: ',
      '| stem qdisk.',
      '?',
      'lkup:',
      '| stem cponly.' ;   Rcode = Rc ;

If Rcode <> 0
Then Do ;
   Say 'Error in PIPE:' Rcode ;
   Exit Rcode ;
End ;

Say 'Here are the matches:' ;
Do I = 1 To Matches.0 ;
   Say Format( I, 5 ) Matches.I ;
End ;

Say ;
Say 'Here are the accessed addresses:' ;
Do I = 1 To QDisk.0 ;
   Say Format( I, 5 ) QDisk.I ;
End ;

Say ;
Say 'Here are the linked (but not accessed) addresses:' ;
Do I = 1 To CPOnly.0 ;
   Say Format( I, 5 ) CPOnly.I ;
End ;

Exit 0 ;

------------------------------------------------------------------------
"The lesser of two evils is still evil." - Winston Churchill

MacPhil / iqti400@indycms.bitnet / iqti400@indycms.iupui.edu
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.cmspip-l
Date:         Thu, 8 Oct 1992 11:27:12 LCL
From:         "John P. Hartmann" <PIPER@VNET.BITNET>
Subject:      To pad on the right.

 RE: To pad on the right.

 Do it on the way into LOOKUP rather than *in* lookup:

   pipe (End ?)
     ...
     ? cms q disk | spec pad 0 5.4 1.4 right | l:


     j.                                                john@vnet.ibm.com
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.cmspip-l
Date:         Thu, 8 Oct 1992 15:37:58 EDT
From:         Tom True <TDTRUE@PUCC.BITNET>
Subject:      Looking to buffer file

REPLY TO 10/08/92 14:02 FROM DEJEAN@MITVMA.BITNET "Jacques V. Dejean": Re:
Looking to buffer file

It's not clear to me that you need to do any buffering at all.  It sounds
as though all you want to do is to read records from input to output
until you've read some number, and then change the output destination.

The following pipe and the accompanying filter should do what you
want, although I haven't thoroughly tested them.

(I'm not certain whether or why the 'PEEKTO' is needed.)

Tom True


Pipe:

  PIPE disk fn fn fm|multiple 50000 TESTFILE D

Multiple REXX:
/*  Multiple: write stream to sequence of files                      */
/*  Syntax:                                                          */
/*    MULTIPLE count FileName FileMode                               */
/*  Where:                                                           */
/*    Count is number of records to a file                           */
/*    FileName is the file name of every file created (default FILE) */
/*    FileMode is file mode for created files  (default A)           */
/*                                                                   */

parse arg count fn fm .

if count = '' then do
  say 'You must supply a count!'
  exit 24
  end

if fn = '' then fn = 'FILE'
if fm = '' then fm = 'A'

ftCount = 1
signal on error
Do forever
  'PEEKTO'
  'CALLPIPE    (Name Multiple)',      /* Name that pipe              */
     '*:|',                           /* Connect to input            */
     'take' count'|',                 /* Take what we want           */
     'disk' fn Right(ftCount, 8, 0) fm /*and write to file           */
  ftCount = ftCount + 1               /* Make new file type          */
  end

ERROR: exit rc * (rc<>12)
From: PIPER@VNET.BITNET (John P. Hartmann)
Newsgroups: bit.listserv.cmspip-l
Subject: Unspeakable address()
Date: 15 Oct 92 22:03:07 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU


 RE: Unspeakable address()

 Passing the value of address() to an external function will invariably
 lead to trouble if the value is used in an Address instruction.

     j.                                                john@vnet.ibm.com
From: IJIM@UMINN1.BITNET (Jim Colten)
Newsgroups: bit.listserv.cmspip-l
Subject: Re: VM/VSAM stage for PIPES?
Date: 15 Oct 92 20:44:11 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU

On Thu, 15 Oct 1992 14:57:53 EST Guy Nash said:
>Is there way to read VSAM KSDSes using PIPES?

That WOULD be nice!

>
>I'm really dreading trying to develope an assembler PIPE stage at this point
>in my plumbing career....
>

Look also for a VSAM I/O function for REXX.  That would allow you to do avoid
the mysterious part and do something along the lines of:


PIPE < desired keys a  |  vsam  |  > desired records a


where:

/*VSAM REXX*/
Signal On Error
Arg dataset_name
fd = VsamIO('open', dataset_name)
Do Forever
  'READTO KEY'
  'OUTPUT' VsamIO('read', fd, key)
  End
Error:
Call VsamIO 'close', fd
Exit rc*(rc<>12)

If you cannot find such a beast and if you already know how to code VSAM I/O
in BAL, then write your own function.  REXX functions are relatively easy
to write (for CMS REXX anyway).  I think I could find a skeleton example if
you need one.

Another approach would be to write a VSAM subcom environment, also
intertesting.

Let us know if you come up with anything.

Jim Colten
From: MATHRICH@MIZZOU1.BITNET (Rich Winkel)
Newsgroups: bit.listserv.cmspip-l
Subject: Re: IBM docs
Date: 16 Oct 92 23:53:21 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU

What a helpful list!!  I'm off to the bookstore ...

Rich
From: TROTH@RICEVM1.RICE.EDU (Rick Troth)
Newsgroups: bit.listserv.cmspip-l
Subject: Re: Pipes and LEXX
Date: 14 Oct 92 20:29:59 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU

>>         But!   Has anyone created an in-line editor?
>
>I'm not too familiar with unix, but doesn't 'sed' meet your description?

        Nope.   Sed is more like a configurable filter.

Rick Troth <troth@ricevm1.rice.edu>, Rice University, I/S VM Systems Support
From: PIPER@VNET.BITNET (John P. Hartmann)
Newsgroups: bit.listserv.cmspip-l
Subject: LEXX/pipe interface.
Date: 15 Oct 92 19:01:57 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU


 RE: LEXX/pipe interface.

 We did try.  But it turned out to be impossible to find the proper
 PL/I environment to resume.

 Had we got it to work, LEXX would no doubt have been my editor of
 chioce now.

     j.                                                john@vnet.ibm.com
From: GPNASH@OCC.BITNET (Guy Nash)
Newsgroups: bit.listserv.cmspip-l
Subject: VM/VSAM stage for PIPES?
Date: 15 Oct 92 19:57:53 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Comments:     <Parser> W: TO field duplicated. Last occurence was retained.
Comments:     Warning -- original Sender: tag was NETNEWS@OCC
Comments: To: Netnews Server <NETNEWS@OCC.BITNET>

Is there way to read VSAM KSDSes using PIPES?

I'm really dreading trying to develope an assembler PIPE stage at this point
in my plumbing career....




HELP

Guy Nash              +1 313 540-1574   GPNASH@OCC
Systems Programmer
Oakland Community College
Bloomfield Hills, Mi, USA 48304
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.cmspip-l
Date:         Wed, 7 Oct 1992 15:10:54 EDT
From:         Philip Tejera <FXTCU@CUNYVM.BITNET>
Subject:      Pipe lookups

Not having gone through a plumbing apprenticeship, the Pipes manual
explanation of Lookup is not clear to me. Perhaps someone would be kind
enough to help.

What I am trying to do is match the output from a Q V DASD with that
from a CMS Q DISK, under ESA. The problem is that the former gives the
address as, say, 0191, while the latter gives 191. Worse still, if there
is, say, a 1111, it extends to the right of the 191, so it seems I
will have to left-pad the CMS Q DISK 191 to 0191; but from the manual
it seems that the Lookup Pad option "is used to extend the shorter of
two key fields" , that is, to the right, or 1910. I suppose what I
could do is write a simple Rexx filter to do the padding, but how
does that affect the lookup syntax?

Is this a correct interpretation? If so, what can be done? Thanks.
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.cmspip-l
Date:         Wed, 7 Oct 1992 20:04:51 EST
From:         macphil <IQTI400@INDYCMS.IUPUI.EDU>
Subject:      Re: Pipe lookups
Comments: To: VM/SP CMS Pipelines Discussion List <CMSPIP-L@MARIST.IUPUI.EDU>

On Wed, 7 Oct 1992 15:03:03 PDT Rodger Bagnall said:
>On Wed, 7 Oct 1992 16:57:39 EST macphil said:
>>Like the following?  Obviously one wouldn't expect to find anything
>>resulting in the stem <QDisk.> because everything in the search list
>>should be linked (except SFS directories).
>This is not PIPEs but...
>You can detach a disk without releasing it. You can do STATEs on files
>on such a phantom disk.

Not on our VM/ESA 1.1 SL 102 machine!  What you describe could
happen back when we were on the archaic VM/XA 2.1 system, but
I noticed right away on ESA 1.1 that this doesn't happen anymore...

------------------------------------------------------------------------
"The lesser of two evils is still evil." - Winston Churchill

MacPhil / iqti400@indycms.bitnet / iqti400@indycms.iupui.edu
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.cmspip-l
Date:         Fri, 16 Oct 1992 15:52:56 LCL
From:         "John P. Hartmann" <PIPER@VNET.BITNET>
Subject:      ISPF

 RE: ISPF

 Anyone using the ISPF driver with non-character fields?  (If you
 ask what that is, then you don't ;-)

 I've discovered (by learning a bit more aobut ISPF) that the ISPF
 driver has an exposure for dangling references when two or more stages
 reference the same variable (yes, the book says "don't do that",
 but...)

 To  fix this I'd use a different ISPF interface, and then the
 conversion onus would be on me, not ISPF.

 The invocation would be compatible, but I'd reject anything but CHAR
 (and DBCS, I suppose).  I'd also be sensible to assume CHAR when the
 field name is followed direcltly by a range.

     j.                                                john@vnet.ibm.com
From: BEC@ALBANY.BITNET (Ben Chi)
Newsgroups: bit.listserv.cmspip-l
Subject: Re: Pipes and LEXX
Date: 14 Oct 92 20:28:21 GMT
Organization: University at Albany Computing Services
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
X-Acknowledge-To: <BEC@ALBANY>
              14 Oct 1992 13:11:13 PDT from <YOSSIE@UCSFVM.UCSF.EDU>

Actually, I'd think that some rather creative things could be done IF the
following pipeline were legal:

PIPE . . . | XEDIT (PROFILE DoYrThng) | . . .

Any chance, John, for such an enhancement?  Or is there a way now to do
something like this?
                                             /b
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Newsgroups: bit.listserv.cmspip-l
Date:         Thu, 8 Oct 1992 14:02:14 EDT
From:         "Jacques V. Dejean" <DEJEAN@MITVMA.BITNET>
Subject:      Re: Looking to buffer file

Hi,

I working on a PIPE routine which will read in a large file (100,000+
records) and break it up into chunks of approx. 50,000 records per
new file created.  I have attempted to use 'buffer x' and 'instore'
however, I received the error message 'no more free storage'.  I
also attempted defining my virt. machine to 16Meg, and I get the
same response.

I am including the code of the PIPE.  If anyone could contribute
to resolving this problem, I would appreciate it.

Incidentally, the file is titled MYFILE 0923CNA2.

Thanks,

Jacques Dejean
Systems Programmer, MIT
-----------------------------------------------------

/* funnel exec:
** trying to break up a large file.
**
*/
signal on novalue
n = 0; m = 50000

Arg fn ft fm recfm lrecl .              /* take input             */
p = (substr(ft,8,1) + 1) / 1            /* get orig number of file*/
nft = substr(ft,1,7)

'PIPE (end \)',
   '< 'fn ft fm '|',                    /* Read file              */
   'uk:drop 'n '|',                     /* 1st time, don't change */
   'take 'm '|',                        /* take needed records    */
   '> 'fn nft||p fm recfm lrecl,        /* put into new file      */
   '\',
   'rexx cntup 'n p' |',
   'uk:'
-----------------------------
/* cntup rexx:
** count up
*/
arg n p
n = n + 50000
p = p + 1
'output' n p
From: PIPER@VNET.BITNET (John P. Hartmann)
Newsgroups: bit.listserv.cmspip-l
Subject: File names.
Date: 14 Oct 92 12:38:59 GMT
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU


 RE: File names.

 I think Rob was speaking about how PIPE goes about finding the files
 to read.

 Paul was making a statement about something entirely different, namely
 how CMS goes about resolving commands.

     j.                                                john@vnet.ibm.com
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU