|
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. > >
midrange.com
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 mailing list archive is Copyright 1997-2025 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.
