Hi Graham, Despite being Sunday and knowing that you already have a solution I thought I would add the following to demonstrate that if there is a need to run REXX inline, it can be done within a single step and using a sequential data set to hold the rexx code if it is remembered that IDCAMS commands can be driven directly from TSO, as in:
//ADCDMSTB JOB CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID //S0010 EXEC PGM=IKJEFT01 //SYSTSPRT DD SYSOUT=* //SYSEXEC DD UNIT=SYSDA,SPACE=(80,(100,50)),AVGREC=U,LRECL=80, // BLKSIZE=27920,RECFM=FB,DSN=ADCDMST.SEQ.REXX, // DISP=(,DELETE) //SYSTSIN DD * REPRO INFILE(REXXCODE),OUTFILE(SYSEXEC) EXEC 'ADCDMST.SEQ.REXX' EXEC //REXXCODE DD *,DLM='?@' /* REXX batch inline demo */ Say 'Welcome to REXX' Exit 0 ?@ Kind Regards - Terry Director KMS-IT Limited 228 Abbeydale Road South Dore Sheffield S17 3LA UK Reg : 3767263 Outgoing e-mails have been scanned, but it is the recipients responsibility to ensure their anti-virus software is up to date. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
