MVS Jan 2005.p65 - CBT Tape

msgm = msgm + 1
if length(message) > 55 then
messst = lastpos(' ',message,55)
if messst > Ø then
messseg = substr(message,1,messst)
else
messseg = substr(message,1,length(message))
msgline.msgm = date() time() 'CONT:' strip(messseg)
message = strip(delstr(message,1,length(messseg)))
end
end
else
/*********************************************************************/
/* Build print lines. Default strips and prefixes date and timestamp */
/* @BLANK - Blank line, no date and timestamp */
/* @ - No stripping, retains leading blanks */
/* @@ - No stripping, No date and timestamp */
/*********************************************************************/
do
select
when message = '@BLANK@' then msgline.msgm = ' '
when word(message,1) = '@' then
do
message = substr(message,2,length(message)-1)
msgline.msgm = date() time() message
end
when substr(message,1,2) = '@@' then
do
message = substr(message,3,length(message)-2)
msgline.msgm = message
end
otherwise msgline.msgm = date() time() strip(message)
end
end
/*********************************************************************/
/* If a number is provided, add that number of blank lines after */
/* the message */
/*********************************************************************/
if msglines > Ø then
do msgt=1 to msglines
msge = msgt + msgm
msgline.msge = ' '
end
/*********************************************************************/
/* Write the contents of the MSGLINE stem to the MSGDD */
/*********************************************************************/
call tsotrap "EXECIO * DISKW" msgdd "(STEM MSGLINE. FINIS"
drop msgline. msgb msgt msge
pull tracelvl . module . sigl . sparms
call modtrace 'STOP' sigl
© 2005. Reproduction prohibited. Please inform Xephon of any infringement.
69