************************************************************************
*  PH48138
*  Connect:Enterprise 1.5.0 fixes after base product.
*  These fixes require C:E 1.5.0 base product as prerequisite.
*
*  USE THE JCL AT THE BOTTOM OF THIS README TO UNLOAD THE FIXES TO THE
*  CORRECT LIBRARIES.
*
************************************************************************
*

Fix Identifier: PH48138
          APAR: PH48138
          JIRA: MFT-13521

Description of Issue:
 RETR/STOR FTP commands may cause ABEND0C4 on zOS 2.5.

Description of Fix:
 Correct DOEXIT logic while scanning command table.


      MODULES  UPDATED: STFTPS40 STFTPS41
 LOAD MODULES AFFECTED: STFTPS40 STFTPS41

Fix Availablity Date: July 2022
High Impact (Y/N): Y
Reported Severity: 2
Defect is security related(Y/N): N
Pre-requisites:




***********************************************************************
*
*  Installing a C:E z/OS fix package from IBM ECuRep server.
*
*  The fix consists of one file that must be untersed/unpacked using
*  the IBM program TRSMAIN.  The file created from this will be a PDS.
*  There will usually only be three members in this PDS:
*  OBJECT, LOAD and SOURCE.
*  These PDS members are in TSO TRANSMIT format and must be converted
*  into PDS libraries using the TSO RECEIVE command.
*  The following steps will assist you in doing these procedures.
*
*
*  1) Allocate 'fix.file' to receive the fix file with the following
*     DCB attributes.
*
*     DSORG=PS RECFM=FB LRECL=1024 BLKSIZE=6144
*
*
*  2) Download the BINARY FIX file from the IBM ECuRep server and
*     save it in the dataset allocated in step 1.
*     Download BINARY file: POST1500.PH48138.BIN
*
*
*  3) Execute JCL like the following to UNPACK the file into a PDS.
*

//UNPACK    JOB ...
//******************************************************************
//*
//*  This step will create a PDS with the following members:
//*     OBJECT
//*     LOAD
//*     SOURCE
//*  Each member is a PDS that is in TSO TRANSMIT format.
//*
//******************************************************************
//UNPACK   EXEC PGM=TRSMAIN,PARM=UNPACK
//SYSPRINT DD  SYSOUT=X
//INFILE   DD  DSN=fix.file,               ** downloaded fix file **
//             DISP=SHR
//OUTFILE  DD  DSN=fix.unpacked.file,
//             DISP=(,CATLG),
//             SPACE=(TRK,(100,5,10),RLSE),UNIT=SYSDA
//*

*
*  4) TSO RECEIVE the UNPACKED members to PDS libraries.
*
//******************************************************************
//*   RECEIVE FIX file INTO PDS FORMAT.
//*   Note: May require dataset such as tsoid.NAMES.TEXT with content:
//*       :NICK.    tsoid
//*       :USERID.  tsoid
//*       :NAME.    C:E FIX
//******************************************************************
//RECVPDS  EXEC PGM=IKJEFT01,DYNAMNBR=55,COND=(0,NE)
//SYSPRINT DD   SYSOUT=X
//SYSTSPRT DD   SYSOUT=X
//SYSTSIN  DD   *
   RECEIVE USERID(tsoid) -
   INDATASET('fix.unpacked.file(SOURCE)')
   DSNAME('fix.source') UNIT(SYSDA)
   RECEIVE USERID(tsoid) -
   INDATASET('fix.unpacked.file(OBJECT)')
   DSNAME('fix.object') UNIT(SYSDA)
   RECEIVE USERID(tsoid) -
   INDATASET('fix.unpacked.file(LOAD)')
   DSNAME('fix.load') UNIT(SYSDA)
//*

*
*  After executing the TSO RECEIVE the fix will be in the PDS 'fix.load'
*