Highlighted
Absent Member.
Absent Member.
228 views

[archive] screen section occurs

[Migrated content. Thread originally posted on 26 September 2008]

V 8.1
Is there an easy way to define an element in the screen section that occurs 10 times instead of defining 10 separate elements.

Ex: I want 10 text boxes:
The first one starts at line 5 col 10
The second at line 6 col 10, etc.
The last one ends is at line 14 col 10
0 Likes
2 Replies
Highlighted
Absent Member.
Absent Member.

RE: [archive] screen section occurs


       IDENTIFICATION               DIVISION.
       PROGRAM-ID.                  TEMPLATE.
       ENVIRONMENT                  DIVISION.
       CONFIGURATION                SECTION.
       SPECIAL-NAMES.
       WORKING-STORAGE SECTION.
       77  CNTL-FONT                USAGE HANDLE OF FONT SMALL-FONT.
       77  WS-DATA                  PIC X(10) OCCURS 10.
       SCREEN      SECTION.
       01  TEMPLATE-SCREEN.
           03      LABEL
               LINE 4
               COL  1
               TITLE            "Data:".
    03      OCCURS 10.
        05 ENTRY-FIELD
           LINE + 1
           COL 10
           USING         WS-DATA.
       
           03      PUSH-BUTTON
                   LINE             18
                   COL              63
                   SIZE             14
                   TITLE            "E&xit"
                   SELF-ACT
                   EXCEPTION-VALUE  = 27.
       PROCEDURE DIVISION.
       MAIN-LOGIC.
           DISPLAY STANDARD         GRAPHICAL WINDOW
                   TITLE            "Template"
                   CONTROL          FONT CNTL-FONT
                   SIZE             80
                   LINES            20
                   BACKGROUND-LOW.
           DISPLAY TEMPLATE-SCREEN.
           ACCEPT  TEMPLATE-SCREEN
           DESTROY TEMPLATE-SCREEN.
           STOP    RUN.

0 Likes
Highlighted
Absent Member.
Absent Member.

RE: [archive] screen section occurs

that works for me,
thank you
0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.