ICEMAN utility is used to count the number of records in a tape data set.
Example:
//A171501C JOB (Accounting-information),CLASS=T,
// MSGCLASS=H,NOTIFY=&SYSUID
//*THIS JCL TELLS THE NO. OF RECORDS IN THE SPECIFIED TAPE DATASET
//COUNT EXEC PGM=ICEMAN
//SORTIN DD DSN=Dataset-name,DISP=SHR
//SYSOUT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL REMOVECC,NODETAIL,
TRAILER1=('NO. OF RECORDS: ' ,COUNT)
/*
//*
REMOVECC - REMOVES ANSI CONTROL CHARACTERS FROM THE REPORT
NODETAIL - PREVENTS DETAIL RECORDS FROM BEING WRITTEN TO OUTFIL
Example:
//A171501C JOB (Accounting-information),CLASS=T,
// MSGCLASS=H,NOTIFY=&SYSUID
//*THIS JCL TELLS THE NO. OF RECORDS IN THE SPECIFIED TAPE DATASET
//COUNT EXEC PGM=ICEMAN
//SORTIN DD DSN=Dataset-name,DISP=SHR
//SYSOUT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL REMOVECC,NODETAIL,
TRAILER1=('NO. OF RECORDS: ' ,COUNT)
/*
//*
REMOVECC - REMOVES ANSI CONTROL CHARACTERS FROM THE REPORT
NODETAIL - PREVENTS DETAIL RECORDS FROM BEING WRITTEN TO OUTFIL
No comments:
Post a Comment