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:
- DDS:
- A DSPSIZ(24 80 *DS3 27 132 *DS4)
- A HOME
- A PRINT
- A WDWBORDER((*COLOR BLU) (*DSPATR RI))
- A CA03
- A CA12
- A R WINDEF
- A N10 DSPMOD(*DS4)
- A OVERLAY
- A *DS3 WINDOW(*DFT 17 62 *NOMSGLIN)
- A *DS4 WINDOW(*DFT 17 62 *NOMSGLIN)
- A R WINMNT
- A OVERLAY
- A *DS3 WINDOW(WINDEF)
- A *DS4 WINDOW(WINDEF)
- A N10 DSPMOD(*DS4)
- A RTNCSRLOC(&CSRREC &CSRFLD)
- A CSRFLD 10A H
- A CSRREC 10A H
- A N10 3 3'I am in 132 mode.'
- A 10 3 3'I am in 80 mode.'
- A 1 3'Example prompt window TST02BRG.'
- A 5 3'Primary mode is 80.'
- A R DUMMY
- A ASSUME
- A N10 DSPMOD(*DS4)
- A 1 3' '
-
- RPGLE:
-
- FTST02BFM CF E WORKSTN
-
- C *ENTRY PLIST
- C PARM MODE 1
- /FREE
-
- IF %PARMS >= 1;
- *IN10 = (MODE = '3'); //*ON = 80, *OFF = 132;
- ELSE;
- *IN10 = *ON; //*ON = 80, *OFF = 132;
- ENDIF;
- WRITE WINDEF;
- EXFMT WINMNT;
- *INLR = *ON;
- RETURN;
-
- /END-FREE
-
|
|
|