* * FILE LAYOUT FOR FILE: CLOCK.PAY.DATES * *--------------------------------------------------------------* * EQU CPD$PAY.DATE TO 01 EQU CPD$CHECK.ISSUE TO 02 EQU CPD$PERIOD.BEGIN TO 03 EQU CPD$PERIOD.END TO 04 EQU CPD$TRANSMIT.DATE TO 05 EQU CPD$NUM.DAYS TO 06 * EQU CPD$NUM.WEEKS TO 07 EQU CPD$WEEK.ONE.END TO 08 EQU CPD$WEEK.TWO.END TO 09 EQU CPD$WEEK.THREE.END TO 10 * EQU CPD$NEXT.PERIOD TO 11 * * END