|
midrange.com
If you don't have anything to copy from, and you don't want to write a
program, it's very simple to insert the attribute character by editing
the source member directly.
Unfortunately, the AS/400's "on-the-fly" dfu (UPDDTA) doesn't work on
source files, but I would guess that most shops use some sort of 3rd
party file editor that has the capability to edit source files (and the
ability to edit in hex mode). We primarily use EZVIEW (Easy View, from
Help/Systems), but we also have Synon's utility YCHGDTA.
Buck Calabro had mentioned keeping 'skeleton' lines in a template source
member. I also do this. It's a handy way to get the character inserted
in SEU (using cmd-15, etc.) AND it makes a good cheat-sheet for
remembering the attribute codes.
Here's my 'template' member, if you want to cut-and-paste (you can't see
it below, but I have the attribute character in column 1 and hex-20 in
column 22, so I can see a sample of how each one looks. You'll have to
edit the member or write a program to update the attibute character to
what you want):
*************** Beginning of data ***
0001.00 <====SAMPLEDATA====> 20 OFF
0002.00 <====SAMPLEDATA====> 21 RI
0003.00 <====SAMPLEDATA====> 22 HI
0004.00 <====SAMPLEDATA====> 23 RI HI
0005.00 <====SAMPLEDATA====> 24 UL
0006.00 <====SAMPLEDATA====> 25 UL RI
0007.00 <====SAMPLEDATA====> 26 UL HI
0008.00 27 ND
0009.00 <====SAMPLEDATA====> 28 BL
0010.00 <====SAMPLEDATA====> 29 BL RI
0011.00 <====SAMPLEDATA====> 2A BL HI
0012.00 <====SAMPLEDATA====> 2B BL RI HI
0013.00 <====SAMPLEDATA====> 2C UL BL
0014.00 <====SAMPLEDATA====> 2D UL BL RI
0015.00 <====SAMPLEDATA====> 2E UL BL HI
0016.00 2F ?
0017.00 <====SAMPLEDATA====> 30 DU
0018.00 <====SAMPLEDATA====> 31 DU RI
0019.00 <====SAMPLEDATA====> 32 DU HI
0020.00 <====SAMPLEDATA====> 33 DU RI HI
0021.00 <====SAMPLEDATA====> 34 BU
0022.00 <====SAMPLEDATA====> 35 BU RI
0023.00 <====SAMPLEDATA====> 36 BU HI
0024.00 37 DU ND
0025.00 <====SAMPLEDATA====> 38 DU BL
0026.00 <====SAMPLEDATA====> 39 DU BL RI
0027.00 <====SAMPLEDATA====> 3A DU BL HI
0028.00 <====SAMPLEDATA====> 3B DU BL RI HI
0029.00 <====SAMPLEDATA====> 3C BU BL
0030.00 <====SAMPLEDATA====> 3D BU RI
0031.00 <====SAMPLEDATA====> 3E BU HI
0032.00 <====SAMPLEDATA====> 3F ?
Jeff Smudski
Mike Albert Leasing, Inc.
Cincinnati, OH
> -----Original Message-----
> From: thayur sridhar [SMTP:thayur@hotmail.com]
> Sent: Monday, June 07, 1999 9:13 PM
> To: RPG400-L@midrange.com
> Subject:
>
> I have come across RPG400 programs where the SEU source lines are
> being
> multi-coloured/highlighted& even reversed imaged.
> How do you do this?
>
> Thankyou.
>
>
> ______________________________________________________
> Get Your Private, Free Email at http://www.hotmail.com
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * *
> * This is the RPG/400 Discussion Mailing List! To submit a new
> *
> * message, send your mail to "RPG400-L@midrange.com". To unsubscribe
> *
> * from this list send email to MAJORDOMO@midrange.com and specify
> *
> * 'unsubscribe RPG400-L' in the body of your message. Questions
> should *
> * be directed to the list owner / operator: david@midrange.com
> *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List! To submit a new *
* message, send your mail to "RPG400-L@midrange.com". To unsubscribe *
* from this list send email to MAJORDOMO@midrange.com and specify *
* 'unsubscribe RPG400-L' in the body of your message. 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-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.
