Re: generated source problem

[<franz400@xxxxxxxxxxxx>]

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.