Skip to main content

[archive] screen section occurs

  • September 29, 2008
  • 4 replies
  • 0 views
D

[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

    4 replies

    D

    [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

           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.

    D

    [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

           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.

    D

    [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

           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.

    D

    [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
    that works for me,
    thank you
    1 Attachments

    Recent badge winners

    Explore all badges
    Terms & ConditionsAccessibility statement