int do_ls(char *file, char *sfile)
{
CIFBLK *cif = open_ckd_image(file, sfile, O_RDONLY|O_BINARY, IMAGE_OPEN_NORMAL);
if (!cif || do_ls_cif(cif) || close_ckd_image(cif))
return -1;
return 0;
}
int main(int argc, char **argv)
{
char *pgm; /* less any extension (.ext) */
int rc = 0;
CIFBLK *cif = 0;
char *fn;
char *sfn;
INITIALIZE_UTILITY( UTILITY_NAME, "DASD cat program", &pgm );
if (argc < 2)
{
// "Usage: dasdcat..."
WRMSG( HHC02405, "I", pgm );
return 1;
}
/*
* If your version of Hercules doesn't have support in its
* dasdutil.c for turning off verbose messages, then remove
* the following line but you'll have to live with chatty
* progress output on stdout.
*/
set_verbose_util(0);
while (*++argv)
{
if (!strcmp(*argv, "-i"))
{
fn = *++argv;
if (*(argv+1) && strlen (*(argv+1)) > 3 && !memcmp(*(argv+1), "sf=", 3))
sfn = *++argv;
else sfn = NULL;
if (cif)
{
close_ckd_image(cif);
cif = 0;
}
cif = open_ckd_image(fn, sfn, O_RDONLY | O_BINARY, IMAGE_OPEN_NORMAL);
if (!cif)
{
// "Failed opening %s"
FWRMSG( stderr, HHC02403, "E", *argv );
rc = 1;
break;
}
}
else if (cif)
{
if ((rc = do_cat( cif, *argv )) != 0)
{
rc = 1;
break;
}
}
}
if (cif)
close_ckd_image(cif);
return rc;
}
int main(int argc, char **argv) {
DADSM dadsm; // DADSM workarea
FILE *fout = NULL; // output file
CIFBLK *cif;
int dsn_recs_written = 0, bail, dsorg, rc;
char pathname[MAX_PATH];
fprintf(stderr, "dasdseq %s (C) Copyright 1999-2010 Roger Bowler\n"
"Portions (C) Copyright 2001-2010 James M. Morrison\n", VERSION);
if (debug) fprintf(stderr, "DEBUG enabled\n");
// Parse command line
memset(&dadsm, 0, sizeof(dadsm)); // init DADSM workarea
rc = parsecmd(argc, argv, &dadsm);
if (rc) exit(rc);
// Open CKD image
cif = open_ckd_image(din, sfn, O_RDONLY | O_BINARY, 0);
if (!cif) {
fprintf(stderr, "dasdseq unable to open image file %s\n", din);
exit(20);
}
// Unless -abs specified (in which case trust the expert user):
// Retrieve extent information for the dataset
// Display dataset attributes
// Verify dataset has acceptable attributes
if (!absvalid) {
rc = dadsm_setup(cif, &argdsn, &dadsm, local_verbose);
if (rc) {
close_ckd_image(cif);
exit(rc);
}
if (local_verbose) {
fprintf(stderr, "\n");
showf1(stderr, &dadsm.f1buf, dadsm.f1ext, copy_verbose);
fprintf(stderr, "\n");
}
bail = 1;
dsorg = (dadsm.f1buf.ds1dsorg[0] << 8) | (dadsm.f1buf.ds1dsorg[1]);
if (dsorg & (DSORG_PS * 256)) {
if ((dadsm.f1buf.ds1recfm & RECFM_FORMAT) == RECFM_FORMAT_F)
bail = 0;
if ((dadsm.f1buf.ds1recfm & RECFM_FORMAT) == RECFM_FORMAT_V) {
bail = 1; // not yet
fprintf(stderr, "dasdseq only supports RECFM=F[B]\n");
}
} else
fprintf(stderr, "dasdseq only supports DSORG=PS datasets\n");
if (bail) {
close_ckd_image(cif);
exit(21);
}
}
// Open output dataset (EBCDIC requires binary open)
hostpath(pathname, argdsn, sizeof(pathname));
fout = fopen(pathname, (tran_ascii) ? "wb" : "w");
if (fout == NULL) {
fprintf(stderr, "dasdseq unable to open output file %s, %s\n",
argdsn, strerror(errno));
close_ckd_image(cif);
exit(22);
}
if (local_verbose)
fprintf(stderr, "dasdseq writing %s\n", argdsn);
// Write dasd data to output dataset
dsn_recs_written = fbcopy(fout, cif, &dadsm, tran_ascii, copy_verbose);
if (dsn_recs_written == -1)
fprintf(stderr, "dasdseq error processing %s\n", argdsn);
else
fprintf(stderr, "dasdseq wrote %d records to %s\n",
dsn_recs_written, argdsn);
// Close output dataset, dasd image and return to caller
fclose(fout);
if (local_verbose > 2) fprintf(stderr, "CLOSED %s\n", argdsn);
if (local_verbose > 3) {
fprintf(stderr, "CIFBLK\n");
data_dump((void *) cif, sizeof(CIFBLK));
}
close_ckd_image(cif);
if (local_verbose > 2) fprintf(stderr, "CLOSED image\n");
return rc;
} /* main */
/*-------------------------------------------------------------------*/
int main (int argc, char *argv[])
{
char *pgm; /* less any extension (.ext) */
int rc; /* Return code */
int i=0; /* Arument index */
U16 len; /* Record length */
U32 cyl; /* Cylinder number */
U8 head; /* Head number */
U8 rec; /* Record number */
u_int trk; /* Relative track number */
char *fname; /* -> CKD image file name */
char *sfname=NULL; /* -> CKD shadow file name */
char dsnama[45]; /* Dataset name (ASCIIZ) */
int noext; /* Number of extents */
DSXTENT extent[16]; /* Extent descriptor array */
BYTE *blkptr; /* -> PDS directory block */
BYTE dirblk[256]; /* Copy of directory block */
CIFBLK *cif; /* CKD image file descriptor */
INITIALIZE_UTILITY( UTILITY_NAME, "PDS unload", &pgm );
/* Check the number of arguments */
if (argc < 3 || argc > 5)
{
FWRMSG( stderr, HHC02463, "I", pgm, " pdsname [ascii]" );
return -1;
}
/* The first argument is the name of the CKD image file */
fname = argv[1];
/* The next argument may be the shadow file name */
if (!memcmp (argv[2], "sf=", 3))
{
sfname = argv[2];
i = 1;
}
/* The second argument is the dataset name */
memset (dsnama, 0, sizeof(dsnama));
strncpy (dsnama, argv[2|+i], sizeof(dsnama)-1);
string_to_upper (dsnama);
/* The third argument is an optional keyword */
if (argc > 3+i && argv[3+i] != NULL)
{
if (strcasecmp(argv[3+i], "ascii") == 0)
asciiflag = 1;
else
{
FWRMSG( stderr, HHC02465, "E", argv[3+i] );
FWRMSG( stderr, HHC02463, "I", argv[0], " pdsname [ascii]" );
return -1;
}
}
/* Open the CKD image file */
cif = open_ckd_image (fname, sfname, O_RDONLY|O_BINARY, IMAGE_OPEN_NORMAL);
if (cif == NULL) return -1;
/* Build the extent array for the requested dataset */
rc = build_extent_array (cif, dsnama, extent, &noext);
if (rc < 0) return -1;
#ifdef EXTERNALGUI
/* Calculate ending relative track */
if (extgui)
{
int bcyl; /* Extent begin cylinder */
int btrk; /* Extent begin head */
int ecyl; /* Extent end cylinder */
int etrk; /* Extent end head */
int trks; /* total tracks in dataset */
int i; /* loop control */
for (i = 0, trks = 0; i < noext; i++)
{
bcyl = (extent[i].xtbcyl[0] << 8) | extent[i].xtbcyl[1];
btrk = (extent[i].xtbtrk[0] << 8) | extent[i].xtbtrk[1];
ecyl = (extent[i].xtecyl[0] << 8) | extent[i].xtecyl[1];
etrk = (extent[i].xtetrk[0] << 8) | extent[i].xtetrk[1];
trks += (((ecyl * cif->heads) + etrk) - ((bcyl * cif->heads) + btrk)) + 1;
}
EXTGUIMSG( "ETRK=%d\n", trks-1 );
}
#endif /*EXTERNALGUI*/
/* Point to the start of the directory */
trk = 0;
rec = 1;
/* Read the directory */
while (1)
{
EXTGUIMSG( "CTRK=%d\n", trk );
/* Convert relative track to cylinder and head */
rc = convert_tt (trk, noext, extent, cif->heads, &cyl, &head);
if (rc < 0) return -1;
/* Read a directory block */
WRMSG( HHC02466, "I", cyl, head, rec );
rc = read_block (cif, cyl, head, rec,
NULL, NULL, &blkptr, &len);
if (rc < 0) return -1;
/* Move to next track if block not found */
if (rc > 0)
{
trk++;
rec = 1;
continue;
}
/* Exit at end of directory */
if (len == 0) break;
/* Copy the directory block */
memcpy (dirblk, blkptr, sizeof(dirblk));
/* Process each member in the directory block */
rc = process_dirblk (cif, noext, extent, dirblk);
if (rc < 0) return -1;
if (rc > 0) break;
/* Point to the next directory block */
rec++;
} /* end while */
WRMSG( HHC02467, "I" );
/* Close the CKD image file and exit */
rc = close_ckd_image (cif);
return rc;
} /* end function main */
