× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



no, i made a little tool, here it is
nb : if you use some /free; it will not work...

----- Original Message ----- 
From: <M.Effenberg@xxxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, January 27, 2006 10:09 AM
Subject: Re: Prompting for Spool Files


> Hi,
> are these nice control structure idents on the right handcrafted?
> I'm looking for a program to print my sources like this.
>
> best regards
>  Martin
>
> --------------------------------------------------------------------------
--------
>
> here is what i use.
> it is a little spool list utility.
>
> Hope this help.
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
     H DEBUG DATEDIT(*DMY)
     ?* ________________________________________________________________________
     ?* Fichiers
     ?* ________________________________________________________________________
     FQRPGLESRC UPE  F  112        DISK
     F
     ?*
     ?* Minuscules .............................................................
     D LO              C                   CONST('abcdefghijklmnopqrst-
     D                                     uvwxyz')
     ?* Majuscules .............................................................
     D UP              C                   CONST('ABCDEFGHIJKLMNOPQRST-
     D                                     UVWXYZ')
     ?* Dessin .................................................................
     D Comment         S              1    DIM(15)
     D Indice          S              2  0
     D T_Deb           S              2    DIM(3) CTDATA PERRCD(1)
     D T_Fin           S              3    DIM(1) CTDATA PERRCD(1)
     ?* Couleurs ...............................................................
     d Pnk             s              1    Inz(x'38')
     d Wht             s              1    Inz(x'22')
     ?*
     IQRPGLESRC NS  01
     I                                  1    6  Seq
     I                                  7   12  Dat
     I                                 13  112  SrcDta
     ?* ________________________________________________________________________
     ?* Traitement
     ?* ________________________________________________________________________
     c                   if        *in(99) ='0'                                 
?<---1---------+
     c                   Z-add     0             Boucle            2 0          
?              |
     c                   Bitoff    '01234567'    RED               1            
?              |
     c                   Bitoff    '01234567'    BLU               1            
?              |
     c                   Biton     '24'          RED                            
?              |
     c                   Biton     '2346'        BLU                            
?              |
     c                   move      '1'           *in(99)                        
?              |
     c                   endif                                                  
?<---1---------+
     ?*                                                                         
?
     ?* Variables 
..............................................................?
     c                   move      *blanks       XXX               6            
?
     c                   move      *blanks       Debut             2            
?
     c                   move      *blanks       Fin               3            
?
     c                   move      *blanks       Else              4            
?
     c                   move      *blanks       Carte             1            
?
     c                   move      *blanks       Com               1            
?
     c                   move      *blanks       Tableau           2            
?
     c                   move      *blanks       Sp                5            
?
     c                   Eval      Tableau = %subst(SRCDTA:1:2)                 
?
     c                   Eval      Debut = %subst(SRCDTA:26:2)                  
?
     c                   Eval      Fin = %subst(SRCDTA:26:3)                    
?
     c                   Eval      Sp = %subst(SRCDTA:26:5)                     
?
     c                   Eval      Else = %subst(SRCDTA:26:4)                   
?
     c                   Eval      Carte = %subst(SRCDTA:6:1)                   
?
     c                   Eval      Com = %subst(SRCDTA:7:1)                     
?
     c                   Eval      Tableau = %subst(SRCDTA:1:2)                 
?
     ?*                                                                         
?
     C     Blu:' '       XLATE     SrcDta        SrcDta                         
?
     C     Pnk:' '       XLATE     SrcDta        SrcDta                         
?
     C     LO:UP         XLATE     Debut         W_debut           2            
?
     C     LO:UP         XLATE     Fin           W_Fin             3            
?
     C     LO:UP         XLATE     Else          W_Else            4            
?
     C     LO:UP         XLATE     Sp            W_Sp              5            
?
     ?*                                                                         
?
     ?* 1ere carte C 
...........................................................?
     c                   If        (Carte ='C' and com<>'*')                    
?<---1---------+
     c                             or (Carte ='c' and com<>'*')                 
?              |
     c                   Move      '1'           In_maj            1            
?              |
     c                   endif                                                  
?<---1---------+
     ?*                                                                         
?
     c                   If        Tableau = '**'                               
?<---1---------+
     c                   Move      '1'           In_tab            1            
?              |
     c                   endif                                                  
?<---1---------+
     ?*                                                                         
?
     c                   Move      '0'           In_Com            1            
?
     c                   if        Com = '*' or Carte =' '                      
?<---1---------+
     c                             And Com<>'/'                                 
?              |
     c                   Move      '1'           In_Com            1            
?              |
     c                   if        In_Tab <>'1'                                 
?<---2--------+|
     c                   Eval      %subst(SRCDTA:6:1) = Wht                     
?             ||
     c                   Eval      %subst(SRCDTA:7:1) = '*'                     
?             ||
     c                   endif                                                  
?<---2--------+|
     c                   Endif                                                  
?<---1---------+
     c                   move      *blanks       xxx               6            
?
     ?*                                                                         
?
     ?* Boucle en cours 
........................................................?
     c                   Clear                   Comment                        
?
     c                   Z-add     15            £O                4 0          
?
     c     Boucle        IFGT      0                                            
?<---1---------+
     c     Boucle        ANDLE     15                                           
?              |
     c                   Do        Boucle                                       
?<---2--------+|
     c                   Move      '|'           Comment(£O)                    
?             ||
     c                   Sub       1             £O                             
?             ||
     c                   Enddo                                                  
?<---2--------+|
     c                   Endif                                                  
?<---1---------+
     ?*                                                                         
?
     ?* Test code opérations 
...................................................?
     c                   Move      '0'           In_Deb            1            
?
     c                   Move      '0'           In_Fin            1            
?
     ?*                                                                         
?
     c     In_com        Ifne      '1'                                          
?<---1---------+
     ?*                                                                         
?              |
     c     W_sp          ifeq      'BEGSR'                                      
?<---2--------+|
     c                   Z-add     0             Boucle            2 0          
?             ||
     c                   endif                                                  
?<---2--------+|
     c                   Z-add     1             Indice                         
?              |
     c     W_Debut       lookup    T_DEB(Indice)                          50    
?              |
     c     *in50         Ifeq      '1'                                          
?<---2--------+|
     c     W_Fin         Andne     'SET'                                        
?             ||
     c                   Move      '1'           In_Deb            1            
?             ||
     c                   endif                                                  
?<---2--------+|
     c     W_Else        Ifeq      'MONI'                                       
?<---2--------+|
     c     W_Fin         Andne     'SET'                                        
?             ||
     c                   Move      '1'           In_Deb            1            
?             ||
     c                   endif                                                  
?<---2--------+|
     c                   Z-add     1             Indice                         
?              |
     C                   if        W_sp <> 'ENDSR' and W_sp <> 'ENDCS'          
?<---2--------+|
     c                   Z-add     1             Indice                         
?             ||
     c     W_Fin         lookup    T_Fin(Indice)                          50    
?             ||
     c     *in50         Ifeq      '1'                                          
?<---3-------+||
     c                   Move      '1'           In_Fin            1            
?            |||
     c                   endif                                                  
?<---3-------+||
     c                   endif                                                  
?<---2--------+|
     ?*                                                                         
?              |
     c                   endif                                                  
?<---1---------+
     ?*                                                                         
?
     ?* Fin ou début boucle 
....................................................?
     c                   If        In_Fin = '1' OR In_Deb ='1'                  
?<---1---------+
     c     In_Deb        ifeq      '1'                                          
?<---2--------+|
     c                   Add       1             Boucle                         
?             ||
     c                   endif                                                  
?<---2--------+|
     c     Boucle        Ifgt      0                                            
?<---2--------+|
     c     Boucle        Andle     15                                           
?             ||
     c                   Eval      xxx = '<-- '+ %char(Boucle)                  
?             ||
     c                   Movea     xxx           Comment(1)                     
?             ||
     c                   movea     Comment       Wza15            15            
?             ||
     c     ' ':'-'       xlate     Wza15         Wza15b           15            
?             ||
     c                   movea     Wza15b        Comment(1)                     
?             ||
     c                   Eval      Indice = 15 - Boucle +1                      
?             ||
     c                   Eval      Comment(Indice) = '+'                        
?             ||
     c                   endif                                                  
?<---2--------+|
     c     In_Fin        ifeq      '1'                                          
?<---2--------+|
     c                   Sub       1             Boucle                         
?             ||
     c                   endif                                                  
?<---2--------+|
     c                   endif                                                  
?<---1---------+
     ?*                                                                         
?
     ?* Else 
...................................................................?
     c     W_Else        ifeq      'ELSE'                                       
?<---1---------+
     c     Boucle        ifgt      0                                            
?<---2--------+|
     c     Boucle        Andle     15                                           
?             ||
     c                   Eval      Indice = 15 - Boucle + 1                     
?             ||
     c                   Eval      Comment(Indice) = 'X'                        
?             ||
     c                   Eval      Comment(Indice-1) = '-'                      
?             ||
     c                   endif                                                  
?<---2--------+|
     c                   endif                                                  
?<---1---------+
     ?*                                                                         
?
     c                   If        Boucle>0                                     
?<---1---------+
     c                             Or In_fin = '1'                              
?              |
     c                             Or In_maj='1'                                
?              |
     c                   movea     Comment       Wza15            15            
?              |
     c                   If        In_com<>'1'                                  
?<---2--------+|
     c                             and carte ='c'                               
?             ||
     c                             and In_Tab<>'1'                              
?             ||
     c                             Or In_com<>'1'                               
?             ||
     c                             and carte ='C'                               
?             ||
     c                             and In_Tab<>'1'                              
?             ||
     c                             Or In_maj='1'                                
?             ||
     c                             and In_Tab<>'1'                              
?             ||
     c                   Eval      %subst(SRCDTA:81:1) = Wht                    
?             ||
     c                   Eval      %subst(SRCDTA:82:15) = Wza15                 
?             ||
     c                   Eval      %subst(SRCDTA:97:4) = ' '                    
?             ||
     c                   endif                                                  
?<---2--------+|
     c                   endif                                                  
?<---1---------+
     c                   If        In_Tab<>'1'                                  
?<---1---------+
     c                   Eval      %subst(SRCDTA:1:5) = ' '                     
?              |
     c                   endif                                                  
?<---1---------+
     c                   Except                                                 
?
     ?**   W_Else        ifeq      'ELSE'                                       
?
     ?**                 Eval      %subst(SRCDTA:81:1) = Wht                    
?
     oQrpglesrc E                                                               
?
     o                       SrcDta             112                             
?
**                                                                              
?
IF                                                                              
?
SE                                                                              
?
DO                                                                              
?
**                                                                              
?
END                                                                             
?                                                                          ? 

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.