[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[open-cobol-list] How to use Multi-Line DISPLAY/ACCEPT with OCCURS n TIM
From: |
Veit Heise |
Subject: |
[open-cobol-list] How to use Multi-Line DISPLAY/ACCEPT with OCCURS n TIMES clause in SCREEN SECTION |
Date: |
Mon, 16 Sep 2013 12:43:31 +0200 |
User-agent: |
Mozilla/5.0 (X11; Linux i686; rv:17.0) Gecko/20130803 Thunderbird/17.0.8 |
Hello,
is there a way to use the OCCURS <n> TIMES clause in the SCREEN SECTION
to produce a multi-line output/input-Mask??
I mentioned that it have to look like
working-storage section.
01 zellen-array.
03 zellen-zeile occurs 25 times indexed by idx1.
05 zelle pic x(20).
screen section.
01 seite1.
03 line 1 col 1 erase eos.
03 line 2 col 40 value "This is a Test!".
03 line 3 col 1 value " ".
03 zeile1 occurs 25 times.
05 auto-skip line plus 1 col 3 value "[".
05 xfeld pic x(20) using zelle(idx1).
05 value "]".
procedure division.
start-program.
display seite1.
accept seite1.
goback.
But, unlucky, it produces only ONE line with the first cell...
How to use and how to make it better?
Thankyou
Veit Heise
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [open-cobol-list] How to use Multi-Line DISPLAY/ACCEPT with OCCURS n TIMES clause in SCREEN SECTION,
Veit Heise <=