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:
  1. DDS:
  2.      A                                      DSPSIZ(27 132 *DS4 24 80 *DS3)
  3.      A                                      HOME
  4.      A                                      PRINT
  5.      A                                      WDWBORDER((*COLOR BLU) (*DSPATR RI))
  6.      A                                      CA03
  7.      A                                      CF04
  8.      A                                      CF08
  9.      A                                      CA12
  10.      A          R RECORD1
  11.      A                                  6  7'132 column mode screen.'
  12.      A                                 22  3'F3=Exit'
  13.      A                                      COLOR(YLW)
  14.      A                                 22 17'F4=Prompt w/132 as primary'
  15.      A                                      COLOR(YLW)
  16.      A                                 23  3'F12=Cancel'
  17.      A                                      COLOR(YLW)
  18.      A                                 23 17'F8=Prompt w/80 as primary'
  19.      A                                      COLOR(YLW)
  20.      A                                  8  7'Test to show how a window with a p-
  21.      A                                      rimary display size of 132'
  22.      A                                  9  9'will overlay this one and one with-
  23.      A                                       a primary display size of 80'
  24.      A                                 10  9'will also overlay this one.' 
  25.  
  26. RPGLE:
  27.      H OPENOPT(*NOINZOFL) OPTION(*NODEBUGIO:*SRCSTMT)
  28.      H  DFTACTGRP(*NO) ACTGRP(*CALLER)
  29.  
  30.      FTST01AFM  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('4');
  48.            ENDIF;
  49.            IF *INKH;
  50.              CALLP TST02BRG('4');
  51.            ENDIF;
  52.  
  53.          ENDDO;
  54.  
  55.          *INLR = *ON;
  56.          RETURN;
  57.  
  58.       /END-FREE 
  59.  
© 2004-2019 by midrange.com generated in 0.005s valid xhtml & css