Sathish Gurumoorthy
New User
Joined: 12 Feb 2009 Posts: 33 Location: Chennai, India
|
|
|
|
Hi,
I am invoking the SORT using the below REXX code.
The REXX works good.
Code: |
X = MSG(OFF)
ADDRESS TSO
"FREE FI(SYSOUT SORTIN SORTOUT SYSIN)"
"ALLOC FI(SYSOUT) DA(*)"
"ALLOC FI(SORTIN) DA('"CSVOUT"') SHR REUSE"
"ALLOC FI(SORTOUT) DA('"PARSEOUT"') RECFM(F B) LRECL(80)",
"BLKSIZE(800) NEW"
"ALLOC FI(SYSIN) DA('"PARSYSIN"') SHR REUSE"
ADDRESS LINKMVS ICEMAN
"FREE FI(SYSOUT SORTIN SORTOUT SYSIN)"
IF RC = 0 THEN
MSGSCM = 'PARSING SUCCESSFUL'
ELSE
MSGSCM = 'UNSUCCESSFUL' |
While this is in execution, REXX displays some SORT messages/statements in a black screen like below.
Code: |
[color=red]ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES A
ND MORE
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 11:08 ON WED JU
L 07, 2010 -
OPTION COPY
INREC IFTHEN=(WHEN=(14,4,CH,NE,C'PROD'),
PARSE=(%00=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=01),
%01=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=01),
%02=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=05), - ENVRNMN
T
%03=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=06), - SYSTEM
%04=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=04), - SUB SYS
TM
%05=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=10), - ELEMENT
%06=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=10),
%07=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=08), - TYPE
%08=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=06),
%09=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=01), - STAGE
%10=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=01),
%11=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=01),
%12=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=08), - PROC GR
P
***
%13=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=10), - DATE1
%14=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=11), - TIME1
%15=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=07), - SIGNOT
ID
%16=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=01), - VERSION
%17=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=02), - LEVEL
%18=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=02), - COM VER
%19=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=02), - COM LVL
%20=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=05), - REL ID
%21=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=08), - LST ACT
E
%22=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=08), - LAST AC
T
%23=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=05), - RET COD
E
%24=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=10), - DATE2
%25=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=11), - TIME2
%26=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=07), - LST ACT
ID
%27=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=08), - LST CCI
D
%28=(STARTAFT=C'"',ENDBEFR=C'"',FIXLEN=40), - LST COM
MNT
*** [/color] |
I don't want these messages to be displayed. Is there any way to avoid displaying these messages.
I tried giving MSG(OFF) option & OUTTRAP function. But still it displays the message.
Regards,
Sathish. |
|