Getting screen name

[Kogan, Arthur]

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

------_=_NextPart_000_01BE7A3F.ADF03422
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Hi Zafir.

I do not think there is a way to do this (unless there is some new =
feature,
that I have missed), without loading the value into a variable.=20

As I mentioned before, we had to do this in every screen to create the
security mechanism.

The code we needed to add was:

temp SCREEN_NAME char*16 =3D "<screen name>"
use <use file containing definitions of designer files containing =
security
info>

procedure INITIALIZE
begin
   use <use file containing the code for checking security using =
SCREEN_NAME
and LOGONID>
end


We did this automatically using a UNIX script, which was made a part of =
our
compilation script. The script checked if the desired code already =
existed,
and if not, added it. Note: if procedure INITIALIZE did not exist, it
created one, if it was there (for other reasons), it just added the =
"use"
statetement.=20

Having the security added automatically at compilation, saved us having =
to
remember to put this code in. Having the SCREEN_NAME in every screen,
allowed us to use it for any other purposes.

Regards,

Arthur Kogan
Westpac Financial Services
Sydney, Australia

> -----Original Message-----
> From:	Zafrir_AMITAI@paribas.com [SMTP:Zafrir_AMITAI@paribas.com]
> Sent:	Tuesday, 30 March 1999 2:32 AM
> To:	powerh-l@lists.swau.edu
> Subject:	Getting screen name
>=20
>=20
>=20
> Hello
> Is anybody aware of a way to get the current screen name (as if you =
are
> using
> "I" in the action box) programaticaly in a quick
> program, without needing to load a Variable or a Temp ?
>=20
> We are using PH 7.29 on H.P
>=20
> Thanks,
>      Zafrir.
>=20
>=20
>=20
>=20
> =
------------------------------------------------------------------------=
--
> ---
> This message is confidential; its contents do not constitute a=20
> commitment by Paribas except where provided for in a written =
agreement=20
> between you and Paribas. Any unauthorised disclosure, use or=20
> dissemination, either whole or partial, is prohibited. If you are not =

> the intended recipient of the message, please notify the sender=20
> immediately.=20
>=20
> Ce message est confidentiel ; son contenu ne repr=E9sente en aucun =
cas un=20
> engagement de la part de Paribas sous r=E9serve de tout accord conclu =
par=20
> =E9crit entre vous et Paribas. Toute publication, utilisation ou=20
> diffusion, m=EAme partielle, doit =EAtre autoris=E9e pr=E9alablement. =
Si vous=20
> n'=EAtes pas destinataire de ce message, merci d'en avertir =
imm=E9diatement=20
> l'exp=E9diteur.
> =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =
=3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =
=3D =3D
> =3D
> Subscribe: "subscribe powerh-l" in message body to
> majordomo@lists.swau.edu
> Unsubscribe: "unsubscribe powerh-l" in message to =
majordomo@lists.swau.edu
> powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
> This list is closed, thus to post to the list, you must be a =
subscriber.

------_=_NextPart_000_01BE7A3F.ADF03422
Content-Type: application/ms-tnef
Content-Transfer-Encoding: base64

eJ8+IjcXAQaQCAAEAAAAAAABAAEAAQeQBgAIAAAA5AQAAAAAAADoAAEIgAcAGAAAAElQTS5NaWNy
b3NvZnQgTWFpbC5Ob3RlADEIAQSAAQAYAAAAUkU6IEdldHRpbmcgc2NyZWVuIG5hbWUAJAgBCYAB
ACEAAAAwQjUyQjFENzJGRTZEMjExODg1NDAwMDA4MzY4MzU2NwDZBgEggAMADgAAAM8HAwAeAAkA
NwA1AAIAbgEBBYADAA4AAADPBwMAHgAJADYAIQACAFkBAQ2ABAACAAAAAgACAAEDkAYAmAwAACsA
AAALAAIAAQAAAAMALgAAAAAAQAA5AEASg34/er4BHgBwAAEAAAAUAAAAR2V0dGluZyBzY3JlZW4g
bmFtZQACAXEAAQAAABsAAAABvnoCfMZzKuqh5ewR0p4gAAD2uPoRAA7CgbAAAgEJEAEAAAC4BwAA
tAcAAFkNAABMWkZ1pJdjRwMACgByY3BnMTI10jIA+zM2AeggAqQD4wkCAGNoCsBzZXQwHiAHEwKD
AFAQVnBycZoyEVZ9CoAIyCA7CW89DjA1FE8KYAKACoF1Y1sAUAsDYwBBC2BuDhAwBDMzC6YgSGkg
WuBhZmlyLgqiCoQKgIBJIGRvIG5vBUA0dGgLgGsawQSQZSCBBAAgYSB3YXkawA8acBphGtEEICh1
bmy3B5AEIBs3cwNwG3BuB9GQZmVhdAhwZSwawa0ekCAaQBDgdhtwbQQB/QmAKR7gA/Aa0AhgBUAJ
AJRhZAuAZxsiIHYHQP8KUBuAAjAacBvAIZAHIQJg7GUuCuMZxkEEIBpAB4DNAjBpAiAJgCBiARAF
sH0e0XcbcBDgJJAcKQuAIPplH5ByHAAE8QnhHBIm8a8ekBtwIVIREGMIcXQcAKcHgBDRAwBzbRl7
VCFhfwWgAQAlIh4wCYAkgSISZDMkkBvgczoZiifAbXABBgBDUkVFTl9OGEFNRSdwEOEqMTYgID0g
Ijwm5W5hKQeAPiIZhHURECA8/y/CGUAdACpRAjALcSESAQFnMPEkQgQgb2YxQQCQZ/8eMAXAMFIE
IDCpKDcLgAIQ5j4ZihKgb2MJgB6xH0AATklUSUFMSVq2RRmEJLBnC4EZkyA30H8vzzDWIVIqYyTR
LcEFkGs/M6s4ACESLRoAcCSQTE/0R082MEQ0tQnwCzEZqL0ZhFcbcCEAJYEckmEgoGsDcSRAYwdA
bDtmG8BV/TYwWCbSBSEgMRrgENArsv8fsCDwG3AbwAqxBUAyEQhh/ypRLOADEEAhAiBBdSLgKiL/
BPU6YySBBpAhQzJCFbEqVMsHQCeRZBwAZXgEACfA/mQe4DyiRkEakUhxK5BGEuVE4U4aoGU6RjI1
jzaR/z8zGpJIAx7gIGAndSSQJGHfTKEyIEzBQmIbNCg6IhqgfRtBICeRHeAAgCAhTMFqrzgABUBJ
VCFSIjgBIh3Q3wGQJ8AswSQhIuxIH4AhFr8oN0lUP9wfIUPZHuBzH4H/JJA4AB9iIRMacBWwB4AG
0PsyoRwhcCChHIMqYwuAIuDfUyktGiZdSHFAcG8lMFbj/xwhOAJMwToiAHAcAE8UWJCocnBvERBz
GXtSNzBZCxFzLCMLACBoQ6FLPm9f0DdlPxBIMAqwYyD2RguAAHBjBzEGUlNASrBXEKAZkwawZB4w
eR7gQf1QUXIHQAcwPf4LMGTwDzHPF5EBQEqBJ8BjdBHkLiG6LWfiTwUQN0FjAU0dEfhhZ2Vn4xmG
ZvRmwQsTwWb2aS0xNDQBQGTwuDE4MAFADNBrg2JigHcDYSvwDJJiEUAZIQUQckZfLZA2QEFJQAqx
aQpiK9AuQ9EgW1NN2FRQOm2vbrZdGYVssJcGYAIwbRdUClBzZBvwNR7gMxFATQrAQjExOaFz0CAy
OjMS0U1xRxxUb20XXpAlMHJoLXxsQGTwSDBe0APgP9AuYzXBcUh1YmpnIW0XR/8RICRAM7IuqGmP
appmRAzQnwHBF5EOUAu2Pg9IZVxB3xnlG6Fd0AbgR9FhG+AbYf8yERvHaRAasipBCHAVsAIw73k6
HMBCcUZBeQhgG7AbYfM7gxmEIklRcCZRIVIA0PNEQwbgeClKcgnALxBAJNM0UhuxcXUN4Gs1J4XS
3yA4KuJXZSDSG7FWInUyADddoUUALNI/Pl2DRyBQYEggNy4yc/BEYUjsLlApbABwa2AWN9E30Pdv
pBl7kC8KZ+OR75L/lA//lR9pSCogG5EHgWjyG4Iwof8ZQAEAJDERkUmhMxQkIQQg/xplMKFIMCBg
IKBC0hmEQ9HdH8B0JBIkoBwAUG6UR/H/SrAFMUIAG1JKgVNAKxI6Iv2Gk3cocZkhG7AJwpuDNsZ+
dCUwJyGDAzyxnAUi4EH/XdEc4D/RIIAFEB/xPzEE8P0JAHMeszgCBbEZhKKRERD3H8AvAFZEZSBh
MqFCAAbwf4ozQxIHMUyhBCBKgRrgYvcgYAmAIuBJgugakixlIWH/IfE9wSSBFbBi4EQAgZIyEf8h
UpclHuALUE+BqCMGkBwB/ygDqWGjpgdwB4AhACexQID9IuxDqqcmcFBhl9h+YBQwfx3RA6CY9IMg
HjBPYRKgXPgnZTmscSfBnsIXEBzg/ydwQnGy4T1mX9BpEJuDKoH/C2BDBCqBnAYd4FcBsdVjUP9G
khwRIKEA0AWhRxJi0ApAf0MCIvax8QUBTDECMBthdv+2AoDhoPd1EJpiWJACYEBB/1ZEIKADEAQA
RDSDEaPGASD7O4FWYm2x4YJSphN+YR7R/xpgTMG+MrmiP9KiMbHinTLvseIHQCKiUgRTGQC54xmE
/G4nv6MHkQqwmWFiIaSC/wtwG2EqgUqwqrgHgHOAGQD+ZLHwhqEmkSRAngGbQLHiy62Dn0lssfB4
cMb0J8D/CHAZdS5QyZ/Kr8u/zM/NM99jtXfQBPIksEowIqLwzsW/dbeEU5cmf2McIQDAareh7QNw
b3ZPGaJVAIDOuRzg/89v0HzRr3aedc921BuCX9C3J8Ab4U1ELRvlpyEu13P9Y0Eu2LaWeddyl5Oi
0UhS/2ERXMNekRqxHGK0oUxzgwJ+bVBS1SEbwNS3GWYTYQAB4oADAP0/UgMAAB4AQhABAAAAMQAA
ADw4MDI1Njc0My4wMDVBN0YzRi4wMEBsb25uMDAwMTAxLnVrLnBhcmliYXMuY29tPgAAAAALAACA
CCAGAAAAAADAAAAAAAAARgAAAAADhQAAAAAAAAMAB4AIIAYAAAAAAMAAAAAAAABGAAAAABCFAAAA
AAAAAwAjgAggBgAAAAAAwAAAAAAAAEYAAAAAUoUAAHQQAAAeACSACCAGAAAAAADAAAAAAAAARgAA
AABUhQAAAQAAAAUAAAA4LjAyAAAAAAMAD4AIIAYAAAAAAMAAAAAAAABGAAAAAAGFAAAAAAAACwAp
gAggBgAAAAAAwAAAAAAAAEYAAAAADoUAAAAAAAADAAyACCAGAAAAAADAAAAAAAAARgAAAAARhQAA
AAAAAAMAK4AIIAYAAAAAAMAAAAAAAABGAAAAABiFAAAAAAAAHgA6gAggBgAAAAAAwAAAAAAAAEYA
AAAANoUAAAEAAAABAAAAAAAAAB4AO4AIIAYAAAAAAMAAAAAAAABGAAAAADeFAAABAAAAAQAAAAAA
AAAeADyACCAGAAAAAADAAAAAAAAARgAAAAA4hQAAAQAAAAEAAAAAAAAAAwAmAAAAAAADADYAAAAA
AB4AMUABAAAADwAAAEtPR0FOQTREQ0I3ODM4AAADABpAAAAAAB4AMEABAAAADwAAAEtPR0FOQTRE
Q0I3ODM4AAADABlAAAAAAAMAgBD/////AgH5PwEAAABiAAAAAAAAANynQMjAQhAatLkIACsv4YIB
AAAABgAAAC9PPVdFU1RQQUMvT1U9V0JDL0NOPVJFQ0lQSUVOVFMvQ049TVNNQUlMIEFERFJFU1NF
Uy9DTj1LT0dBTkE0RENCNzgzOAAAAB4A+D8BAAAADgAAAEtvZ2FuLCBBcnRodXIAAAAeADhAAQAA
AA8AAABLT0dBTkE0RENCNzgzOAAAAgH7PwEAAABiAAAAAAAAANynQMjAQhAatLkIACsv4YIBAAAA
BgAAAC9PPVdFU1RQQUMvT1U9V0JDL0NOPVJFQ0lQSUVOVFMvQ049TVNNQUlMIEFERFJFU1NFUy9D
Tj1LT0dBTkE0RENCNzgzOAAAAB4A+j8BAAAADgAAAEtvZ2FuLCBBcnRodXIAAAAeADlAAQAAAA8A
AABLT0dBTkE0RENCNzgzOAAAQAAHMIC9WoY9er4BQAAIMCI08K0/er4BHgA9AAEAAAAFAAAAUkU6
IAAAAAAeAB0OAQAAABQAAABHZXR0aW5nIHNjcmVlbiBuYW1lAAsAKQAAAAAACwAjAAAAAAADAAYQ
4ojhxQMABxCECAAAAwAQEAAAAAADABEQAQAAAB4ACBABAAAAZQAAAEhJWkFGSVJJRE9OT1RUSElO
S1RIRVJFSVNBV0FZVE9ET1RISVMoVU5MRVNTVEhFUkVJU1NPTUVORVdGRUFUVVJFLFRIQVRJSEFW
RU1JU1NFRCksV0lUSE9VVExPQURJTkdUSEUAAAAAWpY=

------_=_NextPart_000_01BE7A3F.ADF03422--
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.