Resources



Problem Fix Number: 4827

For SYSTEM 2000 Version: 12.0

Problem Status: ZC (Zap Coded) -- Fix has received limited testing

Description of Problem:

PLXCOMM CONTROL BLOCK DOES NOT GET GENERATED IN THE LINKAGE SECTION OF A COBOL PLEX PROGRAM IN THE 12.0 PRE-COMPILERS.


Download Fix:

Note:   Please send email to s2k@sas.com telling us which problem fixes you have downloaded so we can keep track of the fixes at your site in case questions or problems arise.


Top of Zap Deck:

 *  IBM R12.0   BUG 4827  MVS                                                    
 *                                                                               
 * THIS ZAP WILL ALLOW FOR THE EXPANSION OF THE PLXCOMM CONTROL BLOCK            
 * IN THE LINKAGE SECTION OF A CICS COBOL PLEX APPLICATION.                      
 *                                                                               
 NAME PRCOMC GNVARC                                                              
 VER 0918 5800,9200,5900,9160,4760,DC08                                          
 VER 099A 4700,00AB,4110,D068                                                    
 VER 0A14 4700,00B3,4110,D068                                                    
 REP 0918 4700,0000,4700,0000,4700,0000                                          
 REP 099A 41F0,9490,05EF,0700                                                    
 REP 0A14 41F0,947A,05EF,0700                                                    
 *                                                                               
 NAME PRCOMC ZAREA                                                               
 VER 013A 0000,0000,0000,0000,0000,0000,0000,0000                                
 VER 014A 0000,0000,0000,0000,0000,0000,0000,0000                                
 VER 015A 0000,0000,0000,0000,0000,0000                                          
 REP 013A 5800,9200,5900,9160,4760,DA00,4700,00B3                                
 REP 014A 4110,D068,07FE,5800,9200,5900,9160,4760                                
 REP 015A D986,4700,00AB,4110,D068,07FE                                          
 *                                                                               
 CHECKSUM E46E500F                                                               

End of Zap Deck