*DECK SYNGN10 
PROC SYNGN10
*CALL LEXID 
          + 
*CALL SUB10 
          + 
*CALL SYNGN00 
      :ACCESS   :01 
            WRONGOVERLAY     / YES
  
      :ALTER    :01 
            WRONGOVERLAY     / YES
  
      :BREAK    :01 
            WRONGOVERLAY     / YES
  
      :COMPILE  :01 
            WRONGOVERLAY     / YES
  
      :CREATE   :01 
            WRONGOVERLAY     / YES
  
      :DATE     :01 
            WRONGOVERLAY     / YES
  
      :DEFINE   :01 
            WRONGOVERLAY     / YES
  
      :DELETE   :01 
            WRONGOVERLAY     / YES
  
      :DESCRIBE :01 
            WRONGOVERLAY     / YES
  
      :DETAIL   :01 
            WRONGOVERLAY     / YES
  
      :DIRECTORY  :01 
            WRONGOVERLAY     / YES
  
      :DISPLAY  :01 
            WRONGOVERLAY     / YES
  
      :DUPLICATE    :1,  *ENDBASC, LOST, NO / *VERCHK, D194, LOST,
                         NO / 
                        $UPON, 3/ $DEFAULT, D022, NO/ *SETDEF, +SNC, NO 
                   :3,  $REPORTS, 5/ *SAVCP1A, +NAME, D022, NO /
                     *CHKLFN,D101,NO/ *SAVNAM / +EOT,4/11 
                   :4,  $AS, D022, NO / +NAME, D022, NO / 
                     *CHKLFN,D101,NO/ *SAVSES,D049,NO/11
                   :5,  $SESSIONS, D022, NO / +NAME, D089, NO / 
                         *SESNAM, D049, NO / #STORE SESSION ID #
                         +INT, 8 / *DIRID, D205, NO / #STORE DIR-ID # 
                         $TO, 8 / +INT, D112, NO / *DIRID, D205, NO / 
                  :8, +EOT, 6/11
                  :6,  $AS, 10 / +NAME , D022, NO / 
                       *SAVSES, D049, NO /
                       +EOT,9/11
                  :9,  +INT,10/ *SAVID,D205,NO/ +EOT,10/11
                  :10, $BY,D022,NO/ +INT,D220,NO/ *INCREM,D219,NO/
                  :11, *DUPEMALL,NO/YES       # DOES ALL THE WORK # 
  
      :ERASE    :01 
            WRONGOVERLAY     / YES
  
      :EVALUATE :01 
            WRONGOVERLAY     / YES
  
      :EXECUTE  :01 
            WRONGOVERLAY     / YES
  
      :EXHIBIT  :01 
            WRONGOVERLAY     / YES
  
      :EXTRACT  :01 
            WRONGOVERLAY     / YES
  
      :FOLLOW   :01 
            WRONGOVERLAY     / YES
  
      :FOOTING  :01 
            WRONGOVERLAY     / YES
  
      :FORMAT   :01 
            WRONGOVERLAY     / YES
  
      :HEADING  :01 
            WRONGOVERLAY     / YES
  
      :IF       :01 
            WRONGOVERLAY     / YES
  
      :INSERT   :01 
            WRONGOVERLAY     / YES
                                                                        002410
      :INVOKE   :01                                                     002420
            WRONGOVERLAY     / YES                                      002430
  
      :LOOKUP   :01 
            WRONGOVERLAY     / YES
  
      :MODIFY   :01 
            WRONGOVERLAY     / YES
  
      :MOVE     :01 
            WRONGOVERLAY     / YES
  
      :OS       :01 
            WRONGOVERLAY     / YES
  
      :PAGE-NUMBER  :01 
            WRONGOVERLAY     / YES
  
      :PAGE-SIZE:01 
            WRONGOVERLAY     / YES
  
       :PERFORM  :11, *ENDBASC, LOST, NO /
              *PERINIT, LOST, NO / *PERCKDM, 01 / 35
          :01 +NAME, D114, PLOST, NO / *SESSCHK, D049, PLOST, NO /
              *STSESS, PLOST, NO / +INT, 02 / *SIDCHK, 04 / 
           :15  *STD1, $TO, 02 / +INT, 04 / *SIDCHK, 04 / *STD2, D075,
          PLOST,  NO /
          :02  +INT, 22 / *SESINIT, PLOST, NO / 15
          :22  $AND, 24 / 01
          :24  $UNTIL, 26 / CONDITION, D173, PLOST, NO / *STCOND, 28
          :26  $REPEAT, 28 / ARITHEXPRESS, D174, PLOST, NO /
              *STEXPR, D175, PLOST, NO /
          :28  $VETO, 29 / *STVETO, 03
          :29  $PASS, 03 / *STPASS, 03
          :03  +EOT, D027 /                                             000150
          :35  *PERBEGIN, YES / PERLOOP / YES                           000160
           :04, D073, PLOST, NO 
  
      :PREFACE  :01 
            WRONGOVERLAY     / YES
  
      :PREPARE  :01 
            WRONGOVERLAY     / YES
  
      :PREVIEW  :01 
            WRONGOVERLAY     / YES
  
      :RECAP    :01 
            WRONGOVERLAY     / YES
  
       :RECORDING  :1, *ENDBASC, LOST, NO / 
                       $OFF, 2 / *RECOFF, YES 
                   :2, *TLCHECK, D312, NO/     # CANT DUP TO LITTLE MRL#
                       +NAME,    D089, NO/     # IF NOT A NAME         #
                        *SESSCHK, D049, NO /   # SESSION-ID TOO LONG #
             *SESSREC,+INT,3/*TRXMID,D050,NO
              :3,  +EOT,4/5 
              :4,  $BY, D022, NO/ +INT, D220, NO/ *INCREM, D219,NO/ 
              :5,  *RECORDING, NO/YES 
  
      :RECOVERY :01 
            WRONGOVERLAY     / YES
  
      :REMOVE   :01 
            WRONGOVERLAY     / YES
  
      :RETURN   :01 
            WRONGOVERLAY     / YES
  
      :REWIND   :01 
            WRONGOVERLAY     / YES
  
      :SELECT   :01 
            WRONGOVERLAY     / YES
  
      :SEPARATOR :01               #-B E G I N--S E P A R A T O R------#
            *ENDBASC
            LOST          NO /
            *CHKNXID      05 /     # NO IF MORE SEP SYNTAX             #
            *SEPONE          /YES  # PROCESS STAND-ALONE SEP           #
  
        :05 $ITEM-SIZE    10 /     # YES IF ITEM-SIZE SPECIFIED        #
            *ITSIZ           /YES  # SET ITEM-SIZE OPTION              #
  
        :10 *CHKSEP       15 /YES  # YES IF CURRENT SEPARATOR GIVEN    # QU3A338
                                                                         QU3A338
        :15 $=                     # CHECK FOR REQUIRED =              # QU3A338
            D022          NO /     # DIAGNOSE ILLEGAL SYNTAX           #
            USEPCHAR               # CHECK FOR VALID SEP CHAR          #
            +SNW                   # DIDNT MATCH...ADVANCE SCANNER     #
            D150                   # DIAGNOSE INVALID SEP CHAR         #
            LOST          NO /
            *SEPA                  # STORE NEW SEPARATOR CHARACTER     #
            D245          NO /YES  # DIAGNOSE IF SEP = UNI             #
                                   #--E N D--S E P A R A T O R---------#
  
      :SORT     :01 
            WRONGOVERLAY     / YES
  
      :SPECIFY  :01 
            WRONGOVERLAY     / YES
  
      :STORE    :01 
            WRONGOVERLAY     / YES
  
      :SUMMARY  :01 
            WRONGOVERLAY     / YES
  
      :TABS     :01 
            WRONGOVERLAY     / YES
  
      :TIME     :01 
            WRONGOVERLAY     / YES
  
      :TITLE    :01 
            WRONGOVERLAY     / YES
  
      :UNIVERSAL :01               # B E G I N   U N I V E R S A L     #
            *ENDBASC
            LOST          NO /
            *CHKNXID      2  /     # CHECK FOR KEYWORD AFTER UNI       #
            *UNIVSET      YES/     # UNI ALONE SETS DEFAULT            #
            D245                   # DIAGNOSE SEP = DEFAULT UNI        #
            LOST          NO /
  
        :02 $OFF          3  /     # CHECK FOR KEYWORD *OFF*           #
            *UNIVOFF      YES/YES  # TURN OFF UNIVERSAL CHAR           #
  
        :03 -IS                    # CHECK FOR OPTIONAL KEYWORD *IS*   #
            $=               /     # CHECK FOR OPTIONAL *=*            #
            USEPCHAR               # CHECK IF LEGAL CHAR FOR UNI       #
            D246                   # DIAGNOSE ILLEGAL UNI CHAR         #
            LOST          NO /
            *UNIVERA      YES/     # SET UNI TO THE SPECIFIED CHAR     #
            D245                   # DIAGNOSE UNI = SEP                #
            LOST          NO /NO
                                   #  E N D   U N I V E R S A L        #
  
      :UPDATE   :01 
            WRONGOVERLAY     / YES
  
      :USE  :01 
            WRONGOVERLAY     / YES
  
      :VERIFY   :01 
            WRONGOVERLAY     / YES
  
      :VERSION  :01 
            WRONGOVERLAY     / YES
  
       :VETO   :1, *ENDBASC, LOST, NO / 
                    $ON, $OFF, D175, LOST, NO / *VTOSET, YES
  
      :VIA      :01 
            WRONGOVERLAY     / YES
  
      :WHERE    :01                #----W H E R E----------------------#
            *ISIT77                # IF WE ARE NOT PROCESSING RESTRICTS#
            D077          NO /YES  # THEN THIS IS A USER INITIATED CALL#
                                   # FOR *WHERE* WHICH IS ILLEGAL.     #
                                   #----E N D----W H E R E-------------#
  
#----------------------------------------------------------------------#
#                                                                      #
#        O T H E R   S Y N T A X   S E C T I O N S                     #
#        IN ALPHABETICAL ORDER                                         #
#                                                                      #
#----------------------------------------------------------------------#
  
      :USEPCHAR   :1, $-, $*, $/, $$, $[, $], $", $_, $&, 
                      $', $?, $!, $<, $>, $@, $\, NO / YES
END 
