HOW TO PROVIDE MULTIPLE INPUT COMMANDS USING REXX API

book

Article ID: 49925

calendar_today

Updated On:

Products

CA CIS CA Common Services for z/OS CA 90s Services CA Database Management Solutions for DB2 for z/OS CA Common Product Services Component CA Common Services CA Datacom/AD CA ecoMeter Server Component FOC CA Easytrieve Report Generator for Common Services CA Infocai Maintenance CA IPC Unicenter CA-JCLCheck Common Component CA Mainframe VM Product Manager CA Chorus Software Manager CA On Demand Portal CA Service Desk Manager - Unified Self Service CA PAM Client for Linux for zSeries CA Mainframe Connector for Linux on System z CA Graphical Management Interface CA Web Administrator for Top Secret CA CA- Xpertware CA Compress Data Compression for MVS CA Compress Data Compression for Fujitsu CA Cross Enterprise Application Performance Management (APM) CA SYSVIEW Performance Management NXBRIDGE - SYSYVIEW/ENDEVOR

Issue/Introduction

Description:

How can I provide multiple INPUT commands via the Rexx API? I have only been able to get one input command to work and need more than one. I'm trying to issue command 'COPYOUTP' followed by inputs for dataset specifications for DSN, member, space, lrecl, etc.

Solution:

Below sample to fill up multiple entries using sysview rexx api

/* REXX */   
ADDRESS TSO   
TRACE   
ADDRESS 'LINK' 'GSVXRXAA'   
ADDRESS SYSVIEWE "C(LISTHELD =)"   
ADDRESS SYSVIEWE "C(LINECMD L 1)"   
ADDRESS SYSVIEWE "C(SELECT DDNAME EQ JESMSGLG)"   
ADDRESS SYSVIEWE "C(SET PRIMARY 7)"   
ADDRESS SYSVIEWE "C(SET COPYDSN PUBLIC.DATASET)"   
ADDRESS SYSVIEWE "INPUT(CMD,COD)"   
ADDRESS SYSVIEWE ,   
"C(TYPE TAB 3 ERE DATA 'SYSOUT2' TAB 3 ERE DATA '5' ENTER)"   
ADDRESS SYSVIEWE "C(END)"   
ADDRESS TSO   
DROPBUF   
EXIT(0)   

Environment

Release: FAQSO.00200-12.7-SYSVIEW-Performance Management
Component: