I use a macro named FORMAT for this function. It works great.
FORMAT ('SCANSMF: ',,),(TCNT,P,'ZZZ,ZZZ,ZZZ'),
(' TYPE 80 RECORDS SCANNED.',,),TO=MSG,WKA=WKA
WTO TEXT=MSG
TCNT DC PL5'0'
WKA DS D
MSG DC CL80' '
CBT Overflow Tape V466 File 188 Created July - 25 - 04
File # 188 SHARE MVS Tape (SPLA Tape) File 088
THIS FILE CONTAINS THE ASSEMBLER MACROS FROM YALE COMPUTER CENTER.
Thanks,
Tim Deller
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
