Hi
Add an unused record with the assume keyword :
A REF(ZUTSQLV)
A R BIDON ASSUME
A 1 2' '
A R ZUTSQLW1 WINDOW(7 2 8 74 *NOMSGLIN)
A CF12
A WDWTITLE((*TEXT 'Saisie de variable-
A ') (*COLOR BLU) *TOP *CENTER)
A 1 1'Script'
A TSCRIPT 65 O 1 10
A 2 1'Variable'
A SQVVNAM R O 2 10
A TEXTE R O 3 1REFFLD(SQVTEXT)
A VALEUR R B 4 1REFFLD(SQVVAL)
A CNTFLD(74)
A 8 61'F12=Abandon'
A COLOR(BLU)
Cordialement,
Jean-Marc DUVAL
Pôle développement IT
Développeur IBM i consultant
+33 (0) 6 48 30 21 09
+33 (0) 2 34 59 52 91
-----Message d'origine-----
De : RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> De la part de dfreinkel@xxxxxxxxxxxxxxxxx
Envoyé : mardi 10 décembre 2019 17:07
À : 'RPG programming on IBM i' <rpg400-l@xxxxxxxxxxxxxxxxxx>
Objet : What do I need to set on a DSPF to overlay the calling programs screen?
[EXTERNAL MAIL]
My first display file in many years.
I have to add a prompt screen and program that is called from multiple programs. I created a separate display file and RPG program to prompt the user to enter initials. I used a window for this.
I am trying to get the window to overlay the calling program's screen so that the user can still see the data on the calling programs screen. When I call the window program, it completely blanks out the calling program's screen. How do I get it to retain the data on the screen?
I am sure I have done this in the past but cannot get it to work today.
Darryl Freinkel
Telephone: 770.321.8562 Mobile: 678.355.8562
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
midrange.com
