COMMENT CHECK PROGRAM TO INPUT DATA AND CHECK; CMS FI IN DISK FLAT DATA C ; TITLE1 'INPUT FLAT DATA FILE OF NJ-PA DATA AND CHECK'; DATA CHECK; INFILE IN; inPUT SHEET CHAINr CO_OWNED STATEr SOUTHJ CENTRALJ NORTHJ PA1 PA2 SHORE NCALLS EMPFT EMPPT NMGRS WAGE_ST INCTIME FIRSTINC BONUS PCTAFF MEAL OPEN HRSOPEN PSODA PFRY PENTREE NREGS NREGS11 TYPE2 STATUS2 DATE2 NCALLS2 EMPFT2 EMPPT2 NMGRS2 WAGE_ST2 INCTIME2 FIRSTIN2 SPECIAL2 MEALS2 OPEN2R HRSOPEN2 PSODA2 PFRY2 PENTREE2 NREGS2 NREGS112 ; EMPTOT=EMPPT*.5 + EMPFT + NMGRS; EMPTOT2=EMPPT2*.5 + EMPFT2 + NMGRS2; DEMP=EMPTOT2-EMPTOT;; PCHEMPC=2*(EMPTOT2-EMPTOT)/(EMPTOT2+EMPTOT); IF EMPTOT2=0 THEN PCHEMPC=-1; dwage=wage_st2-wage_st; PCHWAGE=(WAGE_ST2-WAGE_ST)/WAGE_ST; if stater=0 then gap=0; else if wage_st>=5.05 then gap=0; else if wage_st>0 then gap=(5.05-wage_st)/wage_st; else gap=.; nj=stater; bk=(chainr=1); kfc=(chainr=2); roys=(chainr=3); wendys=(chainr=4); PMEAL=PSODA+PFRY+PENTREE; PMEAL2=PSODA2+PFRY2+PENTREE2; DPMEAL=PMEAL2-PMEAL; CLOSED=(STATUS2=3); FRACFT=(EMPFT/EMPTOT); IF EMPTOT2> 0 THEN FRACFT2=(EMPFT2/EMPTOT2); ELSE FRACFT2=.; ATMIN=(WAGE_ST=4.25); NEWMIN=(WAGE_ST2=5.05); IF NJ=0 THEN ICODE='PA STORE '; ELSE IF NJ=1 AND WAGE_ST=4.25 THEN ICODE='NJ STORE, LOW-WAGE'; ELSE IF NJ=1 AND WAGE_ST>=5.00 THEN ICODE='NJ STORE, HI-WAGE'; ELSE IF NJ=1 AND 4.25