HOW TO PROVIDE MULTIPLE INPUT COMMANDS USING REXX API

book

Article ID: 49925

calendar_today

Updated On:

Products

CIS COMMON SERVICES FOR Z/OS 90S SERVICES DATABASE MANAGEMENT SOLUTIONS FOR DB2 FOR Z/OS COMMON PRODUCT SERVICES COMPONENT Common Services Datacom/AD CA ECOMETER SERVER COMPONENT FOC EASYTRIEVE REPORT GENERATOR FOR COMMON SERVICES INFOCAI MAINTENANCE IPC UNICENTER JCLCHECK COMMON COMPONENT Mainframe VM Product Manager CHORUS SOFTWARE MANAGER CA ON DEMAND PORTAL CA Service Desk Manager - Unified Self Service PAM CLIENT FOR LINUX ON MAINFRAME MAINFRAME CONNECTOR FOR LINUX ON MAINFRAME GRAPHICAL MANAGEMENT INTERFACE WEB ADMINISTRATOR FOR TOP SECRET Xpertware Compress Data Compression for MVS Compress Data Compression for Fujitsu Cross Enterprise Application Performance Management (APM) SYSVIEW Performance Management NXBRIDGE - SYSVIEW/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: