• Subject: RE: Conversion Text (long, pgm included)
  • From: Buck Calabro/commsoft<mcalabro@xxxxxxxxxxxx>
  • Date: Mon, 8 Mar 1999 18:34:42 -0500

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
+---


This thread ...


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

This mailing list archive is Copyright 1997-2019 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].