Posted: Wed Dec 28, 2005 10:03 am Post subject: how to create a welcome Banner message while logon?
hi,
just i want to display a welcome message while i logon to the mainframe system.To be appropriate like BANNER msg in UNIX.I tried with the rexx command SAY "welcome msg".But how to increase the Font size?i tried adding the SAY command in a PS which will be executed when i logon to the system.the ps consists of tso and rexx commands.
/* REXX BLOX create block letters from an input string.
for each of eight lines
for each letter in string
get pattern for letter
get sub-pattern for this line
build slug
attach to line
write the line
Written by Frank Clarke, Oldsmar, FL
*/
address TSO
signal on syntax
tv="" ; odsn="" /* ensure values */
sav = ""
parse upper arg instr "((" parms /* get parameters */
if instr="" & parms="" then call HELP /* no parms at all */
parms = Strip(parms,T,")") /* clip trailing paren */
parse value KEYWD("TRACE") "O" with tv .
odsn = KEYWD("OUTPUT") /* output to file ? */
if Pos("(",odsn) > 0 then, /* has a left banana */
if Pos(")",odsn) = 0 then, /* but no right banana */
odsn = Space(odsn")",0) /* add one */
if odsn <> "" then do /* was a value */
"ALLOC FI(BLOXDD) DA("odsn") SHR REU"
if rc > 0 then do /* doesn't exist ? */
"ALLOC FI(BLOXDD) DA("odsn") NEW REU SPACE(1) TRACKS",
" RECFM(V B) LRECL(121) BLKSIZE(1210) UNIT(SYSDA)"
if rc > 0 then do /* ...and couldn't create it! */
say "Allocation failed for "odsn"."
exit
end /* alloc NEW */
end /* alloc SHR */
end /* alloc dataset */
else "ALLOC FI(BLOXDD) DA(*) SHR REU" /* to the terminal */
call SET_PATN /* -*/
if tv = "O" then "CLEAR" /* clear screen */
if instr = "" then do /* no input ? */
say ":" /* initial prompt */
"NEWSTACK"
pull instr
"DELSTACK"
end
do forever
do while instr <> ""
if length(instr) > 8 then do /* too long */
parse var instr instr 9 sav /* save the excess */
end
do i = 1 to 7 /* for 7 lines */
outline="" /* clear it */
do j = 1 to Length(instr) /* for each letter */
ltr = Substr(instr,j,1) /* isolate it */
ltrpos = Pos(ltr,choices) /* where in the array ? */
if ltrpos = 0 then ltrpos = 47 /* set to blank */
byte = Substr(patn.ltrpos,i*2-1,2)
if diagnose then say ltr byte X2B(byte)
slug = X2B(byte) /* character-to-binary */
slug = Translate(slug," ","0") /* off -> blank */
slug = Translate(slug,ltr,"1") /* on -> letter */
outline = outline slug /* splice to the line */
end /* j for length(instr) */
queue outline /* into the queue */
end /* i for 7 lines */
instr = ""
queue " " /* blank line */
queue " " /* blank line */
rc = Trace("O")
rc = Trace(tv)
if sav <> "" then do /* was there excess ? */
instr = sav /* restore it */
sav = "" /* indicate "no excess" */
end
end /* while instr filled */
if prompt then,
if instr = "" then do /* no more input ? */
say ":" /* prompt for more */
"NEWSTACK"
pull instr
"DELSTACK"
end
if instr = "" then leave /* prompt was refused */
end /* forever */
thanks bill and superk,
i tried what bill dennis has said.It worked fine.
I created a ps and i typed the welcome msg as bill said and save it.
and our shop contains a rexx ps which will be executed when we login.
so i added the below code to that ps which contains the rexx code and it worked fine.
"alloc da('ps which contains welcome msg') f(infile) old reuse"
"execio diskr * infile(finis stem myvar."
do i = 1 to myvar.0
say myvar.i
end
"free f(infile)"
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
