SYSTEM 2000 Technical Support

Home News Version 1 Tech Support Pubs S2K Site Map

How do I apply source module fixes to SYSTEM 2000 software?

The IEBUPDTE utility program is used to apply changes to source modules.

In the example below, module PLXFRMT is being updated.

IEBUPDTE control statements begin with the characters './'. The most common statements are


./ CHANGE
./ ADD 
./ NUMBER

In the example the IEBUPDTE control statement is displayed in bold.

SYSTEM 2000 problem fixes contain comments that are not part of any IEBUPDTE control statement. These comments must be removed before you apply the fix.

In the example, the comments to be removed are the first five statements (lines) with an asterisk (*) in column 1.

To apply a problem fix to a source member or members, you:

review the comments for any instructions to be followed during or after updating of the source members
remove the comments that are not part of an IEBUPDTE control statement group
execute the IEBUPDTE utility to update the source member or members
carry out any special instructions given in the comments that need to be done after the member(s) are updated.

NOTE: Be sure that none of the problem fix lines get numbered or renumbered while you are editing them. SYSTEM 2000 source members are maintained according to the line numbers in positions 73 through 80 so it is imperative that your editor not renumber them.

The following is an example of a SYSTEM 2000 problem fix along with the JCL to execute the IEBUPDTE utility program.

//JCLUPDTE JOB
//STEP1   EXEC PGM=IEBUPDTE
//SYSPRINT  DD SYSOUT=*
//SYSUT1    DD S2K.R121.SOURCE,DISP=SHR
//SYSUT2    DD S2K.R121.SOURCE,DISP=SHR
//SYSIN     DD *
*  IBM R12.1   BUG 4865  MVS
*
* THIS BUG FIX WILL ALLOW THE PLEX LINK COMMAND TO WORK PROPERLY IN
* A CICS ENVIRONMENT.
*
./ CHANGE NAME=PLXFRMT
* *35* 04DEC96 GOH B4865 MAKE LINK PROCESSING WORK IN CICS         *35* 00010980
         PACK  PLXWK2,CCRTC                                        *35* 00738000
         CVB   R1,PLXWK2                                           *35* 00739000
         L     R15,=F'20'                                          *35* 00816010
         TM    HLDCTL+3,X'01'      HOLD ?                          *35* 00816020
         BNO   FRMT0942            NO.                             *35* 00816030
         S     R15,=F'500'         YES. NEGATE OPER                *35* 00816040
FRMT0942 EQU   *                                                   *35* 00816050
         ST    R15,S2KOPR          SET OPERATOR                    *35* 00816060
         CVD   R1,PLXWK2                                           *35* 00866000
         OI    PLXWK2+7,X'0F'                                      *35* 00867000
         UNPK  CCRTC,PLXWK2                                        *35* 00869000
* CHANGE TO VALID DATA POINTER FOR FREEMAIN                        *35* 00949990
     EXEC CICS FREEMAIN DATA(0(R2))                                     00950000
         CLI   S2KTYP+3,2          COBOL?                          *35* 02118010
         BE    LINK0172                                            *35* 02118020
         USING FCOMBK,R8                                           *35* 02118030
         ST    R1,FCRTC                                            *35* 02118040
         B     LINK0180                                            *35* 02118050
LINK0172 EQU   *                                                   *35* 02118060
         CVD   R1,PLXWK2                                           *35* 02118070
         OI    PLXWK2+7,X'0F'                                      *35* 02118080
         UNPK  CCRTC-CCOMBK(4,R8),PLXWK2                           *35* 02118090
//

Resources

How do I apply source module fixes to SYSTEM 2000 software?