Hi,
I'm not sure if this meets your needs but when I have to send data sets in
XMIT format to customers I'll create a job containing the XMIT data and TSO
RECEIVE commands and send that to the customer, for example as an email
attachment.
Here's an example of the JCL for the job:
//XMIT0001 JOB (),'DUMMY',MSGCLASS=X,CLASS=A,
// NOTIFY=&SYSUID
//*
//STEP1 EXEC PGM=IKJEFT01,DYNAMNBR=16
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DELETE 'HLQ.XMIT.DATA1'
DELETE 'HLQ.XMIT.DATA2'
RECEIVE INDD(XMIT01))
DS('HLQ.XMIT.DATA1') NEW
RECEIVE INDD(XMIT02))
DS('HLQ.XMIT.DATA2') NEW
/*
//*
//XMIT01 DD DATA,DLM='@%'
*----- Data created by XMIT for data set 1 -----*
@%
//XMIT02 DD DATA,DLM='@%'
*----- Data created by XMIT for data set 2 -----*
@%
The customer uploads the file in binary format to an LRECL 80 data set or
member. All they then have to do is change the data set names in STEP1 and
possibly the job card then submit the job to receive the data sets.
I hope that helps.
Regards,
Peter Van Dyke
On Thu, 1 Sept 2022 at 07:34, Lennie Dymoke-Bradshaw <
[email protected]> wrote:
> Gil,
>
> Yes, you're right.
> I have in the past I have scanned the card image file before sending and
> then built JCL which uses a DLM value which is OK.
> Lennie
>
> -----Original Message-----
> From: IBM Mainframe Discussion List <[email protected]> On Behalf
> Of Paul Gilmartin
> Sent: 31 August 2022 13:56
> To: [email protected]
> Subject: Re: Automation of the TSO RECEIVE command
>
> On Wed, 31 Aug 2022 11:12:12 +0100, Lennie Dymoke-Bradshaw wrote:
>
> >The TSO commands TRANSMIT and RECEIVE are very useful for moving data
> >around, particularly as TRANSMIT produces an 80-byte LRECL which works
> >easily with in-stream JCL.
> >
> But there's a hazard. The encoded data might by happenstance contain "//"
> in the first two positions of a record, breaking the in-stream data set.
> You can demonstrate this by TRANSMITting a file containing many "/"
> characters.
>
> It's safer if you use "DATA,DLM='U5ZMw0Di'", for example in JES2. In
> JES3, you're SOL.
>
> ( I used "head -c6 /dev/random | uuencode -m x".)
>
> --
> gil
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to [email protected] with the message: INFO IBM-MAIN
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
