Newsgroups: bit.listserv.cmspip-l
Date:         Tue, 14 Apr 1992 15:27:14 LCL
From:         Bridget Rutty <SYSBXR@SUVM.BITNET>
Subject:      CMS Filter

While using pipes in interface execs I have discovered that the response
to the rel (det command is not fed into the pipeline.  I have read the
help file and it seems to me that it should.  Am I missing something
or is it not working correctly?

Here's the console:

Ready; T=0.01/0.01 15:08:39
q disk
LABEL  CUU M  STAT  CYL TYPE BLKSIZE   FILES  BLKS USED-(%) BLKS LEFT  BLK TOTAL
BXR191 191 A   R/W   45 3380 1024       1673      19077-91       1848      20925
OPN193 193 B   R/O  400 3380 4096         74      36609-61      23391      60000
TMP001 001 C   R/W   40 3380 4096          2       3110-52       2890       6000
STAFF  5FD D   R/O    4 3380 2048        151        845-78        235       1080
SRT62E 120 E   R/O   12 3380 4096        626       1429-79        371       1800
MNT5FF 5FF F   R/O    3 3380 1024        122       1052-75        343       1395
PLI23  130 G/A R/O   35 3380 4096        227       3781-72       1469       5250
COMLIB 140 H/A R/O   10 3380 4096         41        768-51        732       1500
SRT22D 122 I   R/O    4 3380 4096        286        457-76        143        600
SAS606 123 J   R/O  300 3380 4096        368      39409-88       5591      45000
RESPP  311 K/K R/O   30 3380 4096        158       2104-47       2396       4500
USRLIB 317 L/L R/O   15 3380 4096         67       1329-59        921       2250
ACCLIB 318 N/N R/O   12 3380 4096        250       1078-60        722       1800
FEATRS 319 P/P R/O   25 3380 4096        891       3700-99         50       3750
CMSSYS 190 S   R/O   31 3380 4096        235       4007-86        643       4650
ADM291 291 T   R/O    1 3380 1024         19         39-08        426        465
PPHELP 31B V/V R/O   40 3380 2048       4207       6438-60       4362      10800
HELP   19D X/X R/O   26 3380 2048        153       6127-87        893       7020
CMSEXT 19E Y/S R/O    6 3380 2048        265       1330-82        290       1620
VMSHAR 412 Z   R/O   67 3380 4096       1344       9774-97        276      10050
Ready; T=0.01/0.02 15:08:49
testrel
DASD 122  DETACHED
Ready; T=0.02/0.02 15:09:05

Here's my test exec:

/*  */
address command 'PIPE',
  ' pipdsrc srt22d',                /* What file mode was assigned ? */
  ' | spec /rel/ 1 1-* nextword /(det/ nextword', /* Build command   */
  ' | cms '                           /* Release and detach disk     */


Here's the pipe subroutine used:

/*  Locate minidisk by label                                          */
/*  Written By Bridget Rutty - 02/11/92                               */
/*  return either 'notfound' or file mode                             */
trace
Parse Upper Arg label
lblfield = '/' || subword(label,1) || '/'
address command 'PIPE',
    'cms query search',  /* Get the disks */
    '|spec 1.6 1 14.1 nextword',    /* Save the labels and file mode */
    '| locate'  lblfield,             /* Locate our disk             */
    '|spec 8.1 1',                    /* Get the file mode           */
    '| var answer'                    /* Save it                     */

if answer = 'ANSWER'
   then answer = 'notfound'
'callpipe (name PIPDSRC)',
      'var answer',                   /* File mode or notfound       */
      '| *:'                          /* Send it to calling pipe     */
exit
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Subject: (no subject given)