midrange.com code scratchpad
Name:
TST02ARG/02AFM
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
01/18/2008 10:36:16 pm
IP:
Logged
Description:
Prompt window with primary display size in 132 mode
Code:
  1. DDS:
  2.      A                                      DSPSIZ(27 132 *DS4 24 80 *DS3)
  3.      A                                      HOME
  4.      A                                      PRINT
  5.      A                                      WDWBORDER((*COLOR BLU) (*DSPATR RI))
  6.      A                                      CA03
  7.      A                                      CA12
  8.      A          R WINDEF
  9.      A N10                                  DSPMOD(*DS3)
  10.      A                                      OVERLAY
  11.      A  *DS3                                WINDOW(*DFT 17 62 *NOMSGLIN)
  12.      A  *DS4                                WINDOW(*DFT 17 62 *NOMSGLIN)
  13.      A          R WINMNT
  14.      A                                      OVERLAY
  15.      A  *DS3                                WINDOW(WINDEF)
  16.      A  *DS4                                WINDOW(WINDEF)
  17.      A N10                                  DSPMOD(*DS3)
  18.      A                                      RTNCSRLOC(&CSRREC &CSRFLD)
  19.      A            CSRFLD        10A  H
  20.      A            CSRREC        10A  H
  21.      A  10                              3  3'I am in 132 mode.'
  22.      A N10                              3  3'I am in 80 mode.'
  23.      A                                  1  3'Example prompt window TST02ARG.'
  24.      A                                  6  3'Primary mode is 132.'
  25.      A          R DUMMY
  26.      A                                      ASSUME
  27.      A N10                                  DSPMOD(*DS3)
  28.      A                                  1  3' ' 
  29.  
  30. RPGLE:
  31.  
  32.      FTST02AFM  CF   E             WORKSTN
  33.  
  34.        //-----------------------------------------------------------------------
  35.        // Main Routine
  36.        //-----------------------------------------------------------------------
  37.      C     *ENTRY        PLIST
  38.      C                   PARM                    MODE              1
  39.       /FREE
  40.  
  41.          IF %PARMS >= 1;
  42.            *IN10 = (MODE = '4');  //*OFF = 80, *ON = 132;
  43.          ELSE;
  44.            *IN10 = *OFF;  //*OFF = 80, *ON = 132;
  45.          ENDIF;
  46.          WRITE WINDEF;
  47.          EXFMT WINMNT;
  48.          *INLR = *ON;
  49.          RETURN;
  50.  
  51.       /END-FREE 
  52.  
© 2004-2019 by midrange.com generated in 0.005s valid xhtml & css