5.1.txt

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

1.主程序ST030.COBOL.SOURCE(LAB06)
IDENTIFICATION DIVISION.
PROGRAM-ID.   LAB06.    
ENVIRONMENT DIVISION.   
DATA  DIVISION.         
PROCEDURE DIVISION.     
S1.  CALL 'B'.          
     STOP RUN.          
END PROGRAM LAB06.      

2.子程序ST030.COBOL.SOURCE(LAB06S)
IDENTIFICATION DIVISION. 
PROGRAM-ID.     B.       
ENVIRONMENT DIVISION.    
DATA  DIVISION.          
WORKING-STORAGE SECTION. 
77 X PIC X(80).          
PROCEDURE DIVISION.      
     MOVE ALL '*' TO X.  
     DISPLAY X.        
 END PROGRAM B.    
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(LAB06),DISP=SHR       
//        DD DSN=ST030.COBOL.SOURCE(LAB06S),DISP=SHR          
//LKED.SYSLMOD DD DSN=ST030.COBOL.LOADLIB(TEST),DISP=SHR