Hi all + bcc: Gil
Cross-Posted to TSO-REXX and ISPF-L
Here I imbed and attach the GP code for the message/abend subroutines I
use.
The attach *should* get to Gil (fingers-crossed/hålla-tummarna!) but
historically it won't get through the Notes/LISTSERV SWAT-border-patrols!
/*===================================================================*/
/* issue a message */
/*=TRY===============================================================>>
CALL SAYMSG "MSG TEST","ONE§TWO§THREE§FOUR§F½½½I½½½V½½½E";EXIT
>>-------------------------------------------------------------------*/
SAYMSG: PROCEDURE
PARSE ARG zedsmsg,lm
zedlmsg = ""
m = (SYSVAR("SYSISPF")SYSVAR("SYSENV")="ACTIVEFORE")
IF( m=0 )THEN SAY TRANSLATE(zedsmsg," ","½")
PARSE VALUE STRIP(lm,"T")"§" WITH ml"§"lm
DO WHILE( TRANSLATE(ml lm," ","§")<>"" )
IF( m=1 )THEN
zedlmsg = zedlmsg || LEFT(ml,((LENGTH(ml)+77)%77)*77)
ELSE
SAY TRANSLATE(ml," ","½")
PARSE VAR lm ml"§"lm
END
zedsmsg = TRANSLATE(zedsmsg," ","½")
zedlmsg = TRANSLATE(zedlmsg," ","½")
IF( m=1 )THEN
ADDRESS ISPEXEC "SETMSG MSG(ISRZ000)"
ELSE NOP
RETURN /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
/*===================================================================*/
/* controlled exit */
/*=TRY===============================================================>>
CALL ABEXIT "ERROR TEST","ONE§TWO§THREE§FOUR§F½½½I½½½V½½½E";EXIT
>>-------------------------------------------------------------------*/
ABEXIT: PROCEDURE ;TRACE "O"
cc = 8
IF( DATATYPE(ARG(1))="NUM" )THEN
PARSE ARG cc,sm,lm
ELSE
PARSE ARG sm,lm
CALL SAYMSG sm,lm
RETURN cc /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
<Attached>
[attachment "SAYMSG&ABEXIT.REX" deleted by Steve Coalbran/Sweden/IBM]
Rejected 1st pass!
</Attached>
/Steve
Såvida annat inte anges ovan: / Unless stated otherwise above:
IBM Svenska AB
Organisationsnummer: 556026-6883
Adress: 164 92 Stockholm
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
