*DECK SYNGN01 
PROC SYNGN01
*CALL LEXID 
          + 
*CALL SUB01 
          + 
*CALL SYNGN00 
      :ACCESS   :01 
            WRONGOVERLAY     / YES
  
      :ALTER    :01 
            WRONGOVERLAY     / YES
  
      :BREAK    :01 
            WRONGOVERLAY     / YES
  
      : COMPILE :01                #     C O M P I L E                 #
            *ENDBASC               #CHECK THAT NO 4X CMDS IN XMISSN    #
            LOST          NO /
            LFN           NO /     #CHECK FOR LEGAL REPORT NAME        #
            *CHKRPTN               #CHECK THAT REPORT EXISTS ON ZZZZZQ2#
            D103   LOST   NO /     # D103 - UNKNOWN REPORT NAME        #
            -DESCRIBED
            $IN           03 /
            LFN           NO /     #CHECK FOR LEGAL *IN* LFN           #
            *DESCRIN      NO / 04  #FIND DESLIST FOR *IN* LFN          #
        :03 *DESSEARCH             #FIND EXACTLY ONE DESLIST           #
            D355          NO /
        :04 $UPON 
            D036          NO /
            LFN           NO /     #CHECK FOR LEGAL *UPON* FILE        #
            *RECRDPR     YES /     #EXIT COMPILE CMD IF RECORDING      #
            *SETCOMP         /     # SET *RPTOVL* TO INDICATE *COMPILE*#
            *CHKNOTE               # *YES* IF $NOTE, ELSE *NO*.        #
            +EOT                   # CHECK FOR END-OF-TRANSMISSION     #
            D236             /     # DIAGNOSE THAT QU IGNORES WHAT     #
                                   # FOLLOWS *PREPARE/PREVIEW/COMPILE* #
            *FULLSYN
            HALFSYN       NO /     #IF PREFACES/SUMMARIES, EXECUTE     #
                                   #HALFSYN TO PREPARE LIST OF ALL     #
                                   #REQUIRED REPORTS/TEXTS             #
            *CHKTXT       05 / 06  #GO TO 6 IF THIS REPORT IS TEXT     #
  
        :05 FULLSYNTAX       / NO  # BUILD REPORT TABLES FROM THE      #
                                   # REPORT SPECIFICATIONS ON THE CUR- #
                                   # RENT CATALOG FILE. CONTROL IS     #
                                   # NEVER RETURNED FROM *FULLSYNTAX*. #
  
        :06 *RPTEXIT         /     # EXIT TO THE APPROPRIATE REPORT    #
                                   # PREPARATION OR COMPILATION OVERLAY#
                                   # RETURN IS MADE FROM *RPTEXIT* ONLY#
                                   # IF THERE WAS NO EXECUTABLE REPORT #
                                   # DIRECTIVE.                        #
  
            D167             / NO  # DIAGNOSE REPORT WITH NO EXECUTABLE#
                                   # DIRECTIVE.                        #
  
      :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   :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
                                                                        001560
      :INVOKE   :01                                                     001570
            WRONGOVERLAY     / YES                                      001580
  
      :LOOKUP   :01 
            WRONGOVERLAY     / YES
  
      :MODIFY   :01 
            WRONGOVERLAY     / YES
  
      :MOVE     :01 
            WRONGOVERLAY     / YES
  
      :OS       :01 
            WRONGOVERLAY     / YES
  
      :PAGE-NUMBER  :01 
            WRONGOVERLAY     / YES
  
       :PAGE-SIZE  :1 *ENDBASC, LOST, NO /
                    :10  -IS, $PARALLEL, 11 / *STPSQ / 10 
         :11  +INT, YES / *STOINT,
             $LINES,12,/,*STPSLN,LOST,NO,/,10 
         :12  $COLUMNS, 14 / *STPSCOL, LOST, NO / 10
         :14  $HORIZONTAL, $VERTICAL, 16 / *SETHRVT,
              $SECTIONS, D123, LOST, NO / *STSECTN, LOST, NO / 10 
         :16  $IMAGES, D124, LOST, NO / *STIMAG, LOST, NO / 10
  
      :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              #-------P R E F A C E---------------#
                                   #                                   #
                                   # THIS SECTION IGNORES THE PREFACE  #
                                   # DIRECTIVE SINC IT IS CRACKED BY   #
                                   # *HALFSYN* AT *PREPARE* TIME, AND  #
                                   # SHOULD BE IGNORED AT ALL OTHER    #
                                   # TIMES.                            #
  
            PRESUM        NO /YES  # TRY TO IGNORE THE *PREFACE*       #
                                   #                                   #
                                   #----E N D---P R E F A C E----------#
  
       :PREPARE  :1, *ENDBASC, LOST, NO / LFN, NO / 
            *CHKRPTN               #CHECK THAT REPORT EXISTS ON ZZZZZQ2#
            D103   LOST   NO /     # D103 - UNKNOWN REPORT NAME        #
                    $FROM, D110, NO/   #SOURCE FILE MUST BE GIVEN      #
                    LFN, NO/           #CHECK SOURCE FILE NAME         #
          *DESCRIN, NO       /     # FIND DESCRIBE LIST OF SOURCE FILE #
          *RECRDPR,YES,/
            *SETPREP         /     # SET *RPTOVL* TO INDICATE *PREPARE*#
            *CHKNOTE               # *YES* IF $NOTE, ELSE *NO*.        #
            +EOT                   # CHECK FOR END-OF-TRANSMISSION     #
            D236             /     # DIAGNOSE THAT QU IGNORES WHAT     #
                                   # FOLLOWS *PREPARE/PREVIEW/COMPILE* #
            *FULLSYN               # CHECK FOR PREFACE/SUMMARY REPORTS #
            HALFSYN       NO /     # PROCESS PREFACE/SUMMARY INFO      #
            *CHKTXT       05 / 06  # CHECK IF REPORT IS JUST TEXT      #
  
        :05 FULLSYNTAX       / NO  # BUILD REPORT TABLES FROM THE      #
                                   # REPORT SPECIFICATIONS ON THE CUR- #
                                   # RENT CATALOG FILE. CONTROL IS     #
                                   # NEVER RETURNED FROM *FULLSYNTAX*. #
  
        :06 *RPTEXIT         /     # EXIT TO THE APPROPRIATE REPORT    #
                                   # PREPARATION OR COMPILATION OVERLAY#
                                   # RETURN IS MADE FROM *RPTEXIT* ONLY#
                                   # IF THERE WAS NO EXECUTABLE REPORT #
                                   # DIRECTIVE.                        #
  
            D167             / NO  # DIAGNOSE REPORT WITH NO EXECUTABLE#
                                   # DIRECTIVE.                        #
  
      : PREVIEW :01                #   P R E V I E W                   #
            *ENDBASC               #CHECK THAT NO 4X,0 CMDS IN XMISSN  #
            LOST          NO /
            LFN           NO /     #CHECK FOR LEGAL REPORT FILENAME    #
            *PRWFG1                #INIT FOR PREVIEW, CHK REPORT NAME  #
            D103   LOST   NO /     # D103 - UNKNOWN REPORT NAME        #
            $FROM         03 /
            LFN           NO /     #CHECK FOR LEGAL *FROM* FILENAME    #
            *PRWFG2       NO / 05  #FIND DESLIST FOR *FROM* FILE       #
        :03 -DESCRIBED
            $IN           04 /
            LFN           NO /     #CHECK FOR LEGAL *IN* FILENAME      #
            *DESCRIN      NO / 05  #FIND DESLIST FOR *IN* FILE         #
        :04 *DESSEARCH             #FIND EXACTLY ONE DESLIST           #
            D355          NO / 05 
        :05 *RECRDPR     YES /     #EXIT PREVIEW CMD IF RECORDING      #
            *SETPREP         /     # SET *RPTOVL* TO INDICATE *PREPARE*#
            *CHKNOTE               # *YES* IF $NOTE, ELSE *NO*.        #
            +EOT                   # CHECK FOR END-OF-TRANSMISSION     #
            D236             /     # DIAGNOSE THAT QU IGNORES WHAT     #
                                   # FOLLOWS *PREPARE/PREVIEW/COMPILE* #
            *PWREADY               #INITIALIZE FOR PREVIEW             #
  
            FULLSYNTAX       / NO  # BUILD REPORT TABLES FROM THE      #
                                   # REPORT SPECIFICATIONS ON THE CUR- #
                                   # RENT CATALOG FILE. CONTROL IS     #
                                   # NEVER RETURNED FROM *FULLSYNTAX*. #
  
      :RECAP    :01 
            WRONGOVERLAY     / YES
  
      :RECORDING  :01 
            WRONGOVERLAY     / YES
  
      :RECOVERY :01 
            WRONGOVERLAY     / YES
  
      :REMOVE   :01 
            WRONGOVERLAY     / YES
  
      :RETURN   :01 
            WRONGOVERLAY     / YES
  
      :REWIND   :01 
            WRONGOVERLAY     / YES
  
      :SELECT   :01 
            WRONGOVERLAY     / YES
  
      :SEPARATOR  :01 
            WRONGOVERLAY     / YES
  
      :SORT     :01 
            WRONGOVERLAY     / YES
  
      :SPECIFY  :01 
            WRONGOVERLAY     / YES
  
      :STORE    :01 
            WRONGOVERLAY     / YES
  
      :SUMMARY  :01 
            WRONGOVERLAY     / YES
  
       :TABS   :1, *ENDBASC, LOST, NO / -AT, *INITAB, 
                     +INT, D115, NO 
           :02,*TABEX,+INT,YES,/,2
  
      :TIME     :01 
            WRONGOVERLAY     / YES
  
      :TITLE    :01 
            WRONGOVERLAY     / 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                                         #
#                                                                      #
#----------------------------------------------------------------------#
  
      :HALFSYN :01                 #---------H A L F S Y N----------   #
            +SNW                   # SKIP TO NEXT WORD                 #
            +KEY          /        # GET NEXT KEY WORD                 #
            PRESUU      NO/        # SEE IF TEXT                       #
            *MOREHAF    NO/        # ADD TO REPORT TABLES              #
            *CHKCOMP     1/YES     # CHECK COMPLETION                  #
  
      :PRESUM:1,   -IS, $TEXT, 2/  3
             :2,   LFN, NO/ 
             :3,   $FROM, D110, NO/  LFN, NO/  YES
      :PRESUU:01,-IS,$TEXT,2,/,*SETEXT,3
               :02,LFN,NO,/,*PRSMLFN
          :03,$FROM,D110,NO,/,LFN,NO,/,*PRSMFR,NO/YES 
END 
