5.3.txt

COBOL实验源码

1.主程序ST030.COBOL.SOURCE(LAB07)
IDENTIFICATION DIVISION.    
PROGRAM-ID. LAB07.          
ENVIRONMENT DIVISION.       
DATA DIVISION.              
WORKING-STORAGE SECTION.    
77 A PIC 99V99.             
PROCEDURE DIVISION .        
S.                          
    DISPLAY 'IS INITIAL'.   
    MOVE 12 TO A.           
    CALL 'LAB07S1' USING A. 
    MOVE 5 TO A.            
    CALL 'LAB07S1' USING A. 
    MOVE 12 TO A.           
    CALL 'LAB07S1' USING A. 
    DISPLAY 'NOT INITIAL'.  
    MOVE 12 TO A.           
     CALL 'LAB07S2' USING A. 
     MOVE 5 TO A.            
     CALL 'LAB07S2' USING A. 
     MOVE 12 TO A.           
     CALL 'LAB07S2' USING A. 
     STOP RUN.               
 END PROGRAM LAB07.          
2.(1)子程序ST030.COBOL.SOURCE(LAB07S1)
IDENTIFICATION DIVISION.              
PROGRAM-ID. LAB07S1 IS INITIAL.       
DATA DIVISION.                        
WORKING-STORAGE SECTION.              
01 RUNNINGTOTAL PIC 9(7) VALUE 50.    
LINKAGE SECTION.                      
01 PARAMVALUE PIC 99.                 
PROCEDURE DIVISION USING PARAMVALUE.  
BEGIN.                                
     ADD PARAMVALUE TO RUNNINGTOTAL.  
     DISPLAY "TOTAL = ", RUNNINGTOTAL.
END PROGRAM LAB07S1.                  
(2)子程序ST030.COBOL.SOURCE(LAB07S2)                 
IDENTIFICATION DIVISION.              
PROGRAM-ID. LAB07S2.                  
DATA DIVISION.                        
WORKING-STORAGE SECTION.              
01 RUNNINGTOTAL PIC 9(7) VALUE 50.    
LINKAGE SECTION.                      
01 PARAMVALUE PIC 99.                 
PROCEDURE DIVISION USING PARAMVALUE.  
BEGIN.                                
     ADD PARAMVALUE TO RUNNINGTOTAL.  
     DISPLAY "TOTAL = ", RUNNINGTOTAL.
END PROGRAM LAB07S2.                  
3.编译连接运行程序ST030.COBOL.SOURCE(LAB06CON)
//ST030A JOB 2008,'L.G.Y',CLASS=A,MSGLEVEL=(1,1),NOTIFY=ST030 
//STEP1 EXEC PROC=IGYWCLG                                     
//COBOL.SYSIN DD DSN=ST030.COBOL.SOURCE(LAB07),DISP=SHR       
//        DD DSN=ST030.COBOL.SOURCE(LAB07S1),DISP=SHR         
//        DD DSN=ST030.COBOL.SOURCE(LAB07S2),DISP=SHR         
//LKED.SYSLMOD DD DSN=ST030.COBOL.LOADLIB(TEST),DISP=SHR