1 //REPRO03 JOB 'JAY MOSELEY',CLASS=A,MSGLEVEL=(1,1),MSGCLASS=A JOB 93
*** 00020000
*********************************************************************** 00030000
*** CREATE A SEQUENTIAL BACKUP OF AN ESDS 00040000
*********************************************************************** 00050000
*** 00060000
2 //IDCAMS EXEC PGM=IDCAMS,REGION=4096K 00070000
3 //TIMECLOK DD DSN=PAYROLL.TIMECLOK.FILE,DISP=SHR 00080000
4 //BACKUP DD DSN=BACKUP.TIMECLOK,UNIT=TAPE,DISP=(NEW,KEEP), 00090000
// VOL=SER=B00001, 00100000
// DCB=(RECFM=FB,LRECL=22,BLKSIZE=2200) 00110000
5 //SYSPRINT DD SYSOUT=A 00120000
6 //SYSIN DD * 00130000
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
IDCAMS SYSTEM SERVICES TIME: 13:07:09 01/08/74 PAGE 1
00140000
REPRO INFILE(TIMECLOK) - 00150000
OUTFILE(BACKUP) 00160000
IDC0005I NUMBER OF RECORDS PROCESSED WAS 840
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0
