5.4.txt

COBOL实验源码

(1)子程序1
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)子程序2
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）JCL
//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