Library View Topics Framed Contents Revised Topics Previous Topic Next Topic Search Search ResultsPrevious Topic MatchNext Topic Match Notes List Notes Print Download No PDF Handheld DisconnectedHandheld ConnectedHelp

1.1.3.2 DEBUG-ITEM
The DEBUG-ITEM special register provides information for a debugging declarative procedure about the conditions causing debugging section execution.
DEBUG-ITEM has the following implicit description: 



     01  DEBUG-ITEM.
       02   DEBUG-LINE     PICTURE IS X(6).
       02   FILLER         PICTURE IS X  VALUE SPACE.
       02   DEBUG-NAME     PICTURE IS X(30).
       02   FILLER         PICTURE IS X  VALUE SPACE.
       02   DEBUG-SUB-1    PICTURE IS S9999  SIGN IS LEADING SEPARATE CHARACTER.
       02   FILLER         PICTURE IS X  VALUE SPACE.
       02   DEBUG-SUB-2    PICTURE IS S9999  SIGN IS LEADING SEPARATE CHARACTER.
       02   FILLER         PICTURE IS X  VALUE SPACE.
       02   DEBUG-SUB-3    PICTURE IS S9999  SIGN IS LEADING SEPARATE CHARACTER.
       02   FILLER         PICTURE IS X  VALUE SPACE.
       02   DEBUG-CONTENTS PICTURE IS X(n).
Before each debugging section is executed, DEBUG-ITEM is filled with spaces. The contents of the DEBUG-ITEM subfields are updated according to the rules for the MOVE statement, with one exception: DEBUG-CONTENTS is updated as if the move were an alphanumeric-to-alphanumeric elementary move without conversion of data from one form of internal representation to another.
After updating, each field contains:
DEBUG-LINE
The source-statement sequence number (or the compiler-generated sequence number, depending on the compiler option chosen) that caused execution of the debugging section.
DEBUG-NAME
The first 30 characters of the name that caused execution of the debugging section. Any qualifiers are separated by the word "OF."
DEBUG-SUB-1, DEBUG-SUB-2, DEBUG-SUB-3
If the DEBUG-NAME is subscripted or indexed, the occurrence number of each level is entered in the respective DEBUG-SUB-n. If the item is not subscripted or indexed, these fields remain as spaces. You must not reference the DEBUG-ITEM special register if your program uses more than three levels of subscripting or indexing.
DEBUG-CONTENTS
Data is moved into DEBUG-CONTENTS, as shown in Table 3.
 Table 3. DEBUG-ITEM Subfield Contents                                     
 Cause of         
 Debugging        
 Section          
 Execution        		                   
 Statement        
 Referred to in   
 DEBUG-LINE       		                   
                  
 Contents of      
 DEBUG-NAME       		                   
                  
 Contents of      
 DEBUG-CONTENTS   
 procedure-name-1 
 ALTER reference  
                  		  ALTER statement  
                  
                  		  procedure-name-1 
                  
                  		  procedure-name-n 
 in TO PROCEED TO 
 phrase           
 GO TO            
 procedure-name-n 		  GO TO statement  
                  		  procedure-name-n 
                  		  spaces           
                  
 procedure-name-n 
 in SORT/MERGE    
 input/output     
 procedure        		  SORT/MERGE       
 statement        
                  
                  		  procedure-name-n 
                  
                  
                  		  "SORT INPUT"     
 "SORT OUTPUT"    
 "MERGE OUTPUT"   
 (as applicable)  
 PERFORM          
 statement        
 transfer of      
 control          		  This PERFORM     
 statement        
                  
                  		  procedure-name-n 
                  
                  
                  		  "PERFORM LOOP"   
                  
                  
                  
 procedure-name-n 
 in a USE         
 procedure        
                  		  Statement        
 causing USE      
 procedure        
 execution        		  procedure-name-n 
                  
                  
                  		  "USE PROCEDURE"  
                  
                  
                  
 Implicit         
 transfer from    
 previous         
 sequential       
 procedure        
                  		  Previous         
 statement        
 executed in      
 previous         
 sequential       
 procedure *      		  procedure-name-n 
                  
                  
                  
                  
                  		  "FALL THROUGH"   
                  
                  
                  
                  
                  
 First execution  
 of first         
 nondeclarative   
 procedure        		  Line number of   
 first            
 nondeclarative   
 procedure-name   		  first            
 nondeclarative   
 procedure        
                  		  "START PROGRAM"  
                  
                  
                  
 Note:                                                                     
                                                                           
 *  If this procedure is preceded by a section header, and control is      
    passed through the section header, the statement number refers to the  
    section header.                                                        

Previous Topic Next Topic © Copyright IBM Corp. 1991, 1998

IBM Library Server Copyright 1989, 2005 IBM Corporation. All rights reserved.




Return to library:   z/OS | z/OS.e | TPF | z/VSE | z/VM | IBM Hardware | IBM System z Redbooks
Glossary:   IBM terminology
Publications:   How to order publications
Readers:   Download IBM Library Reader | Download IBM Softcopy Reader | Download Adobe® Acrobat® Reader®
Library management:   Download IBM Softcopy Librarian
Contacts:   Contact z/OS

Adobe, the Adobe logo, Acrobat, the Acrobat logo, and Acrobat Reader are registered trademarks of Adobe Systems incorporated.