Welcome to DDT DeBuggers

iSeries source code

No guarentees - very little documentation - and also no money involved . If you want the whole lot, a save file (targeting V5R4M0) is available. The code works perfectly well on V7R2M0.

Note that in the past I "sanatized" the library by stripping out some questionable MI code, but the latest release is complete: However, unless you do some very interesting things to your machine with SST, most of the MI programs will probably not restore and will definitely NOT run.

Note that the online source available below serves as a simple demonstration of database conversion where a iSeries library containing a bunch of source files has been converted (in this instance) to a SQlite database to allow publishing here.

Here you can browse online and cut snippets that you may find useful. A save file (UTILSsourceOnly.zip) of all of the source with OS target V4R5M0 is also available in Downloads. Note however that some of the code will not compile on such an early release - V5R4M0 is guaranteed to work. To build the library from source, create the CL program UTILSBLDC and call it with PARM('UTILS' 'V7R2M0') where the first parameter is the library name you have restored to, and the second is the OS release you need.

Exploring QTXTSRC



MEMBER
Sequence
Data



COMONINFO
1
          ** CUSTOMER TYPE



COMONINFO
2
          01    TENDER



COMONINFO
3
          02    EXPORT



COMONINFO
4
          03    GOVERNMENT



COMONINFO
5
          04    RETAIL



COMONINFO
6
          05    ANIMAL HEALTH DOCTORS



COMONINFO
7
          06    WHOLESALERS PHARMACEUTICAL



COMONINFO
8
          07    PRIVATE



COMONINFO
9
          08    ANIMAL HEALTH WHOLESALERS



COMONINFO
10
          09    ANIMAL HEALTH OTHERS



COMONINFO
11
 



COMONINFO
12
          ** BUSINESS CODE



COMONINFO
13
                OTHER



COMONINFO
14
          1     ANIMAL HEALTH



COMONINFO
15
          2     GOVERNMENT



COMONINFO
16
          3     HOSPITAL





Page: 1 of 10  Records: 145

Return