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