Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Avoiding messages displayed by REXX

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
Sathish Gurumoorthy

New User


Joined: 12 Feb 2009
Posts: 33
Location: Chennai, India

PostPosted: Wed Jul 07, 2010 4:44 pm    Post subject: Avoiding messages displayed by REXX
Reply with quote

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.
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed Jul 07, 2010 4:49 pm    Post subject:
Reply with quote

I usually assign SYSOUT to a SYSOUT class that is purged immediately or to a valid class if I want to view it.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10277
Location: italy

PostPosted: Wed Jul 07, 2010 4:52 pm    Post subject: Reply to: Avoiding messages displayed by REXX
Reply with quote

Quote:
Avoiding messages displayed by REXX

REXX has nothing to do with those messages

Code:
"ALLOC FI(SYSOUT) DA(*)"

the above statement allocates the SYSOUT to Your terminal ...
use different allocation parameters
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Iterative use of a REXX script causin... bryonyh CLIST & REXX 2 Fri Jul 28, 2017 12:52 pm
No new posts Passing data from REXX to C programme... chong.zhou CLIST & REXX 3 Wed Jul 26, 2017 9:11 pm
No new posts REXX to get the all datasets name parasmalik20 CLIST & REXX 5 Tue Jul 18, 2017 9:10 pm
No new posts How system know which REXX to excute? jackzhang75 CLIST & REXX 14 Thu Jul 06, 2017 1:09 am
No new posts REXX - Dynamic file Creation d_sarlie CLIST & REXX 7 Tue Jun 27, 2017 7:30 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us