midrange.com code scratchpad |
Name:
TST01BRG/01BFM
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
01/18/2008 10:32:51 pm
|
IP:
Logged
|
|
Description:
Shows what happens when a calling program is in 80 and calls a window forcing it into 80 mode regardless if the primary size was 80 mode
|
Code:
- DDS:
- A DSPSIZ(24 80 *DS4 27 132 *DS3)
- A HOME
- A PRINT
- A WDWBORDER((*COLOR BLU) (*DSPATR RI))
-
- A CA03
- A CF04
- A CF08
- A CA12
- A R RECORD1
- A 3 4'80 column mode screen'
- A 22 2'F3=Exit'
- A COLOR(YLW)
- A 22 16'F4=Prompt w/132 as primary'
- A COLOR(YLW)
- A 23 2'F12=Cancel'
- A COLOR(YLW)
- A 23 16'F8=Prompt w/80 as primary'
- A COLOR(YLW)
- A 8 4'Test to show how a window with pri-
- A mary display size of 132 will clear'
- A 9 6'this screen and one with primary d-
- A isplay size of 80 will overlay.'
-
- RPGLE:
- H OPENOPT(*NOINZOFL) OPTION(*NODEBUGIO:*SRCSTMT)
- H DFTACTGRP(*NO) ACTGRP(*CALLER)
-
- FTST01BFM 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('3');
- ENDIF;
- IF *INKH;
- CALLP TST02BRG('3');
- ENDIF;
-
- ENDDO;
-
- *INLR = *ON;
- RETURN;
-
- /END-FREE
-
|
|
|