Posts

Showing posts with the label INDARA

IBMi (AS400) fans only ‘ Subfile window with mouse Selection - DoubleLeftClick - MOUBTN(*ULD CA04)

Image
#IBMiSample Subfile window with mouse selection - DoubleLeftClick - MOUBTN(*ULD CA04) This example uses DoubleLeftClick MOUBTN(*ULD CA04) to select a subfile row. Please note: the mouse works with "Personal Communications iSeries Access" and does not work with a simple 5250 emulator (for example Mocha TN5250 does not detect the mouse). If you don't have "Personal Communications iSeries Access" it doesn't matter, the mouse doesn't work but the function keys work as usual. First of all look at this post and compile and populate CLANA00F to use this example. Don't forget to set the screen to 132 columns!    This is the display file: CL01SFV.DSPF       **************************************************************       *  CLANA01L Subfile with select option       **************************************************************                                             DSPSIZ(27 132 *DS4)                                             INDARA              

IBMi (AS400) fans only ' Modernizing RPG's indicator with INDARA (Indicator Area) keyword

Image
#IBMiSample INDARA (Indicator Area) keyword for ICF files workstn indds indicator data structure INDARA is used to put the field option indicators and function(response) key indicators in a separate area of memory called indicator area. By using this keyword, we can make indicator data structure in our program to give the customized name to indicators defined in the display file. Hence, it makes the program more readable and easy to understand. Step 1. indicate INDARA  keyword in your Display File Step 2. indicate INDDS in your RPG workstation file declaration dcl-f PKLTSFV workstn indds(Dspf) sfile(SFL1 : SF1NUM); Step 3. declare the  indicator area        dcl-ds Dspf qualified ;          Exit            ind pos(03) inz(*off);          SflClr          ind pos(50) inz(*off);          DspAtrRI        ind pos(61) inz(*off);          DspClrRed       ind pos(62) inz(*off);          SflEnd          ind pos(91) inz(*off);        end-ds ;     Step 4. In the RPG source program replace all the