Re: generated source problem

The field names listed were all from our database files.
We found a source member with over 20,000 lines of code, writing
the *all'X' or *all'9' to every field in many files, always writing a single record,
then going on to next file.
To me it looks like generated code, perhaps a testing or documentation product.
We are trying to determine which product did it, and that may lead to who did it.
The system has either demo or active license to many products (DBU, Sequel, X-Analysis, WRKDBF, and several more).
Via google I did find a similarity to a free tool PRTPRTF which prints sample pages
of external print files for documentation, but have not found that tool on the system.
No pgmr has admitting creating this. I'll not further describe the event, but this
did create an operational problem at this site.
jim
---- rob@xxxxxxxxx wrote:

Sounds more like an RPG question to me.
If you don't get any response here, you should try there.
It does not look familiar to me. I checked QSYS2/SYSCOLUMNS and those
field names are not familiar either.

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Jim Franz" <franz400@xxxxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
11/28/2007 09:20 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
<MIDRANGE-L@xxxxxxxxxxxx>
cc

Subject
generated source problem






Have a customer where a source member has appeared with
what appears to be generated code designed to perhaps write
test data to many files?
There are several packages on the system and I need to
determine where this code came from:

C move *all'X' CMTXNC
C move *all'X' CMTXCC
C move *all'X' CMTX1C
C move *all'X' CMTX2C
C move *all'X' CMFEX#
C move *all'X' CMCUSR
C z-sub *all'9' PACDAT
C z-sub *all'9' PACTIM
C write XXAUER 20
****************** End of data *******************************

Anyone recognize this style?
jim franz


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.