jerryte
Active User
Joined: 29 Oct 2010
Posts: 202
Location: Toronto, ON, Canada
|
|
|
|
Below is sample JCL using SORT and IDCAMS to allocate a dataset with the date and time as last qualifiers of the name (example 'MY.PDS.D151231.T235959').
| Code: |
//*
//* GENERATE IDCAMS STATEMENT TO ALLOCATE A DATASET
//* WITH DATE 'DYYMMDD' AND TIME 'THHMMSS' IN THE NAME.
//* - SPECIFY DATASET PREFIX ON PARM
//* - SPECIFY DATASET ATTRIBUTE UNDER DD=SORTIN
//*
//SORT EXEC PGM=SORT,PARM='JP0"MY.PDS"'
//SYSOUT DD SYSOUT=*
//SYMNOUT DD SYSOUT=*
//SORTIN DD *
NEW CATALOG TRACKS SPACE(10,10) +
DSNTYPE(LIBRARY) DSORG(PO) RECFM(F B) LRECL(80) DIR(1)
//SORTOUT DD DSN=&&IDCAMS,
// DISP=(NEW,PASS),SPACE=(TRK,(1,1)),
// DSORG=PS,RECFM=FB,LRECL=80
//SYSIN DD *
OPTION COPY
OUTFIL FNAMES=SORTOUT,REMOVECC,
HEADER1=(C' ALLOCATE DSN(''',JP0,
C'.D',DATENS=(YMD),C'.T',TIMENS=(24),
C''') +')
//*
//* EXECUTE
//*
//IDCAMS EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=&&IDCAMS,DISP=(OLD,DELETE) |
REXX is better method but the above works too. Comments or suggestions are welcome. |
|
