Rational Programming Patterns for System z

-GG Lines

You use these lines on a given Screen, Server, Dialog, or Server Dialog to override some of the values of the generated constants.

Error
This column displays a dot on all the existing description lines which are not empty.

Moreover, if this line is not correct, this column also displays an error or warning symbol, depending on the error gravity. A hover help indicates the source of the error.

Type
After clicking the Add button, you must select G to add an option line.
Description
You must enter two elements:
  • A left-aligned two-character code, according to the environment in use.
  • The new value, from the 21th position of the field.

Code list

  • 01: IMS

    Modification of the value of the TYPE parameter (terminal type) in the DEV macroinstruction of the MFS format description. (default value: TYPE=(3270,2)).

    Multiterminal Dialogs: The same description can be generated for different terminal types:
      Type  Description                     
      G     01 n                3270-A1 
      G     01 n                3270-A2 
    with n = 0-9
  • 02: IMS

    Modification of the value of the FILL parameter in the MFLD macroinstruction of the MOD. (default value: FILL=PT).

  • 03: All environments
    Modification of the external name of the help function display program. (default value: PACHELP).
    Note: This external name can be entered on the help screen definition. Therefore, this option must no longer be used.
  • 04: All environments

    Modification of the external name of the program which manages the accesses to the Pactables function. (default value: PACTABLE).

  • 05: GCOS7, GCOS7 FORMS

    Modification of the name of the Screen backup file when the help function is called: (default value: HE)

    DEC/VAX, ICL, IBM 36, IBM 38/AS 400, MICRO FOCUS, DM6 TP and BOS/TP:

    Modification of the name of the Screen backup file for help function calls. The new value must be coded as: XX EXTERN, where: XX is the name of the file and EXTERN is the external name of this file. Two blank characters must be inserted between these two names. (default value: HE SAVESCR).

  • 06: CICS

    Modification of the first four characters of the name of the TS used by the help function. (default value: PAC7).

  • 07: GCOS7

    Value used to replace blanks in the output messages. (default value: 19).

  • 08: GCOS7 FORMS

    Modification of the NORMAL value of the intensity attribute. (default value: SPACE).

  • 09: GCOS7 FORMS

    Modification of the BRIGHT value of the intensity attribute. (default value: BD).

  • 10: GCOS7 FORMS

    Modification of the DARK value of the intensity attribute. (default value: CN).

  • 11: CICS DL/1: HLPI

    Database lock shift (Y/N) when access with update. (default value: LOCKED).

  • 12: DEC/VAX, IBM CICS, GCOS7 and GCOS8 with the multiscreen type transaction variant, ICL, MICRO FOCUS, BOS/TP:

    Modification of the name of the subprogram called for message reception and formatting. (default value: ZAR980. For MICRO FOCUS: ZAR980.EXE in DOS, and ZAR980.DLL in OS/2, UNIX).

    For IBM CICS, ZAR980 corresponds to the user program PRUSER To replace the standard PRCGI, see parameter number 22.

    For Dialog web revamping, use the ZAR990 program which is the same as ZAR980 but with a web specificity.

  • 13: GCOS8

    Modification of the number of characters sent in each DISPLAY for the message display. (default value: 2000).

  • 14: DEC/VAX

    Modification of the number of characters sent in each message DISPLAY (when there are too many characters, another DISPLAY is run). (default value: 1000).

  • 15: IBM 36, IBM 38/AS 400

    External name of the display file. (default value: SCRFILE).

  • 16: CICS

    Option to write the TEMPORARY STORAGE in the AUXILIARY STORAGE instead of the MAIN STORAGE. (default value: MAIN)

  • 17: All environments

    Character string (11 characters maximum) for the help screen title. (default value: SPACE).

  • 18: ICL

    Name of the file used by the monitor in order to save the communication area.

    For a web connection, all environments except IMS: name of the context backup file. The new value must be coded as in parameter 05.
    Example: WE SAVEWEB, where WE corresponds to the name of the file in the program and, after two blank characters, SAVEWEB corresponds to the external name of the file
  • 19: IMS

    At the Dialog or submonitor level, for Screens using DB2 segments:

    For each DBRM: external name of the Screen (eight characters).

    The lines which include this parameter are grouped as comments at the beginning of the WORKING-STORAGE SECTION of the generated monitor or submonitor.

  • 20: IMS
    External name of the module which replaces the standard module (external name: CALL) in monitors and submonitors.
    Note: With COBOL II, if this parameter is not entered, a dynamic COBOL CALL is generated.
  • 21: IBM CICS, IBM 38/AS 400, UNISYS 2200, TANDEM, GCOS7 FORMS

    This parameter takes the values ARRAY or TABLE if a field is repeated horizontally and vertically on the screen. The logical message is initialized from the physical message, so that they match.

  • 22: IBM CICS

    For the multiterminal type variant, name of the subprogram which replaces the standard PRCGI subprogram (external name D4R980) that formats a 3270 type message.

  • 26: UNISYS 2200

    You can replace the default intensity attribute NORMAL with LOW, since some screens do not make any difference between the NORMAL and HIGH intensity values.

    The LOW attribute is therefore present in the generated map (form name) of the considered Screen, along with the other default label attributes, specified in the Dialog or Screen definition.

    The ATTRE option must be indicated in the Dialog Complement tab. With this option, the definition of the default attributes is generated for each Screen.

  • 27: IBM 38/AS 400
    Indicator number if there is an error on the first line of a repetitive category. On the next lines, the indicator is incremented by 1.
    Example: The indicator is set to 34. Each Data Element of the first line of the repetitive category is assigned the indicator 34. The Data Elements on the second line is assigned the indicator 35.
  • 28 IBM 38/AS 400
    Recognition of lowercase characters in the DDS of the Screen format in the CHGINPDFT (LC) clause.
    Note: The LC value must be typed in uppercase characters.
  • 29: TANDEM Requester

    Generation of the ESCAPE ON clause on the screen ACCEPT. (Default value = SPACE). The information specified for this parameter (up to 40 characters) will be added after the ESCAPE ON clause.

  • 30: TANDEM Requester

    Assignment of a function key for end of input when a PF key is not used as the operation code.

  • 31 CICS

    BMS map: modification of the parameters of the CTRL option contained in the definition of the map set (DFHMSD).

    By default, the generation is: CTRL=(FREEKB,FRSET).

    The modified parameters are parenthesized instead of FREEKB,FRSET.

  • 32: UNISYS-A

    Insertion of working descriptions between the I-O-MESSAGE area and the other areas of the LINKAGE SECTION

    To do so, you must indicate the location of the Dialog LINKAGE SECTION description. This description is generated by default from line 00001 onwards. The first two digits of this line number can now be parameterized.

  • 33: BULL

    Loading of the key of the backup file for the help function.

    By default, the key is loaded from the terminal code defined in the TRANSACTION-STORAGE. To parameterize the key loading, the parameter 33 is associated with the DATA DIVISION in which the key is initialized (for example USER-ID defined in the TDS-STORAGE).

    You must therefore code:
             33               USER-ID   

    The name of this field is limited to 14 characters. The default value of this parameter is XTERM and the key loading is performed from the K-Sscre-XTERM field.

  • 34: WEB CONNECTION, MICRO FOCUS, TANDEM, AS400 and UNISYS, format nnnn (0100 by default)

    Parameter which indicates the size of the backup file of the Dialog common area.

  • 35: all environment for a web connection

    Length of the logical message (five characters). The default value of this parameter is 14000. It does not include the length of the constant part of the message.

  • 36: Communication type
    • Communication for CICS:
      • ECI: the generated communication monitor (default value)
      • CPIC: CPIC LU 6.2 communication.
      • SOCKET: TCP/IP
      • WebSphere MQ
    • Communication for IMS
      • CPIC: default value
      • WebSphere MQ
    • Communication for GCOS7 and GCOS8
      • XCP2: default value
      • TCPTDS (for WEB GCOS7): TCP/IP access TDS
    • Communication for MICRO FOCUS, TANDEM and UNISYS
      • SOCKET: TCP/IP, default value
  • 37: Length of the communication buffer
    • CICS and IMS WebSphere MQ: 14200 as the default value for WebSphere MQ
    • CICS SOCKET: 02048 as the default value
    • GCOS7 XCP2 and GCOS8 XCP2: 4092 as the default value
    • TANDEM SOCKET: 14200 as the default value
    • WEB GCOS7 TCPTDS: 14200 as the default value
  • 38: Timeout
    Maximum waiting time for a client communication (format: nnnn) in seconds.
    • CICS
      • SOCKET:1800 as the default value
    • CICS, IMS
      • WebSphere MQ: unlimited as the default value.
  • 39: UNISYS

    Name of the Dialog context backup file.

    Format: 40 characters long

  • 40: TANDEM/PATHWAY

    Name of the TANDEM process

    Format: 20 characters long

IMS: generation of a PSB for each submonitor

In order to implement this option, you must specify SSMON in the Options field of the Dialog Complement tab.

In order to generate a PSB for each submonitor (as opposed to a general PSB for the whole Dialog), you must enter a G-type line in each submonitor with:
  • PSB= left-aligned in the Description field,
  • The PSB code, from position 21 of the Description field.
This line must be the first line in the -GG Lines.
Note: Each Screen must belong to only one submonitor.

Terms of use | Feedback

This information center is powered by Eclipse technology. (http://www.eclipse.org)