midrange.com code scratchpad
Name:
TST02BRG/02BFM
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
01/18/2008 10:38:37 pm
IP:
Logged
Description:
Prompt window with primary display size in 80 mode
Code:
  1. DDS:
  2.      A                                      DSPSIZ(24 80 *DS3 27 132 *DS4)
  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(*DS4)
  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(*DS4)
  18.      A                                      RTNCSRLOC(&CSRREC &CSRFLD)
  19.      A            CSRFLD        10A  H
  20.      A            CSRREC        10A  H
  21.      A N10                              3  3'I am in 132 mode.'
  22.      A  10                              3  3'I am in 80 mode.'
  23.      A                                  1  3'Example prompt window TST02BRG.'
  24.      A                                  5  3'Primary mode is 80.'
  25.      A          R DUMMY
  26.      A                                      ASSUME
  27.      A N10                                  DSPMOD(*DS4)
  28.      A                                  1  3' ' 
  29.  
  30. RPGLE:
  31.  
  32.      FTST02BFM  CF   E             WORKSTN
  33.  
  34.      C     *ENTRY        PLIST
  35.      C                   PARM                    MODE              1
  36.       /FREE
  37.  
  38.          IF %PARMS >= 1;
  39.            *IN10 = (MODE = '3');  //*ON = 80, *OFF = 132;
  40.          ELSE;
  41.            *IN10 = *ON;  //*ON = 80, *OFF = 132;
  42.          ENDIF;
  43.          WRITE WINDEF;
  44.          EXFMT WINMNT;
  45.          *INLR = *ON;
  46.          RETURN;
  47.  
  48.       /END-FREE 
  49.  
© 2004-2019 by midrange.com generated in 0.008s valid xhtml & css