Source Listing Facility › Examine the Source Listing Display Screen

Examine the Source Listing Display Screen

A sample COBOL source listing is shown next:

  CA InterTest for CICS V9.1 - PROTSYM FILE SOURCE LISTING DISPLAY
Œ COMMAND ==>                                                                  
  Program= COBDEMO  Option #       Stmt #                            Margin= 01
                                         Search=                               
 OPTS 1 Proc div  2 Workstor 3 Link sect  4 Dmap      5 Clst/Pmap More: ‘+ 
       6 Data xref 7 Proc xref 8 Err msgs   9 Srch fwd  10 Srch bwd  
Ž PFKS 1 Help      2           3 End        4 Profile    5 Monitor    6 Menu   
       7 Backward  8 Forward   9           10           11           12 Status   
------------------------------------------------------------------------------
       _ 00001 ID DIVISION.                                                   
       _ 00002 PROGRAMID. COBDEMO.                                           
       _ 00003 ENVIRONMENT DIVISION.                                          
       00004 DATA DIVISION.                                                
       _ 00005 WORKINGSTORAGE SECTION.                                       
       _ 00006 77  S999FIELD1             PIC S9(3).                         
      _00007 77  S999FIELD2              PIC S9(3)       VALUE +50.          
       _ 00008 77  999FIELD1              PIC 9(3).                         
       _ 00009 77  999FIELD2              PIC 9(3)        VALUE 50.          
       _ 00010 77  FIRSTSCREENLEN        PIC S9(4) COMP  VALUE +1696.      
       _ 00011 77  MSGSCREENLEN          PIC S9(4) COMP  VALUE +1040.       
       _ 00012 77  THIRDSCREENLEN        PIC S9(4) COMP  VALUE +960.       
       _ 00013 77  FOURTHSCREENLEN       PIC S9(4) COMP  VALUE +1761.       
       _ 00014 77  ERRORSCREENLEN        PIC S9(4) COMP  VALUE +960.       
         00015*77  COMMAREALEN            PIC S9(4) COMP  VALUE +39.