Robert, here is my code:-
Report_TSO_Logon_Parameters:Procedure Expose gda_parm. ,
gda_parm_cnt
Address TSO
msg_value = 'MSG'("OFF")
ASXBPTR = storage(224,4)
ASXB = storage(d2x(c2d(ASXBPTR)+108),4)
LWA = storage(d2x(c2d(ASXB)+20),4)
lwalrgn = C2d(Strip(storage(d2x(c2d(LWA)+180),4)))
lwalpgn = C2d(Strip(storage(d2x(c2d(LWA)+184),2)))
If lwalpgn = 0 Then lwalpgn = " "
lwalgcmd = Strip(storage(d2x(c2d(LWA)+186),80))
lwalacct = Strip(storage(d2x(c2d(LWA)+400),40))
lwalproc = Strip(storage(d2x(c2d(LWA)+440),8))
lwaflag1 = C2x(Strip(storage(d2x(c2d(LWA)+448),1)))
gda_parm_cnt = gda_parm_cnt + 1
gda_parm.gda_parm_cnt = "*"
gda_parm_cnt = gda_parm_cnt + 1
gda_parm.gda_parm_cnt = "* TSO/E LOGON parameters"
gda_parm_cnt = gda_parm_cnt + 1
gda_parm.gda_parm_cnt = "*"
gda_parm_cnt = gda_parm_cnt + 1
gda_parm.gda_parm_cnt = "* Procedure ===> " ,
|| lwalproc
gda_parm_cnt = gda_parm_cnt + 1
gda_parm.gda_parm_cnt = "*"
gda_parm_cnt = gda_parm_cnt + 1
gda_parm.gda_parm_cnt = "* Acct Nmbr ===> " ,
|| lwalacct
gda_parm_cnt = gda_parm_cnt + 1
gda_parm.gda_parm_cnt = "*"
gda_parm_cnt = gda_parm_cnt + 1
gda_parm.gda_parm_cnt = "* Size ===> " ,
|| lwalrgn
gda_parm_cnt = gda_parm_cnt + 1
gda_parm.gda_parm_cnt = "*"
gda_parm_cnt = gda_parm_cnt + 1
gda_parm.gda_parm_cnt = "* Perform ===> " ,
|| lwalpgn
gda_parm_cnt = gda_parm_cnt + 1
gda_parm.gda_parm_cnt = "*"
gda_parm_cnt = gda_parm_cnt + 1
gda_parm.gda_parm_cnt = "* Command ===> " ,
|| Left(lwalgcmd,61)
If Length(lwalgcmd) > 61 Then Do
gda_parm_cnt = gda_parm_cnt + 1
gda_parm.gda_parm_cnt = "*" ,
|| Substr(lwalgcmd,62)
End
gda_parm_cnt = gda_parm_cnt + 1
gda_parm.gda_parm_cnt = "*"
msg_value = 'MSG'(msg_value)
Return
/*-------------------------------------------------------------------*/ Regards Bruce ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
