5.2.txt

来自「COBOL实验源码」· 文本 代码 · 共 35 行

1.主程序ST030.COBOL.SOURCE(LAB13)
IDENTIFICATION DIVISION.       
PROGRAM-ID. LAB13.             
ENVIRONMENT DIVISION.          
DATA  DIVISION.                
WORKING-STORAGE SECTION.       
77   A    PIC   99  VALUE  2.  
77   B    PIC   99  VALUE  3.  
77   C    PIC   99.            
PROCEDURE DIVISION.            
S1.  CALL 'SUM1' USING A, B, C.
    DISPLAY 'C=', C.           
    STOP  RUN.                 
END PROGRAM LAB13.                 

2.子程序ST030.COBOL.SOURCE(LAB06S)
IDENTIFICATION DIVISION.         
PROGRAM-ID. SUM1.                
ENVIRONMENT DIVISION.            
DATA  DIVISION.                  
LINKAGE SECTION.                 
77   X    PIC   99.              
77   Y    PIC   99.              
77   Z    PIC   99.              
PROCEDURE DIVISION USING X, Y, Z.
S1.  COMPUTE Z = X + Y.          
END PROGRAM SUM1.                    
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(LAB13),DISP=SHR       
//        DD DSN=ST030.COBOL.SOURCE(LAB13S),DISP=SHR          
//LKED.SYSLMOD DD DSN=ST030.COBOL.LOADLIB(TEST),DISP=SHR