//NNNNNNS JOB (ALA03),'NNNNNNN NNN NN',CLASS=H,MSGCLASS=H 00010008 /*ROUTE PRINT U5704 00010000 //**********************************************************************00040000 //* JOB NAME: PDS.SASRPW(RPWJOB1) - FORMERLY "J1RRUN97" USED 00060000 //**********************************************************************00060000 //* 00120008 //SO1 EXEC SAS,REGION=4096K,TIME=60 00120008 //WORK DD SPACE=(CYL,(900,700),RLSE) 00140000 //SYSOUT DD DUMMY 00250000 //* 00140000 //* \/\/\/ AP RUN: ENTER 1 FILE (NEW AND OLD RATES ON SAME FILE). 00140000 //* \/\/\/ PQ RUN: ENTER 1 FILE FOR EACH AP. 00140000 //* \/\/\/ ***: NOTE - USE "DD DUMMY" FOR PLACEHOLDER. 00140000 //* 00140000 //CBCIS DD DSN=HSISMN.PS170D01.RPW.FY200013.G0002V00,DISP=SHR 00140000 // DD DSN=HSISMN.PS170D01.RPW.FY200012.G0003V00,DISP=SHR 00140000 // DD DSN=HSISMN.PS170D01.RPW.FY200011.G0001V00,DISP=SHR 00140000 // DD DSN=HSISMN.PS170D01.RPW.FY200010.G0001V00,DISP=SHR 00140000 //* \/\/\/ AP RUN: ENTER 1 FILE FOR AP. 00140000 //* \/\/\/ PQ RUN: ENTER 1 FILE FOR EACH AP. 00140000 //* \/\/\/ USE "DD DUMMY" FOR PLACEHOLDER. 00140000 //* >>>>>>>> UPDATE AP FILES FOR PQ RUN <<<<<<<<<<<<<<<<<<< 00140000 //* >>>>>>>> UPDATE AP FILES FOR PQ RUN <<<<<<<<<<<<<<<<<<< 00140000 //* 00140000 //MANUALS DD DSN=HSQRAN.BRPWD01.MANUALS.FY200013,DISP=SHR 00140000 // DD DSN=HSQRAN.BRPWD01.MANUALS.FY200012,DISP=SHR 00140000 // DD DSN=HSQRAN.BRPWD01.MANUALS.FY200011,DISP=SHR 00140000 // DD DSN=HSQRAN.BRPWD01.MANUALS.FY200010,DISP=SHR 00140000 //* 00140000 //CBCISFRM DD DSN=HSISMN.BRPWD01.OFFLIST.FY200013(0),DISP=SHR 00140000 // DD DSN=HSISMN.BRPWD01.OFFLIST.FY200012(0),DISP=SHR 00140000 // DD DSN=HSISMN.BRPWD01.OFFLIST.FY200011(0),DISP=SHR 00140000 // DD DSN=HSISMN.BRPWD01.OFFLIST.FY200010(0),DISP=SHR 00140000 //* \/\/\/ AP RUN: ENTER CBCIS FRAME, "DD DUMMY" FOR PLACEHOLDER (3). 00140000 //* \/\/\/ PQ RUN: ENTER CBCIS FRAMES,"DD DUMMY" FOR 4TH UNLESS PQ=4. 00140000 //* \/\/\/ AP/PQ : ENTER MANUAL OFFICE FRAME (Q196 OR NEW IF CHANGED). 00140000 //* \/\/\/ AP/PQ : ENTER MANUAL OFFICE FRAME (Q196 OR NEW IF CHANGED). 00140000 //MNUALFRM DD DSN=HSQRAN.BRPWD01.MANUALS.FRMQ199,DISP=SHR 00140000 //* \/\/\/ PQ/AP RUN: READ UP TO 4 RATES FILES FOR EACH CLASS. 00200000 //* 00200000 //RATES1C DD DSN=HSQRAN.BRPWD01.RATES1C.JAN1099,DISP=SHR // DD DSN=HSQRAN.BRPWD01.RATES1C.OCT0498,DISP=SHR // DD DSN=HSQRAN.BRPWD01.RATES1C.OCT0597,DISP=SHR //RATESPD DD DSN=HSQRAN.BRPWD01.RATESPD.JAN1099,DISP=SHR 00200000 // DD DSN=HSQRAN.BRPWD01.RATESPD.OCT0498,DISP=SHR 00200000 // DD DSN=HSQRAN.BRPWD01.RATESPD.OCT0597,DISP=SHR 00200000 //RATESSA DD DSN=HSQRAN.BRPWD01.RATESSA.JAN1099,DISP=SHR 00200000 // DD DSN=HSQRAN.BRPWD01.RATESSA.OCT0498,DISP=SHR 00200000 // DD DSN=HSQRAN.BRPWD01.RATESSA.OCT0597,DISP=SHR 00200000 //RATESSB DD DSN=HSQRAN.BRPWD01.RATESSB.JAN1099,DISP=SHR 00200000 // DD DSN=HSQRAN.BRPWD01.RATESSB.OCT0498,DISP=SHR 00200000 // DD DSN=HSQRAN.BRPWD01.RATESSB.OCT0597,DISP=SHR 00200000 //* \/\/\/ AP RUN: OUTPUT - LAST QUALIFIER: FY1996XX: XX=01..13. 00140000 //* \/\/\/ PQ RUN: OUTPUT - LAST QUALIFIER: FY1996QX: X=1...4. 00140000 //* 00140000 //* 00140000 //EDITDAT1 DD DSN=HSQRAN.BRPWD01.EDITDAT1.FY2000Q4, 00140000 // DISP=(NEW,CATLG),DCB=(RECFM=FB,LRECL=125,BLKSIZE=5000), 00140000 // UNIT=SYSDA,SPACE=(CYL,(200,250),RLSE) 00140000 //SYSIN DD * 00250000 00260000 00260000 **********************************************************************; * \/\/\/\/\/\/\/\/ ENTER RUN PARAMETERS \/\/\/\/\/\/\/\/\/\/\/ *; %LET RUNTYPE ='PQ'; *ENTER 2-CHAR ALPHA RUN TYPE: 'PQ' OR 'AP'. *;00260000 %LET FY = 00 ; *ENTER 2-CHAR NUMERIC FY (E.G., 96). *;00260000 %LET PQ = 4 ; *ENTER 1-CHAR NUMERIC QUARTER: 1-4. *;00260000 %LET AP = . ; *ENTER 2-CHAR NUMERIC AP: 01-13 (USE . IF PQ). *;00260000 %LET RDATE1 = 011099; * ENTER 1ST RATE DATE; *;00260000 %LET RDATE2 = 100498; * ENTER 2ND RATE DATE (REPEAT 1ST IF NONE).*;00260000 %LET RDATE3 = 100597; * ENTER 3ND RATE DATE (REPEAT 2ND IF NONE).*;00260000 %LET RDATE4 = 100597; * ENTER 4TH RATE DATE (REPEAT 3RD IF NONE).*;00260000 **********************************************************************; 00260000 00260000 ************************* * READ SYSTEM/CLASS MAP * *************************; *********************** * ONE FILE PER GLOBAL * ***********************; DATA GLOBALS; RDATE=&RDATE1; OUTPUT; RDATE=&RDATE2; OUTPUT; RDATE=&RDATE3; OUTPUT; RDATE=&RDATE4; PROC SORT DATA=GLOBALS; BY RDATE; DATA GLOBALS; SET GLOBALS; BY RDATE; IF FIRST.RDATE; DATA RATES1C; INFILE RATES1C; 00260000 INPUT @1 STAR $1. @; IF STAR='*' THEN DELETE; ELSE DO; INPUT @1 RDATE 6. @8 VIP $5. @9 VIP2345 $4. @8 VIP1 $1. @13 VIPX $1. @14 RPWCODE 5. @48 AIC 3. @79 SYS $6. @86 CLASS $2.; END; PROC SORT DATA=RATES1C; BY RDATE; DATA _NULL_; MERGE RATES1C(IN=A) GLOBALS; BY RDATE; IF A=0 THEN ABORT; DATA RATESPD; INFILE RATESPD; INPUT @1 STAR $1. @; IF STAR='*' THEN DELETE; ELSE DO; INPUT @1 RDATE 6. @8 VIP $5. @9 VIP2345 $4. @8 VIP1 $1. @13 VIPX $1. @14 RPWCODE 5. @77 AIC 3. @105 SYS $6. @112 CLASS $2.; END; PROC SORT DATA=RATESPD; BY RDATE; DATA _NULL_; MERGE RATESPD(IN=A) GLOBALS; BY RDATE; IF A=0 THEN ABORT; DATA RATESSA; INFILE RATESSA; INPUT @1 STAR $1. @; IF STAR='*' THEN DELETE; ELSE DO; INPUT @1 RDATE 6. @8 VIP $5. @9 VIP2345 $4. @8 VIP1 $1. @13 VIPX $1. @14 RPWCODE 5. @77 AIC 3. @111 SYS $6. @118 CLASS $2.; END; PROC SORT DATA=RATESSA; BY RDATE; DATA _NULL_; MERGE RATESSA(IN=A) GLOBALS; BY RDATE; IF A=0 THEN ABORT; DATA RATESSB; INFILE RATESSB; INPUT @1 STAR $1. @; IF STAR='*' THEN DELETE; ELSE DO; INPUT @1 RDATE 6. @8 VIP $5. @9 VIP2345 $4. @8 VIP1 $1. @13 VIPX $1. @14 RPWCODE 5. @77 AIC 3. @111 SYS $6. @118 CLASS $2.; END; PROC SORT DATA=RATESSB; BY RDATE; DATA _NULL_; MERGE RATESSB(IN=A) GLOBALS; BY RDATE; IF A=0 THEN ABORT; PROC DELETE DATA=GLOBALS; DATA SYSMAP; SET RATES1C RATESPD RATESSA RATESSB; IF RDATE=. THEN DELETE; ***************************** * EXPAND MULTI-INDICIA VIPS * *****************************; IF VIPX=' ' THEN OUTPUT; * OK AS IS; ELSE IF VIPX='+' THEN DO; VIP='1']]VIP2345; OUTPUT; *METERED; VIP='2']]VIP2345; OUTPUT; *STAMPED; END; KEEP RDATE RPWCODE VIP SYS CLASS AIC; PROC DELETE DATA=RATES1C; PROC DELETE DATA=RATESPD; PROC DELETE DATA=RATESSA; PROC DELETE DATA=RATESSB; ******************* * EMPTY VIP 44444 * *******************; DATA SYSMAP0; SET SYSMAP; IF VIP='44444'; ********************************************************************* ****************** B E G I N P R O G R A M ************************ *********************************************************************; ********************; * PARAMETER CHECKS * ********************; DATA _NULL_; IF ^(&RUNTYPE='PQ' OR &RUNTYPE='AP') OR ^( 0<=&FY<=99) OR ^(1<=&PQ<=4) THEN ABORT; IF &RUNTYPE='AP' AND ^(01<=&AP<=13) THEN ABORT; IF &RUNTYPE='PQ' AND &AP ^= . THEN ABORT; ************************************************* * READ DATA FILES - VERIFY SETTINGS, CHECK DUPS * *************************************************; DATA CBCIS; INFILE CBCIS; INPUT @1 AP 2. @3 PQ 1. @4 FY 2. @6 FINNO 6. @24 RDATE 6. @34 VIP $5. @34 VIP1 $1. @35 VIP2 $1. @36 VIP3 $1. @39 R 10.2 @49 P 10. @59 W 12.2 @71 C 10. @95 GDEI $1. ; /* DELETE RECORD IF 'Y' */ IF VIP=' ' THEN DO; IF AP=11 & FY= 0 & FINNO=999999 THEN DELETE; ELSE IF AP=12 & FY= 0 & FINNO=999999 THEN DELETE; ELSE ABORT; END; IF ^(RDATE=&RDATE1 OR RDATE=&RDATE2 OR RDATE=&RDATE3 OR RDATE=&RDATE4) THEN ABORT; IF ^(10000<=FINNO<=599999) THEN ABORT; IF PQ^=&PQ OR FY^=&FY THEN ABORT; 00260000 IF &RUNTYPE='AP' & AP^=&AP THEN ABORT; 00260000 IF (PQ=1 & ^(1<=AP<=3)) OR (PQ=2 & ^(4<=AP<=6)) OR 00260000 (PQ=3 & ^(7<=AP<=9)) OR (PQ=4 & ^(10<=AP<=13)) THEN ABORT; 00260000 ********** 00260000 * FILTER * 00260000 **********; 00260000 IF GDEI=' '; /* IF GDEI='Y'THEN DELETE */ 00260000 IF (VIP1>'9' OR VIP1<'0') OR 00260000 (VIP2>'9' OR VIP2<'0') OR 00260000 (VIP2='2' & VIP1<'6') THEN DELETE; 00260000 ************** 00260000 * CHECK DUPS * 00260000 **************; 00260000 PROC SORT DATA=CBCIS; BY AP FINNO RDATE VIP; 00260000 DATA _NULL_; SET CBCIS; BY AP FINNO RDATE VIP; 00260000 IF FIRST.VIP ^=LAST.VIP THEN ABORT; 00260000 DATA MANUALS(DROP=SYSX) MANUALS0; INFILE MANUALS; 00260000 INPUT @1 FINNO 6. 00260000 @9 FY 2. 00260000 @11 PQ 1. 00260000 @12 AP 2. 00260000 @14 VIP $5. @14 VIP1 $1. @15 VIP2 $1. @16 VIP3 $1. 00260000 @19 R 10.2 00260000 @29 C 10. 00260000 @39 P 10. 00260000 @49 W 12.2 00260000 @62 SYSX $6. /*TO EXPAND NEG-RPT 44444 BY AIC/CL W.IN SYS*/ 00260000 @69 RDATE 6. ; 00260000 IF ^(RDATE=&RDATE1 OR RDATE=&RDATE2 OR RDATE=&RDATE3 OR RDATE=&RDATE4) THEN ABORT; IF PQ^=&PQ OR FY^=&FY THEN ABORT; 00260000 IF &RUNTYPE='AP' & AP ^=&AP THEN ABORT; 00260000 IF ^(10000<=FINNO<=599999) THEN ABORT; IF (PQ=1 & ^(1<=AP<=3)) OR (PQ=2 & ^(4<=AP<=6)) OR 00260000 (PQ=3 & ^(7<=AP<=9)) OR (PQ=4 & ^(10<=AP<=13)) THEN ABORT; 00260000 IF VIP='44444' THEN OUTPUT MANUALS0; ELSE OUTPUT MANUALS; ***************** 00260000 * DUP REC CHECK * 00260000 *****************; 00260000 PROC SORT DATA=MANUALS; BY AP FINNO RDATE VIP; 00260000 DATA _NULL_; SET MANUALS; BY AP FINNO RDATE VIP; 00260000 IF FIRST.VIP ^= LAST.VIP THEN ABORT; 00260000 PROC SORT DATA=MANUALS0; BY AP FINNO SYSX; 00260000 DATA _NULL_; SET MANUALS0; BY AP FINNO SYSX; 00260000 IF FIRST.FINNO ^= LAST.FINNO THEN ABORT; 00260000 **************************** * VERIFY UNIQUE NEG REPORT * ****************************; PROC SORT DATA=MANUALS; BY AP FINNO; DATA _NULL_; MERGE MANUALS(IN=A) MANUALS0(IN=B); BY AP FINNO; IF A=B THEN ABORT; ******************************************************************** * READ FRAME FILES - VERIFY RECORDS, NO DUPS. * ********************************************************************; DATA CBCISFRM; INFILE CBCISFRM; 00260000 INPUT @5 AP 2. 00260000 @7 PQ 1. 00260000 @8 FY 2. 00260000 @13 FINNO 6. 00260000 @21 CCITY $18. 00260000 @40 CSTATE $2. ; 00260000 IF ^(10000<=FINNO<=599999) THEN ABORT; IF PQ^=&PQ OR FY^=&FY THEN ABORT; IF &RUNTYPE='AP' AND AP^=&AP THEN ABORT; IF &RUNTYPE='PQ' AND ^((PQ=1 & 1<=AP<=3) OR (PQ=2 & 4<=AP<=6) OR 00260000 (PQ=3 & 7<=AP<=9) OR (PQ=4 & 10<=AP<=13)) THEN ABORT; 00260000 PROC SORT; BY AP FINNO; 00260000 DATA _NULL_; SET CBCISFRM; BY AP FINNO; 00260000 IF FIRST.FINNO ^= LAST.FINNO THEN ABORT; 00260000 DATA MNUALFRM; INFILE MNUALFRM; 00260000 INPUT @1 FINNO 6. 00260000 @8 SYS $6. /* SYSTEM (PANEL) IDENTIFIER */ 00260000 @14 STRATUM 3. 00260000 @18 PNAME $22. 00260000 @40 PSTATE $2. 00260000 @42 PZIP 5. 00260000 @93 BLOWUP 8. 00260000 @101 PNR $1. ; /* PERM NEG-RPT = '*' */ 00260000 AP=&AP; PQ=&PQ; FY=&FY; IF ^(10000<=FINNO<=599999) THEN ABORT; IF STRATUM<1.0 OR BLOWUP<1.0 THEN ABORT; PROC SORT; BY SYS FINNO; 00260000 DATA _NULL_; SET MNUALFRM; BY SYS FINNO; 00260000 IF FIRST.FINNO ^= LAST.FINNO THEN ABORT; 00260000 ********************************************************************** * MERGE CBCIS W. FRAME: TAG FINNO IF NOT ON FRAME: ASSIGN VIP=44444 * **********************************************************************; DATA CBCIS CBCIS0; MERGE CBCIS(IN=A) CBCISFRM(IN=B); BY AP FINNO; IF A=B THEN OUTPUT CBCIS; ELSE IF A=0 THEN DO; VIP='44444'; VIP1='4'; VIP2='4'; VIP3='4'; R=0; P=0; W=0; C=0; OUTPUT CBCIS0; END; ELSE DO; XFRAME=1; * NO CBCIS FRAME ENTRY (CBCIS DATA N/U); OUTPUT CBCIS; END; PROC DELETE DATA=CBCISFRM; ************************; * ASSIGN SYS-CLASS-AIC *; ************************; PROC SORT DATA=CBCIS; BY RDATE VIP; PROC SORT DATA=SYSMAP; BY RDATE VIP; DATA CBCIS; MERGE CBCIS(IN=A) SYSMAP(IN=B); BY RDATE VIP; IF A=1; * IF B=0 THEN ABORT; * SEE NOTE ABOVE; **************************; * EXPAND EMPTY VIP 44444 *; *FINNOS ON FRAME - NO ACTIVITY; **************************; DATA CBCIS0; SET CBCIS0; DO I=1 TO K; SET SYSMAP0 POINT=I NOBS=K; OUTPUT; END; IF SYS=' ' OR CLASS=' ' THEN ABORT; DATA CBCIS; SET CBCIS CBCIS0; PROC DELETE DATA=CBCIS0; ******************************* * MANUALS: ADD SYS-CLASS-AIC * *******************************; PROC SORT DATA=MANUALS; BY RDATE VIP; DATA MANUALS; MERGE MANUALS(IN=A) SYSMAP(IN=B); BY RDATE VIP; IF A=1; IF B=0 THEN ABORT; IF SYS=' ' OR CLASS=' ' THEN ABORT; **************************; * EXPAND EMPTY VIP 44444 *;*SINGLE ENTRY 44444 EXPANDED BY AIC,CL; **************************; DATA MANUALS0; SET MANUALS0; DO I=1 TO K; SET SYSMAP0 POINT=I NOBS=K; OUTPUT; END; IF SYS=' ' OR CLASS=' ' THEN ABORT; DATA MANUALS0; SET MANUALS0; IF SYSX=SYS; * RETAIN VIP=44444 FOR MEMBER PANEL ONLY; DATA MANUALS; SET MANUALS MANUALS0; PROC DELETE DATA=MANUALS0; *************************************************************** * MERGE CBCIS, MANUAL & PANEL MASTER (BY AP). * ***************************************************************; * WITHIN SYSTEM - FOR FINNOS COMMON TO 2 OR MORE PANELS; ***************************** * EXPAND MANUAL PANEL FRAME * *****************************; DATA MNUALFRM; SET MNUALFRM; IF &RUNTYPE='AP' THEN DO; AP=&AP; OUTPUT; END; ELSE IF &PQ=1 THEN DO; AP=1; OUTPUT; AP=2; OUTPUT; AP=3; OUTPUT; END; ELSE IF &PQ=2 THEN DO; AP=4; OUTPUT; AP=5; OUTPUT; AP=6; OUTPUT; END; ELSE IF &PQ=3 THEN DO; AP=7; OUTPUT; AP=8; OUTPUT; AP=9; OUTPUT; END; ELSE IF &PQ=4 THEN DO; AP=10; OUTPUT; AP=11; OUTPUT; AP=12; OUTPUT; AP=13; OUTPUT; END; PROC SORT DATA=MNUALFRM; BY FINNO SYS AP; PROC SORT DATA=MANUALS; BY FINNO SYS AP; PROC SORT DATA=CBCIS; BY FINNO SYS AP; DATA ABCTABLE; * NOTE: MANUAL, CBCIS MATCHED TO ORIG PANEL FRAME (NOT CBCIS FRAME); * NOTE: RECORDS FOR UNASSIGNED PANEL (SYSTEM) ARE FLAGGED (ABORT); MERGE MNUALFRM(IN=A ) MANUALS(IN=B KEEP=AP PQ FY FINNO SYS ) CBCIS(IN=C KEEP=AP PQ FY FINNO SYS XFRAME); BY FINNO SYS AP; IF FIRST.AP; ********************************************* * INITIALIZE MIGRATE & NRESP (MANUALS) VARS * *********************************************; MIGRATE=0; NRESP=0; ******************************************* * ASSIGNMENT TABLE: ABC=000...111 (BY AP) * *******************************************; ABC=(100*A)+(10*B)+C; IF ABC=100 THEN NRESP=1; *VAR USED FOR MANUALS ONLY; ELSE IF ABC=001 THEN DO; STRATUM=1.0; BLOWUP=1; END; ELSE IF ABC=010 OR /*FLAG IF REC IS FOR UNASSIGNED PANEL */ ABC=011 THEN ABORT; ELSE IF ABC=111 & STRATUM<2.0 OR ABC=110 & STRATUM<2.0 THEN ABORT; ELSE IF ABC=111 & STRATUM>=2.0 OR ABC=101 & STRATUM>=2.0 THEN DO; IF XFRAME^=1 THEN MIGRATE=1; * CBCIS DATA USED; ELSE MIGRATE=0; * MANUAL DATA USED; END; IF STRATUM=. & (ABC^=001) THEN ABORT; PROC DELETE DATA=MNUALFRM; ************************************************* * MERGE "ABC" BY SYSTEM, REMOVE MANUAL MIGRATES * *************************************************; DATA EDITDAT0; SET CBCIS(IN=A) MANUALS; /* VERTICAL */ IF A=1 THEN SOURCE='CBCIS '; * USED FOR MIGRATION; ELSE SOURCE='MANUAL'; PROC DELETE DATA=CBCIS; PROC DELETE DATA=MANUALS; PROC SORT; BY FINNO SYS AP; PROC SORT DATA=ABCTABLE; BY FINNO SYS AP; DATA EDITDAT1; MERGE EDITDAT0(IN=A) ABCTABLE; BY FINNO SYS AP; RUNTYPE=&RUNTYPE; EFLAG=0000; IF SOURCE='CBCIS' & XFRAME=1 THEN EFLAG=0100; IF SOURCE='MANUAL' & MIGRATE=1 THEN EFLAG=0050; PROC DELETE DATA=EDITDAT0; PROC DELETE DATA=ABCTABLE; *********** * OUTPUT * ***********; PROC SORT; BY FINNO VIP AP; DATA _NULL_; SET EDITDAT1; FILE EDITDAT1; PUT @1 RUNTYPE $2. @3 CLASS $2. @5 SYS $6. @11 AP Z2. @13 PQ 1. @14 FY 2. @16 RDATE Z6. @22 FINNO Z6. @28 VIP $5. @33 RPWCODE Z5. @38 R Z12.2 /* @50-61 */ @62 P Z12. @74 C Z12. @86 W Z14.2 @100 NRESP 1. /* MANUALS ONLY */ @101 MIGRATE 1. @102 EFLAG Z4. /* @106 */ @107 STRATUM Z3.1 @110 BLOWUP Z8.3 @118 AIC 3. ; ********************** 00260000 * 6.0 REPORTS * 00260000 **********************; 00260000 DATA E100; SET EDITDAT1; IF EFLAG=0100; PROC SORT DATA=E100; BY FINNO AP; PROC SUMMARY DATA=E100; BY FINNO AP; VAR R P W C; OUTPUT OUT=E100A SUM=; PROC PRINT U; FORMAT R P W C COMMA13.; 000 VAR FINNO AP _FREQ_ R P W C; SUM R P W C; TITLE1 "JOB1 ** RPW BULK MAIL SYSTEM ** FOR &RUNTYPE&AP PQ&PQ-&FY";00260000 TITLE3 'R1-300: CBCIS FINNO NOT ON CBCIS FRAME'; TITLE4 '(DATA NOT USED - RAW TOTALS SHOWN)'; TITLE5 'BY FINNO & AP'; 000 TITLE6 ' '; 000 PROC DELETE DATA=E100A; PROC SORT DATA=E100; BY SYS CLASS FINNO; PROC SUMMARY DATA=E100; BY SYS CLASS FINNO; VAR R P W C; OUTPUT OUT=E100B SUM=; PROC SUMMARY DATA=E100B; BY SYS CLASS; VAR R P W C; OUTPUT OUT=E100B SUM=; PROC PRINT U; BY SYS CLASS; FORMAT R P W C COMMA13.; 000 VAR _FREQ_ R P W C; SUM R P W C; TITLE3 'R1-310: CBCIS FINNO NOT ON CBCIS FRAME'; TITLE4 '(DATA NOT USED - RAW TOTALS SHOWN)'; TITLE5 'BY SYSTEM & CLASS'; 000 TITLE6 ' '; 000 PROC DELETE DATA=E100B; DATA NRESP RESP; SET EDITDAT1; 00260000 IF NRESP=1 THEN OUTPUT NRESP; 00260000 ELSE OUTPUT RESP; 00260000 PROC DELETE DATA=EDITDAT1; 00260000 PROC SORT DATA=NRESP; BY EFLAG SYS; 00260000 PROC PRINT DATA=NRESP; BY EFLAG SYS; 00260000 VAR NRESP EFLAG SYS CLASS AP STRATUM FINNO R P W C; 00260000 TITLE3 'R1-400: INITIAL EDIT SUMMARY'; 002 TITLE5 'NONRESPONSES'; 002 TITLE6 ' '; 002 PROC DELETE DATA=NRESP; 002 PROC SORT DATA=RESP; BY SYS CLASS EFLAG AP STRATUM; 00260000 PROC SUMMARY DATA=RESP; BY SYS CLASS EFLAG AP STRATUM; 00260000 VAR R P W C; OUTPUT OUT=DAT1SUMS SUM=; 00260000 PROC DELETE DATA=RESP; 002 PROC PRINT DATA=DAT1SUMS U; BY SYS CLASS; PAGEBY SYS; 00260000 FORMAT R P W C COMMA13.; 002 ID SYS; 002 VAR CLASS EFLAG AP STRATUM R P W C; 002 SUM R P W C; 002 TITLE3 'R1-450: INITIAL EDIT SUMMARY'; 002 TITLE5 'STRATUM TOTALS (ALL RECS) - BY ERROR FLAG'; 002 TITLE6 ' '; 002 PROC DELETE DATA=DAT1SUMS; 002 /*