Quelle

BAR$SRC (RPGLE)



  X * SRCALL BEGSR BAR$SRC 88  
  X * SRCCMD BEGSR BAR$SRC 14  
  X * SRCCMDROW BEGSR BAR$SRC 108  
  X * SRCCMDLIB BEGSR BAR$SRC 15  
  X * SRCDDS BEGSR BAR$SRC 16  
  X * SRCDDSROW BEGSR BAR$SRC 94  
  X * SRCRPG BEGSR BAR$SRC 81  
  X * SRCRPGROW BEGSR BAR$SRC 31  
  X * SRCRPGROW1 BEGSR BAR$SRC 95  
  X * SRCRPGROW2 BEGSR BAR$SRC 97  
  X * SRCRPGROW3 BEGSR BAR$SRC 297  
  X * SRCRPGROW4 BEGSR BAR$SRC 27  
  X * SRCRPGDEFS BEGSR BAR$SRC 82  
  X * SRCRPGDEFSX BEGSR BAR$SRC 82  
  X * SRCRPGUSES BEGSR BAR$SRC 91  
  X * SRCRPGUSESX BEGSR BAR$SRC 100  
  X * SRCMBRCOMPSR1 BEGSR BAR$SRC 9  
  X * SRCMBRCOMPSR2 BEGSR BAR$SRC 11  
  X * SRCTXT BEGSR BAR$SRC 18  
  X * SRCTXTROW BEGSR BAR$SRC 38  
  X * CMDLINE1 BEGSR BAR$SRC 7  
  X * CMDCMDLINE1 BEGSR BAR$SRC 7  
  X * DDSLINE1 BEGSR BAR$SRC 7  
  X * FILLINE1 BEGSR BAR$SRC 7  
  X * DEFLINE1 BEGSR BAR$SRC 7  
  X * RPGLINE1 BEGSR BAR$SRC 7  
  X * RPGOPCODELINE1 BEGSR BAR$SRC 7  
  X * RPGOPCODE1 BEGSR BAR$SRC 8  
  X * RPGFACTOR2X1 BEGSR BAR$SRC 7  
  X * RPGRESULTX1 BEGSR BAR$SRC 7  
  X * RPGIND123 BEGSR BAR$SRC 15  
  X * SRCFREE1 BEGSR BAR$SRC 7  
  X * SRCFREE21 BEGSR BAR$SRC 7  
  X * SRCFREE31 BEGSR BAR$SRC 7  
  X * RPGINDN1 BEGSR BAR$SRC 7  
  X * SRCFREE1SEQ BEGSR BAR$SRC 8  
  X * SRCSEQNUM1 BEGSR BAR$SRC 7  
  X * SRCSEQNUM1SEQ BEGSR BAR$SRC 8  
  X * SRCFORMTYPE1 BEGSR BAR$SRC 7  
  X * SRCLINE1 BEGSR BAR$SRC 7  
  X * SRCCOMMENT1 BEGSR BAR$SRC 8  
  X * SRCLEFT BEGSR BAR$SRC 7  
  X * SRCLEFTREF BEGSR BAR$SRC 7  
  X * SRCLEFTUSE BEGSR BAR$SRC 7  
  X * SRCLEFT2 BEGSR BAR$SRC 7  
  X * SRCLEFT2REF BEGSR BAR$SRC 7  
  X * SRCLEFT3MBR BEGSR BAR$SRC 7  
  X * SRCLEFT4 BEGSR BAR$SRC 7  
  X * SRCLEFT5 BEGSR BAR$SRC 7  
  X * SRCLEFT5USE BEGSR BAR$SRC 7  
  X * SRCLEFT6 BEGSR BAR$SRC 7  
  X * SRCLEFT6REF BEGSR BAR$SRC 7  
  X * SRCLEFT7 BEGSR BAR$SRC 7  
  X * SRCLEFT7REF BEGSR BAR$SRC 7  
  X * SRCLEFT7DEF BEGSR BAR$SRC 7  
  X * SRCLEFT7DEFS BEGSR BAR$SRC 7  
  X * SRCLEFT7USE BEGSR BAR$SRC 7  
  X * SRCLEFT7USES BEGSR BAR$SRC 7  
  X * SRCLEFT8 BEGSR BAR$SRC 7  
  X * SRCCENTER BEGSR BAR$SRC 7  
  X * SRCRIGHT BEGSR BAR$SRC 7  
  X * SRCRIGHT2 BEGSR BAR$SRC 7  
  X * SRCLINK BEGSR BAR$SRC 7  
  X * SRCLINKDEF BEGSR BAR$SRC 9  
  X * SRCLINKDEFS BEGSR BAR$SRC 8  
  X * SRCLINKUSE BEGSR BAR$SRC 9  
  X * SRCLINKUSES BEGSR BAR$SRC 8  
  X * SRCLINKINDN BEGSR BAR$SRC 11  
  X * SRCLINKRIGHT BEGSR BAR$SRC 35  
  X * SRCLINKMBR BEGSR BAR$SRC 9  
  X * SRCLINKREF BEGSR BAR$SRC 16  
  X * SRCLINKCOPY BEGSR BAR$SRC 15  
  X * SRCLINKMBR3 BEGSR BAR$SRC 44  
  X * SRCLINKINT BEGSR BAR$SRC 11  
  X * SRCLINKINT2 BEGSR BAR$SRC 10  
  X * SRCLINKINT3 BEGSR BAR$SRC 21  
  X * LINKSRC BEGSR BAR$SRC 25  
  X * LINKSRC3 BEGSR BAR$SRC 33  
  X * LINKSRCNEU BEGSR BAR$SRC 49  
  X * LINKSRCNEU2 BEGSR BAR$SRC 18  
  X * LINKSRCSEQ BEGSR BAR$SRC 23  
  X * LINKSRCCOMMENT BEGSR BAR$SRC 10  
  X * LINKSRCDEF BEGSR BAR$SRC 19  
  X * LINKSRCDEFS BEGSR BAR$SRC 32  
  X * LINKSRCUSE BEGSR BAR$SRC 56  
  X * LINKSRCUSES BEGSR BAR$SRC 32  
  X * LINKSRCADDB BEGSR BAR$SRC 7  
  X * LINKSRCCOLOR BEGSR BAR$SRC 13  
  X  
  X * LAKEY5SET KLIST BAR$SRC 3  
  X * LAKEY5 KLIST BAR$SRC 2  
  X * LAKEY2LABSET KLIST BAR$SRC 3  
  X * LAKEY2LAB KLIST BAR$SRC 2  
  X * SRCINFOPARM3S PLIST BAR$SRC 8  
  X * LAKEY2RPGSET KLIST BAR$SRC 3  
  X * LAKEY2RPG KLIST BAR$SRC 2  
  X  
  X * TABLESRC EXSR BAR$TABLE    
  X * ROWCOLOR12 EXSR BAR$TABLE    
  X * LABELDATETIME EXSR BAR$LABEL    
  X * TABLEX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * LABELCLR EXSR BAR$LABEL    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLESPACE EXSR BAR$TABLE    
  X * TABLESRCSTART EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * LABELLINES EXSR BAR$LABEL    
  X * LABELLINES EXSR BAR$LABEL    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLESRCSTART EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * TEXTCOLOR EXSR BAR$TEXT    
  X * NUMSTR EXSR BAR$NUM    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLESRCSTART EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * TEXTCOLOR EXSR BAR$TEXT    
  X * NUMSTR EXSR BAR$NUM    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLESPACE EXSR BAR$TABLE    
  X * TABLESRCSTART EXSR BAR$TABLE    
  X * TABLESRCSTART EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * TEXTCOLOR EXSR BAR$TEXT    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * TABLESPACE EXSR BAR$TABLE    
  X * TABLESRCSTART EXSR BAR$TABLE    
  X * TABLESRCSTART EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * TEXTCOLOR EXSR BAR$TEXT    
  X * ROWX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * TABLEX EXSR BAR$TABLE    
  X * ROW EXSR BAR$TABLE    
  X * ROWX EXSR BAR$TABLE    
  X * COLCMD EXSR BAR$TABLE    
  X * COLCMD2 EXSR BAR$TABLE    
  X * COLDDS EXSR BAR$TABLE    
  X * COLFIL EXSR BAR$TABLE    
  X * COLDEF EXSR BAR$TABLE    
  X * COLRPG EXSR BAR$TABLE    
  X * COLRPG2 EXSR BAR$TABLE    
  X * COLLEFTS4 EXSR BAR$TABLE    
  X * COLRPGX EXSR BAR$TABLE    
  X * COLRPGX2 EXSR BAR$TABLE    
  X * COLFREE EXSR BAR$TABLE    
  X * COLFREE2 EXSR BAR$TABLE    
  X * COLFREE3 EXSR BAR$TABLE    
  X * COLINDN EXSR BAR$TABLE    
  X * COLFREE EXSR BAR$TABLE    
  X * COLSEQNUM EXSR BAR$TABLE    
  X * COLSEQNUM EXSR BAR$TABLE    
  X * COLFORMTYPE EXSR BAR$TABLE    
  X * COLLINE EXSR BAR$TABLE    
  X * COLCOMMENT EXSR BAR$TABLE    
  X * COLLEFTS EXSR BAR$TABLE    
  X * COLLEFTS EXSR BAR$TABLE    
  X * COLLEFTS EXSR BAR$TABLE    
  X * COLLEFTS2 EXSR BAR$TABLE    
  X * COLLEFTS2 EXSR BAR$TABLE    
  X * COLLEFTS3 EXSR BAR$TABLE    
  X * COLLEFTS4 EXSR BAR$TABLE    
  X * COLLEFTS5 EXSR BAR$TABLE    
  X * COLLEFTS5 EXSR BAR$TABLE    
  X * COLLEFTS6 EXSR BAR$TABLE    
  X * COLLEFTS6 EXSR BAR$TABLE    
  X * COLLEFTS7 EXSR BAR$TABLE    
  X * COLLEFTS7 EXSR BAR$TABLE    
  X * COLLEFTS7 EXSR BAR$TABLE    
  X * COLLEFTS7 EXSR BAR$TABLE    
  X * COLLEFTS7 EXSR BAR$TABLE    
  X * COLLEFTS7 EXSR BAR$TABLE    
  X * COLLEFTS8 EXSR BAR$TABLE    
  X * COLCENTERS EXSR BAR$TABLE    
  X * COLRIGHTS EXSR BAR$TABLE    
  X * COLRIGHTS2 EXSR BAR$TABLE    
  X * MYTITELXFORM EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * SRCEXIST EXSR BAR$EXIST    
  X * NUMSTR EXSR BAR$NUM    
  X * NUMSTR EXSR BAR$NUM    
  X * LABELDEF EXSR BAR$LABEL    
  X * MYTITELX EXSR BAR$TEXT    
  X * MYTITELX EXSR BAR$TEXT    
  X * LABELUSE EXSR BAR$LABEL    
  X * MYTITELX EXSR BAR$TEXT    
  X * NUMSTR EXSR BAR$NUM    
  X * NUMSTR EXSR BAR$NUM    
  X  
C          
C *COPYRIGHT JÜRGEN REULE 2016-2023
C          
  X * LISTESRC EXSR BAR$LISTE    
  X * LISTEHTTPX EXSR BAR$LISTE    
  X  
C     SRCALL BEGSR                
C     DATETIME SUBDUR SRCDAY:*D DATETIME2            
C *     --------------------------------------
C *     Quelle anzeigen
C *     --------------------------------------
C          
C *     --------------------------------------
C *     Schrift sichern
C *     --------------------------------------
C       EVAL FONTSAVE    = FONT
C       EVAL FONTSAVEX   = FONTX
C       EVAL FONT        = ''
C       EVAL FONTX       = ''
C          
C *     --------------------------------------
C *     Sonderzeichen
C *     --------------------------------------
C       CLEAR   SRC1            
C       CLEAR   SRC2            
C       DO SRCLEN SRCNUM            
C       CAT SRCCHAR:0 SRC1            
C       ENDDO                
C       CAT X'00':0 SRC1            
C *     --------------------------------------
C *     Tabelle öffnen
C *     --------------------------------------
C       EXSR TABLESRC              
C       EXSR ROWCOLOR12              
C       MOVEL(P) SRCMBRDS SRCMBRSAVE            
C          
C       SELECT    
C *     --------------------------------------
C *     CL/CMD
C *     --------------------------------------
C     SRCTYPE WHENEQ 'CL'              
C     SRCTYPE OREQ 'CLLE'              
C     SRCTYPE OREQ 'CLP'              
C     SRCTYPE OREQ 'CLP38'              
C     SRCTYPE OREQ 'CMD'              
C     SRCTYPE OREQ 'CMD38'              
C       EXSR SRCCMD              
C          
C *     --------------------------------------
C *     DDS
C *     --------------------------------------
C     SRCTYPE WHENEQ 'PF'              
C     SRCTYPE OREQ 'PF38'              
C     SRCTYPE OREQ 'LF'              
C     SRCTYPE OREQ 'LF38'              
C     SRCTYPE OREQ 'DSPF'              
C     SRCTYPE OREQ 'DSPF38'              
C     SRCTYPE OREQ 'PRTF'              
C     SRCTYPE OREQ 'PRTF38'              
C     SRCTYPE OREQ 'ICFF'              
C     SRCTYPE OREQ 'MENUDDS'              
C       EXSR SRCDDS              
C          
C *     --------------------------------------
C *     RPG
C *     --------------------------------------
C     SRCTYPE WHENEQ 'RPGLE'              
C     SRCTYPE OREQ 'SQLRPGLE'              
C       EXSR SRCRPG              
C          
C *     --------------------------------------
C *     Java/JavaScript/Andere
C *     --------------------------------------
C       OTHER                
C       EXSR SRCTXT              
C       ENDSL                
C          
C       MOVEL(P) SRCMBRSAVE SRCMBRDS            
C *     --------------------------------------
C *     Marken aktualisiert
C *     --------------------------------------
C       EXSR LABELDATETIME              
C          
C *     --------------------------------------
C *     Tabelle schließen
C *     --------------------------------------
C       EXSR TABLEX              
C          
C *     --------------------------------------
C *     Schrift setzen
C *     --------------------------------------
C       EVAL FONT        = FONTSAVE
C       EVAL FONTX       = FONTSAVEX
C       ENDSR                
C          
  X * SRCALL EXSR BAR$SRC    
  X  
C     SRCCMD BEGSR                
C       SETOFF         73 74  
C *     --------------------------------------
C *     CL/CMD
C *     --------------------------------------
C       OPEN SOURCE       77  
C       READ SOURCE       77 77  
C     *IN77 DOWEQ *OFF              
C     SRC1:SRC2 XLATE(P) SRCDTA SRCFREE            
C       EXSR SRCCMDROW              
C       READ SOURCE       77 77  
C       ENDDO                
C       CLOSE SOURCE       77  
C       ENDSR                
C          
  X * SRCCMD EXSR BAR$SRC    
  X  
C     SRCCMDROW BEGSR                
C *     --------------------------------------
C *     Zeile ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       CLEAR   MYTITEL            
C       EXSR SRCSEQNUM1SEQ              
C          
C *     --------------------------------------
C *     Kommentar
C *     --------------------------------------
C     CMDCOMMENTX# SCAN CMDLABEL POS     77 78  
C   N78 *ZERO ADD 1 POS            
C   78   SETOFF         73 74  
C     CMDCOMMENT# SCAN CMDLABEL:POS       77 78  
C   N78 CMDCOMMENTSP# SCAN CMDLINE  :POS       77 79  
C   78   SETON         73 74  
C   79   SETON         74  
C *     --------------------------------------
C *     Kommentar
C *     --------------------------------------
C       CLEAR   POS            
C     *BLANKS COMP CMDLABEL       78  
C   N78 CMDLIB# COMP CMDLABELX       78  
C   N78 CMDLABEL# COMP CMDLABELX       78  
C   N78 CMDPROMPT# COMP CMDLABELX       78  
C     *IN78 IFEQ *OFF              
C     CMDLABEL# SCAN CMDLABEL       77 78  
C   N78 CMDPROMPT# SCAN CMDLABEL       77 78  
C   N78 CMDCOMMENT# SCAN CMDLABEL POS     77 78  
C   N78 CMDCOMMENTX# SCAN CMDLABEL       77 78  
C   78 *BLANKS COMP CMDLABELX       78  
C       ENDIF                
C *     --------------------------------------
C *     Kommentar
C *     --------------------------------------
C     *IN78 IFEQ *OFF              
C     POS OREQ 1              
C          
C       MOVEL(P) CMDLINE MYTITEL            
C       EXSR CMDLINE1              
C       ELSE                
C *     --------------------------------------
C *     Marke mit Kommentar?
C *     --------------------------------------
C     CMDPROMPT# SCAN CMDLABEL:2 POS     77 78  
C   N78 CMDCOMMENT# SCAN CMDLABEL:2 POS     77 78  
C   N78 CMDCOMMENTX# SCAN CMDLABEL:2 POS     77 78  
C   N78   EXSR SRCCMDLIB              
C     POS IFGT 1              
C       SUB 1 POS            
C     POS SUBST(P) CMDLABEL MYTITEL            
C       EXSR SRCLEFT              
C       CLEAR   MYTITEL            
C       MOVEL(P) CMDLABEL CMDLABELXX            
C     POS SUBST MYTITEL CMDLABELXX            
C       MOVE (P) CMDLABELXX MYTITEL            
C       EXSR SRCRIGHT              
C       ELSE                
C       MOVEL(P) CMDLABEL MYTITEL            
C       EXSR SRCLEFT2              
C       ENDIF                
C *     --------------------------------------
C *     Kommentar ab Befehl
C *     --------------------------------------
C     *IN73 IFEQ *ON              
C     *BLANKS ORNE CMDCMDX              
C          
C       MOVEL(P) CMDCMDLINE MYTITEL            
C       EXSR CMDCMDLINE1              
C       ELSE                
C       MOVEL(P) CMDCMD MYTITEL            
C       EXSR SRCLEFT              
C          
C *     --------------------------------------
C *     SRCFILE separat
C *     --------------------------------------
C     'SRCFILE(' SCAN CMDPARMS:2 POS     77 78  
C     POS IFGT 1              
C       SUB 1 POS            
C     POS SUBST(P) CMDPARMS MYTITEL            
C       EXSR SRCLEFT              
C       ADD 1 POS            
C       SUBST(P) CMDPARMS:POS MYTITEL            
C       EXSR SRCLEFT              
C       ELSE                
C       MOVEL(P) CMDPARMS MYTITEL            
C       EXSR SRCLEFT2              
C       ENDIF                
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Kommentar beendet?
C *     --------------------------------------
C     *IN74 COMP *ON       73  
C     *IN74 IFEQ *ON              
C     ' ' CHECKR CMDLINE POS     78  
C   78   SUBST(P) CMDLINE:POS CHAR            
C   N78   CLEAR   CHAR            
C     '+' IFNE CHAR              
C     '-' ANDNE CHAR              
C       SETOFF         73 74  
C       ENDIF                
C       ENDIF                
C       CLEAR   MYTITEL            
C       EXSR SRCCOMMENT1              
C       EXSR ROWX              
C       ENDSR                
C          
  X * SRCCMDROW EXSR BAR$SRC    
  X  
C     SRCCMDLIB BEGSR                
C *     --------------------------------------
C *     Bibliothek angegeben?
C *     --------------------------------------
C     CMDLIB# IFEQ CMDLABELX              
C     ' ' CHECKR CMDLABEL POS            
C     *BLANKS DOUEQ CHAR              
C     CMDLABEL# OREQ CHAR              
C       SUB 1 POS     78  
C   78   SUBST(P) CMDLABEL:POS CHAR            
C   N78   CLEAR   CHAR            
C       ENDDO                
C       ADD 1 POS            
C       ENDIF                
C       ENDSR                
C          
  X * SRCALL EXSR BAR$SRC    
  X  
C     SRCDDS BEGSR                
C       MOVEL(P) *ALL'*' DDSLINE            
C       CLEAR   DDSKEYWORDX2            
C       MOVEL(P) DDSLINE DDSLINEX            
C *     --------------------------------------
C *     DDS
C *     --------------------------------------
C       OPEN SOURCE       77  
C       READ SOURCE       77 77  
C     *IN77 DOWEQ *OFF              
C     SRC1:SRC2 XLATE(P) SRCDTA SRCFREE            
C       EXSR SRCDDSROW              
C       READ SOURCE       77 77  
C       ENDDO                
C       CLOSE SOURCE       77  
C       ENDSR                
C          
  X * SRCDDS EXSR BAR$SRC    
  X  
C     SRCDDSROW BEGSR                
C *     --------------------------------------
C *     Zeile ausgeben
C *     --------------------------------------
C       EXSR ROW              
C          
C       MOVEL(P) SRCSEQNUM MYTITEL            
C       EXSR SRCSEQNUM1SEQ              
C          
C       MOVEL(P) SRCFORMTYPE MYTITEL            
C       EXSR SRCFORMTYPE1              
C          
C *     --------------------------------------
C *     Trennlinie
C *     --------------------------------------
C     DDSLINE IFEQ DDSLINEX              
C       CLEAR   DDSLINE            
C       ENDIF                
C *     --------------------------------------
C *     Direktive oder Kommentar
C *     --------------------------------------
C     '/' IFEQ DDSLINETYPE              
C     '+' OREQ DDSLINETYPE              
C     '*' OREQ DDSLINETYPE              
C     *BLANKS ANDNE DDSIND1              
C          
C       MOVEL(P) DDSLINE MYTITEL            
C       EXSR DDSLINE1              
C       ELSE                
C       MOVEL(P) DDSCONDITION MYTITEL            
C       EXSR SRCCENTER              
C          
C       MOVE (P) DDSIND1 MYTITEL            
C       EXSR SRCRIGHT              
C          
C       MOVE (P) DDSIND2 MYTITEL            
C       EXSR SRCRIGHT              
C          
C       MOVE (P) DDSIND3 MYTITEL            
C       EXSR SRCRIGHT              
C          
C       MOVEL(P) DDSNAMETYPE MYTITEL            
C       EXSR SRCCENTER              
C          
C       MOVEL(P) DDSRES MYTITEL            
C       EXSR SRCCENTER              
C          
C       MOVEL(P) DDSNAME MYTITEL            
C       EXSR SRCLEFT              
C          
C       MOVEL(P) DDSREF MYTITEL            
C       EXSR SRCCENTER              
C          
C       MOVE (P) DDSLEN MYTITEL            
C       EXSR SRCRIGHT              
C          
C       MOVEL(P) DDSTYPE MYTITEL            
C       EXSR SRCCENTER              
C          
C       MOVE (P) DDSDECPOS MYTITEL            
C       EXSR SRCRIGHT              
C          
C       MOVEL(P) DDSUSAGE MYTITEL            
C       EXSR SRCCENTER              
C          
C       MOVE (P) DDSROW MYTITEL            
C       EXSR SRCRIGHT              
C          
C       MOVE (P) DDSCOL MYTITEL            
C       EXSR SRCRIGHT              
C          
C *     --------------------------------------
C *     VARLEN/EDTCDE/REFFLD/COLHDG separat
C *     --------------------------------------
C     'VARLEN' SCAN DDSKEYWORD:2 POS     77 78  
C   N78 'EDTCDE(' SCAN DDSKEYWORD:2 POS     77 78  
C   N78 'REFFLD(' SCAN DDSKEYWORD:2 POS     77 78  
C   N78 'COLHDG(' SCAN DDSKEYWORD:2 POS     77 78  
C     POS IFGT 1              
C       SUB 1 POS            
C     POS SUBST(P) DDSKEYWORD MYTITEL            
C       EXSR SRCLEFTREF              
C       ADD 1 POS            
C       SUBST(P) DDSKEYWORD:POS MYTITEL            
C       EXSR SRCLEFTREF              
C       ELSE                
C       MOVEL(P) DDSKEYWORD MYTITEL            
C       EXSR SRCLEFT2REF              
C       ENDIF                
C       ENDIF                
C       MOVEL(P) SRCCOMMENT MYTITEL            
C       EXSR SRCCOMMENT1              
C       EXSR ROWX              
C       ENDSR                
C          
  X * SRCALL EXSR BAR$SRC    
  X  
C     SRCRPG BEGSR                
C *     --------------------------------------
C *     RPG
C *     --------------------------------------
C       MOVEL(P) '*MAIN*' RPGSUBR            
C       CLEAR   RPGLIST            
C       MOVEL(P) *ALL'*' RPGLINE            
C       CLEAR   RPGRES            
C       MOVEL(P) RPGLINE RPGLINEX            
C       MOVEL(P) RPGLINEX FILLINEX            
C       MOVEL(P) RPGLINEX DEFLINEX            
C       MOVEL(P) RPGLINEX SRCLINEX            
C       MOVEL(P) SRCMBR RPGSRCMBR            
C       CLEAR   RPGSEQLINE            
C       MOVEL(P) LOWER SRCFORMTYPEXX            
C          
C *     --------------------------------------
C *     Liste der Definitionen
C *     --------------------------------------
C       EXSR SRCRPGDEFS              
C       EXSR SRCRPGDEFSX              
C          
C *     --------------------------------------
C *     Liste der Aufrufe
C *     --------------------------------------
C       EXSR SRCRPGUSESX              
C          
C *     --------------------------------------
C *     Marken löschen
C *     --------------------------------------
C       EXSR LABELCLR              
C          
C *     --------------------------------------
C *     RPG
C *     --------------------------------------
C       OPEN SOURCE       77  
C       READ SOURCE       77 77  
C          
C *     --------------------------------------
C *     Formtyp ermitteln
C *     --------------------------------------
C     SRC1:SRC2 XLATE(P) SRCDTA SRCFREE            
C     SRCFREE# COMP SRCFREE2       73  
C   N73 LOWER:UPPER XLATE(P) SRCFORMTYPE SRCFORMTYPE3            
C   73   MOVEL(P) SRCFORMTYPEXX SRCFORMTYPE3            
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C          
C *     --------------------------------------
C *     Formtyp ermitteln
C *     --------------------------------------
C     SRC1:SRC2 XLATE(P) SRCDTA SRCFREE            
C   N73 SRCFREE# COMP SRCFREE2       73  
C   N73 LOWER:UPPER XLATE(P) SRCFORMTYPE SRCFORMTYPE2            
C   73   MOVEL(P) SRCFORMTYPEXX SRCFORMTYPE2            
C          
C *     --------------------------------------
C *     Formtyp prüfen
C *     --------------------------------------
C     SRCFORMTYPE3 IFNE SRCFORMTYPE2              
C     *BLANKS IFNE SRCFORMTYPE2              
C     'HFPDIO ' CHECK SRCFORMTYPE2       77 78  
C   N78 'HFPDIO ' CHECK SRCFORMTYPE3       77 78  
C     *IN78 IFEQ *ON              
C       EXSR TABLEX              
C       EXSR TABLESPACE              
C       EXSR TABLESRCSTART              
C       ENDIF                
C       MOVEL(P) SRCFORMTYPE2 SRCFORMTYPE3            
C       ELSE                
C       MOVEL(P) SRCFORMTYPE3 SRCFORMTYPE2            
C       ENDIF                
C       ENDIF                
C       EXSR SRCRPGROW              
C       READ SOURCE       77 77  
C       ENDDO                
C       CLOSE SOURCE       77  
C       ENDSR                
C          
  X * SRCRPG EXSR BAR$SRC    
  X  
C     SRCRPGROW BEGSR                
C *     --------------------------------------
C *     Zeile ausgeben
C *     --------------------------------------
C       CLEAR   RPGTYPE            
C     *ZERO ADD SRCSEQ RPGSRCSEQ            
C       ADD 1 RPGSEQLINE            
C          
C *     --------------------------------------
C *     Programmdaten oder Quellenzeile?
C *     --------------------------------------
C     *IN73 IFEQ *ON              
C     SRCENDFREE# IFEQ SRCFREE5              
C       SETOFF         73  
C       ENDIF                
C       EXSR ROW              
C       MOVEL(P) SRCFREE MYTITEL            
C       EXSR SRCFREE1SEQ              
C       EXSR ROWX              
C       ELSE                
C *     --------------------------------------
C *     Zeile ausgeben
C *     --------------------------------------
C     'F' CASEQ SRCFORMTYPE2 SRCRPGROW1            
C     'P' CASEQ SRCFORMTYPE2 SRCRPGROW2            
C     'D' CASEQ SRCFORMTYPE2 SRCRPGROW2            
C     'C' CASEQ SRCFORMTYPE2 SRCRPGROW3            
C       CAS   SRCRPGROW4            
C       ENDCS                
C       ENDIF                
C       ENDSR                
C          
  X * SRCRPGROW CASEQ BAR$SRC    
  X  
C     SRCRPGROW1 BEGSR                
C *     --------------------------------------
C *     Datei
C *     --------------------------------------
C       EXSR ROW              
C          
C       MOVEL(P) SRCSEQNUM MYTITEL            
C       EXSR SRCSEQNUM1SEQ              
C          
C       MOVEL(P) SRCFORMTYPE MYTITEL            
C       EXSR SRCFORMTYPE1              
C          
C *     --------------------------------------
C *     Trennlinie
C *     --------------------------------------
C     FILLINE IFEQ FILLINEX              
C       CLEAR   FILLINE            
C       ENDIF                
C *     --------------------------------------
C *     Direktive oder Kommentar
C *     --------------------------------------
C     *BLANKS IFEQ SRCFORMTYPE              
C     '/' OREQ FILLINETYPE              
C     '+' OREQ FILLINETYPE              
C     '*' OREQ FILLINETYPE              
C          
C       MOVEL(P) FILLINE MYTITEL            
C       EXSR FILLINE1              
C       ELSE                
C *     --------------------------------------
C *     Datei
C *     --------------------------------------
C       MOVEL(P) FILNAME MYTITEL            
C       EXSR SRCLEFT3MBR              
C          
C       MOVEL(P) FILTYPE MYTITEL            
C       EXSR SRCCENTER              
C          
C       MOVEL(P) FILDES MYTITEL            
C       EXSR SRCCENTER              
C          
C       MOVEL(P) FILEOF MYTITEL            
C       EXSR SRCCENTER              
C          
C       MOVEL(P) FILADD MYTITEL            
C       EXSR SRCCENTER              
C          
C       MOVEL(P) FILSEQ MYTITEL            
C       EXSR SRCCENTER              
C          
C       MOVEL(P) FILEXT MYTITEL            
C       EXSR SRCCENTER              
C          
C       MOVE (P) FILRECLEN MYTITEL            
C       EXSR SRCRIGHT2              
C          
C       MOVEL(P) FILLIMIT MYTITEL            
C       EXSR SRCCENTER              
C          
C       MOVE (P) FILKEYLEN MYTITEL            
C       EXSR SRCRIGHT              
C          
C       MOVEL(P) FILADDRTYPE MYTITEL            
C       EXSR SRCCENTER              
C          
C       MOVEL(P) FILORG MYTITEL            
C       EXSR SRCCENTER              
C          
C       MOVEL(P) FILDEVICE MYTITEL            
C       EXSR SRCLEFT2              
C          
C       MOVEL(P) FILRES MYTITEL            
C       EXSR SRCCENTER              
C          
C *     --------------------------------------
C *     USROPN separat
C *     --------------------------------------
C     'USROPN' SCAN FILKEYWORD:2 POS     77 78  
C     POS IFGT 1              
C       SUB 1 POS            
C     POS SUBST(P) FILKEYWORD MYTITEL            
C       EXSR SRCLEFTREF              
C       ADD 1 POS            
C       SUBST(P) FILKEYWORD:POS MYTITEL            
C       EXSR SRCLEFT6REF              
C       ELSE                
C       MOVEL(P) FILKEYWORD MYTITEL            
C       EXSR SRCLEFT7REF              
C       ENDIF                
C       ENDIF                
C       MOVEL(P) SRCCOMMENT MYTITEL            
C       EXSR SRCCOMMENT1              
C          
C       EXSR ROWX              
C       ENDSR                
C          
  X * SRCRPGROW CASEQ BAR$SRC    
  X * SRCRPGROW CASEQ BAR$SRC    
  X  
C     SRCRPGROW2 BEGSR                
C *     --------------------------------------
C *     Definition oder Prozedur
C *     --------------------------------------
C       EXSR ROW              
C          
C       MOVEL(P) SRCSEQNUM MYTITEL            
C       EXSR SRCSEQNUM1SEQ              
C          
C       MOVEL(P) SRCFORMTYPE MYTITEL            
C       EXSR SRCFORMTYPE1              
C          
C *     --------------------------------------
C *     Trennlinie
C *     --------------------------------------
C     DEFLINE IFEQ DEFLINEX              
C       CLEAR   DEFLINE            
C       ENDIF                
C *     --------------------------------------
C *     Direktive oder Kommentar
C *     --------------------------------------
C     *BLANKS IFEQ SRCFORMTYPE              
C     '/' OREQ DEFLINETYPE              
C     '+' OREQ DEFLINETYPE              
C     '*' OREQ DEFLINETYPE              
C          
C       MOVEL(P) DEFLINE MYTITEL            
C       EXSR DEFLINE1              
C       ELSE                
C *     --------------------------------------
C *     Langer Name?
C *     --------------------------------------
C     ' ' CHECKR DEFLINE POS     78  
C   78   SUB 2 POS     78  
C   78   SUBST(P) DEFLINE:POS CHAR3            
C   N78   CLEAR   CHAR3            
C     '...' IFEQ CHAR3              
C          
C       MOVEL(P) DEFLINE MYTITEL            
C       EXSR DEFLINE1              
C       ELSE                
C *     --------------------------------------
C *     Definition oder Prozedur
C *     --------------------------------------
C       MOVEL(P) DEFNAME MYTITEL            
C       EXSR SRCLEFT8              
C          
C       MOVEL(P) DEFEXT MYTITEL            
C       EXSR SRCCENTER              
C          
C       MOVEL(P) DEFDSTYPE MYTITEL            
C       EXSR SRCCENTER              
C          
C       MOVEL(P) DEFDEF MYTITEL            
C       EXSR SRCCENTER              
C          
C     '*' IFEQ DEFRESTYPE              
C       MOVEL(P) DEFRESWORD MYTITEL            
C       EXSR SRCLEFT4              
C       ELSE                
C       MOVE (P) DEFFROM MYTITEL            
C       EXSR SRCRIGHT2              
C          
C       MOVE (P) DEFLENTO MYTITEL            
C       EXSR SRCRIGHT2              
C       ENDIF                
C       MOVEL(P) DEFTYPE MYTITEL            
C       EXSR SRCCENTER              
C          
C       MOVE (P) DEFDECPOS MYTITEL            
C       EXSR SRCRIGHT              
C          
C       MOVEL(P) DEFRES MYTITEL            
C       EXSR SRCCENTER              
C          
C *     --------------------------------------
C *     PREFIX separat
C *     --------------------------------------
C     'PREFIX(' SCAN DEFKEYWORD:2 POS     77 78  
C     POS IFGT 1              
C       SUB 1 POS            
C     POS SUBST(P) DEFKEYWORD MYTITEL            
C       EXSR SRCLEFTREF              
C       ADD 1 POS            
C       SUBST(P) DEFKEYWORD:POS MYTITEL            
C       EXSR SRCLEFT6REF              
C       ELSE                
C       MOVEL(P) DEFKEYWORD MYTITEL            
C       EXSR SRCLEFT7REF              
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       MOVEL(P) SRCCOMMENT MYTITEL            
C       EXSR SRCCOMMENT1              
C          
C       EXSR ROWX              
C       ENDSR                
C          
  X * SRCRPGROW CASEQ BAR$SRC    
  X  
C     SRCRPGROW3 BEGSR                
C *     --------------------------------------
C *     Befehl
C *     --------------------------------------
C          
C *     --------------------------------------
C *     Trennlinie
C *     --------------------------------------
C     RPGLINE IFEQ RPGLINEX              
C       CLEAR   RPGLINE            
C       ENDIF                
C *     --------------------------------------
C *     Direktive oder Kommentar
C *     --------------------------------------
C     *BLANKS IFEQ SRCFORMTYPE              
C     '/' OREQ RPGLINETYPE              
C     '+' OREQ RPGLINETYPE              
C     '*' OREQ RPGLINETYPE              
C     *BLANKS ANDNE RPGLEVEL              
C     '*' ANDNE RPGLEVEL              
C     '**' ANDNE RPGLEVEL              
C     '*' OREQ RPGLINETYPE              
C     '**' ANDEQ RPGLEVEL              
C     '***' ANDEQ RPGIND              
C       SETON         74  
C       ELSE                
C       SETOFF         74  
C       ENDIF                
C          
C     *IN74 IFEQ *OFF              
C *     --------------------------------------
C *     Aufrufe
C *     --------------------------------------
C     LOWER:UPPER XLATE(P) RPGOPCODE CHARS            
C     'TAG' IFEQ CHARS3              
C     'KLIST' OREQ CHARS5              
C     'PLIST' OREQ CHARS5              
C     'BEGSR' OREQ CHARS5              
C     'ENDSR' OREQ CHARS5              
C       MOVEL(P) RPGFACTOR1 RPGLABEL            
C       EXSR SRCRPGUSES              
C       ENDIF                
C       ENDIF                
C       EXSR ROW              
C          
C       MOVEL(P) SRCSEQNUM MYTITEL            
C       EXSR SRCSEQNUM1SEQ              
C          
C       MOVEL(P) SRCFORMTYPE MYTITEL            
C       EXSR SRCFORMTYPE1              
C          
C     *IN74 IFEQ *ON              
C       MOVEL(P) RPGLINE MYTITEL            
C       EXSR RPGLINE1              
C       ELSE                
C *     --------------------------------------
C *     Kommentar?
C *     --------------------------------------
C     '*' IFNE RPGLINETYPE              
C     '**' ORNE RPGLEVEL              
C     '*' ORNE RPGIND              
C     '**' ANDNE RPGIND              
C     '***' ANDNE RPGIND              
C          
C       MOVEL(P) RPGLEVEL MYTITEL            
C       EXSR SRCLEFT              
C          
C       MOVE (P) RPGIND MYTITEL            
C       EXSR SRCRIGHT              
C       ELSE                
C     RPGLEVEL CAT(P) RPGIND MYTITEL            
C       EXSR SRCLEFT2              
C       ENDIF                
C *     --------------------------------------
C *     Befehl
C *     --------------------------------------
C     LOWER:UPPER XLATE(P) RPGOPCODE CHARS            
C          
C       SELECT    
C *     --------------------------------------
C *     Faktor 1
C *     --------------------------------------
C     'TAG' WHENEQ CHARS3              
C       MOVEL(P) RPGFACTOR1 MYTITEL            
C       EXSR SRCLEFT7DEF              
C          
C     'KLIST' WHENEQ CHARS5              
C     'PLIST' OREQ CHARS5              
C       MOVEL(P) RPGFACTOR1 RPGLIST            
C       MOVEL(P) RPGFACTOR1 MYTITEL            
C       EXSR SRCLEFT7DEF              
C          
C     'KFLD' WHENEQ CHARS4              
C     'PARM' OREQ CHARS4              
C       MOVEL(P) RPGLIST RPGLABEL            
C       EXSR LABELLINES              
C       MOVEL(P) RPGFACTOR1 MYTITEL            
C       EXSR SRCLEFT7              
C          
C     'BEGSR' WHENEQ CHARS5              
C       MOVEL(P) RPGFACTOR1 RPGSUBR            
C       MOVEL(P) RPGFACTOR1 MYTITEL            
C       EXSR SRCLEFT7DEF              
C          
C     'ENDSR' WHENEQ CHARS5              
C       MOVEL(P) RPGSUBR RPGLABEL            
C       EXSR LABELLINES              
C       MOVEL(P) RPGFACTOR1 MYTITEL            
C       EXSR SRCLEFT7DEF              
C       CLEAR   RPGSUBR            
C     'SETLL' WHENEQ CHARS5              
C     'SETGT' OREQ CHARS5              
C     'CHAIN' OREQ CHARS5              
C     'READE' OREQ CHARS5              
C     'READPE' OREQ CHARS6              
C       MOVEL(P) RPGFACTOR1 MYTITEL            
C       EXSR SRCLEFT7USE              
C       OTHER                
C       MOVEL(P) RPGFACTOR1 MYTITEL            
C       EXSR SRCLEFT7              
C       ENDSL                
C *     --------------------------------------
C *     Kommentar ab Befehl
C *     --------------------------------------
C     '*' IFEQ RPGLINETYPE              
C     '**' ANDNE RPGLEVEL              
C     *BLANKS ANDNE RPGOPCODE              
C          
C       MOVEL(P) RPGOPCODELINE MYTITEL            
C       EXSR RPGOPCODELINE1              
C       ELSE                
C       MOVEL(P) RPGOPCODE MYTITEL            
C       EXSR RPGOPCODE1              
C          
C *     --------------------------------------
C *     Erweiterter Faktor 2 oder Kommentar
C *     --------------------------------------
C     'IF ' IFEQ CHARS3              
C     'IF(' OREQ CHARS3              
C     'FOR ' OREQ CHARS4              
C     'FOR(' OREQ CHARS4              
C     'DOU ' OREQ CHARS4              
C     'DOU(' OREQ CHARS4              
C     'DOW ' OREQ CHARS4              
C     'DOW(' OREQ CHARS4              
C     'WHEN ' OREQ CHARS5              
C     'WHEN(' OREQ CHARS5              
C     'EVAL ' OREQ CHARS5              
C     'EVAL(' OREQ CHARS5              
C     'EVALR ' OREQ CHARS6              
C     'EVALR(' OREQ CHARS6              
C     'CALLP ' OREQ CHARS6              
C     'CALLP(' OREQ CHARS6              
C     'SORTA ' OREQ CHARS6              
C     'SORTA(' OREQ CHARS6              
C     'ELSEIF ' OREQ CHARS7              
C     'ELSEIF(' OREQ CHARS7              
C     'SELECT ' OREQ CHARS7              
C     'SELECT(' OREQ CHARS7              
C     'RETURN ' OREQ CHARS7              
C     'RETURN(' OREQ CHARS7              
C     'WHEN-IS ' OREQ CHARS8              
C     'WHEN-IS(' OREQ CHARS8              
C     'WHEN-IN ' OREQ CHARS8              
C     'WHEN-IN(' OREQ CHARS8              
C     'XML-SAX ' OREQ CHARS8              
C     'XML-SAX(' OREQ CHARS8              
C     'SND-MSG ' OREQ CHARS8              
C     'SND-MSG(' OREQ CHARS8              
C     'ON-EXIT ' OREQ CHARS8              
C     'ON-EXIT(' OREQ CHARS8              
C     'ON-EXCP ' OREQ CHARS8              
C     'ON-EXCP(' OREQ CHARS8              
C     'ON-ERROR ' OREQ CHARS9              
C     'ON-ERROR(' OREQ CHARS9              
C     'XML-INTO ' OREQ CHARS9              
C     'XML-INTO(' OREQ CHARS9              
C     'FOR-EACH ' OREQ CHARS9              
C     'FOR-EACH(' OREQ CHARS9              
C     'DATA-GEN ' OREQ CHARS9              
C     'DATA-GEN(' OREQ CHARS9              
C     'DATA-INTO ' OREQ CHARS10              
C     'DATA-INTO(' OREQ CHARS10              
C     'EVAL-CORR ' OREQ CHARS10              
C     'EVAL-CORR(' OREQ CHARS10              
C     *BLANKS OREQ RPGOPCODE              
C          
C *     --------------------------------------
C *     Am Ende stehendes ( separat
C *     --------------------------------------
C     *ZERO ADD 14 POS            
C       SUBST(P) RPGFACTOR2:POS CHAR            
C     '(' IFEQ CHAR              
C          
C       SUB 1 POS            
C     POS SUBST(P) RPGFACTOR2 MYTITEL            
C       EXSR SRCLEFT4              
C          
C       MOVE (P) CHAR MYTITEL            
C       EXSR SRCRIGHT              
C          
C       MOVEL(P) RPGRESULTX MYTITEL            
C       EXSR RPGRESULTX1              
C       ELSE                
C *     --------------------------------------
C *     Faktor 2 leer?
C *     --------------------------------------
C     *BLANKS IFEQ RPGFACTOR2              
C       MOVEL(P) RPGFACTOR2 MYTITEL            
C       EXSR SRCLEFT5              
C          
C       MOVEL(P) RPGRESULTX MYTITEL            
C       EXSR RPGRESULTX1              
C       ELSE                
C       MOVEL(P) RPGFACTOR2X MYTITEL            
C       EXSR RPGFACTOR2X1              
C       ENDIF                
C       ENDIF                
C          
C       ELSE                
C *     --------------------------------------
C *     Faktor 2
C *     --------------------------------------
C     'EXSR' IFEQ CHARS4              
C     'GOTO' OREQ CHARS4              
C       MOVEL(P) RPGFACTOR2 MYTITEL            
C       EXSR SRCLEFT5USE              
C       ELSE                
C *     --------------------------------------
C *     Einzel stehendes :xxx separat
C *     --------------------------------------
C     *ZERO ADD 12 POS            
C       SUBST(P) RPGFACTOR2:POS CHAR            
C     ':' IFNE CHAR              
C     ' :' SCAN RPGFACTOR2 POS     77 78  
C       ENDIF                
C     POS IFGE 1              
C       SUB 1 POS            
C     POS SUBST(P) RPGFACTOR2 MYTITEL            
C       EXSR SRCLEFT4              
C       ADD 1 POS            
C       SUBST(P) RPGFACTOR2:POS MYTITEL            
C       EXSR SRCLEFT              
C       ELSE                
C       MOVEL(P) RPGFACTOR2 MYTITEL            
C       EXSR SRCLEFT5              
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Ergebnis und weitere Felder
C *     --------------------------------------
C     'CAS' IFEQ CHARS3              
C     'CAB' OREQ CHARS3              
C     'CALL ' OREQ CHARS5              
C     'CALL(' OREQ CHARS5              
C     'CALLB ' OREQ CHARS6              
C     'CALLB(' OREQ CHARS6              
C       CLEAR   RPGLIST            
C       MOVEL(P) RPGRESULT MYTITEL            
C       EXSR SRCLEFTUSE              
C       ELSE                
C       MOVEL(P) RPGRESULT MYTITEL            
C       EXSR SRCLEFT              
C       ENDIF                
C *     --------------------------------------
C *     Nicht benutzte Indikatoren markieren
C *     --------------------------------------
C       EXSR RPGIND123              
C          
C *     --------------------------------------
C *     Weitere Felder
C *     --------------------------------------
C       MOVE (P) RPGLEN MYTITEL            
C       EXSR SRCRIGHT              
C          
C       MOVE (P) RPGDECPOS MYTITEL            
C       EXSR SRCRIGHT              
C          
C       MOVEL(P) RPGIND1 MYTITEL            
C       EXSR RPGINDN1              
C          
C       MOVEL(P) RPGIND2 MYTITEL            
C       EXSR RPGINDN1              
C          
C       MOVEL(P) RPGIND3 MYTITEL            
C       EXSR RPGINDN1              
C          
C       MOVEL(P) RPGRES MYTITEL            
C       EXSR SRCLEFT              
C       ENDIF                
C       ENDIF                
C       ENDIF                
C       MOVEL(P) SRCCOMMENT MYTITEL            
C       EXSR SRCCOMMENT1              
C          
C       EXSR ROWX              
C       ENDSR                
C          
  X * SRCRPGROW CAS BAR$SRC    
  X  
C     SRCRPGROW4 BEGSR                
C *     --------------------------------------
C *     Andere
C *     --------------------------------------
C       EXSR ROW              
C          
C *     --------------------------------------
C *     Trennlinie
C *     --------------------------------------
C     SRCLINE IFEQ SRCLINEX              
C       CLEAR   SRCLINE            
C       ENDIF                
C          
C       MOVEL(P) SRCSEQNUM MYTITEL            
C       EXSR SRCSEQNUM1SEQ              
C          
C       MOVEL(P) SRCFORMTYPE MYTITEL            
C       EXSR SRCFORMTYPE1              
C          
C       MOVEL(P) SRCLINE MYTITEL            
C       EXSR SRCLINE1              
C          
C       MOVEL(P) SRCCOMMENT MYTITEL            
C       EXSR SRCCOMMENT1              
C          
C       EXSR ROWX              
C       ENDSR                
C          
  X * SRCRPG EXSR BAR$SRC    
  X  
C     SRCRPGDEFS BEGSR                
C       SETON         72  
C *     --------------------------------------
C *     Liste der Definitionen
C *     --------------------------------------
C **     EXSR TABLESRCSTART              
C       OPEN LABELL3       77  
C     RPGSRCMBR SETLL LABELL3       77  
C   N77 RPGSRCMBR READE LABELL3       77 77  
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       CLEAR   MYTITEL            
C       EXSR SRCSEQNUM1              
C       MOVEL(P) 'X' MYTITEL            
C       EXSR SRCFORMTYPE1              
C       MOVEL(P) '*' MYTITEL            
C       EXSR SRCLEFT2              
C          
C       MOVEL(P) FAHINWEIS COLOR7            
C       EXSR TEXTCOLOR              
C          
C       MOVEL(P) LALABEL MYTITEL            
C       EXSR SRCLEFT7DEFS              
C          
C       MOVEL(P) LAOPCODE MYTITEL            
C       EXSR SRCLEFT4              
C          
C       MOVEL(P) LASRCMBR MYTITEL            
C       EXSR SRCLEFT5              
C          
C     *ZERO ADD LALINES NUM            
C       EXSR NUMSTR              
C       MOVEL(P) STR MYTITEL            
C       EXSR SRCLEFT              
C          
C *     --------------------------------------
C *     Weitere Felder
C *     --------------------------------------
C       CLEAR   MYTITEL            
C       EXSR SRCRIGHT              
C       CLEAR   MYTITEL            
C       EXSR SRCRIGHT              
C       CLEAR   MYTITEL            
C       EXSR RPGINDN1              
C       CLEAR   MYTITEL            
C       EXSR RPGINDN1              
C       CLEAR   MYTITEL            
C       EXSR RPGINDN1              
C       CLEAR   MYTITEL            
C       EXSR SRCLEFT              
C       CLEAR   MYTITEL            
C       EXSR SRCCOMMENT1              
C       SETOFF         72  
C       EXSR ROWX              
C     RPGSRCMBR READE LABELL3       77 77  
C       ENDDO                
C     *IN72 IFEQ *OFF              
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       CLEAR   MYTITEL            
C       EXSR SRCSEQNUM1              
C       MOVEL(P) 'X' MYTITEL            
C       EXSR SRCFORMTYPE1              
C       CLEAR   MYTITEL            
C       EXSR SRCLINE1              
C       CLEAR   MYTITEL            
C       EXSR SRCCOMMENT1              
C       EXSR ROWX              
C       SETOFF         77  
C       ENDIF                
C **     EXSR TABLEX              
C       ENDSR                
C          
  X * SRCRPG EXSR BAR$SRC    
  X  
C     SRCRPGDEFSX BEGSR                
C       SETON         72  
C *     --------------------------------------
C *     Liste der Definitionen
C *     --------------------------------------
C **     EXSR TABLESRCSTART              
C       OPEN LABELL4       77  
C     RPGSRCMBR SETLL LABELL4       77  
C   N77 RPGSRCMBR READE LABELL4       77 77  
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       CLEAR   MYTITEL            
C       EXSR SRCSEQNUM1              
C       MOVEL(P) 'X' MYTITEL            
C       EXSR SRCFORMTYPE1              
C       MOVEL(P) '*' MYTITEL            
C       EXSR SRCLEFT2              
C          
C       MOVEL(P) FAHINWEIS COLOR7            
C       EXSR TEXTCOLOR              
C          
C       MOVEL(P) LALABEL MYTITEL            
C       EXSR SRCLEFT7DEFS              
C          
C       MOVEL(P) LAOPCODE MYTITEL            
C       EXSR SRCLEFT4              
C          
C       MOVEL(P) LASRCMBR MYTITEL            
C       EXSR SRCLEFT5              
C          
C     *ZERO ADD LALINES NUM            
C       EXSR NUMSTR              
C       MOVEL(P) STR MYTITEL            
C       EXSR SRCLEFT              
C          
C *     --------------------------------------
C *     Weitere Felder
C *     --------------------------------------
C       CLEAR   MYTITEL            
C       EXSR SRCRIGHT              
C       CLEAR   MYTITEL            
C       EXSR SRCRIGHT              
C       CLEAR   MYTITEL            
C       EXSR RPGINDN1              
C       CLEAR   MYTITEL            
C       EXSR RPGINDN1              
C       CLEAR   MYTITEL            
C       EXSR RPGINDN1              
C       CLEAR   MYTITEL            
C       EXSR SRCLEFT              
C       CLEAR   MYTITEL            
C       EXSR SRCCOMMENT1              
C       SETOFF         72  
C       EXSR ROWX              
C     RPGSRCMBR READE LABELL4       77 77  
C       ENDDO                
C     *IN72 IFEQ *OFF              
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       CLEAR   MYTITEL            
C       EXSR SRCSEQNUM1              
C       MOVEL(P) 'X' MYTITEL            
C       EXSR SRCFORMTYPE1              
C       CLEAR   MYTITEL            
C       EXSR SRCLINE1              
C       CLEAR   MYTITEL            
C       EXSR SRCCOMMENT1              
C       EXSR ROWX              
C       SETOFF         77  
C       ENDIF                
C **     EXSR TABLEX              
C       ENDSR                
C          
  X * SRCRPGROW3 EXSR BAR$SRC    
  X  
C     SRCRPGUSES BEGSR                
C       SETON         72  
C     *BLANKS IFNE RPGLABEL              
C       MOVEL(P) RPGSRCMBR MYSRCMBR            
C       EXSR SRCMBRCOMPSR1              
C *     --------------------------------------
C *     Liste der Aufrufe
C *     --------------------------------------
C     ROWS IFGE RPGROWS              
C       EXSR TABLEX              
C       EXSR TABLESPACE              
C       EXSR TABLESRCSTART              
C       ENDIF                
C **     EXSR TABLESRCSTART              
C       OPEN LABELL5       77  
C     LAKEY5SET SETLL LABELL5       77  
C   N77 LAKEY5 READE LABELL5       77 77  
C   N77   EXSR SRCMBRCOMPSR2              
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       CLEAR   MYTITEL            
C       EXSR SRCSEQNUM1              
C       MOVEL(P) 'X' MYTITEL            
C       EXSR SRCFORMTYPE1              
C       MOVEL(P) '*' MYTITEL            
C       EXSR SRCLEFT2              
C          
C       MOVEL(P) FAHINWEIS COLOR7            
C       EXSR TEXTCOLOR              
C          
C       MOVEL(P) LASUBR MYTITEL            
C       EXSR SRCLEFT7USES              
C          
C       MOVEL(P) LAOPCODE MYTITEL            
C       EXSR SRCLEFT4              
C          
C       MOVEL(P) LASRCMBR MYTITEL            
C       EXSR SRCLEFT5              
C          
C       CLEAR   MYTITEL            
C       EXSR SRCLEFT              
C          
C *     --------------------------------------
C *     Weitere Felder
C *     --------------------------------------
C       CLEAR   MYTITEL            
C       EXSR SRCRIGHT              
C       CLEAR   MYTITEL            
C       EXSR SRCRIGHT              
C       CLEAR   MYTITEL            
C       EXSR RPGINDN1              
C       CLEAR   MYTITEL            
C       EXSR RPGINDN1              
C       CLEAR   MYTITEL            
C       EXSR RPGINDN1              
C       CLEAR   MYTITEL            
C       EXSR SRCLEFT              
C       CLEAR   MYTITEL            
C       EXSR SRCCOMMENT1              
C       SETOFF         72  
C       EXSR ROWX              
C     LAKEY5 READE LABELL5       77 77  
C   N77   EXSR SRCMBRCOMPSR2              
C       ENDDO                
C     *IN72 IFEQ *OFF              
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       CLEAR   MYTITEL            
C       EXSR SRCSEQNUM1              
C       MOVEL(P) 'X' MYTITEL            
C       EXSR SRCFORMTYPE1              
C       CLEAR   MYTITEL            
C       MOVEL(P) SRCLINEX MYTITEL            
C       CLEAR   MYTITEL            
C       EXSR SRCLINE1              
C       CLEAR   MYTITEL            
C       EXSR SRCCOMMENT1              
C       EXSR ROWX              
C       ENDIF                
C **     EXSR TABLEX              
C       ENDIF                
C       ENDSR                
C          
  X * SRCRPGUSES SETLL BAR$SRC    
  X  
C     LAKEY5SET KLIST                
C       KFLD   RPGLABEL            
C       KFLD   MYSRCMBR            
C          
  X * SRCRPGUSES READE BAR$SRC    
  X * SRCRPGUSES READE BAR$SRC    
  X  
C     LAKEY5 KLIST                
C       KFLD   RPGLABEL            
C          
  X * SRCRPG EXSR BAR$SRC    
  X  
C     SRCRPGUSESX BEGSR                
C       SETON         72  
C *     --------------------------------------
C *     Liste der Aufrufe
C *     --------------------------------------
C     ROWS IFGE RPGROWS              
C       EXSR TABLEX              
C       EXSR TABLESPACE              
C       EXSR TABLESRCSTART              
C       ENDIF                
C **     EXSR TABLESRCSTART              
C       OPEN LABELL6       77  
C     RPGSRCMBR SETLL LABELL6       77  
C   N77 RPGSRCMBR READE LABELL6       77 77  
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C     *IN77 DOWEQ *OFF              
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C       MOVE LABELDS LABELSAVE            
C       MOVEL(P) RPGSRCMBR MYSRCMBR            
C       EXSR SRCMBRCOMPSR1              
C       OPEN LABELL2       77  
C     LAKEY2LABSET SETLL LABELL2       77  
C   N77 LAKEY2LAB READE LABELL2       77 77  
C   N77   EXSR SRCMBRCOMPSR2              
C     *IN77 IFEQ *OFF              
C     RPGSRCMBR ANDNE LASRCMBR              
C       MOVEL(P) LASRCMBR MYSRCMBR            
C       MOVE LABELSAVE LABELDS            
C          
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       CLEAR   MYTITEL            
C       EXSR SRCSEQNUM1              
C       MOVEL(P) 'X' MYTITEL            
C       EXSR SRCFORMTYPE1              
C       MOVEL(P) '*' MYTITEL            
C       EXSR SRCLEFT2              
C          
C       MOVEL(P) FAHINWEIS COLOR7            
C       EXSR TEXTCOLOR              
C          
C       MOVEL(P) LALABEL MYTITEL            
C       EXSR SRCLEFT7USES              
C          
C       MOVEL(P) LAOPCODE MYTITEL            
C       EXSR SRCLEFT4              
C          
C       MOVEL(P) MYSRCMBR MYTITEL            
C       EXSR SRCLEFT5              
C          
C       CLEAR   MYTITEL            
C       EXSR SRCLEFT              
C          
C *     --------------------------------------
C *     Weitere Felder
C *     --------------------------------------
C       CLEAR   MYTITEL            
C       EXSR SRCRIGHT              
C       CLEAR   MYTITEL            
C       EXSR SRCRIGHT              
C       CLEAR   MYTITEL            
C       EXSR RPGINDN1              
C       CLEAR   MYTITEL            
C       EXSR RPGINDN1              
C       CLEAR   MYTITEL            
C       EXSR RPGINDN1              
C       CLEAR   MYTITEL            
C       EXSR SRCLEFT              
C       CLEAR   MYTITEL            
C       EXSR SRCCOMMENT1              
C       SETOFF         72  
C       EXSR ROWX              
C       ENDIF                
C     RPGSRCMBR READE LABELL6       77 77  
C       ENDDO                
C     *IN72 IFEQ *OFF              
C *     --------------------------------------
C *     Inhalt ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       CLEAR   MYTITEL            
C       EXSR SRCSEQNUM1              
C       MOVEL(P) 'X' MYTITEL            
C       EXSR SRCFORMTYPE1              
C       CLEAR   MYTITEL            
C       EXSR SRCLINE1              
C       CLEAR   MYTITEL            
C       EXSR SRCCOMMENT1              
C       EXSR ROWX              
C       ENDIF                
C **     EXSR TABLEX              
C       ENDSR                
C          
  X * SRCRPGUSESX SETLL BAR$SRC    
  X  
C     LAKEY2LABSET KLIST                
C       KFLD   LALABEL            
C       KFLD   MYSRCMBR            
C          
  X * SRCRPGUSESX READE BAR$SRC    
  X  
C     LAKEY2LAB KLIST                
C       KFLD   LALABEL            
C          
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X * LINKSRCUSE EXSR BAR$SRC    
  X  
C     SRCMBRCOMPSR1 BEGSR                
C       MOVEL(P) MYSRCMBR SRCMBRCOMP            
C *     --------------------------------------
C *     Gruppe der Quelle ermitteln
C *     --------------------------------------
C     'BAR' IFEQ SRCMBRCOMP              
C       MOVEL(P) SRCMBRCOMP MYSRCMBR            
C       ENDIF                
C       ENDSR                
C          
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X * LINKSRCUSE EXSR BAR$SRC    
  X  
C     SRCMBRCOMPSR2 BEGSR                
C       MOVEL(P) LASRCMBR SRCMBRCOMP2            
C *     --------------------------------------
C *     Gruppe der Quelle prüfen
C *     --------------------------------------
C     'BAR' IFEQ SRCMBRCOMP              
C     SRCMBRCOMP2 COMP SRCMBRCOMP       77 77  
C       ELSE                
C     MYSRCMBR COMP LASRCMBR       77 77  
C       ENDIF                
C       ENDSR                
C          
  X * SRCALL EXSR BAR$SRC    
  X  
C     SRCTXT BEGSR                
C       MOVEL(P) *ALL'*' SRCFREE            
C       MOVEL(P) '#' SRCFREE2            
C       CLEAR   SRCLINEX2            
C       CLEAR   SRCCOMMENT            
C       MOVEL(P) SRCFREE SRCFREEX            
C *     --------------------------------------
C *     Andere
C *     --------------------------------------
C       OPEN SOURCE       77  
C       READ SOURCE       77 77  
C     *IN77 DOWEQ *OFF              
C     SRC1:SRC2 XLATE(P) SRCDTA SRCFREE            
C       EXSR SRCTXTROW              
C       READ SOURCE       77 77  
C       ENDDO                
C       CLOSE SOURCE       77  
C       ENDSR                
C          
  X * SRCTXT EXSR BAR$SRC    
  X  
C     SRCTXTROW BEGSR                
C *     --------------------------------------
C *     Zeile ausgeben
C *     --------------------------------------
C       EXSR ROW              
C       CLEAR   MYTITEL            
C       EXSR SRCSEQNUM1SEQ              
C          
C *     --------------------------------------
C *     Trennlinie
C *     --------------------------------------
C     SRCFREE IFEQ SRCFREEX              
C       CLEAR   SRCFREE            
C       ENDIF                
C *     --------------------------------------
C *     Direktive oder Kommentar
C *     --------------------------------------
C     '#' IFEQ SRCFREE2              
C     '#!' OREQ SRCFREE2              
C     '##' OREQ SRCFREE2              
C     *BLANKS OREQ SRCFREE2              
C          
C       MOVEL(P) SRCFREE2 MYTITEL            
C       EXSR SRCFREE21              
C          
C       SUBST(P) SRCFREE:3 MYTITEL            
C       EXSR SRCFREE31              
C       ELSE                
C       MOVEL(P) SRCFREE MYTITEL            
C       EXSR SRCFREE1              
C       ENDIF                
C *     --------------------------------------
C *     Zeile ausgeben
C *     --------------------------------------
C       CLEAR   MYTITEL            
C       EXSR SRCCOMMENT1              
C       EXSR ROWX              
C       ENDSR                
C          
  X * SRCCMDROW EXSR BAR$SRC    
  X  
C     CMDLINE1 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR COLCMD              
C       ENDSR                
C          
  X * SRCCMDROW EXSR BAR$SRC    
  X  
C     CMDCMDLINE1 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR COLCMD2              
C       ENDSR                
C          
  X * SRCDDSROW EXSR BAR$SRC    
  X  
C     DDSLINE1 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR COLDDS              
C       ENDSR                
C          
  X * SRCRPGROW1 EXSR BAR$SRC    
  X  
C     FILLINE1 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINKCOPY              
C       EXSR COLFIL              
C       ENDSR                
C          
  X * SRCRPGROW2 EXSR BAR$SRC    
  X * SRCRPGROW2 EXSR BAR$SRC    
  X  
C     DEFLINE1 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINKCOPY              
C       EXSR COLDEF              
C       ENDSR                
C          
  X * SRCRPGROW3 EXSR BAR$SRC    
  X  
C     RPGLINE1 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINKCOPY              
C       EXSR COLRPG              
C       ENDSR                
C          
  X * SRCRPGROW3 EXSR BAR$SRC    
  X  
C     RPGOPCODELINE1 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR COLRPG2              
C       ENDSR                
C          
  X * SRCRPGROW3 EXSR BAR$SRC    
  X  
C     RPGOPCODE1 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR LINKSRCADDB              
C       EXSR COLLEFTS4              
C       ENDSR                
C          
  X * SRCRPGROW3 EXSR BAR$SRC    
  X  
C     RPGFACTOR2X1 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR COLRPGX              
C       ENDSR                
C          
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X  
C     RPGRESULTX1 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR COLRPGX2              
C       ENDSR                
C          
  X * SRCRPGROW3 EXSR BAR$SRC    
  X  
C     RPGIND123 BEGSR                
C *     --------------------------------------
C *     Nicht benutzte Indikatoren markieren
C *     --------------------------------------
C     *BLANKS COMP RPGIND1       77  
C     *BLANKS COMP RPGIND2       78  
C     *BLANKS COMP RPGIND3       79  
C     *IN77 IFEQ *OFF              
C     *IN78 OREQ *OFF              
C     *IN79 OREQ *OFF              
C   77   MOVEL(P) RPGINDNN RPGIND1            
C   78   MOVEL(P) RPGINDNN RPGIND2            
C   79   MOVEL(P) RPGINDNN RPGIND3            
C       ENDIF                
C       ENDSR                
C          
  X * SRCTXTROW EXSR BAR$SRC    
  X  
C     SRCFREE1 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR COLFREE              
C       ENDSR                
C          
  X * SRCTXTROW EXSR BAR$SRC    
  X  
C     SRCFREE21 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR COLFREE2              
C       ENDSR                
C          
  X * SRCTXTROW EXSR BAR$SRC    
  X  
C     SRCFREE31 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR COLFREE3              
C       ENDSR                
C          
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X  
C     RPGINDN1 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINKINDN              
C       EXSR COLINDN              
C       ENDSR                
C          
  X * SRCRPGROW EXSR BAR$SRC    
  X  
C     SRCFREE1SEQ BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR LINKSRCSEQ              
C       EXSR COLFREE              
C       ENDSR                
C          
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X  
C     SRCSEQNUM1 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR COLSEQNUM              
C       ENDSR                
C          
  X * SRCCMDROW EXSR BAR$SRC    
  X * SRCDDSROW EXSR BAR$SRC    
  X * SRCRPGROW1 EXSR BAR$SRC    
  X * SRCRPGROW2 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGROW4 EXSR BAR$SRC    
  X * SRCTXTROW EXSR BAR$SRC    
  X  
C     SRCSEQNUM1SEQ BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR LINKSRCSEQ              
C       EXSR COLSEQNUM              
C       ENDSR                
C          
  X * SRCDDSROW EXSR BAR$SRC    
  X * SRCRPGROW1 EXSR BAR$SRC    
  X * SRCRPGROW2 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGROW4 EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X  
C     SRCFORMTYPE1 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR COLFORMTYPE              
C       ENDSR                
C          
  X * SRCRPGROW4 EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X  
C     SRCLINE1 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINKCOPY              
C       EXSR COLLINE              
C       ENDSR                
C          
  X * SRCCMDROW EXSR BAR$SRC    
  X * SRCDDSROW EXSR BAR$SRC    
  X * SRCRPGROW1 EXSR BAR$SRC    
  X * SRCRPGROW2 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGROW4 EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X * SRCTXTROW EXSR BAR$SRC    
  X  
C     SRCCOMMENT1 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR LINKSRCCOMMENT              
C       EXSR COLCOMMENT              
C       ENDSR                
C          
  X * SRCCMDROW EXSR BAR$SRC    
  X * SRCCMDROW EXSR BAR$SRC    
  X * SRCCMDROW EXSR BAR$SRC    
  X * SRCCMDROW EXSR BAR$SRC    
  X * SRCDDSROW EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X  
C     SRCLEFT BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR COLLEFTS              
C       ENDSR                
C          
  X * SRCDDSROW EXSR BAR$SRC    
  X * SRCDDSROW EXSR BAR$SRC    
  X * SRCRPGROW1 EXSR BAR$SRC    
  X * SRCRPGROW2 EXSR BAR$SRC    
  X  
C     SRCLEFTREF BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINKREF              
C       EXSR COLLEFTS              
C       ENDSR                
C          
  X * SRCRPGROW3 EXSR BAR$SRC    
  X  
C     SRCLEFTUSE BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINKUSE              
C       EXSR COLLEFTS              
C       ENDSR                
C          
  X * SRCCMDROW EXSR BAR$SRC    
  X * SRCCMDROW EXSR BAR$SRC    
  X * SRCRPGROW1 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X  
C     SRCLEFT2 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR COLLEFTS2              
C       ENDSR                
C          
  X * SRCDDSROW EXSR BAR$SRC    
  X  
C     SRCLEFT2REF BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINKREF              
C       EXSR COLLEFTS2              
C       ENDSR                
C          
  X * SRCRPGROW1 EXSR BAR$SRC    
  X  
C     SRCLEFT3MBR BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINKMBR              
C       EXSR COLLEFTS3              
C       ENDSR                
C          
  X * SRCRPGROW2 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X  
C     SRCLEFT4 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR COLLEFTS4              
C       ENDSR                
C          
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X  
C     SRCLEFT5 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR COLLEFTS5              
C       ENDSR                
C          
  X * SRCRPGROW3 EXSR BAR$SRC    
  X  
C     SRCLEFT5USE BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINKUSE              
C       EXSR COLLEFTS5              
C       ENDSR                
C          
C     SRCLEFT6 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR COLLEFTS6              
C       ENDSR                
C          
  X * SRCRPGROW1 EXSR BAR$SRC    
  X * SRCRPGROW2 EXSR BAR$SRC    
  X  
C     SRCLEFT6REF BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINKREF              
C       EXSR COLLEFTS6              
C       ENDSR                
C          
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X  
C     SRCLEFT7 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR COLLEFTS7              
C       ENDSR                
C          
  X * SRCRPGROW1 EXSR BAR$SRC    
  X * SRCRPGROW2 EXSR BAR$SRC    
  X  
C     SRCLEFT7REF BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINKREF              
C       EXSR COLLEFTS7              
C       ENDSR                
C          
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X  
C     SRCLEFT7DEF BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINKDEF              
C       EXSR COLLEFTS7              
C       ENDSR                
C          
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X  
C     SRCLEFT7DEFS BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINKDEFS              
C       EXSR COLLEFTS7              
C       ENDSR                
C          
  X * SRCRPGROW3 EXSR BAR$SRC    
  X  
C     SRCLEFT7USE BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINKUSE              
C       EXSR COLLEFTS7              
C       ENDSR                
C          
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X  
C     SRCLEFT7USES BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINKUSES              
C       EXSR COLLEFTS7              
C       ENDSR                
C          
  X * SRCRPGROW2 EXSR BAR$SRC    
  X  
C     SRCLEFT8 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR COLLEFTS8              
C       ENDSR                
C          
  X * SRCDDSROW EXSR BAR$SRC    
  X * SRCDDSROW EXSR BAR$SRC    
  X * SRCDDSROW EXSR BAR$SRC    
  X * SRCDDSROW EXSR BAR$SRC    
  X * SRCDDSROW EXSR BAR$SRC    
  X * SRCDDSROW EXSR BAR$SRC    
  X * SRCRPGROW1 EXSR BAR$SRC    
  X * SRCRPGROW1 EXSR BAR$SRC    
  X * SRCRPGROW1 EXSR BAR$SRC    
  X * SRCRPGROW1 EXSR BAR$SRC    
  X * SRCRPGROW1 EXSR BAR$SRC    
  X * SRCRPGROW1 EXSR BAR$SRC    
  X * SRCRPGROW1 EXSR BAR$SRC    
  X * SRCRPGROW1 EXSR BAR$SRC    
  X * SRCRPGROW1 EXSR BAR$SRC    
  X * SRCRPGROW1 EXSR BAR$SRC    
  X * SRCRPGROW2 EXSR BAR$SRC    
  X * SRCRPGROW2 EXSR BAR$SRC    
  X * SRCRPGROW2 EXSR BAR$SRC    
  X * SRCRPGROW2 EXSR BAR$SRC    
  X * SRCRPGROW2 EXSR BAR$SRC    
  X  
C     SRCCENTER BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINK              
C       EXSR COLCENTERS              
C       ENDSR                
C          
  X * SRCCMDROW EXSR BAR$SRC    
  X * SRCDDSROW EXSR BAR$SRC    
  X * SRCDDSROW EXSR BAR$SRC    
  X * SRCDDSROW EXSR BAR$SRC    
  X * SRCDDSROW EXSR BAR$SRC    
  X * SRCDDSROW EXSR BAR$SRC    
  X * SRCDDSROW EXSR BAR$SRC    
  X * SRCDDSROW EXSR BAR$SRC    
  X * SRCRPGROW1 EXSR BAR$SRC    
  X * SRCRPGROW2 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGROW3 EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFS EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGDEFSX EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSES EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X * SRCRPGUSESX EXSR BAR$SRC    
  X  
C     SRCRIGHT BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINKRIGHT              
C       EXSR COLRIGHTS              
C       ENDSR                
C          
  X * SRCRPGROW1 EXSR BAR$SRC    
  X * SRCRPGROW2 EXSR BAR$SRC    
  X * SRCRPGROW2 EXSR BAR$SRC    
  X  
C     SRCRIGHT2 BEGSR                
C *     --------------------------------------
C *     Zelle ausgeben
C *     --------------------------------------
C       EXSR SRCLINKRIGHT              
C       EXSR COLRIGHTS2              
C       ENDSR                
C          
  X * CMDLINE1 EXSR BAR$SRC    
  X * CMDCMDLINE1 EXSR BAR$SRC    
  X * DDSLINE1 EXSR BAR$SRC    
  X * RPGOPCODELINE1 EXSR BAR$SRC    
  X * RPGOPCODE1 EXSR BAR$SRC    
  X * RPGFACTOR2X1 EXSR BAR$SRC    
  X * RPGRESULTX1 EXSR BAR$SRC    
  X * SRCFREE1 EXSR BAR$SRC    
  X * SRCFREE21 EXSR BAR$SRC    
  X * SRCFREE31 EXSR BAR$SRC    
  X * SRCFREE1SEQ EXSR BAR$SRC    
  X * SRCSEQNUM1 EXSR BAR$SRC    
  X * SRCSEQNUM1SEQ EXSR BAR$SRC    
  X * SRCFORMTYPE1 EXSR BAR$SRC    
  X * SRCCOMMENT1 EXSR BAR$SRC    
  X * SRCLEFT EXSR BAR$SRC    
  X * SRCLEFT2 EXSR BAR$SRC    
  X * SRCLEFT4 EXSR BAR$SRC    
  X * SRCLEFT5 EXSR BAR$SRC    
  X * SRCLEFT6 EXSR BAR$SRC    
  X * SRCLEFT7 EXSR BAR$SRC    
  X * SRCLEFT8 EXSR BAR$SRC    
  X * SRCCENTER EXSR BAR$SRC    
  X  
C     SRCLINK BEGSR                
C *     --------------------------------------
C *     Text für Zelle
C *     --------------------------------------
C       EXSR SRCLINKINT              
C       EXSR LINKSRCADDB              
C       ENDSR                
C          
  X * SRCLEFT7DEF EXSR BAR$SRC    
  X  
C     SRCLINKDEF BEGSR                
C       MOVEL(P) MYTITEL RPGLABEL            
C *     --------------------------------------
C *     Text für Zelle
C *     --------------------------------------
C       EXSR SRCLINKINT              
C       EXSR LINKSRCDEF              
C       EXSR LINKSRCADDB              
C       ENDSR                
C          
  X * SRCLEFT7DEFS EXSR BAR$SRC    
  X  
C     SRCLINKDEFS BEGSR                
C *     --------------------------------------
C *     Text für Zelle
C *     --------------------------------------
C       EXSR SRCLINKINT              
C       EXSR LINKSRCDEFS              
C       EXSR LINKSRCADDB              
C       ENDSR                
C          
  X * SRCLEFTUSE EXSR BAR$SRC    
  X * SRCLEFT5USE EXSR BAR$SRC    
  X * SRCLEFT7USE EXSR BAR$SRC    
  X  
C     SRCLINKUSE BEGSR                
C       MOVEL(P) MYTITEL RPGLABEL            
C *     --------------------------------------
C *     Text für Zelle
C *     --------------------------------------
C       EXSR SRCLINKINT              
C       EXSR LINKSRCUSE              
C       EXSR LINKSRCADDB              
C       ENDSR                
C          
  X * SRCLEFT7USES EXSR BAR$SRC    
  X  
C     SRCLINKUSES BEGSR                
C *     --------------------------------------
C *     Text für Zelle
C *     --------------------------------------
C       EXSR SRCLINKINT              
C       EXSR LINKSRCUSES              
C       EXSR LINKSRCADDB              
C       ENDSR                
C          
  X * RPGINDN1 EXSR BAR$SRC    
  X  
C     SRCLINKINDN BEGSR                
C *     --------------------------------------
C *     Ergebnis-Indikator RPG
C *     --------------------------------------
C       EXSR SRCLINKINT2              
C     LINK IFEQ RPGINDNN              
C       MOVEL(P) RPGINDNNX LINK            
C       ENDIF                
C       EXSR LINKSRCCOLOR              
C       EXSR LINKSRCADDB              
C       ENDSR                
C          
  X * SRCRIGHT EXSR BAR$SRC    
  X * SRCRIGHT2 EXSR BAR$SRC    
  X  
C     SRCLINKRIGHT BEGSR                
C     *BLANKS IFNE MYTITEL              
C *     --------------------------------------
C *     Ende-Zeichen anhängen
C *     --------------------------------------
C       SUBST(P) MYTITEL:2 MYTITEL            
C       MOVE '*' MYTITEL            
C          
C *     --------------------------------------
C *     Text nach links schieben
C *     --------------------------------------
C     ' ' CHECK MYTITEL SRCPOS     77  
C   77   SUBST(P) MYTITEL:SRCPOS MYTITEL            
C          
C *     --------------------------------------
C *     Text für Zelle
C *     --------------------------------------
C       EXSR SRCLINKINT2              
C          
C *     --------------------------------------
C *     Ende-Zeichen entfernen
C *     --------------------------------------
C     ' ' CHECKR LINK SRCPOS     77  
C   77   SUB 1 SRCPOS     77  
C   77 SRCPOS SUBST(P) LINK LINK            
C   N77   CLEAR   LINK            
C       ELSE                
C       CLEAR   LINK            
C       ENDIF                
C *     --------------------------------------
C *     Text in Farbe
C *     --------------------------------------
C       EXSR LINKSRCCOLOR              
C       EXSR LINKSRCADDB              
C       ENDSR                
C          
  X * SRCLEFT3MBR EXSR BAR$SRC    
  X  
C     SRCLINKMBR BEGSR                
C       MOVEL(P) MYTITEL SRCMBR            
C *     --------------------------------------
C *     Zeile mit Verweis auf Quelle
C *     --------------------------------------
C       EXSR SRCLINKINT              
C       EXSR LINKSRC3              
C       EXSR LINKSRCADDB              
C       ENDSR                
C          
  X * SRCLEFTREF EXSR BAR$SRC    
  X * SRCLEFT2REF EXSR BAR$SRC    
  X * SRCLEFT6REF EXSR BAR$SRC    
  X * SRCLEFT7REF EXSR BAR$SRC    
  X  
C     SRCLINKREF BEGSR                
C     *ZERO ADD POS POS3            
C *     --------------------------------------
C *     Zeile mit Verweis auf Quelle
C *     --------------------------------------
C     'REF(' SCAN MYTITEL POS     77 78  
C   N78 'PFILE(' SCAN MYTITEL POS     77 78  
C   N78 'FORMAT(' SCAN MYTITEL POS     77 78  
C   N78 'EXTNAME(' SCAN MYTITEL POS     77 78  
C   78 '(' SCAN MYTITEL:POS POS     77 78  
C   78 ')' SCAN MYTITEL:POS POS2     77 79  
C   79 1 ADD MYTITELLEN POS2     77  
C       EXSR SRCLINKMBR3              
C       EXSR LINKSRCADDB              
C     *ZERO ADD POS3 POS            
C       ENDSR                
C          
  X * FILLINE1 EXSR BAR$SRC    
  X * DEFLINE1 EXSR BAR$SRC    
  X * RPGLINE1 EXSR BAR$SRC    
  X * SRCLINE1 EXSR BAR$SRC    
  X  
C     SRCLINKCOPY BEGSR                
C     *ZERO ADD POS POS3            
C *     --------------------------------------
C *     Zeile mit Verweis auf Quelle
C *     --------------------------------------
C       MOVEL(P) MYTITEL CHARS            
C     '/COPY ' COMP CHARS6       78  
C   N78 '/INCLUDE ' COMP CHARS9       78  
C   78 ',' SCAN MYTITEL POS     77 78  
C   78 ' ' SCAN MYTITEL:POS POS2     77 79  
C   79 1 ADD MYTITELLEN POS2     77  
C       EXSR SRCLINKMBR3              
C       EXSR LINKSRCADDB              
C     *ZERO ADD POS3 POS            
C       ENDSR                
C          
  X * SRCLINKREF EXSR BAR$SRC    
  X * SRCLINKCOPY EXSR BAR$SRC    
  X  
C     SRCLINKMBR3 BEGSR                
C     *IN78 IFEQ *ON              
C *     --------------------------------------
C *     Zeile mit Verweis auf Quelle
C *     --------------------------------------
C       MOVEL(P) MYTITEL EDTITEL            
C     POS SUBST(P) EDTITEL MYTITEL            
C       EXSR SRCLINKINT              
C       MOVEL(P) LINK LINK2            
C          
C *     --------------------------------------
C *     Zeile mit Verweis auf Quelle
C *     --------------------------------------
C       ADD 1 POS            
C     POS2 SUB POS LEN     77  
C   77 LEN SUBST(P) EDTITEL:POS LINK            
C   N77   SUBST(P) EDTITEL:POS LINK            
C       MOVEL(P) LINK SRCMBR            
C       MOVEL(P) LINK MYTITEL            
C       EXSR SRCLINKINT              
C       EXSR LINKSRC3              
C       MOVEL(P) LINK LINK3            
C          
C *     --------------------------------------
C *     Zeile mit Verweis auf Quelle
C *     --------------------------------------
C       SUBST(P) EDTITEL:POS2 MYTITEL     77  
C   77   CLEAR   MYTITEL            
C       EXSR SRCLINKINT              
C       MOVEL(P) LINK LINK4            
C          
C *     --------------------------------------
C *     Zeile mit Verweis auf Quelle
C *     --------------------------------------
C       MOVEL(P) LINK2 LINK            
C       CAT LINK3:0 LINK            
C       CAT LINK4:0 LINK            
C       ELSE                
C *     --------------------------------------
C *     Zeile ohne Verweis
C *     --------------------------------------
C       EXSR SRCLINKINT              
C       ENDIF                
C       ENDSR                
C          
  X * SRCLINK EXSR BAR$SRC    
  X * SRCLINKDEF EXSR BAR$SRC    
  X * SRCLINKDEFS EXSR BAR$SRC    
  X * SRCLINKUSE EXSR BAR$SRC    
  X * SRCLINKUSES EXSR BAR$SRC    
  X * SRCLINKMBR EXSR BAR$SRC    
  X * SRCLINKMBR3 EXSR BAR$SRC    
  X * SRCLINKMBR3 EXSR BAR$SRC    
  X * SRCLINKMBR3 EXSR BAR$SRC    
  X * SRCLINKMBR3 EXSR BAR$SRC    
  X  
C     SRCLINKINT BEGSR                
C     *BLANKS IFNE MYTITEL              
C *     --------------------------------------
C *     Text für Zelle
C *     --------------------------------------
C       EXSR SRCLINKINT3              
C       EXSR LINKSRCCOLOR              
C       ELSE                
C       CLEAR   LINK            
C       ENDIF                
C       ENDSR                
C          
  X * SRCLINKINDN EXSR BAR$SRC    
  X * SRCLINKRIGHT EXSR BAR$SRC    
  X  
C     SRCLINKINT2 BEGSR                
C     *BLANKS IFNE MYTITEL              
C *     --------------------------------------
C *     Text für Zelle
C *     --------------------------------------
C       EXSR SRCLINKINT3              
C       ELSE                
C       CLEAR   LINK            
C       ENDIF                
C       ENDSR                
C          
  X * SRCLINKINT EXSR BAR$SRC    
  X * SRCLINKINT2 EXSR BAR$SRC    
  X  
C     SRCLINKINT3 BEGSR                
C *     --------------------------------------
C *     Text für Zelle
C *     --------------------------------------
C       EXSR MYTITELXFORM              
C       MOVEL(P) MYTITEL LINK            
C          
C *     --------------------------------------
C *     Leerzeichen im Text ersetzen
C *     --------------------------------------
C     ' ' SCAN LINK SRCPOS     77 78  
C     ' ' CHECKR LINK SRCPOS2            
C     SRCPOS DOWGT *ZERO              
C     SRCPOS ANDLT SRCPOS2              
C       EVAL LINK       = %REPLACE(NBSP:LINK:
C         SRCPOS:1)
C       ADD 1 SRCPOS            
C       ADD 5 SRCPOS2            
C     ' ' SCAN LINK:SRCPOS SRCPOS     77 78  
C       ENDDO                
C       ENDSR                
C          
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X  
C     LINKSRC BEGSR                
C *     --------------------------------------
C *     Verweis auf Quelle
C *     --------------------------------------
C     *BLANKS IFNE SRCMBR              
C     UPPER:LOWER XLATE(P) SRCMBR MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYNAV            
C       MOVEL(P) LINK MYTITEL            
C       MOVEL(P) '<a' LINK            
C       CAT 'href="' :1 LINK            
C       CAT ELEMENT :0 LINK            
C       CAT '/' :0 LINK            
C       CAT MYNAV :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERY :0 LINK            
C       CAT '"' :0 LINK            
C       CAT TARGET :0 LINK            
C **     CAT NOFOLLOW :0 LINK            
C       CAT NOTRANSLATE :0 LINK            
C       CAT '>' :0 LINK            
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDIF                
C       ENDSR                
C          
  X * SRCLINKMBR EXSR BAR$SRC    
  X * SRCLINKMBR3 EXSR BAR$SRC    
  X  
C     LINKSRC3 BEGSR                
C *     --------------------------------------
C *     Verweis auf Quelle
C *     --------------------------------------
C     *BLANKS IFNE SRCMBR              
C     LOWER:UPPER XLATE SRCMBR SRCMBR            
C       CALL 'SRCINFO' SRCINFOPARM3S     77  
C     *IN77 IFEQ *OFF              
C     *BLANKS ANDNE SRCMBR              
C     UPPER:LOWER XLATE(P) SRCMBR MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYNAV            
C       MOVEL(P) LINK MYTITEL            
C       MOVEL(P) '<a' LINK            
C       CAT 'href="' :1 LINK            
C       CAT MYNAV :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERY :0 LINK            
C       CAT '"' :0 LINK            
C       CAT TAPCOLOR :0 LINK            
C **     CAT NOFOLLOW :0 LINK            
C       CAT NOTRANSLATE :0 LINK            
C       CAT '>' :0 LINK            
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C          
C *     --------------------------------------
C *     Firefox Tap Highlight Color
C *     --------------------------------------
C   67 TAPSTYLE CAT LINK :0 LINK            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LINKSRC3 CALL BAR$SRC    
  X  
C     SRCINFOPARM3S PLIST                
C       PARM 'SOURCE' SRCFILE            
C       PARM   SRCMBR            
C       PARM '*SAME' SRCREL            
C       PARM   SRCTYPE            
C       PARM   SRCCHG            
C       PARM   SRCTEXT            
C       PARM   SRCLINES            
C          
  X * ZEILESRC2 EXSR BAR$ZEILE    
  X  
C     LINKSRCNEU BEGSR                
C     NOMIT IFNE BEMIT              
C     NOMIT OREQ BEMIT              
C *     --------------------------------------
C *     Verweis auf Quelle
C *     --------------------------------------
C     *ISO MOVEL(P) DATUM RPGSUBR            
C     *HMS MOVEL(P) ZEIT RPGLABEL            
C       CLEAR   LABELDS            
C          
C *     --------------------------------------
C *     Verweis auf Quelle
C *     --------------------------------------
C       OPEN LABELL9       77  
C     SRCMBR CHAIN LABELL9       77 77  
C          
C *     --------------------------------------
C *     Verweis auf Quelle
C *     --------------------------------------
C     RPGSUBR IFNE LASUBR              
C     RPGLABEL ORNE LALABEL              
C     UPPER:LOWER XLATE(P) SRCMBR MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYNAV            
C       EXSR LINKSRCNEU2              
C       CAT '<iframe' :0 LINK            
C       CAT 'src=""' :1 LINK            
C       CAT 'long' :1 LINK            
C       CAT 'desc="' :0 LINK            
C       CAT ELEMENT :0 LINK            
C       CAT '/' :0 LINK            
C       CAT MYNAV :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERY :0 LINK            
C     *BLANKS COMP QUERY       78  
C   78   CAT '?' :0 LINK            
C   N78   CAT '&amp;' :0 LINK            
C       CAT SERIENAME :0 LINK            
C       CAT '1' :0 LINK            
C       CAT '"' :0 LINK            
C       CAT 'width=0' :1 LINK            
C       CAT 'height=0' :1 LINK            
C       CAT DISPLAYNONE :0 LINK            
C       CAT '>' :0 LINK            
C       CAT NBSP :0 LINK            
C       CAT '</iframe>' :0 LINK            
C       ENDIF                
C       ENDIF                
C       ENDSR                
C          
  X * LINKSRCNEU EXSR BAR$SRC    
  X  
C     LINKSRCNEU2 BEGSR                
C *     --------------------------------------
C *     Bild ermitteln
C *     --------------------------------------
C       EVAL SRC = %TRIM(OBJEKTNAV)+'/neu.gif'
C       EXSR SRCEXIST              
C     *BLANKS IFNE SRC              
C       EVAL LINK    = '<img border=0 +
C            title="" +
C              alt="" +
C               id="'+%TRIM(MYNAV)+'" +
C              src="'+%TRIM(SRC)+'"'+
C                    %TRIMR(BILDADD)+'>'
C       ELSE                
C       EVAL LINK    = ''
C       ENDIF                
C       EVAL BILDADD = ''
C       ENDSR                
C          
  X * SRCFREE1SEQ EXSR BAR$SRC    
  X * SRCSEQNUM1SEQ EXSR BAR$SRC    
  X  
C     LINKSRCSEQ BEGSR                
C *     --------------------------------------
C *     Quellenzeilen-Sequenz/Datum
C *     --------------------------------------
C       MOVEL(P) LINK LINK7            
C       MOVEL(P) '<a' LINK            
C       CAT 'name="' :1 LINK            
C       CAT PREFIX :0 LINK            
C     100 MULT SRCSEQ NUM            
C       EXSR NUMSTR              
C       CAT STR :0 LINK            
C       CAT '"' :0 LINK            
C       CAT 'title="' :1 LINK            
C       CAT STR :0 LINK            
C       CAT '/' :0 LINK            
C     *ZERO ADD SRCDAT NUM            
C       EXSR NUMSTR              
C       CAT STR :0 LINK            
C       CAT '"' :0 LINK            
C       CAT '>' :0 LINK            
C       CAT LINK7 :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDSR                
C          
  X * SRCCOMMENT1 EXSR BAR$SRC    
  X  
C     LINKSRCCOMMENT BEGSR                
C *     --------------------------------------
C *     Kommentar
C *     --------------------------------------
C       MOVEL(P) LINK LINK7            
C       MOVEL(P) '<a' LINK            
C       CAT '>' :0 LINK            
C       CAT LINK7 :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDSR                
C          
  X * SRCLINKDEF EXSR BAR$SRC    
  X  
C     LINKSRCDEF BEGSR                
C       EXSR LABELDEF              
C *     --------------------------------------
C *     Verweis auf Marke
C *     --------------------------------------
C     *BLANKS IFNE MYTITEL              
C     UPPER:LOWER XLATE(P) MYTITEL MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYNAV            
C       MOVEL(P) LINK MYTITEL            
C       MOVEL(P) '<a' LINK            
C       CAT 'name="' :1 LINK            
C       CAT MYNAV :0 LINK            
C       CAT '"' :0 LINK            
C       CAT '>' :0 LINK            
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C       ENDIF                
C       ENDSR                
C          
  X * SRCLINKDEFS EXSR BAR$SRC    
  X  
C     LINKSRCDEFS BEGSR                
C *     --------------------------------------
C *     Verweis auf Marke
C *     --------------------------------------
C     UPPER:LOWER XLATE(P) LASRCMBR EDNAV            
C     UPPER:LOWER XLATE(P) ELEMENT ELEMENT9            
C     EDNAV COMP ELEMENT9       77  
C   77   CLEAR   EDNAV            
C     UPPER:LOWER XLATE(P) LALABEL MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYNAV            
C       MOVEL(P) LINK MYTITEL            
C       MOVEL(P) '<a' LINK            
C       CAT 'href="' :1 LINK            
C     *BLANKS IFNE EDNAV              
C       CAT EDNAV :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERY :0 LINK            
C       ENDIF                
C       CAT '#' :0 LINK            
C       CAT MYNAV :0 LINK            
C       CAT '"' :0 LINK            
C       CAT TAPCOLOR :0 LINK            
C       CAT '>' :0 LINK            
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C          
C *     --------------------------------------
C *     Firefox Tap Highlight Color
C *     --------------------------------------
C   67 TAPSTYLE CAT LINK :0 LINK            
C       ENDSR                
C          
  X * SRCLINKUSE EXSR BAR$SRC    
  X  
C     LINKSRCUSE BEGSR                
C       EXSR LABELUSE              
C *     --------------------------------------
C *     Verweis auf Marke
C *     --------------------------------------
C     *BLANKS IFNE RPGLABEL              
C     '0123456789 ' CHECK RPGLABEL       77 78  
C     *IN78 IFEQ *ON              
C       CLEAR   EDNAV            
C       MOVEL(P) RPGSRCMBR MYSRCMBR            
C       EXSR SRCMBRCOMPSR1              
C       OPEN LABELL2       77  
C     LAKEY2RPGSET SETLL LABELL2       77  
C   N77 LAKEY2RPG READE LABELL2       77 77  
C   N77   EXSR SRCMBRCOMPSR2              
C     *IN77 IFEQ *OFF              
C     UPPER:LOWER XLATE(P) LASRCMBR EDNAV            
C     UPPER:LOWER XLATE(P) ELEMENT ELEMENT9            
C     EDNAV COMP ELEMENT9       77  
C   77   CLEAR   EDNAV            
C       ENDIF                
C       ENDIF                
C *     --------------------------------------
C *     Verweis auf Marke
C *     --------------------------------------
C     UPPER:LOWER XLATE(P) MYTITEL MYTITEL            
C       EXSR MYTITELX              
C       MOVEL(P) MYTITEL MYNAV            
C       MOVEL(P) LINK MYTITEL            
C       MOVEL(P) '<a' LINK            
C       CAT 'name="' :1 LINK            
C       CAT PREFIX2 :0 LINK            
C     *ZERO ADD RPGSEQLINE NUM            
C       EXSR NUMSTR              
C       CAT STR :0 LINK            
C       CAT '"' :0 LINK            
C       CAT 'href="' :1 LINK            
C     *BLANKS IFNE EDNAV              
C       CAT EDNAV :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERY :0 LINK            
C       ENDIF                
C       CAT '#' :0 LINK            
C       CAT MYNAV :0 LINK            
C       CAT '"' :0 LINK            
C       CAT TAPCOLOR :0 LINK            
C       CAT '>' :0 LINK            
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C          
C *     --------------------------------------
C *     Firefox Tap Highlight Color
C *     --------------------------------------
C   67 TAPSTYLE CAT LINK :0 LINK            
C       ENDIF                
C       ENDSR                
C          
  X * LINKSRCUSE SETLL BAR$SRC    
  X  
C     LAKEY2RPGSET KLIST                
C       KFLD   RPGLABEL            
C       KFLD   MYSRCMBR            
C          
  X * LINKSRCUSE READE BAR$SRC    
  X  
C     LAKEY2RPG KLIST                
C       KFLD   RPGLABEL            
C          
  X * SRCLINKUSES EXSR BAR$SRC    
  X  
C     LINKSRCUSES BEGSR                
C *     --------------------------------------
C *     Verweis auf Marke
C *     --------------------------------------
C     UPPER:LOWER XLATE(P) LASRCMBR EDNAV            
C     UPPER:LOWER XLATE(P) ELEMENT ELEMENT9            
C     EDNAV COMP ELEMENT9       77  
C   77   CLEAR   EDNAV            
C       MOVEL(P) LINK MYTITEL            
C       MOVEL(P) '<a' LINK            
C       CAT 'href="' :1 LINK            
C     *BLANKS IFNE EDNAV              
C       CAT EDNAV :0 LINK            
C       CAT HTML :0 LINK            
C       CAT QUERY :0 LINK            
C       ENDIF                
C       CAT '#' :0 LINK            
C       CAT PREFIX2 :0 LINK            
C     *ZERO ADD LASEQLINE NUM            
C       EXSR NUMSTR              
C       CAT STR :0 LINK            
C       CAT '"' :0 LINK            
C       CAT TAPCOLOR :0 LINK            
C       CAT '>' :0 LINK            
C       CAT MYTITEL :0 LINK            
C       CAT '</a>' :0 LINK            
C          
C *     --------------------------------------
C *     Firefox Tap Highlight Color
C *     --------------------------------------
C   67 TAPSTYLE CAT LINK :0 LINK            
C       ENDSR                
C          
  X * RPGOPCODE1 EXSR BAR$SRC    
  X * SRCLINK EXSR BAR$SRC    
  X * SRCLINKDEF EXSR BAR$SRC    
  X * SRCLINKDEFS EXSR BAR$SRC    
  X * SRCLINKUSE EXSR BAR$SRC    
  X * SRCLINKUSES EXSR BAR$SRC    
  X * SRCLINKINDN EXSR BAR$SRC    
  X * SRCLINKRIGHT EXSR BAR$SRC    
  X * SRCLINKMBR EXSR BAR$SRC    
  X * SRCLINKREF EXSR BAR$SRC    
  X * SRCLINKCOPY EXSR BAR$SRC    
  X  
C     LINKSRCADDB BEGSR                
C *     --------------------------------------
C *     Verweis fett
C *     --------------------------------------
C     '<b>' CAT LINK :0 LINK            
C       CAT '</b>' :0 LINK            
C       ENDSR                
C          
  X * SRCLINKINDN EXSR BAR$SRC    
  X * SRCLINKRIGHT EXSR BAR$SRC    
  X * SRCLINKINT EXSR BAR$SRC    
  X  
C     LINKSRCCOLOR BEGSR                
C *     --------------------------------------
C *     Text in Farbe
C *     --------------------------------------
C     *BLANKS IFNE BARCOLOR              
C       MOVEL(P) LINK LINK7            
C       MOVEL(P) '<font' LINK            
C       CAT BARCOLOR :0 LINK            
C       CAT '>' :0 LINK            
C       CAT LINK7 :0 LINK            
C       CAT '</font>' :0 LINK            
C       ENDIF                
C       ENDSR                

1923 ms | Kontakt | Information | Aibo-Bar © 2005-2024