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 QMISRC



MEMBER
Sequence
Data



MIACCESS
1
/*



MIACCESS
2
   PATCHES required for this to work



MIACCESS
3
    Make a SYSTEM level program : offset x105C  0001 c0000 -> 0080 c0000



MIACCESS
4
*/



MIACCESS
5
DCL SPCPTR .PARM1 PARM;



MIACCESS
6
DCL DD CONTROL CHAR(21) BAS(.PARM1);



MIACCESS
7
    DCL DD TO-ADDRESS   CHAR(8) DEF(CONTROL) POS( 1);



MIACCESS
8
    DCL DD FROM-ADDRESS CHAR(8) DEF(CONTROL) POS( 9);



MIACCESS
9
    DCL DD NBR-OF-BYTES  BIN(4) DEF(CONTROL) POS(17);



MIACCESS
10
    DCL DD FEEDBACK     CHAR(1) DEF(CONTROL) POS(21);



MIACCESS
11
 



MIACCESS
12
DCL OL PARMS (.PARM1) EXT PARM MIN(1);



MIACCESS
13
 



MIACCESS
14
DCL SPCPTR .ARG1 INIT(POINTER);



MIACCESS
15
DCL DD  POINTER CHAR(16) BDRY(16);



MIACCESS
16
    DCL SPCPTR .POINTER        DEF(POINTER) POS(1);





Page: 1 of 205  Records: 3269

Return