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 QRPGSRC



MEMBER
Sequence
Data



ACBLOADR
1
     F*****************************************************************



ACBLOADR
2
     F*                                                               *



ACBLOADR
3
     F*    FUNCTION   -  CONVERT ACB BANK INFO                        *



ACBLOADR
4
     F*                                                               *



ACBLOADR
5
     F*****************************************************************



ACBLOADR
6
     F* FUNCTION OF INDICATORS                                        *



ACBLOADR
7
     F* ----------------------                                        *



ACBLOADR
8
     F* ERRORATOR        USAGE WHEN ON                                *



ACBLOADR
9
     F* ---------        -----------------------------------          *



ACBLOADR
10
     F*   90             READ ON INPUT FILE ACBTAPF



ACBLOADR
11
     F*   50             RESULT OF TEST NUMERIC



ACBLOADR
12
     F*****************************************************************



ACBLOADR
13
     FACBTAPF IF  E                    DISK



ACBLOADR
14
     FACBBRNCHO   E                    DISK                      A



ACBLOADR
15
     FACBCDVP O   E                    DISK                      A



ACBLOADR
16
     F*****************************************************************





Page: 1 of 944  Records: 15101

Return