PRSDSRC2 ;HISC/GWB-STRENGTH REPORT COMPILATION (CONTINUED) ;8/24/93 08:28
;;4.0;PAID;**6**;Sep 21, 1995
MD I LWOPIND="Y" S MDLWOP=MDLWOP+1
I PPL="F" S MDFEE=MDFEE+1 Q
I (PPL="N")!(PBS="S")!(ITR>0) S MDTSR=MDTSR+1,MDTSRFTE=MDTSRFTE+FTE Q
S MDTOT=MDTOT+1,MDFTETOT=MDFTETOT+FTE
I "12579DRSWMNEAHUF"[TOA S:DBS=1 MDFTP=MDFTP+1 S:DBS=2 MDPTP=MDPTP+1,MDPTPFTE=MDPTPFTE+FTE S:DBS=3 MDINT=MDINT+1,MDINTFTE=MDINTFTE+FTE Q
I "3468JKLTVPZ"[TOA S:DBS=1 MDFTT=MDFTT+1 S:DBS=2 MDPTT=MDPTT+1,MDPTTFTE=MDPTTFTE+FTE S:DBS=3 MDINT=MDINT+1,MDINTFTE=MDINTFTE+FTE Q
I "XY"[TOA S MDSIS=MDSIS+1,MDINTFTE=MDINTFTE+FTE Q
I DBS=3 S MDINT=MDINT+1,MDINTFTE=MDINTFTE+FTE Q
Q
RN I LWOPIND="Y" S RNLWOP=RNLWOP+1
I PPL="F" S RNFEE=RNFEE+1 Q
I (PPL="N")!(PBS="S")!(ITR>0) S RNTSR=RNTSR+1,RNTSRFTE=RNTSRFTE+FTE Q
S RNTOT=RNTOT+1,RNFTETOT=RNFTETOT+FTE
I "12579DRSWMNEAHUF"[TOA S:DBS=1 RNFTP=RNFTP+1 S:DBS=2 RNPTP=RNPTP+1,RNPTPFTE=RNPTPFTE+FTE S:DBS=3 RNINT=RNINT+1,RNINTFTE=RNINTFTE+FTE Q
I "3468JKLTVPZ"[TOA S:DBS=1 RNFTT=RNFTT+1 S:DBS=2 RNPTT=RNPTT+1,RNPTTFTE=RNPTTFTE+FTE S:DBS=3 RNINT=RNINT+1,RNINTFTE=RNINTFTE+FTE Q
I "XY"[TOA S RNSIS=RNSIS+1,RNINTFTE=RNINTFTE+FTE Q
I DBS=3 S RNINT=RNINT+1,RNINTFTE=RNINTFTE+FTE Q
Q
LP I LWOPIND="Y" S LPLWOP=LPLWOP+1
I PPL="F" S LPFEE=LPFEE+1 Q
I (PPL="N")!(PBS="S")!(ITR>0) S LPTSR=LPTSR+1,LPTSRFTE=LPTSRFTE+FTE Q
S LPTOT=LPTOT+1,LPFTETOT=LPFTETOT+FTE
I "12579DRSWMNEAHUF"[TOA S:DBS=1 LPFTP=LPFTP+1 S:DBS=2 LPPTP=LPPTP+1,LPPTPFTE=LPPTPFTE+FTE S:DBS=3 LPINT=LPINT+1,LPINTFTE=LPINTFTE+FTE Q
I "3468JKLTVPZ"[TOA S:DBS=1 LPFTT=LPFTT+1 S:DBS=2 LPPTT=LPPTT+1,LPPTTFTE=LPPTTFTE+FTE S:DBS=3 LPINT=LPINT+1,LPINTFTE=LPINTFTE+FTE Q
I "XY"[TOA S LPSIS=LPSIS+1,LPINTFTE=LPINTFTE+FTE Q
I DBS=3 S LPINT=LPINT+1,LPINTFTE=LPINTFTE+FTE Q
Q
NA I LWOPIND="Y" S NALWOP=NALWOP+1
I PPL="F" S NAFEE=NAFEE+1 Q
I (PPL="N")!(PBS="S")!(ITR>0) S NATSR=NATSR+1,NATSRFTE=NATSRFTE+FTE Q
S NATOT=NATOT+1,NAFTETOT=NAFTETOT+FTE
I "12579DRSWMNEAHUF"[TOA S:DBS=1 NAFTP=NAFTP+1 S:DBS=2 NAPTP=NAPTP+1,NAPTPFTE=NAPTPFTE+FTE S:DBS=3 NAINT=NAINT+1,NAINTFTE=NAINTFTE+FTE Q
I "3468JKLTVPZ"[TOA S:DBS=1 NAFTT=NAFTT+1 S:DBS=2 NAPTT=NAPTT+1,NAPTTFTE=NAPTTFTE+FTE S:DBS=3 NAINT=NAINT+1,NAINTFTE=NAINTFTE+FTE Q
I "XY"[TOA S NASIS=NASIS+1,NAINTFTE=NAINTFTE+FTE Q
I DBS=3 S NAINT=NAINT+1,NAINTFTE=NAINTFTE+FTE Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDSRC2 2340 printed Apr 09, 2024@21:28:52 Page 2
PRSDSRC2 ;HISC/GWB-STRENGTH REPORT COMPILATION (CONTINUED) ;8/24/93 08:28
+1 ;;4.0;PAID;**6**;Sep 21, 1995
MD IF LWOPIND="Y"
SET MDLWOP=MDLWOP+1
+1 IF PPL="F"
SET MDFEE=MDFEE+1
QUIT
+2 IF (PPL="N")!(PBS="S")!(ITR>0)
SET MDTSR=MDTSR+1
SET MDTSRFTE=MDTSRFTE+FTE
QUIT
+3 SET MDTOT=MDTOT+1
SET MDFTETOT=MDFTETOT+FTE
+4 IF "12579DRSWMNEAHUF"[TOA
if DBS=1
SET MDFTP=MDFTP+1
if DBS=2
SET MDPTP=MDPTP+1
SET MDPTPFTE=MDPTPFTE+FTE
if DBS=3
SET MDINT=MDINT+1
SET MDINTFTE=MDINTFTE+FTE
QUIT
+5 IF "3468JKLTVPZ"[TOA
if DBS=1
SET MDFTT=MDFTT+1
if DBS=2
SET MDPTT=MDPTT+1
SET MDPTTFTE=MDPTTFTE+FTE
if DBS=3
SET MDINT=MDINT+1
SET MDINTFTE=MDINTFTE+FTE
QUIT
+6 IF "XY"[TOA
SET MDSIS=MDSIS+1
SET MDINTFTE=MDINTFTE+FTE
QUIT
+7 IF DBS=3
SET MDINT=MDINT+1
SET MDINTFTE=MDINTFTE+FTE
QUIT
+8 QUIT
RN IF LWOPIND="Y"
SET RNLWOP=RNLWOP+1
+1 IF PPL="F"
SET RNFEE=RNFEE+1
QUIT
+2 IF (PPL="N")!(PBS="S")!(ITR>0)
SET RNTSR=RNTSR+1
SET RNTSRFTE=RNTSRFTE+FTE
QUIT
+3 SET RNTOT=RNTOT+1
SET RNFTETOT=RNFTETOT+FTE
+4 IF "12579DRSWMNEAHUF"[TOA
if DBS=1
SET RNFTP=RNFTP+1
if DBS=2
SET RNPTP=RNPTP+1
SET RNPTPFTE=RNPTPFTE+FTE
if DBS=3
SET RNINT=RNINT+1
SET RNINTFTE=RNINTFTE+FTE
QUIT
+5 IF "3468JKLTVPZ"[TOA
if DBS=1
SET RNFTT=RNFTT+1
if DBS=2
SET RNPTT=RNPTT+1
SET RNPTTFTE=RNPTTFTE+FTE
if DBS=3
SET RNINT=RNINT+1
SET RNINTFTE=RNINTFTE+FTE
QUIT
+6 IF "XY"[TOA
SET RNSIS=RNSIS+1
SET RNINTFTE=RNINTFTE+FTE
QUIT
+7 IF DBS=3
SET RNINT=RNINT+1
SET RNINTFTE=RNINTFTE+FTE
QUIT
+8 QUIT
LP IF LWOPIND="Y"
SET LPLWOP=LPLWOP+1
+1 IF PPL="F"
SET LPFEE=LPFEE+1
QUIT
+2 IF (PPL="N")!(PBS="S")!(ITR>0)
SET LPTSR=LPTSR+1
SET LPTSRFTE=LPTSRFTE+FTE
QUIT
+3 SET LPTOT=LPTOT+1
SET LPFTETOT=LPFTETOT+FTE
+4 IF "12579DRSWMNEAHUF"[TOA
if DBS=1
SET LPFTP=LPFTP+1
if DBS=2
SET LPPTP=LPPTP+1
SET LPPTPFTE=LPPTPFTE+FTE
if DBS=3
SET LPINT=LPINT+1
SET LPINTFTE=LPINTFTE+FTE
QUIT
+5 IF "3468JKLTVPZ"[TOA
if DBS=1
SET LPFTT=LPFTT+1
if DBS=2
SET LPPTT=LPPTT+1
SET LPPTTFTE=LPPTTFTE+FTE
if DBS=3
SET LPINT=LPINT+1
SET LPINTFTE=LPINTFTE+FTE
QUIT
+6 IF "XY"[TOA
SET LPSIS=LPSIS+1
SET LPINTFTE=LPINTFTE+FTE
QUIT
+7 IF DBS=3
SET LPINT=LPINT+1
SET LPINTFTE=LPINTFTE+FTE
QUIT
+8 QUIT
NA IF LWOPIND="Y"
SET NALWOP=NALWOP+1
+1 IF PPL="F"
SET NAFEE=NAFEE+1
QUIT
+2 IF (PPL="N")!(PBS="S")!(ITR>0)
SET NATSR=NATSR+1
SET NATSRFTE=NATSRFTE+FTE
QUIT
+3 SET NATOT=NATOT+1
SET NAFTETOT=NAFTETOT+FTE
+4 IF "12579DRSWMNEAHUF"[TOA
if DBS=1
SET NAFTP=NAFTP+1
if DBS=2
SET NAPTP=NAPTP+1
SET NAPTPFTE=NAPTPFTE+FTE
if DBS=3
SET NAINT=NAINT+1
SET NAINTFTE=NAINTFTE+FTE
QUIT
+5 IF "3468JKLTVPZ"[TOA
if DBS=1
SET NAFTT=NAFTT+1
if DBS=2
SET NAPTT=NAPTT+1
SET NAPTTFTE=NAPTTFTE+FTE
if DBS=3
SET NAINT=NAINT+1
SET NAINTFTE=NAINTFTE+FTE
QUIT
+6 IF "XY"[TOA
SET NASIS=NASIS+1
SET NAINTFTE=NAINTFTE+FTE
QUIT
+7 IF DBS=3
SET NAINT=NAINT+1
SET NAINTFTE=NAINTFTE+FTE
QUIT
+8 QUIT
