Chicago-Soft
ATTN: TSO Times
One Maple Street
Hanover, NH 03755
(603) 643-4002
information
@tsotimes.com

Quick Tip - TSO Allocations in REXX

by Jim Leone

I ran into difficulty when trying to do a TSO allocation in a REXX exec that contained more than 250 characters. This involved concatenating many datasets to a single file name. I got around the problem by assigning pieces of the TSO allocate command to several REXX variables and then concatenating the variables.

The following REXX exec code illustrates the process.

/* REXX EXEC */
TRACE ALL
ADDRESS TSO
/* DUMMY = MSG(‘OFF’) */
/* THIS IS A CODING EXAMPLE OF A TSO ALLOCATION USING MANY DATASETS*/
/* FOR THE SAME FILE, EXCEDING 250 CHARACTERS IN TOTAL LENGTH. ASSIGN*/
/* THE "ALLOC" COMMAND AND ITS PARAMETERS TO MULTIPLE VARIABLE NAMES*/
/* AND INCLUDE A BLANK IN THE FRONT OF THE ABUTTING VARIABLE NAMES*/
/* AND THE ALLOCATION WILL TAKE PLACE CORRECTLY.            */
 A1 = "ALLOC FILE(DUMMY) DA(‘SYS1.PANELS’"
 A2 = " ‘SYS2.PDS84.INSTALL’ ‘SYS1.VERMER31.ISPPLIB’"
 A3 = " ‘SYS1.FA.ISPPLIB’ ‘SYS1.ISR.V3R3M0.ISRPENU’"
 A4 = " ‘SYS1.ISP.V3R3M0.ISPPENU’ ‘SYS1.ISF.V1R4M0.ISFPLIB’"
 A5 = " ‘SYS1.CA.LIBRARYN.PLIB’ ‘SYS1.$AVRS.ISPPLIB’"
 A6 = " ‘SYS1.VSF2PLIB’ ‘SYS1.HRFPANL’ ‘SYS1.CA.ISPPLIB’"
 A7 = " ‘SYS1.CA.CMO20.ISPPLIB’ ‘SYS1.CA.CMO20.HELP.ISPPLIB’"
 A8 = " ‘SYS1.TMS.PANELS’) REUSE SHR"
  A1||A2||A3||A4||A5||A6||A7||A8
/* THE 3 LINES BELOW, IF MADE INTO VALID REXX STATMENTS, WOULD GIVE */
/* THE SAME RESULTS. IN OTHER WORDS IT DOESN’T MATTER IF BLANKS ARE */
/* CODED BETWEEN VARIABLES AND THE CONCATENATION CHARACTERS ‘||’. */
  A1||A2||A3||A4||A5||A6||A7||A8
  A1 || A2 || A3 || A4 || A5 || A6 || A7 || A8
  A1|| A2|| A3|| A4|| A5|| A6|| A7|| A8

Jim Leone is a systems programmer for Systems & Computer Technology Corp. of Malvern, PA, working at Temple University, Philadelphia, PA.

home · current articles · archives · forums ·
· subscribe · about us · contact us · links