Problem

How to collect a JOB/STC SYSOUT, DUMP or SYSUDUMP (and other data)

Support, Escalation group or R&D can request such data to troubleshot a reported issue.

What is the best practice ?

Resolution

Most is not all data to be collected from a mainframe are preferred in plain ASCII text format.

It eases the Axway internal sharing and reviewing.

Troubleshooting an issue can be done easily without the need of the mainframe.

When possible, provide all data in plain ASCII text format.

It means, the data can be read from any text editor on a Windows or UNIX system.

Ensure the data original format is kept unchanged (usually, FTP is done to collect the data from the mainframe in plain ASCII variable text before being uploaded to an Axway server or attached to an email to the support.

Note:

When the plain ASCII text file is not possible or when Support, Escalation Group or R&D explicitly request the file to be in the original EBCDIC or BINARY format ensure an ADRDSSU in XMIT format is uploaded on the Axway servers.

Step for the customer:

Get an ADRDSSU dump of your data if needed, then:

//XMIT EXEC PGM=IKJEFT01,DYNAMNBR=20
//DDIN DD DISP=SHR,DSN=<your.dataset.to.be.sent>
//DDOUT DD DISP=(,CATLG),DSN=<use.this.dataset.if.you.want.to.ftp.to.AXWAY>,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=27800),
// SPACE=(TRK,(15,15)),UNIT=SYSDA
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
TRANSMIT NATSTAR +
NOCOPYLIST +
DDNAME(DDIN) +
NOEPILOG +
NOLOG +
NONOTIFY +
OUTDDNAME(DDOUT) +
NOPROLOG
//

Step for the support person in charge of the case:

Verify the data are consistent in making the file ready to use on the mainframe for ESG or R&D.

//RCVJOB JOB (RECEIVE)
//*
//*********************************
//* THIS JCL RE-CREATES A FILE FROM A FILE FORMAT THAT HAS BEEN
//* TRANFERED THROUGH FTP FROM AN OTHER MACHINE AFTER AN XMIT.
//*******************************
//*
//RECV EXEC PGM=IKJEFT01,DYNAMNBR=20
//DDIN DD DISP=SHR,DSN=<the.transmit.dataset.from.the.customer>
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
RECEIVE +
INDDNAME(DDIN) +
NODISPLAY +
NONAMES
DATASET('<the.dsn.to.create>’)
//

When needed, if the customer's file received is an ADRDSSU format, restore the original file using the sample below:

//A02168R JOB (0),'RESTORE',
// CLASS=A,MSGCLASS=R,NOTIFY=&SYSUID
//* JCL to restore while renaming the first node
//REST EXEC PGM=ADRDSSU,REGION=4096K
//INDD1 DD DSN=adrdssu.dump.to.restore,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
RESTORE DATASET(-
INCLUDE(-
*.** -
))-
RENAMEU(your.high.qualifier.to.be.use) -
INDDNAME(INDD1) -
WAIT(2,2)
//