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:
  1. DDS:
  2.      A                                      DSPSIZ(24 80 *DS4 27 132 *DS3)
  3.      A                                      HOME
  4.      A                                      PRINT
  5.      A                                      WDWBORDER((*COLOR BLU) (*DSPATR RI))
  6.  
  7.      A                                      CA03
  8.      A                                      CF04
  9.      A                                      CF08
  10.      A                                      CA12
  11.      A          R RECORD1
  12.      A                                  3  4'80 column mode screen'
  13.      A                                 22  2'F3=Exit'
  14.      A                                      COLOR(YLW)
  15.      A                                 22 16'F4=Prompt w/132 as primary'
  16.      A                                      COLOR(YLW)
  17.      A                                 23  2'F12=Cancel'
  18.      A                                      COLOR(YLW)
  19.      A                                 23 16'F8=Prompt w/80 as primary'
  20.      A                                      COLOR(YLW)
  21.      A                                  8  4'Test to show how a window with pri-
  22.      A                                      mary display size of 132 will clear'
  23.      A                                  9  6'this screen and one with primary d-
  24.      A                                      isplay size of 80 will overlay.' 
  25.  
  26. RPGLE:
  27.      H OPENOPT(*NOINZOFL) OPTION(*NODEBUGIO:*SRCSTMT)
  28.      H  DFTACTGRP(*NO) ACTGRP(*CALLER)
  29.  
  30.      FTST01BFM  CF   E             WORKSTN
  31.  
  32.      DTST02ARG         PR                  EXTPGM('TST02ARG')
  33.      D MODE                           1A   CONST OPTIONS(*NOPASS)
  34.      DTST02BRG         PR                  EXTPGM('TST02BRG')
  35.      D MODE                           1A   CONST OPTIONS(*NOPASS)
  36.  
  37.       /FREE
  38.  
  39.          DOU *INKC;
  40.  
  41.            EXFMT RECORD1;
  42.  
  43.            IF *INKC OR *INKL;
  44.              LEAVE;
  45.            ENDIF;
  46.            IF *INKD;
  47.              CALLP TST02ARG('3');
  48.            ENDIF;
  49.            IF *INKH;
  50.              CALLP TST02BRG('3');
  51.            ENDIF;
  52.  
  53.          ENDDO;
  54.  
  55.          *INLR = *ON;
  56.          RETURN;
  57.  
  58.       /END-FREE 
  59.  
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css