RE: What do I need to set on a DSPF to overlay the calling programs screen?

Thank you

Darryl Freinkel
Telephone: 770.321.8562 Mobile: 678.355.8562

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Jean-Marc DUVAL
Sent: Tuesday, December 10, 2019 11:20 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: What do I need to set on a DSPF to overlay the calling programs screen?

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
--
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