midrange.com code scratchpad |
Name:
TST01ARG/01AFM
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
01/18/2008 10:29:33 pm
|
IP:
Logged
|
|
Description:
Shows what happens when a calling program is in 132 and calls a window forcing it into 132 mode regardless if the primary size was 80 mode
|
Code:
- DDS:
- A DSPSIZ(27 132 *DS4 24 80 *DS3)
- A HOME
- A PRINT
- A WDWBORDER((*COLOR BLU) (*DSPATR RI))
- A CA03
- A CF04
- A CF08
- A CA12
- A R RECORD1
- A 6 7'132 column mode screen.'
- A 22 3'F3=Exit'
- A COLOR(YLW)
- A 22 17'F4=Prompt w/132 as primary'
- A COLOR(YLW)
- A 23 3'F12=Cancel'
- A COLOR(YLW)
- A 23 17'F8=Prompt w/80 as primary'
- A COLOR(YLW)
- A 8 7'Test to show how a window with a p-
- A rimary display size of 132'
- A 9 9'will overlay this one and one with-
- A a primary display size of 80'
- A 10 9'will also overlay this one.'
-
- RPGLE:
- H OPENOPT(*NOINZOFL) OPTION(*NODEBUGIO:*SRCSTMT)
- H DFTACTGRP(*NO) ACTGRP(*CALLER)
-
- FTST01AFM CF E WORKSTN
-
- DTST02ARG PR EXTPGM('TST02ARG')
- D MODE 1A CONST OPTIONS(*NOPASS)
- DTST02BRG PR EXTPGM('TST02BRG')
- D MODE 1A CONST OPTIONS(*NOPASS)
-
- /FREE
-
- DOU *INKC;
-
- EXFMT RECORD1;
-
- IF *INKC OR *INKL;
- LEAVE;
- ENDIF;
- IF *INKD;
- CALLP TST02ARG('4');
- ENDIF;
- IF *INKH;
- CALLP TST02BRG('4');
- ENDIF;
-
- ENDDO;
-
- *INLR = *ON;
- RETURN;
-
- /END-FREE
-
|
|
|