什么是MVS和JCL？

Question

有人知道MVS和JCL吗？

能给我解释一下MVS是什么吗？JCL是用来做什么的？

Answer 1

我相信你指的是MVS和JCL。

IBM 是大型机系统的操作系统，JCL是大型机的作业控制语言。例如，您可以将MVS与Linux关联起来，将JCL与Bash关联起来。

AS/400 / iSeries / IBM / i5被认为是一台中端机器。它的操作系统被称为OS/400或最近的i5/OS。

Answer 2

在名称MVS上稍微扩展一下：

在20世纪70年代末，MVS被添加到OS/VS2操作系统的名称中。它代表多个虚拟存储，指出了在一台机器上使用虚拟存储概念运行多个任务的能力。最终OS/VS2被丢弃。

在MVS/370、MVS/XA (eXtended体系结构，31位)和MVS/ESA (企业系统体系结构，数据空间)时期，MVS一直保留在这个名称中，直到20世纪90年代中期，操作系统更名为OS/390,2000年代初，z/OS支持64位，这个名称至今仍在使用。但是，在IBM文档中，核心操作系统组件仍然被称为MVS。

关于IBM System/360及其后续操作系统的历史，有许多很好的Internet参考资料。

Answer 3

对于JCL作业控制语言

用于

• 编译COBOL，C..Datasets
• Concatenate
• Format
• Sort Datasets
• Create VSAM，Generation etc INREC OUTREC..

它是一种非常通用语言，可以控制您在大型机上可以执行的所有操作。

例如:使用icetool和idcams检查DataSets是否为空，并使用icetool计算行数

000100 //CHKEMPTY JOB 12345,                                                  
000110 //         'CHECK EMPTY',                                              
000120 //         CLASS=A,                                                    
000130 //         NOTIFY=&SYSUID                                              
000200 //*                                    
000210 // SET USER=YOURUSERNAME               
000220 //* SELECT THE CC RETURN FOR ACTION                                                                                 
000300 //*****************************************************         
000400 //*1 CHKEMP ICETOOL 2 COUNT ICETOOL 3 CHKEMP IDCAMS             
000600 //*****************************************************       
000610 //STEPSET  EXEC PGM=IDCAMS                                             
000620 //SYSPRINT DD SYSOUT=*                                                 
000630 //SYSOUT   DD SYSOUT=*                                                 
000640 //SYSIN    DD *                                                        
000650  SET MAXCC=2         <----SELECT OPTION YOU WANT TO TEST                                                    
000660 /*                                                                    
000670 //*                                                                    
000680 //*********************************************************************   
000690 //* CHECK EMPTY WITH MAXCC=12 ICETOOL                                 
000691 //*********************************************************************   
000692 //*                                                                    
000700 //STEP0001 EXEC PGM=ICETOOL,COND=(1,NE,STEPSET)                        
000900 //IN       DD DSN=&USER..EMPTYDS,DISP=SHR      <--- EMPTY DS FOR TEST                    
001010 //TOOLMSG  DD SYSOUT=*                                                 
001100 //DFSMSG   DD SYSOUT=*                                                 
001110 //TOOLIN   DD DATA                                                     
001200  COUNT FROM(IN) EMPTY
001300 /*                                                                      
001301 //*                                                                     
001302 //*********************************************************************    
001303 //* COUNT LINES WITH ICETOOL                                            
001304 //*********************************************************************     
001305 //*                                                                     
001306 //STEP0002 EXEC PGM=ICETOOL,COND=(2,NE,STEPSET)                         
001307 //TOOLMSG  DD SYSOUT=*                <--- CONTAINS RECORD DATA         
001308 //DFSMSG   DD SYSOUT=*                                                  
001309 //IN       DD DSN=&USER..COBOL(CBLPGM),DISP=SHR               
001310 //TOOLIN   DD DATA                                                      
001311  COUNT FROM(IN)                                                         
001312 /*                                                                      
001313 //*                                                                     
001314 //****************************************************       
001315 //* CHECK EMPTY FILES USING IDCAMS   MAXCC=4 EMPTY                                   
001316 //****************************************************       
001317 //*                                                                     
001318 //STEP0003 EXEC PGM=IDCAMS,COND=(3,NE,STEPSET)                          
001319 //IN       DD DSN=&USER..EMPTYDS,DISP=SHR      <---- EMPTY DS FOR TEST                     
001320 //SYSPRINT DD SYSOUT=*                                                  
001330 //SYSIN    DD DATA                                                      
001340  PRINT INFILE(IN) COUNT(1)                                              
001350 /*