Home > Archive > Cobol > April 2004 > Micro Focus Screen section
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
| Author |
Micro Focus Screen section
|
|
|
| Hi
I have a Micro Focus screen section, but no MF Compiler. I need a screen
shot of this screen section. The source in which the screen section is
copied, is also not available.
Can someone provide me a screen shot of this screen section?
Here is the code of the screen section:
01 SCH1.
10 BLANK SCREEN.
10 LINE 1 COL 2 PIC X(20) FROM EK330-NAAMO.
10 LINE 1 COL 24 VALUE "Drukken etiketten - ".
10 VALUE "Levering".
10 LINE 1 COL 73 PIC 99/99/99 FROM WS-UDATEA.
10 LINE 2 COL 2 PIC X(20) FROM EK330-GEMTE.
10 LINE 2 COL 24 VALUE "------------------------".
10 VALUE "----".
10 LINE 2 COL 75 VALUE "AK6150".
10 LINE 3 COL 2 PIC X(8) FROM VOLLD OF WS-SCHERM.
10 LINE 4 COL 5 VALUE "Laadprogramma".
10 LINE 4 COL 32 VALUE "Transportnr".
10 LINE 5 COL 5 VALUE "Leverancier" UNDERLINE.
10 LINE 5 COL 19 VALUE "Intern" UNDERLINE.
10 LINE 5 COL 32 VALUE "Leverancier" UNDERLINE.
10 LINE 5 COL 46 VALUE "Intern" UNDERLINE.
10 LINE OCCURS 15 TIMES.
15 COL 1 VALUE " ".
15 COL 2 PIC ZZ FROM LIJNR OF WS-LIJN-LP
OF WS-SCHERM.
15 COL 5 PIC X(13) FROM LPNUM13 OF WS-LIJN-LP
OF WS-SCHERM.
15 COL 19 PIC X(11) FROM LPNIN OF WS-LIJN-LP
OF WS-SCHERM.
15 COL 32 PIC X(11) FROM VVMIL OF WS-LIJN-LP
OF WS-SCHERM.
15 COL 46 PIC X(11) FROM VVMID OF WS-LIJN-LP
OF WS-SCHERM.
10 LINE 21 COL 2 VALUE "Selectie : ".
10 LINE 21 COL 14 PIC ZZ USING SELEK OF WS-SCHERM.
10 LINE 21 COL 18 VALUE "LP-nr lever. : ".
10 LINE 21 COL 33 PIC X(9) USING LPNLE OF WS-SCHERM.
10 LINE 22 COL 1 VALUE " F1 Herbeginnen F2 Etiketten ".
10 VALUE "Laadprogr. F3 Etiketten transport".
10 LINE 23 COL 1 VALUE " F4 Detail F7 Einde".
10 LINE 24 COL 2 PIC X(78) FROM MESSG OF WS-SCHERM
BLINK.
****************************************
**************************
--
Rgds
kme
e-mail: kme _NOSPAM_ @pandora.be
| |
|
| "James J. Gavan" <jjgavan@shaw.ca> schreef in
news:STAjc.290138$oR5.253612@pd7tw3no:
> Sorry, but you are SOL. In addition to the screen layout, in order to
> compile, (before we could give a screenshot), we *would* need the
> source of those fields in files or W/S which are being used with the
> "FROM" or "USING" syntax..
Ok, I found a copy book with most of the fields. I added the last 2
myself:
01 CURSOR-POS.
05 CURSOR-LINE PIC 99.
05 CURSOR-COL PIC 99.
*
01 WS-UDATE.
05 JAARC PIC 9(2).
05 MAAND PIC 9(2).
05 DAGEN PIC 9(2).
01 WS-UDATEA.
05 DAGEN PIC 9(2).
05 FILLER PIC X VALUE "/".
05 MAAND PIC 9(2).
05 FILLER PIC X VALUE "/".
05 JAARC PIC 9(2).
*
01 WS.
05 FTBNR PIC 9(4).
05 DATUMP PIC 9(6).
05 TIJDSP PIC 9(8).
05 DATUM PIC 9(6).
05 TIJDS PIC 9(8).
05 SCRNO PIC 99.
05 W2A PIC 99.
05 W2B PIC 99.
05 W2C PIC 99.
05 W3A PIC 999.
05 W3B PIC 999.
05 FKEY PIC 99.
05 LIJN PIC 9(2).
05 LPNUM.
10 WA5A PIC X(5).
10 WA2A PIC X(2).
10 WA4A PIC X(4).
05 LPNUM1.
10 WA5A PIC X(5).
10 WA2A PIC X(2).
10 WA4A PIC X(4).
05 LPNUM2.
10 WA5A PIC X(5).
10 WA2A PIC X(2).
10 WA4A PIC X(4).
05 LPNIN PIC X(11).
05 VVMID PIC X(11).
05 VVMIL PIC X(11).
05 SERNR PIC X(9).
05 TABEL OCCURS 200 TIMES.
10 COLLI PIC X(9).
*
05 WS-TIJDS26.
10 EEUW PIC 99.
10 JAARC PIC 99.
10 WA1A PIC X.
10 MAAND PIC 99.
10 WA1B PIC X.
10 DAGEN PIC 99.
10 WA1C PIC X.
10 UUR PIC 99.
10 WA1D PIC X.
10 MIN PIC 99.
10 WA1E PIC X.
10 SEC PIC 99.
10 WA1F PIC X.
10 HSEC PIC 99.
10 W4 PIC 9999 VALUE 0.
05 WS-UTIME.
10 UUR PIC 9(2).
10 MIN PIC 9(2).
10 SEC PIC 9(2).
10 HSEC PIC 9(2).
*
01 WS-SCHERM.
05 MESSG PIC X(78).
05 VOLLD PIC X(8).
05 DUMMY PIC X.
05 LPNLE PIC X(9).
05 LPNUMA.
10 WA5A PIC X(5).
10 WA2A PIC X(2).
10 WA4A PIC X(4).
05 SELEK PIC 99.
05 WS-LIJN-LP OCCURS 15 TIMES.
10 LIJNR PIC 9(2).
10 LPNUM PIC X(11).
10 LPNUM13.
15 WA5A PIC X(5).
15 WA1A PIC X(1).
15 WA2A PIC X(2).
15 WA1B PIC X(1).
15 WA4A PIC X(4).
10 LPNIN PIC X(11).
10 VVMIL PIC X(11).
10 VVMID PIC X(11).
05 WS-LIJN-DETAIL OCCURS 15 TIMES.
10 LIJNR PIC 9(2).
10 COLLI PIC X(9).
10 RFLEV PIC X(15).
10 SERNR PIC X(9).
10 GEWHT PIC 9(5).
10 DIKTE05 PIC 99V999.
10 BRDTE PIC 9(4)V9.
*
01 COMM-AREA-DRUK.
03 CMNDL PIC X(25).
03 FILLER PIC X VALUE SPACE.
03 QUOTE1 PIC X VALUE "'".
03 SERNR PIC X(9).
03 FILLER PIC X VALUE SPACE.
03 VERPL PIC X(5).
03 FILLER PIC X VALUE SPACE.
03 MSSGE PIC X(78).
03 QUOTE2 PIC X VALUE "'".
03 FILLER PIC X VALUE LOW-VALUES.
*
01 SWITCHES.
05 EK329-EOF-SW PIC X .
88 EK329-EOF VALUE "J".
88 EK329-NEOF VALUE "N".
05 EK331-EOF-SW PIC X .
88 EK331-EOF VALUE "J".
88 EK331-NEOF VALUE "N".
05 JUIST-SW PIC X .
88 JUIST VALUE "J".
* SELF CREATED
01 EK330-NAAMO PIC X(20).
01 EK330-GEMTE PIC X(20).
I hope it is possible to generate the screen with this information.
--
regards,
kme
e-mail: kme _NOSPAM_ @pandora.be
| |
| James J. Gavan 2004-04-29, 10:33 pm |
| kme wrote:
>"James J. Gavan" <jjgavan@shaw.ca> schreef in
>news:STAjc.290138$oR5.253612@pd7tw3no:
>
>
>
>
>Ok, I found a copy book with most of the fields. I added the last 2
>myself:
>
>
>
To be blunt Herr KME - don't be lazy ! Do what I originally suggested -
type the format into a Text Editor - you will get there much quicker
than somebody writing a FREEBIE program !!!!!!
I'll give you the benefit of the doubt, that you know nothing about
Screen Section and possibly want to convert it to a Windows Dialog. I
*have* compiled but the resulting screenshot is useless for you.
To explain :-
Look at the format of the Screen Section. It uses Lines 1 through 5 to
produce a 'Header block' and Lines
21 - 24 to produce the bottom block. That's all you get, even after I
initialize fields for numerics and alpha. What you are missing is the
data-lines - information in Lines 6 through 20. Look at the LINE OCCURS
15 TIMES below :-
10 LINE 5 COL 19 VALUE "Intern" UNDERLINE.
10 LINE 5 COL 32 VALUE "Leverancier" UNDERLINE.
10 LINE 5 COL 46 VALUE "Intern" UNDERLINE.
10 LINE OCCURS 15 TIMES.
<------------*************
15 COL 1 VALUE " ".
15 COL 2 PIC ZZ FROM LIJNR OF WS-LIJN-LP
OF WS-SCHERM.
15 COL 5 PIC X(13) FROM LPNUM13 OF WS-LIJN-LP
OF WS-SCHERM.
15 COL 19 PIC X(11) FROM LPNIN OF WS-LIJN-LP
OF WS-SCHERM.
15 COL 32 PIC X(11) FROM VVMIL OF WS-LIJN-LP
OF WS-SCHERM.
15 COL 46 PIC X(11) FROM VVMID OF WS-LIJN-LP
OF WS-SCHERM.
10 LINE 21 COL 2 VALUE "Selectie : ".
10 LINE 21 COL 14 PIC ZZ USING SELEK OF WS-SCHERM.
If I go back to Working Storage I find that WS-LIJN-LP and
WS-LIJN-DETAIL both have OCCURS 15 - so the
original programmer was putting data into those fields so that the 15
lines could be displayed. As I said above you can work that out typing
up a dummy screen - much*faster* than somebody figuring out what you need.
Seeing as the topic of outsourcing has recently been a thread - that
will be 30 bucks for 30 minutes work - in US $'s of course ! Don't mind
Euros - so long as they get converted to Yankee rather than Canuck
dollars :-)
I'm not being facetious - it will be much quicker if you figure it out
by typing in a sample.
Jimmy, Calgary AB
| |
| Richard 2004-04-29, 10:33 pm |
| kme <xzr@cnaqben.or.ROT13.invalid> wrote
> Can someone provide me a screen shot of this screen section?
It would take you about 5 minutes to do this manually. Take a piece of
paper, preferably a 'screen layout sheet' or a 'Cobol coding sheet' or
a piece of graph paper.
> 10 BLANK SCREEN.
Start with the paper blank.
> 10 LINE 1 COL 2 PIC X(20) FROM EK330-NAAMO.
On the first line leave one character blank and write down the
contents of the field EK330-NAAMO which may be the name of the program
or similar.
> 10 LINE 1 COL 24 VALUE "Drukken etiketten - ".
At the 24th character postion put in that literal value.
> 10 VALUE "Levering".
followed by that one.
> 10 LINE 1 COL 73 PIC 99/99/99 FROM WS-UDATEA.
etc.
> 10 LINE 2 COL 2 PIC X(20) FROM EK330-GEMTE.
on the second line ....
> 10 LINE 2 COL 24 VALUE "------------------------".
> 10 VALUE "----".
> 10 LINE 2 COL 75 VALUE "AK6150".
> 10 LINE 3 COL 2 PIC X(8) FROM VOLLD OF WS-SCHERM.
> 10 LINE 4 COL 5 VALUE "Laadprogramma".
> 10 LINE 4 COL 32 VALUE "Transportnr".
> 10 LINE 5 COL 5 VALUE "Leverancier" UNDERLINE.
> 10 LINE 5 COL 19 VALUE "Intern" UNDERLINE.
> 10 LINE 5 COL 32 VALUE "Leverancier" UNDERLINE.
> 10 LINE 5 COL 46 VALUE "Intern" UNDERLINE.
> 10 LINE OCCURS 15 TIMES.
> 15 COL 1 VALUE " ".
> 15 COL 2 PIC ZZ FROM LIJNR OF WS-LIJN-LP
> OF WS-SCHERM.
> 15 COL 5 PIC X(13) FROM LPNUM13 OF WS-LIJN-LP
> OF WS-SCHERM.
> 15 COL 19 PIC X(11) FROM LPNIN OF WS-LIJN-LP
> OF WS-SCHERM.
> 15 COL 32 PIC X(11) FROM VVMIL OF WS-LIJN-LP
> OF WS-SCHERM.
> 15 COL 46 PIC X(11) FROM VVMID OF WS-LIJN-LP
> OF WS-SCHERM.
> 10 LINE 21 COL 2 VALUE "Selectie : ".
> 10 LINE 21 COL 14 PIC ZZ USING SELEK OF WS-SCHERM.
> 10 LINE 21 COL 18 VALUE "LP-nr lever. : ".
> 10 LINE 21 COL 33 PIC X(9) USING LPNLE OF WS-SCHERM.
> 10 LINE 22 COL 1 VALUE " F1 Herbeginnen F2 Etiketten ".
> 10 VALUE "Laadprogr. F3 Etiketten transport".
> 10 LINE 23 COL 1 VALUE " F4 Detail F7 Einde".
> 10 LINE 24 COL 2 PIC X(78) FROM MESSG OF WS-SCHERM
> BLINK.
Just getting us to dump this into a program, displaying it and sending
you a screen dump won't help you _understand_ what the screen does.
For example it is likely that the result will be blank between lines 6
and 20 where the data goes.
| |
| James J. Gavan 2004-04-29, 10:33 pm |
| Richard wrote:
>Just getting us to dump this into a program, displaying it and sending
>you a screen dump won't help you _understand_ what the screen does.
>For example it is likely that the result will be blank between lines 6
>and 20 where the data goes.
>
>
Having done it those bloody lines are BLANKS - and like you I'm not
sitting down and dreaming up
test data.
Jimmy
| |
| James J. Gavan 2004-04-29, 10:33 pm |
| kme wrote:
>Hi
>
>I have a Micro Focus screen section, but no MF Compiler. I need a screen
>shot of this screen section. The source in which the screen section is
>copied, is also not available.
>
>Can someone provide me a screen shot of this screen section?
>
>Here is the code of the screen section:
>
>
Sorry, but you are SOL. In addition to the screen layout, in order to
compile, (before we could give a screenshot), we *would* need the
source of those fields in files or W/S which are being used with the
"FROM" or "USING" syntax..
Not a big screen, so not too laborious. Either use an old Screen Pad
with an 80 x 25 table, or alternatively a flexible
editor :-
Mark first two lines in editor :-
..........1.........2.........3.........4
..........0.........0.........0.........0 etc.....
Now type in your Screen fields using the Line and Column positioning,
plus field sizes. The result should give you a
pretty good idea..
> 01 SCH1.
> 10 BLANK SCREEN.
> 10 LINE 1 COL 2 PIC X(20) FROM EK330-NAAMO.
> 10 LINE 1 COL 24 VALUE "Drukken etiketten - ".
> 10 VALUE "Levering".
> 10 LINE 1 COL 73 PIC 99/99/99 FROM WS-UDATEA.
> 10 LINE 2 COL 2 PIC X(20) FROM EK330-GEMTE.
> 10 LINE 2 COL 24 VALUE "------------------------".
> 10 VALUE "----".
> 10 LINE 2 COL 75 VALUE "AK6150".
> 10 LINE 3 COL 2 PIC X(8) FROM VOLLD OF WS-SCHERM.
> 10 LINE 4 COL 5 VALUE "Laadprogramma".
> 10 LINE 4 COL 32 VALUE "Transportnr".
> 10 LINE 5 COL 5 VALUE "Leverancier" UNDERLINE.
> 10 LINE 5 COL 19 VALUE "Intern" UNDERLINE.
> 10 LINE 5 COL 32 VALUE "Leverancier" UNDERLINE.
> 10 LINE 5 COL 46 VALUE "Intern" UNDERLINE.
> 10 LINE OCCURS 15 TIMES.
> 15 COL 1 VALUE " ".
> 15 COL 2 PIC ZZ FROM LIJNR OF WS-LIJN-LP
> OF WS-SCHERM.
> 15 COL 5 PIC X(13) FROM LPNUM13 OF WS-LIJN-LP
> OF WS-SCHERM.
> 15 COL 19 PIC X(11) FROM LPNIN OF WS-LIJN-LP
> OF WS-SCHERM.
> 15 COL 32 PIC X(11) FROM VVMIL OF WS-LIJN-LP
> OF WS-SCHERM.
> 15 COL 46 PIC X(11) FROM VVMID OF WS-LIJN-LP
> OF WS-SCHERM.
> 10 LINE 21 COL 2 VALUE "Selectie : ".
> 10 LINE 21 COL 14 PIC ZZ USING SELEK OF WS-SCHERM.
> 10 LINE 21 COL 18 VALUE "LP-nr lever. : ".
> 10 LINE 21 COL 33 PIC X(9) USING LPNLE OF WS-SCHERM.
> 10 LINE 22 COL 1 VALUE " F1 Herbeginnen F2 Etiketten ".
> 10 VALUE "Laadprogr. F3 Etiketten transport".
> 10 LINE 23 COL 1 VALUE " F4 Detail F7 Einde".
> 10 LINE 24 COL 2 PIC X(78) FROM MESSG OF WS-SCHERM
> BLINK.
> ****************************************
**************************
>
>
>
| |
|
| "James J. Gavan" <jjgavan@shaw.ca> schreef in
news:73fkc.313938$oR5.275447@pd7tw3no:
> To be blunt Herr KME - don't be lazy ! Do what I originally suggested
> - type the format into a Text Editor - you will get there much
> quicker than somebody writing a FREEBIE program !!!!!!
>
> I'll give you the benefit of the doubt, that you know nothing about
> Screen Section and possibly want to convert it to a Windows Dialog. I
> *have* compiled but the resulting screenshot is useless for you.
Well, I'm not lazy at all and I do know a little about a screen section.
The screenshot is not useless for me. I don't need data on the screen.
Just the headers on the screen is more than enough. Indeed I need it in a
conversion study for school. But I only need to convert the screen section
to a web form. The program's logic and data is not important.
I think I did not express myself clearly in the previous post.
I would be very happy if you send me a screen shot of this basic screen.
--
regards,
kme
e-mail: kme _NOSPAM_ @pandora.be
|
|
|
|
|