*DECK SYNGN02 
PROC SYNGN02
*CALL LEXID 
          + 
*CALL SUB02 
          + 
*CALL SYNGN00 
      :ACCESS   :01 
            WRONGOVERLAY     / YES
  
      :ALTER    :01 
            WRONGOVERLAY     / YES
  
       :BREAK :1, *ENDBASC, LOST, NO / +INT, D111, LOST, NO 
                  / *SETLEVEL, D108, LOST, NO / 
                $AND,07,/,
                     $EJECT,D022,LOST,NO,/,02                           000840
            :02,*BRKEJT,03
            :03,$ON,D168,NO,/,$OVERFLOW,04,/,*BREAKOV,YES 
             :04,$ITEMS,06,/,05 
        :05 ARITHEXPRESS  NO /
            *BRKEND       NO /YES 
            :06,CONDITION,NO,/,*STOCOND,NO / YES
            :07,$EJECT,03,/,02
  
      :COMPILE  :01 
            WRONGOVERLAY     / YES
  
      :CREATE   :01 
            WRONGOVERLAY     / YES
  
       :DATE  :1, *ENDBASC, LOST, NO /
              :40, LINCOLN, D126, LOST, NO / 41 
          :41  *STDATE, D122, YES / LINCOLN, LOST, NO / 
               *TSDEFT, 41 / YES
  
      :DEFINE   :01 
            WRONGOVERLAY     / YES
  
      :DELETE   :01 
            WRONGOVERLAY     / YES
  
      :DESCRIBE :01 
            WRONGOVERLAY     / YES
  
       :DETAIL  :1 *ENDBASC, LOST, NO / +INT, 02 /
                    *DTLTAG, D023, LOST, NO / 03
             :02,*NODTLTG,D156,LOST,NO
              :03,ATLINE,NO,/,-IS,ARITHEXPRESS,NO,/,*STOATTR, 
              :04,$ONCE,05,/,*SONCE,D148,05,/,
              :05,CENTER,NO,/,*CHKNXID,03,/,*LASTPTR,NO,/,YES 
  
      :DIRECTORY  :01 
            WRONGOVERLAY     / YES
  
      :DISPLAY  :01 
            WRONGOVERLAY     / YES
  
      :DUPLICATE   :01
            WRONGOVERLAY     / YES
  
      :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
                                                                        001600
      :INVOKE   :01                                                     001610
            WRONGOVERLAY     / YES                                      001620
  
      :LOOKUP   :01 
            WRONGOVERLAY     / YES
  
      :MODIFY   :01 
            WRONGOVERLAY     / YES
  
      :MOVE     :01 
            WRONGOVERLAY     / YES
  
      :OS       :01 
            WRONGOVERLAY     / YES
  
       :PAGE-NUMBER  :1, *ENDBASC, LOST, NO / 
                :30, LINCOLN, D125, LOST, NO /
                :41, *STPGNUM, D122, LOST, NO / LINCOLN, LOST, NO / 
                     *TSDEFT, 41 / YES
  
      :PAGE-SIZE:01 
            WRONGOVERLAY     / YES
  
      :PERFORM :01                 #-------P E R F O R M---------------#
                                   #                                   #
                                   # THIS SECTION HANDLES ONLY THE     #
                                   # CONTINUATION OF A *PERFORM* WHICH #
                                   # IS RETURNING FROM AN EXECUTION    #
                                   # OVERLAY.  IF A REAL *PERFORM* IS  #
                                   # ENCOUNTERED, *WRONGOVERLAY* WILL  #
                                   # SEND US TO THE OVERLAY QUALIFIED  #
                                   # TO CRACK A *PERFORM* DIRECTIVE.   #
  
            *ENDBASC               # RELEASE BASIC-TABLE SPACE         #
            LOST          NO /
            *PERINIT      05 /     # INITIALIZE FOR *PERFORM*          #
            WRONGOVERLAY     /YES  # LOAD REAL *PERFORM* OVERLAY       #
  
        :05 *PERBEGIN     YES/     # CONTINUE A *PERFORM*              #
            PERLOOP          /YES  # ENTER *PERFORM* LOOP              #
                                   #                                   #
                                   #----E N D-----P E R F O R M--------#
  
      :PREFACE  :01 
            WRONGOVERLAY     / YES
  
      :PREPARE  :01 
            WRONGOVERLAY     / YES
  
      :PREVIEW  :01 
            WRONGOVERLAY     / YES
  
       :RECAP  :1, *ENDBASC, LOST, NO / *RCPEX, 02
          :02,RCPTTL,NO,/,YES 
  
      :RECORDING  :01 
            WRONGOVERLAY     / YES
  
      :RECOVERY :01 
            WRONGOVERLAY     / YES
  
      :REMOVE   :01 
            WRONGOVERLAY     / YES
  
      :RETURN   :01 
            WRONGOVERLAY     / YES
  
      :REWIND   :01 
            WRONGOVERLAY     / YES
  
       :SELECT  :1, *ENDBASC, LOST, NO / +INT, D157, LOST, NO / 
          *SETTAG,NO,/,$ON,NO,/ 
                      CONDITION,NO                                      001060
            :02, *STOSELE,NO / YES
  
      :SEPARATOR  :01 
            WRONGOVERLAY     / YES
  
      :SORT     :01 
            WRONGOVERLAY     / YES
  
      :SPECIFY  :01 
            WRONGOVERLAY     / YES
  
      :STORE    :01 
            WRONGOVERLAY     / YES
  
      :SUMMARY  :01 
            WRONGOVERLAY     / YES
  
      :TABS     :01 
            WRONGOVERLAY     / YES
  
       :TIME  :1 *ENDBASC,  LOST, NO /
              :40  LINCOLN, D127, LOST, NO / 41 
         :41 *STTIME, D122, YES / LINCOLN, LOST, NO / *TSDEFT, 41 / YES 
  
       :TITLE  :1, *ENDBASC, LOST, NO / *TTLEX, 02
          :02,RCPTTL,NO,/,YES 
  
      :UNIVERSAL  :01 
            WRONGOVERLAY     / YES
  
      :UPDATE   :01 
            WRONGOVERLAY     / YES
  
      :USE  :01 
            WRONGOVERLAY     / YES
  
      :VERIFY   :01 
            WRONGOVERLAY     / YES
  
      :VERSION  :01 
            WRONGOVERLAY     / YES
  
      :VETO     :01 
            WRONGOVERLAY     / 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                                         #
#                                                                      #
#----------------------------------------------------------------------#
  
      :ATLINE:01,$AT,03,/,$LINE,D22,NO
              :02,+INT,05,/,*LINENO,LOST,NO,/,
                 $BEYOND,04,/,*CKBYD,LOST,NO,/,YES                       QU3A344
             :03,$LINE,YES,/,02 
          :04,*BEYOFF,LOST,NO,/,YES 
          :05,+NAME,D143,LOST,NO,/,*RESETNAM,/,*ITMNAM,NO,/,
                *GETNAME,D44,LOST,NO,/, 
                       *SLINENO,LOST,NO,/,$BEYOND,YES,/,D163,LOST,NO
  
      :CENTER   :01                # SYNTAX CHECKING IN POSITIONING OF #
                                   # REPORT ITEMS.                     #
            $CENTERED     05 /     # CHECK FOR *CENTERED*              #
            *CENTRON
  
        :05 $IN           25 /     # IF AN *IN* IS ENCOUNTERED, FORCE  #
                                   # THE OCCURRENCE OF THE KEYWORDS    #
                                   # *COLUMN*, *NEXT* OR *TAB*.        #
            $TABS         10 / 50  # CHECK FOR *TABS*                  #
  
        :10 $COLUMNS      15 / 40  # CHECK FOR *COLUMN*                #
  
        :15 $NEXT         20 / 45  # CHECK FOR *NEXT*                  #
  
        :20 D022                   # OTHERWIZE DIAGNOSE INVALID SYNTAX #
            LOST             / NO 
  
        :25 $COLUMNS      30 / 40  # IF NO *IN* OCCURS, CHECK FOR      #
                                   # *COLUMN*                          #
  
        :30 $NEXT         35 / 45  # CHECK FOR *NEXT*                  #
  
        :35 $TABS         55 / 50  # CHECK FOR *TABS*                  #
  
        :40 +INT                   # PROCESS COLUMN                    #
            D051          NO /
            *COLMNO       NO /YES 
  
        :45 -TABS                  # PROCESS NEXT                      #
            *NEXTAB       NO /YES 
  
        :50 +INT                   # PROCESS TABS                      #
            D051          NO /
            *TABNO        NO /YES 
  
        :55 *INCRCTR      NO /YES  # IF NO OCCURRENCE USE DEFAULTS     #
  
  
          :ISEXPR:01,-IS,ARITHEXPRESS,NO,/,*STOATTR,CENTER,NO,/,YES 
  
       :LINCOLN :1, *STDEFT, -AT, $TITLE-LINE, 2 / *STTITLN, 4
        :02,$LINE,3,/,+INT,D051,NO,/,*STLINE,NO,/,4 
          :3, $RECAP-LINE, 4 / *STRECPL, 4
        :04, $TABS 5 / +INT, D115, NO / *STTAB, NO / YES
         :05, $COLUMNS, YES / +INT, D051, NO / *STCOL, NO / YES 
  
      :RCPTTL:01,ATLINE,NO,/,ISEXPR,NO,/,*CHKNXID,01,/,*LASTPTR,NO,/,YES
END 
