jobs - z/OS 的 JCL 作业,用于对数据集执行 SRCHFOR 或 LISTCAT

标签 jobs mainframe zos jcl tso

我需要创建一个批处理作业来搜索数据集列表;我需要通过 FTP 提交作业。

我是 JCL 的新手,所以有人可以帮助我使用 SRCHFOR 命令进行示例作业吗?

我还需要为 IDCAMS 实用程序命令 Listcat 创建一个作业

只要有一个示例工作,我就会非常感激。

最佳答案

鉴于您表示您不知道从哪里开始,这里有一个示例作业,它将在第一步中运行搜索,并在第二步中运行 IDCAMS 来执行 Listcat。

这个link有一些关于 SuperC 的有用信息。

注意:您的作业卡需要根据您的安装要求进行自定义。该作业可以通过 FTP 提交,后续输出也可以通过 FTP 检索。

//SRCHCMP  JOB (CCCCCCCC),'HOGSTROM',                   
//             MSGLEVEL=(1,1),                          
//             MSGCLASS=O,                              
//             CLASS=A,                                 
//             NOTIFY=&SYSUID                           
//*                                                     
//SRCHFOR  EXEC PGM=ISRSUPC,PARM=('SRCHCMP,ANYC')       
//NEWDD   DD   DSN=USER1.TEST.CNTL,DISP=SHR             
//OUTDD   DD   SYSOUT=*                                 
//SYSIN   DD     *                                      
 SRCHFOR 'NEWDD'                                        
/*                                                      
//*                                                     
//IDCAMS   EXEC PGM=IDCAMS                              
//SYSPRINT DD SYSOUT=*                                  
//SYSIN    DD *                                         
 LISTCAT ENTRY('USER1.TEST.CNTL') ALL                   
/*                                                      
//     

第一步的输出将如下所示:

ISRSUPC   -   MVS/PDF FILE/LINE/WORD/BYTE/SFOR COMPARE UTILITY- ISPF  
FOR z/OS         2019/02/26  22.45    PAGE     1               LINE-#   
SOURCE SECTION                    SRCH DSN: USER1.TEST.CNTL             


                                                                                                                                      SRCHFOR                     --------- STRING(S) FOUND
-------------------                                                          

      8  //NEWDD   DD   DSN=USER1.TEST.CNTL,DISP=SHR                                                                                
     11   SRCHFOR 'NEWDD'                                                                                                           
                                                                                                                                       ISRSUPC   -   MVS/PDF FILE/LINE/WORD/BYTE/SFOR COMPARE UTILITY- ISPF
FOR z/OS         2019/02/26  22.45    PAGE     2             
     SEARCH-FOR SUMMARY SECTION            SRCH DSN: USER1.TEST.CNTL                                                                
                                                                                                                                     LINES-FOUND  LINES-PROC  MEMBERS-W/LNS  MEMBERS-WO/LNS  COMPARE-COLS 
LONGEST-LINE                                                  
        2         4436            1             41           1:80           80                                                      
                                                                                                                                     PROCESS OPTIONS USED: ANYC                                            

                                                                                                                                     THE FOLLOWING PROCESS STATEMENTS (USING COLUMNS 1:72) WERE PROCESSED: 

    SRCHFOR 'NEWDD'

IDCAMS Listcat 的输出如下所示:

IDCAMS  SYSTEM SERVICES                                           TIME: 22:45:34        02/26/19     PAGE      1 

 LISTCAT ENTRY('USER1.TEST.CNTL') ALL                                                                            
NONVSAM ------- USER1.TEST.CNTL                                                                                  
     IN-CAT --- CATALOG.T70502                                                                                   
     HISTORY                                                                                                     
       DATASET-OWNER-----(NULL)     CREATION--------2017.089                                                     
       RELEASE----------------2     EXPIRATION------0000.000                                                     
       ACCOUNT-INFO-----------------------------------(NULL)                                                     
     SMSDATA                                                                                                     
       STORAGECLASS -----CLASS2     MANAGEMENTCLASS---(NULL)                                                     
       DATACLASS --------(NULL)     LBACKUP ---0000.000.0000                                                     
     ENCRYPTIONDATA                                                                                              
       DATA SET ENCRYPTION-----(NO)                                                                              
     VOLUMES                                                                                                     
       VOLSER------------T70502     DEVTYPE------X'3010200F'     FSEQN------------------0                        
     ASSOCIATIONS--------(NULL)                                                                                  
     ATTRIBUTES                                                                                                  
IDCAMS  SYSTEM SERVICES                                           TIME: 22:45:34        02/26/19     PAGE      2 
         THE NUMBER OF ENTRIES PROCESSED WAS:                                                                    
                   AIX -------------------0                                                                      
                   ALIAS -----------------0                                                                      
                   CLUSTER ---------------0                                                                      
                   DATA ------------------0                                                                      
                   GDG -------------------0                                                                      
                   INDEX -----------------0                                                                      
                   NONVSAM ---------------1                                                                      
                   PAGESPACE -------------0                                                                      
                   PATH ------------------0                                                                      
                   SPACE -----------------0                                                                      
                   USERCATALOG -----------0                                                                      
                   TAPELIBRARY -----------0                                                                      
                   TAPEVOLUME ------------0                                                                      
                   TOTAL -----------------1                                                                      
         THE NUMBER OF PROTECTED ENTRIES SUPPRESSED WAS 0                                                        
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0                                                        

IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0                                                

这是一个reference to the SuperC utility

关于jobs - z/OS 的 JCL 作业,用于对数据集执行 SRCHFOR 或 LISTCAT,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/54864926/

相关文章:

powershell - 使用 Start-Job 同时运行多个脚本 block (而不是循环)

使用 C 将 COMP 和 COMP-3 Packed Decimal 转换为可读值

scala - 从 Spark 服务器执行 SFTP 时,大型机服务器上的记录级别数据截断

z/OS 大型机上 USS 中的 Python 代码 - 无法识别方括号

sql - 如何使用 SQL 在 IBM DB2 Z/OS 中显示表的当前权限

php - Laravel Redis 作业未排队

laravel-5 - Laravel 中的队列 Dispatch 方法抛出错误

dataset - 顺序数据集中的范围分配

c++ - JCL 错误尝试 z/OS JSON 解析器编程示例

java - 集群环境下后台作业的输出