home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / bit / listserv / vmutil / 1327 < prev    next >
Encoding:
Text File  |  1992-07-30  |  3.7 KB  |  92 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!paladin.american.edu!auvm!UMINN1.BITNET!IJIM
  3. Message-ID: <VM-UTIL%92073101044082@OHSTVMA.IRCC.OHIO-STATE.EDU>
  4. Newsgroups: bit.listserv.vm-util
  5. Date:         Thu, 30 Jul 1992 23:33:07 CST
  6. Sender:       VM Utilities Discussion List <VM-UTIL@OHSTVMA.BITNET>
  7. From:         Jim Colten <IJIM@UMINN1.BITNET>
  8. Subject:      Re: NETDATA File Creation Program
  9. In-Reply-To:  Message of Thu, 30 Jul 1992 14:50:47 PDT from <DWIGHT@UCSBVM>
  10. Lines: 80
  11.  
  12. On Thu, 30 Jul 1992 14:50:47 PDT Dwight M. McCann said:
  13. >I need to be able to punch a netdata format file from data in my reader
  14. >(which may be netdata, print or punch) for files that are too large to
  15. >fit on available disk or in virtual memory.  That is, I need a program
  16. >or subroutine that can read a record (or so) from the reader and then
  17. >punch a record (or so) in netdata format, then read, then punch, etc,
  18. >without recourse to disk.
  19. >
  20. >The need for the netdata requirement for output is that these files are
  21. >being sent to MVS via RSCS and the records may be quite large.  Alternate
  22. >suggestions are welcome.
  23. >
  24. >Dwight
  25.  
  26. Well, if the original file already happens to be in NETDATA format, just use
  27.  
  28.        CP TAG FILE nnnn node userid
  29.  
  30. and then transfer the spoll file to RSCS.  But, I suspect that isn't your
  31. situation.
  32.  
  33. A pipelines solution has been proposed.  It was in the right neighborhood but
  34. complete NETDATA format for a file is somewhat complex and requires more than
  35. BLOCK NETDATA does on its own.  However, if you do have pipes, look on the
  36. the product disk (CMSPIPES 193 disk unless you have learned to defeat the
  37. somewhat stubborn install exec).  You will find INMR123 EXEC and INMR123 REXX.
  38. These can be used to construct complete netdata files.
  39.  
  40. I have used this to send files to a second level VM system without having to
  41. setup RSCS and a VCTCA.  The EXEC that does that is included at the end
  42. of this note.  I think it is straight forward enough to understand.
  43.  
  44. What you will have to do is:
  45.  
  46.  1) construct the pipeline specification that will deliver just the data
  47.     part of the spool file.
  48.  2) provide node and userid info for the destination
  49.  3) manufacture information about the file in the format that LISTFILE
  50.     would provide if the data were a disk file.
  51.  4) SPOOL the PUNCH to RSCS and tag it properly.
  52.  
  53. Jim Colten
  54.  
  55. p.s.  If you have never had the pleasure of using a real card reader with VM,
  56.       then the business about 'making an ID card and punching it' may be new
  57.       to you.  Just throw it away, it does not belong in your application.
  58.  
  59. /* Send a file to a userid on LEVEL2VM, in NETDATA (sendfile) format*/
  60. Trace N
  61. Signal On Novalue
  62. Address Command
  63.  
  64. Arg who fn ft fm .                    /*get args                     */
  65.  
  66. If fm = '' Then                       /* filemode defaults to *      */
  67.     fm = '*'
  68.  
  69. If ft = '' Then                       /* all other args are required */
  70.   Exit 24
  71.  
  72. 'PIPE(name FILEINFO)',
  73.    '  CMS LISTFILE' fn ft fm'(DATE NOH',  /* info about the file     */
  74.    '| var fileinfo'                       /*       into a var        */
  75.  
  76. 'CP SPOOL PUN LEVEL2VM'               /* punch into the level 2 rdr  */
  77.  
  78. 'PIPE(name IDRECORD)',
  79.    '  literal ID' who,                /* make an ID card             */
  80.    '| punch'                          /*     and punch it            */
  81.  
  82.  
  83. Call inmr123,
  84.      '<' fn ft fm,,                   /* source of data to send      */
  85.      'UMINN1' who,,                   /* info about destination      */
  86.      fileinfo,                        /* info about the data         */
  87.      '(NOSPOOL'                       /* let us do the SPOOL cmds    */
  88.  
  89. 'CP SPOOL PUN CLOSE'                  /* close that punch file       */
  90. 'CP SPOOL PUN SYSTEM'
  91. Exit
  92.