//****** Create and Catalog Disk Data Set ------ 05/31/1982-10/17/1998 //* Copyright (C) 1982-1998 by Vladimir Veytsel www.davar.net //* //CRETDS PROC U=1, - Number of disk units // V=, - Volume for the data set // S=, - Data set full name // M=TRK, - Memory allocation units (CYL/TRK/) // P=10, - Number of primary memory units // A=6, - Number of additional memory units // X=, - Memory allocation unit multiplier // D=0, - Number of library directory blocks // O=PS, - Data set organization (DSORG) // R=FB, - Record format (RECFM) // L=80, - Record length (LRECL) // B=0 - Block size (BLKSIZE) //* //DELTDS EXEC DELTDS,S=&S //* //IEFBR14 EXEC PGM=IEFBR14 //SYSUT DD UNIT=(SYSALLDA,&U),VOL=SER=&V,DSN=&S, // SPACE=(&M,(&P&X,&A&X,&D)),DISP=(,CATLG,DELETE), // DCB=(DSORG=&O,RECFM=&R,LRECL=&L,BLKSIZE=&B)