The method for modifying RECVUPLD, which performs TSO/E RECEIVE processing, is explained below.
The following numbers correspond to the numbers appearing on the right side of the sample JCL. Modify the underlined parts in the sample JCL as follows:
//RECVUPLD JOB (ACCT#),'TSO RECEIVE', -----(1) // REGION=0M,CLASS=A, -----(2) // MSGLEVEL=(1,1),MSGCLASS=X,NOTIFY=&SYSUID -----(3) //********************************************************************* //* //* All Rights Reserved. Copyright (C) 2003, 2023, Hitachi, Ltd. //* //********************************************************************* //* //* This JOB uses TSO RECEIVE command to receive the data sets //* that were allocated by ALLOUPLD JCL and contain the unzipped //* .XMIT files that were uploaded via binary FTP transfer. //* //* Instructions: //* 1. Logon with the same USERID used for ALLOUPLD job. //* 2. Change 'HITACHI.' prefixes to suit your naming convention. //* 3. Change '#tso01' to VOLSER of your device. //* 4. Submit this JCL. //* 5. See this product's documentation for SMP/E instructions. //* Modify the .SMPMCS file so that the chosen file prefix //* is indicated in the RFDSNPFX() parameter of the //* FUNCTION() statement. //* Allocate the .SMPMCS file directly to the SMP/E //* SMPPTFIN DD statement on the receive step. SMP/E will //* locate the other files via the catalog. //* //* //* Remove all BC Manager files. //* //CLEAN EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE HITACHI.CHYKnnn.SMPMCS -----(4) DELETE HITACHI.CHYKnnn.F1 -----(5) DELETE HITACHI.CHYKnnn.F2 -----(6) DELETE HITACHI.CHYKnnn.F3 -----(7) DELETE HITACHI.CHYKnnn.F4 -----(8) DELETE HITACHI.CHYKnnn.F5 -----(9) DELETE HITACHI.CHYKnnn.F6 -----(10) DELETE HITACHI.CHYKnnn.F7 -----(11) DELETE HITACHI.CHYKnnn.F8 -----(12) DELETE HITACHI.CHYKnnn.F9 -----(13) DELETE HITACHI.CHYKaaa.SMPMCS -----(14) DELETE HITACHI.CHYKbbb.SMPMCS -----(15) DELETE HITACHI.CHYKccc.SMPMCS -----(16) SET MAXCC = 0 /* //********************************************************************* //* TSO receive to restore portable PDS from BINARY FTP //********************************************************************* //S1 EXEC PGM=IKJEFT01 //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * RECEIVE INDSN(CHYKnnn.SMPMCS.XMIT) DSNAME('HITACHI.CHYKnnn.SMPMCS') + -----(17) VOLUME(#tso01) -----(18) RECEIVE INDSN(CHYKnnn.F1.XMIT) DSNAME('HITACHI.CHYKnnn.F1') + -----(17) VOLUME(#tso01) -----(18) RECEIVE INDSN(CHYKnnn.F2.XMIT) DSNAME('HITACHI.CHYKnnn.F2') + -----(17) VOLUME(#tso01) -----(18) RECEIVE INDSN(CHYKnnn.F3.XMIT) DSNAME('HITACHI.CHYKnnn.F3') + -----(17) VOLUME(#tso01) -----(18) RECEIVE INDSN(CHYKnnn.F4.XMIT) DSNAME('HITACHI.CHYKnnn.F4') + -----(17) VOLUME(#tso01) -----(18) RECEIVE INDSN(CHYKnnn.F5.XMIT) DSNAME('HITACHI.CHYKnnn.F5') + -----(17) VOLUME(#tso01) -----(18) RECEIVE INDSN(CHYKnnn.F6.XMIT) DSNAME('HITACHI.CHYKnnn.F6') + -----(17) VOLUME(#tso01) -----(18) RECEIVE INDSN(CHYKnnn.F7.XMIT) DSNAME('HITACHI.CHYKnnn.F7') + -----(17) VOLUME(#tso01) -----(18) RECEIVE INDSN(CHYKnnn.F8.XMIT) DSNAME('HITACHI.CHYKnnn.F8') + -----(17) VOLUME(#tso01) -----(18) RECEIVE INDSN(CHYKnnn.F9.XMIT) DSNAME('HITACHI.CHYKnnn.F9') + -----(17) VOLUME(#tso01) -----(18) RECEIVE INDSN(CHYKaaa.SMPMCS.XMIT) DSNAME('HITACHI.CHYKaaa.SMPMCS') + -----(17) VOLUME(#tso01) -----(18) RECEIVE INDSN(CHYKbbb.SMPMCS.XMIT) DSNAME('HITACHI.CHYKbbb.SMPMCS') + -----(17) VOLUME(#tso01) -----(18) RECEIVE INDSN(CHYKccc.SMPMCS.XMIT) DSNAME('HITACHI.CHYKccc.SMPMCS') + -----(17) VOLUME(#tso01) -----(18) END /*