|
midrange.com
On 03/08/99 05:13:58 PM Joe Giusto wrote:
>You could write an RPG program that would put them all into a source
member
>that you could then copy the line that you need. Just make sure to label
>the lines so you know which lines to copy into your source.
This is an ancient example, but it does work:
F* Build various attributes to insert into SEU source
F* To run, ADDPFM FILE(QRPGSRC)
F* MBR(ATTRIBUTES)
F* TEXT('SEU special colours')
F* SRCTYPE(TXT)
F* OVRDBF QRPGSRC MBR(ATTRIBUTES)
F* CALL CRTATTR
F*
F* To use, edit the source you want to change and open member
F* ATTRIBUTES in the browse window. Copy the type of line you
F* want into your working member. You can then copy and overlay
F* onto existing code lines.
F*
FQRPGSRC O E DISK A
F QRPGSRC KRENAMERPGSRCR
E A 80 1
C*
C MOVE X'21' A,1
C MOVEA'RI 'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'22' A,1
C MOVEA'HI/WHITE'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'23' A,1
C MOVEA'HI/RI 'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'24' A,1
C MOVEA'UL 'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'25' A,1
C MOVEA'UL/RI 'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'26' A,1
C MOVEA'UL/HI 'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'28' A,1
C MOVEA'BL/RED 'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'29' A,1
C MOVEA'BL/RI 'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'2A' A,1
C MOVEA'BL/HI 'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'2B' A,1
C MOVEA'BL/HI/RI'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'2C' A,1
C MOVEA'BL/UL 'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'2D' A,1
C MOVEA'BL/UL/RI'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'2E' A,1
C MOVEA'BL/UL/HI'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'30' A,1
C MOVEA'CS/TRQ 'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'31' A,1
C MOVEA'CS/RI 'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'32' A,1
C MOVEA'CS/YEL 'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'33' A,1
C MOVEA'CS/HI/RI'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'34' A,1
C MOVEA'CS/UL 'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'35' A,1
C MOVEA'CS/UL/RI'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'36' A,1
C MOVEA'CS/UL/HI'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'38' A,1
C MOVEA'PINK 'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'39' A,1
C MOVEA'CS/BL/RI'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'3A' A,1
C MOVEA'BLUE 'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'3B' A,1
C MOVEA'CSBLHIRI'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'3C' A,1
C MOVEA'CS/BL/UL'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'3D' A,1
C MOVEA'CSBLULRI'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C MOVE X'3E' A,1
C MOVEA'CSBLULHI'A,2
C MOVE X'20' A,10
C MOVEAA SRCDTA
C WRITERPGSRCR
C*
C SETON LR
Buck Calabro
Billing Concepts Inc (formerly CommSoft), Albany, NY
mailto:mcalabro@commsoft.net
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
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.
