*DECK CBSYN                                                             027490
PROC CBSYNTX
*CALL CBSYNCOM
+                                                                       031440
SUBSCHNME 
SCHNAME 
ALIASTYP                                                                031460
ALIAS1QAL                                                               031480
ALIAS2QAL                                                               031490
ALIAS1STORNM                                                            031510
ALIAS2STORNM                                                            031520
ALIASQLNME                                                              031530
ALIASQALLST                                                             031540
ALIASLQAL                                                               031550
ALIASRQAL                                                               031560
ALIASSTORNME                                                            031570
ALIASINIT                                                               031580
REALMALL                                                                031590
REALMALIAS                                                              031600
REALMNAME                                                               031610
RECD1STCK                                                               031620
RECDNAME                                                                031630
RECDWITHIN                                                              031640
ITEMF1CK                                                                031650
ITEMNAME                                                                031660
ITEMDOM                                                                 031670
ITEMPICTR                                                               031680
ITEMLOG 
ITEMCMPLX 
ITEMDISP                                                                031720
ITEMUSECK                                                               031740
ITEMOC1INT                                                              031750
ITEMTIMES                                                               031760
ITEMOC2INT                                                              031770
ITEMVOCCK                                                               031780
ITEMOCHSHNM                                                             031790
ITEMOCNM1CK                                                             031800
ITEMOCNM2CK                                                             031810
ITEMVARORD                                                              031820
ITEMASCEND                                                              031830
ITEMOCKYNME                                                             031840
ITEMDESCEND                                                             031850
ITEMOCQALKY                                                             031860
ITEMRESETKY                                                             031870
ITEMTYPINDX                                                             031880
ITEMSYNC                                                                031890
ITEMLFTSYNC                                                             031900
ITEMJUST                                                                031910
LEVELCONVRT                                                             031920
LEVEL01                                                                 031930
ITEMNMEINDX                                                             031970
ENDPASS1
CHECKEOT                                                                032000
SETEOT                                                                  032010
ENDSS 
ABORT3
ITEMEND 
REDFINIT
REDFCK
REDFSIZE
REDFOCC 
REDFSCN 
REDFTERM
LEVEL66 
LEVEL88 
FIND66ITM 
CK66LEVEL 
CK66ITMTYP
SET66GRP
FIND266ITM
CK66SUBOR 
ITMNAME88 
ITEMCHK 
SETVALUE
SETFCONST 
SETALLLIT 
SETDFLAG
CHKLIT1 
CHKLIT2 
CHKTHRU 
VALRTRN 
SETWBPTR
SPECIALLVL
CKOCCKEY
SETKEYPTR 
STOREKEYADR 
ISCOBOL 
ADJWBPTR
CKFORINDEX
STOREDPNME
OCCRECISQAL 
STOREQAL
RECISQAL
REDEFEND
REDEFLVL66                                                              001703
SETRELFG
SETSSFGT
CHKMSS
ABORT4
SETRECPTR 
INCRWBPTR 
+                                                                       032040
:ROOT:01       +EOT   05
         /     D100   *ABORT3 
        :05    TITLE
         /     ALIAS
         /     REALM
         /     RECORD                                                   032070
         /     *ENDPASS1   SKIPRL 
:TITLE :01     *CHKMSS   $TITLE   D146   SKIPRL   *ABORT4 
         /     $DIVISION   D152   +SNC   03                             032100
         /     -.                                                       032110
       :03     $SS   D147   +SNW
         /     +NAME   D148   SKIPTOPERIOD   05                         032130
         /     *SUBSCHNME 
               $WITHIN   D149 
         /     +NAME   D148   SKIPTOPERIOD   YES
         /     *SCHNAME   D155
         /     $.   SKIPTOPERIOD   NO 
        :05    YES                                                      032170
:REALM:01      $REALM   D112   +SNC   03
         /     $DIVISION   D113   +SNC   03                             032190
         /     -.                                                       032200
        :03    $RD    D114   *REALMALL  11                              032210
         /     $ALL   07                                                032220
        :05    *REALMALL                                                032230
               -.   YES                                                 032240
        :07    +NAME   D114   *REALMALL   11                            032250
       :09     *REALMALIAS    10
         /     *REALMNAME   D115
       :10     $.   12
       :11     $RD   YES
       :12     +NAME   D115   D145   SKIPTOPERIOD   11
        /      09 
:ALIAS:01      $ALIAS   NO                                              032320
         /     $DIVISION   D105   +SNC   03                             032330
         /     -.                                                       032340
       :03     $AD   NO 
        :05    $REALM                                                   032360
               $RECORD                                                  032370
               $DATA   D142   +SNC   19 
         /     *ALIASTYP                                                032390
               +KEY 
               +NAME   D107   +SNC   19 
         /     *ALIAS1STORNM
         /     $OF    09
         /     +NAME   D111   +SNC   19 
         /     *ALIAS1QAL   D143                                        032440
         /     *ALIAS2QAL   D144   +SNC   19
       :09     $BECOMES   D108   +SNC   19
         /     +NAME   D107   +SNC   19 
         /     *ALIAS2STORNM
               $OF   17 
         /     +NAME   D111   +SNC   19 
         /     *ALIASQALLST                                             032550
        :13    *ALIASQLNME                                              032560
               *ALIASLQAL                                               032570
               $OF   15                                                 032580
         /     +NAME   D111   +SNC   15                                 032590
         /    *ALIASQLNME                                               032600
               *ALIASRQAL                                               032610
               $OF   15                                                 032620
         /     +NAME   D111   +SNC   15                                 032630
         /     13                                                       032640
        :15    *ALIASSTORNME                                            032650
        :17    *ALIASINIT                                               032660
               $.   D169   $AD   SKIPTOPERIOD   YES 
         /      19
         /     $AD   21 
         /     05 
       :19     $AD   YES
         /     05 
       :21     $.   D169   SKIPTOPERIOD   YES 
         /     YES
:RECORD:01     $RECORD   D117   +SNC   03 
         /     $DIVISION   D117   +SNC   03 
         /     -.                                                       032710
       :03     +INT   D118   D145   SKIPTOPERIOD
         /     *RECD1STCK   D119   SKIPRL   *ABORT4 
       :05     *SETRECPTR 
         /     +NAME  D120  SKIPTOPERIOD  07
         /     *RECDNAME   D121                                         032750
         /     *RECDWITHIN   D122                                       032760
         /     $.   D141
       :07     +INT   D123   SKIPTOPERIOD   25
         /     *ITEMF1CK   D140                                         032780
       :08     +NAME   D124   20
         /     *ITEMDOM   D126   20 
         /     *ITEMNAME   20 
         /     $REDEFINES   09
         /     IREDFINE 
       :09     IPICTRE                                                  032820
               IUSAGE                                                   032830
               IOCCUR                                                   032840
               ISYNC                                                    032850
               IJUST   11                                               032860
         /     09                                                       032870
       :11     $.   D141
       :15     *ITEMEND 
         /     25 
       :20     *SETWBPTR   SKIPTOPERIOD 
       :25     +INT   55
         /     *LEVELCONVRT   D123   SKIPTOPERIOD   15
         /     *CKOCCKEY   30 
         /     *SETKEYPTR 
               *STOREKEYADR 
       :30     *LEVEL01   35
         /     65 
       :35     *REDFCK   40 
         /     *REDFSIZE
       :40     *SPECIALLVL   08 
       :45     *LEVEL66   50
         /     L66   25 
         /     15 
       :50     *LEVEL88   55
         /     L88   *SETWBPTR   25 
         /     15 
       :55     +EOT   70
         /     *SETEOT
       :60     *ENDSS 
       :65     REC1PASS 
               *CHECKEOT   05 
         /     YES
       :70     $TITLE   75
         /     *SETSSFGT   60 
       :75     $RELATION   D145   SKIPTOPERIOD   15 
         /     *SETRELFG   65 
:REC1PASS:01   *REDFTERM   02 
         /     *REDFSIZE
       :02     *REDEFEND
               *REDEFLVL66                                              001705
               *CKOCCKEY   06 
         /     *SETKEYPTR 
               *STOREKEYADR 
       :06     NO 
PICTRE:01    $PICTURE   NO                                            033040
         /     -IS   *ITEMPICTR   +SNW                                  033050
               NO 
USAGE:01     $USAGE   NO                                              033070
         /     -IS                                                      033080
               $LOGICAL   03
         /     *ITEMLOG    10 
  
       :03     $COMPLEX   05
         /     *ITEMCMPLX  10 
  
       :05     $COMP
               $COMP-1
               $COMP-2
               $DISPLAY 
               $DOUBLE
               $INDEX   20
  
       :10     *ITEMUSECK    D129 
         /     YES
  
       :20     D128     *ITEMDISP 
               +SNW     10
  
OCCUR:01     $OCCURS   NO                                             033230
         /     +INT   D130   +SNW   NO
         /     *ITEMOC1INT
         /     -TIMES                                                   033260
         /     $TO   *ITEMTIMES   03
         /     +INT   D130   +SNW   NO
         /     *ITEMOC2INT   D131                                       033280
         /     -TIMES                                                   033290
               $DEPENDING                                               033300
         /     -ON   +NAME   D133   +SNW   NO 
         /     *ITEMVOCCK   D135                                        033320
         /     *STOREDPNME
         /     $OF
               *OCCRECISQAL   05
       :07     +NAME   D111 
       :09     *STOREQAL
               $OF   05 
         /     07 
        :05    *ITEMOCNM1CK   D134   03 
         /     *ITEMOCNM2CK   D136                                      033360
         /     *ITEMVARORD                                              033370
        :03    *ISCOBOL    YES
          /    IOCCINDEX
               IOCCKEY
               IOCCINDEX
               *CKFORINDEX YES
         /     *ADJWBPTR   *INCRWBPTR 
         /     YES
OCCKEY:01    $ASCENDING   05                                          033410
       :03     *ITEMASCEND   09                                         033420
       :05     $DESCENDING   NO                                         033430
       :07     *ITEMDESCEND                                             033440
       :09     -KEY                                                     033450
               -IS                                                      033460
               +NAME   D137   +SNW   NO 
       :11     *ITEMOCKYNME                                             033480
               $OF   19 
       :21     +NAME   D111 
         /     *ITEMOCQALKY 
               *ITEMOCKYNME 
               *ITEMRESETKY 
               $OF   13 
         /     21 
       :13     +NAME   15                                               033540
         /     11                                                       033550
       :15     $DESCENDING   17                                         033560
         /     07                                                       033570
        :17    $ASCENDING  NO 
         /     03                                                       033590
       :19     *RECISQAL
               13 
OCCINDEX:01  $INDEXED   NO                                            033600
         /     -BY                                                      033610
               +NAME   D138                                             033620
       :03     *ITEMTYPINDX 
               *ITEMOCKYNME                                             033650
               +NAME       NO 
         /     03                                                       033670
SYNC:01      $SYNC   NO                                               033680
         /     *ITEMSYNC                                                033690
               $LEFT   03                                               033700
         /     *ITEMLFTSYNC   YES                                       033710
       :03     $RIGHT   D200   *ITEMLFTSYNC   YES 
         /     YES                                                      033730
JUST:01      $JUST   NO                                               033740
         /     *ITEMJUST                                                033750
               $RIGHT 
         /     YES                                                      033770
REDFINE:01   +NAME   D172   SKIPTOPERIOD   NO 
         /     *REDFINIT
               *REDFSCN   D173
         /     *REDFOCC   D174
         /     YES                                                       DL3A035
:L66:01        +NAME   D124   06
         /     *ITEMNAME   D125   06
         /     $RENAMES   D180   06 
         /     +NAME   D124   06
         /     *STOREDPNME
         /     $OF
               *OCCRECISQAL   10
       :08     +NAME   D111 
       :02     *STOREQAL
               $OF   10 
         /     08 
       :10     *FIND66ITM   D181   06 
         /     *CK66LEVEL   06
         /     $THRU
               *CK66ITMTYP   05 
         /     *SET66GRP
       :03     +NAME   D124   06
         /     *STOREDPNME
         /     $OF
               *OCCRECISQAL   12
       :14     +NAME   D111 
         /     *STOREQAL
               $OF   12 
         /     14 
       :12     *FIND266ITM   06 
         /     *CK66LEVEL   06
         /     *CK66SUBOR   D184   06 
       :05     $.   D141
         /     *INCRWBPTR   YES 
       :06     *SETWBPTR   SKIPTOPERIOD   NO                             DL3A035
:L88   :01     +NAME   D124   SKIPTOPERIOD   NO 
         /     *ITMNAME88   D125   SKIPTOPERIOD   NO
         /     *ITEMCHK   D189   SKIPTOPERIOD   NO
       :03     $VALUE   D190   SKIPTOPERIOD   NO
         /     *SETVALUE
               -IS
               -ARE 
       :05     L88LIT    NO 
         /     YES
:L88LIT:01     +LIT 
               L88FC   D191   SKIPTOPERIOD   NO 
         /     *CHKLIT1   D191   SKIPTOPERIOD   NO
         /     *CHKLIT2   D192   SKIPTOPERIOD   NO
       :03     $THROUGH   07
         /     *CHKTHRU 
       :05     +LIT 
               L88FC   D191   SKIPTOPERIOD   NO 
         /     *CHKLIT1   D191   SKIPTOPERIOD   NO
         /     *CHKLIT2   D192   SKIPTOPERIOD   NO
       :07     +LIT 
               L88FC   09 
         /     *CHKLIT1   D191   SKIPTOPERIOD   NO
         /     *CHKLIT2   D192   SKIPTOPERIOD   NO
         /     03 
       :09     *VALRTRN   D191   SKIPTOPERIOD   NO
         /     $.   D141   NO 
         /     YES
:L88FC :01     $ZEROS 
               $SPACES
               $LOW-VALUES
               $HIGH-VALUES 
               03 
         /     *SETFCONST   05
         /     YES
       :03     $ALL   NO
         /     +LIT   01
         /     *SETALLLIT   05
         /     YES
       :05     *SETDFLAG   NO 
:SKIPTOPERIOD:01   D150                                                 033780
       :03     $.   05
         /     D151   NO
       :05     +EOT   10
         /     *ENDPASS1
       :10     $TITLE   +SNW   03 
         /     *SETSSFGT   *ENDPASS1
  
:SKIPRL:05     D206 
       :10     +EOT   15
         /     *ABORT4
       :15     $TITLE   +SNC   10 
         /     *SETSSFGT   *ABORT4
END 
