*DECK CBRSYN
PROC CBRSYNX
*CALL CBSYNCOM
+ 
AREARANK
CONLIT
DATANAME
ENDSTACK
FINDREC 
FINDSBDBI 
FINDSCDBI 
GETSCREC
LOGICALOP 
L66DBI
NORQT 
QALNME
RELNAME 
RELRQT
RELRST
RELRSTAR
RELTERM 
RESTRDBI
RESTREND
RESTRREC
RQTATTR 
RQTDBI
RQTDBILFT 
RQTDBIRT
RQTLIT
RQTNOTATION 
SETBCPBWP 
SETSSFGT
STORSUB 
VALIDATEDBI 
VALIDSUB
VIRTDBI 
+ 
:START:01      $DIVISION   D431   SKIPTOPERIOD   05 
         /     $.   D432
       :05     $RN   D400   SKIPTOPERIOD   05 
         :07   -IS
               +NAME   D401   SKIPTOPERIOD   05 
          /    *RELNAME   D402
          /    *RELRST   D403  SKIPTOPERIOD 20
          /    *RELRSTAR
               $RESTRICT   *NORQT   10
        /      RESTRICT   20
         :10   $.   D418
       :20     $RN   25 
          /    07 
       :25     +EOT   35
       :30     *RELTERM 
       :35     $TITLE   D417   SKIPTOPERIOD   20
         /     *SETSSFGT   30 
:RESTRICT:05   *RELRQT
         :07   +NAME   D405   65
          /    *RESTRREC
               RELQAL 
               *FINDREC   D406   65 
          /    *GETSCREC
               *AREARANK   D426   65
          /    -WHERE 
       :10     $NOT   13
          /    *LOGICALOP 
       :13     $(   15
          /    *LOGICALOP 
       :15     +NAME   D407   65
          /    *RESTRDBI
               RELQAL 
               DBISUB   65
        /      *FINDSBDBI   65
        /      *L66DBI   D425   65
        /      *FINDSCDBI   65
         /     *VALIDSUB
               *SETBCPBWP 
          /    *VIRTDBI  D424 
          /    *RQTDBI
               *RQTDBILFT 
               $EQ
               $NQ
               $GR
               $LS
               $GQ
               $LQ   D427   65
          /    *LOGICALOP 
               +NAME   25 
          /    *RESTRDBI
               RELQAL 
               DBISUB   65
        /      *FINDSBDBI   *DATANAME   35
        /      *L66DBI   D425   65
        /      *FINDSCDBI   65
         /     *VALIDSUB
               *SETBCPBWP 
          /    *VIRTDBI   D424
          /    *RQTDBI
               *RQTDBIRT
               *VALIDATEDBI   D413
          /    35 
       :25     +LIT   D422   65 
        /      *CONLIT   D410   65
          /    *RQTLIT
         :35   $)   40
        /      *LOGICALOP 
         :40   $AND 
               $OR
               $XOR   45
           /   *LOGICALOP 
               10 
         :45   $RESTRICT   50 
           /   07 
         :50   *RQTNOTATION 
               *RQTATTR 
               *RESTREND
               YES
       :65     SKIPTORESTR   05 
        /      NO 
:RELQAL:05     $OF   NO 
         :10   +NAME   D430   +SNW   $OF   NO   10
          /    *QALNME   05 
:DBISUB:05     $(   YES 
        /      +INT   D436   NO 
       :10     *STORSUB   D437
         /     +INT   15
         /     10 
       :15     $)   D438   NO 
        /      YES
:SKIPTORESTR:05   D433
       :07     $RESTRICT   10 
         /     D434   NO
       :10     $.   15
        /      D435   YES 
       :15     +EOT   20
         /     *RELTERM 
       :20     $TITLE   +SNW   07 
         /     *SETSSFGT   *RELTERM 
:SKIPTOPERIOD:05   D419 
       :10     $.   15
         /     D420   NO
       :15     +EOT   20
         /     *RELTERM 
       :20     $TITLE   +SNW   10 
         /     *SETSSFGT   *RELTERM 
END 
