Hi Paul I use a couple of subroutines :- /*===================================================================*/ /* issue a message */ /*=TRY===============================================================>> CALL SAYMSG "MSG TEST","ONE§TWO§THREE§FOUR§F½½½I½½½V½½½E";EXIT >>-------------------------------------------------------------------*/ SAYMSG: PROCEDURE PARSE ARG zedsmsg,lm zedlmsg = "" PARSE VALUE STRIP(lm,"T")"§" WITH ml"§"lm DO WHILE( TRANSLATE(ml lm," ","§")<>"" ) zedlmsg = zedlmsg !! LEFT(ml,((LENGTH(ml)+77)%77)*77) PARSE VAR lm ml"§"lm END zedsmsg = TRANSLATE(zedsmsg," ","½") zedlmsg = TRANSLATE(zedlmsg," ","½") ADDRESS ISPEXEC "SETMSG MSG(ISRZ000)" 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 /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
NOTE: In these... § is a paragraph-mark so forces a newline in the long-message block. ½ is a required-blank "TRY" is a testing EditMacro I wrote which executes ONLY selected, non-excluded lines. From: Paul Gilmartin <[email protected]> To: [email protected] Date: 2015-07-28 15:00 Subject: Re: Submit job without messages Sent by: IBM Mainframe Discussion List <[email protected]> On Tue, 28 Jul 2015 14:26:48 +0200, Steve Coalbran wrote: >CALL OUTTRAP "M." >ADDRESS TSO "SUBMIT" jcljob /* "jcljob" is tso format dataset name of a >single JCL job */ >CALL OUTTRAP "OFF" >PARSE VAR m.1 jobname "(" jobid ")" qsub . >IF( qsub<>"SUBMITTED" )THEN SIGNAL SUBMITERROR > >Then you can do what you will with the message details. > Thanks. I'm not very proficient, but I've fallen into the habit of something like: ... ZEDLMSG = m.1 if qsub=='SUBMITTED' then ZEDSMSG = jobid 'submitted; else ZEDSMSG = "Submit failed" signal off Error Trace Off address 'ISPEXEC' 'SETMSG MSG(ISRZ000)' if RC<>0 then say ZEDLMSG /* Panic if ISPF unavailable. */ IF( qsub<>"SUBMITTED" )THEN SIGNAL SUBMITERROR -- gil ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN 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
