dasdload control file

I don't like the idea of not being able to create a
3390 disk without creating a control file that
nominally has XMITs on it.  I would have thought
that dasdinit would be able to do the formatting
too, rather than via the load, but the easiest
thing for me to do was to just allow this syntax:

C:\mvs380\dasd>echo ABCDEF 3390 | dasdload -bz2 - abcdef.000

to get a formatted 3390 called ABCDEF.

BFN.  Paul.



Index: dasdload.c
===================================================================
RCS file: c:\cvsroot/hercules/dasdload.c,v
retrieving revision 1.1.1.2
diff -c -r1.1.1.2 dasdload.c
*** dasdload.c 11 Jan 2009 01:51:04 -0000 1.1.1.2
--- dasdload.c 9 Jul 2009 10:10:03 -0000
***************
*** 4406,4411 ****
--- 4406,4413 ----
      /* Process optional arguments */
      for ( ; argc > 1 && argv[1][0] == '-'; argv++, argc--)
      {
+         /* a single - can be used for the control file */
+         if (argv[1][1] == '\0') break;
          if (strcmp("0", &argv[1][1]) == 0)
              comp = CCKD_COMPRESS_NONE;
  #ifdef CCKD_COMPRESS_ZLIB
***************
*** 4446,4453 ****
      }
 
      /* Open the control file */
!     hostpath(pathname, cfname, sizeof(pathname));
!     cfp = fopen (pathname, "r");
      if (cfp == NULL)
      {
          XMERRF ("HHCDL001E Cannot open %s: %s\n",
--- 4448,4462 ----
      }
 
      /* Open the control file */
!     if (strcmp(cfname, "-") == 0)
!     {
!         cfp = stdin;
!     }
!     else
!     {
!         hostpath(pathname, cfname, sizeof(pathname));
!         cfp = fopen (pathname, "r");
!     }
      if (cfp == NULL)
      {
          XMERRF ("HHCDL001E Cannot open %s: %s\n",
***************
*** 4564,4570 ****
                          outcyl, outhead);
 
      /* Close files and release buffers */
!     fclose (cfp);
      close_ckd_image (cif);
 
      return rc;
--- 4573,4582 ----
                          outcyl, outhead);
 
      /* Close files and release buffers */
!     if (strcmp(cfname, "-") != 0)
!     {
!         fclose (cfp);
!     }
      close_ckd_image (cif);
 
      return rc;